var newClsId = 0;
var newClsIdDely = 0;
//var newClsIdX = 0;
var TR_F_H = "trFirst";
var H_CL = "#d4d0c8";
var H_SEL = "#ffff66";
var HP_PL = "hPanel";
var HP_TL = "hlpTBL";
var LBL_T = "hpt";
var LBL_L = "hpl";
var g_objIdFromOther;
var g_TLbl;
var g_TInt;
var oNxtTr;
var MAIN_FRAME="mainFme";
var DRUG_FRAME="drugFme";
var LABEL_CROSS ="freLblMsg";
var RTN_TYPE ="rtnTyp";
var RTN_FORM ="rtnFrm";
var RTN_TEXTBOX ="rtnTxt";
var RTN_LABEL ="rtnLbl";
var INPUT_TAG = "INPUT";
var SELECT_TAG = "SELECT";
var OBJECT_NAME ="objName";
var OBJECT_TYPE ="objTyp";
var DESC_CLASS = "wucDesc";
var g_tbTYPE;
var popup_beforelogon;
var popup_beforelogonQ;
var _lc_temp ="";
var KEYWORD_JAVASCRIPT = "javascript:";
var g_bSiJp = false;
var	g_P1;
var	g_T1;
var g_L1;
 var C_A_PH = "/";
var NOT_FOUND = "NOT_FOUND";
var g_lookupIndexLast=0;
var g_current_key = '';
var g_current_id = '';

var g_sent_key = '';
var g_sent_id = '';

/* drug individual panel */
var g_drugFme_wdCAUT;
var g_drugFme_wdINTI;
var g_drugFme_wdDL_DET;
var g_drugFme_wdDL_IDDCAUT;
var g_drugFme_wdDL_IDDINTI;
var g_drugFme_wdDL_COUNTCAUT;
var g_drugFme_wdDL_COUNTINTI;

/* drug individual panel */
var g_lb_tmb_msg;

var g_whACMObjID;
var g_wdFq1ObjID; //DFRQDET
var g_wdDos1ObjID; //DDOSDET
var g_wdUn1ObjID; //CURCDE dcm and rnd
var g_wdUnitObjID; //CURCDE name
//var g_lbDgCObjID;
var g_hiDgRObjID;
var g_lbDgNObjID;
//var g_lbDgS1ObjID;
//var g_lbDgS2ObjID;
var g_wdDosObjID;
var g_wdFrqObjID;
var g_wtDayObjID;
var g_wtQtyObjID;
var g_lbUntObjID;
var g_wtVolObjID;
var g_wlCTxqObjID;
var g_wtCTRmkObjID;
var g_wlIIxqObjID;
var g_wtIIRmkObjID;
var g_hiupdObjID; 
var g_hiRbObjID;
var g_wibMinuBObjID;
var g_hiSgnObjID;
var g_hiSgnUntObjID;
var g_wibMinuAObjID;
var g_wibUpdAObjID;
var g_wibUpdBObjID;
var g_wtDgObjID;
var g_hiDayObjID;
var g_hiUntObjID;
var g_hiSyrFObjID;
var g_exceedLimt;
var g_maxCount;
/* drug row ids */
    var g_row_hiINTI_01_id;
    var g_row_hiCAUT_01_id;
    var g_row_hiQty_01_id;
    var g_row_hiVol_01_id;
    var g_row_hiDay_01_id;
    var g_row_trDa_01_id;
    var g_row_trDb_01_id;
    var g_row_trDc_01_id;
    var g_row_trDd_01_id;
    var g_row_trDe_01_id;
    var g_row_trDf_01_id;
    var g_row_ckD_01_id;
    var g_row_ckS_01_id;
    var g_row_lbD_01_id;
    var g_row_hiD_01_id;
    var g_row_lbDy_01_id;
    var g_row_hdk_01_id; 
    var g_row_hiSyr_01_id;
    var g_row_hiUC_01_id;
    var g_row_hiMx_01_id;
    var g_row_lbDay_01_id;
    var g_row_hiFrq_01_id;
    var g_row_lbFrq_01_id;
    var g_row_hiDos_01_id; 
    var g_row_lbDos_01_id;
    var g_row_hiBar_01_id;
    var g_row_lbBar_01_id;
    var g_row_lbVol_01_id;
    var g_row_lbQty_01_id;
    var g_row_lbUnt_01_id;
    var g_row_hiUnt_01_id;
    var g_row_hiSup_01_id;
    var g_row_wlll_01_id;
    var g_row_txll_01_id;
    var g_row_wlct_01_id;
    var g_row_txct_01_id;
    var g_row_hiSgn_01_id;
    var g_row_hiSgnUnt_01_id;

    var g_rowNbr;
    function SetDivStyle(width, height, overflow) {
        var srcElment = document.getElementById(targetObj);
        if (srcElment != null) {
            srcElment.style.width = width;
            srcElment.style.height = height;
            if (!overflow)
                srcElment.style.overflow = 'hidden'
            else
                srcElment.style.overflow = 'scroll'
        }
    }
    function SetDivWidth(adjust, targetObj, checkWidth, minwidth) {
        var srcElment = document.getElementById(targetObj);
        if (srcElment != null) {
            var newWidth = ShowmyWidth() - adjust;
            if (checkWidth) {
                if (newWidth < minwidth)
                    srcElment.style.width = minwidth;
                else
                    srcElment.style.width = newWidth;
            }
            else {
                srcElment.style.width = newWidth;
            }
        }
    }

    function ShowmyWidth() {
        var myWidth = 0, myHeight = 0;
        if (typeof (window.innerWidth) == 'number') {
            //Non-IE
            myWidth = window.innerWidth;
            //        myHeight = window.innerHeight;
        } else if (document.documentElement && (document.documentElement.clientWidth)) {
            //IE 6+ in 'standards compliant mode'
            myWidth = document.documentElement.clientWidth;
            //          myHeight = document.documentElement.clientHeight;
        } else if (document.body && (document.body.clientWidth)) {
            //IE 4 compatible
            myWidth = document.body.clientWidth;
            //            myHeight = document.body.clientHeight;
        }
        return myWidth;
    }

    function ShowmyHeight() {
        var myWidth = 0, myHeight = 0;
        if (typeof (window.innerWidth) == 'number') {
            //Non-IE
            //     myWidth = window.innerWidth;
            myHeight = window.innerHeight;
        } else if (document.documentElement && (document.documentElement.clientHeight)) {
            //IE 6+ in 'standards compliant mode'
            //myWidth = document.documentElement.clientWidth;
            myHeight = document.documentElement.clientHeight;
        } else if (document.body && (document.body.clientHeight)) {
            //IE 4 compatible
            //myWidth = document.body.clientWidth;
            myHeight = document.body.clientHeight;
        }
        return myHeight;
    }

    function pushValueFromOtherFrame(frameName, srcObj, targetObj) {
        var _wdSrcObj = findFrameObjID(srcObj, frameName);
        var srcEl = event.srcElement ? event.srcElement : event.target;
        var tempValue1 = srcEl.options[srcEl.selectedIndex].value;
        var oTargText = findObjID(targetObj);
        setListObjSelected(_wdSrcObj, tempValue1, 0);
        oTargText.value = _wdSrcObj.options[_wdSrcObj.selectedIndex].text;
        srcEl.selectedIndex = 0;
    }
     function bni_SetTDIMGTag(tdImgCell) {
         g_tdImgTag = tdImgCell;
    }
    function adbgposT(tdImgCell, hidrightV, hidtopV, valueCount) {
        var _objhidrightV = findDocObj(hidrightV);
        var _objhidtopV = findDocObj(hidtopV);
        var _objtdImgCell;
        if (g_tdImgTag != null)
            _objtdImgCell = findDocObjID(g_tdImgTag);
        else
            _objtdImgCell = findDocObj(tdImgCell);
        var curV = parseInt(_objhidtopV.value);
        curV = curV + valueCount;
        _objhidtopV.value = curV;
        _objtdImgCell.style.backgroundPosition = _objhidrightV.value + "px " + _objhidtopV.value + "px "
    }
    function adbgposR(tdImgCell, hidrightV, hidtopV, valueCount) {
        var _objhidrightV = findDocObj(hidrightV);
        var _objhidtopV = findDocObj(hidtopV);
        var _objtdImgCell;
        if (g_tdImgTag != null)
            _objtdImgCell = findDocObjID(g_tdImgTag);
        else
            _objtdImgCell = findDocObj(tdImgCell);
        var curV = parseInt(_objhidrightV.value);
        curV = curV + valueCount;
        _objhidrightV.value = curV;
        _objtdImgCell.style.backgroundPosition = _objhidrightV.value + "px " + _objhidtopV.value + "px "
    }
    function loadtextboxDatadata(intextbox, slobjname) 
{
        var control = document.getElementById(slobjname);
        var controlText = document.getElementById(intextbox);
        if (control != null && controlText != null)
            control.Content.Page.SetDataHTMLText(controlText.value);
    }
    function escapeHTML(str) {
        var div = document.createElement('div');
        var text = document.createTextNode(str);
        div.appendChild(text);
        return div.innerHTML;
    }; 

function settextboxDatadata(intextbox, slobjname) {
        var control = document.getElementById(slobjname);
        var controlText = document.getElementById(intextbox);
        if (control != null && controlText != null)
            controlText.value = escapeHTML(control.Content.Page.GetDataHTMLText());
    }

function CalculateNewQty(sghInfo, objQtyValue,objDayValue,objDosValue,objFrqValue)
{
     var _wdFq1Obj = findFrameObjID("wdFq1",DRUG_FRAME); 
    setListObjSelected(_wdFq1Obj,objFrqValue,0);
     var _drugFrqString = _wdFq1Obj.options[_wdFq1Obj.selectedIndex].text;
     var _wdDos1Obj =  findFrameObjID("wdDos1",DRUG_FRAME); 
    setListObjSelected(_wdDos1Obj,objDosValue,0);
     var _drugDosString = _wdDos1Obj.options[_wdDos1Obj.selectedIndex].text;
    var _drugDosDet = _drugDosString.split("%"); 
    var _factor = 1.000000;    
   var _wdUn1Obj = findFrameObjID("wdUn1",DRUG_FRAME); 
    var _sghInfo = sghInfo.split("%"); 
       var _finalCurString;
    /// get the factor if it involves sgh
    if (_sghInfo.length > 2 && _sghInfo[1] != "" && _sghInfo[2] != "")
    {
        _factor = 1.00000000 / _sghInfo[2];
        if (_factor < 0) 
                _factor = 0;        
    }
    setListObjSelected(_wdUn1Obj, _sghInfo[0],0);
   _finalCurString = _wdUn1Obj.options[_wdUn1Obj.selectedIndex].text;
    var    _finalCurDet = _finalCurString.split(" "); 
    var _newVol = _drugDosDet[0] * _drugFrqString * objDayValue;
    var _newQty = _newVol * _factor;
    if (_newQty >= 0)
        return  round_decimals(_newQty, _finalCurDet[0], _finalCurDet[1]);
    
    return objQtyValue;
}
function recalculateQtyPrescription(sghInfo, objQty,objDay,objDos,objFrq)
{
    var _objQty = document.forms[0].elements[objQty];
    var _objDay = document.forms[0].elements[objDay];
    var _objDos = findObjID(objDos);
    var _objFrq = findObjID(objFrq);
    if (_objQty && _objDay && _objDos && _objFrq)
    {
        _objQty.value = parent.frames[DRUG_FRAME].CalculateNewQty(sghInfo, _objQty.value,_objDay.value,_objDos.value,_objFrq.value);
     }
}
function refreshME()
{
//    window.clearTimeout(newClsIdX);
//   var sURLrlv = unescape(window.location.pathname);
//   window.location.href = sURLrlv;
    window.location.reload( false );
}
function RefreshParentUrl(url) {
    if (parent) {
        parent.location.href = url;
    }
    else {
        window.location.href = url;
    }
}
function RefreshAFrameOrWindow(frameName, url)
{
    if (parent && parent.frames && parent.frames.length > 1 && frameName != '')
    {
       for (var j=0; j<parent.frames.length; j++) 
       {
             if (parent.frames[j].name == frameName)
            {
               if (parent.frames[j].location.href == url)
                    parent.frames[j].location.reload(true); 
                else
                    parent.frames[j].location.href = url;
            }
       } 
    }
    else
    {
        if (  window.location.href == url)
            window.location.reload( true );
        else
            window.location.href = url; 
    }
}    
function pr_SetFirstRowID(hiINTI_01_id,hiCAUT_01_id,hiQty_01_id, hiVol_01_id, hiDay_01_id, hiSgnUnt_01_id, hiSgn_01_id, trDa_01_id, trDb_01_id,trDc_01_id,trDd_01_id,trDe_01_id,trDf_01_id,ckD_01_id,ckS_01_id,lbD_01_id,hiD_01_id,lbDy_01_id,hdk_01_id, hiSyr_01_id,hiUC_01_id,hiMx_01_id,lbDay_01_id,hiFrq_01_id,lbFrq_01_id,hiDos_01_id, lbDos_01_id,hiBar_01_id,lbBar_01_id,lbVol_01_id,lbQty_01_id,lbUnt_01_id,hiUnt_01_id,hiSup_01_id,wlll_01_id,lbll_01_id,wlct_01_id, lbct_01_id)
{
    g_row_hiINTI_01_id = hiINTI_01_id;
    g_row_hiCAUT_01_id = hiCAUT_01_id;
    g_row_hiQty_01_id = hiQty_01_id;
     g_row_hiVol_01_id = hiVol_01_id;
     g_row_hiDay_01_id = hiDay_01_id;
    g_row_hiSgnUnt_01_id = hiSgnUnt_01_id;
    g_row_hiSgn_01_id  = hiSgn_01_id;
    g_row_trDa_01_id	=	trDa_01_id;
    g_row_trDb_01_id	=	trDb_01_id;
    g_row_trDc_01_id	=	trDc_01_id;
    g_row_trDd_01_id	=	trDd_01_id;
    g_row_trDe_01_id	=	trDe_01_id;
    g_row_trDf_01_id	=	trDf_01_id;
    g_row_ckD_01_id	=	ckD_01_id;
    g_row_ckS_01_id	=	ckS_01_id;
    g_row_lbD_01_id	=	lbD_01_id;
    g_row_hiD_01_id	=	hiD_01_id;
    g_row_lbDy_01_id	=	lbDy_01_id;
    g_row_hdk_01_id 	=	hdk_01_id ;
    g_row_hiSyr_01_id	=	hiSyr_01_id;
    g_row_hiUC_01_id	=	hiUC_01_id;
    g_row_hiMx_01_id	=	hiMx_01_id;
    g_row_lbDay_01_id	=	lbDay_01_id;
    g_row_hiFrq_01_id	=	hiFrq_01_id;
    g_row_lbFrq_01_id	=	lbFrq_01_id;
    g_row_hiDos_01_id 	=	hiDos_01_id ;
    g_row_lbDos_01_id	=	lbDos_01_id;
    g_row_hiBar_01_id	=	hiBar_01_id;
    g_row_lbBar_01_id	=	lbBar_01_id;
    g_row_lbVol_01_id	=	lbVol_01_id;
    g_row_lbQty_01_id	=	lbQty_01_id;
    g_row_lbUnt_01_id	=	lbUnt_01_id;
    g_row_hiUnt_01_id	=	hiUnt_01_id;
    g_row_hiSup_01_id	=	hiSup_01_id;
    g_row_wlll_01_id	=	wlll_01_id;
    g_row_txll_01_id	=	lbll_01_id;
    g_row_wlct_01_id	=	wlct_01_id;
    g_row_txct_01_id	=	lbct_01_id;
}
function pr_SetRow_ID()
{
    var _hiDgRObj = document.forms[0].elements[g_hiDgRObjID];
    if (_hiDgRObj.value == "")
        return "";
    var rowNbr = _hiDgRObj.value;
    var strNbr = '_' + rowNbr;
    if (rowNbr < 10)
           strNbr = '_0' + rowNbr;
    return strNbr;
}
function pr_LoadDrugPanelObjID( maxCount,exceedLimt,  lbTMB_MSG, whACMObjID, hiSyrFObjID, hiUntObjID, hiDayObjID, wibUpdBObjID, wtDgObjID, wibMinuAObjID, wibUpdAObjID, hiSgnObjID, hiSgnUntObjID, wibMinuBObjID, wdFq1ObjID, wdDos1ObjID,  wdUn1ObjID, wdUnitObjID,   hiDgRObjID, lbDgNObjID, wdDosObjID, wdFrqObjID, wtDayObjID, wtQtyObjID, lbUntObjID, wtVolObjID, wlCTxqObjID, wtCTRmkObjID, wlIIxqObjID, wtIIRmkObjID, hiupdObjID,  hiRbObjID)
{
g_exceedLimt =exceedLimt;
g_maxCount = maxCount;
g_lb_tmb_msg = lbTMB_MSG;
g_whACMObjID = whACMObjID;
 g_hiSyrFObjID = hiSyrFObjID;
 g_hiUntObjID = hiUntObjID;
 g_hiDayObjID = hiDayObjID;
 g_wtDgObjID = wtDgObjID;
 g_wibMinuAObjID = wibMinuAObjID;
 g_wibUpdBObjID = wibUpdBObjID;
 g_wibUpdAObjID = wibUpdAObjID;
 g_hiSgnObjID = hiSgnObjID;
 g_hiSgnUntObjID = hiSgnUntObjID;
 g_wibMinuBObjID = wibMinuBObjID;
 g_wdFq1ObjID=  wdFq1ObjID;
 g_wdDos1ObjID=  wdDos1ObjID;
 g_wdUn1ObjID=  wdUn1ObjID;
 g_wdUnitObjID=  wdUnitObjID;
// g_lbDgCObjID=  lbDgCObjID;
 g_hiDgRObjID=  hiDgRObjID;
 g_lbDgNObjID=  lbDgNObjID;
// g_lbDgS1ObjID=  lbDgS1ObjID;
// g_lbDgS2ObjID=  lbDgS2ObjID;
 g_wdDosObjID=  wdDosObjID;
 g_wdFrqObjID=  wdFrqObjID;
 g_wtDayObjID=  wtDayObjID;
 g_wtQtyObjID=  wtQtyObjID;
 g_lbUntObjID=  lbUntObjID;
 g_wtVolObjID=  wtVolObjID;
 g_wlCTxqObjID=  wlCTxqObjID;
 g_wtCTRmkObjID=  wtCTRmkObjID;
 g_wlIIxqObjID=  wlIIxqObjID;
 g_wtIIRmkObjID=  wtIIRmkObjID;
 g_hiupdObjID=  hiupdObjID;
 g_hiRbObjID=  hiRbObjID;
}

