YNU_JEUS/app_home/himed/xpapps/emr/csrxp/xp/SMMNG04501_BI멸균일지관리(칠곡).xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNG04501" position="absolute 0 0 1197 768" titletext="Biological Indicator일지 관리" oninit="SMMNG04501_oninit" onload="SMMNG04501_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 15 1191 759" id="grp_biz" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Div position="absolute 0 10 1191 46" align="align:center top;" id="grp_sea" anchor="default">
                <Layouts>
                  <Layout>
                    <Shape position="absolute 0 0 1190 36" id="roundrect1" type="roundrectangle" anchor="default"/>
                    <Static text="멸균일자:" position="absolute 10 9 96 26" id="caption14" class="search_name" anchor="default"/>
                    <Calendar position="absolute 95 9 180 28" id="ipt_fromdd" class="input_search" anchor="default" autoselect="true"/>
                    <Calendar position="absolute 198 9 283 28" id="ipt_todd" class="input_search" anchor="default" autoselect="true"/>
                    <Static text="~" position="absolute 183 14 195 29" id="caption1" anchor="default"/>
                    <Static text="멸균부서:" position="absolute 305 9 391 26" id="caption2" class="search_name" anchor="default"/>
                    <Combo position="absolute 390 9 500 28" id="cmb_deptcd" class="combo_search" innerdataset="@ds_init_deptinfo_csrdeptlist" datacolumn="deptnm" codecolumn="deptcd" anchor="default"/>
                    <Button position="absolute 1128 7 1184 29" id="button4" class="btn1" text="조회" anchor="default" onclick="grp_biz_grp_sea_button4_onclick"/>
                    <Shape position="absolute 1116 8 1122 28" linetype="vertical" id="line3" class="line_4" anchor="default"/>
                  </Layout>
                </Layouts>
              </Div>
              <Button position="absolute 1100 60 1142 79" id="btn_del" class="btn2" text="삭제" anchor="default" onclick="grp_biz_btn_del_onclick"/>
              <Button position="absolute 1145 60 1187 79" id="button3" class="btn5" text="저장" anchor="default" onclick="grp_biz_button3_onclick"/>
              <Static text="멸균내역" position="absolute 1 64 85 80" id="caption4" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 80 1190 86" linetype="horizontal" id="line1" class="line_10" anchor="default"/>
              <Button position="absolute 1055 60 1097 79" id="btn_add" class="btn2" text="추가" anchor="default" onclick="grp_biz_btn_add_onclick"/>
              <Grid position="absolute 0 85 1190 740" id="grd_bilist" class="datagrid2" binddataset="ds_main_biinfo_bilist" anchor="default" autofittype="col" onexpanddown="grp_biz_grd_bilist_onexpanddown" autoenter="select" cellclickbound="cell">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="24"/>
                      <Column size="89"/>
                      <Column size="0"/>
                      <Column size="118"/>
                      <Column size="0"/>
                      <Column size="100"/>
                      <Column size="100"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="96"/>
                      <Column size="54"/>
                      <Column size="82"/>
                      <Column size="0"/>
                      <Column size="100"/>
                      <Column size="78"/>
                      <Column size="80"/>
                      <Column size="100"/>
                      <Column size="100"/>
                      <Column size="80"/>
                    </Columns>
                    <Rows>
                      <Row size="26" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <Cell col="1" text="멸균일자"/>
                      <Cell col="2" text="부서"/>
                      <Cell col="3" text="부서명"/>
                      <Cell col="4" text="횟수"/>
                      <Cell col="5" text="멸균기번호"/>
                      <Cell col="6" text="BI Lot 번호"/>
                      <Cell col="7" text="멸균온도"/>
                      <Cell col="8" text="노출&#10;시간"/>
                      <Cell col="9" text="dry시간"/>
                      <Cell col="10" text="종료시간"/>
                      <Cell col="11" text="작동시간"/>
                      <Cell col="12" text="B-I배양&#10;시작자"/>
                      <Cell col="13" colspan="2" text="B-I배양&#10;시작일시" taborder="undefined"/>
                      <Cell col="15" text="B-I배양&#10;시작확인자"/>
                      <Cell col="16" text="B-I배양결과&#10;확인자"/>
                      <Cell col="17" colspan="2" text="B-I배양완료&#10;확인일시" taborder="undefined" expandshow="hide"/>
                      <Cell col="19" text="B-I배양완료&#10;확인자"/>
                      <Cell col="20" text="B-I 배양결과"/>
                      <Cell col="21" text="Control BI&#10;결과확인"/>
                      <Cell col="22" text="비고"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head"/>
                      <Cell col="1" displaytype="date" edittype="date" style="align:left middle;" text="bind:workdd" calendardisplaynulltype="none"/>
                      <Cell col="2" displaytype="combo" edittype="combo" style="padding:1 2 1 2;" text="bind:deptcd" combodataset="ds_cbo_deptcd" combocodecol="deptcd" combodatacol="deptnm"/>
                      <Cell col="3" displaytype="normal" style="align:left top;padding:5 1 0 2;" text="bind:deptnm" wordwrap="word"/>
                      <Cell col="4" text="bind:tims"/>
                      <Cell col="5" displaytype="text" edittype="text" style="align:left middle;" text="bind:bino"/>
                      <Cell col="6" displaytype="text" edittype="text" style="align:left top;padding:5 1 0 2;" text="bind:bilotno" wordwrap="word"/>
                      <Cell col="7" displaytype="combo" edittype="combo" text="bind:dinftmpr" mask="999" combodataset="ds_cbo_dinftmpr" combocodecol="deptcd" combodatacol="deptnm"/>
                      <Cell col="8" displaytype="combo" edittype="combo" text="bind:expsurtm" combodataset="ds_cbo_expsurtm" combocodecol="deptcd" combodatacol="deptnm"/>
                      <Cell col="9" displaytype="combo" edittype="combo" text="bind:drytm" combodataset="ds_cbo_drytm" combocodecol="deptcd" combodatacol="deptnm"/>
                      <Cell col="10" displaytype="text" edittype="text" text="bind:endtm" mask="hh:nn"/>
                      <Cell col="11" displaytype="none" edittype="none" text="bind:funtngtm" mask="hh:nn"/>
                      <Cell col="12" text="bind:startid"/>
                      <Cell col="13" displaytype="date" edittype="date" style="align:left middle;" text="bind:startdd" calendardisplaynulltype="none"/>
                      <Cell col="14" displaytype="text" edittype="text" style="align:center middle;" text="bind:starttm" mask="##:##" maskchar=" " expandshow="show"/>
                      <Cell col="15" displaytype="text" edittype="text" style="align:left middle;" text="bind:startnm" expandshow="show"/>
                      <Cell col="16" text="bind:rsltentid"/>
                      <Cell col="17" displaytype="date" edittype="date" style="align:left middle;" text="bind:rsltentdd" calendardisplaynulltype="none"/>
                      <Cell col="18" displaytype="text" edittype="text" style="align:center middle;" text="bind:rsltenttm" mask="##:##" maskchar=" " expandshow="show"/>
                      <Cell col="19" displaytype="text" edittype="text" style="align:left middle;" text="bind:rsltentnm" expandshow="show"/>
                      <Cell col="20" displaytype="combo" edittype="combo" style="align:left top;padding:5 1 0 2;" text="bind:birslt" wordwrap="word" combodataset="ds_cbo_birslt" combocodecol="value" combodatacol="label"/>
                      <Cell col="21" displaytype="checkbox" edittype="checkbox" text="bind:birsltcnfmyn" expr="expr:birsltcnfmyn == 'Y' || birsltcnfmyn == '1' ? '1' : '0'"/>
                      <Cell col="22" displaytype="text" edittype="text" style="align:left top;padding:5 1 0 2;" text="bind:cmt" wordwrap="word"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static text="☞ B-I 배양 시작일시 부터는 중앙공급실에서 입력합니다." position="absolute 475 55 945 75" id="caption3" anchor="default" style="color:blue;font:Arial,9,bold;"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption6" text="Biological Indicator일지 관리" class="tit_1" position="absolute 0 0 226 25"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="deptcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="fromdd"/>
            <Col id="todd"/>
            <Col id="deptcd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_codeinfo_codelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_biinfo_bilist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_deptinfo_csrdeptlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cbo_deptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cbo_dinftmpr" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cbo_expsurtm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cbo_drytm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_savedata_bilist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cbo_birslt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">No growth</Col>
            <Col id="value">1</Col>
          </Row>
          <Row>
            <Col id="label">Growth</Col>
            <Col id="value">2</Col>
          </Row>
          <Row>
            <Col id="label">N/A</Col>
            <Col id="value">3</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_biz.grp_sea.ipt_fromdd" propid="value" datasetid="ds_main_cond" columnid="fromdd"/>
      <BindItem id="item1" compid="grp_biz.grp_sea.ipt_todd" propid="value" datasetid="ds_main_cond" columnid="todd"/>
      <BindItem id="item2" compid="grp_biz.grp_sea.cmb_deptcd" propid="value" datasetid="ds_main_cond" columnid="deptcd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2017-07-11
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2017-07-11      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";

