YNU_JEUS/app_home/himed/xpapps/emr/ercarexp/xp/SMMNE09400_응급실재방문환자관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNE09400" position="absolute 0 0 1015 800" titletext="응급실 재방문 환자 관리" oninit="SMMNE09400_oninit" onload="SMMNE09400_onload" ontimer="SMMNE09400_ontimer">
    <Layouts>
      <Layout>
        <Static text="응급실 재방문 환자 관리" position="absolute 0 0 180 25" id="caption6" class="tit_1"/>
        <Div position="absolute 0 62 1005 762" id="group1">
          <Layouts>
            <Layout>
              <Grid position="absolute 0 14 1005 700" id="grd_patlist" class="datagrid2" binddataset="ds_grd_patlist" onexpanddown="group1_grd_patlist_onexpanddown" autoenter="select" oncellclick="group1_grd_patlist_oncellclick" ontextchange="group1_grd_patlist_ontextchange">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="30"/>
                      <Column size="60"/>
                      <Column size="60"/>
                      <Column size="60"/>
                      <Column size="100"/>
                      <Column size="60"/>
                      <Column size="60"/>
                      <Column size="90"/>
                      <Column size="65"/>
                      <Column size="120"/>
                      <Column size="80"/>
                      <Column size="90"/>
                      <Column size="50"/>
                      <Column size="60"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <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" colspan="2" text="퇴원시 담의 전화번호" taborder="undefined"/>
                      <Cell col="9" text="신청병동"/>
                      <Cell col="10" text="신청일"/>
                      <Cell col="11" colspan="2" text="입실일시" taborder="undefined"/>
                      <Cell col="13" text="방문횟수"/>
                      <Cell col="14" text="caption1"/>
                      <Cell col="15" text="진료과"/>
                      <Cell col="16" text="진료의"/>
                      <Cell col="17" text="신청병동"/>
                      <Cell col="18" text="indd"/>
                      <Cell col="19" text="cretno"/>
                    </Band>
                    <Band id="body">
                      <Cell displaytype="checkbox" edittype="checkbox" text="bind:chk" expr="expr:chk == 'Y' || chk == '1'?1:0"/>
                      <Cell col="1" style="align:left;" text="bind:pid"/>
                      <Cell col="2" style="align:left;" text="bind:hngnm"/>
                      <Cell col="3" text="bind:sa"/>
                      <Cell col="4" style="align:left;" text="bind:orddeptnm"/>
                      <Cell col="5" style="align:left;" text="bind:orddrnm"/>
                      <Cell col="6" style="align:left;" text="bind:outdrnm"/>
                      <Cell col="7" style="align:left;" text="bind:outdrphone"/>
                      <Cell col="8" style="align:left;" text="bind:outdrnzone"/>
                      <Cell col="9" style="align:left top;padding:3 3 3 3;" text="bind:prestwardnm" wordwrap="word"/>
                      <Cell col="10" displaytype="date" text="bind:appdd" calendardisplaynulltype="nulltext"/>
                      <Cell col="11" displaytype="date" edittype="date" style="padding:0 0 0 0;" text="bind:chosdd" editautoselect="true" calendardisplaynulltype="nulltext"/>
                      <Cell col="12" displaytype="text" edittype="mask" text="bind:chostm" mask="##:##" maskchar=" " edittrimtype="both" editautoselect="true" expandshow="show"/>
                      <Cell col="13" text="bind:visitno"/>
                      <Cell col="14" text="bind:outdrid"/>
                      <Cell col="15" text="bind:orddeptcd"/>
                      <Cell col="16" text="bind:orddrid"/>
                      <Cell col="17" text="bind:prestwardcd"/>
                      <Cell col="18" text="bind:indd"/>
                      <Cell col="19" text="bind:cretno"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
            </Layout>
          </Layouts>
        </Div>
        <Div position="absolute 0 28 1005 63" id="group3">
          <Layouts>
            <Layout>
              <Shape position="absolute 0 0 1005 35" id="roundrect1" class="roundrect_search" type="roundrectangle"/>
              <Button position="absolute 712 7 768 29" id="btn_srchindxcd" class="btn1" taborder="5" text="조회" onclick="group3_btn_srchindxcd_onclick"/>
              <Static text="등록번호 :" position="absolute 504 10 580 27" align="align:center middle;" id="caption40" class="search_name" visible="false"/>
              <Edit position="absolute 585 8 665 27" id="ipt_pid" class="input_s_essential" taborder="1" visible="false" onkeydown="group3_ipt_pid_onkeydown" autoselect="true"/>
              <Shape position="absolute 698 7 704 29" linetype="vertical" id="line27" class="line_4"/>
              <Static text="업무일자 :" position="absolute 19 10 95 27" align="align:center middle;" id="caption1" class="search_name"/>
              <Calendar position="absolute 100 8 205 27" align="align:center middle;" id="input1" class="input_s_essential" taborder="1" autoselect="true"/>
              <Static text="상 태 :" position="absolute 248 10 304 27" align="align:center middle;" id="caption3" class="search_name"/>
              <Radio position="absolute 303 7 470 27" id="radio1" columncount="3" codecolumn="codecolumn" datacolumn="datacolumn" onitemchanged="group3_radio1_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </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>
                  </Rows>
                </Dataset>
              </Radio>
              <Button position="absolute 772 7 828 29" id="btn_acpt" class="btn2" taborder="5" text="승인" onclick="group3_btn_acpt_onclick"/>
              <Button position="absolute 914 7 994 29" id="btn_save" class="btn2" text="입실확인" onclick="group3_btn_save_onclick"/>
              <Button position="absolute 831 7 911 29" id="btn_cncl" class="btn2" taborder="5" text="승인취소" onclick="group3_btn_cncl_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape position="absolute 0 71 1005 77" linetype="horizontal" id="line13" class="line_10"/>
        <Static text="[표]" position="absolute 960 765 1005 785" align="align:right middle;" id="caption2"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_patlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="chk" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="sa" type="STRING"/>
          <Column id="orddeptnm" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="outdrnm" type="STRING"/>
          <Column id="outdrphone" type="STRING"/>
          <Column id="outdrnzone" type="STRING"/>
          <Column id="prestwardnm" type="STRING"/>
          <Column id="appdd" type="STRING"/>
          <Column id="chosdd" type="STRING"/>
          <Column id="chostm" type="STRING"/>
          <Column id="visitno" type="STRING"/>
          <Column id="outdrid" type="STRING"/>
          <Column id="orddeptcd" type="STRING"/>
          <Column id="orddrid" type="STRING"/>
          <Column id="prestwardcd" type="STRING"/>
          <Column id="indd" type="STRING"/>
          <Column id="cretno" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="workdd" type="STRING" size="256"/>
          <Column id="status" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="workdd"/>
            <Col id="status">1</Col>
            <Col id="pid"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_resultitem" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_authinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group3.input1" propid="value" datasetid="ds_cond" columnid="workdd"/>
      <BindItem id="item1" compid="group3.radio1" propid="value" datasetid="ds_cond" columnid="status"/>
      <BindItem id="item2" compid="group3.ipt_pid" propid="value" datasetid="ds_cond" columnid="pid"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	KU2.0
 * 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";

