YNU_JEUS/app_home/himed/xpapps/lis/plgyrefmngtxp/xp/SMLPP01500_CVR조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLPP01500" position="absolute 0 0 1196 771" titletext="긴급알림 환자조회" oninit="SMLPP01500_oninit" onload="SMLPP01500_onload">
    <Layouts>
      <Layout>
        <Static id="caption4" text="긴급알림 환자목록" class="tit_2" position="absolute 1 95 137 113"/>
        <Shape id="line1" linetype="horizontal" class="line_10" position="absolute 0 111 1194 117"/>
        <Div id="group2" taborder="1" position="absolute 0 54 1195 89" class="div_SA2">
          <Layouts>
            <Layout>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1105 7 1111 29" anchor="default"/>
              <Static id="caption2" text="전송일자 :" class="search_name" position="absolute 15 9 101 26" anchor="default"/>
              <Static id="caption5" text="~" class="search_no_b" position="absolute 207 8 219 25" anchor="default"/>
              <Button id="btn_sea" taborder="4" text="조회" class="btn1" position="absolute 1123 7 1179 29" anchor="default" onclick="group2_btn_sea_onclick"/>
              <Calendar id="ipt_cnclfromdd" taborder="5" class="input_s_essential" position="absolute 104 8 204 27" mask="yyyy-mm-dd" anchor="default"/>
              <Calendar id="ipt_cncltodd" taborder="6" class="input_s_essential" position="absolute 223 8 323 27" mask="yyyy-mm-dd" anchor="default" onkeyup="group2_ipt_cncltodd_onkeyup"/>
              <Static id="caption1" text="등록번호 :" class="search_name" position="absolute 901 9 987 26" anchor="default"/>
              <Edit id="ipt_pid" taborder="7" position="absolute 993 8 1093 27" anchor="default" onkeyup="group2_ipt_pid_onkeyup"/>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_refinfolist" class="datagrid2" taborder="2" binddataset="ds_grd_refinfolist" useinputpanel="false" position="absolute 0 115 1194 768" oncelldblclick="grd_refinfolist_oncelldblclick" cellsizingtype="both" autofittype="none" extendsizetype="row" autosizingtype="row" cellsizebandtype="body">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0" band="left"/>
                <Column size="0" band="left"/>
                <Column size="26" band="left"/>
                <Column size="100"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="0"/>
                <Column size="110"/>
                <Column size="266"/>
                <Column size="86"/>
                <Column size="80"/>
                <Column size="69"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="100"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="60"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="기관코드"/>
                <Cell col="1" text="ptno"/>
                <Cell col="2"/>
                <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="수신의"/>
                <Cell col="15" text="전송내역"/>
                <Cell col="16" text="전송시각"/>
                <Cell col="17" text="수신시각"/>
                <Cell col="18" text="판독의"/>
              </Band>
              <Band id="body">
                <Cell text="bind:instcd"/>
                <Cell col="1" text="bind:ptno"/>
                <Cell col="2" celltype="head" text="expr:currow + 1" autosizerow="limitmin"/>
                <Cell col="3" class="text_center" text="bind:dispptno" autosizerow="limitmin"/>
                <Cell col="4" class="text_center" text="bind:pid" autosizerow="limitmin"/>
                <Cell col="5" class="text_center" text="bind:patnm" autosizerow="limitmin"/>
                <Cell col="6" class="text_center" text="bind:sexage" autosizerow="limitmin"/>
                <Cell col="7" class="text_center" text="bind:extrpartcnts" autosizerow="limitmin"/>
                <Cell col="8" style="align:left middle;" text="bind:extrpartcnts" autosizerow="limitmin"/>
                <Cell col="9" style="align:left middle;" class="text_left" text="bind:diagcnts" autosizerow="limitmin"/>
                <Cell col="10" style="align:left middle;" text="bind:memocnts" autosizerow="limitmin"/>
                <Cell col="11" edittype="none" style="align:left middle;" text="bind:prcpdd" autosizerow="limitmin"/>
                <Cell col="12" style="align:left middle;" text="bind:orddeptnm" autosizerow="limitmin"/>
                <Cell col="13" text="bind:atdrnm" autosizerow="limitmin"/>
                <Cell col="14" text="bind:receivenm" autosizerow="limitmin"/>
                <Cell col="15" style="align:left middle;" text="bind:cmtcnts" autosizerow="limitmin"/>
                <Cell col="16" displaytype="normal" edittype="none" style="align:left middle;" text="bind:transdt" autosizerow="limitmin"/>
                <Cell col="17" displaytype="normal" edittype="none" style="align:left middle;" text="bind:confdd" autosizerow="limitmin"/>
                <Cell col="18" text="bind:readrnm" autosizerow="limitmin"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line10" linetype="horizontal" class="line_6" position="absolute 0 50 1194 56" style="strokepen:3 solid #9ebed4ff;"/>
        <Button id="button13" taborder="4" text="EXCEL저장" class="btn7" position="absolute 0 27 92 49" onclick="button13_onclick"/>
        <Static id="caption6" text="긴급알림 환자조회" class="tit_1" position="absolute 0 0 163 25"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_refinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING"/>
          <Column id="ptno" type="STRING"/>
          <Column id="dispptno" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="sexage" type="STRING"/>
          <Column id="extrpartcnts" type="STRING"/>
          <Column id="diagcnts" type="STRING"/>
          <Column id="memocnts" type="STRING"/>
          <Column id="prcpdd" type="STRING"/>
          <Column id="orddeptnm" type="STRING"/>
          <Column id="atdrnm" type="STRING"/>
          <Column id="receivenm" type="STRING"/>
          <Column id="cmtcnts" type="STRING"/>
          <Column id="transdt" type="STRING"/>
          <Column id="confdd" type="STRING"/>
          <Column id="readrnm" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_sysdtinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="sysdd" type="STRING" size="256" sumtext="시스템일자"/>
          <Column id="systm" type="STRING" size="256" sumtext="시스템시간"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="acptfromdd" type="STRING" size="256"/>
          <Column id="acpttodd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.ipt_cnclfromdd" propid="value" datasetid="ds_hidden" columnid="acptfromdd"/>
      <BindItem id="item1" compid="group2.ipt_cncltodd" propid="value" datasetid="ds_hidden" columnid="acpttodd"/>
      <BindItem id="item2" compid="group2.ipt_pid" propid="value" datasetid="ds_hidden" columnid="pid"/>
    </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";