var arErrorCode 	= new HashArray();
var bolGubun = false;
function SMMNG04501_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);	//폼 초기화
	grdf_setRowTypeIcon(grp_biz.grd_bilist, 0);
}

function SMMNG04501_onload(obj:Form, e:LoadEventInfo)
{
	fInitialize();
}

// 화면 open시와 초기화 버튼 클릭시 화면 초기화 기능을 수행한다.
function fInitialize() {
	
	dsf_makeValue(ds_send_reqdata, "srchdd", "string", 		utlf_getCurrentDate());
	dsf_makeValue(ds_send_reqdata, "cdgrupid", "string",	"'018', 'U01', 'U02'");
	
	var oParam = {};
		oParam.id          = "TRMNW00001";
		oParam.service     = "wardcareapp.WardCareMngt";
		oParam.method      = "reqGetNursHardCdInfo";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_init_codeinfo_codelist=codelist";
		oParam.async       = false;		

	tranf_submit(oParam);
	
	dsf_makeValue(ds_send_reqdata, "useyn", "string", 	"");
	dsf_makeValue(ds_send_reqdata, "biyn", "string", 	"Y");

	var oParam = {};
		oParam.id          = "TRMNG00402";
		oParam.service     = "csrapp.CsrMngt";
		oParam.method      = "getCsrDeptList";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_init_deptinfo_csrdeptlist=csrdeptlist";
		oParam.async       = false;		

	tranf_submit(oParam);
	
	ds_init_deptinfo_csrdeptlist.filter("deptcd!=''");
	ds_cbo_deptcd.copyData(ds_init_deptinfo_csrdeptlist, true);
	ds_init_deptinfo_csrdeptlist.filter("");
	
	ds_init_codeinfo_codelist.filter("cdgrupid=='U02'");
	ds_cbo_dinftmpr.copyData(ds_init_codeinfo_codelist, true);
	ds_init_codeinfo_codelist.filter("");
	
	ds_init_codeinfo_codelist.filter("cdgrupid=='U01'");
	ds_cbo_expsurtm.copyData(ds_init_codeinfo_codelist, true);
	ds_init_codeinfo_codelist.filter("");
	
	ds_init_codeinfo_codelist.filter("cdgrupid=='U01'");
	ds_cbo_drytm.copyData(ds_init_codeinfo_codelist, true);
	ds_init_codeinfo_codelist.filter("");
	
	var deptcd=  sysf_getUserInfo("dutplcecd");	
	var csrdept = ds_init_codeinfo_codelist.lookup("cdgrupid", '018', "cdid");

	if(deptcd == csrdept) {		
		frmf_addComboItem("grp_biz.grp_sea.cmb_deptcd", "전  체", "", "above");
		grp_biz.grp_sea.cmb_deptcd.value = "";
				
		grp_biz.btn_add.enable = false;
		grp_biz.btn_del.enable = false;
		
		grp_biz.grp_sea.ipt_fromdd.value = utlf_getCurrentDate();
		grp_biz.grp_sea.ipt_todd.value   = utlf_getCurrentDate();
		
		bolGubun = true;
		ds_main_biinfo_bilist.addColumn("rsltentidedit", "string");
		ds_main_biinfo_bilist.addColumn("rsltentnmedit", "string");
		ds_main_biinfo_bilist.addColumn("rsltentddedit", "string");
		ds_main_biinfo_bilist.addColumn("rsltenttmedit", "string");

		grp_biz.grp_sea.cmb_deptcd.enable = true;
		
	} else { //공급실을 제외하면, 업무부서를 로그인한 사용자 부서로 자동으로 셋팅한다.
		frmf_addComboItem("grp_biz.grp_sea.cmb_deptcd", "전  체", "", "above");
		grp_biz.grp_sea.cmb_deptcd.value = "";
		
		grp_biz.grp_sea.ipt_fromdd.value = utlf_getCurrentDate();
		grp_biz.grp_sea.ipt_todd.value   = utlf_getCurrentDate();
				
		var deptcdGubun = ds_init_deptinfo_csrdeptlist.lookup("deptcd", deptcd, "deptcd");
		if(utlf_isNull(deptcdGubun)){
			gdeptcd = deptcd;
			ds_main_cond.setColumn(0, "deptcd", gdeptcd);
		}else{
			grp_biz.grp_sea.cmb_deptcd.value = deptcd;
		}
				
		grp_biz.btn_add.enable = true;
		grp_biz.btn_del.enable = true;
		
		grp_biz.grp_sea.cmb_deptcd.enable = false;
				
		bolGubun = false;		
		ds_main_biinfo_bilist.addColumn("rsltentidedit", "string");
		ds_main_biinfo_bilist.addColumn("rsltentnmedit", "string");
		ds_main_biinfo_bilist.addColumn("rsltentddedit", "string");
		ds_main_biinfo_bilist.addColumn("rsltenttmedit", "string");
	}
	
	//멸균내역 그리드 초기화.	
	ds_main_biinfo_bilist.clearData();	
	fSearch();
}

