YNU_JEUS/app_home/himed/xpapps/lis/plgylendmngtxp/xp/SMLPD00600_대출반납현황.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLPD00600" position="absolute 0 0 1256 805" titletext="대출반납현황" onload="SMLPD00600_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="대출반납현황 환자조회" class="tit_1" position="absolute 0 0 158 25"/>
        <Static id="caption4" text="대출반납목록" class="tit_2" position="absolute 0 76 104 96"/>
        <Div id="group2" anchor="left top right" taborder="5" style="align:center top;" class="div_SA" position="absolute 0 25 1256 67">
          <Layouts>
            <Layout>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1108 7 1108 29"/>
              <Static id="caption2" text="대출일자" class="search_name" position="absolute 15 10 83 30"/>
              <Static id="caption5" text="~" position="absolute 190 10 206 30" style="align:center;"/>
              <Button id="btn_sea" taborder="10" text="조회" class="btn1" position="absolute 1190 10 1246 30" anchor="top right" onclick="group2_btn_sea_onclick"/>
              <Calendar id="edt_lendfromdd" taborder="11" dateformat="yyyy-MM-dd" class="input_s_essential" position="absolute 90 10 190 30" mask="####-##-##"/>
              <Calendar id="edt_lendtodd" taborder="12" dateformat="yyyy-MM-dd" class="input_s_essential" position="absolute 206 10 306 30" mask="####-##-##"/>
              <Static id="caption1" text="등록번호" class="search_name" position="absolute 339 10 407 30"/>
              <Edit id="ipt_pid" taborder="13" position="absolute 414 10 514 30" onkeydown="group2_ipt_pid_onkeydown"/>
              <Combo id="cmb_lendflagcd" taborder="14" position="absolute 630 10 715 30" innerdataset="@ds_cond_lendflagcd" codecolumn="value" datacolumn="label" index="0" value="0" text="대출" visible="false"/>
              <Static id="caption3" text="대출구분" class="search_name" position="absolute 555 10 623 30" visible="false"/>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_lendlist" class="CSS::lis.css" taborder="7" binddataset="ds_grid_grd_lendrtnlist" useinputpanel="false" position="absolute 0 97 926 805" anchor="all" onbuttondown="grd_plgyprcplist_onbuttondown" oncellclick="grd_lendlist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="26"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="40"/>
                <Column size="80"/>
                <Column size="200"/>
                <Column size="80"/>
                <Column size="45"/>
                <Column size="45"/>
                <Column size="80"/>
                <Column size="80"/>
              </Columns>
              <Rows>
                <Row size="20" 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" colspan="2" text="대출구분" taborder="undefined"/>
                <Cell col="6" text="대출사유"/>
                <Cell col="7" text="신청자"/>
                <Cell col="8" text="block"/>
                <Cell col="9" text="slide"/>
                <Cell col="10" text="반납일자"/>
                <Cell col="11" text="반납"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" style="align:center;" text="bind:lenddd" mask="####-##-##"/>
                <Cell col="2" text="bind:pid"/>
                <Cell col="3" text="bind:hngnm"/>
                <Cell col="4" displaytype="combo" edittype="combo" style="align:center;" text="bind:lendflagcd"/>
                <Cell col="5" displaytype="combo" edittype="combo" style="align:center;" text="bind:lendresnflagcd"/>
                <Cell col="6" displaytype="combo" edittype="combo" text="bind:lendresncd"/>
                <Cell col="7" style="align:center;" text="bind:appnm"/>
                <Cell col="8" text="bind:blockcnt"/>
                <Cell col="9" text="bind:slidecnt"/>
                <Cell col="10" style="align:center;" text="bind:rtndd"/>
                <Cell col="11" text="bind:rtnflagnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_lendrtnlist" class="CSS::lis.css" taborder="11" binddataset="ds_grid_grd_lendrtn_blockslide" useinputpanel="false" position="absolute 931 97 1256 805" onclick="grd_lendrtnlist_onclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25"/>
                <Column size="80"/>
                <Column size="60"/>
                <Column size="70"/>
                <Column size="40"/>
                <Column size="40"/>
              </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="B.No"/>
                <Cell col="5" text="S.No"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" displaytype="normal" expr="currow+1"/>
                <Cell col="1" displaytype="normal" edittype="none" text="bind:dispptno"/>
                <Cell col="2" text="bind:prtnblocnm"/>
                <Cell col="3" displaytype="normal" edittype="none" text="bind:cstecnts"/>
                <Cell col="4" displaytype="normal" edittype="none" text="bind:csteno"/>
                <Cell col="5" displaytype="normal" edittype="none" text="bind:slidno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption00" text="대출 블록/슬라이드 " class="tit_2" position="absolute 932 78 1076 98"/>
        <Button id="button13" taborder="12" text="EXCEL저장" class="btn7" position="absolute 819 74 920 94" anchor="top right" onclick="button13_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_cond_lendflagcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">대출</Col>
            <Col id="value">0</Col>
          </Row>
          <Row>
            <Col id="label">반납</Col>
            <Col id="value">1</Col>
          </Row>
          <Row>
            <Col id="label">전체</Col>
            <Col id="value">2</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_resncdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="choi"/>
          <Column id="instcd"/>
          <Column id="baseflagcd"/>
          <Column id="resncd"/>
          <Column id="resncnts"/>
          <Column id="resncode"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grid_grd_lendrtnlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <column id="choi" type="STRING" size="256"/>
          <column id="instcd" type="STRING" size="256"/>
          <column id="pid" type="STRING" size="256"/>
          <column id="hngnm" type="STRING" size="256"/>
          <column id="lendflagcd" type="STRING" size="256"/>
          <column id="lenddd" type="STRING" size="256"/>
          <column id="lendno" type="STRING" size="256"/>
          <column id="lendtm" type="STRING" size="256"/>
          <column id="appnm" type="STRING" size="256"/>
          <column id="rrgstno" type="STRING" size="256"/>
          <column id="rtntm" type="STRING" size="256"/>
          <column id="lenddeptcd" type="STRING" size="256"/>
          <column id="lendid" type="STRING" size="256"/>
          <column id="lendnm" type="STRING" size="256"/>
          <column id="lendnm" type="STRING" size="256"/>
          <column id="lendresnflagcd" type="STRING" size="256"/>
          <column id="lendresncd" type="STRING" size="256"/>
          <column id="patrela" type="STRING" size="256"/>
          <column id="rtnschedd" type="STRING" size="256"/>
          <column id="rtndd" type="STRING" size="256"/>
          <column id="rtntm" type="STRING" size="256"/>
          <column id="rtnflagcd" type="STRING" size="256"/>
          <column id="cntctelno" type="STRING" size="256"/>
          <column id="rtnrrgstno" type="STRING" size="256"/>
          <column id="rtncntctelno" type="STRING" size="256"/>
          <column id="rtnpatrela" type="STRING" size="256"/>
          <column id="lendrtncmt" type="STRING" size="256"/>
          <column id="lendchrgid" type="STRING" size="256"/>
          <column id="lendchrgnm" type="STRING" size="256"/>
          <column id="rtnchrgid" type="STRING" size="256"/>
          <column id="rtnchrgnm" type="STRING" size="256"/>
          <column id="lendplce" type="STRING" size="256"/>
          <Column id="blockcnt" type="STRING"/>
          <Column id="slidecnt" type="STRING"/>
          <Column id="rtnflagnm" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grid_grd_lendrtn_blockslide" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="choi" type="STRING"/>
          <Column id="instcd" type="STRING"/>
          <Column id="ptno" type="STRING"/>
          <Column id="dispptno" type="STRING"/>
          <Column id="csteno" type="STRING"/>
          <Column id="slidno" type="STRING"/>
          <Column id="cstecnts" type="STRING"/>
          <Column id="spcacptseqno" type="STRING"/>
          <Column id="prtnblocnm" type="STRING"/>
          <Column id="sortseq" type="STRING"/>
          <Column id="sqlflag" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="lendflagcd" type="STRING"/>
          <Column id="rtnflagcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_data_rtnflagcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">미반납</Col>
            <Col id="value">0</Col>
          </Row>
          <Row>
            <Col id="label">반납</Col>
            <Col id="value">1</Col>
          </Row>
        </Rows>
      </Dataset>
      <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>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	HIT
 * Job Name 		:	
 * File Name 		:	SMLPD00600_대출반납현황.xfdl
 * Creator 	    :	
 * Make Date 		:	2014-03-11
 *                                                                                        
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	Modify Description                                     
 *--------------------------------------------------------------------------------------- 
 * 2014-03-11        HIT       Converting Program(TF->XP)
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";
include "lis_commonxp::LZZ001.xjs";
include "lis_commonxp::LLZ001.xjs";
include "lis_commonxp::LPZ001.xjs";
include "com_commodulexp::SSZFM00401.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() {
	
	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_SMLPD00600"
				   , async: false
	});	

    //------------------------------
	//대출사유 목록 조회
	sInDsName = dsf_createDsRow("ds_temp_search3"
						,  [{col: "instcd", val:sysf_getUserInfo("dutplceinstcd")}
						,   {col: "baseflagcd", val: "'L1','L3', 'L4'"}
					]);

    tranf_submit({
                     id: "TRLPD00102"
                   , service: "plgycomnusemngtapp.BaseInfoCode"
                   , method: "reqGetReasonCodeList"
                   , inds : "refData="+sInDsName
                   , outds: "ds_resncdlist=refrslt"
                   , async: false
    });	

    fdsf_createDsFilter("ds_lendresncd"    , "ds_resncdlist", "resncd != 'ZZZZ' && baseflagcd == 'L1'");
    fdsf_createDsFilter("ds_lendresnflagcd", "ds_resncdlist", "resncd != 'ZZZZ' && baseflagcd == 'L3'");
    fdsf_createDsFilter("ds_lendflagcd"    , "ds_resncdlist", "resncd != 'ZZZZ' && baseflagcd == 'L4'");

    grd_lendlist.setCellProperty("body", grd_lendlist.getBindCellIndex("body" ,"lendflagcd"), "combodataset", "ds_lendflagcd");
	grd_lendlist.setCellProperty("body", grd_lendlist.getBindCellIndex("body" ,"lendflagcd"), "combocodecol", "resncd");
	grd_lendlist.setCellProperty("body", grd_lendlist.getBindCellIndex("body" ,"lendflagcd"), "combodatacol", "resncnts");
	grd_lendlist.setCellProperty("body", grd_lendlist.getBindCellIndex("body" ,"lendresnflagcd"), "combodataset", "ds_lendresnflagcd");
	grd_lendlist.setCellProperty("body", grd_lendlist.getBindCellIndex("body" ,"lendresnflagcd"), "combocodecol", "resncd");
	grd_lendlist.setCellProperty("body", grd_lendlist.getBindCellIndex("body" ,"lendresnflagcd"), "combodatacol", "resncnts");
	grd_lendlist.setCellProperty("body", grd_lendlist.getBindCellIndex("body" ,"lendresncd"), "combodataset", "ds_lendresncd");
	grd_lendlist.setCellProperty("body", grd_lendlist.getBindCellIndex("body" ,"lendresncd"), "combocodecol", "resncd");
	grd_lendlist.setCellProperty("body", grd_lendlist.getBindCellIndex("body" ,"lendresncd"), "combodatacol", "resncnts");
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : btn_search
 * Event 		    : onlbuttonup
 * Argument		: 01.btnflag : 
 *				: 02. : 
 * Description	: 감사판독 소요시간 조회 처리 함수 
 ****************************************************************************************/
 function lf_getLendRtnList() {
	
	if(!utlf_isNull(group2.ipt_pid.value)) {
        group2.ipt_pid.value = frmf_setInputNodeCurPid_Change(group2.ipt_pid.value);
	}

	var sFromDd = group2.edt_lendfromdd.value;
	var sToDd   = group2.edt_lendtodd.value;
	var sPid    = group2.ipt_pid.value;

	var sInDsName = dsf_createDsRow("ds_temp_search"
								 , [{col: "instcd"      , val: sysf_getUserInfo("dutplceinstcd")}
								 ,  {col: "lendfromdd"  , val: sFromDd }
								 ,  {col: "lendtodd"    , val: sToDd }
								 ,  {col: "pid"         , val: sPid }
								 ]);
	// 서브밋호출
	tranf_submit({
					 id: "TRLPD00601"
				   , service: "plgylendmngtapp.SlidLendRtn"
				   , method: "reqGetLendRtnInfoList"
				   , inds : "refData="+sInDsName
				   , outds: "ds_grid_grd_lendrtnlist=rsltlist"
				   , callback: "cbf_SMLPD00600"
				   , async: false
	});
}

