Powerdesigner VBScript (get column name)

[Khou]

I would like to rename/reformat the following naming pattern in Powerdesigner-Physical model

Alternative Name:
>>AK_{table_name}_{table_column_name}
-AK_Account_AccountNumber

Relationship Name:
>>FK_{table_name}_{reference_table_name}_{reference_column_name}
-FK_Account_AccountPhone_HomePhoneID

How do I get the "table_column_name" and "reference_column_name"?

 

[Khou]

VBScript attached