Y 정상 C 분리청구

<Button position="absolute 180 160 236 182" id="btn_save" class="btn4" text="저장" onclick="btn_save_onclick"/>
        <Button position="absolute 240 160 296 182" id="btn_exit" class="btn4" text="종료" onclick="btn_exit_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="prcpno" type="STRING" size="256"/>
          <Column id="prcphistno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="instcd"/>
            <Col id="prcpdd"/>
            <Col id="prcpno"/>
            <Col id="prcphistno"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_calcflaginfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="precalcflag" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-12-10
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-12-10      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "emr_prcpmngtxp::MMO001.xjs";

function SPMMO14001_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPMMO14001_onload(obj:Form, e:LoadEventInfo)
{
	var param = opener.frmf_getParameter("SSPMMO14001_Param");  // 처방키를 넘겨 받음.
	if(param != ""){
		param = param.split("|");
		ds_init.setColumn(0, "prcpdd", param[0]);	//model.setValue("/root/init/prcpdd",        param[0]);
		ds_init.setColumn(0, "prcpno", param[1]);	// model.setValue("/root/init/prcpno",        param[1]);
		ds_init.setColumn(0, "prcphistno", param[2]);	// model.setValue("/root/init/prcphistno",  param[2]);
		ds_init.setColumn(0, "instcd", param[3]);	// model.setValue("/root/init/instcd",         param[3]);	
		
		var oParam = {};
		oParam.id          = "TRMMO14001";
		oParam.service     = "prcpmngtapp.EtcPrcpMngt";
		oParam.method      = "reqGetCalcFlaginfo";
		oParam.inds        = "req=ds_init";
		oParam.outds       = "ds_main_calcflaginfo=calcflaginfo";
		oParam.async       = false;
		oParam.callback    = "cf_TRMMO14001";

tranf_submit(oParam);

}else{
		alert("잘못된 데이터입니다.");
		close();
	}
	
}

tranf_submit(oParam);
}

function cf_TXMMO14001(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) {
		return;
	} else {
		alert("저장되었습니다.");
		close();	
	}
}

function btn_exit_onclick(obj:Button,  e:ClickEventInfo)
{
	close();
}
]]></Script>
  </Form>
</FDL>