YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO90800_처방사유입력.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO90800" position="absolute 0 0 505 210" titletext="처방사유 입력" oninit="SPMMO90800_oninit" onload="SPMMO90800_onload">
    <Layouts>
      <Layout>
        <Static text="처방 사유 입력" position="absolute 0 0 500 20" id="caption1" class="tit_2"/>
        <Grid position="absolute 0 49 500 185" id="grd_resnlist" binddataset="ds_resnlist" autofittype="col" oncellclick="grd_resnlist_oncellclick" autosizingtype="row" extendsizetype="row" scrollpixel="all" cellsizingtype="col" oncelldblclick="grd_resnlist_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="60"/>
                <Column size="420"/>
              </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:code"/>
                <Cell col="1" displaytype="text" edittype="expr:(hardcd != &quot;T&quot;) ? &quot;none&quot; : &quot;text&quot;" text="bind:cdnm" wordwrap="word" editautoselect="true" autosizerow="limitmin"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button position="absolute 440 187 500 207" id="btn_cncl" class="btn4" text="닫기" onclick="btn_cncl_onclick"/>
        <Button id="button3" taborder="1" text="저장" onclick="button3_onclick" class="btn4" position="absolute 378 187 438 207"/>
        <Static id="caption00" text="처방코드" class="cell_1" position="absolute 0 23 60 46" style="padding:0 0 0 0;align:center middle;"/>
        <Edit id="input1" taborder="2" class="input_default" enable="false" position="absolute 64 25 154 44"/>
        <Static id="caption2" text="처방명" class="cell_1" position="absolute 161 23 221 46" style="padding:0 0 0 0;align:center middle;"/>
        <Edit id="input2" taborder="3" class="input_default" enable="false" position="absolute 224 25 500 44"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_resninfo" 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="autoyn" type="STRING" size="256"/>
          <Column id="ordtype" 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="orddeptcd" 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"/>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="prcpnm" type="STRING" size="256"/>
          <Column id="resncd" type="STRING" size="256"/>
          <Column id="resncnts" type="STRING" size="256"/>
          <Column id="gubuncd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_resnlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="code" type="STRING" size="256"/>
          <Column id="cdnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="input1" propid="value" datasetid="ds_patinfo" columnid="pid"/>
      <BindItem id="item1" compid="input2" propid="value" datasetid="ds_patinfo" columnid="pat_nm"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	        :   엄영만	
 * Make Date 		:	2017-12-28
 * Description  	:	처방 사유를 입력한다.
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";

function SPMMO90800_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	ds_resninfo.copyData(arg_ds_resninfo);
}

function SPMMO90800_onload(obj:Form, e:LoadEventInfo)
{
	var sAutoYn = ds_resninfo.getColumn(0, "autoyn");
	if(utlf_isNull(sAutoYn)){
		sAutoYn = "N";
		ds_resninfo.setColumn(0, "autoyn", sAutoYn);
	}
	
	var sResnFlag = ds_resninfo.getColumn(0, "resnflag");
	if(utlf_isNull(sResnFlag)){
		sysf_messageBox("사유 구분 정보가 없습니다.", "E999");
		return;
	} 
	
	if(utlf_isNull(ds_resninfo.getColumn(0, "pid"))){
		sysf_messageBox("환자번호 정보가 없습니다.", "E999");
		return;
	} 
	
	if(utlf_isNull(ds_resninfo.getColumn(0, "orddd"))){
		sysf_messageBox("진료일자 정보가 없습니다.", "E999");
		return;
	} 
	
	if(utlf_isNull(ds_resninfo.getColumn(0, "cretno"))){
		sysf_messageBox("접수번호 정보가 없습니다.", "E999");
		return;
	} 

	appf_getCodeList([{dsNm: "ds_M0530", cdGrpId: "M0530"}], true);
	
	if(sAutoYn == "Y") { // 자동 등록 처리이면
		if(utlf_isNull(ds_resninfo.getColumn(0, "resncd"))){
			sysf_messageBox("사유코드 정보가 없습니다.", "E999");
			return;
		} 
		
		if(utlf_isNull(ds_resninfo.getColumn(0, "resncnts"))){
			sysf_messageBox("사유내용 정보가 없습니다.", "E999");
			return;
		}
		
		fSaveResn();
	} else {
		
		dsf_makeValue(ds_resninfo, "gubuncd",  "string", "PRCPRESN" + sResnFlag);
		
		var oParam = {};
		oParam.id          = "TRMMO90801";
		oParam.service     = "prcpmngtapp.PrcpMngt";
		oParam.method      = "reqGetPrcpResnCdList";
		oParam.inds        = "req=ds_resninfo";
		oParam.outds       = "ds_resnlist=resnlist";
		oParam.async       = true;
		oParam.callback    = "cf_TRMMO90801";

		tranf_submit(oParam);
	}
}

function cf_TRMMO90801(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}

function grd_resnlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row < 0 || e.col < 0) return;
	
	if ( obj.getCellPos() == obj.getBindCellIndex("body", "cdnm") ) {
		if ( ds_resnlist.getColumn(e.row, "cdnm") == "(이곳에 사유입력을 하세요)") {
			obj.setCellPos(e.col);
			obj.setCellProperty("body", e.col, "edittype", "text");		
			obj.showEditor(true);
		} else {
			obj.setCellProperty("body", e.col, "edittype", "none");
		}
	}
}

function grd_resnlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row < 0 || e.col < 0) return;
	

	if ( ds_resnlist.getColumn(e.row, "cdnm") == "(이곳에 사유입력을 하세요)") {
		obj.setCellPos(e.col);
		obj.setCellProperty("body", e.col, "edittype", "text");		
		obj.showEditor(true);
	} else {
		fSaveResn();
	}
}

function button3_onclick(obj:Button,  e:ClickEventInfo)
{
	fSaveResn();
}

function fSaveResn() {
	var sAutoYn = ds_resninfo.getColumn(0, "autoyn");
	var sCode   = "";
	var sCdNm   = "";
	
	if(sAutoYn != "Y") {
		var currow = ds_resnlist.rowposition;
		if ( currow >= 0 ) {
			sCode = ds_resnlist.getColumn(currow, "code");
			sCdNm = ds_resnlist.getColumn(currow, "cdnm");
			
			if(sCdNm == "(이곳에 사유입력을 하세요)") {
				sCode = "";
				sCdNm = "";
			}
		}
		
		if(utlf_isNull(sCode)){
			sysf_messageBox ( "처방사유를 선택 하세요.", "E999" );
			return;
		}
		
		ds_resninfo.setColumn(0, "resncd",   sCode);
		ds_resninfo.setColumn(0, "resncnts", sCdNm);
	}
	
	var oParam = {};
		oParam.id          = "TXMMO90801";
		oParam.service     = "prcpmngtapp.PrcpMngt";
		oParam.method      = "reqExePrcpComResn";
		oParam.inds        = "req=ds_resninfo";
		oParam.async       = false;
		oParam.callback    = "cf_TXMMO90801";

	tranf_submit(oParam);
}

function cf_TXMMO90801(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    
    opener.frmf_setParameter ( "SPMMO90800_rtn", "Y" );
    
    var sAutoYn = ds_resninfo.getColumn(0, "autoyn");
	if(sAutoYn != "Y"){
		sysf_messageBox("처방사유를 저장 하였습니다.", "I999");
	} 
	
    close();
}

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



]]></Script>
  </Form>
</FDL>