YNU_JEUS/app_home/himed/xpapps/lis/refprintmngtxp/xp/SMLBP00520_혈소판수혈내역조회.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="환자별수혈내역조회" oninit="model1_oninit" onload="workform_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="혈소판준비내역조회" class="tit_1" position="absolute 0 0 158 25"/>
        <Button id="btn_excel" taborder="11" text="엑셀" onlbuttonup="btn_excel_onlbuttonup" class="btn7" position="absolute 1204 99 1254 119" anchor="top right"/>
        <Grid id="grd_tnslist" class="datagrid2" taborder="12" useinputpanel="false" position="absolute 0 122 1256 805" anchor="all" treeinitstatus="collapse,null" binddataset="ds_grid_grd_tnslist" treeuseexpandkey="false" treeuseimage="false" treeuseline="false" treeusecheckbox="false" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="53"/>
                <Column size="69"/>
                <Column size="79"/>
                <Column size="131"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="228"/>
                <Column size="40"/>
                <Column size="106"/>
                <Column size="102"/>
                <Column size="38"/>
                <Column size="46"/>
                <Column size="73"/>
                <Column size="58"/>
                <Column size="51"/>
                <Column size="51"/>
                <Column size="76"/>
              </Columns>
              <Rows>
                <Row size="35" band="head"/>
                <Row size="32"/>
              </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="일수"/>
                <Cell col="12" text="PLT"/>
                <Cell col="13" text="진료과"/>
                <Cell col="14" text="담담교수"/>
                <Cell col="15" text="담담의"/>
                <Cell col="16" text="N-Zone"/>
                <Cell col="17" text="수술예정일"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow+1"/>
                <Cell col="1" text="bind:abo"/>
                <Cell col="2" displaytype="text" edittype="none" style="align:center;" text="bind:pid"/>
                <Cell col="3" text="bind:patnm"/>
                <Cell col="4" style="align:left;" text="bind:wardnm"/>
                <Cell col="5" text="bind:prcphopedd" mask="expr:prcphopedd==null?'':'####-##-##'"/>
                <Cell col="6" text="bind:tnsreqacptflag"/>
                <Cell col="7" style="align:left;" text="bind:tclsscrnnm"/>
                <Cell col="8" text="bind:bno"/>
                <Cell col="9" displaytype="date" style="align:center middle;" text="bind:tnsreqacptdt" mask="yyyy-MM-dd HH:mm" calendardisplaynulltype="nulltext"/>
                <Cell col="10" displaytype="date" edittype="none" style="align:center middle;" text="bind:validt" mask="yyyy-MM-dd HH:mm" calendardisplaynulltype="nulltext"/>
                <Cell col="11" style="align:center middle;" text="bind:day"/>
                <Cell col="12" text="bind:plt"/>
                <Cell col="13" style="align:center middle;" text="bind:orddeptnm"/>
                <Cell col="14" text="bind:orddrnm"/>
                <Cell col="15" style="align:center middle;" text="bind:junmun"/>
                <Cell col="16" text="bind:pdano"/>
                <Cell col="17" text="bind:OPSCHEDD"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption1" text="수혈의뢰현황 목록" class="tit_2" position="absolute 0 102 145 122"/>
        <Div id="Div00" anchor="left top right" taborder="13" text="Div00" scrollbars="none" position="absolute 0 25 1256 92" class="div_SA">
          <Layouts>
            <Layout>
              <Button id="button1" taborder="60" text="조회" class="btn1" position="absolute 514 22 578 43" anchor="top right" onlbuttonup="btn_ref_onlbuttonup" onclick="Div00_button1_onclick"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1118 21 1118 70" anchor="default"/>
              <Static id="caption4" text="등록번호" class="search_name" position="absolute 308 23 382 43" style="align:left;" anchor="default"/>
              <Edit id="ipt_pid" taborder="62" class="input_s_essential" position="absolute 371 23 471 43" anchor="default" onkeydown="Div00_ipt_pid_onkeydown"/>
              <Static id="caption11" text="조회구분" class="search_name" position="absolute 23 24 101 44" style="align:left;" anchor="default" visible="true"/>
              <Calendar id="ipt_fromdd" taborder="70" dateformat="yyyy-MM-dd" class="input_s_essential" position="absolute 92 23 179 43" visible="true"/>
              <Calendar id="ipt_todd" taborder="71" dateformat="yyyy-MM-dd" class="input_s_essential" position="absolute 203 23 290 43" visible="true" usebitmapcache="true"/>
              <Static id="caption00" text="~" position="absolute 189 25 201 42"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_reset" taborder="14" text="초기화" onclick="btn_reset_onclick" class="btn4" position="absolute 1187 1 1256 21" anchor="top right"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grid_grd_tnslist" 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="prcpdd" type="STRING" size="256"/>
          <column id="patnm" type="STRING" size="256"/>
          <Column id="tclsscrnnm" type="STRING" size="256"/>
          <Column id="abo" type="STRING" size="256"/>
          <Column id="bno" type="STRING" size="256"/>
          <column id="wardnm" type="STRING" size="256"/>
          <column id="tnsreqacptdt" type="STRING" size="256"/>
          <column id="validt" type="STRING" size="256"/>
          <column id="orddrnm" type="STRING" size="256"/>
          <column id="plt" type="STRING" size="256"/>
          <column id="OPSCHEDD" type="STRING" size="256"/>
          <column id="pdano" type="STRING" size="256"/>
          <Column id="day" type="STRING" size="256"/>
          <Column id="junmun" type="STRING" size="256"/>
          <Column id="orddeptnm" 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";

