YNU_JEUS/app_home/himed/xpapps/lis/refprintmngtxp/xp/SMLBP00700_미수령혈액조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="workform" position="absolute 0 0 1256 805" titletext="Untitle" oninit="model1_oninit">
    <Layouts>
      <Layout>
        <Static id="caption6" text="미수령 혈액 조회" class="tit_1" position="absolute 0 0 189 25"/>
        <Div id="group2" taborder="3" style="align:center top;" position="absolute 0 25 1256 67" anchor="left top right" class="div_SA">
          <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 1122 9 1178 29" anchor="top right"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1108 7 1108 29" anchor="default"/>
              <Static id="caption5" text="혈액종류" class="search_name" position="absolute 322 10 396 30" anchor="default"/>
              <Combo id="cmb_bldkind" taborder="4" class="combo_s_essential" position="absolute 396 10 611 30" anchor="default" innerdataset="@ds_init_lb0605" codecolumn="cd" datacolumn="nm"/>
              <Button id="button5" taborder="6" text="초기화" onclick="button5_onclick" class="btn4" position="absolute 1181 9 1250 29" anchor="right bottom"/>
              <Calendar id="ipt_refsdd" taborder="7" 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_refedd" taborder="8" 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_blod" taborder="4" useinputpanel="false" position="absolute 0 97 1256 805" style="align:center middle;" anchor="all" autofittype="col" binddataset="ds_grid_grd_blod">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="60"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="110"/>
                <Column size="30"/>
                <Column size="119"/>
                <Column size="90"/>
                <Column size="110"/>
                <Column size="110"/>
                <Column size="90"/>
              </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="IR"/>
                <Cell col="9" text="실시일시"/>
                <Cell col="10" text="유효일자"/>
                <Cell col="11" text="유효일시"/>
                <Cell col="12" text="검사일자"/>
                <Cell col="13" text="처방일자"/>
              </Band>
              <Band id="body">
                <Cell expr="expr:currow+1"/>
                <Cell col="1" style="background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:pid"/>
                <Cell col="2" style="align:center middle;background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:patnm"/>
                <Cell col="3" style="background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:roomcd"/>
                <Cell col="4" style="background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:btype"/>
                <Cell col="5" style="background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:blodcomnm"/>
                <Cell col="6" style="align:center middle;background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:prepblodseqno"/>
                <Cell col="7" style="background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:blodno"/>
                <Cell col="8" style="background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:iryn"/>
                <Cell col="9" style="align:center middle;background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:execdt" mask="expr:execdt==null?'':'####-##-## ##:##'"/>
                <Cell col="10" style="background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:validd" mask="expr:validd==null?'':'####-##-##'"/>
                <Cell col="11" style="align:center middle;background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:validt" mask="expr:validt==null?'':'####-##-## ##:##'"/>
                <Cell col="12" style="align:center middle;background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:transexcdd" mask="expr:transexcdd==null?'':'####-##-## ##:##'"/>
                <Cell col="13" style="align:center middle;background:EXPR(lf_setBgColor(validtyn));background2:EXPR(lf_setBgColor(validtyn));" text="bind:prcpdd" mask="expr:prcpdd==null?'':'####-##-##'"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_lb0605" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256"/>
          <Column id="nm" type="STRING" size="256"/>
          <Column id="etc01" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grid_grd_blod" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" onrowposchanged="ds_grid_grd_rslt_onrowposchanged">
        <ColumnInfo>
          <column id="prcpdd" type="STRING" size="256"/>
          <column id="pid" type="STRING" size="256"/>
          <column id="patnm" type="STRING" size="256"/>
          <column id="roomcd" type="STRING" size="256"/>
          <column id="blodcomnm" type="STRING" size="256"/>
          <column id="blodno" type="STRING" size="256"/>
          <column id="iryn" type="STRING" size="256"/>
          <column id="execdt" type="STRING" size="256"/>
          <column id="validd" type="STRING" size="256"/>
          <column id="validt" type="STRING" size="256"/>
          <column id="transexcdd" type="STRING" size="256"/>
          <column id="prepblodseqno" type="STRING" size="256"/>
          <column id="btype" type="STRING" size="256"/>
          <column id="validtyn" 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::LLZ001.xjs";

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

	lf_setInit();	
}

function lf_setInit() {
	
	var toDay = utlf_getCurrentDate();
	var mDate = utlf_addDate(toDay, -5);
	group2.ipt_refsdd.value = mDate;
	group2.ipt_refedd.value = toDay;
	
	lf_getDbDeptcd("0000|0605|","cbf_SMLBP00700");
	
	ds_grid_grd_blod.clearData();
}

 function lf_exeblodlist() {
	
	var toDay = utlf_getCurrentDate();
	var mDate = utlf_addDate(toDay, -5);
	var refsdd = group2.ipt_refsdd.value;
	var refedd = group2.ipt_refedd.value;
	var bldkind = group2.cmb_bldkind.value;
	var sInDsName = dsf_createDsRow("ds_temp_search"
 	                             , [{col: "refsdd", val:refsdd }
 	                             ,  {col: "refedd", val:refedd }
 	                             ,  {col: "bldkind", val:bldkind }
 	                             ]);
	var oParam = {};
		oParam.id          = "TRLBP00701";
		oParam.service     = "refprintmngtapp.BloodBankRefPrintMngt";
		oParam.method      = "reqGetUnAcptList";
		oParam.inds        = "cond="+sInDsName;
		oParam.outds       = "ds_grid_grd_blod=getUnAcptList";
		oParam.async       = false;
		oParam.callback    = "cbf_SMLBP00700";

	tranf_submit(oParam);
}

function lf_setBgColor(validtyn) {

	var rtnColor = "transparent";
	if(validtyn=="A"){
		rtnColor = "#f7a08b";
	}else if(validtyn=="B"){
		rtnColor = "#ffe79d";
	}
	return rtnColor;
}
 
function cbf_SMLBP00700(strSvcID, nErrorCode, strErrorMag) {
	
	if(nErrorCode != 0) {
		sysf_messageBox("ID: "+ strSvcID + "  Error: " + strErrorMag, "E009", "");
	}else{
		switch(strSvcID) {
			case "TRLZZ00101":
					group2.cmb_bldkind.index = 0;
				break;
			case "TRLBP00701":
					
				break;	
			default:
				break;
		}
	}
}

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

function button5_onclick(obj:Button, e:ClickEventInfo)
{
	lf_setInit();
}
]]></Script>
  </Form>
</FDL>