YNU_JEUS/app_home/himed/xpapps/emr/outcarexp/xp/SMMNO02700_외래 진찰료 마감 취소.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNO02700" position="absolute 0 0 234 388" titletext="외래 진찰료 마감 취소" oninit="SMMNO02700_oninit" onload="SMMNO02700_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 20 223 381" id="group3">
          <Layouts>
            <Layout>
              <Grid position="absolute 0 161 221 291" id="grd_endResn" taborder="5" binddataset="ds_grd_endResn" anchor="default" oncellclick="group3_grd_endResn_oncellclick">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="198"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell text="마감취소사유"/>
                      <Cell col="1" text="cdid"/>
                    </Band>
                    <Band id="body">
                      <Cell style="align:left;" text="bind:cdnm"/>
                      <Cell col="1" text="bind:cdid"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Combo position="absolute 105 110 219 129" id="combo1" class="combo_search" taborder="3" innerdataset="@ds_init_combo1" datacolumn="usernm" codecolumn="userid" anchor="default" onitemchanged="group3_combo1_onitemchanged"/>
              <Combo position="absolute 105 85 219 104" id="cmb_orddept" class="combo_s_essential" taborder="2" innerdataset="ds_init_cmb_orddept" datacolumn="deptnm" codecolumn="deptcd" anchor="default" onitemchanged="group3_cmb_orddept_onitemchanged"/>
              <Static text="등록번호" position="absolute 0 6 104 29" align="align:center middle;" id="caption52" class="cell_1" anchor="default"/>
              <Edit position="absolute 105 8 219 27" id="ipt_pid" class="input_default" taborder="1" anchor="default" onkeydown="group3_ipt_pid_onkeydown"/>
              <Static text="환자명" position="absolute 0 31 104 54" align="align:center middle;" id="caption2" class="cell_1" anchor="default"/>
              <Edit readonly="true" position="absolute 105 33 219 52" id="output1" anchor="default"/>
              <Shape position="absolute 0 26 220 32" linetype="horizontal" id="line36" class="line_2" anchor="default"/>
              <Static text="주민등록번호" position="absolute 0 56 104 79" align="align:center middle;" id="caption3" class="cell_1" anchor="default"/>
              <Shape position="absolute 0 51 220 57" linetype="horizontal" id="line1" class="line_2" anchor="default"/>
              <Edit readonly="true" position="absolute 105 58 219 77" id="output2" anchor="default"/>
              <Shape position="absolute 0 77 220 83" linetype="horizontal" id="line8" class="line_3" anchor="default"/>
              <Static text="진료과" position="absolute 0 82 104 105" align="align:center middle;" id="caption4" class="cell_1" anchor="default"/>
              <Static text="진료의" position="absolute 0 107 104 130" align="align:center middle;" id="caption5" class="cell_1" anchor="default"/>
              <Shape position="absolute 0 102 220 108" linetype="horizontal" id="line4" class="line_2" anchor="default"/>
              <Static text="진료일자" position="absolute 0 132 104 155" align="align:center middle;" id="caption7" class="cell_1" anchor="default"/>
              <Shape position="absolute 0 127 220 133" linetype="horizontal" id="line6" class="line_2" anchor="default"/>
              <Shape position="absolute 0 153 221 159" linetype="horizontal" id="line2" class="line_1" anchor="default"/>
              <Static text="기타사유" position="absolute 0 295 95 316" id="caption8" class="tit_2" anchor="default"/>
              <Edit position="absolute 0 317 221 336" id="output3" class="input_default" taborder="6" anchor="default"/>
              <Button position="absolute 178 338 220 357" id="button5" class="btn5" taborder="7" text="저장" anchor="default" onclick="group3_button5_onclick"/>
              <Shape id="line00" class="line_3" position="absolute 0 3 220 9"/>
            </Layout>
          </Layouts>
        </Div>
        <Static text="외래 진찰료 마감 취소" position="absolute 0 0 166 25" id="caption6" class="tit_1"/>
        <Combo position="absolute 105 152 219 171" id="combo2" class="combo_search" taborder="4" innerdataset="ds_init_combo2" datacolumn="ordddview" codecolumn="orddd"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_endResn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING"/>
          <Column id="cdid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_combo1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="usernm" type="STRING"/>
          <Column id="userid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_orddept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="deptnm" type="STRING"/>
          <Column id="deptcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_combo2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="ordddview" type="STRING"/>
          <Column id="orddd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <cond>
          <pid/>
          <hngnm/>
          <rgstno/>
          <orddeptcd/>
          <orddrid/>
          <orddd/>
          <cnclresn/>
          <etc/>
        </cond>
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="rgstno" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cnclresn" type="STRING" size="256"/>
          <Column id="etc" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="hngnm"/>
            <Col id="rgstno"/>
            <Col id="orddeptcd"/>
            <Col id="orddrid"/>
            <Col id="orddd"/>
            <Col id="cnclresn"/>
            <Col id="etc"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_cond_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_otptkey" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_prcdcnt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group3.ipt_pid" propid="value" datasetid="ds_cond" columnid="pid"/>
      <BindItem id="item1" compid="group3.output1" propid="value" datasetid="ds_cond" columnid="hngnm"/>
      <BindItem id="item2" compid="group3.output2" propid="value" datasetid="ds_cond" columnid="rgstno"/>
      <BindItem id="item3" compid="group3.cmb_orddept" propid="value" datasetid="ds_cond" columnid="orddeptcd"/>
      <BindItem id="item4" compid="group3.combo1" propid="value" datasetid="ds_cond" columnid="orddrid"/>
      <BindItem id="item5" compid="combo2" propid="value" datasetid="ds_cond" columnid="orddd"/>
      <BindItem id="item6" compid="group3.output3" propid="value" datasetid="ds_cond" columnid="etc"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "emr_carecomxp::CareCom.xjs";
