YNU_JEUS/app_home/himed/xpapps/pam/pamcomnxp/xp/SPPMC04200_진료의뢰서내역입력.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPMC04200" position="absolute 0 0 868 420" titletext="진료의뢰서환자입력" oninit="SPPMC04200_oninit" onload="SPPMC04200_onload">
    <Layouts>
      <Layout>
        <Button id="btn_confirm" taborder="1" text="확인" onclick="group1_btn_confirm_onclick" class="btn4" position="absolute 800 384 856 409"/>
        <Button id="btn_cancel" taborder="2" text="저장" onclick="group1_btn_cancel_onclick" class="btn4" position="absolute 741 384 797 409"/>
        <Shape id="line88" linetype="vertical" class="line_6" position="absolute 0 375 370 381"/>
        <Button id="button2" taborder="3" text="삭제" onclick="group1_button2_onclick" class="btn4" position="absolute 682 384 738 409"/>
        <Grid id="grd_ordreqfrm" taborder="4" binddataset="ds_cnst" useinputpanel="false" oncellclick="group3_grd_ordreqfrm_oncellclick" position="absolute 10 97 856 374">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25" band="left"/>
                <Column size="100"/>
                <Column size="60"/>
                <Column size="100"/>
                <Column size="76"/>
                <Column size="120"/>
                <Column size="90"/>
                <Column size="80"/>
                <Column size="200"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="진료과"/>
                <Cell col="2" text="보험종류"/>
                <Cell col="3" text="의뢰서종류"/>
                <Cell col="4" text="등록일자"/>
                <Cell col="5" text="의뢰병원명"/>
                <Cell col="6" text="의뢰기관번호"/>
                <Cell col="7" text="의뢰의사명"/>
                <Cell col="8" text="참고사항"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" style="align:center;" expr="expr:currow + 1"/>
                <Cell col="1" displaytype="combo" style="align:left;padding:0 0 0 5;" text="bind:cnst_orddeptcd" combodataset="ds_orddeptcd" combocodecol="cd" combodatacol="nm" enable="false"/>
                <Cell col="2" displaytype="combo" style="align:center;" text="bind:cnst_insuflag" combodataset="ds_insuflag" combocodecol="cd" combodatacol="nm" enable="false"/>
                <Cell col="3" displaytype="combo" style="align:center;" text="bind:cnst_ordreqkind" combodataset="ds_P0310" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="4" displaytype="date" edittype="none" style="align:center;" text="bind:cnst_fromdd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
                <Cell col="5" edittype="text" style="align:left;padding:0 0 0 5;" text="bind:cnst_reqformhospnm"/>
                <Cell col="6" text="bind:cnst_reqformhospcd"/>
                <Cell col="7" edittype="text" style="align:center;" text="bind:cnst_reqformdrnm"/>
                <Cell col="8" edittype="text" style="align:left;padding:0 0 0 5;" text="bind:cnst_remfact"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line1" linetype="vertical" class="line_1" position="absolute 10 73 695 79"/>
        <Static id="caption1" text="진료의뢰서 내역" class="tit_2" position="absolute 10 14 145 31"/>
        <Button id="btn_addrow" taborder="5" text="새로입력" onclick="group3_btn_addrow_onclick" class="btn2" position="absolute 792 10 856 35"/>
        <Combo id="cmb_orddeptcd" taborder="6" innerdataset="@ds_orddeptcd" codecolumn="cd" datacolumn="nm" class="combo_default" position="absolute 294 40 440 63"/>
        <Static id="caption4" text="진료과" class="cell_1" position="absolute 233 40 292 63"/>
        <Static id="caption13" text="환자번호" class="cell_1" position="absolute 10 40 82 63"/>
        <Shape id="line2" class="line_1" position="absolute 10 35 856 41" style="strokepen:3 solid #33bbbbff;"/>
        <Static id="caption3" text="의뢰병원명" class="cell_1" position="absolute 10 65 82 88"/>
        <Static id="caption6" text="의뢰의사명" class="cell_1" position="absolute 442 65 515 88"/>
        <Edit id="ipt_pid" taborder="7" enable="false" position="absolute 84 40 231 63"/>
        <Static id="caption2" text="보험종류" class="cell_1" position="absolute 442 40 515 63"/>
        <Combo id="combo1" taborder="8" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_default" position="absolute 517 40 608 63">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">1</Col>
                <Col id="datacolumn">건강보험</Col>
              </Row>
              <Row>
                <Col id="codecolumn">2</Col>
                <Col id="datacolumn">의료급여</Col>
              </Row>
              <Row>
                <Col id="codecolumn">3</Col>
                <Col id="datacolumn">자동차보험</Col>
              </Row>
              <Row>
                <Col id="codecolumn">4</Col>
                <Col id="datacolumn">산업재해보험</Col>
              </Row>
              <Row>
                <Col id="codecolumn">5</Col>
                <Col id="datacolumn">일반보험</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Combo id="combo2" taborder="9" innerdataset="@ds_P0310" codecolumn="cdid" datacolumn="cdnm" class="combo_default" position="absolute 683 40 856 63"/>
        <Static id="caption5" text="의뢰서종류" class="cell_1" position="absolute 610 40 681 63"/>
        <Edit id="input1" taborder="10" position="absolute 84 65 231 88"/>
        <Static id="caption7" text="참고사항" class="cell_1" position="absolute 610 65 673 88"/>
        <Edit id="input2" taborder="11" position="absolute 517 65 608 88"/>
        <Edit id="input3" taborder="12" position="absolute 675 65 856 88"/>
        <Static id="caption00" text="의뢰기관번호" class="cell_1" position="absolute 233 65 320 88"/>
        <Edit id="input00" taborder="13" position="absolute 322 65 440 88"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_cnst" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cnst_stat" type="STRING" size="256" sumtext="적용상태"/>
          <Column id="cnst_pid" type="STRING" size="256" sumtext="환자등록번호"/>
          <Column id="cnst_orddeptcd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="cnst_insuflag" type="STRING" size="256" sumtext="보험구분보호/보험구분"/>
          <Column id="cnst_ordreqkind" type="STRING" size="256" sumtext="진료의뢰서 종류"/>
          <Column id="cnst_todd" type="STRING" size="256" sumtext="종료일자"/>
          <Column id="cnst_seqno" type="INT" size="256" sumtext="일련번호"/>
          <Column id="cnst_instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="cnst_histstat" type="STRING" size="256" sumtext="이력상태"/>
          <Column id="cnst_fromdd" type="STRING" size="256" sumtext="시작일자"/>
          <Column id="cnst_reqformhospnm" type="STRING" size="256" sumtext="의뢰병원명"/>
          <Column id="cnst_reqformdrnm" type="STRING" size="256" sumtext="의뢰의사명"/>
          <Column id="cnst_remfact" type="STRING" size="256" sumtext="참고사항"/>
          <Column id="cnst_fstrgstrid" type="STRING" size="256" sumtext="최초등록자ID"/>
          <Column id="cnst_fstrgstdt" type="STRING" size="256" sumtext="최초등록일시"/>
          <Column id="cnst_lastupdtrid" type="STRING" size="256" sumtext="최종수정자ID"/>
          <Column id="cnst_lastupdtdt" type="STRING" size="256" sumtext="최종수정일시"/>
          <Column id="cnst_reqformhospcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_P0310" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_orddeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="cnst_pid" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="insuflag" type="STRING" size="256"/>
          <Column id="ordreqkind" type="STRING" size="256"/>
          <Column id="reqformhospnm" type="STRING" size="256"/>
          <Column id="reqformhospcd" type="STRING" size="256"/>
          <Column id="reqformdrnm" type="STRING" size="256"/>
          <Column id="remfact" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="histstat" type="STRING" size="256"/>
          <Column id="seqno" type="STRING" size="256"/>
          <Column id="statflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="cnst_pid"/>
            <Col id="orddeptcd"/>
            <Col id="insuflag"/>
            <Col id="ordreqkind"/>
            <Col id="reqformhospnm"/>
            <Col id="reqformdrnm"/>
            <Col id="remfact"/>
            <Col id="fromdd"/>
            <Col id="todd"/>
            <Col id="histstat"/>
            <Col id="seqno"/>
            <Col id="statflag"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_insuflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256"/>
          <Column id="nm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cd">1</Col>
            <Col id="nm">건강보험</Col>
          </Row>
          <Row>
            <Col id="cd">2</Col>
            <Col id="nm">의료급여</Col>
          </Row>
          <Row>
            <Col id="cd">3</Col>
            <Col id="nm">자보</Col>
          </Row>
          <Row>
            <Col id="cd">4</Col>
            <Col id="nm">산재</Col>
          </Row>
          <Row>
            <Col id="cd">5</Col>
            <Col id="nm">일반</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item1" compid="cmb_orddeptcd" propid="value" datasetid="ds_send" columnid="orddeptcd"/>
      <BindItem id="item0" compid="ipt_pid" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item2" compid="combo1" propid="value" datasetid="ds_send" columnid="insuflag"/>
      <BindItem id="item3" compid="combo2" propid="value" datasetid="ds_send" columnid="ordreqkind"/>
      <BindItem id="item4" compid="input1" propid="value" datasetid="ds_send" columnid="reqformhospnm"/>
      <BindItem id="item5" compid="input2" propid="value" datasetid="ds_send" columnid="reqformdrnm"/>
      <BindItem id="item6" compid="input3" propid="value" datasetid="ds_send" columnid="remfact"/>
      <BindItem id="item7" compid="input00" propid="value" datasetid="ds_send" columnid="reqformhospcd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM.xjs";