function pr_LoaddrugFmeObj()
{
     if(!g_drugFme_wdCAUT)
         g_drugFme_wdCAUT = findFrameObjID("wdCAUT",DRUG_FRAME);
     if(!g_drugFme_wdINTI)
        g_drugFme_wdINTI = findFrameObjID("wdINTI",DRUG_FRAME);
     if(!g_drugFme_wdDL_DET)
        g_drugFme_wdDL_DET = findFrameObjID("wdDL_DET",DRUG_FRAME);
    if(!g_drugFme_wdDL_IDDCAUT)
        g_drugFme_wdDL_IDDCAUT = findFrameObjID("wdDL_IDDCAUT",DRUG_FRAME);
     if(!g_drugFme_wdDL_IDDINTI)
        g_drugFme_wdDL_IDDINTI = findFrameObjID("wdDL_IDDINTI",DRUG_FRAME); 
    if(!g_drugFme_wdDL_COUNTCAUT)
        g_drugFme_wdDL_COUNTCAUT = findFrameObjID("wdDL_COUNTCAUT",DRUG_FRAME);
     if(!g_drugFme_wdDL_COUNTINTI)
        g_drugFme_wdDL_COUNTINTI = findFrameObjID("wdDL_COUNTINTI",DRUG_FRAME); 
}
function pr_OnAddButton()
{
  var _wibUpdBObj = document.getElementById(g_wibUpdBObjID);
  var _wibUpdAObj = document.getElementById(g_wibUpdAObjID);
 var _hiupdObj = document.forms[0].elements[g_hiupdObjID];
 _hiupdObj.value = "Y";
   _wibUpdAObj.style.display =  _wibUpdBObj.style.display = "" ;
}
function pr_OnAddButton1()
{
    this.pr_set_PIDList(g_row_wlll_01_id,g_row_hiINTI_01_id,g_wlIIxqObjID,g_row_trDc_01_id);
}
function pr_OnAddButton2()
{
    this.pr_set_PIDList(g_row_wlct_01_id,g_row_hiCAUT_01_id,g_wlCTxqObjID,g_row_trDe_01_id);
}
function pr_drugInsPanel(keyValue,TextValue)
{
  var _localDocForm=document.forms[0];
  var _lb_tmb_msg = document.getElementById(g_lb_tmb_msg);
  if (_lb_tmb_msg)
    _lb_tmb_msg.innerHTML="";
  var  _hiRbObj = _localDocForm.elements[g_hiRbObjID];
  var  _hiD_Obj;
  var _rCount = _hiRbObj.value*1;
  var _fFound = false;
  var _rFound = -1;
  var strNbr = 0;
  var rowNbr=0;
  var _hiMx;
  for (var j=0; j<_rCount; j++) 
  {
        rowNbr = j+1;
        strNbr = '_' + rowNbr;
        if ((j+1) < 10)
            strNbr = '_0' + rowNbr;
       else 
            strNbr = '_' + rowNbr;
         _hiD_Obj  = _localDocForm.elements[g_row_hiD_01_id + strNbr] ;
         _hiMx  = _localDocForm.elements[g_row_hiMx_01_id + strNbr] ;         
         if (!_hiD_Obj)
         {
            break;
         } 
         if (_hiD_Obj.value== keyValue && _hiMx.value == "")
         {
            _fFound = true;
           _rFound = rowNbr;            
           break;
         }
  }
  var _wibUpdBObj = document.getElementById(g_wibUpdBObjID);
  var _wibUpdAObj = document.getElementById(g_wibUpdAObjID);
  var _wibMinuBObj = document.getElementById(g_wibMinuBObjID);
  var _wibMinuAObj = document.getElementById(g_wibMinuAObjID);

//    var _lbDgCObj = document.getElementById(g_lbDgCObjID);
    var _lbDgNObj = document.getElementById(g_lbDgNObjID);
 //   var _lbDgS1Obj = document.getElementById(g_lbDgS1ObjID);
   // var _lbDgS2Obj = document.getElementById(g_lbDgS2ObjID);
    var _hiDgRObj = _localDocForm.elements[g_hiDgRObjID];

    var _wtDgObj = document.forms[0].elements[g_wtDgObjID];

    //_lbDgCObj.innerHTML = keyValue;
    _lbDgNObj.innerHTML = TextValue;
  //  _lbDgS1Obj.innerHTML = "[";
//    _lbDgS2Obj.innerHTML = "]";

  if (!_fFound)
  {
     if (_rCount >= g_maxCount)
     {
        _lbDgCObj.innerHTML =  _lbDgNObj.innerHTML = _lbDgS1Obj.innerHTML =  _lbDgS2Obj.innerHTML =  "";
      _wibUpdAObj.style.display =  _wibUpdBObj.style.display =  _wibMinuBObj.style.display =  _wibMinuAObj.style.display = "none" ;
        setTrHighlight(_hiDgRObj.value,null);
        alert(g_exceedLimt); 
        return; 
     }
     _rCount++; 
    var dStr = 'pr_readFromDrugStore("' + keyValue +'","' + TextValue + '",' + _rCount + ');';
     var _hiupdObj = _localDocForm.elements[g_hiupdObjID];
   _hiupdObj.value = "Y";           // new drug in the prescription  therefor upd should be 'Y'
   _hiRbObj.value=_rCount; // increase max row selected

    setTrHighlight(_hiDgRObj.value,_rCount);
    _hiDgRObj.value = _rCount; //current row selected

      _wibUpdAObj.style.display =  _wibUpdBObj.style.display = "none" ;
      _wibMinuBObj.style.display =  _wibMinuAObj.style.display = "" ;

    _wtDgObj.focus();
    window.setTimeout(dStr,10); /// not exists from the list and fill from drug store to panel and list
    return;
  }
  var   _ckD_Obj  = _localDocForm.elements[g_row_ckD_01_id + strNbr] 

    if (_ckD_Obj && _ckD_Obj.checked)
    {
//         _wibUpdAObj.style.display =  _wibUpdBObj.style.display = "" ;
         _wibMinuBObj.style.display =  _wibMinuAObj.style.display = "none" ;
    }
    else
    {
         _wibUpdAObj.style.display =  _wibUpdBObj.style.display = "none" ;
         _wibMinuBObj.style.display =  _wibMinuAObj.style.display = "" ;
    } 

    setTrHighlight(_hiDgRObj.value,_rFound);
    _hiDgRObj.value = _rFound;

      // turn on button 
    var dStr1 = 'pr_fillUpdPnl(' + _rFound + ');';
    _wtDgObj.focus();
    window.setTimeout(dStr1,10);   /// existing from list and fill the panel
}
function pr_readFromDrugStore(keyValue,TextValue,rCount)
{
  var _localDocForm=document.forms[0];
  var strNbr = '_' + rCount;
    if (rCount < 10)
        strNbr = '_0' + rCount;

    //MOVE data to grid from drugFme and fill the panel at the same time
    var _row_hdk  = _localDocForm.elements[g_row_hdk_01_id + strNbr];
         var    _hiUC_Obj  = _localDocForm.elements[g_row_hiUC_01_id + strNbr] 
      _row_hdk.value = 
       _hiUC_Obj.value = "Y";

     var _wdUnitObj = _localDocForm.elements[g_wdUnitObjID];
    // just in case -10 otherwise ... 
    setListObjSelected(g_drugFme_wdDL_DET,keyValue,g_lookupIndexLast-10);
    
     var _drugDETString = g_drugFme_wdDL_DET.options[g_drugFme_wdDL_DET.selectedIndex].text;
    var _drugDETSplit = _drugDETString.split(";");
      var _row_trDa_01_id  = document.getElementById(g_row_trDa_01_id + strNbr);
      var _row_trDb_01_id  = document.getElementById(g_row_trDb_01_id + strNbr);
    _row_trDa_01_id.style.display =  _row_trDb_01_id.style.display = "";

    var _row_hiSup  = _localDocForm.elements[g_row_hiSup_01_id + strNbr];
      _row_hiSup.value = _drugDETSplit[2];
    var _row_hiD  = _localDocForm.elements[g_row_hiD_01_id + strNbr];
      _row_hiD.value = keyValue;
    var _row_lbD  = document.getElementById(g_row_lbD_01_id + strNbr);
      _row_lbD.innerHTML = TextValue;
     var _wdFrqObj = _localDocForm.elements[g_wdFrqObjID];
      var _row_hiFrq  = _localDocForm.elements[g_row_hiFrq_01_id + strNbr];
      var _row_lbFrq  = document.getElementById(g_row_lbFrq_01_id + strNbr);
      setListObjSelected(_wdFrqObj,_drugDETSplit[4],0);
     _row_hiFrq.value =  _wdFrqObj.options[_wdFrqObj.selectedIndex].value;
     _row_lbFrq.innerHTML =  _wdFrqObj.options[_wdFrqObj.selectedIndex].text;

     var _wdDosObj = _localDocForm.elements[g_wdDosObjID];
      var _row_hiDos  = _localDocForm.elements[g_row_hiDos_01_id + strNbr];
      var _row_lbDos  = document.getElementById(g_row_lbDos_01_id + strNbr);
      setListObjSelected(_wdDosObj,_drugDETSplit[3],0);
     _row_hiDos.value =  _wdDosObj.options[_wdDosObj.selectedIndex].value;
     _row_lbDos.innerHTML =  _wdDosObj.options[_wdDosObj.selectedIndex].text;

     var _row_lbDay  = document.getElementById(g_row_lbDay_01_id + strNbr);
     var _row_hiDay  = _localDocForm.elements[g_row_hiDay_01_id + strNbr];
     _row_hiDay.value =  _row_lbDay.innerHTML = _localDocForm.elements[g_wtDayObjID].value = _localDocForm.elements[g_hiDayObjID].value = _drugDETSplit[6];

      var _row_lbQty  = document.getElementById(g_row_lbQty_01_id + strNbr);
      var _row_hiQty  = _localDocForm.elements[g_row_hiQty_01_id + strNbr];
      _row_hiQty.value = _row_lbQty.innerHTML= _localDocForm.elements[g_wtQtyObjID].value = _drugDETSplit[12];
    /// Vol holds not because just for drug mix but also for sghUnt
      var _row_lbVol  = document.getElementById(g_row_lbVol_01_id + strNbr);
      _row_lbVol.innerHTML= _localDocForm.elements[g_wtVolObjID].value = _drugDETSplit[7];
        _row_lbVol.style.display = "none";
        
      var _row_hiunt  = _localDocForm.elements[g_row_hiUnt_01_id + strNbr];
        _row_hiunt.value = _localDocForm.elements[g_hiUntObjID].value = _drugDETSplit[9];
      var _row_lbUnt  = document.getElementById(g_row_lbUnt_01_id + strNbr);
      var _lbUntObj  = document.getElementById(g_lbUntObjID);
    setListObjSelected(_wdUnitObj,_drugDETSplit[9],0);
     _row_lbUnt.innerHTML =  _lbUntObj.innerHTML = _wdUnitObj.options[_wdUnitObj.options.selectedIndex].text;

  var _row_hiSgnUnt  = _localDocForm.elements[g_row_hiSgnUnt_01_id + strNbr];
  var _row_hiSgn  = _localDocForm.elements[g_row_hiSgn_01_id + strNbr];
   _row_hiSgn.value = _localDocForm.elements[g_hiSgnObjID].value =_drugDETSplit[10];
   _row_hiSgnUnt.value = _localDocForm.elements[g_hiSgnUntObjID].value =_drugDETSplit[11];
  /// normal nothing from drug store
  var _row_txll  = _localDocForm.elements[g_row_txll_01_id + strNbr];
  var _row_txct  = _localDocForm.elements[g_row_txct_01_id + strNbr];
   _row_txll.value = _localDocForm.elements[g_wtIIRmkObjID].value = 
  _row_txct.value =  _localDocForm.elements[g_wtCTRmkObjID].value="";
  
  var _row_trDd_01_id  = document.getElementById(g_row_trDd_01_id + strNbr);
  var _row_trDf_01_id  = document.getElementById(g_row_trDf_01_id + strNbr);

  _row_trDd_01_id.style.display =  _row_trDf_01_id.style.display = "none";

   var _rowllListObjID = g_row_wlll_01_id.replace('_01_',strNbr+'_') + strNbr+'T';
   var _rowctListObjID = g_row_wlct_01_id.replace('_01_',strNbr+'_') + strNbr+'T';
      var _rowllListObj = _localDocForm.elements[_rowllListObjID];
      var _rowctListObj = _localDocForm.elements[_rowctListObjID];

      var _wlIIxqObj = _localDocForm.elements[g_wlIIxqObjID];
      var _wlCTxqObj = _localDocForm.elements[g_wlCTxqObjID];

  var _row_hiINTIObj  = _localDocForm.elements[g_row_hiINTI_01_id + strNbr];
  var _row_hiCAUTObj  = _localDocForm.elements[g_row_hiCAUT_01_id + strNbr];
  _row_hiINTIObj.value =  _row_hiCAUTObj.value =""; 

   /// need to load _rowllListObjID and _rowctListObjID
   pr_drugMoveLISTfromStore(_wlIIxqObj, _rowllListObj, g_drugFme_wdINTI, g_drugFme_wdDL_IDDINTI, _drugDETSplit[0],'INTI^',_row_hiINTIObj,g_drugFme_wdDL_COUNTINTI);
   pr_drugMoveLISTfromStore(_wlCTxqObj,_rowctListObj,g_drugFme_wdCAUT,g_drugFme_wdDL_IDDCAUT, _drugDETSplit[0],'CAUT^',_row_hiCAUTObj,g_drugFme_wdDL_COUNTCAUT);
      
  var _row_trDc_01_id  = document.getElementById(g_row_trDc_01_id + strNbr);
  var _row_trDe_01_id  = document.getElementById(g_row_trDe_01_id + strNbr);
        var _whACMObj  = document.getElementById(g_whACMObjID);
    if (_whACMObj.checked)
    {
          _row_trDc_01_id.style.display = _row_trDe_01_id.style.display = "none";
    }
    else
    {
      pr_SetListTr(_row_trDc_01_id,_rowllListObj);
        pr_SetListTr(_row_trDe_01_id,_rowctListObj);
    }
}
function pr_drugMoveLISTfromStore(panelListObj, rowListObj, stdCodeNDestList, drugInstCodeList, drugCode, keyWord,  hiValuesObj, startingPointList)
{
   if (panelListObj.options)
        panelListObj.options.length = 0;
   if (rowListObj.options)
        rowListObj.options.length = 0;
    if (!drugInstCodeList || !drugInstCodeList.options || drugCode.length < 2) 
        return;
     var _spPos = 0;
     var _stCh = drugCode.substring(0,2); 
    if (startingPointList && startingPointList.options)
    { 
        for (var j=0;j<startingPointList.options.length; j++) 
        {
                if (startingPointList.options[j].value == _stCh)
            { 
                    break;
                }
                 _spPos += (startingPointList.options[j].text * 1);
        } 
    }    
     if (drugInstCodeList.options && _spPos > drugInstCodeList.options.length)
         return; 

//     alert("enter[" + keyWord + "][" + drugCode + "_1]");
     var _lkText = "";
     var _lkValue = "";
     var _lkCount = 1;
     var _lkFirstCountFound = false;
    for (var j=_spPos;j<drugInstCodeList.options.length; j++) 
    {
        _lkText = "";
        _lkValue = "";
       if  (_lkFirstCountFound)
       {
           if (drugInstCodeList.options[j].value == drugCode + "_" + _lkCount)
           {
                 _lkValue = drugInstCodeList.options[j].text;
                    setListObjSelected(stdCodeNDestList,keyWord + _lkValue,0);
                _lkText = stdCodeNDestList.options[stdCodeNDestList.selectedIndex].text;
                 panelListObj.options[panelListObj.options.length] = new Option(_lkText,keyWord + _lkValue,false,false);
                  rowListObj.options[rowListObj.options.length] = new Option(_lkText,keyWord + _lkValue,false,false);
                  if (hiValuesObj.value != "")
                        hiValuesObj.value += "|";                  
                    hiValuesObj.value += keyWord + _lkValue;
                _lkCount++;            
           }
           else
           {
                break;
           }
       }
       else
       {
           if (drugInstCodeList.options[j].value == drugCode + "_1")
           {
                _lkValue = drugInstCodeList.options[j].text;
                setListObjSelected(stdCodeNDestList,keyWord + _lkValue,0);
                _lkText = stdCodeNDestList.options[stdCodeNDestList.selectedIndex].text;
                 panelListObj.options[panelListObj.options.length] = new Option(_lkText,keyWord + _lkValue,false,false);
                  rowListObj.options[rowListObj.options.length] = new Option(_lkText,keyWord + _lkValue,false,false);
                _lkFirstCountFound = true;
                  if (hiValuesObj.value != "")
                        hiValuesObj.value += "|";                  
                    hiValuesObj.value += keyWord + _lkValue;
                _lkCount++;
           } 
           else
           {
//               if (drugInstCodeList.options[j].value > drugCode + "_1")
               if (drugInstCodeList.options[j].value.substring(0,2) > drugCode.substring(0,2))
              {
//                   alert("leave greater[" + keyWord + "]["  + drugInstCodeList.options[j].value +']>['+ drugCode + "_1]");
                    break;
              } 
           }
       }
    }

}