include "com_departmentcodexp::ZSD001.xjs";
include "emr_prcpmngtxp::MMOCommon.xjs";

var arErrorCode = new HashArray();


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

function SMMNO02700_onload(obj:Form, e:LoadEventInfo)
{
	
}
function cf_TRMNO02701(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function group3_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13){
		group3.output1.setFocus();
		if(utlf_isNull(ds_cond.getColumn(0,"pid")) ){
			sysf_messageBox("등록번호를","C001");
			group3.ipt_pid.setFocus();
			return;
		}
		dsf_createDsRow("ds_send", [{col: "pid", 		val:ds_cond.getColumn(0,"pid") }								 
								 ]);	
								 
		var oParam = {};
			oParam.id          = "TRMNO02701";
			oParam.service     = "outcareapp.OutCareMngt";
			oParam.method      = "reqGetEndPatnm";
			oParam.inds        = "req=ds_send";
			oParam.outds       = "ds_cond_cond=cond";
			oParam.async       = false;
			oParam.callback    = "cf_TRMNO02701";

		tranf_submit(oParam);
  
		if(arErrorCode.pop("TRMNO02701") > -1){
			ds_cond.setColumn(0,"hngnm",ds_cond_cond.getColumn(0,"hngnm"));
			ds_cond.setColumn(0,"rgstno",ds_cond_cond.getColumn(0,"rgstno"));
			if(utlf_isNull(ds_cond.getColumn(0,"hngnm"))){
				sysf_messageBox("입력한 등록번호에 해당하는 환자가","I004");
				
				group3.ipt_pid.setFocus();
				return;
			}else{
				ds_grd_endResn.clearData();
				//zbcfGetCodeList(new Array("P0432"), new Array("/root/main/endResn"));
				
				var arrParam = [{dsNm: "ds_grd_endResn", cdGrpId: "P0432"}					   				  
					   ]		
				appf_getCodeList(arrParam);
				
				dsf_createDsRow("ds_send", [{col: "pid", 		val:ds_cond.getColumn(0,"pid") }								 
								 ]);	
				var oParam = {};
					oParam.id          = "TRMNO02702";
					oParam.service     = "outcareapp.OutCareMngt";
					oParam.method      = "reqGetEndDept";
					oParam.inds        = "req=ds_send";
					oParam.outds       = "ds_init_cmb_orddept=orddept";
					oParam.async       = false;
					//oParam.callback    = "cf_TRMNO02702";

				tranf_submit(oParam);
				
				group3.cmb_orddept.index = 0;
				var ev = new ItemChangeEventInfo;
				frmf_inputEnterKey("group3.cmb_orddept", "onitemchanged", ev );
		
				group3.output3.setFocus();
			}
				
		}
		
	}
}

function group3_grd_endResn_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	
	ds_cond.setColumn(0,"cnclresn",ds_grd_endResn.getColumn(ds_grd_endResn.rowposition,"cdid"));
	
}

function group3_combo1_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	obj.updateToDataset();
	dsf_createDsRow("ds_send", [{col: "pid", 		val:ds_cond.getColumn(0,"pid") }
								,{col: "orddeptcd", 		val:ds_cond.getColumn(0,"orddeptcd") }
								,{col: "orddrid", 		val:ds_cond.getColumn(0,"orddrid") }
								 ]);	
								 
	var oParam = {};
		oParam.id          = "TRMNO02704";
		oParam.service     = "outcareapp.OutCareMngt";
		oParam.method      = "reqGetEndOrddd";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_init_combo2=orddd";
		oParam.async       = false;
	//	oParam.callback    = "cf_TRMNO02704";

	tranf_submit(oParam);
	combo2.index = 0;
	combo2.updateToDataset();
}

function group3_cmb_orddept_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	obj.updateToDataset();
	dsf_createDsRow("ds_send", [{col: "pid", 		val:ds_cond.getColumn(0,"pid") }
								,{col: "orddeptcd", 		val:ds_cond.getColumn(0,"orddeptcd") }								
								 ]);	
	var oParam = {};
    oParam.id          = "TRMNO02703";
		oParam.service     = "outcareapp.OutCareMngt";
		oParam.method      = "reqGetEndDrid";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_init_combo1=orddr";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNO02703";

	tranf_submit(oParam);
	group3.combo1.index  = 0;
	var ev = new ItemChangeEventInfo;
				frmf_inputEnterKey("group3.combo1", "onitemchanged", ev );
}

