Función en Siebel eScript para hacer Merge de registros

Función en Siebel eScript para hacer merge de registros

function MergeRecs(Inputs, Outputs)
{
 try {
  var Sobrevive, Muere1, Muere2, Muere3, rCount, hayRegs, elId;
  var elBO = TheApplication().GetBusObject("Contact");
  var elBC = elBO.GetBusComp("Contact");
  Sobrevive = 'P-1XW6';
  Muere1 = 'P-1ZX4';
  Muere2 = 'P-1ZXH';
  Muere3 = 'P-1ZXU';
  elBC.InvokeMethod("SetAdminMode", "TRUE");
  elBC.SetViewMode(AllView);
  elBC.ClearToQuery();
  elId = "'" + Sobrevive + "' OR '" + Muere1 + "' OR '" + Muere2 + "' OR '" + Muere3 + "'";
  elBC.SetSearchSpec("Id", elId);
  elBC.ExecuteQuery(ForwardBackward);
  rCount = elBC.CountRecords();
  hayRegs = elBC.FirstRecord();
  while (hayRegs) {
   elId=elBC.GetFieldValue("Id");
   if(elId==Sobrevive){//IMPORTANTE QUEDAR SITUADO EN EL REGISTRO SOBREVIVIENTE Y QUE ESTÉN FILTRADOS LOS REGS INVOLUCRADOS
    elBC.InvokeMethod("MergeRecords", Muere1, Muere2, Muere3);
    break;
   }
   hayRegs = elBC.NextRecord();
  }
 } catch(e) {
  Sobrevive = "Excepcion no Controlada: " + e.toString();
 } finally {
  elBC=null;
  elBO=null;
 }
}