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

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLBT90410" position="absolute 0 0 984 747" titletext="외래수혈처방조회" oninit="SPLBT90410_oninit" onload="SPLBT90410_onload" onclose="SPLBT90410_onclose">
    <Layouts>
      <Layout>
        <Div position="absolute 0 14 982 747" id="grp_biz" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout width="990" height="756">
              <Grid position="absolute 1 77 976 732" align="align:center middle;" id="grd_dnorinfo" class="datagrid3" binddataset="ds_grd_dnorinfo" anchor="all" autofittype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="22"/>
                      <Column size="52"/>
                      <Column size="79"/>
                      <Column size="71"/>
                      <Column size="38"/>
                      <Column size="69"/>
                      <Column size="60"/>
                      <Column size="55"/>
                      <Column size="70"/>
                      <Column size="34"/>
                      <Column size="59"/>
                      <Column size="88"/>
                      <Column size="54"/>
                      <Column size="76"/>
                      <Column size="36"/>
                      <Column size="72"/>
                      <Column size="74"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <Cell col="1" text="상태"/>
                      <Cell col="2" text="처방일자"/>
                      <Cell col="3" colspan="2" text="예약일시" taborder="undefined"/>
                      <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="최근수혈혈액형"/>
                      <Cell col="12" text="보관검체"/>
                      <Cell col="13" text="혈액은행확인"/>
                      <Cell col="14" text="외래&#10;확인"/>
                      <Cell col="15" text="확인일시"/>
                      <Cell col="16" text="보관검체정보"/>
                      <Cell col="17" text="tnsreqacptno"/>
                      <Cell col="18" text="stat2"/>
                      <Cell col="19" text="용량변경&#10;수량"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="expr:currow + 1"/>
                      <Cell col="1" text="bind:prcpstat"/>
                      <Cell col="2" displaytype="date" edittype="date" text="bind:prcpdd" mask="yyyy-MM-dd"/>
                      <Cell col="3" displaytype="date" edittype="date" text="bind:prcphopedd" mask="yyyy-MM-dd"/>
                      <Cell col="4" displaytype="date" edittype="date" text="bind:prcphopetm" mask="hh:mm"/>
                      <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:getColumn(currow, 'edittype')" text="bind:outcnfmyn"/>
                      <Cell col="15" displaytype="date" edittype="date" text="bind:rsrvcnfmdt" mask="yyyy-MM-dd"/>
                      <Cell col="16" text="bind:bcnoinfo"/>
                      <Cell col="17" text="bind:tnsreqacptno"/>
                      <Cell col="18" text="bind:stat2"/>
                      <Cell col="19" text="bind:voltrans"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Shape position="absolute 1 71 976 77" linetype="horizontal" id="line10" class="line_1" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
              <Static text="외래환자 수혈처방 조회" position="absolute 1 55 168 76" id="caption32" class="tit_2" anchor="left top"/>
              <Div position="absolute 0 11 979 46" align="align:center top;" id="grp_sea" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout>
                    <Shape position="absolute 890 7 896 29" linetype="vertical" id="line13" class="line_4" anchor="top right"/>
                    <Static text="예약일시 :" position="absolute 16 9 110 26" id="caption2" class="search_name" anchor="left top"/>
                    <Button position="absolute 908 7 964 29" id="btn_ref" class="btn1" text="조회" anchor="top right" onclick="grp_biz_grp_sea_btn_ref_onclick"/>
                    <Static text="~" position="absolute 207 10 222 27" id="caption3" class="search_no_b" anchor="left top"/>
                    <Calendar position="absolute 97 8 200 27" id="input26" class="input_s_essential" anchor="left top" autoselect="true"/>
                    <Calendar position="absolute 224 8 327 27" id="input1" class="input_s_essential" anchor="left top" onkeyup="grp_biz_grp_sea_input1_onkeyup" autoselect="true"/>
                    <Static text="등록번호 :" position="absolute 381 9 475 26" id="caption1" class="search_name" anchor="default"/>
                    <Edit position="absolute 475 8 575 27" id="ipt_pid" anchor="default" onkeyup="grp_biz_grp_sea_ipt_pid_onkeyup" onkeydown="grp_biz_grp_sea_ipt_pid_onkeydown"/>
                    <Edit position="absolute 831 8 855 27" id="input2" class="input_search" anchor="top right"/>
                    <Static text="분" position="absolute 855 8 870 25" id="caption8" class="search_no_b" anchor="top right"/>
                    <Button position="absolute 738 8 830 27" id="button89" class="btn5" text="자동조회 On" anchor="top right" onclick="grp_biz_grp_sea_button89_onclick"/>
                  </Layout>
                </Layouts>
              </Div>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption6" text="외래환자 수혈처방 조회" class="tit_1" position="absolute 0 0 179 25" anchor="left top"/>
        <Button id="button1" taborder="1" text="닫기" onclick="grp_biz_button1_onclick" class="btn4" position="absolute 921 63 977 85" anchor="top right"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_dnorinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_grd_dnorinfo_oncolumnchanged">
        <ColumnInfo>
          <Column id="prcpstat" type="STRING"/>
          <Column id="prcpdd" type="STRING"/>
          <Column id="prcphopedd" type="STRING"/>
          <Column id="prcphopetm" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="deptnm" type="STRING"/>
          <Column id="blodcomabbrnm" type="STRING"/>
          <Column id="reqqty" type="STRING"/>
          <Column id="btype" type="STRING"/>
          <Column id="bfaborh" type="STRING"/>
          <Column id="keepno" type="STRING"/>
          <Column id="bankcnfmyn" type="STRING"/>
          <Column id="outcnfmyn" type="STRING"/>
          <Column id="rsrvcnfmdt" type="STRING"/>
          <Column id="bcnoinfo" type="STRING"/>
          <Column id="tnsreqacptno" type="STRING"/>
          <Column id="stat2" type="STRING"/>
          <Column id="voltrans" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_ref" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="outcnfmdata" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="ref" type="STRING" size="256"/>
          <Column id="autom" type="STRING" size="256"/>
          <Column id="autoref" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="autom">1</Col>
            <Col id="autoref">1</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_bloodprcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="outprcplist" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_lb0000" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING" size="256"/>
          <Column id="cd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_biz.grp_sea.input26" propid="value" datasetid="ds_hidden_ref" columnid="fromdd"/>
      <BindItem id="item1" compid="grp_biz.grp_sea.input1" propid="value" datasetid="ds_hidden_ref" columnid="todd"/>
      <BindItem id="item2" compid="grp_biz.grp_sea.ipt_pid" propid="value" datasetid="ds_hidden_ref" columnid="pid"/>
      <BindItem id="item3" compid="grp_biz.grp_sea.input2" propid="value" datasetid="ds_hidden" columnid="autom"/>
    </Bind>
    <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 SPLBT90410_oninit(obj:Form, e:InitEventInfo)
{
	//폼 초기화 함수
	frmf_initForm(obj);
}