function fSearch() {
					
	//grd_patlist.rebuild();
	
	
	var oParam = {};
		oParam.id          = "TRMNE09401";
		oParam.service     = "ercareapp.ERInRmOutRmMngt";
		oParam.method      = "reqGetErRevisitList";
		oParam.inds        = "req=ds_cond";
		oParam.outds       = "ds_grd_patlist=patlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNE09401";

	tranf_submit(oParam);
	
	
}

function fSave(param) {
	
	if (param == "save") {
		
		var rtnval = sysf_messageBox("지정한 입실일시 이후 마감 전인 모든 식사 처방이 D/C처리 됩니다\r\n\r\n입실 처리 하시겠습니까?", "Q999");
		
		if (rtnval != "6") {
			return;
		}
	}
	
		
	var sHeader = "gbn▦pid▦hngnm▦indd▦cretno▦appdd▦todd▦instcd▦chosdd▦chostm▩";
	var sData = "";
	var pid, hngnm, chosdd, chostm;
	
	for(var i = 0; i < ds_grd_patlist.rowcount; i++) {
		if (ds_grd_patlist.getColumn(i,"chk") == "Y" || ds_grd_patlist.getColumn(i,"chk") == "1") {
			
			pid 			= utlf_transNullToEmpty(ds_grd_patlist.getColumn(i,"pid"));
			hngnm 		= utlf_transNullToEmpty(ds_grd_patlist.getColumn(i,"hngnm"));
			indd			= utlf_transNullToEmpty(ds_grd_patlist.getColumn(i,"indd"));
			cretno 		= utlf_transNullToEmpty(ds_grd_patlist.getColumn(i,"cretno"));
			appdd 		= utlf_transNullToEmpty(ds_grd_patlist.getColumn(i,"appdd"));
			todd 		= "99991231";
			chosdd 	= utlf_transNullToEmpty(ds_grd_patlist.getColumn(i,"chosdd"));
			chostm 	= utlf_transNullToEmpty(ds_grd_patlist.getColumn(i,"chostm"));
			orddeptcd	= utlf_transNullToEmpty(ds_grd_patlist.getColumn(i,"orddeptcd"));
			
			if (param == "save" && (utlf_isNull(chosdd) || utlf_isNull(chostm))) {
				sysf_messageBox("[" + pid + " " + hngnm + "] 환자의 입실일시가 없습니다.", "E999");
				return;
			}
			
			sData  += param		+ "▦" 
						+ pid				+ "▦"
						+ hngnm		+ "▦"
						+ indd			+ "▦" 
						+ cretno		+ "▦" 
						+ appdd 		+ "▦" 
						+ todd			+ "▦"
						+ sysf_getUserInfo("dutplceinstcd") + "▦"
						+ chosdd		+ "▦"
						+ chostm		+ "▦"
						+ orddeptcd	+ "▩";
			
			// 응급의학과 승인하면 퇴원시 주치의에게 SMS 전송 2014.01.13
			if (param == "acpt") {
				fSendSMS(i);
			}
		}
	}
	
	dsf_setCSVToDs("ds_send_savedata",sHeader + sData);
	var oParam = {};
		oParam.id          = "TXMNE09401";
		oParam.service     = "ercareapp.ERInRmOutRmMngt";
		oParam.method      = "reqSetErRevisitList";
		oParam.inds        = "savedata=ds_send_savedata";
		oParam.outds       = "ds_resultitem=item";
		oParam.async       = false;
		oParam.callback    = "cf_TXMNE09401";

	tranf_submit(oParam);
	
}
function cf_TXMNE09401(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    fSearch();
	fBtnStatus();
}
function fBtnStatus() {
	
	var drflag = "", nrflag="";

	
	var oParam = {};
		oParam.id          = "TRMNE09402";
		oParam.service     = "ercareapp.ERInRmOutRmMngt";
		oParam.method      = "reqGetErRevisitAuth";
		oParam.inds        = "req=ds_cond";
		oParam.outds       = "ds_authinfo=authinfo";
		oParam.async       = false;
		oParam.callback    = "cf_TRMNE09402";

	tranf_submit(oParam);
	
	drflag = ds_authinfo.getColumn(0,"drflag");
	nrflag = ds_authinfo.getColumn(0,"nrflag");
	
	if (sysf_getUserInfo("userid") == "ENR") {
		drflag = "Y";
	}
	
	var status = ds_cond.getColumn(0,"status");
		
	if (status == "3") {
		
		group3.btn_acpt.enable = false;
		group3.btn_cncl.enable = false;
		group3.btn_save.enable = false;
		
	} else if (status == "2") {
		
		group3.btn_acpt.enable = false;
		
		if (drflag == "Y") {
			group3.btn_cncl.enable = true;
		} else {
			group3.btn_cncl.enable = false;
		}
		
		if (nrflag == "Y") {
			group3.btn_save.enable = true;
		} else {
			group3.btn_save.enable = false;
		}
		
	} else {
		
		if (drflag == "Y") {
			group3.btn_acpt.enable = true;
			group3.btn_cncl.enable = true;
		} else {
			group3.btn_acpt.enable = false;
			group3.btn_cncl.enable = false;
		}
		
		if (nrflag == "Y") {
			group3.btn_save.enable = true;
		} else {
			group3.btn_save.enable = false;
		}
		
	}
	//속도개선
	this.setTimer(0, 100);
	//fSearch();
}
function cf_TRMNE09402(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function fSendSMS(pRow) {
	
	if ( pRow > -1 ) {
		var pid = utlf_transNullToEmpty(ds_grd_patlist.getColumn(pRow,"pid"));
		var hngnm = utlf_transNullToEmpty(ds_grd_patlist.getColumn(pRow,"hngnm"));
		var indd = utlf_transNullToEmpty(ds_grd_patlist.getColumn(pRow,"indd"));
		var cretno = utlf_transNullToEmpty(ds_grd_patlist.getColumn(pRow,"cretno"));
		var drid = utlf_transNullToEmpty(ds_grd_patlist.getColumn(pRow,"outdrid"));
		var drnm = utlf_transNullToEmpty(ds_grd_patlist.getColumn(pRow,"outdrnm"));
		var phonno = utlf_transNullToEmpty(ds_grd_patlist.getColumn(pRow,"outdrphone"));
		var deptnm = utlf_transNullToEmpty(ds_grd_patlist.getColumn(pRow,"orddeptnm"));
		var userid = sysf_getUserInfo("userid");
		
		if (!utlf_isNull(drnm) && !utlf_isNull(phonno)) {
		
			var msg = "금일 퇴원한 [" + deptnm  + " " + pid + " " + hngnm + "] 환자 응급실 재방문";
			
			var erno = "";
			if (sysf_getUserInfo("dutplceinstcd") == "031") {
				erno = "86100";
			} else {
				erno = "0532002100";
			}
			
			var rtnMsg = sysf_messageBox("환자의 퇴원 당시 주치의인 " + deptnm + " " + drnm + " 선생님에게\r\n" 
												 + "환자 재방문 관련 SMS를 발송하시겠습니까?\r\n\r\n"
												 + "※ 내용: " + msg + "\r\n"
												 + "   회신번호: " + erno, "Q999");
			 
			if (rtnMsg == "6") {
				dsf_createDsRow("ds_send_smsmsg_recvr" , [
					 {col: "usernm", 	val:drnm}						
					 ,{col: "userid", 	val:drid}	
					 ,{col: "mpphonno", 	val:phonno}	
					 ,{col: "usernm", 	val:"응급의료센터"}	
					 ]);	
				
				dsf_createDsRow("ds_send_smsmsg_req" , [
					 {col: "calltype", 	val:"call"}						
					 ,{col: "msgcnts", 	val:msg}	
					 ,{col: "calltelno", 	val:erno}	
					 ]);	
				
				dsf_createDsRow("ds_send_smsmsg_info" , [
					 {col: "pid", 	val:pid}						
					 ,{col: "indd", 	val:indd}	
					 ,{col: "cretno", 	val:cretno}	
					 ,{col: "userid", 	val:userid}	
					 ]);	
				
				var oParam = {};
					oParam.id          = "TXMNE00205";
					oParam.service     = "ercareapp.ERInRmOutRmMngt";
					oParam.method      = "reqExeSendUserMessage";
					oParam.inds        = "recvr=ds_send_smsmsg_recvr req=ds_send_smsmsg_req info=ds_send_smsmsg_info";
					oParam.outds       = "ds_resultitem=succnt";
					oParam.async       = false;
					oParam.callback    = "cf_TXMNE00205";

				tranf_submit(oParam);	
								
			}
		}
	}
}
function SMMNE09400_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);  // 화면공통
}
function cf_TXMNE00205(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    sysf_messageBox("메시지 전송이 ", "I002");
}

