YNU_JEUS/app_home/himed/xpapps/emr/medirecxp/xp/SPMMR05010_NSTCONSULT대상환자.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMR05010" position="absolute 0 0 1100 900" titletext="환자명단(NRS)" oninit="SPMMR05010_oninit" onload="SPMMR05010_onload">
    <Layouts>
      <Layout>
        <Static position="absolute 5 9 100 24" id="caption1" class="tit_2"/>
        <Shape position="absolute 0 40 1090 46" linetype="horizontal" id="line1" class="line_10"/>
        <Grid position="absolute 0 45 1088 886" id="grd_pathistlist" binddataset="ds_main_result_pathistlist" oncelldblclick="grd_pathistlist_oncelldblclick" autofittype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="24"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="0"/>
                <Column size="30"/>
                <Column size="30"/>
                <Column size="87"/>
                <Column size="45"/>
                <Column size="55"/>
                <Column size="50"/>
                <Column size="75"/>
                <Column size="30"/>
                <Column size="55"/>
                <Column size="55"/>
                <Column size="80"/>
                <Column size="65"/>
                <Column size="65"/>
                <Column size="40"/>
                <Column size="40"/>
                <Column size="45"/>
                <Column size="35"/>
                <Column size="35"/>
                <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="NRS"/>
                <Cell col="12" text="요청여부"/>
                <Cell col="13" text="의뢰여부"/>
                <Cell col="14" text="의뢰일"/>
                <Cell col="15" text="검색결과"/>
                <Cell col="16" text="이전결과"/>
                <Cell col="17" text="PIBW"/>
                <Cell col="18" text="ALB"/>
                <Cell col="19" text="TLC"/>
                <Cell col="20" text="EN"/>
                <Cell col="21" text="PN"/>
                <Cell col="22" text="indschacptstat"/>
                <Cell col="23" text="ordtype"/>
                <Cell col="24" text="cretno"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow + 1"/>
                <Cell col="1" text="bind:pid"/>
                <Cell col="2" text="bind:hngnm"/>
                <Cell col="3" text="bind:indschacptstat"/>
                <Cell col="4" text="bind:sex"/>
                <Cell col="5" text="bind:age"/>
                <Cell col="6" style="align:left top;padding:4 2 2 2;" text="bind:orddeptnm" wordwrap="word"/>
                <Cell col="7" style="align:left;" text="bind:roomcd"/>
                <Cell col="8" text="bind:medispclnm"/>
                <Cell col="9" text="bind:atdoctnm"/>
                <Cell col="10" displaytype="date" text="bind:indd" calendardisplaynulltype="none"/>
                <Cell col="11" text="bind:nrsscore"/>
                <Cell col="12" text="bind:nstreqyn"/>
                <Cell col="13" text="bind:cnstyn"/>
                <Cell col="14" displaytype="date" text="bind:reqdd" combodisplaynulltype="none" calendardisplaynulltype="none"/>
                <Cell col="15" text="bind:srchrslt"/>
                <Cell col="16" text="bind:presrchrslt"/>
                <Cell col="17" text="bind:pibw"/>
                <Cell col="18" text="bind:alb"/>
                <Cell col="19" text="bind:tlc"/>
                <Cell col="20" text="bind:en"/>
                <Cell col="21" text="bind:pn"/>
                <Cell col="22" text="bind:indschacptstat"/>
                <Cell col="23" text="bind:ordtype"/>
                <Cell col="24" text="bind:cretno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape position="absolute 0 0 1090 40" id="roundrect2" type="roundrectangle"/>
        <Combo position="absolute 215 10 365 29" id="cmb_deptcd" class="combo_search" innerdataset="@ds_init_orddeptlist_dept" datacolumn="depthngnm" codecolumn="deptcd"/>
        <Combo position="absolute 370 10 460 29" id="cmb_wardcd" class="combo_search" innerdataset="@ds_init_wardcdlsit_dept" datacolumn="depthngnm" codecolumn="deptcd"/>
        <Static text="검색결과" position="absolute 486 10 556 27" id="caption16" class="search_name"/>
        <Button position="absolute 1018 10 1083 32" id="btn_searh" class="btn2" text="요청취소" onclick="btn_searh_onclick"/>
        <Button position="absolute 958 10 1014 32" id="button1" class="btn2" text="요청" onclick="button1_onclick"/>
        <Button position="absolute 898 10 954 32" id="button2" class="btn1" text="조회" onclick="button2_onclick"/>
        <Radio position="absolute 13 12 105 32" id="rdo_flag" columncount="-1" innerdataset="@ds_init_flag" datacolumn="nm" codecolumn="cd" rowcount="-1" onitemchanged="rdo_flag_onitemchanged"/>
        <Calendar position="absolute 108 12 195 31" id="ipt_dschdd" enable="false"/>
        <Combo position="absolute 560 10 660 29" id="cmb_srchrslt" innerdataset="@ds_init_srchrslt_A0058" datacolumn="cdnm" codecolumn="cdid"/>
        <Button id="button13" taborder="1" text="엑셀" onclick="button13_onclick" class="btn7" position="absolute 830 10 886 32"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_result_pathistlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="flag" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="wardcd" type="STRING" size="256"/>
          <Column id="dschdd" type="STRING" size="256"/>
          <Column id="srchrslt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="flag"/>
            <Col id="orddeptcd"/>
            <Col id="wardcd"/>
            <Col id="dschdd"/>
            <Col id="srchrslt"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_savedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_flag" 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">A</Col>
            <Col id="nm">재원</Col>
          </Row>
          <Row>
            <Col id="cd">D</Col>
            <Col id="nm">퇴원</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_srchrslt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_wardcdlsit_dept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_orddeptlist_dept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_srchrslt_A0058" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="rdo_flag" propid="value" datasetid="ds_main_cond" columnid="flag"/>
      <BindItem id="item1" compid="ipt_dschdd" propid="value" datasetid="ds_main_cond" columnid="dschdd"/>
      <BindItem id="item2" compid="cmb_deptcd" propid="value" datasetid="ds_main_cond" columnid="orddeptcd"/>
      <BindItem id="item3" compid="cmb_wardcd" propid="value" datasetid="ds_main_cond" columnid="wardcd"/>
      <BindItem id="item4" compid="cmb_srchrslt" propid="value" datasetid="ds_main_cond" columnid="srchrslt"/>
    </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";

