YNU_JEUS/app_home/himed/xpapps/lis/plgyrefmngtxp/xp/SMLPP01500_관심증례조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLPP01500" position="absolute 0 0 1256 805" titletext="관심증례 환자조회" onload="SMLPP01500_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="관심증례 환자조회" class="tit_1" position="absolute 0 3 163 28"/>
        <Button id="btn_excel" taborder="1" text="EXCEL저장" onlbuttonup="btn_excel_onlbuttonup" class="btn7" position="absolute 1155 74 1256 94" anchor="top right"/>
        <Div id="group2" taborder="2" style="align:center top;" class="div_SA" position="absolute 0 30 1256 72" anchor="left top right">
          <Layouts>
            <Layout>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1108 7 1108 29" anchor="default"/>
              <Static id="caption2" text="접수일자" class="search_name" position="absolute 8 10 76 30" anchor="default"/>
              <Static id="caption5" text="~" position="absolute 184 10 200 30" anchor="default" style="align:center;"/>
              <Button id="btn_sea" taborder="4" text="조회" onlbuttonup="btn_sea_onlbuttonup" class="btn1" position="absolute 1190 10 1246 30" anchor="top right" onclick="group2_btn_sea_onclick"/>
              <Calendar id="cal_fromdd" taborder="5" class="input_s_essential" position="absolute 84 10 184 30" mask="####-##-##" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
              <Calendar id="cal_todd" taborder="6" class="input_s_essential" position="absolute 200 10 300 30" mask="####-##-##" anchor="default" dateformat="yyyy-MM-dd" onkeyup="group2_cal_todd_onkeyup"/>
              <Static id="caption1" text="등록번호" class="search_name" position="absolute 980 10 1048 30" anchor="default"/>
              <Edit id="edt_pid" taborder="7" position="absolute 1056 10 1156 30" anchor="default" onkeydown="group2_edt_pid_onkeydown" inputtype="number" maxlength="9"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption4" text="관심증례 환자목록" class="tit_2" position="absolute 1 76 165 93"/>
        <Grid id="grd_refinfolist" class="CSS::lis.css" taborder="3" useinputpanel="false" position="absolute 0 96 1256 805" anchor="all" binddataset="ds_grid_grd_refinfolist" oncelldblclick="grd_refinfolist_oncelldblclick" autosizingtype="none" autosizebandtype="body" cellsizingtype="none" autofittype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="30"/>
                <Column size="100"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="150"/>
                <Column size="500"/>
                <Column size="172"/>
              </Columns>
              <Rows>
                <Row size="28" band="head"/>
                <Row size="25"/>
              </Rows>
              <Band id="head">
                <Cell text="기관코드"/>
                <Cell col="1" text="ptno"/>
                <Cell col="2" text="No."/>
                <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="메모"/>
              </Band>
              <Band id="body">
                <Cell/>
                <Cell col="1"/>
                <Cell col="2" expr="expr:currow+1"/>
                <Cell col="3" class="text_center" text="bind:dispptno"/>
                <Cell col="4" displaytype="text" style="align:center middle;" class="text_center" text="bind:pid"/>
                <Cell col="5" class="text_center" text="bind:patnm"/>
                <Cell col="6" class="text_center" text="bind:sexage"/>
                <Cell col="7" class="text_center" text="bind:extrpartcnts"/>
                <Cell col="8" style="align:left middle;" class="text_left" text="bind:diagcnts"/>
                <Cell col="9" text="bind:memocnts"/>
                <Cell col="10"/>
                <Cell col="11"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </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_grid_grd_refinfolist" 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="sexage" type="STRING" size="256"/>
          <column id="extrpartcnts" type="STRING" size="256"/>
          <column id="diagcnts" type="STRING" size="256"/>
          <column id="memocnts" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	KU2.0
 * Job Name 		:	
 * File Name 		:	SMLPP01500_관심증례조회.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::LLZ001.xjs";
