YNU_JEUS/app_home/himed/xpapps/lis/refprintmngtxp/xp/SMLBP02200_입원환자기간별혈액분출현황.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLBP02200" position="absolute 0 0 1256 805" titletext="입원환자 기간별 혈액분출현황" oninit="model1_oninit" scrollbars="none">
    <Layouts>
      <Layout>
        <Div id="group1" position="absolute 0 0 1195 13" anchor="default" positiontype="position"/>
        <Static id="caption6" text="입원환자 기간별 혈액불출현황" class="tit_1" position="absolute 0 0 221 25"/>
        <Div id="group2" taborder="3" style="align:center top;" class="div_SA" position="absolute 0 25 1256 67" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption2" text="입원기간" class="search_name" position="absolute 8 10 82 30" anchor="default"/>
              <Button id="button1" taborder="1" text="조회" onlbuttonup="button1_onlbuttonup" class="btn1" position="absolute 1195 10 1251 30" anchor="top right"/>
              <Static id="caption5" text="등록번호" class="search_name" position="absolute 322 10 396 30" anchor="default"/>
              <CheckBox id="checkbox1" taborder="4" text="재원환자 Only" truevalue="1" position="absolute 489 10 587 30" anchor="default"/>
              <Edit id="ipt_pid" taborder="5" class="input_button" position="absolute 396 10 486 30" anchor="default" onkeydown="group2_ipt_pid_onkeydown"/>
              <Calendar id="ipt_startdd" taborder="6" dateformat="yyyy-MM-dd" class="input_search" position="absolute 86 10 186 30"/>
              <Static id="caption8" text="~" position="absolute 186 10 202 30" style="align:center;"/>
              <Calendar id="ipt_enddd" taborder="7" dateformat="yyyy-MM-dd" class="input_search" position="absolute 202 10 302 30"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption1" text="환자목록" class="tit_2" position="absolute 0 77 131 97"/>
        <Grid id="grd_getinddpatlist" taborder="4" useinputpanel="false" position="absolute 0 97 500 804" onclick="datagrid1_onclick" anchor="left top" autofittype="col" binddataset="ds_grid_grd_getinddpatlist" oncellclick="grd_getinddpatlist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="84"/>
                <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="퇴원부서"/>
                <Cell col="6" text="혈액은행불출"/>
                <Cell col="7" text="blodbarcd"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow+1"/>
                <Cell col="1" displaytype="text" text="bind:pid"/>
                <Cell col="2" text="bind:hngnm"/>
                <Cell col="3" text="bind:indd" mask="expr:indd==null?'':'####-##-##'"/>
                <Cell col="4" text="bind:dschgbn"/>
                <Cell col="5" text="bind:dept"/>
                <Cell col="6" text="bind:dcnt"/>
                <Cell col="7"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="button2" taborder="5" text="엑셀" onlbuttonup="button2_onlbuttonup" class="btn7" position="absolute 446 74 500 94" anchor="default"/>
        <Static id="caption4" text="혈액불출 현황" class="tit_2" position="absolute 510 77 685 97"/>
        <Grid id="grd_piddelivery" taborder="6" useinputpanel="false" position="absolute 510 97 1256 449" anchor="left top right" autofittype="col" binddataset="ds_grid_grd_getpidbloodlist">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="70"/>
                <Column size="84"/>
                <Column size="42"/>
                <Column size="56"/>
                <Column size="56"/>
                <Column size="101"/>
                <Column size="54"/>
                <Column size="101"/>
                <Column size="66"/>
                <Column size="43"/>
                <Column size="60"/>
              </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="불출수량"/>
                <Cell col="6" text="처방일자"/>
                <Cell col="7" text="혈액순번"/>
                <Cell col="8" text="불출일시"/>
                <Cell col="9" text="상태"/>
                <Cell col="10" text="병실"/>
                <Cell col="11" text="처방부서"/>
              </Band>
              <Band id="body">
                <Cell expr="expr:currow+1"/>
                <Cell col="1" text="bind:blodno"/>
                <Cell col="2" text="bind:blodcomnm"/>
                <Cell col="3" text="bind:btype"/>
                <Cell col="4" style="align:right;" text="bind:reqqty"/>
                <Cell col="5" style="align:right;" text="bind:deliveqty"/>
                <Cell col="6" text="bind:prcpdt"/>
                <Cell col="7" text="bind:prepblodseqno"/>
                <Cell col="8" text="bind:delivedt"/>
                <Cell col="9" text="bind:stat"/>
                <Cell col="10" text="bind:roomcd"/>
                <Cell col="11" text="bind:orddept"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_excel" taborder="7" text="엑셀" onlbuttonup="btn_excel_onlbuttonup" class="btn7" visible="false" position="absolute 1201 74 1255 94" anchor="top right"/>
        <Static id="caption7" text="혈액불출 수량조회" class="tit_2" position="absolute 510 459 677 479" anchor="default"/>
        <Grid id="datagrid5" taborder="8" useinputpanel="false" position="absolute 510 479 1256 804" anchor="left top right" autofittype="col" binddataset="ds_grid_grd_getpiddelivery">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="120"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="73"/>
              </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="반환수량"/>
                <Cell col="6" text="폐기수량"/>
                <Cell col="7" text="병원사유폐기"/>
                <Cell col="8" text="준비수량"/>
              </Band>
              <Band id="body">
                <Cell expr="expr:currow+1"/>
                <Cell col="1" text="bind:blodcomnm"/>
                <Cell col="2" text="bind:reqqty"/>
                <Cell col="3" text="bind:deliveqty"/>
                <Cell col="4" text="bind:cmqty"/>
                <Cell col="5" text="bind:abnqty"/>
                <Cell col="6" text="bind:rtnqty"/>
                <Cell col="7" text="bind:rtnqty2"/>
                <Cell col="8" text="bind:prepqty"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_print" taborder="9" text="출력" onlbuttonup="btn_print_onlbuttonup" class="btn6" position="absolute 1127 1 1183 22" anchor="top right"/>
        <Button id="button5" taborder="10" text="초기화" onclick="button5_onclick" class="btn4" position="absolute 1186 1 1255 21" anchor="top right"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grid_grd_getinddpatlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <column id="pid" type="STRING" size="256"/>
          <column id="hngnm" type="STRING" size="256"/>
          <column id="indd" type="STRING" size="256"/>
          <column id="dschgbn" type="STRING" size="256"/>
          <column id="dept" type="STRING" size="256"/>
          <column id="dcnt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grid_grd_getpidbloodlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <column id="blodno" type="STRING" size="256"/>
          <column id="blodcomnm" type="STRING" size="256"/>
          <column id="btype" type="STRING" size="256"/>
          <column id="reqqty" type="STRING" size="256"/>
          <column id="deliveqty" type="STRING" size="256"/>
          <column id="prcpdt" type="STRING" size="256"/>
          <column id="prepblodseqno" type="STRING" size="256"/>
          <column id="delivedt" type="STRING" size="256"/>
          <column id="stat" type="STRING" size="256"/>
          <column id="roomcd" type="STRING" size="256"/>
          <column id="orddept" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grid_grd_getpiddelivery" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <column id="blodcomnm" type="STRING" size="256"/>
          <column id="reqqty" type="STRING" size="256"/>
          <column id="deliveqty" type="STRING" size="256"/>
          <column id="abnqty" type="STRING" size="256"/>
          <column id="rtnqty" type="STRING" size="256"/>
          <column id="rtnqty2" type="STRING" size="256"/>
          <column id="cmqty" type="STRING" size="256"/>
          <column id="prepqty" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grid_grd_getinddpatlistPrt" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <column id="pid" type="STRING" size="256"/>
          <column id="patnm" type="STRING" size="256"/>
          <column id="indd" type="STRING" size="256"/>
          <column id="enddd" type="STRING" size="256"/>
          <column id="dept" type="STRING" size="256"/>
          <column id="dcnt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-05-01
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-05-01      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";
include "lis_commonxp::LZZ001.xjs";
include "lis_commonxp::LLZ001.xjs";