function setTrHighlight(oldTr,newTr)
{
    var strNbr;
    var _row_trDa_01_id
    if (oldTr && oldTr != "")
    {
         strNbr = '_' + oldTr;
        if (oldTr < 10)
            strNbr = '_0' + oldTr;
       _row_trDa_01_id  = document.getElementById(g_row_trDa_01_id + strNbr);
       _row_trDb_01_id  = document.getElementById(g_row_trDb_01_id + strNbr);
       _row_trDc_01_id  = document.getElementById(g_row_trDc_01_id + strNbr);
       _row_trDd_01_id  = document.getElementById(g_row_trDd_01_id + strNbr);
       _row_trDe_01_id  = document.getElementById(g_row_trDe_01_id + strNbr);
       _row_trDf_01_id  = document.getElementById(g_row_trDf_01_id + strNbr);
       _row_trDa_01_id.style.background = 
       _row_trDb_01_id.style.background = 
       _row_trDc_01_id.style.background = 
       _row_trDd_01_id.style.background = 
       _row_trDe_01_id.style.background = 
       _row_trDf_01_id.style.background = "";
      }
     if (newTr && newTr != "")
    { 
         strNbr = '_' + newTr;
        if (newTr < 10)
            strNbr = '_0' + newTr;
       _row_trDa_01_id  = document.getElementById(g_row_trDa_01_id + strNbr);
       _row_trDb_01_id  = document.getElementById(g_row_trDb_01_id + strNbr);
       _row_trDc_01_id  = document.getElementById(g_row_trDc_01_id + strNbr);
       _row_trDd_01_id  = document.getElementById(g_row_trDd_01_id + strNbr);
       _row_trDe_01_id  = document.getElementById(g_row_trDe_01_id + strNbr);
       _row_trDf_01_id  = document.getElementById(g_row_trDf_01_id + strNbr);
       _row_trDa_01_id.style.background = 
       _row_trDb_01_id.style.background = 
       _row_trDc_01_id.style.background = 
       _row_trDd_01_id.style.background = 
       _row_trDe_01_id.style.background = 
       _row_trDf_01_id.style.background = H_SEL;
       }
}
function pr_fillUpdPnl(rFound)
{
  /// update panel (ret data from grid if exists) and update grid
  var _localDocForm=document.forms[0];

   var strNbr = '_' + rFound;
   if (rFound < 10)
        strNbr = '_0' + rFound;

  var _row_hiFrq  = _localDocForm.elements[g_row_hiFrq_01_id + strNbr];
  setListSelected(g_wdFrqObjID,_row_hiFrq.value);

  var _row_hiDos  = _localDocForm.elements[g_row_hiDos_01_id + strNbr];
  setListSelected(g_wdDosObjID,_row_hiDos.value);

  var _row_hiDay  = document.getElementById(g_row_hiDay_01_id + strNbr);
  _localDocForm.elements[g_wtDayObjID].value = _row_hiDay.value;
  _localDocForm.elements[g_hiDayObjID].value = _row_hiDay.value;

  var _row_hiQty  = document.getElementById(g_row_hiQty_01_id + strNbr);
  _localDocForm.elements[g_wtQtyObjID].value = _row_hiQty.value;
  
  var _row_lbVol  = document.getElementById(g_row_lbVol_01_id + strNbr);
  _localDocForm.elements[g_wtVolObjID].value = _row_lbVol.innerHTML;

  var _row_lbUnt  = document.getElementById(g_row_lbUnt_01_id + strNbr);
  var _lbUntObj  = document.getElementById(g_lbUntObjID);
  _lbUntObj.innerHTML = _row_lbUnt.innerHTML;

  var _row_hiSgnUnt  = _localDocForm.elements[g_row_hiSgnUnt_01_id + strNbr];
  var _row_hiSgn  = _localDocForm.elements[g_row_hiSgn_01_id + strNbr];
   _localDocForm.elements[g_hiSgnObjID].value = _row_hiSgn.value;
   _localDocForm.elements[g_hiSgnUntObjID].value =  _row_hiSgnUnt.value;
  var _row_txll  = _localDocForm.elements[g_row_txll_01_id + strNbr];
  var _row_txct  = _localDocForm.elements[g_row_txct_01_id + strNbr];
   _localDocForm.elements[g_wtIIRmkObjID].value = _row_txll.value;
   _localDocForm.elements[g_wtCTRmkObjID].value =  _row_txct.value;
   
  var _row_hiSyr  = document.getElementById(g_row_hiSyr_01_id + strNbr);
   _localDocForm.elements[g_hiSyrFObjID].value = _row_hiSyr.value;

  var _row_hiunt  = document.getElementById(g_row_hiUnt_01_id + strNbr);
   _localDocForm.elements[g_hiUntObjID].value = _row_hiunt.value;
   
   pr_drugRemoveLISTAll(g_wlIIxqObjID);
   pr_drugRemoveLISTAll(g_wlCTxqObjID);
   
   pr_drugMoveLISTAll(g_row_wlll_01_id.replace('_01_',strNbr+'_') + strNbr+'T',g_wlIIxqObjID,null)
   pr_drugMoveLISTAll(g_row_wlct_01_id.replace('_01_',strNbr+'_') + strNbr+'T',g_wlCTxqObjID,null)
   
}
function pr_drugIIRmk()
{
    if (pr_drugCheckChanged(g_wtIIRmkObjID,g_row_txll_01_id))
        pr_SetPID(g_wtIIRmkObjID,g_row_txll_01_id,g_row_trDd_01_id);
}
function pr_drugCTRmk()
{
    if (pr_drugCheckChanged(g_wtCTRmkObjID,g_row_txct_01_id))
        pr_SetPID(g_wtCTRmkObjID,g_row_txct_01_id,g_row_trDf_01_id);
}
function pr_SetPID(panelObjID,rowObjID,rowTRid)
{
      var _localDocForm=document.forms[0];
        var strNbr =    pr_SetRow_ID();
        if (!strNbr || strNbr == "")
            return;  
         var _hiupdObj = document.forms[0].elements[g_hiupdObjID];
         var    _hiUC_Obj  = _localDocForm.elements[g_row_hiUC_01_id + strNbr] 
       _hiupdObj.value = _hiUC_Obj.value = "Y";
        var  _ckD_Obj  = _localDocForm.elements[g_row_ckD_01_id + strNbr] 
        if (_ckD_Obj)
        {
                   _ckD_Obj.checked = false; 
         }
           var _row_tx  = _localDocForm.elements[rowObjID + strNbr];
           _row_tx.value = _localDocForm.elements[panelObjID].value;
          var _row_tr  = document.getElementById(rowTRid + strNbr);
            var _whACMObj  = document.getElementById(g_whACMObjID);
      if (_row_tx.value == "" || _whACMObj.checked)
            _row_tr.style.display = "none";
      else
         _row_tr.style.display = "";
}
function pr_drugQTY()
{  
      var _localDocForm=document.forms[0];
   var _newValue = _localDocForm.elements[g_wtQtyObjID].value;
    if (!IsNumeric(_newValue) || _newValue < 0)
    {
        _localDocForm.elements[g_wtQtyObjID].value = 0;
      pr_SetQty(); 
         return; 
    }
    if (pr_drugCheckChanged(g_wtQtyObjID,g_row_lbQty_01_id))
       pr_SetQty();     
}
function pr_SetQty()
{
      var _localDocForm=document.forms[0];
        var strNbr =    pr_SetRow_ID();
        if (!strNbr || strNbr == "")
            return;  
         var _hiupdObj = document.forms[0].elements[g_hiupdObjID];
         var    _hiUC_Obj  = _localDocForm.elements[g_row_hiUC_01_id + strNbr] 
       _hiupdObj.value = _hiUC_Obj.value = "Y";
        var  _ckD_Obj  = _localDocForm.elements[g_row_ckD_01_id + strNbr] 
        if (_ckD_Obj)
        {
                   _ckD_Obj.checked = false; 
         }
      var _row_lbQty  = document.getElementById(g_row_lbQty_01_id + strNbr);
      var _row_hiQty  = _localDocForm.elements[g_row_hiQty_01_id + strNbr];
     _row_hiQty.value = _row_lbQty.innerHTML= _localDocForm.elements[g_wtQtyObjID].value ;
      var _row_lbVol  = document.getElementById(g_row_lbVol_01_id + strNbr);
      _row_lbVol.innerHTML =  _localDocForm.elements[g_wtVolObjID].value;     
}
function pr_drugCheckChanged(wtObj, oldrowObj)
{
      var _localDocForm=document.forms[0];
    var strNbr =    pr_SetRow_ID();
    if (!strNbr || strNbr == "")
       return false;
   var _newValue = _localDocForm.elements[wtObj].value;
   var _row_lbDay  = document.getElementById(oldrowObj + strNbr);
   var _oldValue;
  if (_row_lbDay.tagName == INPUT_TAG)
     _oldValue = _row_lbDay.value;
   else 
     _oldValue = _row_lbDay.innerHTML;
   if (_oldValue !=  _newValue)
   {
     return true; 
    }
    return false;     
}
function pr_drugDAY()
{
  var _localDocForm=document.forms[0];
    var strNbr =    pr_SetRow_ID();
   var _newDay = _localDocForm.elements[g_wtDayObjID].value;
   var _lastChangeDay = _localDocForm.elements[g_hiDayObjID].value;
   var _row_lbDay  = document.getElementById(g_row_lbDay_01_id + strNbr);
   var _oldDay =  _row_lbDay.innerHTML;
  if (!IsNumeric(_newDay) || _newDay < 0)
  { 
     _localDocForm.elements[g_wtDayObjID].value = _lastChangeDay;
      pr_drugReCalculate();
       pr_SetDay(); 
     return; 
  } 
   if (_oldDay !=  _newDay || _newDay != _lastChangeDay)
   {
       if (_lastChangeDay !=  _newDay)
        {
              pr_drugReCalculate();
             _localDocForm.elements[g_hiDayObjID].value = _newDay;
        } 
       pr_SetDay(); 
   } 
}
function pr_SetDay()
{
      var _localDocForm=document.forms[0];
        var strNbr =    pr_SetRow_ID();
        if (!strNbr || strNbr == "")
            return;  
         var _hiupdObj = document.forms[0].elements[g_hiupdObjID];
         var    _hiUC_Obj  = _localDocForm.elements[g_row_hiUC_01_id + strNbr] 
       _hiupdObj.value = _hiUC_Obj.value = "Y";
        var  _ckD_Obj  = _localDocForm.elements[g_row_ckD_01_id + strNbr] 
        if (_ckD_Obj)
        {
                   _ckD_Obj.checked = false; 
         }
      var _row_lbQty  = document.getElementById(g_row_lbQty_01_id + strNbr);
      var _row_hiQty  = _localDocForm.elements[g_row_hiQty_01_id + strNbr];
     _row_hiQty.value = _row_lbQty.innerHTML= _localDocForm.elements[g_wtQtyObjID].value ;
      var _row_lbVol  = document.getElementById(g_row_lbVol_01_id + strNbr);
      _row_lbVol.innerHTML =  _localDocForm.elements[g_wtVolObjID].value;     
           var _row_lbDay  = document.getElementById(g_row_lbDay_01_id + strNbr);
      var _row_hiDay  = _localDocForm.elements[g_row_hiDay_01_id + strNbr];
      _row_hiDay.value = _row_lbDay.innerHTML = _localDocForm.elements[g_wtDayObjID].value;
 
}

function IsNumeric(strString)
   //  check for valid numeric strings	
   {
   var strValidChars = "0123456789.-";
   var strChar;
   var blnResult = true;

   if (strString.length == 0) return false;

   //  test strString consists of valid characters listed above
   for (i = 0; i < strString.length && blnResult == true; i++)
      {
      strChar = strString.charAt(i);
      if (strValidChars.indexOf(strChar) == -1)
         {
         blnResult = false;
         }
      }
   return blnResult;
   }

function pr_drugReCalculate()
{
      var _localDocForm=document.forms[0];
     var _wdFq1Obj = _localDocForm.elements[g_wdFq1ObjID];
     var _wdFrqObj = _localDocForm.elements[g_wdFrqObjID];
    setListObjSelected(_wdFq1Obj,_wdFrqObj.options[_wdFrqObj.selectedIndex].value,0);
     var _drugFrqString = _wdFq1Obj.options[_wdFq1Obj.selectedIndex].text;
    //utb_amt 
     var _wdDos1Obj = _localDocForm.elements[g_wdDos1ObjID];
     var _wdDosObj = _localDocForm.elements[g_wdDosObjID];
    setListObjSelected(_wdDos1Obj,_wdDosObj.options[_wdDosObj.selectedIndex].value,0);
     var _drugDosString = _wdDos1Obj.options[_wdDos1Obj.selectedIndex].text;
    var _drugDosDet = _drugDosString.split("%"); 
    ///utb_amt;utb_cde_1;utb_cde_2 
   var _newDay = _localDocForm.elements[g_wtDayObjID].value;
    var _factor = 1.000000;
    
   var _wdUn1Obj = _localDocForm.elements[g_wdUn1ObjID];
    ///cur_dcm_dgt   0
    ///cur_rnd_mtd     1
     var _finalCurString;
    /// get the factor if it involves sgh
    if (_localDocForm.elements[g_hiSgnUntObjID].value != "" && _localDocForm.elements[g_hiSgnObjID].value != "")
    {
        _factor = 1.00000000 / _localDocForm.elements[g_hiSgnObjID].value;
        if (_factor < 0)
                _factor = 0;        
        setListObjSelected(_wdUn1Obj, _localDocForm.elements[g_hiSgnUntObjID],0);
        _finalCurString = _wdUn1Obj.options[_wdUn1Obj.selectedIndex].text;
    }
    else
    {
        setListObjSelected(_wdUn1Obj, _localDocForm.elements[g_hiUntObjID],0);
      _finalCurString = _wdUn1Obj.options[_wdUn1Obj.selectedIndex].text;
    }
    var    _finalCurDet = _finalCurString.split(" "); 
    
    var _newVol = _drugDosDet[0] * _drugFrqString * _newDay;
    var _newQty = _newVol * _factor;
    
    _localDocForm.elements[g_wtVolObjID].value =  ///_newVol;
    _localDocForm.elements[g_wtQtyObjID].value = round_decimals(_newQty, _finalCurDet[0], _finalCurDet[1]);
}
function round_decimals(original_number, decimals, rnd) {
    var result1 = original_number * Math.pow(10, decimals)
    var result2;
    if (rnd = 'U19') 
        result2 = Math.ceil(result1)
    else 
        result2 = Math.round(result1)
    var result3 = result2 / Math.pow(10, decimals)
    return pad_with_zeros(result3, decimals)
}

