YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO90600_처방시오픈리스트.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO90600" position="absolute 0 0 865 360" titletext="처방시 오픈 리스트" onload="SPMMO90600_onload" oninit="SPMMO90600_oninit">
    <Layouts>
      <Layout>
        <Static text="처방 확인 리스트" position="absolute 0 0 171 16" id="caption1" class="tit_2"/>
        <Shape position="absolute 0 16 865 22" linetype="horizontal" id="line7" class="line_10"/>
        <Grid position="absolute 0 21 865 336" id="grd_prcpmsglist" binddataset="ds_result_prcpmsglist" autofittype="col" autosizingtype="row" cellsizingtype="col" extendsizetype="row" style="align:left middle;" onexpandup="grd_prcpmsglist_onexpandup" oncellclick="grd_prcpmsglist_oncellclick" scrollpixel="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="130"/>
                <Column size="80"/>
                <Column size="170"/>
                <Column size="55"/>
                <Column size="362"/>
                <Column size="50"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="instcd"/>
                <Cell col="1" text="msgdd"/>
                <Cell col="2" text="msgno"/>
                <Cell col="3" text="histno"/>
                <Cell col="4" text="msgseq"/>
                <Cell col="5" text="screenid"/>
                <Cell col="6" text="screenparam"/>
                <Cell col="7" text="확인분류"/>
                <Cell col="8" text="처방코드"/>
                <Cell col="9" text="처방명"/>
                <Cell col="10" text="확인코드"/>
                <Cell col="11" text="확인내용"/>
                <Cell col="12" text="확인여부"/>
              </Band>
              <Band id="body">
                <Cell text="bind:instcd"/>
                <Cell col="1" text="bind:msgdd"/>
                <Cell col="2" text="bind:msgno"/>
                <Cell col="3" text="bind:histno"/>
                <Cell col="4" text="bind:msgseq"/>
                <Cell col="5" text="bind:screenid"/>
                <Cell col="6" text="bind:screenparam"/>
                <Cell col="7" style="align:left middle;padding:3 3 3 3;" text="bind:errdisc" wordwrap="word" autosizerow="limitmin"/>
                <Cell col="8" style="align:left middle;" text="bind:prcpcd"/>
                <Cell col="9" style="align:left middle;" text="bind:prcpnm"/>
                <Cell col="10" style="align:center middle;" text="bind:errcd"/>
                <Cell col="11" displaytype="text" style="align:left middle;padding:3 3 3 3;" text="bind:errmsg" wordwrap="word" autosizerow="limitmin"/>
                <Cell col="12" displaytype="text" edittype="expand" style="align:center;cursor:hand;" text="bind:cnfcd" editautoselect="true" expandshow="show" expandsize="30"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static text="* 확인 리스트에서 [확인여부]를 클릭하여 상세 내역을 확인하세요." position="absolute 435 340 814 360" id="caption2"/>
        <Button position="absolute 809 338 865 360" id="button1" class="btn4" text="닫기" onclick="button1_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <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>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_result_prcpmsginfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="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="pid" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="orddd" type="STRING" size="256" sumtext="진료일자"/>
          <Column id="cretno" type="STRING" size="256" sumtext="생성번호"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료부서"/>
          <Column id="orddeptnm" type="STRING" size="256" sumtext="진료부서명"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="진료의사"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방적용일자"/>
          <Column id="savekindflag" type="STRING" size="256" sumtext="처방 저장 유형  0:인증저장, 1:임시저장"/>
          <Column id="savedataflag" type="STRING" size="256" sumtext="저장 데이터 유형  0:인증저장(진단+상병), 1:인증저장(진단), 2:인증저장(처방), 4:임시저장(처방), 5:임시저장DC(처방), 6:임시저장(진단+처방), 7:임시저장(진단)"/>
          <Column id="saveflag" type="STRING" size="256" sumtext="저장구분 (O:외래, I:입원, E:응급, S:건진)"/>
          <Column id="prcpflag" type="STRING" size="256" sumtext="처방구분 (코드정의서 M0035 참조)"/>
          <Column id="inptflag" type="STRING" size="256" sumtext="입력구분 (코드정의서 M0034 참조)"/>
          <Column id="signyn" type="STRING" size="256" sumtext="전자서명여부 (Y/N)"/>
          <Column id="divyn" type="STRING" size="256" sumtext="용량분할체크여부 (Y/N)"/>
          <Column id="pseuacptflag" type="STRING" size="256" sumtext="시행부서처방가접수여부 (Y/N)"/>
          <Column id="admininfo" type="STRING" size="256" sumtext="시행부서처방 adminflag"/>
          <Column id="durappyn" type="STRING" size="256" sumtext="DUR적용여부 (Y/N)"/>
          <Column id="nonprgflag" type="STRING" size="256" sumtext="임신가능여부 (Y/N)"/>
          <Column id="preworkup" type="STRING" size="256" sumtext="Pre Work-Up 환자 적용여부 (Y/N)"/>
          <Column id="prcpcnt" type="STRING" size="256" sumtext=""/>
          <Column id="diagcnt" type="STRING" size="256" sumtext=""/>
          <Column id="resaveyn" type="STRING" size="256" sumtext="오류체크  ReCall여부 (Y/N)"/>
          <Column id="checkexcpcnt" type="STRING" size="256" sumtext="오류체크 예외 카운트"/>
          <Column id="checkerrcnt" type="STRING" size="256" sumtext="오류체크 오류 카운트"/>
          <Column id="checkresncnt" type="STRING" size="256" sumtext="오류체크 사유 카운트"/>
          <Column id="checkinfocnt" type="STRING" size="256" sumtext="오류체크 정보 카운트"/>
          <Column id="checketccnt" type="STRING" size="256" sumtext="오류체크 기타처리(별도처리) 카운트"/>
          <Column id="divchkflag" type="STRING" size="256" sumtext="용량분할 처리여부"/>
          <Column id="dschyn" type="STRING" size="256" sumtext="퇴원예고 오류여부"/>
          <Column id="drgcheck" type="STRING" size="256" sumtext="DUR 처방전간 체크 여부"/>
          <Column id="durrechk" type="STRING" size="256" sumtext=""/>
          <Column id="ocrtagval" type="STRING" size="256" sumtext="동의서 출력시 처방코드 OCR번호"/>
          <Column id="prtlflag" type="STRING" size="256" sumtext="프로토콜 구분(01:CP, 02:CPG, 10:항암프로토콜,20:임상시험프로토콜)"/>
          <Column id="cpflag" type="STRING" size="256" sumtext="CP처방 Flag"/>
          <Column id="cpgappno" type="STRING" size="256" sumtext="CP처방 or 프로토콜처방 no"/>
          <Column id="prtlprcpstatus" type="STRING" size="256" sumtext="프로토콜저장상태(보통은 I, 프로토콜처방테이블에 등록된 데이터를 수정, 삭제할 때는 U/D)"/>
          <Column id="deptcd" type="STRING" size="256" sumtext="부서코드 (입력자 또는 로그인한 사용자의 부서코드)"/>
          <Column id="userid" type="STRING" size="256" sumtext="사용자ID"/>
          <Column id="ipaddress" type="STRING" size="256" sumtext="사용자IP"/>
          <Column id="screenid" type="STRING" size="256" sumtext="화면 ID"/>
          <Column id="fstrgstrid" type="STRING" size="256" sumtext="최초등록자ID(시스템정보)"/>
          <Column id="fstrgstdt" type="STRING" size="256" sumtext="최초등록일시(시스템정보)"/>
          <Column id="lastupdtrid" type="STRING" size="256" sumtext="최종등록자ID(시스템정보)"/>
          <Column id="lastupdtdt" type="STRING" size="256" sumtext="최종등록일시(시스템정보)"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="성명"/>
          <Column id="sex" type="STRING" size="256" sumtext="성별"/>
          <Column id="age" type="STRING" size="256" sumtext="나이"/>
          <Column id="roomcd" type="STRING" size="256" sumtext="병실코드"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_result_prcpmsglist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING"/>
          <Column id="msgdd" type="STRING"/>
          <Column id="msgno" type="STRING"/>
          <Column id="histno" type="STRING"/>
          <Column id="msgseq" type="STRING"/>
          <Column id="screenid" type="STRING"/>
          <Column id="screenparam" type="STRING"/>
          <Column id="openargnm" type="STRING"/>
          <Column id="openargtxt" type="STRING"/>
          <Column id="openprmtxt" type="STRING"/>
          <Column id="openargval" type="STRING"/>
          <Column id="openprmval" type="STRING"/>
          <Column id="msgcls" type="STRING"/>
          <Column id="errdisc" type="STRING"/>
          <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="errcd" type="STRING"/>
          <Column id="errmsg" type="STRING"/>
          <Column id="cnfcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cond_formdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="formcd" type="STRING" size="256"/>
          <Column id="formkind" type="STRING" size="256"/>
          <Column id="btnvisible" 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="modalyn" type="STRING" size="256"/>
          <Column id="topyn" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_savedata" 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="msgseq" type="STRING" size="256" sumtext="메세지상세번호"/>
          <Column id="msgcls" type="STRING" size="256" sumtext="메세지구분"/>
          <Column id="cnfcd" type="STRING" size="256" sumtext="메세지확인코드"/>
          <Column id="cnfmsg" type="STRING" size="256" sumtext="메세지확인메세지"/>
          <Column id="cnfrmk" type="STRING" size="256" sumtext="메세지확인기타"/>
          <Column id="userid" type="STRING" size="256" sumtext="사용자ID"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_result_formcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_formcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="formcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-05-01
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-05-01      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "emr_prcpmngtxp::MMO001.xjs";
include "emr_medirecxp::MMR01100.xjs";

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

