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

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPMC04100" position="absolute 0 0 684 395" titletext="진료의뢰서환자입력" onload="SPPMC04100_onload">
    <Layouts>
      <Layout>
        <Grid id="grd_ordreqfrm" taborder="1" binddataset="ds_main_h_cnst" useinputpanel="false" position="absolute 0 28 675 362" autoenter="select">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25" band="left"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="120"/>
                <Column size="70"/>
                <Column size="98"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="120"/>
                <Column size="80"/>
                <Column size="200"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </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="기관코드"/>
                <Cell col="9" text="이력상태"/>
                <Cell col="10" text="시작일자"/>
                <Cell col="11" text="의뢰병원명"/>
                <Cell col="12" text="의뢰의사명"/>
                <Cell col="13" text="참고사항"/>
                <Cell col="14" text="최초등록자ID"/>
                <Cell col="15" text="최초등록일시"/>
                <Cell col="16" text="최종수정자ID"/>
                <Cell col="17" text="최종수정일시"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow + 1"/>
                <Cell col="1" text="bind:cnst_stat"/>
                <Cell col="2" text="bind:cnst_pid"/>
                <Cell col="3" displaytype="combo" edittype="combo" text="bind:cnst_orddeptcd" combodataset="ds_init_orddeptcdlist" combocodecol="nm" combodatacol="nm"/>
                <Cell col="4" displaytype="combo" edittype="combo" text="bind:cnst_insuflag" combodataset="ds_static_insuflag" combocodecol="value" combodatacol="label"/>
                <Cell col="5" displaytype="combo" edittype="combo" text="bind:cnst_ordreqkind" combodataset="ds_init_P0310list" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="6" displaytype="date" edittype="date" text="bind:cnst_todd" mask="yyyy-mm-dd"/>
                <Cell col="7" text="bind:cnst_seqno"/>
                <Cell col="8" text="bind:cnst_instcd"/>
                <Cell col="9" text="bind:cnst_histstat"/>
                <Cell col="10" displaytype="date" edittype="date" text="bind:cnst_fromdd" mask="yyyy-mm-dd"/>
                <Cell col="11" displaytype="text" edittype="text" text="bind:cnst_reqformhospnm"/>
                <Cell col="12" displaytype="text" edittype="text" text="bind:cnst_reqformdrnm"/>
                <Cell col="13" displaytype="text" edittype="text" text="bind:cnst_remfact"/>
                <Cell col="14" text="bind:cnst_fstrgstrid"/>
                <Cell col="15" text="bind:cnst_fstrgstdt"/>
                <Cell col="16" text="bind:cnst_lastupdtrid"/>
                <Cell col="17" text="bind:cnst_lastupdtdt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line1" linetype="horizontal" class="line_1" position="absolute 0 24 675 30" style="strokepen:3 solid #33bbbbff;"/>
        <Static id="caption1" text="진료의뢰서 내역" class="tit_2" position="absolute 5 7 140 23"/>
        <Button id="btn_addrow" taborder="2" text="행추가" class="btn2" position="absolute 520 4 573 23" onclick="btn_addrow_onclick"/>
        <Button id="btn_delrow" taborder="3" text="행삭제" class="btn5" position="absolute 576 4 629 23" onclick="btn_delrow_onclick"/>
        <Button id="button1" taborder="4" text="저장" class="btn5" position="absolute 632 4 674 23" onclick="button1_onclick"/>
        <Button id="btn_confirm" taborder="5" text="확인" class="btn4" position="absolute 560 367 616 389" onclick="btn_confirm_onclick"/>
        <Button id="btn_cancel" taborder="6" text="취소" class="btn4" position="absolute 619 367 675 389" onclick="btn_cancel_onclick"/>
        <Shape id="line88" class="line_6" position="absolute 0 361 675 367"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_h_cnst" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cnst_stat" type="STRING"/>
          <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="STRING" 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="최종수정일시"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_session" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_P0310list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdid" type="STRING" size="256"/>
          <Column id="cdnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_orddeptcdlist" 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>
      </Dataset>
      <Dataset id="ds_init_orddridlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_centcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_subdeptcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_tmp_h_cnst" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cnst_stat" type="STRING"/>
          <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="STRING" 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="최종수정일시"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_static_insuflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">보험</Col>
            <Col id="value">1</Col>
          </Row>
          <Row>
            <Col id="label">보호</Col>
            <Col id="value">2</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include 'com_commonxp::comm_main.xjs';
include 'pam_opatmngtxp::PMOCOM.xjs';
include 'pam_pamcomnxp::PAM.xjs';

var arErrorCode = new HashArray();

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

//=======================================================================================
// Local methods
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Argument			: 
 * Description		: 
 ****************************************************************************************/


//=======================================================================================
// callback
//---------------------------------------------------------------------------------------
function callback(sSvcId, nErrorCode, sErrorMsg){
	arErrorCode.push(sSvcId, nErrorCode);
}

//=======================================================================================
// Events
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Argument			: 
 * Description		: onload
 ****************************************************************************************/