function group3_button5_onclick(obj:Button,  e:ClickEventInfo)
{
	if(sysf_messageBox("마감취소를","Q002") != 6) return;
						
	if( (utlf_isNull(ds_cond.getColumn(0,"pid"))) ||
		(utlf_isNull(ds_cond.getColumn(0,"orddeptcd"))) ||
		(utlf_isNull(ds_cond.getColumn(0,"orddrid"))) ||
		(utlf_isNull(ds_cond.getColumn(0,"orddd")))
	  ){
		sysf_messageBox("등록번호, 진료과, 진료의, 접수일자는 ","I003");
		
		group3.ipt_pid.setFocus();
		return;
	}

	if(utlf_isNull(ds_cond.getColumn(0,"cnclresn"))){							
		sysf_messageBox("마감취소사유를","C002");
		group3.grd_endResn.setFocus();
		return;
	}
	
	if(ds_cond.getColumn(0,"cnclresn") == "99")  {						
		if(utlf_isNull(ds_cond.getColumn(0,"etc"))){								
			sysf_messageBox("기타사유를","C001");
			
			group3.output3.setFocus();
			return;
		}							
	}						
	
	dsf_createDsRow("ds_send", [{col: "pid", 		val:ds_cond.getColumn(0,"pid") }
								,{col: "orddeptcd", 		val:ds_cond.getColumn(0,"orddeptcd") }			
								,{col: "orddrid", 		val:ds_cond.getColumn(0,"orddrid") }			
								,{col: "orddd", 		val:ds_cond.getColumn(0,"orddd") }			
								 ]);	
								 
	var oParam = {};
		oParam.id          = "TRMNO02705";
		oParam.service     = "outcareapp.OutCareMngt";
		oParam.method      = "reqGetEndOtptKey";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_otptkey=otptkey";
		oParam.async       = false;
		oParam.callback    = "cf_TRMNO02705";

	tranf_submit(oParam);

	if(arErrorCode.pop("TRMNO02705") > -1){							
		if( ds_otptkey.rowcount > 0 ){
			dsf_createDsRow("ds_send", [{col: "pid", 		val:ds_cond.getColumn(0,"pid") }
								,{col: "cretno", 		val:ds_otptkey.getColumn(0,"cretno") }			
								,{col: "orddd", 		val:ds_cond.getColumn(0,"orddd") }	
							]);	
								 
			var oParam = {};
				oParam.id          = "TRMNO02706";
				oParam.service     = "outcareapp.OutCareMngt";
				oParam.method      = "reqGetEndPrcdCnt";
				oParam.inds        = "req=ds_send";
				oParam.outds       = "ds_prcdcnt=prcdcnt";
				oParam.async       = false;
				oParam.callback    = "cf_TRMNO02706";

			tranf_submit(oParam);

			if(arErrorCode.pop("TRMNO02706") > -1){
				if( ds_prcdcnt.getColumn(0,"cnt") > 0 ){
					if("6" != sysf_messageBox("취소되지 않은 처방이 존재합니다. 마감 취소 하시겠습니까?","Q999")) {
						group3.ipt_pid.setFocus();
						return;
					}
				}
					
				var etc = "";
				if(ds_cond.getColumn(0,"cnclresn") == "99")  {											
					etc = ds_cond.getColumn(0,"etc");						
				}else{											
					etc = ds_grd_endResn.getColumn(ds_grd_endResn.rowposition,"cdnm");
				}
				
				dsf_createDsRow("ds_send", [{col: "pid", 		val:ds_cond.getColumn(0,"pid") }
							,{col: "cretno", 		val:ds_otptkey.getColumn(0,"cretno") }			
							,{col: "orddd", 		val:ds_cond.getColumn(0,"orddd") }
							,{col: "acptseqno", 	val:ds_otptkey.getColumn(0,"acptseqno") }			
							,{col: "cnclresn", 		val:ds_cond.getColumn(0,"cnclresn") }
							,{col: "etc", 		val:etc }
							]);	
							
				var oParam = {};
					oParam.id          = "TXMNO02701";
					oParam.service     = "outcareapp.OutCareMngt";
					oParam.method      = "reqExeSetEndPrcp";
					oParam.inds        = "req=ds_send";
					oParam.outds       = "";
					oParam.async       = false;
					//oParam.callback    = "cf_TXMNO02701";

				tranf_submit(oParam);									
					   
				if(sysf_messageBox("마감취소작업이 정상적으로 처리되었습니다. \n"+ 
										 "외래접수에 대한 수정작업 후 반드시 재마감을 하십시오. \n\n"+ 
										 "다른환자의 마감취소를","Q003") != 6) {
					this.close();
					return;             	
				}else{
					
					group3.ipt_pid.setFocus();
				}
			}
		}else{
			sysf_messageBox("환자등록번호, 진료과, 진료의, 접수일자에 대한 마감내역이","I004");
			group3.ipt_pid.setFocus();
			return;
		}
	} // if end
}

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

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