YNU_JEUS/app_home/himed/xpapps/lis/plgyrefmngtxp/xp/SPLPP02800_frozen검체현황조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLPP02800" position="absolute 0 0 1014 669" titletext="frozen검체현황조회" class="frm_POP" onload="SPLPP02800_onload">
    <Layouts>
      <Layout>
        <Static id="stt_titleText" text="frozen검체현황조회" class="sta_POP_title" position="absolute 12 8 161 28"/>
        <Button id="btn_exit" taborder="1" class="btn_POP_cls" position="absolute 988 12 1002 25" onclick="btn_exit_onclick"/>
        <Div id="div_search" taborder="2" class="div_SA" position="absolute 12 46 1002 88">
          <Layouts>
            <Layout>
              <Static id="caption4" text="바코드번호" class="search_name" position="absolute 8 10 95 30" anchor="default"/>
              <Edit id="ipt_refval" taborder="8" class="input_essential" position="absolute 95 10 210 30" anchor="default" onkeydown="div_search_ipt_refval_onkeydown" oneditclick="div_search_ipt_refval_oneditclick" inputmode="upper"/>
              <Combo id="cmb_refflagcd" taborder="9" class="combo_search" visible="false" position="absolute 213 10 325 30" style="align:center middle;" anchor="default" codecolumn="codecolumn" datacolumn="datacolumn" index="0" value="0" text="바코드번호">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn" size="256"/>
                    <Column id="datacolumn" size="256"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">0</Col>
                      <Col id="datacolumn">바코드번호</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Button id="btn_search" taborder="10" text="조회" onlbuttonup="button1_onlbuttonup" class="btn1" position="absolute 922 10 978 30" anchor="default" onclick="div_search_btn_search_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption14" text="검체현황" class="tit_2" position="absolute 12 98 181 118"/>
        <Static id="Static02" class="sta_DA_box" position="absolute 12 118 1002 144"/>
        <Static id="caption31" text="검체전달" class="cell_1" position="absolute 13 119 98 143" style="align:left middle;"/>
        <Edit id="opt_spctran" taborder="3" readonly="true" position="absolute 101 121 210 141" style="align:right middle;" mask="#,###,###"/>
        <Static id="caption01" text="병리과 수신" class="cell_1" position="absolute 213 119 298 143" style="align:left middle;"/>
        <Edit id="opt_spcrecv" taborder="4" readonly="true" position="absolute 301 121 409 141" style="align:right middle;" mask="#,###,###"/>
        <Static id="caption15" text="검체접수" class="cell_1" position="absolute 412 119 497 143" style="align:left middle;"/>
        <Edit id="opt_spcacpt" taborder="5" readonly="true" position="absolute 500 121 608 141" style="align:right middle;" mask="#,###,###"/>
        <Static id="caption17" text="총 환자수" class="cell_1" visible="false" position="absolute 611 119 696 143" style="align:left middle;"/>
        <Edit id="opt_totalpat" taborder="6" readonly="true" visible="false" position="absolute 699 121 807 141" style="align:right middle;" mask="#,###,###"/>
        <Static id="caption18" text="총 검사수" class="cell_1" visible="false" position="absolute 810 119 895 143" style="align:left middle;"/>
        <Edit id="opt_totalspc" taborder="7" readonly="true" visible="false" position="absolute 898 121 998 141" style="align:right middle;" mask="#,###,###"/>
        <Static id="caption2" text="검체목록" class="tit_2" position="absolute 12 154 152 174"/>
        <Grid id="grd_acptspclist" taborder="8" useinputpanel="false" position="absolute 12 174 1002 657" binddataset="ds_acptspclist">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="30"/>
                <Column size="0"/>
                <Column size="85"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="80"/>
                <Column size="0"/>
                <Column size="70"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="60"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="60"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="80"/>
                <Column size="79"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="22" band="head"/>
                <Row size="20"/>
              </Rows>
              <Band id="head">
                <Cell text="No"/>
                <Cell col="1" text="상태"/>
                <Cell col="2" text="상태"/>
                <Cell col="3" text="바코드번호"/>
                <Cell col="4" text="기관코드"/>
                <Cell col="5" text="ptno"/>
                <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="채취시간"/>
                <Cell col="19" text="채취자"/>
                <Cell col="20" text="수신일자"/>
                <Cell col="21" text="수신시간"/>
                <Cell col="22" text="접수일자"/>
                <Cell col="23" text="접수시간"/>
                <Cell col="24" text="접수자"/>
                <Cell col="25" text="검사코드"/>
                <Cell col="26" text="처방명"/>
                <Cell col="27" text="판독일자"/>
                <Cell col="28" text="판독의사"/>
                <Cell col="29" text="execprcpuniqno"/>
                <Cell col="30" text="prcpgenrflag"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="image" expr="expr:expr: getRowType(currow) == 2 ?'theme://images/ico_i.png' : (getRowType(currow) == 4 ? 'theme://images/ico_u.png' : (getRowType(currow) == 8 ? 'theme://images/ico_d.png' : 'theme://images/ico_e.png'))"/>
                <Cell col="2" text="bind:spcstatnm"/>
                <Cell col="3" text="bind:spcbarcdno"/>
                <Cell col="4"/>
                <Cell col="5"/>
                <Cell col="6" text="bind:ptno"/>
                <Cell col="7" class="text_center" text="bind:grosdrnm"/>
                <Cell col="8" class="text_center" text="bind:pid"/>
                <Cell col="9" class="text_center" text="bind:patnm"/>
                <Cell col="10" class="text_center"/>
                <Cell col="11"/>
                <Cell col="12"/>
                <Cell col="13" class="text_center" text="bind:prcpdd" mask="####-##-##"/>
                <Cell col="14" class="text_center" text="bind:prcptm" mask="##:##:##"/>
                <Cell col="15" class="text_center" text="bind:trandd" mask="####-##-##"/>
                <Cell col="16" class="text_center" text="bind:trantm" mask="##:##:##"/>
                <Cell col="17" class="text_center" text="bind:delivedd" mask="####-##-##"/>
                <Cell col="18" class="text_center" text="bind:delivetm" mask="##:##:##"/>
                <Cell col="19" class="text_center" text="bind:delivenm"/>
                <Cell col="20" class="text_center" text="bind:cnfmdd" mask="####-##-##"/>
                <Cell col="21" class="text_center" text="bind:cnfmtm" mask="##:##:##"/>
                <Cell col="22" class="text_center" text="bind:acptdd" mask="####-##-##"/>
                <Cell col="23" class="text_center" text="bind:acpttm" mask="##:##:##"/>
                <Cell col="24" class="text_center" text="bind:acptnm"/>
                <Cell col="25"/>
                <Cell col="26"/>
                <Cell col="27" text="bind:readdd" mask="####-##-##"/>
                <Cell col="28"/>
                <Cell col="29"/>
                <Cell col="30"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_hospenvinfo" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING"/>
          <Column id="lendrtnterm" type="STRING"/>
          <Column id="recvqualmthdcd" type="STRING"/>
          <Column id="plgydeptcd" type="STRING"/>
          <Column id="plgyteamcd" type="STRING"/>
          <Column id="doctjobgradcd" type="STRING"/>
          <Column id="teamjobgradcd" type="STRING"/>
          <Column id="csteeqmtip" type="STRING"/>
          <Column id="csteeqmtport" type="STRING"/>
          <Column id="slideqmtip" type="STRING"/>
          <Column id="norcptacptyn" type="STRING"/>
          <Column id="slidbceqmtip" type="STRING"/>
          <Column id="acptreaddr" type="STRING"/>
          <Column id="slidbceqmtip2" type="STRING"/>
          <Column id="slidbceqmtport2" type="STRING"/>
          <Column id="repttitl" type="STRING"/>
          <Column id="repttitl2" type="STRING"/>
          <Column id="plgyrecroom1" type="STRING"/>
          <Column id="plgyrecroom2" type="STRING"/>
          <Column id="ptnoacptflag" type="STRING"/>
          <Column id="autoacptflagcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_sysdtinfo" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="sysdd" type="STRING"/>
          <Column id="systm" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_rsltlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING"/>
          <Column id="ptnocd" type="STRING"/>
          <Column id="ptnonm" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_acptspclist" firefirstcount="0" firenextcount="0" useclientlayout="true" 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="prcpdd" type="STRING"/>
          <Column id="prcptm" type="STRING"/>
          <Column id="execprcpuniqno" type="STRING"/>
          <Column id="trandd" type="STRING"/>
          <Column id="trantm" type="STRING"/>
          <Column id="testcd" type="STRING"/>
          <Column id="testnm" type="STRING"/>
          <Column id="delivedd" type="STRING"/>
          <Column id="delivetm" type="STRING"/>
          <Column id="delivenm" type="STRING"/>
          <Column id="cnfmdd" type="STRING"/>
          <Column id="cnfmtm" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="patflagnm" type="STRING"/>
          <Column id="spcbarcdno" type="STRING"/>
          <Column id="spcacptdd" type="STRING"/>
          <Column id="spcacptno" type="STRING"/>
          <Column id="acptdd" type="STRING"/>
          <Column id="acpttm" type="STRING"/>
          <Column id="acptnm" type="STRING"/>
          <Column id="readdd" type="STRING"/>
          <Column id="readdrnm" type="STRING"/>
          <Column id="grosdrnm" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="orddeptnm" type="STRING"/>
          <Column id="spcnm" type="STRING"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	KU2.0
 * Job Name 		:	
 * File Name 		:	SPLPP02800_frozen검체현황조회.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";