function lf_setInit() {
	
	group2.ipt_startdd.value = utlf_getCurrentDate();
	group2.ipt_enddd.value   = utlf_getCurrentDate();
	group2.ipt_pid.value = "";
	group2.checkbox1.value = "";
	ds_grid_grd_getinddpatlist.clearData();		// 환자목록 초기화
	ds_grid_grd_getpidbloodlist.clearData();	// 혈액분출 현황 초기화	
	ds_grid_grd_getpiddelivery.clearData();		// 혈액분출 수량조회 초기화
	
	if(!utlf_isNull(appf_getPatientInfo("pid"))) {
		appf_delPatientInfos()(); 	//	환자정보 전체 삭제	
	}
}

 function lf_getInddPatlist() {
		
		if( utlf_isNull(group2.ipt_startdd.value)  || utlf_isNull(group2.ipt_enddd.value) ){
			sysf_messageBox("입원기간을 입력하십시오.","E");
			return;
		}
		
		ds_grid_grd_getinddpatlist.clearData();		// 환자목록 초기화
		ds_grid_grd_getpidbloodlist.clearData();	// 혈액분출 현황 초기화	
		ds_grid_grd_getpiddelivery.clearData();		// 혈액분출 수량조회 초기화
		
		var fromdd = group2.ipt_startdd.value;
		var todd   = group2.ipt_enddd.value;
		var pid     = group2.ipt_pid.value;
		var dschgbn = group2.checkbox1.value;
		var sInDsName = dsf_createDsRow("ds_temp_search"
 	                             , [{col: "fromdd", val:fromdd }
 	                             , {col: "todd", val:todd }
 	                             , {col: "pid", val:pid }
 	                             , {col: "dschgbn", val:dschgbn }
 	                             ]);
		var oParam = {};
			oParam.id          = "TRLBP02201";
			oParam.service     = "refprintmngtapp.BloodBankRefPrintMngt";
			oParam.method      = "reqGetInddPatlist";
			oParam.inds        = "cond="+sInDsName;
			oParam.outds       = "ds_grid_grd_getinddpatlist=getInddPatlist";
			oParam.async       = false;
			oParam.callback    = "cbf_SMLBP02200";

		tranf_submit(oParam);
}

 function lf_getPidBloodlist() {
		
		if(ds_grid_grd_getinddpatlist.rowcount < 1) {
			sysf_messageBox("환자를 선택하십시오.","E");
			return;
		}
		
		var fromdd = group2.ipt_startdd.value;
		var todd   = group2.ipt_enddd.value;
		var pid    = ds_grid_grd_getinddpatlist.getColumn(ds_grid_grd_getinddpatlist.rowposition, "pid");
		var indd   = ds_grid_grd_getinddpatlist.getColumn(ds_grid_grd_getinddpatlist.rowposition, "indd");
		var sInDsName = dsf_createDsRow("ds_temp_search"
 	                             , [{col: "fromdd", val:fromdd }
 	                             , {col: "todd", val:todd }
 	                             , {col: "pid", val:pid }
 	                             , {col: "indd", val:indd }
 	                             ]);
		var oParam = {};
			oParam.id          = "TRLBP02202";
			oParam.service     = "refprintmngtapp.BloodBankRefPrintMngt";
			oParam.method      = "reqGetPidBloodinfo";
			oParam.inds        = "cond="+sInDsName;
			oParam.outds       = "ds_grid_grd_getpidbloodlist=getPidBloodinfo ds_grid_grd_getpiddelivery=getPidDelive";
			oParam.async       = false;
			oParam.callback    = "cbf_SMLBP02200";

		tranf_submit(oParam);    
}