var tnsstatValue = "";

function lf_setInit() {
	
	var toDay = utlf_getCurrentDate().toDate("YYYYMMDD").getAddDate(-10);	
	var todd = utlf_getCurrentDate().toDate("YYYYMMDD").getAddDate(10);
	Div00.ipt_fromdd.value = toDay.getDateFormat("YYYYMMDD");
	Div00.ipt_todd.value   = todd.getDateFormat("YYYYMMDD") ;	
}

//	키이벤트  엔터키 입력시  
function lf_keyEvent() {	
	
	Div00.ipt_pid.setSelect();
	lf_getTnsReqList();
}

 function lf_getTnsReqList() {
	
	var pid 	   = Div00.ipt_pid.value;	// 등록번호
	var fromdd = Div00.ipt_fromdd.value;	// 시작일
	var todd   = Div00.ipt_todd.value;		// 종료일
//	var tnsflag    = Div00.radio1.value;	// 수혈구분
//	var tnsstat    = tnsstatValue; 			// 상태
	
	var sInDsName  = dsf_createDsRow("ds_temp_search"
 	                             , [{col: "pid", val:pid }
 	                             ,  {col: "hopefromdd", val:fromdd }
 	                             ,  {col: "hopetodd", val:todd } 
 	                             ]);
	var oParam = {};
		oParam.id          = "TRLBP00503";
		oParam.service     = "refprintmngtapp.BloodBankRefPrintMngt";
		oParam.method      = "reqGetTnsRetList2";
		oParam.inds        = "cond="+sInDsName;
		oParam.outds       = "ds_grid_grd_tnslist=getTnsReqList";
		oParam.async       = false;
		oParam.callback    = "cbf_SMLBP00500";

	tranf_submit(oParam);
    
    
    if(ds_grid_grd_tnslist.rowcount > 0){			
		ds_grid_grd_tnslist.addColumn("backgroundcolor","string");	
		for(i=0; i <ds_grid_grd_tnslist.rowcount; i++){

			if(ds_grid_grd_tnslist.getColumn(i, "day") == "0"){
			   ds_grid_grd_tnslist.setColumn(i,"backgroundcolor","#f7a08b");
			}else if(ds_grid_grd_tnslist.getColumn(i, "day") == "1"){
			   ds_grid_grd_tnslist.setColumn(i,"backgroundcolor","#ffe79d");
			}else {
			   ds_grid_grd_tnslist.setColumn(i,"backgroundcolor","#FFFFFF");
			}
		}		
		
		var sExpr = "EXPR(backgroundcolor)";
		
		for(var i=0; i< grd_tnslist.getCellCount("Head"); i++){
			grd_tnslist.setCellProperty("body", i, "background", sExpr);
			grd_tnslist.setCellProperty("body", i, "background2", sExpr);
		}
     }			
}