include "pam_opatmngtxp::PMOCOM.xjs";

var gPID, strSend, strRcv, sOrdDeptCD, sOrdReqKind, sInsuFlag, etcOrdFlag;

function sDefault() {
	
	var pid = ds_send.getColumn(0, "pid");
	
	ds_send.clearData();
	ds_send.addRow();
	
	ds_send.setColumn(0, "pid",           pid);
	ds_send.setColumn(0, "cnst_pid",      pid);
	ds_send.setColumn(0, "reqformhospnm", "");
	ds_send.setColumn(0, "reqformdrnm",   "");
	ds_send.setColumn(0, "fromdd",        utlf_getCurrentDate());
	ds_send.setColumn(0, "todd",          "99991231");
	ds_send.setColumn(0, "histstat",      "Y");
	ds_send.setColumn(0, "seqno",         "0");
}

function sSearch() {
	
	ds_send.setColumn(0, "cnst_pid", ds_send.getColumn(0, "pid"));
	
	var oParam = {};
	oParam.id       = "TRPAO04201";
	oParam.service  = "opatmngtapp.OPatMngt";
	oParam.method   = "reqGetCnstSpec";
	oParam.inds     = "req=ds_send";
	oParam.outds    = "ds_cnst=h_cnst";
	oParam.async    = false;

	tranf_submit(oParam);
}

