YNU_JEUS/app_home/himed/imsi/xpapps/emr/opanstxp/SMMNP01500.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	KNUH2.0
 * Job Name 		:	EMR
 * Creator 	    :	
 * Make Date 		:	2014-09-04
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-09-04      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
// var xPathData  = "/root/main/MnpmcartData/MnpmcartList"  ;    //
// var xPathInput = "/root/init/WorkData/InputData"         ;    //
// 
// var tColWidth = "74,90,70,80,121,55,291,30,73,0,0,0,0,0,0,0,0,0,0#"   //  집도
// 		         + "74,90,70,80,121,55,179,33,70,0,0,0,0,0,0,0,0,0,0" ;   //  마취
// 
// var tWidth    = tColWidth.split("#");

//=======================================================================================
// Function
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Function			: fFormInit
 * Description		: 화면 초기화 실행
 * Argument			: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fFormInit() {
//     model.removeNodeset("/root/main/icd10indx/icd10indxcdlist");
	ds_main_diagcdlist.clearData();
	ds_main_copydiagcdlist.clearData();

    //화면 open시, ICD9색인탭이 기본
    /*btn_icd10.selected = true;*/
    /*model.toggle("icd9");*/
    fReqGetIndxList();

    ds_send.clear();
    dsf_makeValue(ds_send,"flag"		,"string","X");
    dsf_makeValue(ds_send,"searchitem"	,"string","XX");
    dsf_makeValue(ds_send,"deptflag"	,"string","011");
    
	var oParam = {};
		oParam.id          = "TRMNP01512";
		oParam.service     = "opanstapp.OpAnstPatMngt";
		oParam.method      = "reqGetPerfDeptList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_init_deptlist=deptlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRMNP01512";

	tranf_submit(oParam);
	
	dsf_addDsItem( ds_init_orddept, "deptcd", "depthngnm", "전체", "", "above");	
	dsf_addDsItem( ds_init_orddept2, "deptcd", "depthngnm", "전체", "", "above");	
	cmb_orddept.index = 0;
	cmb_orddept2.index = 0;
//     addComboItem("cmb_orddept2"  , "전 체", "", "above" );
//     removeComboItem("cmb_orddept2"  , "전 체", "", "above" );
    
//    grdf_setGridSort(grd_cartlist);
//    grd_cartlist.fixedcellcheckbox(0,1) = true;

	var arrParam = [{dsNm: "ds_init_M0016", cdGrpId: "M0016"}
				   ,{dsNm: "ds_init_M0357", cdGrpId: "M0357"}
				   ,{dsNm: "ds_init_M0017", cdGrpId: "M0017"}
				   ,{dsNm: "ds_init_M0341", cdGrpId: "M0341"}
				   ]
	appf_getCodeList(arrParam);
//	model.makeNode("/root/hidden/updatelist");
	
    // 요청번호: 845
    // 요청사항: 845기본요청사항에 추가적으로 로그인한 집도과, 집도의 정보 연동
    // 수정일: 2010.05.25
    // 수정자: 김광성. kskim
    var jobkindcd 	= sysf_getUserInfo("jobkindcd");
    var jobcd 		= jobkindcd.substr(0,2);
    if( !utlf_isNull(jobkindcd) && jobcd == "03"){   // 집도과, 집도의, 수술명이 사용유무 정보가 Y인 것 조회
		ds_init_cond.setColumn(0,"rgstdeptcd"	,sysf_getUserInfo("dutplcecd")); // 집도과 정보 셋팅
		var ev = new ItemChangeEventInfo;
		frmf_inputEnterKey("cmb_orddept", "onitemchanged", ev );
		ds_init_cond.setColumn(0,"rgstperf"		,sysf_getUserInfo("userid")); // 집도의 정보 셋팅
		ds_init_cond.setColumn(0,"useflag"		,"Y"); // 수술명 사용이 Y인 것만 조회
		var ev = new ItemChangeEventInfo;
		frmf_inputEnterKey("cmb_perf", "onitemchanged", ev );
	    grd_cartlist.setFocus();
//sysf_trace(sysf_getUserInfo("dutplcecd")+"	/	"+sysf_getUserInfo("userid"));
	}
}