function pad_with_zeros(rounded_value, decimal_places) {
    // Convert the number to a string
    var value_string = rounded_value.toString();
    // Locate the decimal point
    var decimal_location = value_string.indexOf(".");
    // Is there a decimal point?
    if (decimal_location == -1) {
        // If no, then all decimal places will be padded with 0s
        decimal_part_length = 0
        // If decimal_places is greater than zero, tack on a decimal point
        value_string += decimal_places > 0 ? "." : ""
    }
    else {
        // If yes, then only the extra decimal places will be padded with 0s
        decimal_part_length = value_string.length - decimal_location - 1;
    }
    // Calculate the number of decimal places that need to be padded with 0s
    var pad_total = decimal_places - decimal_part_length;
    if (pad_total > 0) {
        // Pad the string with 0s
        for (var counter = 1; counter <= pad_total; counter++) 
            value_string += "0";
        }
    return value_string;
}


function pr_drugDDOS()
{
      var _localDocForm=document.forms[0];
     var _wdDos1Obj = _localDocForm.elements[g_wdDos1ObjID];
     var _wdDosObj = _localDocForm.elements[g_wdDosObjID];
    setListObjSelected(_wdDos1Obj,_wdDosObj.options[_wdDosObj.selectedIndex].value,0);
     var _drugDosString = _wdDos1Obj.options[_wdDos1Obj.selectedIndex].text;
    var _drugDosDet = _drugDosString.split("%"); 
    ///utb_amt;utb_cde_1;utb_cde_2 
    var _hiUnt = _localDocForm.elements[g_hiUntObjID].value;
    var _hiSgnUnt = _localDocForm.elements[g_hiSgnUntObjID].value;
    if (   _hiUnt == _drugDosDet[1]
    || _hiUnt == _drugDosDet[2]
    || (_hiSgnUnt != "" && _hiSgnUnt == _drugDosDet[1] )
    || (_hiSgnUnt != "" && _hiSgnUnt == _drugDosDet[2] ))
    {
        pr_drugReCalculate();
       pr_SetDDOSorDFRQ(g_wdDosObjID,g_row_hiDos_01_id,g_row_lbDos_01_id); 
        return;
    } 
    var strNbr =    pr_SetRow_ID();
    var _row_hiDos  = _localDocForm.elements[g_row_hiDos_01_id + strNbr];
    setListObjSelected(_wdDosObj,_row_hiDos.value,0);
    pr_drugReCalculate();
       pr_SetDDOSorDFRQ(g_wdDosObjID,g_row_hiDos_01_id,g_row_lbDos_01_id); 
}
function pr_SetDDOSorDFRQ(wdFrqObjID,row_hiFrq_01_id,row_lbFrq_01_id)
{
      var _localDocForm=document.forms[0];
        var strNbr =    pr_SetRow_ID();
        if (!strNbr || strNbr == "")
            return;  
         var _hiupdObj = document.forms[0].elements[g_hiupdObjID];
         var    _hiUC_Obj  = _localDocForm.elements[g_row_hiUC_01_id + strNbr] 
       _hiupdObj.value = _hiUC_Obj.value = "Y";
        var  _ckD_Obj  = _localDocForm.elements[g_row_ckD_01_id + strNbr] 
        if (_ckD_Obj)
        {
                   _ckD_Obj.checked = false; 
         }
      var _row_lbQty  = document.getElementById(g_row_lbQty_01_id + strNbr);
      var _row_hiQty  = _localDocForm.elements[g_row_hiQty_01_id + strNbr];
     _row_hiQty.value = _row_lbQty.innerHTML= _localDocForm.elements[g_wtQtyObjID].value ;
      var _row_lbVol  = document.getElementById(g_row_lbVol_01_id + strNbr);
      _row_lbVol.innerHTML =  _localDocForm.elements[g_wtVolObjID].value;     

      var _row_hiFrq  = _localDocForm.elements[row_hiFrq_01_id + strNbr];
      var _row_lbFrq  = document.getElementById(row_lbFrq_01_id + strNbr);
      setReturnListSelected(wdFrqObjID,_row_hiFrq,_row_lbFrq);
 
}

function pr_drugDFRQ()
{
    pr_drugReCalculate();
    pr_SetDDOSorDFRQ(g_wdFrqObjID,g_row_hiFrq_01_id,g_row_lbFrq_01_id); 
}
function pr_drugMoveLISTAll(srcListNameID,tagListNameID,hiValues)
{
    var srcListNameObj =findDocObj(srcListNameID);
    var tagListNameObj =findDocObj(tagListNameID);
    if (!tagListNameObj || !srcListNameObj || !srcListNameObj.options || srcListNameObj.options.length == 0)
    {
        return;
    }
    for (var j=0; j<srcListNameObj.options.length; j++) 
    {
        tagListNameObj.options[j] = new Option(srcListNameObj.options[j].text,srcListNameObj.options[j].value,false,false);
       if (hiValues)
       { 
            if (hiValues.value != "")
                    hiValues.value += "|"; 
             hiValues.value +=  srcListNameObj.options[j].value;
       } 
    }
    return;
}
function pr_drugRemoveLISTObjAll(listObj)
{
    if (!listObj || !listObj.options || listObj.options.length == 0)
    {
        return;
    }
    listObj.options.length = 0;
    return;
}
function pr_drugRemoveLISTAll(inListName)
{
    var listObj =findDocObj(inListName);
    if (!listObj || !listObj.options || listObj.options.length == 0)
    {
        return;
    }
    listObj.options.length = 0;
    return;
}
function setReturnListSelected(listObjID,outValueObj,outTextObj)
{
    var listObj  = findDocObj(listObjID); 
    outValueObj.value = listObj.options[listObj.selectedIndex].value;
    outTextObj.innerHTML = listObj.options[listObj.selectedIndex].text;
}
function setListObjSelected(listObj,inputValue,startPos)
{
    if (startPos < 0)
        startPos = 0;
    if  (listObj.options.length < startPos)
        return;
    for (var j=0;j<listObj.options.length; j++) 
    {
       if (listObj.options[j].value == inputValue) 
       {
           listObj.selectedIndex = j;
           break;
       }
    }
}
function setListSelected(listObjID,inputValue)
{
    var listObj  = findDocObj(listObjID); 
    for (var j=0;j<listObj.options.length; j++) 
    {
       if (listObj.options[j].value == inputValue) 
       {
           listObj.selectedIndex = j;
           break;
       }
    }
}
function pr_drugAddBprClt2()
{
     var _localDocForm=document.forms[0];
    var strNbr =    pr_SetRow_ID();
    var  _ckD_Obj  = _localDocForm.elements[g_row_ckD_01_id + strNbr] 

    if (_ckD_Obj)
    {
     // the drug should already in the list     
       _ckD_Obj.checked = false;
          var _hiupdObj = _localDocForm.elements[g_hiupdObjID];
         var    _hiUC_Obj  = _localDocForm.elements[g_row_hiUC_01_id + strNbr] 
       _hiupdObj.value = _hiUC_Obj.value = "Y";
          var _wibUpdAObj = document.getElementById(g_wibUpdAObjID);
          var _wibUpdBObj = document.getElementById(g_wibUpdBObjID);
        var _wibMinuBObj = document.getElementById(g_wibMinuBObjID);
        var _wibMinuAObj = document.getElementById(g_wibMinuAObjID);
        _wibUpdAObj.style.display = _wibUpdBObj.style.display = "none" ;
        _wibMinuBObj.style.display = _wibMinuAObj.style.display = "" ;
       var _wtDgObj = _localDocForm.elements[g_wtDgObjID];
      _wtDgObj.focus();
       /// MOVE FIELDS back to the grid

      var _row_hiFrq  = _localDocForm.elements[g_row_hiFrq_01_id + strNbr];
      var _row_lbFrq  = document.getElementById(g_row_lbFrq_01_id + strNbr);
      setReturnListSelected(g_wdFrqObjID,_row_hiFrq,_row_lbFrq);

      var _row_hiDos  = _localDocForm.elements[g_row_hiDos_01_id + strNbr];
      var _row_lbDos  = document.getElementById(g_row_lbDos_01_id + strNbr);
      setReturnListSelected(g_wdDosObjID,_row_hiDos,_row_lbDos);

      var _row_lbDay  = document.getElementById(g_row_lbDay_01_id + strNbr);
      var _row_hiDay  = _localDocForm.elements[g_row_hiDay_01_id + strNbr];
      _row_hiDay.value = _row_lbDay.innerHTML = _localDocForm.elements[g_wtDayObjID].value;

      var _row_lbQty  = document.getElementById(g_row_lbQty_01_id + strNbr);
      var _row_hiQty  = _localDocForm.elements[g_row_hiQty_01_id + strNbr];
     _row_hiQty.value = _row_lbQty.innerHTML= _localDocForm.elements[g_wtQtyObjID].value ;

      var _row_lbVol  = document.getElementById(g_row_lbVol_01_id + strNbr);
      _row_lbVol.innerHTML =  _localDocForm.elements[g_wtVolObjID].value;

  var _row_txll  = _localDocForm.elements[g_row_txll_01_id + strNbr];
  var _row_txct  = _localDocForm.elements[g_row_txct_01_id + strNbr];
   _row_txll.value = _localDocForm.elements[g_wtIIRmkObjID].value;
  _row_txct.value =  _localDocForm.elements[g_wtCTRmkObjID].value ;
  var _row_trDd_01_id  = document.getElementById(g_row_trDd_01_id + strNbr);
        var _whACMObj  = document.getElementById(g_whACMObjID);
  if (_row_txll.value == "" || _whACMObj.checked)
    _row_trDd_01_id.style.display = "none";
  else
  _row_trDd_01_id.style.display = "";

  var _row_trDf_01_id  = document.getElementById(g_row_trDf_01_id + strNbr);
  if (_row_txct.value == ""  || _whACMObj.checked)
    _row_trDf_01_id.style.display = "none";
  else
  _row_trDf_01_id.style.display = "";

   var _rowllListObjID = g_row_wlll_01_id.replace('_01_',strNbr+'_') + strNbr+'T';
   var _rowctListObjID = g_row_wlct_01_id.replace('_01_',strNbr+'_') + strNbr+'T';
      var _rowllListObj = _localDocForm.elements[_rowllListObjID];
      var _rowctListObj = _localDocForm.elements[_rowctListObjID];

  var _row_hiINTIObj  = _localDocForm.elements[g_row_hiINTI_01_id + strNbr];
  var _row_hiCAUTObj  = _localDocForm.elements[g_row_hiCAUT_01_id + strNbr];
  _row_hiINTIObj.value =
  _row_hiCAUTObj.value =""; 

   pr_drugRemoveLISTObjAll(_rowllListObj);
   pr_drugRemoveLISTObjAll(_rowctListObj);
   
   pr_drugMoveLISTAll(g_wlIIxqObjID, _rowllListObjID, _row_hiINTIObj)
   pr_drugMoveLISTAll(g_wlCTxqObjID,_rowctListObjID, _row_hiCAUTObj)

  var _row_trDc_01_id  = document.getElementById(g_row_trDc_01_id + strNbr);
  var _row_trDe_01_id  = document.getElementById(g_row_trDe_01_id + strNbr);
    if (_whACMObj.checked)
    {
          _row_trDc_01_id.style.display = _row_trDe_01_id.style.display = "none";
    }
    else
    {
          pr_SetListTr(_row_trDc_01_id,_rowllListObj);
          pr_SetListTr(_row_trDe_01_id,_rowctListObj);
    } 
       /// update grid espeically hiUC
       pr_CloseTrMore();
       
        return false;
    }
    return false;
}
function pr_CloseTrMore()
{
        var _trMore =findDocObj("trMore");
        if (_trMore)
            _trMore.style.display="none"; 
}
function pr_SetListTr(row_trID,listObj)
{
          if (!listObj.options || listObj.options.length == 0)
          {
            row_trID.style.display = "none";
          }
          else
          {
              row_trID.style.display = "";
          }
}
function pr_drugRemoveBprClt2()
{
    var _localDocForm=document.forms[0];
    var strNbr =    pr_SetRow_ID();
    var _ckD_Obj  = _localDocForm.elements[g_row_ckD_01_id + strNbr] 
    if (_ckD_Obj)
    {
       _ckD_Obj.checked = true;
          var _hiupdObj = _localDocForm.elements[g_hiupdObjID];
       _hiupdObj.value = "Y";
        var _wibMinuBObj = document.getElementById(g_wibMinuBObjID);
        var _wibMinuAObj = document.getElementById(g_wibMinuAObjID);
       //   var _wibUpdAObj = document.getElementById(g_wibUpdAObjID);
       //   var _wibUpdBObj = document.getElementById(g_wibUpdBObjID);
        //_wibUpdAObj.style.display = _wibUpdBObj.style.display = "" ;
        _wibMinuBObj.style.display = _wibMinuAObj.style.display = "none" ;
        var _wtDgObj = _localDocForm.elements[g_wtDgObjID];
        _wtDgObj.focus();
       pr_CloseTrMore();
    }
    /// mark the checkbox and hiUC
    return false;
}
function pr_drugRemoveCAUTprClt2()
{
    this.pr_drugRemoveLISTprClt2("wlCTxq");
    this.pr_set_PIDList(g_row_wlct_01_id,g_row_hiCAUT_01_id,g_wlCTxqObjID,g_row_trDe_01_id);
    return false;
}
function pr_drugRemoveINTIprClt2()
{
    this.pr_drugRemoveLISTprClt2("wlIIxq");
    this.pr_set_PIDList(g_row_wlll_01_id,g_row_hiINTI_01_id,g_wlIIxqObjID,g_row_trDc_01_id);
    return false;
}
function pr_set_PIDList(row_wlll_01_id,row_hiINTI_01_id,wlIIxqObjID,row_trDc_01_id)
{
      var _localDocForm=document.forms[0];
        var strNbr =    pr_SetRow_ID();
        if (!strNbr || strNbr == "")
            return;  
         var _hiupdObj = document.forms[0].elements[g_hiupdObjID];
         var    _hiUC_Obj  = _localDocForm.elements[g_row_hiUC_01_id + strNbr] 
       _hiupdObj.value = _hiUC_Obj.value = "Y";
        var  _ckD_Obj  = _localDocForm.elements[g_row_ckD_01_id + strNbr] 
        if (_ckD_Obj)
        {
                   _ckD_Obj.checked = false; 
         }
            var _whACMObj  = document.getElementById(g_whACMObjID);

   var _rowllListObjID = row_wlll_01_id.replace('_01_',strNbr+'_') + strNbr+'T';
      var _rowllListObj = _localDocForm.elements[_rowllListObjID];

  var _row_hiINTIObj  = _localDocForm.elements[row_hiINTI_01_id + strNbr];
  _row_hiINTIObj.value =""; 
   pr_drugRemoveLISTObjAll(_rowllListObj);   
   pr_drugMoveLISTAll(wlIIxqObjID, _rowllListObjID, _row_hiINTIObj)

  var _row_trDc_01_id  = document.getElementById(row_trDc_01_id + strNbr);
    if (_whACMObj.checked)
    {
          _row_trDc_01_id.style.display  = "none";
    }
    else
    {
          pr_SetListTr(_row_trDc_01_id,_rowllListObj);
    } 
}
function pr_drugRemoveLISTprClt2(inListName)
{
    var listObj =findObj(inListName);
    if (!listObj || !listObj.options || listObj.options.length == 0)
    {
        return false;
    }
    for (var j=listObj.options.length; j>0; j--) 
    {
       if (listObj.options[j-1].selected) 
       {
            listObj.options[j-1] = null;
       }
    }
    return false;
}
function findFrameObj(inID,fmeName)
{
    if (!parent.frames || parent.frames.length <= 0)
        return null; 
     var frameDoc = parent.frames[fmeName].document;
    if (!frameDoc) 
        return null; 
     var oTargDpB = frameDoc.getElementById(inID);
     if (!oTargDpB) 
     { 
         oTargDpB = findGnObj(inID,frameDoc.forms[0],false);
     }
    return oTargDpB;
}
function findGnObj(inID,holder,byID)
{
    var oTargDpB;
    if (byID)
    {
     for (var j=0; j<holder.elements.length; j++) 
     {
         if 	(holder.elements[j].id.indexOf(inID) != -1)    
        {
      	 	oTargDpB = holder.elements[j];
       	 	break;
    	  } 
     }
    }
    else
    {
     for (var j=0; j<holder.elements.length; j++) 
     {
         if 	(holder.elements[j].name.indexOf(inID) != -1)    
        {
      	 	oTargDpB = holder.elements[j];
       	 	break;
    	  } 
     }
    } 
    return oTargDpB;
}
function findFrameObjID(inID,fmeName)
{
    if (!parent.frames || parent.frames.length <= 0)
        return null; 
     var frameDoc = parent.frames[fmeName].document;
    if (!frameDoc) 
        return null; 
     var oTargDpB = frameDoc.getElementById(inID);
     if (!oTargDpB) 
     { 
         oTargDpB = findGnObj(inID,frameDoc.forms[0],true);
     }
    return oTargDpB;
}
function findDocObj(inID)
{
     var oTargDpB = document.getElementById(inID);
     if (!oTargDpB) 
     { 
         oTargDpB = findGnObj(inID,document.forms[0],false);
     }
    return oTargDpB;
}
function findDocObjID(inID)
{
     var oTargDpB = document.getElementById(inID);
     if (!oTargDpB) 
     { 
         oTargDpB = findGnObj(inID,document.forms[0],true);
     }
    return oTargDpB;
}
function findObj(inID)
{
    var srcEl = event.srcElement ? event.srcElement : event.target;
    var oTargDpB = srcEl.document ? srcEl.document.getElementById(inID) : document.getElementById(inID);
     if (!oTargDpB) 
     {
         oTargDpB = findGnObj(inID, srcEl.document ? srcEl.document.forms[0] : document.forms[0], false);
     }
    return oTargDpB;
}
function findObjID(inID)
{
    var srcEl = event.srcElement ? event.srcElement : event.target;
    var oTargDpB = srcEl.document ? srcEl.document.getElementById(inID) : document.getElementById(inID);
     if (!oTargDpB) 
     {
         oTargDpB = findGnObj(inID, srcEl.document ? srcEl.document.forms[0] : document.forms[0], true);
     }
    return oTargDpB;
}
function billCalc()
{
    var srcEl = event.srcElement ? event.srcElement : event.target;
    var selectedV = srcEl.value; 

     var oTargDpB = findObj("wdSB");
     var oTargDp = findObj("wdBlDt");
     var oTargwtAmtD = findObj("wtAmtD");
     var oTargtrDef = oTargwtAmtD.parentElement ? oTargwtAmtD.parentElement.parentElement : oTargwtAmtD.parentNode.parentNode;
       
     var oTargwtLabi = findObj("wtLabi");
     var oTargtrLb = oTargwtLabi.parentElement ? oTargwtLabi.parentElement.parentElement : oTargwtLabi.parentNode.parentNode;
     var oTargwtLab = findObj("wtLab");
     var oTargtrLa = oTargwtLab.parentElement ? oTargwtLab.parentElement.parentElement : oTargwtLab.parentNode.parentNode;

     var oTargwtAmtBF = findObj("wtAmtBF");     
     var oTargwtAmtBA = findObj("wtAmtBA");     
     var oTargwtAmtB = findObj("wtAmtBC");     
     var oTargwtRmk = findObj("wtRkA");     
     var oTarghidTxtChg = findObj("hidTxtChg");     
     var billDetl='';
     var  billAmt='';
     var ttC =  0;

     if (oTargDp && oTargDpB)
    {
            for (i = 0; i < oTargDpB.length; i++) 
            {
                if (oTargDpB.options[i].value == selectedV)
                    billAmt = oTargDpB.options[i].text;
            }
            for (i = 0; i < oTargDp.length; i++) 
            {
                if (oTargDp.options[i].value == selectedV)
                    billDetl = oTargDp.options[i].text;
            }
           if (billDetl)
           {
               
                var tpbillDetl = new Array(); 
                tpbillDetl = billDetl.split(';'); 
                var tpbillAmt = new Array(); 
                if (billAmt)
                {
                    tpbillAmt = billAmt.split('|'); 
                }
                if (tpbillDetl)
                {
                    // billDetl 6 control  list price wtAmtD
                     if(tpbillDetl.length > 5 && tpbillDetl[6] != '' && tpbillDetl[6] != '0')
                    {
                       ttC =  parseFloat(tpbillDetl[6],10);
                       if (ttC == 0) 
                       {
                           oTargwtAmtD.value = "";
                           oTargtrDef.style.display = "none" ;
                        }
                       else
                       {
                            oTargtrDef.style.display = "" ;
                            oTargwtAmtD.value=tpbillDetl[6]; 
                       } 
                    }
                    else
                    {
                        oTargwtAmtD.value = "";
                        oTargtrDef.style.display = "none" ;
                    } 

                // billDetl 8 control  trLb and trLa - "Y"
                // wtLabi and wtIhlt NA for non lab item
                     if(tpbillDetl.length > 7 && tpbillDetl[8] == 'Y')
                    {
                  /// lab test item  
                        oTargtrLa.style.display = oTargtrLb.style.display = oTargwtLabi.value = oTargwtRmk.value = oTargwtAmtD.value = oTargwtAmtBF.value = "";
                        oTargwtAmtBA.value = oTargwtAmtB.value = oTarghidTxtChg.value = "0";
                    }
                    else
                    {
                        oTargtrLa.style.display = oTargtrLb.style.display =  "none" ;
                        oTargwtLabi.value = "NA"; 
                        oTargwtAmtBA.value =  oTargwtAmtB.value = oTarghidTxtChg.value = "0";
                        oTargwtAmtBF.value = oTargwtRmk.value = "";    
                       if (tpbillAmt)
                       { 
                            if (tpbillAmt.length == 0)
                            {
                                if (ttC != 0)
                                {
                                    oTarghidTxtChg.value = ttC;
                                     oTargwtAmtB.value = ttC;
                                     oTargwtAmtBF.value = ttC;                 
                                }       
                            }
                            else
                            {
                                 var totalAmt =   parseFloat(tpbillAmt[0],10); 
                                 var AdjAmt =   parseFloat(tpbillAmt[1],10); 
                                var orgAmt = totalAmt - AdjAmt; 
                                oTargwtAmtB.value = orgAmt;
                                oTarghidTxtChg.value = orgAmt;
                                oTargwtAmtBA.value = AdjAmt;
                                oTargwtAmtBF.value = totalAmt;
                                if (tpbillAmt.length > 2)
                                {
                                   oTargwtRmk.value = tpbillAmt[2];
                                }
                            }
                       } 
                       else
                       {
                            if (ttC != 0)
                            {
                                oTarghidTxtChg.value = ttC;
                                 oTargwtAmtB.value = ttC;
                                 oTargwtAmtBF.value = ttC;                 
                            }       
                       }
                    } 
                }           
                // billAmt 0 total  wtAmtBF
                // billAmt 1 total  wtAmtBA
                // calculate wtAmtB
                // billAmt 2 total  wtRmk
           } 
       }
}
function SetVariable(sVaN, vVaV) {
	document.cookie = sVaN + "=" + cktrim(vVaV) + ";expires=Mon, 01-Jan-9999 00:00:00 GMT";
}
function nocopy(inMsg) {if (event.button==2) {
alert(inMsg);
return false;}}
function SetGlobalVariable(sVaN, vVaV) {
	document.cookie = sVaN + "=" + cktrim(vVaV) + ";expires=Mon, 01-Jan-9999 00:00:00 GMT" + ";path=" + C_A_PH;
}
function ReadVariable(sVaN) {
	var itNaLg = sVaN.length;
	var iLain = document.cookie.indexOf(sVaN);
	if (iLain == -1)
		{return(NOT_FOUND);}
	else
	{	var strTemp = document.cookie.substr( iLain, document.cookie.length - iLain + 1);

		if (strTemp.substr(itNaLg, 1) != "=")
			{return(NOT_FOUND);}

		else
		{	var iNSeic = strTemp.indexOf(";");

			if (iNSeic == 0  || iNSeic == -1)
			 {iNSeic = strTemp.length + 1}

			if (iNSeic == (itNaLg + 1) )
			{	return("");	}
			else
			{	
				var intValueLength = iNSeic - itNaLg - 1;
				return(strTemp.substr(itNaLg + 1, intValueLength)); }
		}
	}
}