//=======================================================================================
// Function 
//---------------------------------------------------------------------------------------
//콜백함수
function cbf_SPLPP02800(strSvcID, nErrorCode, strErrorMag){
	if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");	
}

function lf_exeInitialize(){
	var sInDsName = dsf_createDsRow("ds_temp_search"
						 , [{col: "instcd", val: sysf_getUserInfo("dutplceinstcd")}]);									
				
								
	// 서브밋호출
	tranf_submit({   id: "TRLPZ00101"
				   , service: "plgycomnusemngtapp.BaseInfoCode"
				   , method: "reqGetHospitalEnvironmentSetInfo"
				   , inds : "refData="+sInDsName
				   , outds: "ds_hospenvinfo=hospenvinfo"
				   , callback: "cbf_SPLPP02800"
				   , async: false
	 });
	 
	 sInDsName = dsf_createDsRow("ds_temp_search"
						 , [{col: "instcd", val: sysf_getUserInfo("dutplceinstcd")}]);									
				
								
	// 서브밋호출
	tranf_submit({   id: "TRLPZ00102"
				   , service: "plgycomnusemngtapp.BaseInfoCode"
				   , method: "reqGetSystemDateTimeInformation"
				   , inds : "refData="+sInDsName
				   , outds: "ds_sysdtinfo=sysdtinfo"
				   , callback: "cbf_SPLPP02800"
				   , async: false
	 });
	 
	 sInDsName = dsf_createDsRow("ds_temp_search"
						 , [{col: "instcd", val: sysf_getUserInfo("dutplceinstcd")}
						 ,  {col: "refflagcd", val: "0"}]);									
				
								
	// 서브밋호출
	tranf_submit({   id: "TRLPZ00109"
				   , service: "plgycomnusemngtapp.BaseInfoCode"
				   , method: "reqGetPtNoCdList"
				   , inds : "refdata="+sInDsName
				   , outds: "ds_rsltlist=rsltlist"
				   , callback: "cbf_SPLPP02800"
				   , async: false
	 });
	 	
	 if(frmf_checkOpener()){
		var param = opener.frmf_getParameter("opener_parameter_id");
		
		if(param != ""){
			div_search.ipt_refval.value = param;
		}
	 }
	 	 
	 // 병리번호 목록 조회
	lf_getSpcStatList();
}