// 출력
function lf_exePrint() {
	
	if(ds_grid_grd_getinddpatlist.rowcount < 1) {
		sysf_messageBox("출력할 내용이 없습니다. ","E");
		return;
	}
	ds_grid_grd_getinddpatlistPrt.clearData();
	var addRw = ds_grid_grd_getinddpatlistPrt.addRow();
	ds_grid_grd_getinddpatlistPrt.setColumn(addRw, "pid", ds_grid_grd_getinddpatlist.getColumn(ds_grid_grd_getinddpatlist.rowposition, "pid"));
	ds_grid_grd_getinddpatlistPrt.setColumn(addRw, "patnm", ds_grid_grd_getinddpatlist.getColumn(ds_grid_grd_getinddpatlist.rowposition, "hngnm"));
	ds_grid_grd_getinddpatlistPrt.setColumn(addRw, "indd", ds_grid_grd_getinddpatlist.getColumn(ds_grid_grd_getinddpatlist.rowposition, "indd"));
	ds_grid_grd_getinddpatlistPrt.setColumn(addRw, "enddd", ds_grid_grd_getinddpatlist.getColumn(ds_grid_grd_getinddpatlist.rowposition, "dschgbn"));
	ds_grid_grd_getinddpatlistPrt.setColumn(addRw, "dept", ds_grid_grd_getinddpatlist.getColumn(ds_grid_grd_getinddpatlist.rowposition, "dept"));
	ds_grid_grd_getinddpatlistPrt.setColumn(addRw, "dcnt", ds_grid_grd_getinddpatlist.getColumn(ds_grid_grd_getinddpatlist.rowposition, "dcnt"));
	var objDOM = rptf_createDOM();           // DOM 객체 설정
	rptf_setNodeListToDOM(objDOM, "/root/hidden/report/patinfo", ds_grid_grd_getinddpatlistPrt);
	rptf_setNodeListToDOM(objDOM, "/root/hidden/report/getpidbloodlist", ds_grid_grd_getpidbloodlist);
	rptf_setNodeListToDOM(objDOM, "/root/hidden/report/getpiddelivery", ds_grid_grd_getpiddelivery);
	
	var objParam = new Object();
	objParam.xml_data_XML1 = objDOM.documentElement.source;     // 최상의노드 XML 스트링 추출
 
	var option = "open=1;save=1;directprint=0;print=1;zoom=0";
	rptf_exeReportPreview30(["RPLBP02201"],[objParam], option);
}