function ReadVariableEx(sVaN) {
   var VariableEx = ReadVariable(sVaN);
   if (VariableEx == NOT_FOUND) 
	{return("");}
	else
	{return(VariableEx);}
}

function noBackButton()
{
    window.history.go(1);
//    window.history.forward(1);
    //history.forward();
}

function cktrim(iSrng)
{
  var ocar = "";
  var i =-1;
  do 
	{ ++i; }
  while ( ( i < iSrng.length ) && ( iSrng.charAt(i) == " " )  )
  if  ( i > 1  )
  { ocar = iSrng.substr(i ,iSrng.length - i ); }
	else
  { ocar = iSrng; }
  if ( ocar.length > 0 )
  { i = 0 ;
  do 
	{ ++i; }
  while ( ( i < iSrng.length ) && ( ocar.charAt(ocar.length - i) == " " )  )
  ocar = ocar.substr(0 ,ocar.length -  ( i - 1) );
  }
  return(ocar);
}

function LoadMoreStyle(elems,load)
{
	var els = elems.split(";");
	for(i=0;i<els.length;i++)
	{
		var moreStyle = "none";
		if (load) moreStyle = "";
		whichEl = eval(els[i]);
		whichEl.style.display = moreStyle;
	}
}
function ShowMore(elems)
{
	var els = elems.split(";");
	for(i=0;i<els.length;i++)
	{
		whichEl = eval(els[i]);
		whichEl.style.display = "";
		SetGlobalVariable("LastMore_" + els[i],whichEl.style.display);
	}
}
function hieMore(elems)
{
	var els = elems.split(";");
	for(i=0;i<els.length;i++)
	{
		whichEl = eval(els[i]);
		whichEl.style.display = "none";
	}
}
function LoadMore(elems,isPostBack,load)
{
    LoadMoreStyle(elems,load);
}
function tmt_winOpen(u,id,f,df){
	if(eval(id)==null||eval(id+".closed")){
	eval(id+"=window.open('"+u+"','"+id+"','"+f+"')");eval(id+".focus()");}
	else if(df){eval(id+"=window.open('"+u+"','"+id+"','"+f+"')");eval(id+".focus()");}
	else{eval(id+"=window.open('"+u+"','"+id+"','"+f+"')");eval(id+".focus()");}
}
function SetFocusOn(el)
{
	var exl = document.getElementById(el);
	if (exl && !exl.disabled && !exl.readonly) exl.focus();
}
function SetSelectOn(el)
{
    var srcEl = event.srcElement ? event.srcElement : event.target;
    var exl = document.getElementById(el);
    if (!exl)
        exl = srcEl.document ? srcEl.document.getElementById(el) : document.getElementById(el);
	if (exl && !exl.disabled && !exl.readonly) 
	{
	        var oRge = exl.createTextRange();
            oRge.moveStart("character", 0);
            oRge.moveEnd("character", exl.value.length);
            oRge.select();
//        	exl.select();
	}
}
window.onerror = errorHandler;
function errorHandler(message, url, line)
{
   return true;
}
function SetWindowTitle(titleValue)
{
    top.document.title = titleValue;
     var dStr = 'top.document.title = "' + titleValue + '";';
     window.setTimeout(dStr,35);
}
function OpenFrameWindow(e3,e2,e1)
{
// e2 url
// e3 name
// e1 0 - no open window 1- open window no toolbar and other open window with toolbar
    var frameDone = false;
    if (parent.frames && parent.frames.length > 0)
    {
       for (var j=0; j<parent.frames.length; j++) 
       {
             if (parent.frames[j].name == e3)
            {
               if (parent.frames[j].location.href == e2)
              { 
                    parent.frames[j].location.reload(true); 
                   } 
                else
                {
                    parent.frames[j].location.href = e2;
                   } 
                return; 
            }
       } 
       
    }
    if (e1 == 0)
      return;
    if (e1 == 1)
    {    
    	eval(e3+"=window.open('"+e2+"','"+e3+"','toolbar=no,menubar=no,resizable=yes,status=yes,scrollbars=yes,location=no')");
	    eval(e3+".focus()");
	}
	else
    {
	    eval(e3+"=window.open('"+e2+"','"+e3+"')");
	    eval(e3+".focus()");
    }	 
}
function OpenWindow(e3,e2)
{
	eval(e3+"=window.open('"+e2+"','"+e3+"')");
	eval(e3+".focus()");
}
function OpenWindowNoToolBar(e3,e2)
{
	eval(e3+"=window.open('"+e2+"','"+e3+"','toolbar=no,menubar=no,resizable=yes,status=yes,scrollbars=yes,location=no')");
	eval(e3+".focus()");
}
function DateFromTo(radioId)
{
    var srcEl = event.srcElement ? event.srcElement : event.target;
    for (j = 0; j < document.forms[0].elements.length; j++) 
	{
	    var _localDocForm = srcEl.document ? srcEl.document.forms[0] : document.forms[0];
	    if ((_localDocForm.elements[j].id.indexOf(radioId) != -1)
		 && (_localDocForm.elements[j].type == "radio"))
		{
			var RadioElem = _localDocForm.elements[j];
			RadioElem.checked = true;
		}
	}
}
function checkBrowser(){
	var bV=parseInt(navigator.appVersion);
	NS4=(document.layers) ? true : false;
	IE4=((document.all)&&(bV >=4))?true:false;
	ver4 = (NS4 || IE4) ? true : false;
	if (IE4) return true;
		else return false;
}
function expandIt(el){
	if (!checkBrowser()) { expandItNs(el);return}
	whichEl = eval(el);
	whichEl.style.display = (whichEl.style.display == "none" ) ? "" : "none";
}
function expandItTr(el){
    var whichEl;
    var srcEl = event.srcElement ? event.srcElement : event.target;
    var oSrcElt = srcEl.parentElement ? srcEl.parentElement.parentElement.parentElement.parentElement.parentElement.parentElement.parentElement : srcEl.parentNode.parentNode.parentNode.parentNode.parentNode.parentNode.parentNode;
    var oSrcEltP = oSrcElt.parentElement ? oSrcElt.parentElement : srcEl.parentNode;
    for (j = 0; j < oSrcEltP.childNodes.length; j++) 
    {
        if (oSrcEltP.childNodes[j].id.indexOf(el) != -1)
       {
           whichEl = oSrcEltP.childNodes[j];
        }
    }
	whichEl.style.display = (whichEl.style.display == "none" ) ? "" : "none";
}
function expandItNs(the_sub){
	document.getElementById(the_sub).style.display = (document.getElementById(the_sub).style.display == "none" ) ? "" : "none";
}
function validateFieldToken(oSrc, args)
{
   var valid = true;
   if(args == null ) return;
   if (args.Value == "")
		valid = true;
	else
	    valid = CheckChars(args.Value,"0123456789");
     args.IsValid = valid;
}
function validateFieldNum(oSrc, args)
{
   var valid = true;
   if(args == null ) return;
   if (args.Value == "")
		valid = true;
	else
	    valid = CheckChars(args.Value,"0123456789");
     args.IsValid = valid;
}
function validateFieldLogonAC(oSrc, args)
{
   var valid = true;
   if(args == null ) return;
   if (args.Value == "")
		valid = true;
	else
	    valid = CheckCharsU(args.Value,"@0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_.");
     args.IsValid = valid;
}
function validateFieldPsw(oSrc, args)
{
   var valid = true;
   if(args == null ) return;
   if (args.Value == "")
		valid = true;
	else
        valid = CheckChars(args.Value,"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz@_.+-!?$");
     args.IsValid = valid;
}
function validateFieldRef(oSrc, args)
{
   var valid = true;
   if(args == null ) return;
   if (args.Value == "")
		valid = true;
	else
	    valid = CheckChars(args.Value, "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz@_.+-*$");
    args.IsValid = valid;
}
function validateFieldRefUpper(oSrc, args)
{
   var valid = true;
   if(args == null ) return;
   if (args.Value == "")
		valid = true;
	else
	    valid = CheckCharsU(args.Value, "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@_.+-*$");
    args.IsValid = valid;
}
function validateFieldGenRefUpper(oSrc, args)
{
   var valid = true;
   if(args == null ) return;
   if (args.Value == "")
		valid = true;
	else
        valid = CheckCharsU(args.Value, "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ");
    args.IsValid = valid;
}
function CheckCharsU(dTCck, char_set)
{
    var valid = true;
    for (i=0;i<dTCck.length;i++)
	{
		if (char_set.indexOf(dTCck.toUpperCase().substr(i,1)) == -1)
		{
			valid = false;
			break;
		}
	}		

	return(valid);
}
function CheckChars(dTCck, char_set)
{
    var valid = true;
    for (i=0;i<dTCck.length;i++)
	{
		if (char_set.indexOf(dTCck.substr(i,1)) == -1)
		{
			valid = false;
			break;
		}
	}		

	return(valid);
}
function validateFieldExSp(oSrc, args)
{
   var valid = true;
   if(args == null ) return;
   if (args.Value == "")
		valid = true;
	else
        valid = ExCheckChars(args.Value, "><\"");
    args.IsValid = valid;
}
function ExCheckChars(dTCck, char_set)
{
    var valid = true;
    for (i=0;i<dTCck.length;i++)
	{
		if (char_set.indexOf(dTCck.substr(i,1)) != -1)
		{
			valid = false;
			break;
		}
	}		

	return(valid);
}