include "lis_commonxp::LZZ001.xjs";
include "lis_commonxp::LPZ001.xjs";


var instcd = "";

//=======================================================================================
// Function 
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components	    : 
 * Components ID  : model1
 * Event 		    : lf_setInit
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 초기화 함수
 ****************************************************************************************/
function lf_exeInitialize() {
	
	ds_grid_grd_refinfolist.clearData();
	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_SMLPP01500"
				   , async: false
	});	
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : btn_search
 * Event 		    : onlbuttonup
 * Argument		: 01.btnflag : 
 *				: 02. : 
 * Description	: 감사판독 소요시간 조회 처리 함수 
 ****************************************************************************************/
 function lf_getRefInfoList() {
	
	var reffromdd = group2.cal_fromdd.value;
	var reftodd = group2.cal_todd.value;
	var pid = group2.edt_pid.value;
	var workflagcd = "'1001', '1002', '1003', '1009'";
	var sInDsName = dsf_createDsRow("ds_temp_search"
								 , [{col: "instcd", val:instcd }
								 ,  {col: "reffromdd", val:reffromdd }
								 ,  {col: "reftodd", val:reftodd }
								 ,  {col: "pid", val:pid }
								 ,  {col: "workflagcd", val:workflagcd }
								 ]);
	// 서브밋호출
	tranf_submit({
					 id: "TRLPP01501"
				   , service: "plgyrefmngtapp.AcptSpecRef"
				   , method: "reqGetConcCaseList"
				   , inds : "refData="+sInDsName
				   , outds: "ds_grid_grd_refinfolist=reflist"
				   , callback: "cbf_SMLPP01500"
				   , async: false
	});
}

// Excel 저장처리 함수
function lf_exeSaveToExcel() {
    if(ds_grid_grd_refinfolist.rowcount>0){
        grdf_exportExcel(grd_refinfolist, lf_lisGetTitle(this), "see", false, "", "none", false);
	} else {
		sysf_messageBox("저장할 내용이","I004","");
	}
}

// 등록번호  Enter키 처리 Function
function lf_exeRefValKeyPress(){
    group2.edt_pid.value = frmf_setInputNodeCurPid_Change(group2.edt_pid.value);
	lf_getRefInfoList();
}

// callback 함수
function cbf_SMLPP01500(strSvcID, nErrorCode, strErrorMag) {
	
	if(nErrorCode != 0) {
		sysf_messageBox("ID: "+ strSvcID + "  Error: " + strErrorMag, "E009", "");
	}else{
		switch(strSvcID){
			
			case "TRLPZ00102":					
					group2.cal_fromdd.value = ds_data_sysdtinfo.getColumn(0, "sysdd");
					group2.cal_todd.value = ds_data_sysdtinfo.getColumn(0, "sysdd");
					grdf_setGridSort(grd_refinfolist);
				break;
			case "TRLPP01501":
					
				break;
			
			default:
				break;
		}
	}
}

//=======================================================================================
// Event
//---------------------------------------------------------------------------------------

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

/****************************************************************************************
 * 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_getRefInfoList();				
}

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

/****************************************************************************************
 * Components	    : 
 * Components ID  : grd_refinfolist
 * Event 		    : onkeydown
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: Grid double click 이벤트
 ****************************************************************************************/
function grd_refinfolist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(ds_grid_grd_refinfolist.rowcount < 0)
	{
		return;
	}
	var sDispPtNo = ds_grid_grd_refinfolist.getColumn(ds_grid_grd_refinfolist.rowposition, "dispptno");
	trace("sDispPtNo="+sDispPtNo);
    frmf_setParameter("opener_parameter_id", sDispPtNo);
    
	frmf_modal("SMLPR00100", "SMLPR00100", null, null, null, null, null, null, null, null, null, null, "M");
	//frmf_modal("SMLPR02700", "SMLPR02700", null, null, null, null, null, null, null, null, null, null, "M");
}

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

	lf_exeInitialize();
}

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