Siebel Tools >  eScript to test if a contact is primary for a given account

eScript to test if a contact is primary for a given account

function IsPrimaryContact(Inputs, Outputs)
{
var busObjAcc:BusObject,busCompAcc:BusComp;
var accountId = Inputs.GetProperty("Account Id");
var contactId = Inputs.GetProperty("Contact Id");
Outputs.SetProperty("SSA Primary Field","N");

try {
busObjAcc=TheApplication().GetBusObject("Account");
busCompAcc=busObjAcc.GetBusComp("Account");

busCompAcc.ClearToQuery();
busCompAcc.SetViewMode(AllView);
busCompAcc.ActivateField("Primary Contact Last Name");
busCompAcc.SetSearchSpec("Id",accountId)
busCompAcc.ExecuteQuery(ForwardOnly);

var record=busCompAcc.FirstRecord();
if(record){
var bcMvg:BusComp = busCompAcc.GetMVGBusComp("Primary Contact Last Name");
bcMvg.SetSearchSpec("Id", contactId);
bcMvg.ExecuteQuery(ForwardOnly);
if (bcMvg.FirstRecord())
{
Outputs.SetProperty("SSA Primary Field",bcMvg.GetFieldValue("SSA Primary Field"));
}
}

}finally{
// Clean
busObjAcc=null;
busCompAcc=null;
}
}