var dummyVariable; // resolves bug in .NET environment
function dummy()  // resolves bug in .NET environment
{
}
function IsValidEventSource() {
    var oSrcElt = event.srcElement ? event.srcElement : event.target;
	if (oSrcElt.tagName == INPUT_TAG) return(true);
	else return(false);
}
function IsValidOpener() {
    var srcEl = event.srcElement ? event.srcElement : event.target;
    var oWin = srcEl.document ? srcEl.document.parentWindow : document.parentWindow;
	var oOpenerWin = oWin.opener;
	if (oOpenerWin == null) {
		return(false);
	}
	var nIdx = -2;
	var sOD = oWin.name;
	try {
		nIdx = sOD.indexOf("OpenerTS=");
	}
	catch(e) {
		return(false);
	}
	var sOpenerTS = "";
	if (nIdx > -1) {
		nIdx += 9;
		while (nIdx < sOD.length && sOD.charAt(nIdx) != "&") {
			sOpenerTS += sOD.charAt(nIdx);
			nIdx ++;
		}
	}
	var sBrowseTS = "";
	try {
	    var sBrowseTS = oOpenerWin.document ? oOpenerWin.document.BrowseTS : document.BrowseTS;
	}
	catch (e) {
		return(false);
	}
	if (sOpenerTS == sBrowseTS) {
		return(true);
	}
	else return(false);
}
function HndlOnDteOkClick() {
    var srcEl = event.srcElement ? event.srcElement : event.target;
    if (IsValidEventSource() && IsValidOpener()) {
        var sOD = srcEl.document ? srcEl.document.parentWindow.name : document.parentWindow.name;
		var bUpdTarget = true;
		if (bUpdTarget) {
			var bOpenerWinExists = true;
			var oWin = srcEl.document ? srcEl.document.parentWindow : document.parentWindow;
			var date = "";
			var _localDocForm = srcEl.document ? srcEl.document.forms[0] : document.forms[0];
			for (j=0; j<_localDocForm.elements.length; j++) {
				if ((_localDocForm.elements[j].id.indexOf("hiDte") != -1)
				&& (_localDocForm.elements[j].type == "hidden")
				&& (_localDocForm.elements[j].id.length >= 4)) {
					date = _localDocForm.elements[j].value;
				}
			}
			var nIdx = -2;
			try {
				nIdx = sOD.indexOf("SrchID=");
			}
			catch(e) {
				return(false);

			}
			var sTargetID = "";
			if (nIdx > -1) {
				nIdx += 7;
				while (nIdx < sOD.length && sOD.charAt(nIdx) != "&") {
					sTargetID += sOD.charAt(nIdx);
					nIdx ++;
				}
			}
			try {
				var oOpenerWin = oWin.opener;
			}
			catch(e) {
				bOpenerWinExists = false;
				alert("Cannot access opening window.");
			}
			finally {
				if (bOpenerWinExists) {
				    var oTargetElt = oOpenerWin.document ? oOpenerWin.document.getElementById(sTargetID) : document.getElementById(sTargetID);
					oTargetElt.value = date;
					oOpenerWin.focus();
					oWin.close();
				}
			}
		}
	}
}
function compareDrugDateandRefreshFrame(inDate,msg)
{
    compareDateandRefreshFrame(DRUG_FRAME,inDate,'wdMax',msg);
}
function compareDateandRefreshFrame(fmeName,inDate,fmeDteObj,msg)
{
    if (parent.frames.length > 0)
    {
        var listObj;
        var frameDoc = parent.frames[fmeName].document;
        listObj = frameDoc.getElementById(fmeDteObj);
        if (!listObj)
        {                
                var frameDocFrm = frameDoc.forms[0];
                    //stupid way because ID is not generated  
    	        for (j=0; j<frameDocFrm.elements.length; j++) 
    	        {
			        if 
			         (
				    (frameDocFrm.elements[j].tagName == SELECT_TAG)
				     &&
    				(frameDocFrm.elements[j].name.indexOf(fmeDteObj) != -1)    
				    )
				    {
    					listObj = frameDocFrm.elements[j];
            			break;
	    			}
		    	}
        } 
        if (listObj)
        {
               if ( listObj.value < inDate)
              {
                 var lblMsg = document.getElementById(LABEL_CROSS); 
                if (lblMsg)
                         lblMsg.innerHTML = msg;
                parent.frames(fmeName).location.reload(true); 
              }
        }
    }
}
function ClearMsgofMainFrame()
{
    if (parent.frames.length > 0)
    {
        var frameDoc = parent.frames[MAIN_FRAME];
       if (frameDoc)
       { 
          var lblMsg = frameDoc.document.getElementById(LABEL_CROSS); 
          if (lblMsg)
               lblMsg.innerHTML = '';
       }
    }
}
function RefreshAFrame(frameName, url)
{
    if (parent.frames && parent.frames.length > 0)
    {
       for (var j=0; j<parent.frames.length; j++) 
       {
             if (parent.frames[j].name == frameName)
            {
               if (parent.frames[j].location.href == url)
                    parent.frames[j].location.reload(true); 
                else
                    parent.frames[j].location.href = url;
            }
       } 
    }
}
function AllRefreshFrames()
{
    if (parent.frames && parent.frames.length > 0)
    {
       for (var j=0; j<parent.frames.length; j++) 
       {
             if (parent.frames[j].name != self.name && parent.frames[j].location.href != '')
            {
                parent.frames[j].location.reload(true); 
             }
       }
   }
}

