YNU_JEUS/app_home/himed/xpapps/lis/tnsmngtxp/xp/SPLBT90400_외래수혈처방조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLBT90400" position="absolute 0 0 998 743" titletext="외래수혈처방조회" scrollbars="none" onload="SPLBT90400_onload" ontimer="SPLBT90400_ontimer" onclose="SPLBT90400_onclose">
    <Layouts>
      <Layout>
        <Div id="grp_tle" position="absolute 1036 -19 2016 -6" anchor="default" positiontype="position">
          <Layouts>
            <Layout/>
          </Layouts>
        </Div>
        <Div id="grp_sea" taborder="2" style="align:center top;" position="absolute 0 25 996 67" anchor="left top right" class="div_SA">
          <Layouts>
            <Layout>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 893 7 893 29" anchor="default"/>
              <Static id="caption2" text="예약일시" class="search_name" position="absolute 8 10 82 30" anchor="default"/>
              <Button id="btn_ref" taborder="1" text="조회" class="btn1" position="absolute 928 10 984 30" anchor="top right" onclick="grp_sea_btn_ref_onclick"/>
              <Static id="caption1" text="등록번호" class="search_name" position="absolute 322 10 396 30" anchor="default"/>
              <Edit id="ipt_pid" taborder="4" position="absolute 396 10 496 30" anchor="default" onkeydown="grp_sea_ipt_pid_onkeydown" maxlength="9" inputtype="digit"/>
              <Edit id="ipt_autom" taborder="5" class="input_search" position="absolute 618 10 642 30" anchor="default" value="1" maxlength="2" inputtype="digit"/>
              <Static id="caption8" text="분" class="search_no_b" position="absolute 645 10 660 30" anchor="default"/>
              <Button id="btn_autoNF" taborder="6" text="자동조회 On" class="btn5" position="absolute 523 10 615 30" anchor="default" onclick="grp_sea_btn_autoNF_onclick"/>
              <cp_periodCal id="cp_periodCal" titletext="Period Calendar" taborder="7" text="cp_periodCal00" scrollbars="none" position="absolute 82 10 298 30" style="background:transparent; " class="input_essential" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption32" text="외래환자 수혈처방 조회" class="tit_2" position="absolute 0 79 167 99"/>
        <Grid id="grd_dnorinfo" class="datagrid3" taborder="3" useinputpanel="false" position="absolute 0 99 996 739" style="align:center middle;" anchor="default" autofittype="col" binddataset="ds_grid_outprcplist" cellsizingtype="col" oncellclick="grd_dnorinfo_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="21"/>
                <Column size="55"/>
                <Column size="79"/>
                <Column size="77"/>
                <Column size="40"/>
                <Column size="66"/>
                <Column size="68"/>
                <Column size="55"/>
                <Column size="90"/>
                <Column size="34"/>
                <Column size="57"/>
                <Column size="54"/>
                <Column size="54"/>
                <Column size="30"/>
                <Column size="30"/>
                <Column size="131"/>
                <Column size="166"/>
              </Columns>
              <Rows>
                <Row size="45" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="상태"/>
                <Cell col="2" text="처방일자"/>
                <Cell col="3" colspan="2" 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="Btype"/>
                <Cell col="11" text="최근수혈&#10;혈액형"/>
                <Cell col="12" text="보관&#10;검체"/>
                <Cell col="13" text="혈액&#10;은행&#10;확인"/>
                <Cell col="14" text="외래&#10;확인"/>
                <Cell col="15" text="확인일시"/>
                <Cell col="16" text="보관검체정보"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow+1"/>
                <Cell col="1" style="align:center middle;" text="bind:prcpstat"/>
                <Cell col="2" style="align:center middle;" text="bind:prcpdd" mask="####-##-##"/>
                <Cell col="3" style="align:center middle;" text="bind:prcphopedd" mask="####-##-##"/>
                <Cell col="4" text="bind:prcphopetm" mask="##:##"/>
                <Cell col="5" text="bind:pid"/>
                <Cell col="6" text="bind:hngnm"/>
                <Cell col="7" text="bind:deptnm"/>
                <Cell col="8" style="align:left middle;" text="bind:blodcomabbrnm"/>
                <Cell col="9" text="bind:reqqty"/>
                <Cell col="10" text="bind:btype"/>
                <Cell col="11" text="bind:bfaborh"/>
                <Cell col="12" text="bind:keepno"/>
                <Cell col="13" text="bind:bankcnfmyn"/>
                <Cell col="14" displaytype="checkbox" edittype="expr:(stat2 == '000') || (stat2 == '0') || (stat2 == &quot;230&quot;) ? 'none' : 'checkbox'" style="controlbackground:EXPR((stat2 == '000') || (stat2 == '0') || (stat2 == &quot;230&quot;) ? 'gray' : 'none');" text="bind:outcnfmyn"/>
                <Cell col="15" displaytype="date" edittype="date" text="bind:rsrvcnfmdt" expr="expr:outcnfmyn =='Y' ? rsrvcnfmdt : ''" mask="yyyy-MM-dd hh:mm" calendardisplaynulltype="nulltext"/>
                <Cell col="16" text="bind:bcnoinfo"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption6" text="외래환자 수혈처방 조회" class="tit_1" position="absolute 0 0 179 25"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_lb0000" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING"/>
          <Column id="nm" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grid_outprcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_grid_outprcplist_oncolumnchanged">
        <ColumnInfo>
          <Column id="prcpstat" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="prcphopedd" type="STRING" size="256"/>
          <Column id="prcphopetm" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="deptnm" type="STRING" size="256"/>
          <Column id="blodcomabbrnm" type="STRING" size="256"/>
          <Column id="reqqty" type="STRING" size="256"/>
          <Column id="keepno" type="STRING" size="256"/>
          <Column id="voltrans" type="STRING" size="256"/>
          <Column id="tnsreqacptno" type="STRING" size="256"/>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="stat2" type="STRING" size="256"/>
          <Column id="bankcnfmyn" type="STRING" size="256"/>
          <Column id="outcnfmyn" type="STRING" size="256"/>
          <Column id="rsrvcnfmdt" type="STRING" size="256"/>
          <Column id="btype" type="STRING" size="256"/>
          <Column id="bfaborh" type="STRING" size="256"/>
          <Column id="bcnoinfo" 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 SPLBT90400_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);
	lf_SetInit();
}

