YNU_JEUS/app_home/himed/xpapps/lis/plgyrefmngtxp/xp/SMLPP01300_검사판독소요시간.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLPP01300" position="absolute 0 0 1256 805" titletext="검사판독소요시간" onload="SMLPP01300_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="검사 판독 소요시간" class="tit_1" position="absolute 0 3 159 28"/>
        <Div id="group2" taborder="3" style="align:center top;" class="div_SA" position="absolute 0 30 1256 72" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption1" text="등록번호" class="search_name" position="absolute 425 10 511 30" anchor="default"/>
              <Static id="caption2" text="접수일자" class="search_name" position="absolute 629 10 715 30" anchor="default"/>
              <Edit id="ipt_seaval" taborder="10" class="input_search" position="absolute 500 10 605 30" anchor="default" onkeydown="group2_ipt_seaval_onkeydown"/>
              <Button id="btn_sea" taborder="11" text="조회" onlbuttonup="btn_sea_onlbuttonup" class="btn1" position="absolute 1188 10 1244 30" anchor="top right"/>
              <Combo id="cbo_ptnocd" taborder="14" position="absolute 82 10 223 30" anchor="default" innerdataset="@ds_cond_ptnocode" codecolumn="ptnocd" datacolumn="ptnonm"/>
              <Edit id="ipt_fromptno" taborder="15" class="text_center" position="absolute 256 10 306 30" anchor="default"/>
              <Static id="caption3" text="병리번호" class="search_name" position="absolute 8 10 98 30" anchor="default"/>
              <Edit id="ipt_toptno" taborder="16" class="text_center" position="absolute 351 10 401 30" anchor="default"/>
              <Edit id="ipt_toyear" taborder="17" class="text_center" position="absolute 322 10 349 30" anchor="default"/>
              <Edit id="ipt_fromyear" taborder="18" class="text_center" position="absolute 226 10 253 30" anchor="default"/>
              <Static id="caption00" text="~" position="absolute 306 10 322 30" style="align:center;" anchor="default"/>
              <Calendar id="ipt_cnclfromdd" taborder="19" dateformat="yyyy-MM-dd" class="input_s_essential" position="absolute 714 10 814 30" mask="####-##-##" onchanged="group2_ipt_cnclfromdd_onchanged" anchor="default"/>
              <Static id="caption5" text="~" position="absolute 817 10 833 30" style="align:center middle;" anchor="default"/>
              <Calendar id="ipt_cncltodd" taborder="20" dateformat="yyyy-MM-dd" class="input_s_essential" position="absolute 833 10 933 30" mask="####-##-##" onchanged="group2_ipt_cncltodd_onchanged" anchor="default" onkeyup="group2_ipt_cncltodd_onkeyup"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption4" text="검체접수목록" class="tit_2" position="absolute 0 77 108 97"/>
        <Grid id="grd_acptinfolist" class="CSS::lis.css" taborder="4" useinputpanel="false" position="absolute 0 97 1256 805" anchor="all" binddataset="ds_grid_grd_acptinfolist" tooltiptype="default" cellsizingtype="both" extendsizetype="none" autosizingtype="none">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25" band="left"/>
                <Column size="0" band="left"/>
                <Column size="0" band="left"/>
                <Column size="80" band="left"/>
                <Column size="70" band="left"/>
                <Column size="70" band="left"/>
                <Column size="80" band="left"/>
                <Column size="80" band="left"/>
                <Column size="150" band="left"/>
                <Column size="0" band="left"/>
                <Column size="50" band="left"/>
                <Column size="0" band="left"/>
                <Column size="100" band="left"/>
                <Column size="70"/>
                <Column size="54"/>
                <Column size="70"/>
                <Column size="66"/>
                <Column size="73"/>
                <Column size="63"/>
                <Column size="70"/>
                <Column size="54"/>
                <Column size="70"/>
                <Column size="54"/>
                <Column size="0"/>
                <Column size="63"/>
                <Column size="54"/>
                <Column size="66"/>
                <Column size="71"/>
                <Column size="92"/>
                <Column size="67"/>
                <Column size="69"/>
                <Column size="68"/>
                <Column size="84"/>
                <Column size="54"/>
                <Column size="70"/>
                <Column size="54"/>
              </Columns>
              <Rows>
                <Row size="36" 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="처방시간"/>
                <Cell col="15" text="접수일자"/>
                <Cell col="16" text="접수&#13;&#10;시간"/>
                <Cell col="17" text="Gross&#13;&#10;일자"/>
                <Cell col="18" text="Gross시간"/>
                <Cell col="19" text="제작일자"/>
                <Cell col="20" text="제작&#13;&#10;시간"/>
                <Cell col="21" text="판독일자"/>
                <Cell col="22" text="판독&#13;&#10;시간"/>
                <Cell col="23" text="판독의ID"/>
                <Cell col="24" text="접수&#13;&#10;소요분"/>
                <Cell col="25" text="접수&#13;&#10;소요시간"/>
                <Cell col="26" text="접수&#13;&#10;소요일"/>
                <Cell col="27" text="제작&#13;&#10;소요분"/>
                <Cell col="28" text="제작&#13;&#10;소요시간"/>
                <Cell col="29" text="제작&#13;&#10;소요일"/>
                <Cell col="30" text="판독&#13;&#10;소요분"/>
                <Cell col="31" text="판독&#13;&#10;소요일"/>
                <Cell col="32" text="판독&#13;&#10;소요시간"/>
                <Cell col="33" text="총&#13;&#10;소요분"/>
                <Cell col="34" text="총&#13;&#10;소요시간"/>
                <Cell col="35" text="총&#13;&#10;소요일"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" text="expr:currow + 1"/>
                <Cell col="1" text="bind:instcd"/>
                <Cell col="2" text="bind:ptno"/>
                <Cell col="3" class="text_center" text="bind:dispptno"/>
                <Cell col="4" class="text_center" text="bind:pid"/>
                <Cell col="5" class="text_center" text="bind:patnm"/>
                <Cell col="6" text="bind:wardroom"/>
                <Cell col="7" text="bind:testcd"/>
                <Cell col="8" style="align:left middle;" text="bind:testnm"/>
                <Cell col="9" text="bind:orddeptcd"/>
                <Cell col="10" class="text_center" text="bind:orddeptnm"/>
                <Cell col="11"/>
                <Cell col="12" style="align:left middle;" text="bind:spcnm"/>
                <Cell col="13" text="bind:prcpdd" mask="expr:prcpdd=='-'?'':'####-##-##'"/>
                <Cell col="14" text="bind:prcptm" mask="expr:prcptm=='-'?'':'##:##:##'"/>
                <Cell col="15" text="bind:acptdd" mask="expr:acptdd=='-'?'':'####-##-##'"/>
                <Cell col="16" text="bind:acpttm" mask="expr:acpttm=='-'?'':'##:##:##'"/>
                <Cell col="17" text="bind:grostestdd" mask="expr:grostestdd=='-'?'':'####-##-##'"/>
                <Cell col="18" text="bind:grostesttm" mask="expr:grostesttm=='-'?'':'##:##:##'"/>
                <Cell col="19" text="bind:makeenddd" mask="expr:makeenddd=='-'?'':'####-##-##'"/>
                <Cell col="20" text="bind:makeendtm" mask="expr:makeendtm=='-'?'':'##:##:##'"/>
                <Cell col="21" text="bind:readdd" mask="expr:readdd=='-'?'':'####-##-##'"/>
                <Cell col="22" text="bind:readtm" mask="expr:readtm=='-'?'':'##:##:##'"/>
                <Cell col="23" displaytype="text" edittype="text" text="bind:readdrid"/>
                <Cell col="24" text="bind:acptusemin" tooltiptype="right" tooltiptext="&quot;처방일시 &lt;-&gt; 접수일시&quot;"/>
                <Cell col="25" text="bind:acptusetm" tooltiptype="right" tooltiptext="&quot;처방일시 &lt;-&gt; 접수일시&quot;"/>
                <Cell col="26" text="bind:acptusedd" tooltiptype="right" tooltiptext="&quot;처방일시 &lt;-&gt; 접수일시&quot;"/>
                <Cell col="27" text="bind:makeusemin" tooltiptype="right" tooltiptext="접수일시 &lt;-&gt; 슬라이드 제작일시"/>
                <Cell col="28" text="bind:makeusetm" tooltiptype="right" tooltiptext="접수일시 &lt;-&gt; 슬라이드 제작일시"/>
                <Cell col="29" text="bind:makeusedd" tooltiptype="right" tooltiptext="접수일시 &lt;-&gt; 슬라이드 제작일시"/>
                <Cell col="30" text="bind:makereadmin" tooltiptype="right" tooltiptext="슬라이드 제작일시 &lt;-&gt; 판독일시"/>
                <Cell col="31" text="bind:makereadtm" tooltiptype="right" tooltiptext="슬라이드 제작일시 &lt;-&gt; 판독일시"/>
                <Cell col="32" text="bind:makereaddd" tooltiptype="right" tooltiptext="슬라이드 제작일시 &lt;-&gt; 판독일시"/>
                <Cell col="33" text="bind:totmin" tooltiptype="right" tooltiptext="접수일시 &lt;-&gt; 판독일시"/>
                <Cell col="34" text="bind:tottm" tooltiptype="right" tooltiptext="접수일시 &lt;-&gt; 판독일시"/>
                <Cell col="35" text="bind:totdd" tooltiptype="right" tooltiptext="접수일시 &lt;-&gt; 판독일시"/>
                <Cell col="36"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="button13" taborder="5" text="엑셀출력" onlbuttonup="button13_onlbuttonup" class="btn7" position="absolute 1180 74 1256 94" anchor="top right" onclick="button13_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_data_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"/>
          <Column id="systm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cond_ptnocode" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="ptnocd" type="STRING" size="256"/>
          <Column id="ptnonm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grid_grd_acptinfolist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <column id="instcd" type="STRING" size="256"/>
          <column id="ptno" type="STRING" size="256"/>
          <column id="dispptno" type="STRING" size="256"/>
          <column id="pid" type="STRING" size="256"/>
          <column id="patnm" type="STRING" size="256"/>
          <column id="wardroom" type="STRING" size="256"/>
          <column id="testcd" type="STRING" size="256"/>
          <column id="testnm" type="STRING" size="256"/>
          <column id="orddeptcd" type="STRING" size="256"/>
          <column id="orddeptnm" type="STRING" size="256"/>
          <column id="spccd" type="STRING" size="256"/>
          <column id="spcnm" type="STRING" size="256"/>
          <column id="prcpdd" type="STRING" size="256"/>
          <column id="prcptm" type="STRING" size="256"/>
          <column id="acptdd" type="STRING" size="256"/>
          <column id="acpttm" type="STRING" size="256"/>
          <column id="makeenddd" type="STRING" size="256"/>
          <column id="makeendtm" type="STRING" size="256"/>
          <column id="grostestdd" type="STRING" size="256"/>
          <column id="grostesttm" type="STRING" size="256"/>
          <column id="readdd" type="STRING" size="256"/>
          <column id="readtm" type="STRING" size="256"/>
          <column id="readdrid" type="STRING" size="256"/>
          <column id="acptusemin" type="STRING" size="256"/>
          <column id="acptusetm" type="STRING" size="256"/>
          <column id="acptusedd" type="STRING" size="256"/>
          <column id="makeusemin" type="STRING" size="256"/>
          <column id="makeusetm" type="STRING" size="256"/>
          <column id="makeusedd" type="STRING" size="256"/>
          <column id="makereadmin" type="STRING" size="256"/>
          <column id="makereadtm" type="STRING" size="256"/>
          <column id="makereaddd" type="STRING" size="256"/>
          <column id="totmin" type="STRING" size="256"/>
          <column id="tottm" type="STRING" size="256"/>
          <column id="totdd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	KU2.0
 * Job Name 		:	
 * File Name 		:	SMLPP01300_검사판독소요시간.xfdl
 * Creator 	    :	
 * Make Date 		:	2015-11-11
 *                                                                                        
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	Modify Description                                     
 *--------------------------------------------------------------------------------------- 
 * 2015-11-11        DBS       Converting Program(TF->XP)
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/