function lf_getSpcStatList(){
	var sPtNoFrom = "";
	var sPtNoTo   = "";
	var sFromDD   = "";
	var sToDD     = "";
	var sTemp     = "";
	var nCntdelive = 0 ;
	var nCntcnfm = 0 ;
	var nCntacpt = 0 ;
	
	
	if(utlf_isNull(div_search.ipt_refval.value)){
		sysf_messageBox("바코드번호를", "C001", "");
		div_search.ipt_refval.setFocus();
		return false;
	}
	
	sInDsName = dsf_createDsRow("ds_temp_search"
						 , [{col: "instcd", val: sysf_getUserInfo("dutplceinstcd")}
						 ,  {col: "refmthd", val: "0"}
						 ,  {col: "refval", val: div_search.ipt_refval.value}
						 ,  {col: "acptfromdd", val: ""}
						 ,  {col: "acpttodd", val: ""}
						 ,  {col: "ptnocode", val: sTemp.replace("-", "")}
						 ,  {col: "fromyear", val: sFromDD.substr(2,2)}
						 ,  {col: "fromptno", val: "000000"}
						 ,  {col: "toyear", val: sToDD.substr(2,2)}
						 ,  {col: "toptno", val: "999999"}]);									
				
								
	// 서브밋호출
	tranf_submit({   id: "TRLPP01101"
				   , service: "plgyrefmngtapp.TestRsltRef"
				   , method: "reqGetSpcStatList"
				   , inds : "refData="+sInDsName
				   , outds: "ds_acptspclist=acptspclist"
				   , callback: "cbf_SPLPP02800"
				   , async: false
	 });
	 
	 	
	 for(i = 0; i < ds_acptspclist.rowcount; i++){
		if(ds_acptspclist.getColumn(i, "delivedd") != "-" && !utlf_isNull(ds_acptspclist.getColumn(i, "delivedd"))){
			nCntdelive = nCntdelive + 1;
		}
		if(ds_acptspclist.getColumn(i, "cnfmdd") != "-" && !utlf_isNull(ds_acptspclist.getColumn(i, "cnfmdd"))){
			nCntcnfm = nCntcnfm + 1;
		}
		if(ds_acptspclist.getColumn(i, "acptdd") != "-" && !utlf_isNull(ds_acptspclist.getColumn(i, "acptdd"))){
			nCntacpt = nCntacpt + 1;
		}
		
	 }
	 
	 opt_spctran.value = nCntdelive;
	 opt_spcrecv.value = nCntcnfm;
	 opt_spcacpt.value = nCntacpt;

}
//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components	    : 
 * Components ID    : SPLPP02800
 * Event 		    : onload
 * Argument		    : 01.obj	: Object Event has occurred
 *				    : 02.e		: Event Object
 * Description	    : 
 ****************************************************************************************/