function SMMNE09400_onload(obj:Form, e:LoadEventInfo)
{
	var workdd = utlf_getCurrentDate();
	ds_cond.setColumn(0,"workdd", workdd);
	
	fBtnStatus();
}

function group1_grd_patlist_onexpanddown(obj:Grid, e:GridMouseEventInfo)
{
	var row = e.row;
	var curdate = utlf_getCurrentDate();
	var curtime = utlf_getCurrentTime().substr(0, 4)
	
	
	ds_grd_patlist.setColumn(row,"chk","Y");
	ds_grd_patlist.setColumn(row,"chosdd", curdate);
	ds_grd_patlist.setColumn(row,"chostm", curtime);
	//grd_patlist.rowStatus(row) = 2;
	grdf_setStatus(obj,"U",row);
	
}

function group3_btn_srchindxcd_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearch();
}

function group3_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
		obj.updateToDataset();
		fSearch();
	}
}

function group3_radio1_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	obj.updateToDataset();
	fBtnStatus();
}

function group3_btn_acpt_onclick(obj:Button,  e:ClickEventInfo)
{
	fSave("acpt");
}

function group3_btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	fSave("save");
}

function group3_btn_cncl_onclick(obj:Button,  e:ClickEventInfo)
{
	fSave("cancel");
}

function SMMNE09400_ontimer(obj:Form, e:TimerEventInfo)
{
	if (e.timerid == 0) {
		this.killTimer(0);
		fSearch();
	}
}

function group1_grd_patlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	grdf_controlGridCalendar(obj, e);
}

function group1_grd_patlist_ontextchange(obj:Grid, e:GridEditTextChangeEventInfo)
{
	if( e.col == 12 ){
		grdf_validGridTime(obj, e);
	}
}
]]></Script>
  </Form>
</FDL>