// callback 함수
function cbf_SMLBP02200(strSvcID, nErrorCode, strErrorMag) {
	
	if(nErrorCode != 0) {
		sysf_messageBox("ID: "+ strSvcID + "  Error: " + strErrorMag, "E009", "");
	}else{
		switch(strSvcID) {
			case "TRLBP02201":
					
				break;
			case "TRLBP02202":
					
				break;
			default:
				break;
		}
	}
}

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

	lf_setInit();
}

function button1_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	lf_getInddPatlist();		
}

function group2_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13) {
	
		group2.ipt_pid.value = frmf_setInputNodeCurPid_Change(group2.ipt_pid.value);  //등록번호 9자리로 변경
		var curVal = group2.ipt_pid.value;
		group2.ipt_pid.value = curVal.toUpperCase();
		group2.ipt_pid.setSelect();
		
		lf_getInddPatlist();
	}
}

function grd_getinddpatlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	// 환자목록 선택해서 혈액분출 현황 조회 
	if(e.row >=0){
		lf_getPidBloodlist();
	}
}

function button2_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	grdf_exportExcel(grd_getinddpatlist, lf_lisGetTitle(this), "sheet1", false);				
}

function button5_onclick(obj:Button, e:ClickEventInfo)
{
	lf_setInit();
}

function btn_print_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	lf_exePrint();
}

function btn_excel_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	grdf_exportExcel(grd_piddelivery, lf_lisGetTitle(this), false);	
}

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