function cBSPt(objId, addObj, tbTYPE, field, evt, lblID)
{
    var elmy = evt.srcElement ? evt.srcElement : evt.target;
    var _localDocForm = elmy.document ? elmy.document.forms[0] : document.forms[0];
    var unicode = evt.charCode ? evt.charCode : evt.keyCode;

    if (unicode == 9) //tab
    {    return;    }
    else if (unicode == 40) //down
	{	    this.lkUpT(evt, false);  }
	else if (unicode == 38) //up
	{ this.lkUpT(evt, true); }
    else
        if (!this.cPUEsc(evt)) {
        var newString = reSg("|","",field.value);
        var outAddObj = '';
        if (addObj != '')
        {
            var exl = elmy.document ? elmy.document.getElementById(addObj + '_T') : document.getElementById(addObj + '_T');
            if (!exl)
           {
               exl = elmy.document ? elmy.document.getElementById(addObj) : document.getElementById(addObj);
           }
            if (!exl)
            {                
            //stupid way because ID is not generated
                addObj = reSg('_','$',addObj);            	
    	        for (j=0; j<_localDocForm.elements.length; j++) 
    	        {
			        if 
			         (
				    (_localDocForm.elements[j].tagName == SELECT_TAG)
				     &&
    				(_localDocForm.elements[j].name.indexOf(addObj) != -1)    
				    )
				    {
				        exl = _localDocForm.elements[j];
            			break;
	    			}
		    	}
            }
    	    if (exl)
            {
                outAddObj = exl.value;
            }
        }    

     var localLookup = false; 
     var listObj; 
    var frameDoc; 
    var frameDocFrm; 
    ///new 20090312
    var field_EnableBarcodeDecode = field.EnableBarcodeDecode ? field.EnableBarcodeDecode : field.getAttribute('EnableBarcodeDecode');
    if (field_EnableBarcodeDecode && field_EnableBarcodeDecode == 'Y') 
     {
        if (field.value.length >1 && field.value.substring(0,2)=='%$')
       { 
           returnString =''; 
           var lblElmentX1 = document.getElementById(lblID);
           if (lblElmentX1)
               gHPl(returnString, lblElmentX1, elmy);
           return; 
        } 
     }      ///new 20090312
     var field_DirectPushToListAtClient = field.DirectPushToListAtClient ? field.DirectPushToListAtClient : field.getAttribute('DirectPushToListAtClient');
     if (field_DirectPushToListAtClient) 
     {
         var field_DirectPickFrame = field.DirectPickFrame ? field.DirectPickFrame : field.getAttribute('DirectPickFrame');
         var field_FrameObjList = field.FrameObjList ? field.FrameObjList : field.getAttribute('FrameObjList');
         if (field_DirectPickFrame && field_FrameObjList && parent.frames.length > 0)
           {
               frameDoc = parent.frames[field_DirectPickFrame].document;
               listObj = frameDoc.getElementById(field_DirectPushToListAtClient);
                if (!listObj)
                {                
                    //stupid way because ID is not generated
                    frameDocFrm = frameDoc.forms[0];
        	        for (j=0; j<frameDocFrm.elements.length; j++) 
        	        {
		    	        if 
			             (
				        (frameDocFrm.elements[j].tagName == SELECT_TAG)
				         &&
        				(frameDocFrm.elements[j].name.indexOf(field_FrameObjList) != -1)    
	    			    )
		    		    {
    		    			listObj = frameDocFrm.elements[j];
            	    		break;
	    			    }
		    	    }
                }
           }
           if  (!listObj)
           { // if frame object above not found then look for local select obj
               listObj = elmy.document ? elmy.document.getElementById(field_DirectPushToListAtClient) : document.getElementById(field_DirectPushToListAtClient);
            if (!listObj)
            {                
            //stupid way because ID is not generated
    	        for (j=0; j<_localDocForm.elements.length; j++) 
    	        {
			        if 
			         (
				    (_localDocForm.elements[j].tagName == SELECT_TAG)
				     &&
    				(_localDocForm.elements[j].name.indexOf(field_DirectPushToListAtClient) != -1)    
				    )
				    {
				        listObj = _localDocForm.elements[j];
            			break;
	    			}
		    	}
            }
           }
           if (listObj)
           { 
               if (listObj.length > 0)
                    localLookup = true;
           }  
     } 
/*
        if (field.value.length < ctl_bs &&
            g_last_callBack_objID[field.value.length]==evt.srcElement.id &&
            g_last_callBack_dataValue[field.value.length]==field.value
        )
       {
           var lblElmentX1 = document.getElementById(g_last_callBack_lblID[field.value.length]);
           gHPl(g_last_callBack_dataStream[field.value.length], lblElmentX1, evt.srcElement) ;
          //read from cache
       } 
       else
       {*/
     // delay callback

       if (localLookup)
       {
            var foundDCount = 0;
            var maxDCount = 8;
            var returnString = '';
            var lastFound=-1;
            var breakcount=-1;
            var i;
            var chCount; 
            var compChar = ''; 
            var inputChar = field.value.toUpperCase(); 
           var exactCode = -1; 
           if (inputChar == '')
           {
            // empty remove the list liked the same behavour as callback
           }
           else         
            {
                for (i = 0; i < listObj.length; i++) 
                {
                 compChar = listObj.options[i].text.substring(0,inputChar.length).toUpperCase();
                 if (lastFound == -1 && inputChar == compChar )
                { 
                    lastFound = i;
                } 
                  if (listObj.options[i].value == inputChar)
                  {
                        exactCode = i;
                         if (compChar > inputChar && lastFound != -1 )
                        {
                              breakcount = i; 
                               break;   
                          }
                  }
             } 
               if (lastFound > -1)
               {
                  g_lookupIndexLast =  lastFound;
                for (i = lastFound; i < listObj.length; i++) 
                {
                    compChar = listObj.options[i].text.substring(0,inputChar.length).toUpperCase();
                    if (inputChar == compChar )
                    { 
                       if (returnString != '')
                           returnString += ',';
                                    
                       returnString += '"' + listObj.options[i].value +'","<b>' + listObj.options[i].text.substring(0,inputChar.length) + '</b>' + listObj.options[i].text.substring(inputChar.length,listObj.options[i].text.length) +'"';
                    } 
                    else
                    {
                       break;
                    }
                    if (i > lastFound + 7)
                       break;
                }      
             }
              if (exactCode != -1 )
                {
                    if (lastFound == -1  || exactCode < lastFound || exactCode > lastFound + 7)
                   { 
                       if (returnString != '')                                   
                           returnString = '"<b>' + listObj.options[exactCode].value +'</b>","' + listObj.options[exactCode].text +'",' + returnString;
                      else 
                           returnString = '"<b>' + listObj.options[exactCode].value +'</b>","' + listObj.options[exactCode].text +'"';
                     }   
               } 
         }           
           var lblElmentX1 = document.getElementById(lblID);
           if (lblElmentX1)
               gHPl(returnString, lblElmentX1, elmy);
           else
                localLookup = false;
       }       
       if (!localLookup)
       { 
       /// remove the false
           var field_RelayPickFrame = field.RelayPickFrame ? field.RelayPickFrame : field.getAttribute('RelayPickFrame');
           var field_RelayPickObj = field.RelayPickObj ? field.RelayPickObj : field.getAttribute('RelayPickObj');
           if (field_RelayPickFrame && field_RelayPickObj && parent.frames.length > 0)
           {
               frameDoc = parent.frames[field_RelayPickFrame].document;
               listObj=null;
                var rtnTypObj; 
                var rtnFrmObj;
                var rtnTxtObj;
                var rtnLblObj;
                if (!listObj)
                {                
                    //stupid way because ID is not generated
                    frameDocFrm = frameDoc.forms[0];

        	        for (j=0; j<frameDocFrm.elements.length; j++) 
        	        {
		    	        if 	(frameDocFrm.elements[j].tagName == INPUT_TAG)
                        {
		        	        if 	(frameDocFrm.elements[j].name.indexOf(RTN_TYPE) != -1)    
    		    		    {
        		    			rtnTypObj = frameDocFrm.elements[j];
                                   break; 
	    	    		    }
                        }
                    } 
        	        for (j=0; j<frameDocFrm.elements.length; j++) 
        	        {
		    	        if 	(frameDocFrm.elements[j].tagName == INPUT_TAG)
                        {
            				if (frameDocFrm.elements[j].name.indexOf(field_RelayPickObj) != -1)    
    		    		    {
        		    			listObj = frameDocFrm.elements[j];
	        			    }
		        	        else if 	(frameDocFrm.elements[j].name.indexOf(RTN_FORM) != -1)    
    		    		    {
        		    			rtnFrmObj = frameDocFrm.elements[j];
	    	    		    }
		        	        else if 	(frameDocFrm.elements[j].name.indexOf(RTN_TEXTBOX) != -1)    
    		    		    {
        		    			rtnTxtObj = frameDocFrm.elements[j];
	    	    		    }
		        	        else if (frameDocFrm.elements[j].name.indexOf(RTN_LABEL) != -1)    
    		    		    {
        		    			rtnLblObj = frameDocFrm.elements[j];
	    	    		    }
	    	    		    if (rtnFrmObj && listObj && rtnTxtObj && rtnLblObj)
	    	    		    {
	    	    		        break;
    	    		        }
	    	    		 } 
		    	    }
		    	} 
                if (listObj && rtnLblObj && rtnTxtObj)
                {
                    if (rtnTypObj) {
                        var field_TypeCode = field.TypeCode ? field.TypeCode : field.getAttribute('TypeCode');
                        rtnTypObj.value = field_TypeCode;
                    }
                   rtnLblObj.value = field.id.substring(0,field.id.length-2) +"_LD"; ///bad hard code
                   rtnTxtObj.value = field.id;
                   rtnFrmObj.value = self.name;
                   listObj.value = field.value;                       
                   parent.frames[field_RelayPickFrame].cBSPt_x(outAddObj, field.value, objId);
                   return;
              }
           }
           g_current_id = objId;
           g_current_key = field.value;
           var dStr = 'delayCallback("' + objId + '","' + tbTYPE + '","' + outAddObj + '","' + newString + '","' + elmy.id + '","' + field.value + '");';
           window.setTimeout(dStr,20);
       }
    }
    return;
}
function cBSPt_y()
{
    alert("y");
}
function cBSPt_x(addObj,fieldvalue,objIdFromOther)
{
     var lblElmentX1;
     var lblElmentX2;
     var lblElmentX3;
    var _localDocForm = document.forms[0];
        	        for (j=0; j<_localDocForm.elements.length; j++) 
        	        {
		    	        if 	(_localDocForm.elements[j].tagName == INPUT_TAG)
                        {
        	                 if 	(_localDocForm.elements[j].name.indexOf(RTN_TYPE) != -1)    
    		    		    {
        		    			lblElmentX3 = _localDocForm.elements[j];
        		    			break;
	    	    		    }
                        }
                    } 
        	        for (j=0; j<_localDocForm.elements.length; j++) 
        	        {
		    	        if 	(_localDocForm.elements[j].tagName == INPUT_TAG)
                        {
        	                 if 	(_localDocForm.elements[j].name.indexOf(OBJECT_NAME) != -1)    
    		    		    {
        		    			lblElmentX1 = _localDocForm.elements[j];
	    	    		    }
        	                 if 	(_localDocForm.elements[j].name.indexOf(OBJECT_TYPE) != -1)    
    		    		    {
        		    			lblElmentX2 = _localDocForm.elements[j];
	    	    		    }
	    	    		    if (lblElmentX2 && lblElmentX1)
	    	    		       break;
	    	    		 } 
		    	    }
     g_current_id = lblElmentX1.value;
     g_current_key = fieldvalue; 
     if (lblElmentX3 && lblElmentX3.value != '') 
        lblElmentX2.value = lblElmentX3.value;
     var dStr = 'delayCallback_X("' + lblElmentX1.value + '","' + lblElmentX2.value +'","' + addObj + '","' + fieldvalue+'","' + lblElmentX1.value + '_T","' + fieldvalue+'","' + objIdFromOther + '");';
     window.setTimeout(dStr,10);
}
function delayCallback_X(objId, tbTYPE, outAddObj, newString, srcElmentId, fieldValue,objIdFromOther)
{
        if (g_sent_key == fieldValue &&
       g_objIdFromOther == objIdFromOther && 
                g_sent_id == objId  && 
               g_tbTYPE == tbTYPE )
                return; /// testing only
/// cannot check because it is by frame object no matter how it is the same 
        var srcElment = document.getElementById(srcElmentId);
           if (srcElment) 
           {
                g_tbTYPE = tbTYPE;
                g_sent_key = fieldValue; 
                g_sent_id = objId;
                g_objIdFromOther = objIdFromOther;
                eval(objId + '_mCBk(tbTYPE'+'+"|"+"'+outAddObj+'"+"|"+'+'newString,srcElment)');
           } 
}
function delayCallback(objId, tbTYPE, outAddObj, newString, srcElmentId, fieldValue)
{
   if ( g_current_id == objId &&
        g_current_key == fieldValue &&
       ( 
       g_tbTYPE != tbTYPE || 
       g_sent_key != fieldValue || 
       g_sent_id != objId)
        ) 
       { 
           var srcElment = document.getElementById(srcElmentId);
           if (srcElment) 
           {
                g_sent_key = fieldValue; 
                g_sent_id = objId;
                g_tbTYPE = tbTYPE;
                eval(objId + '_mCBk(tbTYPE'+'+"|"+"'+outAddObj+'"+"|"+'+'newString,srcElment)');
           } 
       } 
}
function cPUPl()
{
	if (!g_P1)
    	g_P1 = document.getElementById(HP_PL);
	if (g_P1)
    {
        g_P1.innerHTML = "";
    }    
	if (!g_T1)
	    g_T1 = document.getElementById(LBL_T);
	if (g_T1)
    {
        g_T1.innerHTML = "";
    }
	if (!g_L1)
    	g_L1 = document.getElementById(LBL_L);
	if (g_L1)
    {
        g_L1.innerHTML = "";
    }
    return;
}
/*
function gHPl_x(dataStream, lblElementId, txtElement) 
{
    	var lblElementIdObj = document.getElementById(lblElementId);
    	var txtElementObj = document.getElementById(txtElement);
    gHPl(dataStream, lblElementIdObj, txtElementObj)
function gHPl(dataStream, lblElementId, txtElement) 
{
    if (parent.frames.length > 0)
    {
    	var rtnTxtObj = document.getElementById(RTN_TEXTBOX);
    	var rtnFrmObj = document.getElementById(RTN_FORM);
    	var rtnLblObj = document.getElementById(RTN_LABEL);
    	
    	if (rtnTxtObj && rtnFrmObj && rtnLblObj)
    	{
             var frameReturn = parent.frames(rtnFrmObj.value);
             frameReturn.gHPl_x(dataStream,rtnLblObj.value,rtnTxtObj.value);
             return;
         }
    }
}*/
function gHPl_x(dataStream, lblElementId, txtElement, oldInputValueForCompare)  ///new 20090312
{
     var lblElementIdObj = document.getElementById(lblElementId);
     var txtElementObj = document.getElementById(txtElement);
     /// now I check if the two textbox value is the same
     if (oldInputValueForCompare != '@!#$@!#$@!#$@!#$%%%%%') ///new 20090312 just 
    { ///new 20090312     
        if (txtElementObj && txtElementObj.value != oldInputValueForCompare)  ///new 20090312
       {
            return; ///new 20090312
       } 
    } ///new 20090312
    gHPl(dataStream, lblElementIdObj, txtElementObj)
} 
function gHPl(dataStream, lblElementId, txtElement) 
{
    if (parent.frames.length > 0)
    {
      /// in case of FrameRelay the return will call another frame to set the return value
      /// now I add a new param the hidden frame textbox value will pass back for comparsion 
     var rtnTxtObj = document.getElementById(RTN_TEXTBOX);
     var rtnFrmObj = document.getElementById(RTN_FORM);
     var rtnLblObj = document.getElementById(RTN_LABEL);
     var rtnLTxtValue = '@!#$@!#$@!#$@!#$%%%%%'; ///new 20090312
     if (txtElement) ///new 20090312
     { ///new 20090312
         rtnLTxtValue  = txtElement.value; ///new 20090312
     } ///new 20090312
     if (rtnTxtObj && rtnFrmObj && rtnLblObj)
     {
             var frameReturn = parent.frames[rtnFrmObj.value];
             frameReturn.gHPl_x(dataStream,rtnLblObj.value,rtnTxtObj.value,rtnLTxtValue); ///new 20090312
             return;
         }
    }
	if (!g_T1)
	    g_T1 = document.getElementById(LBL_T);
	if (g_T1)
    {
        if (g_T1.innerHTML != txtElement.id)
            g_T1.innerHTML = txtElement.id;
    }
    if (!g_L1)
    	g_L1 = document.getElementById(LBL_L);
	if (g_L1 && lblElementId)
    {
        if (g_L1.innerHTML != lblElementId.id)
            g_L1.innerHTML = lblElementId.id;
    }
    else
        g_L1.innerHTML = "";

	if (!g_P1)
	    g_P1 = document.getElementById(HP_PL);

	if (g_P1)
    {
        g_P1.innerHTML = "";
        var outString = new String("")
        var rowString = new String("")
        var nIdx = -2;
        var lIdx = 1;
        var rowAdd = 0;
        var colorSet = " id='"+TR_F_H+"' "
		nIdx = dataStream.indexOf('"',lIdx);
        outString = "<table id="+HP_TL+" class='popUpHelp' style='position:absolute;z-index:1'>";
    	while (nIdx != -1)
        {      
           rowString ="<tr "+colorSet+"><td>" +dataStream.substring(lIdx,nIdx)+"</td>";
           colorSet = ''
           lIdx = nIdx+3;
    	   nIdx = dataStream.indexOf('"',lIdx);
           rowString +="<td>" +dataStream.substring(lIdx,nIdx)+"</td></tr>";
           lIdx = nIdx+3;
    	   nIdx = dataStream.indexOf('"',lIdx);
           outString += rowString;
           rowAdd = rowAdd + 1
        }
        outString += "</table>";
        g_P1.innerHTML = outString;
		if (rowAdd == 1 && !g_bSiJp)
		{
		    sFoW();
		}
		else
		{
		    if (rowAdd == 0)
		    {
		        var g_L1_innerText = g_L1.innerText ? g_L1.innerText : g_L1.textContent;
		        if (!g_TLbl || g_TLbl.id != g_L1_innerText)
                   g_TLbl = document.getElementById(g_L1_innerText);
		       g_TLbl.innerHTML = "";
		    }
		    else
		    {
		        var oTFt = document.getElementById(TR_F_H);
     	        if (oTFt)
                {
                    sOrigBgColor =oTFt.style.backgroundColor;
                    oTFt.style.backgroundColor=H_CL;
		        }
		    }
    		setLyr(txtElement,HP_TL);
   		}
    }
    return;
}
function doubleClickRemove()
{
    alert('doubleClickRemove');
}
function pushList(event)
{
    alert('pushList');
}
function pushValue(event)
{
    var srcEl = event.srcElement ? event.srcElement : event.target;
    var srcEl_DirectPushAtClient = srcEl.DirectPushAtClient ? srcEl.DirectPushAtClient : srcEl.getAttribute('DirectPushAtClient');
    if (srcEl_DirectPushAtClient) 
        	{

//        	alert("pushValue");
        	///select is handled
        	    var sHRef = srcEl_DirectPushAtClient;
        	    var oTargText = srcEl.document ? srcEl.document.getElementById(sHRef) : document.getElementById(sHRef);
                    
                   if (sHRef.indexOf(KEYWORD_JAVASCRIPT) != -1)
                  {
                      var tempString1 = srcEl.options[srcEl.selectedIndex].text;
                      var tempValue1 = srcEl.options[srcEl.selectedIndex].value;
                       var posB1 =  tempString1.indexOf("[");
                       if (posB1!=-1) 
                          { tempString1 =  tempString1.substring(0,posB1); }
                        var Cstr1 = sHRef.replace(KEYWORD_JAVASCRIPT,"")+"('" +tempValue1 +"','" +  tempString1 +"');";
                       eval(Cstr1);
                       CheckAndClearObjId(srcEl);
                       return; 
                  } 

                    if (!oTargText) 
                    {
                        var _locEvtForm = srcEl.document ? srcEl.document.forms[0] : document.forms[0];
                        oTargText = findGnObj(sHRef, _locEvtForm, false);
                    }
                    if (oTargText)
                    {
                        var tempString = srcEl.options[srcEl.selectedIndex].text;
                        var tempValue = srcEl.options[srcEl.selectedIndex].value;
                      var srcEl_DirectPushPrefix = srcEl.DirectPushPrefix ? srcEl.DirectPushPrefix : srcEl.getAttribute('DirectPushPrefix');
                      if (srcEl_DirectPushPrefix)
                          tempValue = srcEl_DirectPushPrefix + tempValue;
                       var posB =  tempString.indexOf("[");
                       if (oTargText.tagName == SELECT_TAG)
                       {
                         var foundItem = false; 
                           for (var j=0; j<oTargText.options.length; j++) 
            	             {
            	                  if  (oTargText.options[j].value ==  tempValue)
            	                 {
            	                        foundItem = true;
            	                       break;  
            	                 } 
                             } 
                           if (!foundItem)
                          { 
                               if (posB!=-1) 
                              { oTargText.options[oTargText.options.length] =  new Option(tempString.substring(0,posB),tempValue,false,false); }
                                else
                                { oTargText.options[oTargText.options.length] = new Option(tempString,tempValue,false,false); }
                                var srcEl_AfterDirectPushAtClient = srcEl.AfterDirectPushAtClient ? srcEl.AfterDirectPushAtClient : srcEl.getAttribute('AfterDirectPushAtClient');
                                if (srcEl_AfterDirectPushAtClient) {
                            	    eval(srcEl_AfterDirectPushAtClient);
                        		}
                            }
                       }
                       else //if (oTargText.tagName = INPUT_TAG)
                       { 
                           if (tempString != '')
                                oTargText.value  = tempString+'\r\n'+ oTargText.value; //need to pick up [] david li
                            var srcEl_AfterDirectPushAtClient = srcEl.AfterDirectPushAtClient ? srcEl.AfterDirectPushAtClient : srcEl.getAttribute('AfterDirectPushAtClient');
                            if (srcEl_AfterDirectPushAtClient) 
                            	{
                            	    eval(srcEl_AfterDirectPushAtClient);                                   
                        		}
                         }
                         CheckAndClearObjId(srcEl);
                   }      		    
             } 
}
function sFoW() 
{
	if (!g_T1)
    	g_T1 = document.getElementById(LBL_T);
	if (!g_L1)
        g_L1 = document.getElementById(LBL_L);
    if (!g_T1 || !g_L1)
    {
       return;
    }

    var g_T1_innerText = g_T1.innerText ? g_T1.innerText : g_T1.textContent;
    if (g_T1_innerText != "")
    {
       if (!g_TInt || g_TInt.id != g_T1_innerText)
            g_TInt = document.getElementById(g_T1_innerText);
    }
    var g_L1_innerText = g_L1.innerText ? g_L1.innerText : g_L1.textContent;
    if (g_L1_innerText != "")
   {
       if (!g_TLbl || g_TLbl.id != g_L1_innerText)
            g_TLbl = document.getElementById(g_L1_innerText);
   }
   if (!g_TInt)
   {
       return;
   }
    if (!g_P1)
       g_P1 = document.getElementById(HP_PL);
   if (!g_P1)
   {
       return;
   }    
   var oTr = document.getElementById(TR_F_H);
   //var orginLen = g_TInt.value.length;
   g_TInt.value = Trim(oTr.childNodes[0].innerText ? oTr.childNodes[0].innerText : oTr.childNodes[0].textContent);
//   g_TInt.value = Trim(oTr.childNodes(0).innerText);
   RemoveHL(g_TInt);
   if (g_TLbl)
   {
       g_TLbl.innerHTML = Trim(oTr.childNodes[1].innerText ? oTr.childNodes[1].innerText : oTr.childNodes[1].textContent);
//       g_TLbl.innerHTML = Trim(oTr.childNodes(1).innerText);
       if (g_TLbl.className != DESC_CLASS)
           g_TLbl.className = DESC_CLASS;
   }

    g_P1.innerHTML = "";
    if (g_T1.innerText) {
        g_T1.innerText = "";
        g_L1.innerText = "";
    }
    else {
        g_T1.textContent = "";
        g_L1.textContent = "";
    }

    var g_TInt_DirectPushAtClient = g_TInt.DirectPushAtClient ? g_TInt.DirectPushAtClient : g_TInt.getAttribute('DirectPushAtClient');
    if (g_TInt_DirectPushAtClient) 
        	{
//        	alert("sFoW");
        	    //select is handled
        		    var sHRef = g_TInt_DirectPushAtClient;
        		    var oTargText = g_TInt.document ? g_TInt.document.getElementById(sHRef) : document.getElementById(sHRef);
                   
                   if (sHRef.indexOf(KEYWORD_JAVASCRIPT) != -1)
                  {
                       var tempString1 = g_TLbl.innerHTML;
                      var tempValue1 = g_TInt.value;
                       var posB1 =  tempString1.indexOf("[");
                       if (posB1!=-1) 
                          { tempString1 =  tempString1.substring(0,posB1); }
                        var Cstr1 = sHRef.replace(KEYWORD_JAVASCRIPT,"")+"('" +tempValue1 +"','" +  tempString1 +"');";
                       eval(Cstr1);
             	       g_TInt.value = "";
                        if (g_TLbl)
                        {
                            g_TLbl.innerHTML = "";
                        }
                          CheckAndClearObjId(g_TInt);
                 	    g_TInt.focus();
                     return; 
                  } 
  
                    if (!oTargText) 
                    {
                        oTargText = findGnObj(sHRef, g_TInt.document ? g_TInt.document.forms[0] : document.forms[0], false);
                  }
                   if (oTargText)
                    {
                       var tempString = g_TLbl.innerHTML;
                       var tempValue = g_TInt.value;
                       var g_TInt_DirectPushPrefix = g_TInt.DirectPushPrefix ? g_TInt.DirectPushPrefix : g_TInt.getAttribute('DirectPushPrefix');
                       if (g_TInt_DirectPushPrefix)
                        tempValue = g_TInt_DirectPushPrefix + tempValue;
                       var posB =  tempString.indexOf("[");
                       if (oTargText.tagName == SELECT_TAG)
                       {
                         var foundItem = false; 
                           for (var j=0; j<oTargText.options.length; j++) 
            	             {
            	                  if  (oTargText.options[j].value ==  tempValue)
            	                 {
            	                        foundItem = true;
            	                       break;  
            	                 } 
                             } 
                           if (!foundItem)
                          { 
                               if (posB!=-1) 
                              { oTargText.options[oTargText.options.length] =  new Option(tempString.substring(0,posB),tempValue,false,false); }
                                else
                                { oTargText.options[oTargText.options.length] = new Option(tempString,tempValue,false,false); }
                                var g_TInt_AfterDirectPushAtClient = g_TInt.AfterDirectPushAtClient ? g_TInt.AfterDirectPushAtClient : g_TInt.getAttribute('AfterDirectPushAtClient');
                                if (g_TInt_AfterDirectPushAtClient) 
                            	{
                                   eval(g_TInt_AfterDirectPushAtClient);
                        		}
                            }
                       }
                       else
                       {
                           if (posB!=-1) 
                                oTargText.value  = tempString.substring(0,posB) +'\r\n'+ oTargText.value; //need to pick up [] david li
                            else
                                oTargText.value  = tempString+'\r\n'+ oTargText.value; //need to pick up [] david li
                            var g_TInt_AfterDirectPushAtClient = g_TInt.AfterDirectPushAtClient ? g_TInt.AfterDirectPushAtClient : g_TInt.getAttribute('AfterDirectPushAtClient');
                            if (g_TInt_AfterDirectPushAtClient) {
                                eval(g_TInt_AfterDirectPushAtClient);
                            }
                        } 
             	       g_TInt.value = "";
                        if (g_TLbl)
                        {
                            g_TLbl.innerHTML = "";
                        }
                 	    g_TInt.focus();
                    }        		    
            } 
            CheckAndClearObjId(g_TInt);

}