function SPPMC04100_onload(obj:Form, e:LoadEventInfo){
	// 폼 초기화
	frmf_initForm(obj);
	
	fGetUserInfosSampling();
	
	appf_getCodeList([{ dsNm: 'ds_init_P0310list', cdGrpId: 'P0310' }]);		// 진료의뢰서종류
	
	// 진료과코드 진료의사ID 조회
	pamGetDeptCDDrIDList();
	
	if(frmf_checkOpener()){
		opener.frmf_setParameter('SPPMC04100_RTN', '');
		var SPPMC04100_PARM = opener.frmf_getParameter('SPPMC04100_PARM');
		
		var arr = SPPMC04100_PARM.split('▦');
		gPID = arr[0];
		strSend = arr[1];
		strRcv = utlf_transNullToEmpty(arr[2]);
		
		
		var SPPMC04100_PARM1 = utlf_transNullToEmpty(opener.frmf_getParameter('SPPMC04100_PARM1'));
		
		arr = SPPMC04100_PARM1.split('▦');
		sOrdDeptCD = arr[0];
		sOrdReqKind = arr[1];
		sInsuFlag = arr[2];
		etcOrdFlag = arr[3];
		
		if(etcOrdFlag == 'H'){
			sOrdReqKind = '3';
		}
		else if(sOrdReqKind == '3'){
			sOrdReqKind = '1';
		}
		
		if(sInsuFlag == '11' || sInsuFlag == '21' || sInsuFlag == '22'){
			sInsuFlag = sInsuFlag.substr(0, 1);
		}
		
		opener.frmf_setParameter('SPPMC04100_PARM', '');
		opener.frmf_setParameter('SPPMC04100_PARM1', '');
	}
}

/****************************************************************************************
 * Argument			: 
 * Description		: 행추가 버튼 클릭
 ****************************************************************************************/
function btn_addrow_onclick(obj:Button,  e:ClickEventInfo){
	var i = ds_main_h_cnst.addRow();
	
	ds_main_h_cnst.setColumn(i, 'cnst_stat', 'I');
	ds_main_h_cnst.setColumn(i, 'cnst_pid', gPID);
	ds_main_h_cnst.setColumn(i, 'cnst_orddeptcd', sOrdDeptCD);
	ds_main_h_cnst.setColumn(i, 'cnst_insuflag', sInsuFlag);
	ds_main_h_cnst.setColumn(i, 'cnst_ordreqkind', sOrdReqKind);
	ds_main_h_cnst.setColumn(i, 'cnst_todd', '99991231');
	ds_main_h_cnst.setColumn(i, 'cnst_seqno', '0');
	ds_main_h_cnst.setColumn(i, 'cnst_histstat', 'Y');
	ds_main_h_cnst.setColumn(i, 'cnst_fromdd', utlf_getCurrentDate());
}

/****************************************************************************************
 * Argument			: 
 * Description		: 행삭제 버튼 클릭
 ****************************************************************************************/
function btn_delrow_onclick(obj:Button,  e:ClickEventInfo){
	if(sysf_messageBox('선택된 행의 진료의뢰서 내역을', 'Q001') != 6){
		return;
	}
	
	var row = grd_ordreqfrm.currentrow;
	
	if(row > -1){
		// 디비에 입력되지 않은 데이터는 그리드에서만 삭제한다.
		if(ds_main_h_cnst.getColumn(row, 'cnst_stat') == 'I'){
			ds_main_h_cnst.deleteRow(row);
		}
		else{
			ds_tmp_h_cnst.clearData();
			ds_tmp_h_cnst.copyRow(ds_tmp_h_cnst.addRow, ds_main_h_cnst, row);
			
			var oParam = {};
				oParam.id          = "TRPMO04151";
				oParam.service     = "opatmngtapp.OutRgst";
				oParam.method      = "reqDelOrdReqForms";
				oParam.inds        = "req=ds_tmp_h_cnst";
				oParam.outds       = "";
				oParam.async       = false;
				oParam.callback    = "callback";

			tranf_submit(oParam);
			
			if(arErrorCode.pop("TRPMO04151") > -1){
				ds_main_h_cnst.deleteRow(row);
			}
		}
	}
}

/****************************************************************************************
 * Argument			: 
 * Description		: 저장 버튼 클릭
 ****************************************************************************************/
function button1_onclick(obj:Button,  e:ClickEventInfo){
	if(sysf_messageBox('진료의뢰서 내역을 저장 하시겠습니까?', 'Q999') != 6){
		return;
	}
	
	var updated = grdf_getGridUpdateData(grd_ordreqfrm, 'all');
	grdf_setStatusColumn(updated, 'm');
	ds_tmp_h_cnst.copyData(updated, true);
	
	var oParam = {};
		oParam.id          = "TRPMO04151";
		oParam.service     = "opatmngtapp.OutRgst";
		oParam.method      = "reqUpdateOrdReqForms";
		oParam.inds        = "req=ds_tmp_h_cnst";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "callback";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TRPMO04151") > -1){
		grdf_setStatus(grd_ordreqfrm, '');
	}
}

/****************************************************************************************
 * Argument			: 
 * Description		: 확인 버튼 클릭
 ****************************************************************************************/
function btn_confirm_onclick(obj:Button,  e:ClickEventInfo){
	if(!frmf_isRequiredControls('cmb_ordreqkind', 'ipt_fromdd', 'ipt_orddeptcd')){
		return;
	}
	
	if(frmf_checkOpener()){
		opener.frmf_setParameter('SPPMC04100_RTN', 'Y');
		if(strRcv != '' && strRcv != ' ' && strRcv != '-'){
			opener.ds_main_h_cnst.copyData(ds_main_h_cnst, true);
		}
		
		this.close();
	}
}

/****************************************************************************************
 * Argument			: 
 * Description		: 취소 버튼 클릭
 ****************************************************************************************/
function btn_cancel_onclick(obj:Button,  e:ClickEventInfo){
	if(frmf_checkOpener()){
		opener.frmf_setParameter('SPPMC04100_RTN', 'N');
		this.close();
	}
}
]]></Script>
  </Form>
</FDL>