function SPLBT90410_onload(obj:Form, e:LoadEventInfo)
{	
	grdf_initGrid(grp_biz.grd_dnorinfo);
	fSetInit(); //초기화
}	

var gTimerID;
var iCnt = 1;
function fTimer()
{					
	iCnt ++;
	if(iCnt%2 == 0)
	{
		m = grp_biz.grp_sea.input2.value;
		this.setTimer(gTimerID, m * 60000);
		grp_biz.grp_sea.button89.text = "자동조회 On";
		grp_biz.grp_sea.input2.enable = false;	
	}
	else
	{
		ds_hidden.setColumn(0,"autoref" , "2");
		grp_biz.grp_sea.button89.text = "자동조회 Off";
		grp_biz.grp_sea.input2.enable = true;
		this.killTimer(gTimerID);
	}	
}

//초기화
function fSetInit()
{	
	grp_biz.grp_sea.ipt_pid.setFocus();
	lf_getDbDeptcd("0000|","cbf_TRLZZ00101");
					 
	fTimer();
	
	grp_biz.grp_sea.input26.value = utlf_addDate(utlf_getCurrentDate(), -1);
	grp_biz.grp_sea.input1.value  = utlf_getCurrentDate();
	fGetOutPrcpList();
}

// 조회 
function fGetOutPrcpList()
{
	ds_send.setColumn(0, "fromdd", ds_hidden_ref.getColumn(0, "fromdd"));
	ds_send.setColumn(0, "todd", ds_hidden_ref.getColumn(0, "todd"));
	ds_send.setColumn(0, "pid", ds_hidden_ref.getColumn(0, "pid"));
	
	//submit("TRLBT90402");
	var oParam = {};
    oParam.id          = "TRLBT90402";
    oParam.service     = "transfusionmngtapp.PseuDeliveryRgst";
    oParam.method      = "reqGetOutBlodPrcpList1";
    oParam.inds        = "cond=ds_send";
    oParam.outds       = "ds_grd_dnorinfo=getOutBlodPrcpList";
    oParam.async       = false;
    oParam.callback    = "cf_TRLBT90402";

	tranf_submit(oParam);
}

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

	tranf_submit(oParam);
}

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

//콜백_LIS공통코드조회
function cbf_TRLZZ00101(strSvcID, nErrorCode, strErrorMag)
{
	if(nErrorCode != 0)
	{
		sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");
	}
	else
	{
	}
}

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

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

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 grp_biz_grp_sea_btn_ref_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetOutPrcpList();
}

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

function grp_biz_grp_sea_input1_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		fGetOutPrcpList();
	}
}

//자동조회
function grp_biz_grp_sea_button89_onclick(obj:Button,  e:ClickEventInfo)
{
	fTimer();
}

function grp_biz_grp_sea_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	KeyEvent(obj.name, e.keycode);
}

function ds_grd_dnorinfo_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;
		
		fSetRsrvCNFM();
	}
}

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

//닫기
function grp_biz_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}
]]></Script>
  </Form>
</FDL>