var arErrorCode 	= new HashArray();

function SPMMR05010_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);	//폼 초기화
}

function SPMMR05010_onload(obj:Form, e:LoadEventInfo)
{
	fInitialize();
	grdf_initGrid(grd_pathistlist);
}

/**
 * @desc   : 화면 초기화
 * @id     : 
 * @event  : 
 * @return : void
 * @authur : 이윤주
 */
function fInitialize()
{
	appf_getDeptCodeList(sysf_getUserInfo("dutplceinstcd"),"orduseyn","W","depthngnm","asc", "", "", "","ds_init_wardcdlsit_dept");// 병동정보				
	appf_getDeptCodeList(sysf_getUserInfo("dutplceinstcd"),"orduseyn","D","depthngnm","asc", "", "", "","ds_init_orddeptlist_dept");
			
	var arrParam = [{dsNm: "ds_init_srchrslt_A0058", cdGrpId: "A0058"}]
	appf_getCodeList(arrParam);

	frmf_addComboItem("cmb_deptcd", "전체", "-");
	frmf_addComboItem("cmb_wardcd", "전체", "-");
	frmf_addComboItem("cmb_srchrslt", "전체", "-");

	ds_main_cond.setColumn(0, "orddeptcd","-");
	var jobkindcd = sysf_getUserInfo("jobkindcd");
	if (utlf_transNullToEmpty(jobkindcd).substr(0,2) == "03") { 
		ds_main_cond.setColumn(0, "orddeptcd", sysf_getUserInfo("dutplcecd"));
	}
	ds_main_cond.setColumn(0, "wardcd","-");
	ds_main_cond.setColumn(0, "srchrslt","-");

	ds_main_cond.setColumn(0, "flag","A");
}

function grd_pathistlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var selectedrow = ds_main_result_pathistlist.rowposition;
		
	if (selectedrow < 0) {
		return;
	}
	
	var pid        		= ds_main_result_pathistlist.getColumn(selectedrow, "pid");
	var orddd       	= ds_main_result_pathistlist.getColumn(selectedrow, "indd");
	var cretno     		= ds_main_result_pathistlist.getColumn(selectedrow, "cretno");
	var prcpgenrflag    = ds_main_result_pathistlist.getColumn(selectedrow, "ordtype");
	
	if(prcpgenrflag!="E"){
		prcpgenrflag = "I";
	}
	var instcd     	= sysf_getUserInfo("dutplceinstcd");		    		
	var param 		= prcpgenrflag    + "▦" + 
					  pid    + "▦" + 
					  orddd   + "▦" + 
					  cretno + "▦" + 
					  instcd + "▦";                      
	//frmf_setParameter("condparam", param);
	//modal("SPMMO08900", 1, 0, 0, "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;");
	appf_initPatientInfo(param);	//상단정보 셋팅
	
	fCnstReq();
}