include "lis_commonxp::LPZ001.xjs";

function SMLPP01500_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	grdf_initGrid(grd_refinfolist);
}

function SMLPP01500_onload(obj:Form, e:LoadEventInfo)
{
	fExeInitialize();
}

function fExeInitialize()
{
	ds_grd_refinfolist.clearData();
	
	// 시스템일자 조회
	dsf_createDsRow("ds_send", [{col : "instcd", val : sysf_getUserInfo("dutplceinstcd")}]);
	
	var oParam = {};
		oParam.id          = "TRLPZ00102";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetSystemDateTimeInformation";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_sysdtinfo=sysdtinfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPZ00102";
	tranf_submit(oParam);
	
	// 초기값 설정
	ds_hidden.setColumn(0, "acptfromdd", ds_sysdtinfo.getColumn(0, "sysdd"));			// 정도일자(From)
	ds_hidden.setColumn(0, "acpttodd",   ds_sysdtinfo.getColumn(0, "sysdd"));           // 정도일자(To)
	
}

//조회 버튼
function group2_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetRefInfoList();
}

//감사판독 소요시간 조회 처리 함수
function fGetRefInfoList()
{
	ds_grd_refinfolist.clearData();
	
	dsf_createDsRow("ds_temp_search", [{col : "instcd",     val : sysf_getUserInfo("dutplceinstcd")}
	                                  ,{col : "reffromdd",  val : ds_hidden.getColumn(0, "acptfromdd")}
	                                  ,{col : "reftodd",    val : ds_hidden.getColumn(0, "acpttodd")}
	                                  ,{col : "pid",        val : ds_hidden.getColumn(0, "pid")}
	                                  ,{col : "workflagcd", val : "'1001', '1002', '1003', '1009'"}]);
	var oParam = {};
		oParam.id          = "TRLPP01502";
		oParam.service     = "plgyrefmngtapp.AcptSpecRef";
		oParam.method      = "reqGetUgyList";
		oParam.inds        = "refData=ds_temp_search";
		oParam.outds       = "ds_grd_refinfolist=reflist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPP01502";
	tranf_submit(oParam);

}

//Excel 저장
function button13_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_refinfolist, "관심증례목록");	
}

function group2_ipt_pid_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		ds_hidden.setColumn(0, "pid", group2.ipt_pid.text);
		fGetRefInfoList();
	}
}

function grd_refinfolist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(ds_grd_refinfolist.rowposition < 0 )
	{
		return;
	}
	var dispptno = ds_grd_refinfolist.getColumn(ds_grd_refinfolist.rowposition, "dispptno");
	var sflag = dispptno ;
	frmf_setParameter("opener_parameter_id", sflag);
	
	frmf_modal("SMLPR00100", "SMLPR00100", "", null, null, null, null, null, null, null, null, null, "M");
}

function group2_ipt_cncltodd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		fGetRefInfoList();
	}
}
]]></Script>
  </Form>
</FDL>