//초기화
function lf_SetInit(){
	grp_sea.ipt_pid.setFocus();
	
	lf_getDbDeptcd("0000|","cbf_TRLZZ00101");
	
	lf_Timer();
	
	var aData = new Array();
	aData[0] = utlf_getCurrentDate().toDate("YYYYMMDD").getAddDate(-1, "D").getDateFormat("YYYYMMDD");
	aData[1] = utlf_getCurrentDate();
	grp_sea.cp_periodCal.setData(aData);
	grp_sea.ipt_pid.value = "";
	
	lf_GetOutPrcpList();
	
}

var iCnt = 1;
function lf_Timer(){
	iCnt++;
	
	if(iCnt%2 == 0){
		var m = grp_sea.ipt_autom.value;
		this.setTimer(0, Number(m)*60000);
		
		grp_sea.btn_autoNF.text = "자동접수 Off";
		grp_sea.ipt_autom.enable = true;
	}else{
		grp_sea.btn_autoNF.text = "자동접수 On";
		grp_sea.ipt_autom.enable = false;
		this.killTimer(0);
	}
}

//조회
function lf_GetOutPrcpList(){
	
	var aData = new Array();
	aData = grp_sea.cp_periodCal.getData();
	
	var sInDsName = dsf_createDsRow("ds_temp_search"
	                             , [{col: "fromdd"	, val: aData[0]}
	                             ,  {col: "todd"	, val: aData[1]}
	                             ,  {col: "pid"		, val: grp_sea.ipt_pid.value}]);	
	                             								
	var oParam = {};
		oParam.id          = "TRLBT90401";
		oParam.service     = "transfusionmngtapp.PseuDeliveryRgst";
		oParam.method      = "reqGetOutBlodPrcpList";
		oParam.inds        = "cond="+sInDsName;
		oParam.outds       = "ds_grid_outprcplist=getOutBlodPrcpList";
		oParam.async       = false;
		oParam.callback    = "cbf_TRLBT90401";

	tranf_submit(oParam);
}


function lf_KeyEvent(objName, keyCode){
	if(keyCode == "13"){
		
		if(objName == "ipt_pid"){
			frmf_setInputNodeCurPid(grp_sea.ipt_pid);
			grp_sea.ipt_pid.value = String(grp_sea.ipt_pid.value).getTrim();
			lf_GetOutPrcpList();
		}
		
	}
}