/****************************************************************************************
 * Function			: cf_TRMNP01512
 * Description		: TRMNP01512 콜백함수
 * Argument			: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function cf_TRMNP01512(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
	dsf_copyDs(ds_init_orddept,  ds_init_deptlist, "replace");
	dsf_copyDs(ds_init_orddept2, ds_init_deptlist, "replace");
}

/****************************************************************************************
 * Function			: fReqGetIndxList
 * Description		: ICD9 INDEX 조회
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fReqGetIndxList(){
    ds_send_reqdata.clear();
    dsf_makeValue(ds_send_reqdata,"indxflag","string","9");

	var oParam = {};
		oParam.id          = "TRMNP01502";
		oParam.service     = "opanstapp.OpAnstStocMngt";
		oParam.method      = "reqGetIndxList";
		oParam.inds        = "reqdata=ds_send_reqdata";
		oParam.outds       = "ds_main_indxcdlist=indxcdlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRMNP01502";

	tranf_submit(oParam);
}

/****************************************************************************************
 * Function			: cf_TRMNP01502
 * Description		: TRMNP01502 콜백함수
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function cf_TRMNP01502(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    ds_main_indxcdlist.updateColID("hngnm","indxhngnm");
    ds_main_indxcdlist.updateColID("engnm","indxengnm");
}

/****************************************************************************************
 * Function			: fReqGetICD9CDList
 * Description		: ICD9 용어 조회
 * Argument			: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fReqGetICD9CDList(pFlag){
    var indxcd, refopnm, refcond, condflag;
    if( ds_main_indxcdlist.rowposition > -1 ) {
//		var item = grp_grid.switch1.icd9.trv_icd9indxcdlist.item(grp_grid.switch1.icd9.trv_icd9indxcdlist.selectedIndex);
        var level = ds_main_indxcdlist.getColumn(ds_main_indxcdlist.rowposition,"levl");
        if(level == "1"){ //상위index를 클릭한 경우, 조회하지 않는다.
            return;
        }
//		indxcd   = grp_grid.switch1.icd9.trv_icd9indxcdlist.value;
        indxcd = ds_main_indxcdlist.getColumn(ds_main_indxcdlist.rowposition,"indxcd");
    }
    if( pFlag == "2" ) {//Tree 조회시
        //트리 선택시 검색어 및 전체 검색 초기화
        ds_init_cond.setColumn(0,"refopnm", "");
        ds_init_cond.setColumn(0,"refcond", "");
    } else if ( pFlag == "1" ) {//검색조건 조회시 전체 검색
        ds_init_cond.setColumn(0,"refcond", "ALL");
    }

    refopnm  = ds_init_cond.getColumn(0,"refopnm");
    refcond  = ds_init_cond.getColumn(0,"refcond");
    condflag = utlf_isHangul(refopnm);
    if( utlf_isNull(indxcd) ) { indxcd = "0"; }	//인덱스 코드가 없으면 0으로 셋팅 맵핑시 인덱스 코드가 없으면 값이 안넘어감.
    if( indxcd == "0" && utlf_isNull(refopnm) ) {
        sysf_messageBox("수술명 검색 조건을 입력하지 ", "E007");
        return;
    }
    ds_send_reqdata.clear
    dsf_makeValue(ds_send_reqdata,"icd9indxcd"	,"string", indxcd);
    dsf_makeValue(ds_send_reqdata,"refopnm"		,"string", refopnm);
    dsf_makeValue(ds_send_reqdata,"refcond"		,"string", refcond);
    dsf_makeValue(ds_send_reqdata,"condflag"	,"string", condflag);

	var oParam = {};
		oParam.id          = "TRMNP01511";
		oParam.service     = "opanstapp.OpAnstStocMngt";
		oParam.method      = "reqGetICD9CdList";
		oParam.inds        = "reqdata=ds_send_reqdata";
		oParam.outds       = "ds_main_diagcdlist=diagcdlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRMNP01511";

	tranf_submit(oParam);
}

/****************************************************************************************
 * Function			: fReqGetICD9CDList
 * Description		: ICD9 용어 조회
 * Argument			: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function cf_TRMNP01511(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    ds_main_diagcdlist.updateColID("opusetm","usehours");
    ds_main_diagcdlist.updateColID("opusetm","usemins");
    dsf_setDefaultVal(ds_main_diagcdlist,"usehours:00,usemins:00,opposturecd:00,opdirecflag:-,anstmthdcd:00,opcntmdg:0");
}

/****************************************************************************************
 * Function			: fDrCombo
 * Description		: 집도의(마취의) 콤보아이템 가져오기
 * Argument			: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fDrCombo(pCls, pDept) {
	ds_send_reqdata.clear();
	dsf_makeValue(ds_send_reqdata,"orddept","string",pDept);
	
	var oParam = {};
		oParam.id          = "TRMNP00103";
		oParam.service     = "opanstapp.OpAnstPatMngt";
		oParam.method      = "reqGetDrInfo";
		oParam.inds        = "reqdata=ds_send_reqdata";
		oParam.outds       = "ds_init_drlist=drlist";
		oParam.async       = false;
		oParam.callback    = "";

	tranf_submit(oParam);

	if (pCls ==1) {//수술명 등록용 집도의 리스트
		ds_init_drid.clear();
		dsf_copyDs(ds_init_drid, ds_init_drlist, "replace");
		dsf_addDsItem( ds_init_drid, "drid", "drnm", "전체", "", "above");	
	}

	if (pCls ==2) {//수술명 복사용 집도의 리스트
		ds_init_drid2.clear();
		dsf_copyDs(ds_init_drid2, ds_init_drlist, "replace");
		dsf_addDsItem( ds_init_drid2, "drid", "drnm", "전체", "", "above");	
	}
}

/****************************************************************************************
 * Function			: fSearchCartList
 * Description		: Case Cart MASTER 정보 가져오기
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fSearchCartList() {
	ds_send_reqdata.clear();
    if(utlf_isNull(ds_init_cond.getColumn(0,"rgstdeptcd"))) {
        sysf_messageBox("집도과를 선택하지 ", "E007");
        cmb_orddept.setFocus();
        return;
    }
    dsf_makeValue(ds_send_reqdata,"perfdeptcd"	,"string",ds_init_cond.getColumn(0,"rgstdeptcd"));
    dsf_makeValue(ds_send_reqdata,"perfdrid"	,"string",ds_init_cond.getColumn(0,"rgstperf"));
    dsf_makeValue(ds_send_reqdata,"useflag"		,"string",ds_init_cond.getColumn(0,"useflag"));
    dsf_makeValue(ds_send_reqdata,"cartgubn"	,"string","O");
    
	var oParam = {};
		oParam.id          = "TRMNP01513";
		oParam.service     = "opanstapp.OpAnstStocMngt";
		oParam.method      = "reqGetOpNmList";
		oParam.inds        = "reqdata=ds_send_reqdata";
		oParam.outds       = "ds_main_diagcdlist=diagcdlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRMNP01513";

	tranf_submit(oParam);
}

function cf_TRMNP01513(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    dsf_setDefaultVal(ds_main_diagcdlist,"uptstat:-");
}

/****************************************************************************************
 * Function			: fOpNmSave
 * Description		: Case Cart MASTER 자료저장하기
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fOpNmSave(pFlag){
    var ccrtno, opcd, useflag, statflag;
    var cnt 	   = 0;
    var opsavelist = "m▦opcd▦orddeptcd▦perfid▦cartgubn▦useflag▦deptinit▦ccrtno▦opusetm▦opposturecd▦opdirecflag▦anstmthdcd▦opcntmdg"; // 수술체위, 수술창상, 마취방법, 수술위치, 소요시간 정보 추가 2010.05.24 kskim
    var perfdeptcd = ds_init_cond.getColumn(0,"rgstdeptcd");
    var perfdrid   = ds_init_cond.getColumn(0,"rgstperf");
	var deptinit   = ds_init_orddept.getColumn(ds_init_orddept.findRow("deptcd",perfdeptcd), "deptengabbr");
//	sysf_trace("deptinit : "+deptinit);

    if( utlf_isNull(perfdeptcd) ) {
        sysf_messageBox("집도과를 선택하지 ", "E007");
        cmb_orddept.setFocus();
        return;
    }
    if( utlf_isNull(perfdrid) ) {
        sysf_messageBox("집도의를 선택하지 ", "E007");
        cmb_perf.setFocus();
        return;
    }
    
    for(var iRow = 0; iRow < ds_main_diagcdlist.rowcount; iRow++ ) {
        if( ds_main_diagcdlist.getColumn(iRow, "chkflag") == "true") {
			ccrtno  	= ds_main_diagcdlist.getColumn(iRow, "ccrtno");
            opcd    	= ds_main_diagcdlist.getColumn(iRow, "opcd");
            useflag 	= ds_main_diagcdlist.getColumn(iRow, "useflag");
            usehours 	= ds_main_diagcdlist.getColumn(iRow, "usehours"); 	// 소요시간(시)
            usemins 	= ds_main_diagcdlist.getColumn(iRow, "usemins"); 	// 소요시간(분)
            opposturecd = ds_main_diagcdlist.getColumn(iRow, "opposturecd");// 수술체위
            opdirecflag = ds_main_diagcdlist.getColumn(iRow, "opdirecflag");//수술위치
            anstmthdcd 	= ds_main_diagcdlist.getColumn(iRow, "anstmthdcd"); //마취방법
            opcntmdg 	= ds_main_diagcdlist.getColumn(iRow, "opcntmdg"); 	//수술창상
            opusetm 	= usehours.concat(usemins);
            uptstat 	= ds_main_diagcdlist.getColumn(iRow, "uptstat"); //update상태 정보
            
            if( pFlag != "D" ) {
                if( useflag == "Y" && uptstat != "U") {
                    sysf_messageBox("이미 사용중인 수술명", "E008");
                    return;
                }
            }else {
                if( useflag == "N" ) {
                    sysf_messageBox("이미 미사용 수술명", "E008");
                    return;
                }
            }
            
            if( utlf_isNull(ccrtno) ) {//등록된 카트가 아니면 신규등록, 등록된 카트이면서 미사용중이면 수정
                statflag 	= "I";
                useflag 	= "Y"
            }else {
                statflag 	= "U";
                useflag 	= "Y"
            }
            
            if( pFlag == "D" ) {//삭제이면
                statflag 	= "D";
                useflag 	= "N"
            }
            cnt++;
            
            // 소요시간, 수술체위, 수술위치, 마취방법, 수술창상 추가 . kskim. 2010.05.24
            opsavelist = opsavelist 	+ "▩" + 
					     statflag 		+ "▦" + 
					     opcd 			+ "▦" + 
					     perfdeptcd 	+ "▦" +  
					     perfdrid 		+ "▦" + 
					     "O" 			+ "▦" + 
					     useflag 		+ "▦" +  
					     deptinit 		+ "▦" + 
					     ccrtno 		+ "▦" + 
					     opusetm 		+ "▦" +  
					     opposturecd 	+ "▦" + 
					     opdirecflag 	+ "▦" + 
					     anstmthdcd 	+ "▦" +  
					     opcntmdg;
        }
    }
    
	if( cnt > 0 ) {
		ds_send_reqdata.clear();
		dsf_makeValue(ds_send_reqdata,"perfdeptcd"	,"string", perfdeptcd);
		dsf_makeValue(ds_send_reqdata,"perfdrid"	,"string", perfdrid);
		dsf_makeValue(ds_send_reqdata,"useflag"		,"string", ds_init_cond.getColumn(0,"useflag"));
		dsf_makeValue(ds_send_reqdata,"cartgubn"	,"string", "O");
		
		ds_send_savedata.clear();
		dsf_setCSVToDs("ds_send_savedata",opsavelist);
		
		var oParam = {};
			oParam.id          = "TXMNP01503";
			oParam.service     = "opanstapp.OpAnstStocMngt";
			oParam.method      = "reqInsOpNmList";
			oParam.inds        = "reqdata=ds_send_reqdata savedata=ds_send_savedata";
			oParam.outds       = "ds_main_diagcdlist=diagcdlist";
			oParam.async       = false;
			oParam.callback    = "cf_TXMNP01503";

		tranf_submit(oParam);
    }else {
       sysf_messageBox("선택하신 수술명이 ", "E007");
       return;
    }
}

function cf_TXMNP01503(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    dsf_setDefaultVal(ds_main_diagcdlist,"uptstat:-");
}

/****************************************************************************************
 * Function			: fCheckUseHours
 * Description		: 수술소요 시간(hour)입력 정보 체크 및 수정
 * Argument			: grdFlag	: 그리드 구분(original/copy)
 *					: selRow	: 선택한 row
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fCheckUseHours(grdFlag, selRow){
	var hours;
	
	if(grdFlag == "original") hours = ds_main_diagcdlist.getColumn(selRow,"usehours");
	if(grdFlag == "copy")     hours = ds_main_copydiagcdlist.getColumn(selRow,"usehours"); 
	
	var addZeroHours = "0";
	
	if(utlf_isNull(hours) ){
		return addZeroHours.concat("0");
	}
	else if(hours.length < 2){
		return addZeroHours.concat(hours);
	}
	else{
		return hours;
	}
}

/****************************************************************************************
 * Function			: fClear
 * Description		: 수술명 복사 초기화
 * Argument			: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fClear() {
	ds_main_copydiagcdlist.clearData();			//수술명복사 그리드 초기화
	ds_init_drid2.clearData();					//집도의 콤보리스트 초기화
	ds_init_cond.setColumn(0,"copdeptcd", "");	//수술명복사 집도과 초기화
	ds_init_cond.setColumn(0,"copperf"	, "");	//수술명복사 집도의 초기화
	ds_init_cond.setColumn(0,"copgubn"	, "");	//수술명복사 조건 초기화
}

/****************************************************************************************
 * Function			: fOpCopy
 * Description		: 수술명 복사
 * Argument			: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fOpCopy(){
    var copylist   = "ccrtno▦opcd▦copyflag▦perfdeptcd▦perfid▦opusetm▦opposturecd▦opdirecflag▦anstmthdcd▦opcntmdg"; // 수술체위, 수술창상, 수술위치, 마취방법, 소요시간 추가 2010.05.24 kskim
    var perfdeptcd = ds_init_cond.getColumn(0,"copdeptcd");
    var perfid     = ds_init_cond.getColumn(0,"copperf");
    var copyflag   = ds_init_cond.getColumn(0,"copgubn");

    if( utlf_isNull(perfdeptcd) ) {
        sysf_messageBox("복사할 집도과를 ", "C002");
        cmb_orddept2.setFocus();
        return;
    }else if( utlf_isNull(perfid) ) {
        sysf_messageBox("복사할 집도의를 ", "C002");
        cmb_perf2.setFocus();
        return;
    }else if( utlf_isNull(copyflag) ) {
        sysf_messageBox("복사 조건을 ", "C002");
        rd_copyflag.setFocus();
        return;
    }

    var cnt = 0;
    for( var i = 0; i < ds_main_copydiagcdlist.rowcount; i++ ) {
		var chk    		= ds_main_copydiagcdlist.getColumn(i,"chkflag");
        var opcd   		= ds_main_copydiagcdlist.getColumn(i,"opcd");
        var ccrtno 		= ds_main_copydiagcdlist.getColumn(i,"ccrtno");
		var opposturecd = ds_main_copydiagcdlist.getColumn(i,"opposturecd");	// 수숭체위
		var opdirecflag = ds_main_copydiagcdlist.getColumn(i,"opdirecflag");	// 수술위치
		var anstmthdcd 	= ds_main_copydiagcdlist.getColumn(i,"anstmthdcd");		// 마취방법
		var opcntmdg 	= ds_main_copydiagcdlist.getColumn(i,"opcntmdg");		// 수술창상
		var usehours 	= ds_main_copydiagcdlist.getColumn(i,"usehours");		// 소요시간(시)
		var usemins 	= ds_main_copydiagcdlist.getColumn(i,"usemins");		// 소요시간(분)
		var opusetm 	= usehours.concat(usemins);
		
		// 소요시간, 수술체위, 수술위치, 마취방법, 수술창상 추가 . kskim. 2010.05.24
        if( chk == "true" ) {
			copylist = 	copylist 	+ "▩" + 
						ccrtno 		+ "▦" + 
						opcd 		+ "▦" + 
						copyflag 	+ "▦" + 
						perfdeptcd 	+ "▦" + 
						perfid 		+ "▦" + 
						opusetm 	+ "▦" +  
						opposturecd + "▦" + 
						opdirecflag + "▦" + 
						anstmthdcd 	+ "▦" +  
						opcntmdg;
            cnt++;
        }
    }

    if( cnt > 0 ) {
        ds_send_copylist.clear();
        dsf_setCSVToDs("ds_send_copylist",copylist);

		var oParam = {};
			oParam.id          = "TXMNP01502";
			oParam.service     = "opanstapp.OpAnstCCrtGoodMngt";
			oParam.method      = "reqInsCopyCartList";
			oParam.inds        = "copylist=ds_send_copylist";
			oParam.outds       = "";
			oParam.async       = false;
			oParam.callback    = "";

		tranf_submit(oParam);
		
        fClear();//수술명 복사 초기화
    }else {
        sysf_messageBox("선택하신 수술명이 ", "I004");
    }
}

/****************************************************************************************
 * Function			: fSelectOpNm
 * Description		: 수술명 복사
 * Argument			: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fSelectOpNm(){
    var cnt = 0;
    ds_main_copydiagcdlist.clearData();			//수술명복사 그리드 초기화
    
    for( var iRow = 0; iRow < ds_main_diagcdlist.rowcount; iRow++ ) {
        if( ds_main_diagcdlist.getColumn(iRow,"chkflag") == "true" ) {
            if( !utlf_isNull(ds_main_diagcdlist.getColumn(iRow,"ccrtno")) ) {
                if( ds_main_diagcdlist.getColumn(iRow,"useflag") == "N" ) {
                    sysf_messageBox("미 사용중인 수술명은 선택 ", "E001");
                    ds_main_copydiagcdlist.clearData();	//수술명복사 그리드 초기화
                    return;
                }
                ds_main_copydiagcdlist.copyRow(ds_main_copydiagcdlist.addRow(),ds_main_diagcdlist,iRow);
                cnt++;
            }else {
                sysf_messageBox("미 등록된 수술명은 선택 ", "E001");
                ds_main_copydiagcdlist.clearData();	//수술명복사 그리드 초기화
                return;
            }
        }
    }

    if( cnt < 1 ) {
        sysf_messageBox("선택하신 수술명이 ", "I004");
        return;
    }
}]]></Script>