// 그리드 자료 Excel로 저장 처리 function
function lf_exeSaveToExcel() {
    if(ds_grid_grd_lendrtnlist.rowcount > 0){
        grdf_exportExcel(grd_lendlist, lf_lisGetTitle(this), "see", false, "", "none", false);
	} else {
		sysf_messageBox("저장할 내용이","I004","");
	}
}

// callback 함수
function cbf_SMLPD00600(strSvcID, nErrorCode, strErrorMag) {
	if(nErrorCode != 0) {
		sysf_messageBox("ID: "+ strSvcID + "  Error: " + strErrorMag, "E009", "");
	}else{
		switch(strSvcID){
			case "TRLPZ00102":
				group2.edt_lendfromdd.value = ds_data_sysdtinfo.getColumn(0, "sysdd");
				group2.edt_lendtodd.value = ds_data_sysdtinfo.getColumn(0, "sysdd");
				group2.cmb_lendflagcd.value = "2";	// 전체
				group2.ipt_pid.value = "";		// 등록번호
				break;
			case "TRLPD00601":
				break;
			default:
				break;
		}
	}
}

/**********************************************************************************
 * Name			: lf_getPtNoList
 * Description	: 해당 환자의 대출에 대한 상세 블록/슬라이드 정보를 조회한다.
 * Argument		: 
 * return Type	: Null
 * Author		: Null
***********************************************************************************/
function lf_getLendRtnBlockSlideList(pRowNo) {

	var sInDsName = dsf_createDsRow("ds_temp_search2"
						,  [{col: "instcd"      , val: sysf_getUserInfo("dutplceinstcd")}
						,   {col: "lenddd"      , val: ds_grid_grd_lendrtnlist.getColumn(pRowNo, "lenddd")}
						,   {col: "lendno"      , val: ds_grid_grd_lendrtnlist.getColumn(pRowNo, "lendno")}
					]);

		tranf_submit({
						 id: "TRLPD00606"
					   , service: "plgylendmngtapp.SlidLendRtn"
					   , method: "reqGetLendDetlInfo"
					   , inds : "refData="+sInDsName
					   , outds: "ds_grid_grd_lendrtn_blockslide=rsltlist"
					   , callback:"cbf_SMLPD00600"
					   , async: false
		});
}
//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components	    : 
 * Components ID  : model1
 * Event 		    : oninit
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 
 ****************************************************************************************/
function SMLPD00600_onload(obj:Form, e:LoadEventInfo)
{
    
	//폼 초기화 함수
	frmf_initForm(obj);
	lf_exeInitialize();
}


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

/****************************************************************************************
 * Components	: Grid
 * Components ID: grd_lendlist
 * Event 		: oncellclick
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 대출목록클릭
 ****************************************************************************************/
function grd_lendlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	lf_getLendRtnBlockSlideList (e.row);
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : btn_sea
 * Event 		    : onlbuttondown
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 조회 버튼
 ****************************************************************************************/
function group2_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	lf_getLendRtnList();
}

/****************************************************************************************
 * Components	    : 
 * Components ID  : button13
 * Event 		    : onlbuttondown
 * Argument		: 01.obj	: Object Event has occurred
 *				: 02.e		: Event Object
 * Description	: 엑셀 버튼
 ****************************************************************************************/
function button13_onclick(obj:Button,  e:ClickEventInfo)
{
	lf_exeSaveToExcel();
}
]]></Script>
  </Form>
</FDL>