//혈액은행 확인, 외래확인 체크 
function lf_SetRsrvCNFM(){
	var oParam = {};
		oParam.id          = "TXLBT90401";
		oParam.service     = "transfusionmngtapp.PseuDeliveryRgst";
		oParam.method      = "reqExeOutRsrvCnfm";
		oParam.inds        = "data=ds_grid_outprcplist:U";
		oParam.async       = false;
		oParam.callback    = "cbf_TXLBT90401";

	tranf_submit(oParam);
}

//콜백_LIS공통코드조회
function cbf_TRLZZ00101(strSvcID, nErrorCode, strErrorMag){
	if(nErrorCode != 0){
		sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");
	}else{
	}
}
//콜백_조회
function cbf_TRLBT90401(strSvcID, nErrorCode, strErrorMag){
	if(nErrorCode != 0){
		sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");
	}else{
		
		createColumn(ds_grid_outprcplist, "edittype");
		ds_grid_outprcplist.updatecontrol = false;
		for(var i=0; i<ds_grid_outprcplist.rowcount; i++){
			if(ds_grid_outprcplist.getColumn(i, "stat2") == "000" ||
			   ds_grid_outprcplist.getColumn(i, "stat2") == "0" ||
			   ds_grid_outprcplist.getColumn(i, "stat2") == "230"){
				ds_grid_outprcplist.setColumn(i, "edittype", "none");
			}else{
				ds_grid_outprcplist.setColumn(i, "edittype", "checkbox");
			}
			
			if(ds_grid_outprcplist.getColumn(i, "outcnfmyn") == "N"){
				ds_grid_outprcplist.setColumn(i, "outcnfmyn", 0);
			}
			ds_grid_outprcplist.setRowType(i, Dataset.ROWTYPE_NORMAL);
		}
		ds_grid_outprcplist.updatecontrol = true;
		
	}
}

function cbf_TXLBT90401(strSvcID, nErrorCode, strErrorMag){
	if(nErrorCode != 0){
		sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");
	}else{
		lf_GetOutPrcpList();
	}
}

function createColumn(objDs, strColID){
	var isExist = false;
	if(!isExistCol(objDs, strColID)){
		objDs.addColumn(strColID,"string");
	}
}

function isExistCol(objDs, strColID){
	var isExist = false;
	var colID = "";
	for(var i=0; i<objDs.getColCount(); i++){
		colID = objDs.getColID(i);
		if(colID == strColID){
			isExist = true;
		}
	}
	return isExist;
}

function SPLBT90400_ontimer(obj:Form, e:TimerEventInfo)
{
	lf_GetOutPrcpList();
}

function SPLBT90400_onclose(obj:Form, e:CloseEventInfo)
{
	this.killTimer(0);
}

function grp_sea_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	lf_KeyEvent(obj.name, e.keycode);
}

function grp_sea_btn_ref_onclick(obj:Button,  e:ClickEventInfo)
{
	lf_GetOutPrcpList();
}

function grp_sea_btn_autoNF_onclick(obj:Button,  e:ClickEventInfo)
{
	lf_Timer();
}


function btn_exit_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

function grd_dnorinfo_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.col == "14") { //outcnfmyn")
        var nVal = obj.getCellValue(e.row,14);
		var nYn  = "";
		if (nVal == "1") {
			nYn = "Y";
		}else {
			nYn = "N";
		}
		obj.updatecontrol = false;
		ds_grid_outprcplist.setColumn(e.row, "outcnfmyn", nYn);
		ds_grid_outprcplist.setRowType(e.row,"4");
		obj.updatecontrol = true;
		
		lf_SetRsrvCNFM();
	}
	
}

// function ds_grid_outprcplist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
// {
// 	if(obj.getColID(e.col) == "outcnfmyn"){		
// 		obj.updatecontrol = false;
// 		if(obj.getColumn(e.row, obj.getColID(e.col)) == 1){
// 			obj.setRowType(e.row, Dataset.ROWTYPE_INSERT);
// 			obj.setColumn(e.row, "outcnfmyn", "Y");
// 		}
// 		obj.updatecontrol = true;
// 		
// 		lf_SetRsrvCNFM();
// 	}
// }]]></Script>
  </Form>
</FDL>