// 수혈상태 변경
function lf_setTnsStat(Ref) {
	tnsstatValue = "";
	if(Ref == "all"){
	    if(Div00.chk_all.value == "1"){
	        Div00.chk_a.value = "1";
	        Div00.chk_b.value = "1";
	        Div00.chk_c.value = "1";
	        Div00.chk_d.value = "1";
	        Div00.chk_e.value = "1";
	        Div00.chk_f.value = "1";
	        Div00.chk_g.value = "1";
	        tnsstatValue = "'1','2','3','4','5','6','7','8'";
	    }else{
	        Div00.chk_a.value = "0";
	        Div00.chk_b.value = "0";
	        Div00.chk_c.value = "0";
	        Div00.chk_d.value = "0";
	        Div00.chk_e.value = "0";
	        Div00.chk_f.value = "0";
	        Div00.chk_g.value = "0";	
	        tnsstatValue = "";
	    }
	}else{ 
	
	    Div00.chk_all.value = "0";
	    
		//접수
		if(Div00.chk_a.value == "1"){
			if(tnsstatValue == ""){
				tnsstatValue = "'1'";
			}else{
				tnsstatValue += ",'1'";	
			}
		}		    
		
		//준비중
		if(Div00.chk_b.value == "1"){
			if(tnsstatValue == ""){
				tnsstatValue = "'2'";
			}else{
				tnsstatValue += ",'2'";	
			}
		}
		
		//준비완료
		if(Div00.chk_c.value == "1"){
			if(tnsstatValue == ""){
				tnsstatValue = "'3'";	
			}else{
				tnsstatValue += ",'3'";	
			}
		}				
		
		//불출완료	
		if(Div00.chk_d.value == "1"){
			if(tnsstatValue == ""){
				tnsstatValue = "'4'";	
			}else{
				tnsstatValue += ",'4'";	
			}
		}				
		
		//반납
		if(Div00.chk_e.value == "1"){
			if(tnsstatValue == ""){
				tnsstatValue = "'5'";	
			}else{
				tnsstatValue += ",'5'";	
			}
		}			
		
		//폐기
		if(Div00.chk_f.value == "1"){
			if(tnsstatValue == ""){
				tnsstatValue = "'6'";	
			}else{
				tnsstatValue += ",'6'";	
			}
		}			
		
		//잔량폐기		
		if(Div00.chk_g.value == "1"){
			if(tnsstatValue == ""){
				tnsstatValue = "'7'";	
			}else{
				tnsstatValue += ",'7'";	
			}
		}	
	}
}

// 엑셀 저장
function lf_exeExcel(pGridId) {
	grdf_exportExcel(grd_tnslist, lf_lisGetTitle(this), "sheet1");	
}

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

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

	lf_setInit();
}

function btn_excel_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	lf_exeExcel(grd_tnslist);
}

function btn_ref_onlbuttonup(obj:Button, e:MouseEventInfo)
{
	lf_getTnsReqList();
}

function Div00_chk_a_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	lf_setTnsStat("a");
}

function Div00_chk_b_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	lf_setTnsStat("b");
}

function Div00_chk_c_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	lf_setTnsStat("c");
}

function Div00_chk_d_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	lf_setTnsStat("d");
}

function Div00_chk_e_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	lf_setTnsStat("e");
}

function Div00_chk_f_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	lf_setTnsStat("f");
}

function Div00_chk_g_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	lf_setTnsStat("g");
}

function Div00_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode==13) {
		lf_keyEvent();
	}
}

function btn_reset_onclick(obj:Button, e:ClickEventInfo)
{
	this.reload();
}

//수혈상태 All 체크박스 
function Div00_chk_all_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	lf_setTnsStat("all");
}

function Div00_chk_all_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	lf_setTnsStat("all");
}

function Div00_chk_a_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	lf_setTnsStat("a");
}

function Div00_chk_b_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	lf_setTnsStat("b");
}

function Div00_chk_c_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	lf_setTnsStat("c");
}

function Div00_chk_d_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	lf_setTnsStat("d");
}

function Div00_chk_e_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	lf_setTnsStat("e");
}

function Div00_chk_f_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	lf_setTnsStat("f");
}

function Div00_chk_g_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	lf_setTnsStat("g");
}

function workform_onload(obj:Form, e:LoadEventInfo)
{
	lf_getTnsReqList();
}
]]></Script>
  </Form>
</FDL>