YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO90100_처방전확인리스트.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO90100" position="absolute 0 0 865 380" titletext="처방전 확인 리스트" oninit="SPMMO90100_oninit" onload="SPMMO90100_onload">
    <Layouts>
      <Layout>
        <Button position="absolute 701 358 781 380" id="button1" class="btn4" text="계속저장" onclick="button1_onclick"/>
        <Static text="처방전 확인 리스트" position="absolute 0 0 171 20" id="caption1" class="tit_2"/>
        <Grid position="absolute 0 20 865 351" id="grd_prcpmsglist" binddataset="ds_result_prcpmsglist" cellsizingtype="col" selecttype="row" autosizingtype="row" extendsizetype="row" autofittype="col" oncelldblclick="grd_prcpmsglist_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="130"/>
                <Column size="80"/>
                <Column size="174"/>
                <Column size="55"/>
                <Column size="415"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="확인분류"/>
                <Cell col="1" text="처방코드"/>
                <Cell col="2" text="처방명"/>
                <Cell col="3" text="확인코드"/>
                <Cell col="4" text="확인내용"/>
              </Band>
              <Band id="body">
                <Cell displaytype="text" style="padding:3 3 3 3;linespace:3;" text="bind:errdisc" wordwrap="word"/>
                <Cell col="1" displaytype="text" style="padding:3 3 3 3;linespace:3;" text="bind:prcpcd" wordwrap="word"/>
                <Cell col="2" displaytype="text" style="padding:3 3 3 3;linespace:3;" text="bind:prcpnm" wordwrap="word"/>
                <Cell col="3" style="padding:3 3 3 3;linespace:3;" text="bind:errcd" wordwrap="word"/>
                <Cell col="4" displaytype="text" edittype="none" style="align:left middle;padding:3 3 3 3;linespace:2;" text="bind:errmsg" wordwrap="word" autosizerow="limitmin"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static text="* 처방 저장전 확인 리스트가 있습니다. 저장하시겠습니까 ?" position="absolute 364 360 693 380" id="caption2"/>
        <Button position="absolute 785 358 865 380" id="button2" class="btn4" text="처방취소" onclick="button2_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_result_prcpmsglist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="기관기호"/>
          <Column id="msgdd" type="STRING" size="256" sumtext="메세지일자"/>
          <Column id="msgno" type="STRING" size="256" sumtext="메세지번호"/>
          <Column id="histno" type="STRING" size="256" sumtext="메세지이력번호"/>
          <Column id="msgseq" type="STRING" size="256" sumtext="메세지상세번호"/>
          <Column id="msgcls" type="STRING" size="256" sumtext="메세지종류"/>
          <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="errcd" type="STRING" size="256" sumtext="오류코드"/>
          <Column id="errmsg" type="STRING" size="256" sumtext="오류메세지"/>
          <Column id="errdisc" type="STRING" size="256" sumtext="오류설명"/>
          <Column id="cnfcd" type="STRING" size="256" sumtext="확인코드"/>
          <Column id="cnfmsg" type="STRING" size="256" sumtext="확인메세지"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_result_saveflaginfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="msgdd" type="STRING" size="256" sumtext="메세지일자"/>
          <Column id="msgno" type="STRING" size="256" sumtext="메세지번호"/>
          <Column id="histno" type="STRING" size="256" sumtext="메세지이력번호"/>
          <Column id="msgcls" type="STRING" size="256" sumtext="메세지종류"/>
        </ColumnInfo>
      </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";

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

function SPMMO90100_onload(obj:Form, e:LoadEventInfo)
{
	ds_result_saveflaginfo.copyData(arg_ds_result_saveflaginfo);
	
	var msgno = ds_result_saveflaginfo.getColumn(0, "msgno");
	if(msgno == "0"){
		sysf_messageBox("메세지 정보가 정확하지 않습니다.", "E999");
		return;
	}
	
	ds_result_saveflaginfo.addColumn("msgcls", "string");
	ds_result_saveflaginfo.setColumn(0, "msgcls", "I"); // 정보 조회(I) 로 설정

	var oParam = {};
		oParam.id       = "TRMMO90101";
		oParam.service  = "prcpmngtapp.PrcpMngt";
		oParam.method   = "reqGetPrcpMsgList";
		oParam.inds     = "req=ds_result_saveflaginfo";
		oParam.outds    = "ds_result_prcpmsglist=prcpmsglist";
		oParam.async    = false;

	tranf_submit(oParam);
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_result_saveflaginfo.setColumn(0, "msgcls", "I"); // 정보(I) 로 설정
	
	ds_result_saveflaginfo.addColumn("cnfcd", "string");
	ds_result_saveflaginfo.setColumn(0, "cnfcd", "Y");  // 확인 코드를 'Y' 로 설정
	
	dsf_setDefaultVal(ds_result_saveflaginfo, "cnfcd:-,cnfmsg:-,cnfrmk:-");
	
	var oParam = {};
		oParam.id       = "TXMMO90101";
		oParam.service  = "prcpmngtapp.PrcpMngt";
		oParam.method   = "reqExePrcpMsgList";
		oParam.inds     = "req=ds_result_saveflaginfo";
		oParam.async    = false;
		oParam.callback = "cf_TXMMO90101";

	tranf_submit(oParam);
}

function cf_TXMMO90101(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode > -1)
		opener.frmf_setParameter("SPMMO90100_rtn", "Y");
		
	close();
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	opener.frmf_setParameter("SPMMO90100_rtn", "N");
	close();
}

function grd_prcpmsglist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row < 0 || e.col < 0) return;
	
	if(obj.getCellPos() == obj.getBindCellIndex("body", "errmsg")) {
		var sPrscGrantNo = ds_result_saveflaginfo.getColumn(0, "prsc_grant_no");
		var sErrCd       = ds_result_prcpmsglist.getColumn(e.row, "errcd");
		var sPrcpDd      = ds_result_prcpmsglist.getColumn(e.row, "prcpdd");
		var sPrcpNo      = ds_result_prcpmsglist.getColumn(e.row, "prcpno");
		
		if(sErrCd.length > 2) {
			sErrCd = sErrCd.substring(0, 2);
		}
		
		if(!utlf_isNull(sPrscGrantNo) && sErrCd == "I7") {  // DUR관련 사유 이면
			var mon = sysf_getCurrentMonitorNumber();
			var xpt = this.getOwnerFrame().position.x + 50;
			var ypt = this.getOwnerFrame().position.y + 50;
		
			frmf_setParameter("SPMMO90700_prsc_grant_no", sPrscGrantNo);
			frmf_setParameter("SPMMO90700_prcpdd",        sPrcpDd);
			frmf_setParameter("SPMMO90700_prcpno",        sPrcpNo);
			
			frmf_modal("SPMMO90700", "SPMMO90700", null, false, mon, xpt, ypt, null, null, null, null, null, "M");
		}
	}
}
]]></Script>
  </Form>
</FDL>