function sDelete() {
	if (utlf_isNull(ds_send.getColumn(0, "pid"))) {
		sysf_messageBox("환자번호가 없습니다. 창을 닫은 후 다시 실행하십시오.", "I999");
		return;
	}
	
	if (utlf_isNull(ds_send.getColumn(0, "orddeptcd"))) {
		sysf_messageBox("진료과가 없습니다. 진료과를 선택하십시오.", "I999");
		return;
	}
	
	if (utlf_isNull(ds_send.getColumn(0, "insuflag"))) {
		sysf_messageBox("보험종류가 없습니다. 보험종류를 선택하십시오.", "I999");
		return;
	}
	
	if (utlf_isNull(ds_send.getColumn(0, "seqno"))) {
		sysf_messageBox("삭제할 의뢰서 내역을 선택하십시오.", "I999");
		return;
	}
	
	var msg = "[" + ds_orddeptcd.lookup("cd", ds_send.getColumn(0, "orddeptcd"), "nm") + "] 의 외뢰서를 삭제하시겠습니까?";
	
	if (sysf_messageBox(msg, "Q999") != "6") {
		return;
	}
	
	ds_send.setColumn(0, "statflag", "D");
	
	var oParam = {};
		oParam.id      = "TXPAO04202";
		oParam.service = "opatmngtapp.OutRgst";
		oParam.method  = "reqSetCnstUpdt";
		oParam.inds    = "req=ds_send";
		oParam.outds   = "";
		oParam.async   = false;

	tranf_submit(oParam);

	sSearch();
	
	sDefault();
	
	btn_confirm.setFocus();
}