function setLyr(obj,lyr)
{
	var newX = fo1(obj);
	var newY = fo2(obj) + 21;
	var x = new getObj(lyr);
	x.style.top = newY + 'px';
	x.style.left = newX + 'px';
}
function fo1(obj)
{
	var curleft = 0;
	if (obj.offsetParent)
	{
		while (obj.offsetParent)
		{
			curleft += obj.offsetLeft
			obj = obj.offsetParent;
		}
	}
	else if (obj.x)
		curleft += obj.x;
	return curleft;
}

function fo2(obj)
{
	var curtop = 0;
	if (obj.offsetParent)
	{
		while (obj.offsetParent)
		{
			curtop += obj.offsetTop
			obj = obj.offsetParent;
		}
	}
	else if (obj.y)
		curtop += obj.y;
	return curtop;
}
function getObj(name)
{
  if (document.getElementById)
  {
  	this.obj = document.getElementById(name);
	this.style = document.getElementById(name).style;
  }
  else if (document.all)
  {
	this.obj = document.all[name];
	this.style = document.all[name].style;
  }
  else if (document.layers)
  {
   	this.obj = document.layers[name];
   	this.style = document.layers[name];
  }
}
function reSg(oldS,newS,fullS) 
{
	var iNSeic = fullS.indexOf(oldS);
	while (iNSeic != -1)
    {      
        if (fullS.substring(iNSeic,iNSeic+oldS.length) == oldS) 
        {
            fullS = fullS.substring(0,iNSeic)+newS+fullS.substring(iNSeic+oldS.length,fullS.length)
        }
        iNSeic = fullS.indexOf(oldS);
     }
     return fullS
}
function cPUEsc(evt) {

    var unicode = evt.charCode ? evt.charCode : evt.keyCode;
    if (unicode != 27) //escape not sure
            return (false);

        var srcEl = evt.srcElement ? evt.srcElement : evt.target;
        if (!g_P1)
            g_P1 = srcEl.document ? srcEl.document.getElementById(HP_PL) : document.getElementById(HP_PL);
    	if (!g_P1)
        {
            return (true);
        }    
        if (g_P1.innerHTML != "")
        {
           g_P1.innerHTML = "";
        }
        return (true);
}
function RemoveHL(iTt)
{
        if (iTt.className.indexOf("htxt") != -1 )
		{
			iTt.className=iTt.className.replace("htxt", "");
		}
   
}
function rgbConvert(str) {
    str = str.replace(/rgb\(|\)/g, "").split(",");
    str[0] = parseInt(str[0], 10).toString(16).toLowerCase();
    str[1] = parseInt(str[1], 10).toString(16).toLowerCase();
    str[2] = parseInt(str[2], 10).toString(16).toLowerCase();
    str[0] = (str[0].length == 1) ? '0' + str[0] : str[0];
    str[1] = (str[1].length == 1) ? '0' + str[1] : str[1];
    str[2] = (str[2].length == 1) ? '0' + str[2] : str[2];
    return ('#' + str.join(""));
}

function lkUpT(evt, goUp) {
    var srcEl = evt.srcElement ? evt.srcElement : evt.target;
    var srcEl_document = srcEl.document ? srcEl.document : document;

    var oTr = srcEl_document.getElementById(TR_F_H);
  	if (!oTr)
    {
    	return;
    }
    if (!g_P1)
        g_P1 = srcEl_document.getElementById(HP_PL);
    if (!g_P1)
    {
        return;
    }
    var oFndTr;
    var fndPos=-1;
    var oTr_parentElement = oTr.parentElement ? oTr.parentElement : oTr.parentNode;
    for (j = 0; j < oTr_parentElement.childNodes.length; j++) 
    {
        var _bgCheck = (navigator.appName == "Microsoft Internet Explorer") ? oTr_parentElement.childNodes[j].style.backgroundColor : rgbConvert(oTr_parentElement.childNodes[j].style.backgroundColor);
        if (_bgCheck == H_CL) {
           oFndTr = oTr_parentElement.childNodes[j];
           fndPos = j;
           break;
        }
    }
    if (fndPos == -1)
    {
        if (!goUp)
        {
             oNxtTr = oTr_parentElement.childNodes[0];
             sOrigBgColor = oNxtTr.style.backgroundColor;
            oNxtTr.style.backgroundColor = H_CL;
        }
        else
        {
             oNxtTr = oTr_parentElement.childNodes[oTr_parentElement.childNodes.length-1];
             sOrigBgColor = oNxtTr.style.backgroundColor;
             oNxtTr.style.backgroundColor = H_CL;
        }
        return;
        
    }
    if ((goUp && fndPos==0) ||(!goUp && fndPos==oTr_parentElement.childNodes.length-1))
    {
        return ;
    }
    if (goUp)
        fndPos--;
    else
        fndPos++;
    oNxtTr = oTr_parentElement.childNodes[fndPos];
    oFndTr.style.backgroundColor = sOrigBgColor;
	sOrigBgColor = oNxtTr.style.backgroundColor;
	oNxtTr.style.backgroundColor = H_CL;

}
function CheckAndClearObjId(tarobj)
{
    if (tarobj.RelayPickFrame && tarobj.RelayPickObj && parent.frames.length > 0 )
    {
          parent.frames[tarobj.RelayPickFrame].ClearLastObjId();
         } 
   else
    {
          ClearLastObjId();  
         } 
}
function ClearLastObjId()
{
    g_sent_key=null;
    g_objIdFromOther=null;
}
function cTab(event)
{
    var srcEl = event.srcElement ? event.srcElement : event.target;
    var _evtElDoc = srcEl.document ? srcEl.document : document;
    var unicode = event.charCode ? event.charCode : event.keyCode;
    if (unicode == 9) //tab
	{
        var oTr = _evtElDoc.getElementById(TR_F_H);
     	if (oTr)
     	{
            if (!g_P1)
   	            g_P1 = _evtElDoc.getElementById(HP_PL);
            if (!g_T1)
                g_T1 = _evtElDoc.getElementById(LBL_T);
            if (!g_L1)
	            g_L1 = _evtElDoc.getElementById(LBL_L);
    	    if (!g_T1 || !g_L1 || !g_P1)
            {
                return;
            }
            var g_T1_innerText = g_T1.innerText ? g_T1.innerText : g_T1.textContent;
            if (g_T1_innerText != "")
        {
           if (!g_TInt || g_TInt.id != g_T1_innerText)
                g_TInt = _evtElDoc.getElementById(g_T1_innerText);
        }
        var g_L1_innerText = g_L1.innerText ? g_L1.innerText : g_L1.textContent;
        if (g_L1_innerText != "")
        {
            if (!g_TLbl || g_TLbl.id != g_L1_innerText)
                g_TLbl = _evtElDoc.getElementById(g_L1_innerText);
        }
	    if (!g_TInt)
        {
            return;
        }
	        if (g_TInt.value=='')
            {
                if (g_T1.innerText) {
                    g_T1.innerText = "";
                    g_L1.innerText = "";
                    g_P1.innerText = "";
                }
                else {
                    g_T1.textContent = "";
                    g_L1.textContent = "";
                    g_P1.textContent = "";
                }
          // want to skip because I want to move to next
                return;
            }

            var oTR_parentElement = oTr.parentElement ? oTr.parentElement : oTr.parentNode;
            for (j = 0; j < oTR_parentElement.childNodes.length; j++) 
 	        {
 	            var _bgCheck = (navigator.appName == "Microsoft Internet Explorer") ? oTR_parentElement.childNodes[j].style.backgroundColor : rgbConvert(oTR_parentElement.childNodes[j].style.backgroundColor);

                if (_bgCheck == H_CL) {
                    oTr = oTR_parentElement.childNodes[j];
 	            break;
 	         }
 	        }
 	       //selected value
 	        g_TInt.value = Trim(oTr.childNodes[0].innerText ? oTr.childNodes[0].innerText : oTr.childNodes[0].textContent);
// 	        g_TInt.value = Trim(oTr.childNodes(0).innerText);
            RemoveHL(g_TInt);
            if (g_TLbl)
            {
 	       //selected text
                g_TLbl.innerHTML = Trim(oTr.childNodes[1].innerText ? oTr.childNodes[1].innerText : oTr.childNodes[1].textContent);
//                g_TLbl.innerHTML = Trim(oTr.childNodes(1).innerText);
                if (g_TLbl.className != "wucDesc")
                    g_TLbl.className = "wucDesc";
            }

            if (g_T1.innerText) {

                g_T1.innerText = "";
                g_L1.innerText = "";
                g_P1.innerText = "";
            }
            else {
                g_T1.textContent = "";
                g_L1.textContent = "";
                g_P1.textContent = "";
            }
            var g_TInt_DirectPushAtClient = g_TInt.DirectPushAtClient ? g_TInt.DirectPushAtClient : g_TInt.getAttribute('DirectPushAtClient');

            if (g_TInt_DirectPushAtClient) {
                /// select is handled
                var sHRef = g_TInt_DirectPushAtClient;
                var oTargText = _evtElDoc.getElementById(sHRef);
                    
                   if (sHRef.indexOf(KEYWORD_JAVASCRIPT) != -1)
                  {
                       var tempString1 = g_TLbl.innerHTML;
                      var tempValue1 = g_TInt.value;
                       var posB1 =  tempString1.indexOf("[");
                       if (posB1!=-1) 
                          { tempString1 =  tempString1.substring(0,posB1); }
                        var Cstr1 = sHRef.replace(KEYWORD_JAVASCRIPT,"")+"('" +tempValue1 +"','" +  tempString1 +"');";
                       eval(Cstr1);
             	        g_TInt.value = "";
                        if (g_TLbl)
                        {
                            g_TLbl.innerHTML = "";
                        }
                        CheckAndClearObjId(g_TInt);
                       newClsIdDely=window.setTimeout('g_TInt.focus();',10);
                       return; 
                  } 

                    if (!oTargText) 
                    { 
                        for (var j=0; j<_evtElDoc.forms[0].elements.length; j++) 
            	        {
    			        if   ( (_evtElDoc.forms[0].elements[j].name.indexOf(sHRef) != -1)  )
	    			    {
        					oTargText = _evtElDoc.forms[0].elements[j];
            			    break;
	    			    }
		    	    }
                  }
                   if (oTargText)
                    {
                       var tempString = g_TLbl.innerHTML;
                       var _tempValue = g_TInt.value;
                       var g_TInt_DirectPushPrefix = g_TInt.DirectPushPrefix ? g_TInt.DirectPushPrefix : g_TInt.getAttribute('DirectPushPrefix');
                       if (g_TInt_DirectPushPrefix)
                           _tempValue = g_TInt_DirectPushPrefix + _tempValue;
                       var posB = tempString.indexOf("[");
                       if (oTargText.tagName == SELECT_TAG)
                       {
                         var foundItem = false; 
                           for (var j=0; j<oTargText.options.length; j++) 
            	             {
            	                  if  (oTargText.options[j].value ==  _tempValue)
            	                 {
            	                        foundItem = true;
            	                       break;  
            	                 } 
                             } 
                           if (!foundItem)
                          { 
                               if (posB!=-1) 
                              { 
                                      oTargText.options[oTargText.options.length] =  new Option(tempString.substring(0,posB),_tempValue,false,false); 
                                }
                                else
                                {
                                   oTargText.options[oTargText.options.length] = new Option(tempString,_tempValue,false,false); 
                                }
                                var g_TInt_AfterDirectPushAtClient = g_TInt.AfterDirectPushAtClient ? g_TInt.AfterDirectPushAtClient : g_TInt.getAttribute('AfterDirectPushAtClient');
                                if (g_TInt_AfterDirectPushAtClient) {
                                    eval(g_TInt_AfterDirectPushAtClient);
                                }
                            }
                       }
                       else
                       {
                           if (posB!=-1) 
                            oTargText.value  = tempString.substring(0,posB) +'\r\n'+ oTargText.value; //need to pick up [] david li
                            else
                            oTargText.value  = tempString+'\r\n'+ oTargText.value; //need to pick up [] david li
                        var g_TInt_AfterDirectPushAtClient = g_TInt.AfterDirectPushAtClient ? g_TInt.AfterDirectPushAtClient : g_TInt.getAttribute('AfterDirectPushAtClient');
                        if (g_TInt_AfterDirectPushAtClient) {
                            eval(g_TInt_AfterDirectPushAtClient);
                        }
                    } 
             	        g_TInt.value = "";
                        if (g_TLbl)
                        {
                            g_TLbl.innerHTML = "";
                        }
                        CheckAndClearObjId(g_TInt);
                       //event.cancelBubble = true; 
                       newClsIdDely=window.setTimeout('g_TInt.focus();',10);
                 	    //g_TInt.focus();
                    }        		    
            } 
           else
           {
                        CheckAndClearObjId(g_TInt);
                	 g_TInt.focus();
                    var oRge = g_TInt.createTextRange();
                       oRge.moveStart("character", 0);
                   oRge.moveEnd("character", g_TInt.value.length);
                oRge.select();
            } 
     	}
	}
	g_bSiJp = false;
	if(event.keyCode ==8) //backspace
	{
        g_bSiJp = true;
	}
}
function cPUp(event)
{
    var srcEl = event.srcElement ? event.srcElement : event.target;
    if (!g_P1)
        g_P1 = srcEl.document ? srcEl.document.getElementById(HP_PL) : document.getElementById(HP_PL);
    if (!g_P1)
    {
        return;
    }    
    if (g_P1.innerHTML != "")
    {
       g_P1.innerHTML = "";
    }
    return;
}
function cF7(ip1)
{
        var vF71 = new String(" \t\n\r ");
        var s = new String(ip1);
        if (vF71.indexOf(s.charAt(0)) != -1) {
            var j=0, i = s.length;
            while (j < i && vF71.indexOf(s.charAt(j)) != -1)
                j++;
            s = s.substring(j, i);
        }
        return s;
}
function cF8(ip1)
{
        var vF81 = new String(" \t\n\r ");
        var s = new String(ip1);
        if (vF81.indexOf(s.charAt(s.length-1)) != -1) {
            var i = s.length - 1;       
            while (i >= 0 && vF81.indexOf(s.charAt(i)) != -1)
                i--;
            s = s.substring(0, i+1);
        }
        return s;
}
function Trim(ip1)
{
        return cF8(cF7(ip1));
}
function WarningPopup(inMsg)
{
    window.clearTimeout(newClsId);
    var vr1 = new Date();
    var displayMsg = inMsg + ' ' + vr1.toLocaleString();
    alert(displayMsg);
}
function WarningPopupOnce(inMsg)
{
    window.clearTimeout(newClsId);
    var vr1 = new Date();
    var displayMsg = inMsg + ' :::@:' + vr1.toLocaleString();
    alert(displayMsg);
}
function addOption(theSel, theText, theValue)
{
  var newOpt = new Option(theText, theValue);
  var selLength = theSel.length;
  theSel.options[selLength] = newOpt;
}

function deleteOption(theSel, theIndex)
{ 
  var selLength = theSel.length;
  if(selLength>0)
  {
    theSel.options[theIndex] = null;
  }
}

function moveOptions(theSelFrom, theSelTo)
{
  
  var selLength = theSelFrom.length;
  var selectedText = new Array();
  var selectedValues = new Array();
  var selectedCount = 0;
  
  var i;
  
  // Find the selected Options in reverse order
  // and delete them from the 'from' Select.
  for(i=selLength-1; i>=0; i--)
  {
    if(theSelFrom.options[i].selected)
    {
      selectedText[selectedCount] = theSelFrom.options[i].text;
      selectedValues[selectedCount] = theSelFrom.options[i].value;
      deleteOption(theSelFrom, i);
      selectedCount++;
    }
  }
  
  // Add the selected text/values in reverse order.
  // This will add the Options to the 'to' Select
  // in the same order as they were in the 'from' Select.
  for(i=selectedCount-1; i>=0; i--)
  {
    addOption(theSelTo, selectedText[i], selectedValues[i]);
  }
  
}
function removeOptionSelected(elSel)
{
  var i;
  for (i = elSel.length - 1; i>=0; i--) {
    if (elSel.options[i].selected) {
      elSel.remove(i);
    }
  }
}
function appendOptionLast(key, text, selectObj)
{
  var elOptNew = document.createElement('option');
  elOptNew.text = text;
  elOptNew.value = key;
  var elSel = document.getElementById(selectObj);

  try {
    elSel.add(elOptNew, null); // standards compliant; doesn't work in IE
  }
  catch(ex) {
    elSel.add(elOptNew); // IE only
  }
}