Siebel eScript de consulta LOVs para retornar un LIC

Este Siebel eScript realiza la consulta a las listas de valores por un tipo y un valor y retorna el LIC (Languaje Independent Code) o valor único. Funciona para idioma español (ESN), se podría mejorar agregando el idioma como parámetro adicional..

/**********************************************************************
** Function Name: LookupLIC
** Inputs: Type:String => Lista de Valor, Value:String => Valor a buscar
** Function Descripcion: Recibe el tipo de lista de valor y el valor y retorna el LIC
** Author: Gabriel Bravo
** Created: 2012-06-27
**********************************************************************/
function LookupLIC(Type:String, Value:String){
  try {
    var LOVBO:BusObject = TheApplication().GetBusObject("List Of Values");
    var LOVBC:BusComp = LOVBO.GetBusComp("List Of Values");
    var LIC:String = "";
    var nCount:Number = 0;

    
    LOVBC.SetViewMode(AllView);
    LOVBC.ClearToQuery();
    LOVBC.ActivateField("Name");
    LOVBC.ActivateField("Type");
    LOVBC.ActivateField("Value");
    LOVBC.ActivateField("Language");
    LIC="[Type]='" + Type + 
      "' AND [Value]='" + 
      Value + "' AND [Language]='ESN'";
    LOVBC.SetSearchExpr(LIC);
    LOVBC.ExecuteQuery(ForwardOnly);
    nCount = LOVBC.CountRecords();
    LIC="";
    if ((nCount>0)&&(LOVBC.FirstRecord())) {
      LIC = LOVBC.GetFieldValue("Name");
    }
  } catch(e) {
    RegistraExcep("LookupLIC", e.toString(), "Marketing Import Process.LookupLIC");
  } finally {
    LOVBC = null;
    LOVBO = null;
  }
  return LIC;
}