//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";
include "lis_commonxp::LZZ001.xjs";


var instcd = "";
var seameth = "1";	// 검색방법(등록번호)
//=======================================================================================
// Function 
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components	    : 
 * Components ID  : model1
 * Event 		    : lf_setInit
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 초기화 함수
 ****************************************************************************************/
function lf_exeInitialize() {
	
	var sCurDate = "";
	instcd = sysf_getUserInfo("dutplceinstcd");
	var sInDsName = dsf_createDsRow("ds_temp_search"
								 , [{col: "instcd", val:instcd }
								 ]);
	// 시간조회
	tranf_submit({
					 id: "TRLPZ00102"
				   , service: "plgycomnusemngtapp.BaseInfoCode"
				   , method: "reqGetSystemDateTimeInformation"
				   , inds : "cond="+sInDsName
				   , outds: "ds_data_sysdtinfo=sysdtinfo"
				   , callback: "cbf_SMLPP01300"
				   , async: false
	});	
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : btn_search
 * Event 		    : onlbuttonup
 * Argument		: 01.btnflag : 
 *				: 02. : 
 * Description	: 감사판독 소요시간 조회 처리 함수
 ****************************************************************************************/
 function lf_getAcptInfoList() {
	
	var sTemp   = "";
	var sFromDD = group2.ipt_cnclfromdd.value;
	var sToDD   = group2.ipt_cncltodd.value;
	if(!utlf_isNull(group2.cbo_ptnocd.value)) {
	
		if(utlf_isNull(group2.ipt_fromyear.value)) {
			group2.ipt_fromyear.value =  sFromDD.substr(2,2);			
		}else {
			sTemp = group2.ipt_fromyear.value;
			group2.ipt_fromyear.value = utlf_lPad(sTemp, 2, "0");
		}
		
		if(utlf_isNull(group2.ipt_toyear.value)) {
			group2.ipt_toyear.value = sToDD.substr(2,2);
		}else {
			sTemp = group2.ipt_toyear.value;
			group2.ipt_toyear.value = utlf_lPad(sTemp, 2, "0");
		}
		
		if(utlf_isNull(group2.ipt_fromptno.value)) {
			group2.ipt_fromptno.value = "000000";
		}else {
			sTemp = group2.ipt_fromptno.value;
			group2.ipt_fromptno.value = utlf_lPad(sTemp, 6, "0");
		}
		
		if(utlf_isNull(group2.ipt_toptno.value)) {
			group2.ipt_toptno.value = "999999";
			
		}else {
			sTemp = group2.ipt_toptno.value;
			group2.ipt_toptno.value = utlf_lPad(sTemp, 6, "0");
		}
	}
	
	sTemp = group2.cbo_ptnocd.value;
	var acptfromdd = group2.ipt_cnclfromdd.value;
	var acpttodd = group2.ipt_cncltodd.value;
	var refval = group2.ipt_seaval.value;
	var ptnocode = utlf_transNullToEmpty(sTemp).replace("-", "");
	var fromyear = group2.ipt_fromyear.value;
	var fromptno = group2.ipt_fromptno.value;
	var toyear   = group2.ipt_toyear.value;
	var toptno   = group2.ipt_toptno.value;	
	var sInDsName = dsf_createDsRow("ds_temp_search"
								 , [{col: "instcd", val:instcd }
								 ,  {col: "acptfromdd", val:acptfromdd }
								 ,  {col: "acpttodd", val:acpttodd }
								 ,  {col: "refmthdcd", val:seameth }
								 ,  {col: "refval", val:refval }
								 ,  {col: "ptnocode", val:ptnocode }
								 ,  {col: "fromyear", val:fromyear }
								 ,  {col: "fromptno", val:fromptno }
								 ,  {col: "toyear", val:toyear }
								 ,  {col: "toptno", val:toptno }
								 ]);
	// 서브밋호출
	tranf_submit({
					 id: "TRLPP01301"
				   , service: "plgyrefmngtapp.AcptSpecRef"
				   , method: "reqGetTestReadTmList"
				   , inds : "refData="+sInDsName
				   , outds: "ds_grid_grd_acptinfolist=reflist"
				   , callback: "cbf_SMLPP01300"
				   , async: false
	});
}

// 그리드 자료 Excel로 저장 처리 function
function lf_exeSaveToExcel(){
	grdf_exportExcel(grd_acptinfolist, "검사판독소요시간.xls", "검사판독소요시간", true, "", "", true, "");
}

// 검색값을 입력하고 Enter키를 누를 경우 처리 function
function lf_exeInputKey() {
	
	fSetInputNodeCurPidObj(group2.ipt_seaval, 9);  //등록번호9자리로 변경
	lf_getAcptInfoList();
}

// callback 함수
function cbf_SMLPP01300(strSvcID, nErrorCode, strErrorMag) {
	
	if(nErrorCode != 0) {
		sysf_messageBox("ID: "+ strSvcID + "  Error: " + strErrorMag, "E009", "");
	}else{
		switch(strSvcID){
			
			case "TRLPZ00102":
			
					//병리번호코드조회.
					var refflagcd = "0";
					var sInDsName = dsf_createDsRow("ds_temp_search"
												 , [{col: "instcd", val:instcd }
												 , {col: "refflagcd", val:refflagcd }
												 ]);
					tranf_submit({
									 id: "TRLPZ00109"
								   , service: "plgycomnusemngtapp.BaseInfoCode"
								   , method: "reqGetPtNoCdList"
								   , inds : "refdata="+sInDsName
								   , outds: "ds_cond_ptnocode=rsltlist"
								   , callback: "cbf_SMLPP01300"
								   , async: false
					});
				break;
			case "TRLPZ00109":
					var sCurDate = ds_data_sysdtinfo.getColumn(0, "sysdd");
					// 초기값 설정
					group2.ipt_seaval.value = "";	// 검색값
					group2.ipt_cnclfromdd.value = ds_data_sysdtinfo.getColumn(0, "sysdd");	// 접수일자(From)
					group2.ipt_cncltodd.value  = ds_data_sysdtinfo.getColumn(0, "sysdd");	// 접수일자(To)
					group2.cbo_ptnocd.value = "";
					group2.ipt_fromyear.value = sCurDate.substr(2,2);
					group2.ipt_toyear.value = sCurDate.substr(2,2);
					group2.ipt_fromptno.value = "";
					group2.ipt_toptno.value = "";
					
					grdf_setGridSort(grd_acptinfolist);
				break;
			case "TRLPP01301":
				
				break;
			default:
				break;
		}
	}
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : button13
 * Event 		    : onlbuttonup
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 엑셀 버튼
 ****************************************************************************************/
function button13_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	lf_exeSaveToExcel();		
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : ipt_seaval
 * Event 		    : 
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 등록번호 enter key 이벤트
 ****************************************************************************************/
function group2_ipt_seaval_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode==13) {
		lf_exeInputKey();
	}
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : btn_sea
 * Event 		    : onlbuttonup
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 조회 버튼
 ****************************************************************************************/
function btn_sea_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	lf_getAcptInfoList();				
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : ipt_cnclfromdd
 * Event 		    : 
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: Not Convert : xforms-value-changed
 ****************************************************************************************/
function group2_ipt_cnclfromdd_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	var curDt = e.postvalue;
	    curDt = curDt.toFormatString("%Y%m%d");
	group2.ipt_fromyear.value = curDt.substr(2,2);
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : ipt_cncltodd
 * Event 		    : 
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: Not Convert : xforms-value-changed
 ****************************************************************************************/
function group2_ipt_cncltodd_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	var curDt = e.postvalue;
	curDt = curDt.toFormatString("%Y%m%d");
	group2.ipt_toyear.value = curDt.substr(2,2);
}

function SMLPP01300_onload(obj:Form, e:LoadEventInfo)
{
	//폼 초기화 함수
	frmf_initForm(obj);
		
	lf_exeInitialize();
}

function group2_ipt_cncltodd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		lf_getAcptInfoList();
	}
}

]]></Script>
  </Form>
</FDL>