function fSearch() {
	ds_send_reqdata.copyData(ds_main_cond);

	var oParam = {};
		oParam.id          = "TRMNG04501";
		oParam.service     = "csrapp.CsrMngt";
		oParam.method      = "reqGetBiRecInfo";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_biinfo_bilist=bilist";
		oParam.async       = false;		

	tranf_submit(oParam);
	
	ds_main_biinfo_bilist.enableevent = false;
	ds_main_biinfo_bilist.updatecontrol = false;
	if(ds_main_biinfo_bilist.rowcount > 0){
		if(bolGubun == true){
			dsf_setDefaultVal(ds_main_biinfo_bilist, "rsltentidedit:text,rsltentnmedit:text,rsltentddedit:date,rsltenttmedit:text");
		}else{
			dsf_setDefaultVal(ds_main_biinfo_bilist, "rsltentidedit:none,rsltentnmedit:none,rsltentddedit:none,rsltenttmedit:none");
		}		
	}	
	ds_main_biinfo_bilist.updatecontrol = true;
	ds_main_biinfo_bilist.enableevent = true;	
}
function grp_biz_grp_sea_button4_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearch();
}

function grp_biz_grd_bilist_onexpanddown(obj:Grid, e:GridMouseEventInfo)
{
	var iCol = grp_biz.grd_bilist.currentcol;
	var iRow = ds_main_biinfo_bilist.rowposition;
	var starttm = "";
	var endtm = "";	
	ds_main_biinfo_bilist.enableevent = false;
	//ds_main_biinfo_bilist.updatecontrol = false;
	
	if(iCol == grp_biz.grd_bilist.getBindCellIndex("body", "starttm")) {
		ds_main_biinfo_bilist.setColumn(iRow, "starttm", utlf_getCurrentTime().substr(0,4));
		starttm =  ds_main_biinfo_bilist.getColumn(iRow, "starttm");
		endtm =  ds_main_biinfo_bilist.getColumn(iRow, "endtm");
		
		if( (!utlf_isNull(starttm) && !utlf_isNull(endtm)) ) {			
			ds_main_biinfo_bilist.setColumn(iRow, "funtngtm", subTm(utlf_transNullToEmpty(starttm), utlf_transNullToEmpty(endtm)));
		}
		
	}else if(iCol == grp_biz.grd_bilist.getBindCellIndex("body", "endtm")){ 
		ds_main_biinfo_bilist.setColumn(iRow, "endtm", utlf_getCurrentTime().substr(0,4));
		starttm =  ds_main_biinfo_bilist.getColumn(iRow, "starttm");
		endtm =  ds_main_biinfo_bilist.getColumn(iRow, "endtm");
		
		if( (!utlf_isNull(starttm) && !utlf_isNull(endtm)) ) {			
			ds_main_biinfo_bilist.setColumn(iRow, "funtngtm", subTm(utlf_transNullToEmpty(starttm), utlf_transNullToEmpty(endtm)));
		}
	}else if(iCol == grp_biz.grd_bilist.getBindCellIndex("body", "startnm")) {
		ds_main_biinfo_bilist.setColumn(iRow, "startnm", sysf_getUserInfo("usernm"));
		ds_main_biinfo_bilist.setColumn(iRow, "startid", sysf_getUserInfo("userid"));
	} else if(iCol == grp_biz.grd_bilist.getBindCellIndex("body", "rsltentnm")) {
		ds_main_biinfo_bilist.setColumn(iRow, "rsltentnm", sysf_getUserInfo("usernm"));
		ds_main_biinfo_bilist.setColumn(iRow, "rsltentid", sysf_getUserInfo("userid"));
	} else if(iCol == grp_biz.grd_bilist.getBindCellIndex("body", "rsltenttm")) {
		ds_main_biinfo_bilist.setColumn(iRow, "rsltentdd", utlf_getCurrentDate());
		ds_main_biinfo_bilist.setColumn(iRow, "rsltenttm", utlf_getCurrentTime().substr(0,4));		
	}
	
	//ds_main_biinfo_bilist.updatecontrol = true;
	ds_main_biinfo_bilist.enableevent = true;
	
	
	obj.showEditor(false);
}