function SPMMO90600_onload(obj:Form, e:LoadEventInfo)
{
	var sMsgDd    	= opener.frmf_getParameter("SPMMO90600_msgdd");
	var sMsgNo 		= opener.frmf_getParameter("SPMMO90600_msgno");
	var sHistNo 	= opener.frmf_getParameter("SPMMO90600_histno");
	var sMsgCls 	= opener.frmf_getParameter("SPMMO90600_msgcls");
	
	if(utlf_isNull(sMsgNo) || sMsgNo == "0"){
		sysf_messageBox("메세지 정보가 정확하지 않습니다.", "E999");
		return;
	}
	
	ds_result_saveflaginfo.setColumn(0, "msgdd", sMsgDd);  
	ds_result_saveflaginfo.setColumn(0, "msgno", sMsgNo);  
	ds_result_saveflaginfo.setColumn(0, "histno", sHistNo); 
	ds_result_saveflaginfo.setColumn(0, "msgcls", sMsgCls); 

	var oParam = {};
		oParam.id       = "TRMMO90601";
		oParam.service  = "prcpmngtapp.PrcpMngt";
		oParam.method   = "reqGetPrcpMsgInfo";
		oParam.inds     = "req=ds_result_saveflaginfo";
		oParam.outds    = "ds_result_prcpmsginfo=prcpmsginfo";
		oParam.async    = false;

	tranf_submit(oParam);	

	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);	
}

