YNU_JEUS/app_home/himed/xpapps/emr/termmngtxp/xp/SPMRT01500.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[
var maininstyn            = "";
var xCondPath             = "ds_main_cond";
var sICD10LIST            = "ds_main_icd10info_icd10list";
var sICD10Path            = "ds_param_icd10_icd10info";
var sDIAGCDLIST_HIDDEN    = "ds_hidden_diaginfo_diagcdlist";
var xMophlgPath           = "ds_main_icdo3info_icdo3list";  
var xTophlgPath           = "ds_main_tophlginfo_tophlglist";
var sTophpPath            = "ds_main_topho_tophoinfo";
var sMophoPath            = "ds_main_mopho_mophoinfo";
var DiagPath              = "ds_main_diagcdinfo_diagcd";
function fInitialize_SPMRT01500()
{        
    eval(xMophlgPath).clearData();
    eval(sICD10LIST).clearData();
    eval(sICD10Path).clearData();
    eval(xTophlgPath).clearData();
    eval(sTophpPath).clearData();
    eval(sMophoPath).clearData();
    eval(DiagPath).clearData;
    
    ds_param_mopho_mophoinfo.clearData();
    ds_param_topho_tophoinfo.clearData();
    ds_param_selectdiaginfo_selectdiaglist.clearData();
    ds_main_opcdinfo_opcd.clearData();
    ds_param_selectopinfo_selectoplist.clearData();
    
    if(frmf_checkOpener())
    {
        var oneselect = opener.frmf_getParameter("SPMRT01500__DIAGONESELECT");
        var search = opener.frmf_getParameter("SPMRT01500_SEARCHDATA");
        var flag = opener.frmf_getParameter("SPMRT01500_FLAG");
        var stndd = opener.frmf_getParameter("stndd");
        dsf_makeValue(ds_init, "oneselect", "string", oneselect);
        dsf_makeValue(ds_hidden_search, "flag", "string", flag);
        var maininstyn = opener.frmf_getParameter("maininstyn");
	    ds_temp.setColumn(0, "maininstyn", maininstyn);

        if(utlf_isNull(flag) || utlf_isNull(search))
        {
            switch(flag)
            {
                case "1":
                    fChngDiagScrn("diag");     
                    break;
                case "2":
                    fChngDiagScrn("moph");
                    break;
                case "3":
                    fChngDiagScrn("topho");   
                    break;
                case "4":
                    fChngDiagScrn("icd10");
                case "5":
                    fChngDiagScrn("op");
                    break;
            }
            return;
        }
        if(flag == "1")
        {
            if (String(search).length > 0)
            {
                ds_main_cond.setColumn(0, "reqdata", search);
                fDiagSearch();
            }
            fChngDiagScrn("diag"); 
        }
         else if(flag == "2")
        {
            if (String(search).length > 0)
            {
				ds_main_cond.setColumn(0, "reqdata", search);
                fDiagSearch();
            }
            fChngDiagScrn("moph");
        }
        else if(flag == "3")
        {
            if (String(search).length > 0)
            {
                ds_main_cond.setColumn(0, "reqdata", search);
                fDiagSearch();
            }
            fChngDiagScrn("toph");
        }
        else if(flag == "4")
        {
            if (String(search).length > 0)
            {
                ds_main_cond.setColumn(0, "reqdata", search);
                fDiagSearch();
            }
            fChngDiagScrn("icd10");
        }
        else if(flag == "5")
        {
            if (String(search).length > 0)
            {
				ds_main_cond.setColumn(0, "reqdata", search);
                fDiagSearch();
            }
            fChngDiagScrn("op");
        }
    }
    else
    {
		ds_hidden_search.clearData();
		dsf_makeValue(ds_hidden_search, "flag", "string","1");
        fChngDiagScrn("diag"); 
    }
}

function fChngDiagScrn(caseID)
{            
	if(caseID=="diag") 
	{  
		ds_main_cond.setColumn(0, "reqdata","");   
		swt_diaginfo.tabindex = 0;
		
		btn_diag.class = "btn_tab_S";
		btn_morphology.class = "btn_tab";
		btn_tophology.class = "btn_tab";
		btn_icd10.class = "btn_tab";
		btn_op.class = "btn_tab";
		
		ds_send_reqdata.clear();
		dsf_makeValue(ds_send_reqdata, "indxflag", "string", "0");
		dsf_makeValue(ds_send_reqdata, "mode", "string", "E");
		dsf_makeValue(ds_send_reqdata, "stnddflag", "string", "Y");
		dsf_makeValue(ds_send_reqdata, "indxuseflag", "string", "");
		dsf_makeValue(ds_send_reqdata, "maininstyn", "string", "");
		var oParam = {};
			oParam.id          = "TRMRT00201";
			oParam.service     = "termmngtapp.DiagTermMngt";
			oParam.method      = "reqGetDiagIndxList";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_main_indxlist_item=item";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00201";

		tranf_submit(oParam);
	}
	else if(caseID=="toph")
	{   
		ds_main_cond.setColumn(0, "reqdata","");
		swt_diaginfo.tabindex = 2;
		btn_morphology.class = "btn_tab";
		btn_diag.class = "btn_tab";
		btn_tophology.class = "btn_tab_S";
		btn_icd10.class = "btn_tab";
		btn_op.class = "btn_tab";
		ds_send_reqdata.clear();
		dsf_makeValue(ds_send_reqdata, "indxflag", "string", "1");
		dsf_makeValue(ds_send_reqdata, "indxnmflag", "string", "E");
	
		var oParam = {};
			oParam.id          = "TRMRT00503";
			oParam.service     = "termmngtapp.CncrDiagMngt";
			oParam.method      = "reqGetIndxList";
			oParam.inds        = "reqCond=ds_send_reqdata";
			oParam.outds       = "ds_main_indxinfo_indxlist=indxlist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00503";

		tranf_submit(oParam);
	}
	else if(caseID == "moph")
	{
		ds_main_cond.setColumn(0, "reqdata","");
		swt_diaginfo.tabindex = 1;
		btn_morphology.class = "btn_tab_S"
		btn_diag.class = "btn_tab";
		btn_tophology.class = "btn_tab";
		btn_icd10.class = "btn_tab";
		btn_op.class = "btn_tab";
		ds_send_reqdata.clear();
		dsf_makeValue(ds_send_reqdata, "indxflag", "string", "3");
		dsf_makeValue(ds_send_reqdata, "indxnmflag", "string", "E");
		var oParam = {};
			oParam.id          = "TRMRT00503";
			oParam.service     = "termmngtapp.CncrDiagMngt";
			oParam.method      = "reqGetIndxList";
			oParam.inds        = "reqCond=ds_send_reqdata";
			oParam.outds       = "ds_main_indxinfo_indxlist=indxlist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00503";

		tranf_submit(oParam);
	}
	else if(caseID == "icd10")
	{
		ds_main_cond.setColumn(0, "reqdata","");
		swt_diaginfo.tabindex = 3;
		
		btn_morphology.class = "btn_tab";
		btn_diag.class = "btn_tab";
		btn_tophology.class = "btn_tab";
		btn_icd10.class = "btn_tab_S";
		btn_op.class = "btn_tab";
		ds_send_reqdata.clear();
		dsf_makeValue(ds_send_reqdata, "indxflag", "string", "0");
		dsf_makeValue(ds_send_reqdata, "indxnmflag", "string", "E");
		var oParam = {};
			oParam.id          = "TRMRT00503";
			oParam.service     = "termmngtapp.CncrDiagMngt";
			oParam.method      = "reqGetIndxList";
			oParam.inds        = "reqCond=ds_send_reqdata";
			oParam.outds       = "ds_main_indxinfo_indxlist=indxlist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00503";

		tranf_submit(oParam);
	} 
	else if(caseID == "op")
	{
		ds_main_cond.setColumn(0, "reqdata","");
		swt_diaginfo.tabindex = 4;
		
		btn_morphology.class = "btn_tab";
		btn_diag.class = "btn_tab";
		btn_tophology.class = "btn_tab";
		btn_icd10.class = "btn_tab";
		btn_op.class = "btn_tab_S";
		ds_send_reqdata.clear();
		dsf_makeValue(ds_send_reqdata, "indxflag", "string", "9");
		dsf_makeValue(ds_send_reqdata, "mode", "string", "E");
		dsf_makeValue(ds_send_reqdata, "stnddflag", "string", "Y");
		dsf_makeValue(ds_send_reqdata, "indxuseflag", "string", "");
		dsf_makeValue(ds_send_reqdata, "maininstyn", "string", "");
		
		var oParam = {};
			oParam.id          = "TRMRT00701";
			oParam.service     = "termmngtapp.OpTermMngt";
			oParam.method      = "reqGetOpIndxList";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_main_indxlist_item=item";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00701";

		tranf_submit(oParam);
	}
}

function fDiagSearch()
{
    var flag = ds_hidden_search.getColumn(0, "flag");
    if(flag==1)
    {    
        var cond1 = ds_main_cond.getColumn(0, "srchflag");
        var cond5 = ds_main_cond.getColumn(0, "reqdata");
        if(String(cond5).length < 1)
        {
            sysf_messageBox("검색어를 ", "C002");
            return;
        }
        ds_send_reqdata.clear();
        dsf_makeValue(ds_send_reqdata, "srchflag", "string", "");
        dsf_makeValue(ds_send_reqdata, "srchnm", "string", "");
        dsf_makeValue(ds_send_reqdata, "stndd", "string", "");
        dsf_makeValue(ds_send_reqdata, "maininstyn", "string", "");
        dsf_makeValue(ds_send_reqdata, "selInstcd", "string", "");
        dsf_makeValue(ds_send_reqdata, "srchfromdd", "string", "");
        dsf_makeValue(ds_send_reqdata, "srchtodd", "string", "");
        dsf_makeValue(ds_send_reqdata, "endflag", "string", "");
        
        if(cond1 == "code")
        {
            dsf_makeValue(ds_send_reqdata, "srchflag", "string", "C");
            Srchnm = cond5.toUpperCase();
            dsf_makeValue(ds_send_reqdata, "srchnm", "string", Srchnm); 
        }
        else
        {
			dsf_makeValue(ds_send_reqdata, "srchflag", "string", ""); 
        }
        if(cond1 == "word")
        {
            if(!utlf_isNull(cond5) && (fIsHangul(cond5) == "E"))
            {
                dsf_makeValue(ds_send_reqdata, "srchflag", "string", "E");
                dsf_makeValue(ds_send_reqdata, "srchnm", "string", cond5);
            }
            else if(!utlf_isNull(cond5) && (fIsHangul(cond5) == "H"))
            {
                dsf_makeValue(ds_send_reqdata, "srchflag", "string", "H");
                dsf_makeValue(ds_send_reqdata, "srchnm", "string", cond5);
            }
        }
        var stndd = opener.frmf_getParameter("stndd");
        if(!utlf_isNull(stndd))
        {
            dsf_makeValue(ds_send_reqdata, "stndd", "string",stndd); 
        }
        else 
        {
			dsf_makeValue(ds_send_reqdata, "stndd", "string", utlf_getCurrentDate()); 
        }
        dsf_makeValue(ds_send_reqdata, "maininstyn", "string", maininstyn);
        if(maininstyn == "Y")
        {
            dsf_makeValue(ds_send_reqdata, "selInstcd", "string", "001");
        }
        else 
        {
			dsf_makeValue(ds_send_reqdata, "selInstcd", "string", sysf_getUserInfo("dutplceinstcd"));
        }
        
        var oParam = {};
			oParam.id          = "TRMRT00204";
			oParam.service     = "termmngtapp.DiagTermMngt";
			oParam.method      = "reqGetSrchDiagCd";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_=icd10cd ds_main_diagcdinfo_diagcd=diagcd ds_=kcd4m";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00204";

		tranf_submit(oParam);

    }
    else if(flag ==2)
    {
        var cond1 = ds_main_cond.getColumn(0, "srchflag");
        var cond5 = ds_main_cond.getColumn(0, "reqdata");
        var reqflag = ds_main_cond.getColumn(0, "reqflag");
        if(String(cond5).length < 1)
        {
            sysf_messageBox("검색어를 ", "C002");
            return;
        }
        ds_send_reqdata.clear();
        dsf_makeValue(ds_send_reqdata, "flag", "string", "");
        dsf_makeValue(ds_send_reqdata, "diagflag", "string", "");
        dsf_makeValue(ds_send_reqdata, "srchnm", "string", "");
        dsf_makeValue(ds_send_reqdata, "stndd", "string", "");
        dsf_makeValue(ds_send_reqdata, "srchindxcd", "string", "");
        dsf_makeValue(ds_send_reqdata, "valiyn", "string", "");
        
        dsf_makeValue(ds_send_reqdata, "indxflag", "string", "3"); 
        
        if(cond1 == "code")
        {
            dsf_makeValue(ds_send_reqdata, "diagflag", "string", "C");
            dsf_makeValue(ds_send_reqdata, "srchnm", "string", cond5.toUpperCase());
        }
        else
        {
			dsf_makeValue(ds_send_reqdata, "diagflag", "string", "WORD");
        } 
        if(cond1 == "word")
        {
            if(!utlf_isNull(cond5) && (fIsHangul(cond5) == "E"))
            {
                dsf_makeValue(ds_send_reqdata, "srchnm", "string", cond5);
            }
            else
            {
				dsf_makeValue(ds_send_reqdata, "srchnm", "string", cond5);
            }
        }
        dsf_makeValue(ds_send_reqdata, "flag", "string", "srch");
        dsf_makeValue(ds_send_reqdata, "valiyn", "string", "");
        var oParam = {};
			oParam.id          = "TRMRT00501";
			oParam.service     = "termmngtapp.CncrDiagMngt";
			oParam.method      = "reqGetICDO3List";
			oParam.inds        = "reqCond=ds_send_reqdata";
			oParam.outds       = "ds_main_icdo3info_icdo3list=icdo3list";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00501";

		tranf_submit(oParam);
    }
    else if(flag ==3)
    {
        var cond1 = ds_main_cond.getColumn(0, "srchflag");
        var cond5 = ds_main_cond.getColumn(0, "reqdata");
        var reqflag = ds_main_cond.getColumn(0, "reqflag");
        if(String(cond5).length < 1)
        {
            sysf_messageBox("검색어를 ", "C002");
            return;
        }
        ds_send_reqdata.clear();
        dsf_makeValue(ds_send_reqdata, "indxflag", "string", "1"); 
        dsf_makeValue(ds_send_reqdata, "flag", "string", ""); 
        dsf_makeValue(ds_send_reqdata, "diagflag", "string", ""); 
        dsf_makeValue(ds_send_reqdata, "srchnm", "string", ""); 
        dsf_makeValue(ds_send_reqdata, "srchindxcd", "string", ""); 
        dsf_makeValue(ds_send_reqdata, "srchfromdd", "string", ""); 
        dsf_makeValue(ds_send_reqdata, "srchtodd", "string", ""); 
        dsf_makeValue(ds_send_reqdata, "endflag", "string", ""); 
        dsf_makeValue(ds_send_reqdata, "stndd", "string", ""); 
        
        if(cond1 == "code")
        {
            ds_send_reqdata.setColumn(0, "diagflag", "C");
            ds_send_reqdata.setColumn(0, "srchnm", cond5.toUpperCase());
        }
        else
        {
            ds_send_reqdata.setColumn(0, "diagflag", "WORD");
        } 
        if(cond1 == "word")
        {
            if(!utlf_isNull(cond5) && (fIsHangul(cond5) == "E"))
            {
                ds_send_reqdata.setColumn(0, "srchnm", cond5);
            }
            else
            {
				ds_send_reqdata.setColumn(0, "srchnm", cond5);
            }
        }
        ds_send_reqdata.setColumn(0, "flag", "srch");
        var oParam = {};
			oParam.id          = "TRMRT00502";
			oParam.service     = "termmngtapp.CncrDiagMngt";
			oParam.method      = "reqGetTophlgList";
			oParam.inds        = "reqCond=ds_send_reqdata";
			oParam.outds       = "ds_main_tophlginfo_tophlglist=tophlglist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00502";

		tranf_submit(oParam);     
    }
    else if(flag ==4)//icd10cd
    {
        var cond1 = ds_main_cond.getColumn(0, "srchflag");
        var cond5 = ds_main_cond.getColumn(0, "reqdata");
        var reqflag = ds_main_cond.getColumn(0, "reqflag");
        if(String(cond5).length < 1)
        {
            sysf_messageBox("검색어를 ", "C002");
            return;
        }
        ds_send_reqdata.clear();
        dsf_makeValue(ds_send_reqdata, "indxflag", "string", "0"); 
        dsf_makeValue(ds_send_reqdata, "flag", "string", ""); 
        dsf_makeValue(ds_send_reqdata, "valiyn", "string", ""); 
        dsf_makeValue(ds_send_reqdata, "diagflag", "string", ""); 
        dsf_makeValue(ds_send_reqdata, "srchnm", "string", ""); 
        dsf_makeValue(ds_send_reqdata, "srchindxcd", "string", ""); 
        dsf_makeValue(ds_send_reqdata, "stndd", "string", ""); 
        
		if(cond1 == "code")
		{
			ds_send_reqdata.setColumn(0, "diagflag", "C");
			ds_send_reqdata.setColumn(0, "srchnm", cond5.toUpperCase());
		}
		else
		{
			ds_send_reqdata.setColumn(0, "diagflag", "WORD");
		} 
		if(cond1 == "word")
		{
			if(!utlf_isNull(cond5) && (fIsHangul(cond5) == "E"))
			{
				ds_send_reqdata.setColumn(0, "srchnm", cond5);
			}
			else
			{
				ds_send_reqdata.setColumn(0, "srchnm", cond5);
			}
		}
		ds_send_reqdata.setColumn(0, "flag", "srch");
		var oParam = {};
			oParam.id          = "TRMRT00505";
			oParam.service     = "termmngtapp.CncrDiagMngt";
			oParam.method      = "reqGetICD10List";
			oParam.inds        = "reqCond=ds_send_reqdata";
			oParam.outds       = "ds_main_icd10info_icd10list=icd10list";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00505";

		tranf_submit(oParam);
    }
    else if(flag ==5)
    {
        var cond1 = ds_main_cond.getColumn(0, "srchflag");
        var cond5 = ds_main_cond.getColumn(0, "reqdata");
        if(String(cond5).length < 1)
        {
            sysf_messageBox("검색어를 ", "C002");
            return;
        }
        ds_send_reqdata.clear();
        dsf_makeValue(ds_send_reqdata, "srchflag", "string", "");
        dsf_makeValue(ds_send_reqdata, "srchnm", "string", "");
        dsf_makeValue(ds_send_reqdata, "srchfromdd", "string", "");
        dsf_makeValue(ds_send_reqdata, "srchtodd", "string", "");
        dsf_makeValue(ds_send_reqdata, "endflag", "string", "");
        dsf_makeValue(ds_send_reqdata, "stndd", "string", "");
        dsf_makeValue(ds_send_reqdata, "selInstcd", "string", "");
        dsf_makeValue(ds_send_reqdata, "maininstyn", "string", "");
        if(cond1 == "code")
        {
            ds_send_reqdata.setColumn(0, "srchflag", "C");
            Srchnm = cond5.toUpperCase();
            ds_send_reqdata.setColumn(0, "srchnm", Srchnm); 
        }
        else
        {
            ds_send_reqdata.setColumn(0, "srchflag", "");
        }
        if(cond1 == "word")
        {
            if(!utlf_isNull(cond5) && (fIsHangul(cond5) == "E"))
            {
                ds_send_reqdata.setColumn(0, "srchflag", "E");
                ds_send_reqdata.setColumn(0, "srchnm", cond5);
            }
            else if(!utlf_isNull(cond5) && (fIsHangul(cond5) == "H"))
            {
                ds_send_reqdata.setColumn(0, "srchflag", "H");
                ds_send_reqdata.setColumn(0, "srchnm", cond5);
            }
        }
        var stndd = opener.frmf_getParameter("stndd");
        if(!utlf_isNull(stndd))
        {
			ds_send_reqdata.setColumn(0, "stndd",stndd); 
        }
        else
		{
			ds_send_reqdata.setColumn(0, "stndd", utlf_getCurrentDate()); 
        }
        ds_send_reqdata.setColumn(0, "maininstyn", maininstyn);
        if(maininstyn == "Y")
        {
			ds_send_reqdata.setColumn(0, "selInstcd", "001");
        } 
        else 
        {	
			ds_send_reqdata.setColumn(0, "selInstcd", sysf_getUserInfo("dutplceinstcd"));
        }
        var oParam = {};
			oParam.id          = "TRMRT00704";
			oParam.service     = "termmngtapp.OpTermMngt";
			oParam.method      = "reqGetSrchOpCd";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_=icd9cd ds_main_opcdinfo_opcd=opcd";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00704";

		tranf_submit(oParam);
    }
}


function fSelectDiagInfo(trvObj)
{
    var sObjLId = trvObj.name;
    var sObjRow = trvObj.currentrow;
    
    if(sObjLId == "trv_trvdiaglist")
    {
        var indxcd  = ds_main_indxlist_item.getColumn(sObjRow, "indxcd");
        var depth   = ds_main_indxlist_item.getColumn(sObjRow, "depth");
        var pathcd  = ds_main_indxlist_item.getColumn(sObjRow, "pathcd");
        
        ds_send_reqdata.clear();
        dsf_makeValue(ds_send_reqdata, "indxcd", "string", indxcd);         
        var stndd = opener.frmf_getParameter("stndd");
        if(!utlf_isNull(stndd))
        {
			dsf_makeValue(ds_send_reqdata, "stndd", "string",stndd);
        }
        else
        {
			dsf_makeValue(ds_send_reqdata, "stndd", "string",utlf_getCurrentDate()); 
        }
        dsf_makeValue(ds_send_reqdata, "maininstyn", "String", ds_temp.getColumn(0, "maininstyn"));
		
		var oParam = {};
			oParam.id          = "TRMRT00214";
			oParam.service     = "termmngtapp.DiagTermMngt";
			oParam.method      = "reqGetIndxDiagCdList";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_main_diagcdinfo_diagcd=diagcd";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00214";

		tranf_submit(oParam);
    }
    else if(sObjLId == "trv_trvoplist")
    {
        var indxcd  = ds_main_indxlist_item.getColumn(sObjRow, "indxcd");
        var depth   = ds_main_indxlist_item.getColumn(sObjRow, "depth");
        var pathcd  = ds_main_indxlist_item.getColumn(sObjRow, "pathcd");
        
        ds_send_reqdata.clear();
        dsf_makeValue(ds_send_reqdata, "indxcd", "string", indxcd);         
        var stndd = opener.frmf_getParameter("stndd");
        if(!utlf_isNull(stndd))
        {
            dsf_makeValue(ds_send_reqdata, "stndd", "string",stndd); 
        }
        else
        {
			dsf_makeValue(ds_send_reqdata, "stndd", "string", utlf_getCurrentDate()); 
        }
        dsf_makeValue(ds_send_reqdata, "maininstyn", "String", ds_temp.getColumn(0, "maininstyn"));
        var oParam = {};
			oParam.id          = "TRMRT01501";
			oParam.service     = "termmngtapp.OpTermMngt";
			oParam.method      = "reqGetOpIndxDiagCdList";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_main_opcdinfo_opcd=opcd";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT01501";

		tranf_submit(oParam);
    }
    else if(sObjLId == "trv_icd10indxcdlist")
    {
        var indxcd = ds_main_indxinfo_indxlist.getColumn(sObjRow, "indxcd");
		ds_send_reqdata.clear();
        dsf_makeValue(ds_send_reqdata, "srchindxcd", "string",indxcd);
        dsf_makeValue(ds_send_reqdata, "flag", "string","indx");
        dsf_makeValue(ds_send_reqdata, "diagflag", "string","");
        dsf_makeValue(ds_send_reqdata, "srchnm", "string","");
        dsf_makeValue(ds_send_reqdata, "valiyn", "string","N");
        var stndd = opener.frmf_getParameter("stndd");
        if(!utlf_isNull(stndd))
        {
            dsf_makeValue(ds_send_reqdata, "stndd", "string",stndd); 
        }
        else
        {
			dsf_makeValue(ds_send_reqdata, "stndd", "string", utlf_getCurrentDate()); 
        }
		   var oParam = {};
				oParam.id          = "TRMRT00505";
				oParam.service     = "termmngtapp.CncrDiagMngt";
				oParam.method      = "reqGetICD10List";
				oParam.inds        = "reqCond=ds_send_reqdata";
				oParam.outds       = "ds_main_icd10info_icd10list=icd10list";
				oParam.async       = false;
				//oParam.callback    = "cf_TRMRT00505";

			tranf_submit(oParam);
    }
    else if(sObjLId == "trv_trvtopholist")
    {
        var indxcd = ds_main_indxinfo_indxlist.getColumn(sObjRow, "indxcd");
        trace(indxcd)
        ds_send_reqdata.clear();
        dsf_makeValue(ds_send_reqdata, "srchindxcd", "string",indxcd);
        dsf_makeValue(ds_send_reqdata, "flag", "string","indx");
        dsf_makeValue(ds_send_reqdata, "diagflag", "string","");
        dsf_makeValue(ds_send_reqdata, "srchnm", "string","");
        dsf_makeValue(ds_send_reqdata, "srchfromdd", "string","");
        dsf_makeValue(ds_send_reqdata, "srchtodd", "string","");
        dsf_makeValue(ds_send_reqdata, "endflag", "string","");
        var stndd = opener.frmf_getParameter("stndd");
        if(!utlf_isNull(stndd))
        {
            dsf_makeValue(ds_send_reqdata, "stndd", "string",stndd); 
        }
        else
        {
			dsf_makeValue(ds_send_reqdata, "stndd", "string",utlf_getCurrentDate());
        }
        var oParam = {};
			oParam.id          = "TRMRT00502";
			oParam.service     = "termmngtapp.CncrDiagMngt";
			oParam.method      = "reqGetTophlgList";
			oParam.inds        = "reqCond=ds_send_reqdata";
			oParam.outds       = "ds_main_tophlginfo_tophlglist=tophlglist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00502";

		tranf_submit(oParam);
		
		for(var i = 0; i < ds_main_tophlginfo_tophlglist.rowcount; i++)
		{
			dsf_makeValue(ds_main_tophlginfo_tophlglist, "grde", "string", ds_main_tophlginfo_tophlglist.getColumn(i, "tplgrde"), i);
			dsf_makeValue(ds_main_tophlginfo_tophlglist, "seqno", "string", ds_main_tophlginfo_tophlglist.getColumn(i, "tplseqno"), i);
			dsf_makeValue(ds_main_tophlginfo_tophlglist, "engnm", "string", ds_main_tophlginfo_tophlglist.getColumn(i, "tplengnm"), i);
			dsf_makeValue(ds_main_tophlginfo_tophlglist, "hngnm", "string", ds_main_tophlginfo_tophlglist.getColumn(i, "tplhngnm"), i);
		}
    }
    else if(sObjLId=="trv_trvmopholist")
    {
        var indxcd = ds_main_indxinfo_indxlist.getColumn(sObjRow, "indxcd");
        ds_send_reqdata.clear();
        dsf_makeValue(ds_send_reqdata, "srchindxcd", "string",indxcd);
        dsf_makeValue(ds_send_reqdata, "flag", "string","indx");
        dsf_makeValue(ds_send_reqdata, "diagflag", "string","");
        dsf_makeValue(ds_send_reqdata, "srchnm", "string","");
        dsf_makeValue(ds_send_reqdata, "valiyn", "string","N");
        
        var stndd = opener.frmf_getParameter("stndd");
        if(!utlf_isNull(stndd))
		{
            dsf_makeValue(ds_send_reqdata, "stndd", "string",stndd); 
        }
        else
        {
			dsf_makeValue(ds_send_reqdata, "stndd", "string",utlf_getCurrentDate()); 
        }
		var oParam = {};
			oParam.id          = "TRMRT00501";
			oParam.service     = "termmngtapp.CncrDiagMngt";
			oParam.method      = "reqGetICDO3List";
			oParam.inds        = "reqCond=ds_send_reqdata";
			oParam.outds       = "ds_main_icdo3info_icdo3list=icdo3list";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRT00501";

		tranf_submit(oParam);
		
		for(var i = 0; i < ds_main_icdo3info_icdo3list.rowcount; i++)
		{
			dsf_makeValue(ds_main_icdo3info_icdo3list, "grde", "string", ds_main_icdo3info_icdo3list.getColumn(i, "icdo3grde"), i);
			dsf_makeValue(ds_main_icdo3info_icdo3list, "seqno", "string", ds_main_icdo3info_icdo3list.getColumn(i, "icdo3seqno"), i);
			dsf_makeValue(ds_main_icdo3info_icdo3list, "engnm", "string", ds_main_icdo3info_icdo3list.getColumn(i, "icdo3engnm"), i);
			dsf_makeValue(ds_main_icdo3info_icdo3list, "hngnm", "string", ds_main_icdo3info_icdo3list.getColumn(i, "icdo3hngnm"), i);
		}
    }
}

function fAddDiagHist(dgRow) 
{
    var sDiagCD    	= ds_main_diagcdinfo_diagcd.getColumn(dgRow, "termcd");
    var sDispDiagCD	= ds_main_diagcdinfo_diagcd.getColumn(dgRow, "diagattrcd");
    var sLglyisflag = ds_main_diagcdinfo_diagcd.getColumn(dgRow, "lglydisflag");
    var sDiagEngNM 	= ds_main_diagcdinfo_diagcd.getColumn(dgRow, "termengnm");
    var sDiagHngNM 	= ds_main_diagcdinfo_diagcd.getColumn(dgRow, "termhngnm");
    var termfromdd 	= ds_main_diagcdinfo_diagcd.getColumn(dgRow, "termfromdd");
    
    var iFndRow = ds_param_selectdiaginfo_selectdiaglist.findRow("diagcd",sDiagCD);
    
    
    if(iFndRow < 0)
    {
        iCurRow = ds_param_selectdiaginfo_selectdiaglist.addRow();
        dsf_makeValue(ds_param_selectdiaginfo_selectdiaglist, "stat", "String", "I", iCurRow);
        dsf_makeValue(ds_param_selectdiaginfo_selectdiaglist, "diagcd", "String", sDiagCD, iCurRow);
        dsf_makeValue(ds_param_selectdiaginfo_selectdiaglist, "dispdiagcd", "String", sDispDiagCD, iCurRow);
        dsf_makeValue(ds_param_selectdiaginfo_selectdiaglist, "diagengnm", "String", sDiagEngNM, iCurRow);
        dsf_makeValue(ds_param_selectdiaginfo_selectdiaglist, "diaghngnm", "String", sDiagHngNM, iCurRow);
        dsf_makeValue(ds_param_selectdiaginfo_selectdiaglist, "lglydisflag", "String", sLglyisflag, iCurRow);
        dsf_makeValue(ds_param_selectdiaginfo_selectdiaglist, "termfromdd", "String", termfromdd, iCurRow);
    }
    else if(iFndRow >= 0)
    {
        sysf_messageBox("이미 선택하신 코드","E008");
        return;
    }
}

function fAddMophoHist(mRow)
{
    var grde      = eval(xMophlgPath).getColumn(mRow, "grde");   
    var seqno     = eval(xMophlgPath).getColumn(mRow, "seqno");
    var engnm     = eval(xMophlgPath).getColumn(mRow, "engnm");
    var hngnm     = eval(xMophlgPath).getColumn(mRow, "hngnm");
    var fromdd    = eval(xMophlgPath).getColumn(mRow, "fromdd");
    var todd      = eval(xMophlgPath).getColumn(mRow, "todd");
    var histlgccd = eval(xMophlgPath).getColumn(mRow, "histlgccd");
    var indxcd    = eval(xMophlgPath).getColumn(mRow, "indxcd");
    var iFndRow1  = ds_param_mopho_mophoinfo.findRow("histlgccd", histlgccd);
    var iFndRow2  = ds_param_mopho_mophoinfo.findRow("seqno", seqno);
    if((iFndRow1 >= 0) && (iFndRow2 >= 0))
    {
        sysf_messageBox("이미선택하신코드","E008");
        return;
    }
    else 
    {
        dRow = ds_param_mopho_mophoinfo.addRow();
        var sMophoPath = "ds_param_mopho_mophoinfo";
        dsf_makeValue(ds_param_mopho_mophoinfo, "stat", "string", "I", dRow);
        dsf_makeValue(ds_param_mopho_mophoinfo, "grde", "string", grde, dRow);
        dsf_makeValue(ds_param_mopho_mophoinfo, "seqno", "string", seqno, dRow);
        dsf_makeValue(ds_param_mopho_mophoinfo, "engnm", "string", engnm, dRow);
        dsf_makeValue(ds_param_mopho_mophoinfo, "hngnm", "string", hngnm, dRow);
        dsf_makeValue(ds_param_mopho_mophoinfo, "fromdd", "string", fromdd, dRow);
        dsf_makeValue(ds_param_mopho_mophoinfo, "todd", "string", todd, dRow);
        dsf_makeValue(ds_param_mopho_mophoinfo, "histlgccd", "string", histlgccd, dRow);
        dsf_makeValue(ds_param_mopho_mophoinfo, "indxcd", "string", indxcd, dRow);
    }
}

function fAddTophoHist(toRow)
{
    var grde      = eval(xTophlgPath).getColumn(toRow, "grde");   
    var seqno     = eval(xTophlgPath).getColumn(toRow, "seqno");
    var engnm     = eval(xTophlgPath).getColumn(toRow, "engnm");
    var hngnm     = eval(xTophlgPath).getColumn(toRow, "hngnm");
    var fromdd    = eval(xTophlgPath).getColumn(toRow, "fromdd");
    var todd      = eval(xTophlgPath).getColumn(toRow, "todd");
    var tophlgcd  = eval(xTophlgPath).getColumn(toRow, "tophlgcd");
    var iFndRow1 = ds_param_topho_tophoinfo.findRow("tophlgcd",tophlgcd);
    var iFndRow2 = ds_param_topho_tophoinfo.findRow("seqno", seqno);
    if((iFndRow1 >= 0) && (iFndRow2 >= 0))
    {
        sysf_messageBox("이미선택하신코드","E008");
        return;
    }
    else 
    {
        desRow = ds_param_topho_tophoinfo.addRow();
        var sParamTophoPath = "ds_param_topho_tophoinfo" ;
        dsf_makeValue(ds_param_topho_tophoinfo, "stat", "string", "I", desRow);
        dsf_makeValue(ds_param_topho_tophoinfo, "grde", "string", grde, desRow);
        dsf_makeValue(ds_param_topho_tophoinfo, "seqno", "string", seqno, desRow);
        dsf_makeValue(ds_param_topho_tophoinfo, "engnm", "string", engnm, desRow);
        dsf_makeValue(ds_param_topho_tophoinfo, "hngnm", "string", hngnm, desRow);
        dsf_makeValue(ds_param_topho_tophoinfo, "fromdd", "string", fromdd, desRow);
        dsf_makeValue(ds_param_topho_tophoinfo, "todd", "string", todd, desRow);
        dsf_makeValue(ds_param_topho_tophoinfo, "tophlgcd", "string", tophlgcd, desRow);
    }
}


function fAddicd10Hist(srcRow)
{
    var icd10medireccd   = eval(sICD10LIST).getColumn(srcRow, "icd10medireccd");   
    var icd10engnm       = eval(sICD10LIST).getColumn(srcRow, "icd10engnm");
    var icd10hngnm       = eval(sICD10LIST).getColumn(srcRow, "icd10hngnm");
    var icd10cd          = eval(sICD10LIST).getColumn(srcRow, "icd10cd");
    var icd10drindxcd    = eval(sICD10LIST).getColumn(srcRow, "icd10drindxcd");
    var icd10seqno       = eval(sICD10LIST).getColumn(srcRow, "icd10seqno");
    var iFndRow1 = ds_param_icd10_icd10info.findRow("icd10cd",icd10cd);
    if(iFndRow1 >= 0)
    {
        sysf_messageBox("이미선택하신코드","E008");
        return;
    }
    else
    {
        desRow = ds_param_icd10_icd10info.addRow();
        dsf_makeValue(ds_param_icd10_icd10info, "stat", "string", "I", desRow);
        dsf_makeValue(ds_param_icd10_icd10info, "icd10cd", "string", icd10cd, desRow);
        dsf_makeValue(ds_param_icd10_icd10info, "icd10medireccd", "string", icd10medireccd, desRow);
        dsf_makeValue(ds_param_icd10_icd10info, "icd10engnm", "string", icd10engnm, desRow);
        dsf_makeValue(ds_param_icd10_icd10info, "icd10hngnm", "string", icd10hngnm, desRow);
        dsf_makeValue(ds_param_icd10_icd10info, "icd10drindxcd", "string", icd10drindxcd, desRow);
        dsf_makeValue(ds_param_icd10_icd10info, "icd10seqno", "string", icd10seqno, desRow);
    }
}


function fSendTermCd()
{
    var flag = ds_hidden_search.getColumn(0, "flag");
    if(flag==1)
    {
        if(frmf_checkOpener())
        {
            var nodepath = opener.frmf_getParameter("SPMRT01500_param_nodepath");//parameter nodepath 설정
            
            trace("nodepath :"+nodepath);
            if(utlf_isNull(nodepath))
            {
                var selectNode = "ds_temp"
                if(opener.objects[selectNode] == null)
                {
                    opener.dsf_createDs("ds_temp");
                }
                opener.ds_temp.copyData(ds_param_selectdiaginfo_selectdiaglist);
                opener.frmf_setParameter("SPMRT01500_FLAG","1");//진단용어
            }
            else
            {
                var selectnode = nodepath;
                if(opener.objects[selectnode] == null)
				{
					 opener.dsf_createDs(nodepath);
                }
                var receiveref = eval("opener."+nodepath);
                receiveref.copyData(ds_param_selectdiaginfo_selectdiaglist);
				opener.frmf_setParameter("SPMRT01500_FLAG","1");
            }
        }
        else
        {
            sysf_messageBox("상위 화면이 변경되어 데이터를 전달", "E001");
        }
        this.close();
    }
    else if(flag==2) 
    {
        if(frmf_checkOpener())
        {
            var nodepath = opener.frmf_getParameter("SPMRT01500_param_nodepath");
            if(utlf_isNull(nodepath))
            {
                var selectNode = "ds_temp";
                if(opener.objects[selectNode] == null)
                {
					opener.dsf_createDs("ds_temp");
                }
                opener.ds_temp.copyData(ds_param_mopho_mophoinfo);
                opener.frmf_setParameter("SPMRT01500_FLAG","2");
            }
            else
            {
                var selectnode = nodepath;
                if(opener.objects[selectnode] == null)
                {
					opener.dsf_createDs(nodepath);
                }       
                var receiveref = eval("opener."+nodepath);
                opener.receiveref.copyData(ds_param_mopho_mophoinfo);
                opener.frmf_setParameter("SPMRT01500_FLAG","2");
            }
        }
        else
        {
            sysf_messageBox("상위 화면이 변경되어 데이터를 전달", "E001");
        }
        this.close();
    }
    else if(flag==3) 
    {
        if(frmf_checkOpener())
        {
            var nodepath = opener.frmf_getParameter("SPMRT01500_param_nodepath");
            if(utlf_isNull(nodepath))
            {
				var selectNode = "ds_temp";
                if(opener.objects[selectNode] == null)
                {
					opener.dsf_createDs("ds_temp");
                }
                ds_temp.copyData(ds_param_topho_tophoinfo);
                opener.frmf_setParameter("SPMRT01500_FLAG","3");
            }
            else
            {
				var selectnode = nodepath;
                if(opener.objects[selectnode] == null)
                {
					opener.dsf_createDs(nodepath);
                }
                var receiveref = eval("opener."+nodepath);
                opener.receiveref.copyData(ds_param_topho_tophoinfo);
                opener.frmf_setParameter("SPMRT01500_FLAG","3");
            }
        }
        else
        {
            sysf_messageBox("상위 화면이 변경되어 데이터를 전달", "E001");
        }
        this.close();
    }
    else if(flag==4)
    {
        if(frmf_checkOpener())
        {
            var nodepath = opener.frmf_getParameter("SPMRT01500_param_nodepath");
            if(utlf_isNull(nodepath))
            {
                var selectNode = "ds_temp";
                if(opener.objects[selectNode] == null)
                {
					opener.dsf_createDs(selectNode);
                }
                opener.ds_temp.copyData(ds_param_icd10_icd10info);
                opener.frmf_setParameter("SPMRT01500_FLAG","4");
            }
            else
            {
                var selectnode = nodepath;
                if(opener.objects[selectnode] == null)
                {
					opener.dsf_createDs(nodepath);
                }       
                 var receiveref = eval("opener."+nodepath);
                opener.receiveref.copyData(ds_param_icd10_icd10info);
                opener.frmf_setParameter("SPMRT01500_FLAG","4");
            }
        }
        else
        {
            sysf_messageBox("상위 화면이 변경되어 데이터를 전달", "E001");
        }
        this.close();            
    }
    else if(flag==5)
    {
        if(frmf_checkOpener())
        {
            var nodepath = opener.frmf_getParameter("SPMRT01500_param_nodepath");//parameter nodepath 설정
            if(utlf_isNull(nodepath))
            {
                var selectNode = "ds_temp";
                if(opener.objects[selectNode] == null)
                {
					opener.dsf_createDs(selectNode);
                }
                opener.ds_temp.copyData(ds_param_selectopinfo_selectoplist);
                opener.frmf_setParameter("SPMRT01500_FLAG","5");//진단용어
            }
            else
            {
				var selectnode = nodepath;
                if(opener.objects[selectnode] == null)
                {
					opener.dsf_createDs(nodepath);
                }       
                 var receiveref = eval("opener."+nodepath);
                opener.receiveref.copyData(ds_param_selectopinfo_selectoplist);
                opener.frmf_setParameter("SPMRT01500_FLAG","5");
            }
        }
        else
        {
            sysf_messageBox("상위 화면이 변경되어 데이터를 전달", "E001");
        }
        this.close();
    }
}

function fCleanTerm()
{
	var flag = ds_hidden_search.getColumn(0, "flag");
	if(flag==1)
	{
		eval(DiagPath).clearData();
		ds_param_selectdiaginfo_selectdiaglist.clearData();
	}
	else if(flag==2)
	{
		eval(xMophlgPath).clearData();
		ds_param_mopho_mophoinfo.clearData();
	}
	else if(flag==3)
	{ 
		eval(xTophlgPath).clearData();    
		ds_param_topho_tophoinfo.clearData();
	}
	else if(flag==4)
	{
		eval(sICD10LIST).clearData();
		ds_param_icd10_icd10info.clearData();
	}
	else if(flag==5)
	{
		ds_main_opcdinfo_opcd.clearData();
		ds_param_selectopinfo_selectoplist.clearData();
	}
}


function fAddBtnTerm()
{
    var flag = ds_hidden_search.getColumn(0, "flag");
    if(flag==1)
    {
        var diagRow = grdf_getSelectedRows(swt_diaginfo.diag.grd_diaglist);
        for(var i = 0; i < diagRow.length; i++)
        {
            var dgRow = diagRow[i];
            fAddDiagHist(dgRow);
        }
    }
    else if(flag==2)
    {
        var mrow = grdf_getSelectedRows(swt_diaginfo.moph.grd_icdo3list); 
        for(var i = 0; i < mrow.length;i++)
        {
            var mRow = mrow[i];
            fAddMophoHist(mRow);    
        }
    }
    else if(flag==3)
    {
        var torow = grdf_getSelectedRows(swt_diaginfo.toph.grd_tophlglist);
        for(var i = 0; i < torow.length; i++)
        {
            var toRow = torow[i];
            fAddTophoHist(toRow);            
        }
    }
    else if(flag==4)
    {
        var totrow = grdf_getSelectedRows(swt_diaginfo.icd10.grd_icd10list);
        for(var i = 0; i < totrow.length; i++)
        {
            var dRow = totrow[i];
            fAddicd10Hist(dRow);
        }    
    }
    else if(flag==5)
    {
        var totrow = grdf_getSelectedRows(swt_diaginfo.op.grd_oplist);
        for(var i = 0; i < totrow.length; i++)
        {
            var opRow = totrow[i];
            fAddopHist(opRow);
        }
    }
}

function fdelRow_TermList()
{
    var flag = ds_hidden_search.getColumn(0, "flag");

    if(flag==1)
    {
        if(ds_param_selectdiaginfo_selectdiaglist.rowposition < 0) return;
        var rows = grdf_getSelectedRows(swt_diaginfo.diag.grd_selectdiag);
       
        for ( var i = rows.length ; i >= 0 ; i--)
        {
            rowIdx = rows[i];
            ds_param_selectdiaginfo_selectdiaglist.deleteRow(rowIdx);
        }
    }
    else if(flag==2)
    {
		if(ds_param_mopho_mophoinfo.rowposition < 0) return;
        var rows = grdf_getSelectedRows(swt_diaginfo.moph.grd_mophoinfo);
       
        for ( var i = rows.length ; i >= 0 ; i--)
        {
            rowIdx = rows[i];
            ds_param_mopho_mophoinfo.deleteRow(rowIdx);
        }
    }
    else if(flag==3)
    {
        if(ds_param_topho_tophoinfo.rowposition < 0) return;
        
        var rows = grdf_getSelectedRows(swt_diaginfo.toph.grd_tophlglist);
       
        for ( var i = rows.length ; i >= 0 ; i--)
        {
            rowIdx = rows[i];
            ds_param_topho_tophoinfo.deleteRow(rowIdx);
        }
    }
    else if(flag==4)
    {
        if(ds_param_icd10_icd10info.rowposition < 0) return;
        
        var rows = grdf_getSelectedRows(swt_diaginfo.icd10.grd_icd10info);
       
        for ( var i = rows.length ; i >= 0 ; i--)
        {
            rowIdx = rows[i];
            ds_param_icd10_icd10info.deleteRow(rowIdx);
        }
    }
    else if(flag==5) 
    {
        if(ds_param_selectopinfo_selectoplist.rowposition < 0) return;
        
        var rows = grdf_getSelectedRows(swt_diaginfo.op.grd_selectop);
       
        for ( var i = rows.length ; i >= 0 ; i--)
        {
            rowIdx = rows[i];
            ds_param_selectopinfo_selectoplist.deleteRow(rowIdx);
        }
    }    
}

function fAddopHist(opRow)
{
    var sOpCD    	= ds_main_opcdinfo_opcd.getColumn(opRow, "termcd");
    var sDispOpCD	= ds_main_opcdinfo_opcd.getColumn(opRow, "opattrcd");
    var sDiagEngNM 	= ds_main_opcdinfo_opcd.getColumn(opRow, "termengnm");
    var sDiagHngNM 	= ds_main_opcdinfo_opcd.getColumn(opRow, "termhngnm");
    var termfromdd 	= ds_main_opcdinfo_opcd.getColumn(opRow, "termfromdd");
    var iFndRow = ds_param_selectopinfo_selectoplist.findRow("opcd", sOpCD);
    
    if(iFndRow < 0)
    {
        iCurRow = ds_param_selectopinfo_selectoplist.addRow();
        dsf_makeValue(ds_param_selectopinfo_selectoplist, "stat", "I", iCurRow);
        ds_param_selectopinfo_selectoplist.setColumn(iCurRow , "opcd", sOpCD);
        ds_param_selectopinfo_selectoplist.setColumn(iCurRow , "dispopcd", sDispOpCD);
        ds_param_selectopinfo_selectoplist.setColumn(iCurRow , "opengnm", sDiagEngNM);
        ds_param_selectopinfo_selectoplist.setColumn(iCurRow , "ophngnm", sDiagHngNM);
        ds_param_selectopinfo_selectoplist.setColumn(iCurRow , "termfromdd", termfromdd);
    }
    else if(iFndRow >= 0)
    {
        sysf_messageBox("이미 선택하신 코드","E008");
        return;
    }
}

function fIsHangul(pData) {
	var sBit = pData.charAt(0);    
	if (escape(sBit).length <= 4) return "E";    
	return "H";
}
]]></Script>