function SPLPP02800_onload(obj:Form, e:LoadEventInfo){
	//폼 초기화 함수
	frmf_initForm(obj);
	
	lf_exeInitialize();
}
/****************************************************************************************
 * Components	    : 
 * Components ID    : ipt_refval
 * Event 		    : onkeydown
 * Argument		    : 01.obj	: Object Event has occurred
 *				    : 02.e		: Event Object
 * Description	    : 
 ****************************************************************************************/
function div_search_ipt_refval_onkeydown(obj:Edit, e:KeyEventInfo){
	if(e.keycode == 13){
		lf_getSpcStatList();
		div_search.ipt_refval.setSelect(0, div_search.ipt_refval.getLength());
	}
}
/****************************************************************************************
 * Components	    : 
 * Components ID    : ipt_refval
 * Event 		    : oneditclick
 * Argument		    : 01.obj	: Object Event has occurred
 *				    : 02.e		: Event Object
 * Description	    : 
 ****************************************************************************************/
function div_search_ipt_refval_oneditclick(obj:Edit,  e:EditClickEventInfo){
	div_search.ipt_refval.setSelect(0, div_search.ipt_refval.getLength());
}
/****************************************************************************************
 * Components	    : 
 * Components ID    : btn_exit
 * Event 		    : onclick
 * Argument		    : 01.obj	: Object Event has occurred
 *				    : 02.e		: Event Object
 * Description	    : 
 ****************************************************************************************/
function btn_exit_onclick(obj:Button,  e:ClickEventInfo){
	close("return value");
}
/****************************************************************************************
 * Components	    : 
 * Components ID    : btn_search
 * Event 		    : onclick
 * Argument		    : 01.obj	: Object Event has occurred
 *				    : 02.e		: Event Object
 * Description	    : 
 ****************************************************************************************/
function div_search_btn_search_onclick(obj:Button,  e:ClickEventInfo){
	lf_getSpcStatList();
}
]]></Script>
  </Form>
</FDL>