// 화면 open, 저장시 초기화 기능을 수행한다.
function fClose() {						    
	this.close();                                            
}

function onConfirm() {
	var mon = sysf_getCurrentMonitorNumber();
    var xpt = this.getOwnerFrame().position.x + 50;
	var ypt = this.getOwnerFrame().position.y + 50;
    
	var iRow = ds_result_prcpmsglist.rowposition;
	
	var sScreenId    = ds_result_prcpmsglist.getColumn(iRow, "screenid");
	var sScreenParam = ds_result_prcpmsglist.getColumn(iRow, "screenparam");
	
	var sOpenArgNm   = ds_result_prcpmsglist.getColumn(iRow, "openargnm");
	var sOpenArgTxt  = ds_result_prcpmsglist.getColumn(iRow, "openargtxt");
	var sOpenArgVal  = ds_result_prcpmsglist.getColumn(iRow, "openargval");
	
	var sOpenPrmTxt  = ds_result_prcpmsglist.getColumn(iRow, "openprmtxt");
	var sOpenPrmVal  = ds_result_prcpmsglist.getColumn(iRow, "openprmval");
	
	var sTopPid    = "";
	var topPamInfo = sysf_getGlobalVariable("paminfo");
	if(!utlf_isNull(topPamInfo) && topPamInfo.length != 0) {
		dsf_setCSVToDs("ds_temp_paminfo", topPamInfo);
		sTopPid = ds_temp_paminfo.getColumn(0, "pid");
	} else {
		sysf_messageBox("상단정보가 초기화 되었습니다. 현재 창을 종료합니다.", "E");
		close();
		return;
	}
	
	var sPid = ds_result_prcpmsginfo.getColumn(0, "pid");
	if(utlf_isNull(sTopPid) || sTopPid != sPid){
		sysf_messageBox("상단정보가 다른환자로 변경 되었습니다. 현재 창을 종료합니다.", "E");
		close();
		return;
	}

	if (utlf_isNull(sScreenId)) {
		sysf_messageBox ("확인 할 상세화면이 지정 되지 않았습니다.", "E");
		return;
	} 
	
	var objArg = new Object();
	if( !utlf_isNull(sOpenArgNm) && sOpenArgNm != "-" && !utlf_isNull(sOpenArgTxt) && sOpenArgTxt != "-" && !utlf_isNull(sOpenArgVal) && sOpenArgVal != "-" ) {
		var arrArgNm     = sOpenArgNm.split("|");
		var ArrArgRowTxt = sOpenArgTxt.split("^");
		var ArrArgRowVal = sOpenArgVal.split("^");
		
		if(arrArgNm.length != ArrArgRowTxt.length || arrArgNm.length != ArrArgRowVal.length) {
			sysf_messageBox ("Open Arg 관련 Row 항목 갯수가 맞지 않습니다..", "E");
			return;
		}
		
		for(var i = 0; i < arrArgNm.length; i++) {
			var ArrArgColTxt = ArrArgRowTxt[i].split("|");
			var ArrArgColVal = ArrArgRowVal[i].split("|");
			
			if(ArrArgColTxt.length != ArrArgColVal.length) {
				sysf_messageBox ("Open Arg 관련 Col 항목 갯수가 맞지 않습니다..", "E");
				return;
			}
		
			dsf_createDs(arrArgNm[i]);              // 데이터셋을 생성한다.
			var objDS = this.objects[arrArgNm[i]];
			
			for(var j = 0; j < ArrArgColTxt.length; j++) {
				dsf_makeValue(objDS, ArrArgColTxt[j], "string", ArrArgColVal[j], 0);  // 데이터 셋이 값 설정
		
				//20190911 이돈희 : 서식로드시 최신 서식으로 띄울수 있도록 수정
				if(sScreenId == "SSMMR01100" && ArrArgColTxt[j] == "formcd"){
					ds_send_formcd.setColumn(0, "formcd", objDS.getColumn(0, "formcd"));	
					var oParam = {};
						oParam.id       = "TXZUM90102";
						oParam.service  = "prcpmngtapp.EtcPrcpMngt";
						oParam.method   = "reqGetLastestFormcd";
						oParam.inds     = "req=ds_send_formcd";
						oParam.outds    = "ds_result_formcd=result";
						oParam.async    = false;

					tranf_submit(oParam);	
					if(ds_result_formcd.rowcount > 0){
						objDS.setColumn(0, "formcd", ds_result_formcd.getColumn(0, "formcd"))														
					}
				}	
			}
			
			objArg[arrArgNm[i]] = objDS;
		}
	}
	
	if( !utlf_isNull(sOpenPrmTxt) && sOpenPrmTxt != "-" && !utlf_isNull(sOpenPrmVal) && sOpenPrmVal != "-" ) {
		var ArrPrmTxt = sOpenPrmTxt.split("|");
		var ArrPrmVal = sOpenPrmVal.split("|");
		
		if(ArrPrmTxt.length != ArrPrmVal.length) {
			sysf_messageBox ("Open Param항목 갯수가 맞지 않습니다..", "E");
			return;
		}
		
		for(var i = 0; i < ArrPrmTxt.length; i++) {
			frmf_clearParameter(ArrPrmTxt[i]);
			frmf_setParameter(ArrPrmTxt[i], ArrPrmVal[i]);
		}
	}
	
	if(sScreenId == "SSMMR01100") { // 서식 formcd로 서식 창 오픈
		lf_loadSMMMR01100(true, objArg);
	} else {
		frmf_modal(sScreenId, sScreenId, objArg, false, mon, xpt, ypt, null, null, null, null, null, "M");
	}
	
	ds_result_prcpmsglist.setColumn(iRow, "cnfcd", "Y");
	
	ds_send_savedata.clearData();
	ds_send_savedata.addRow();
	ds_send_savedata.copyRow(0, ds_result_prcpmsglist, iRow);
	ds_send_savedata.setColumn(0, "userid", sysf_getUserInfo("userid"));
	
	var oParam = {};
		oParam.id       = "TXMMO90101";
		oParam.service  = "prcpmngtapp.PrcpMngt";
		oParam.method   = "reqExePrcpMsgList";
		oParam.inds     = "req=ds_send_savedata";
		oParam.outds    = "";
		oParam.async    = false;

	tranf_submit(oParam);
}

function grd_prcpmsglist_onexpandup(obj:Grid, e:GridMouseEventInfo)
{
	if(e.row < 0 || e.col < 0) return;
	
	onConfirm();
}

function grd_prcpmsglist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row < 0 || e.col < 0) return;
	if(obj.getCellPos() == obj.getBindCellIndex("body", "cnfcd")) {
		onConfirm();
	}
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var srcNodeCnt = ds_result_prcpmsglist.getCaseCount("cnfcd == '-'");
	if( srcNodeCnt > 0) {
		if(sysf_messageBox ("확인 되지 않은 항목이 있습니다.\n리스트에서 [확인여부]를 클릭하여 상세내역을 확인하세요.\n\n지금 확인 하시겠습니까?","Q") == "6") {
			
		} else {
			fClose()
		}
	} else {
		fClose()
	}
}
]]></Script>
  </Form>
</FDL>