function fCnstReq() {	
	var selectedrow = ds_main_result_pathistlist.rowposition;
		
	if (selectedrow < 0) {
		return;
	}

	var nurreqyn    	= ds_main_result_pathistlist.getColumn(selectedrow, "nurreqyn");
	var pid        		= ds_main_result_pathistlist.getColumn(selectedrow, "pid");
	var hngnm        	= ds_main_result_pathistlist.getColumn(selectedrow, "hngnm");
	var orddd       	= ds_main_result_pathistlist.getColumn(selectedrow, "indd");
	var cretno     		= ds_main_result_pathistlist.getColumn(selectedrow, "cretno");
	var ordtype    		= ds_main_result_pathistlist.getColumn(selectedrow, "ordtype");
	var indschacptstat  = ds_main_result_pathistlist.getColumn(selectedrow, "indschacptstat");

	if (indschacptstat != "A") {
		sysf_messageBox("재원중의 환자가 아니라 요청 불가합니다","I");
		return;
	}

	if ( nurreqyn == "Y") {
		sysf_messageBox("이미 요청되었습니다","I");
		return;
	}

	if( "6" != sysf_messageBox(pid+" "+ hngnm+" 영양검색결과 영양불량위험군으로 \n영양집중지원대상자 입니다.\n NST로 의뢰하시기 바랍니다.(T.본원: 5206 / 칠곡: 2594)", "Q999")) {
		return;
	}

	dsf_makeValue(ds_send_savedata, "pid", "string", pid);
	dsf_makeValue(ds_send_savedata, "orddd", "string", orddd);
	dsf_makeValue(ds_send_savedata, "cretno", "string", cretno);
	dsf_makeValue(ds_send_savedata, "ordtype", "string", ordtype);
	dsf_makeValue(ds_send_savedata, "nurreqyn", "string", "Y");

	var oParam = {};
		oParam.id          = "TXMMR05010";
		oParam.service     = "medirecapp.ExtnMediRec";
		oParam.method      = "reqSetNSTReq";
		oParam.inds        = "req=ds_send_savedata";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXMMR05010";

	tranf_submit(oParam);

	if(arErrorCode.pop("TXMMR05010") > -1){
		ds_main_result_pathistlist.setColumn(selectedrow, "nstreqyn", "Y");
	}	
}

function cf_TXMMR05010(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
function btn_searh_onclick(obj:Button,  e:ClickEventInfo)
{
	fCnstCnclReq();
}

function fCnstCnclReq() {

	var selectedrow = ds_main_result_pathistlist.rowposition;

	if (selectedrow < 0) {
		return;
	} 
		

	var nurreqyn    	= ds_main_result_pathistlist.getColumn(selectedrow, "nurreqyn");
	var pid        		= ds_main_result_pathistlist.getColumn(selectedrow, "pid");
	var hngnm        	= ds_main_result_pathistlist.getColumn(selectedrow, "hngnm");
	var orddd       	= ds_main_result_pathistlist.getColumn(selectedrow, "indd");
	var cretno     		= ds_main_result_pathistlist.getColumn(selectedrow, "cretno");
	var ordtype    		= ds_main_result_pathistlist.getColumn(selectedrow, "ordtype");
	var indschacptstat  = ds_main_result_pathistlist.getColumn(selectedrow, "indschacptstat");

	if (indschacptstat != "A") {
		sysf_messageBox("재원중의 환자가 아니라 요청 취소 불가합니다","I");
		return;
	}

	if ( nurreqyn == "N") {
		sysf_messageBox("이미 요청 취소 되었습니다","I");
		return;
	}

	if( "6" != sysf_messageBox(pid+" "+ hngnm+" 요청 취소하시겠습니까?", "Q999")) {
		return;
	}

	dsf_makeValue(ds_send_savedata, "pid", "string", pid);
	dsf_makeValue(ds_send_savedata, "orddd", "string", orddd);
	dsf_makeValue(ds_send_savedata, "cretno", "string", cretno);
	dsf_makeValue(ds_send_savedata, "ordtype", "string", ordtype);
	dsf_makeValue(ds_send_savedata, "nurreqyn", "string", "N");

	var oParam = {};
		oParam.id          = "TXMMR05010";
		oParam.service     = "medirecapp.ExtnMediRec";
		oParam.method      = "reqSetNSTReq";
		oParam.inds        = "req=ds_send_savedata";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXMMR05010";

	tranf_submit(oParam);

	if(arErrorCode.pop("TXMMR05010") > -1){
		ds_main_result_pathistlist.setColumn(selectedrow, "nstreqyn", "N");
	}
}
function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	fCnstReq();
}

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

function fSearch() {	
	var oParam = {};
		oParam.id          = "TRMMR05010";
		oParam.service     = "medirecapp.ExtnMediRec";
		oParam.method      = "reqGetNRSList";
		oParam.inds        = "req=ds_main_cond";
		oParam.outds       = "ds_main_result_pathistlist=pathistlist";
		oParam.async       = false;		

	tranf_submit(oParam);
}

function rdo_flag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	var flag = ds_main_cond.getColumn(0, "flag");
	ipt_dschdd.enable = false;
	if ( flag == "D" ) {
		ipt_dschdd.enable = true;
	}
}

function button13_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_pathistlist, "환자명단(NRS)", "SheetName", false, "", "user", false);
}
]]></Script>
  </Form>
</FDL>