function grp_biz_btn_add_onclick(obj:Button,  e:ClickEventInfo)
{
	var iRow = ds_main_biinfo_bilist.addRow();

	ds_main_biinfo_bilist.setColumn(iRow, "deptcd", ds_main_cond.getColumn(0, "deptcd"));
	ds_main_biinfo_bilist.setColumn(iRow, "workdd", utlf_getCurrentDate());
	
	dsf_setDefaultVal(ds_main_biinfo_bilist, "rsltentidedit:text,rsltentnmedit:text,rsltentddedit:date,rsltenttmedit:text");
}

function grp_biz_btn_del_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_main_biinfo_bilist.enableevent = false;
	ds_main_biinfo_bilist.updatecontrol = false;
	ds_main_biinfo_bilist.setRowType(ds_main_biinfo_bilist.rowposition, 8);
	ds_main_biinfo_bilist.updatecontrol = true;
	ds_main_biinfo_bilist.enableevent = true;	
}

function grp_biz_button3_onclick(obj:Button,  e:ClickEventInfo)
{
	var bilist = grdf_getGridUpdateData(grp_biz.grd_bilist);
	grdf_setStatusColumn(bilist, "status");
							
	ds_send_savedata_bilist.copyData(bilist);
	
	var oParam = {};
		oParam.id          = "TXMNG04501";
		oParam.service     = "csrapp.CsrMngt";
		oParam.method      = "reqExeBiRecInfo";
		oParam.inds        = "req=ds_send_savedata_bilist";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXMNG04501";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TXMNG04501") > -1) {
		sysf_messageBox("저장되었습니다", "I");
		fSearch();							
	}
}

function cf_TXMNG04501(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
]]></Script>
  </Form>
</FDL>