YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO21100_환자수진별사유입력.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.4">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO21100" position="absolute 0 0 260 200" titletext="환자수진별사유입력" oninit="SPMMO21100_oninit" onload="SPMMO21100_onload" onkeydown="SPMMO21100_onkeydown">
    <Layouts>
      <Layout>
        <Static text="정신과 차등수가제도 특정내역" position="absolute 0 1 240 21" align="align:center middle;" id="cap_title" class="tit_2"/>
        <Button position="absolute 218 181 260 200" id="btn_cnfm" class="btn2" text="확인" onclick="btn_cnfm_onclick"/>
        <Grid position="absolute 0 22 260 178" id="grd_opdruglist" binddataset="ds_grd_opdrugresnlist" oncelldblclick="grd_opdruglist_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="249"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="사유코드"/>
                <Cell col="1" text="특정내역"/>
              </Band>
              <Band id="body">
                <Cell text="bind:resncd"/>
                <Cell col="1" text="bind:resncnts"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_opdrugresnlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" onrowposchanged="ds_grd_opdrugresnlist_onrowposchanged">
        <ColumnInfo>
          <Column id="resncd" type="STRING"/>
          <Column id="resncnts" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hardcdno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_savedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="resnflag" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="ordtype" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="resncd" type="STRING" size="256"/>
          <Column id="resncnts" 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="prcpdd">00000000</Col>
            <Col id="prcpno">0</Col>
            <Col id="prcphistno">0</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-08-29
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-08-29      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";

var arErrorCode = new HashArray();

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

function SPMMO21100_onload(obj:Form, e:LoadEventInfo)
{
	//by sonjy 20100114 수정 parameter로 처리하도록 변경.
	var resnflag  	= opener.frmf_getParameter("SPMMO021100_resnflag");
	var hardcdno	= opener.frmf_getParameter("SPMMO21100_hardcdno"); 
	var lrg_title	= opener.frmf_getParameter( "SPMMO21100_title1");
	var sml_title	= opener.frmf_getParameter( "SPMMO21100_title2");
		 
	this.titletext = lrg_title ; 
	cap_title.text = sml_title;
	
	ds_reqdata.setColumn(0, "hardcdno", hardcdno);
		
	var oParam = {};
		oParam.id      = "TRMMO16001";
		oParam.service = "prcpmngtapp.EtcPrcpMngt";
		oParam.method  = "reqGetHardCd";
		oParam.inds    = "req=" + "ds_reqdata";
		oParam.outds   = "ds_grd_opdrugresnlist" + "=opdrugresnlist";
		oParam.async   = true;

	tranf_submit(oParam);
}

function btn_cnfm_onclick(obj:Button,  e:ClickEventInfo)
{
	//환자수진정보 setting by sonjy 20100115 
	//범용환자정보 사유 입력 화면으로 사용예정
	var orddeptcd = opener.frmf_getParameter ( "SPMMO21100_orddeptcd");
	var pid       = opener.frmf_getParameter ( "SPMMO21100_pid");
	var orddd     = opener.frmf_getParameter ( "SPMMO21100_orddd");
	var cretno    = opener.frmf_getParameter ( "SPMMO21100_cretno");
	var ordtype   = opener.frmf_getParameter ( "SPMMO21100_ordtype");	
	var resnflag  = opener.frmf_getParameter ( "SPMMO21100_resnflag");	 
	 
	if( utlf_isNull(pid) ||  utlf_isNull(orddd) ||  utlf_isNull(cretno) ||  utlf_isNull(ordtype) ||  utlf_isNull(orddeptcd) ) {
		sysf_messageBox("환자정보가 ", "E016");
		return ;
	}
		
	if (ds_grd_opdrugresnlist.rowposition < 0) {
		sysf_messageBox("항목을", "C002");
		return ;
	}
	
	ds_savedata.setColumn(0, "resnflag",  resnflag);
	ds_savedata.setColumn(0, "pid",       pid);
	ds_savedata.setColumn(0, "orddd",     orddd);
	ds_savedata.setColumn(0, "cretno",    cretno);
	ds_savedata.setColumn(0, "ordtype",   ordtype);
	ds_savedata.setColumn(0, "orddeptcd", orddeptcd);
	
	var oParam = {};
		oParam.id      = "TXMMO21101";
		oParam.service = "prcpmngtapp.EtcPrcpMngt";
		oParam.method  = "reqExeNpDiffCalcScorResn";
		oParam.inds    = "savedata=" + "ds_savedata";
		oParam.outds   = "ds_grd_opdrugresnlist" + "=opdrugresnlist";
		oParam.async   = false;
		oParam.callback = "cf_TXMMO21101";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TXMMO21101") > -1) {
		setPatientInfoDetailByKey("npresnyn", pid+ "|" + resnflag );
	}
	close();
}

function cf_TXMMO21101(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
}

function SPMMO21100_onkeydown(obj:Form, e:KeyEventInfo)
{
	if(e.keycode == 27)
		close();
}

function ds_grd_opdrugresnlist_onrowposchanged(obj:Dataset, e:DSRowPosChangeEventInfo)
{
	var resncd     = ds_grd_opdrugresnlist.getColumn(e.newrow, "resncd");
	var resncnts   = ds_grd_opdrugresnlist.getColumn(e.newrow, "resncnts") ;		
	
	ds_savedata.setColumn(0, "resncd",   resncd);
	ds_savedata.setColumn(0, "resncnts", resncnts);
}

function grd_opdruglist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	btn_cnfm.onclick.fireEvent(btn_cnfm, new ClickEventInfo());
}
]]></Script>
  </Form>
</FDL>