function sSave(flag) {
	
	if (utlf_isNull(ds_send.getColumn(0, "pid"))) {
		sysf_messageBox("환자번호가 없습니다. 창을 닫은 후 다시 실행하십시오.", "I999");
		return;
	}
	
	if (utlf_isNull(ds_send.getColumn(0, "orddeptcd"))) {
		sysf_messageBox("진료과가 없습니다. 진료과를 선택하십시오.", "I999");
		return;
	}
	
	if (utlf_isNull(ds_send.getColumn(0, "insuflag"))) {
		sysf_messageBox("보험종류가 없습니다. 보험종류를 선택하십시오.", "I999");
		return;
	}
	
	if (utlf_isNull(ds_send.getColumn(0, "ordreqkind"))) {
		sysf_messageBox("의뢰서종류가 없습니다. 의뢰서종류를 선택하십시오.", "I999");
		return;
	}
	
	var cnt = 0;
	
	for (var i = 0; i < ds_cnst.rowcount; i++) {
		//20191121 고영민 진료과, 등록일자가 같은 경우로 조건 변경
		 if(ds_cnst.getColumn(i, "cnst_orddeptcd") == ds_send.getColumn(0, "orddeptcd") 
		 && ds_cnst.getColumn(i, "cnst_fromdd") == ds_send.getColumn(0, "fromdd")){
		 
			var msg = "[" + ds_orddeptcd.lookup("cd", ds_send.getColumn(0, "orddeptcd"), "nm") + "] 로 등록된 진료의뢰서가 있습니다. 수정하시겠습니까?";
				
			if (sysf_messageBox(msg, "Q999") != "6") {
				return;
			}
			
			ds_send.setColumn(0, "statflag", "U");
			
			// 트랜잭션
			var oParam = {};
			oParam.id      = "TXPAO04202";
			oParam.service = "opatmngtapp.OutRgst";
			oParam.method  = "reqSetCnstUpdt";
			oParam.inds    = "req=ds_send";
			oParam.outds   = "";
			oParam.async   = false;
			
			tranf_submit(oParam);
			
			cnt++;
		}
	}
	
	if(cnt == 0){
		ds_send.setColumn(0, "statflag", "I");
		
		/*var msg = "[" + ds_orddeptcd.lookup("cd", ds_send.getColumn(0, "orddeptcd"), "nm") + "] 의 의뢰서를 등록하시겠습니까?";
				
		if (sysf_messageBox(msg, "Q999") != "6") {
			return;
		}*/
		
		ds_send.setColumn(0, "fromdd",   utlf_getCurrentDate());
		ds_send.setColumn(0, "todd",     "99991231");
		ds_send.setColumn(0, "histstat", "Y");
		
		
		// 트랜잭션
		var oParam = {};
		oParam.id      = "TXPAO04202";
		oParam.service = "opatmngtapp.OutRgst";
		oParam.method  = "reqSetCnstUpdt";
		oParam.inds    = "req=ds_send";
		oParam.outds   = "";
		oParam.async   = false;
		
		tranf_submit(oParam);
	}
	
	sSearch();
	
	sDefault();
}

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

function SPPMC04200_onload(obj:Form, e:LoadEventInfo) {
	
	// 공통코드
	appf_getCodeList([{dsNm: "ds_P0310", cdGrpId: "P0310"}]);
	
	// 진료과코드 진료의사ID 조회
	var oParam = {};
    oParam.id       = "TRPAM00107";
    oParam.service  = "pamcomnapp.PamComn";
    oParam.method   = "reqGetDeptCDDrIDAll";
    oParam.inds     = "";
    oParam.outds    = "ds_orddeptcd=orddeptcd";
    oParam.async    = false;
	
	tranf_submit(oParam);
	
	// 환자번호가 넘어오면, 해당환자의 진료의뢰서내역 조회
	// 환자번호가 넘어오지 않으면, 환자번호가 없는 신규환자이다.
	if (frmf_checkOpener()) {
		
		opener.frmf_setParameter("SPPMC04100_RTN", "");
		
		var SPPMC04100_PARM  = opener.frmf_getParameter("SPPMC04100_PARM");
		var SPPMC04100_PARM1 = opener.frmf_getParameter("SPPMC04100_PARM1");
		
		var array_parm  = SPPMC04100_PARM.split("▦");
		var array_parm1 = SPPMC04100_PARM1.split("▦");
		
		if (array_parm.length < 1 || array_parm1.length < 1) {
			opener.frmf_setParameter("SPPMC04100_PARM",  "");
			opener.frmf_setParameter("SPPMC04100_PARM1", "");
			return;
		}
		
		gPID    = array_parm[0];
		strSend = array_parm[1];
		strRcv  = array_parm[2];
		
		sOrdDeptCD  = array_parm1[0];
		sOrdReqKind = array_parm1[1];
		sInsuFlag   = array_parm1[2];
		etcOrdFlag  = array_parm1[3];
		
		if (etcOrdFlag == "H") {
			sOrdReqKind = "3";
		} else if (sOrdReqKind == "3") {
			sOrdReqKind = "1";
		}
		
		if (sInsuFlag == "11" || sInsuFlag == "21" || sInsuFlag == "22" || sInsuFlag == "31" || sInsuFlag == "41" || sInsuFlag == "51") {
			sInsuFlag = sInsuFlag.substr(0, 1);
		}
		
		opener.frmf_setParameter("SPPMC04100_PARM",  "");
		opener.frmf_setParameter("SPPMC04100_PARM1", "");
		
		ds_send.setColumn(0, "pid",           gPID);
		ds_send.setColumn(0, "orddeptcd",     sOrdDeptCD);
		ds_send.setColumn(0, "insuflag",      sInsuFlag);
		ds_send.setColumn(0, "ordreqkind",    sOrdReqKind);
		ds_send.setColumn(0, "reqformhospnm", "");
		ds_send.setColumn(0, "reqformhospcd", "");
		ds_send.setColumn(0, "reqformdrnm",   "");
		ds_send.setColumn(0, "remfact",       "");
		ds_send.setColumn(0, "fromdd",        utlf_getCurrentDate());
		ds_send.setColumn(0, "todd",          "99991231");
		ds_send.setColumn(0, "histstat",      "Y");
		ds_send.setColumn(0, "seqno",         "0");
		
		sSearch();
	}
}

function group3_grd_ordreqfrm_oncellclick(obj:Grid, e:GridClickEventInfo){
	ds_send.copyRow(0, ds_cnst, obj.currentrow);
	
	var row = ds_cnst.rowposition;
	
	ds_send.setColumn(0, "pid",           ds_cnst.getColumn(row, "cnst_pid"));
	ds_send.setColumn(0, "orddeptcd",     ds_cnst.getColumn(row, "cnst_orddeptcd"));
	ds_send.setColumn(0, "insuflag",      ds_cnst.getColumn(row, "cnst_insuflag"));
	ds_send.setColumn(0, "ordreqkind",    ds_cnst.getColumn(row, "cnst_ordreqkind"));
	ds_send.setColumn(0, "reqformhospnm", ds_cnst.getColumn(row, "cnst_reqformhospnm"));
	ds_send.setColumn(0, "reqformhospcd", ds_cnst.getColumn(row, "cnst_reqformhospcd"));
	ds_send.setColumn(0, "reqformdrnm",   ds_cnst.getColumn(row, "cnst_reqformdrnm"));
	ds_send.setColumn(0, "remfact",       ds_cnst.getColumn(row, "cnst_remfact"));
	ds_send.setColumn(0, "seqno",         ds_cnst.getColumn(row, "cnst_seqno"));
}

function group3_btn_addrow_onclick(obj:Button,  e:ClickEventInfo){
	sDefault();
}

function group1_button2_onclick(obj:Button,  e:ClickEventInfo){
	sDelete();
}

function group1_btn_cancel_onclick(obj:Button,  e:ClickEventInfo){
	sSave();
}

function group1_btn_confirm_onclick(obj:Button,  e:ClickEventInfo){
	
	if (frmf_checkOpener()) {
		
		opener.frmf_setParameter("SPPMC04100_RTN", "Y");
		
		var currow = ds_cnst.rowposition;
				
		if (currow >= 0) {
			// 디비에 입력되지 않은 데이터는 그리드에서만 삭제한다.
			if (ds_cnst.getColumn(currow, "cnst_seqno") == "0") {
				ds_cnst.deleteRow(currow);
			}
		}
		
		try {
			ds_hidden_h_cnst.copyData(ds_cnst);
		} catch(e) { }
		
		this.close();
	}
}
]]></Script>
  </Form>
</FDL>