YNU_JEUS/app_home/himed/xpapps/lis/tnsmngtxp/xp/SPLBT90200_특수혈액간호부전송.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLBT90200" position="absolute 0 0 1123 768" titletext="특수혈액 간호부전송" oninit="SPLBT90200_oninit" onload="SPLBT90200_onload">
    <Layouts>
      <Layout>
        <Button id="btn_trsm" taborder="1" text="간호부전송" class="btn4" position="absolute 957 2 1049 24" onclick="btn_trsm_onclick"/>
        <Button id="btn_clear" taborder="2" text="초기화" class="btn4" position="absolute 1051 2 1119 24" onclick="btn_clear_onclick"/>
        <Static id="caption6" text="LRSDP 간호부전송" class="tit_1" position="absolute 0 0 199 25"/>
        <Shape id="line2" linetype="horizontal" class="line_10" position="absolute 0 85 1120 91"/>
        <Static id="caption5" text="처방 목록" class="tit_2" position="absolute 1 69 79 85"/>
        <Div id="group2" taborder="3" position="absolute 0 25 1122 60" class="div_SA">
          <Layouts>
            <Layout>
              <Shape id="line1" linetype="vertical" class="line_4" position="absolute 357 7 363 29" anchor="default"/>
              <Static id="caption4" text="등록번호 :" class="search_name" position="absolute 11 9 102 26" anchor="default"/>
              <Button id="btn_pid" taborder="1" text="조회" class="btn1" position="absolute 375 7 431 29" anchor="default" onclick="group2_btn_pid_onclick"/>
              <Edit id="ipt_pid" taborder="2" class="input_button" position="absolute 100 9 200 28" anchor="default" onkeyup="group2_ipt_pid_onkeyup"/>
              <CheckBox id="chk_trsmgbn" taborder="3" position="absolute 230 10 330 30" anchor="default" text="전송완료 포함" truevalue="Y" falsevalue="N" value="0" onchanged="group2_chk_trsmgbn_onchanged"/>
              <Button id="btn_search" taborder="4" position="absolute 182 11 198 26" style="background:skyblue;" onclick="group2_btn_search_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_spclblodlist" class="datagrid2" taborder="4" binddataset="ds_main_spclblodlist_getspclblodlist" useinputpanel="false" position="absolute 0 90 1120 765">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25"/>
                <Column size="25"/>
                <Column size="60"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="60"/>
                <Column size="70"/>
                <Column size="30"/>
                <Column size="50"/>
                <Column size="30"/>
                <Column size="85"/>
                <Column size="102"/>
                <Column size="102"/>
                <Column size="0"/>
                <Column size="102"/>
                <Column size="51"/>
                <Column size="102"/>
                <Column size="60"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="26" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox"/>
                <Cell col="2" text="전송여부"/>
                <Cell col="3" text="등록번호"/>
                <Cell col="4" text="환자명"/>
                <Cell col="5" text="처방"/>
                <Cell col="6" text="Type"/>
                <Cell col="7" text="I"/>
                <Cell col="8" text="수량"/>
                <Cell col="9" text="E"/>
                <Cell col="10" text="처방부서"/>
                <Cell col="11" text="예약일시"/>
                <Cell col="12" text="접수일시"/>
                <Cell col="13" text="특수혈액&#10;신청여부"/>
                <Cell col="14" text="간호부&#10;전송일시"/>
                <Cell col="15" text="간호부&#10;전송자"/>
                <Cell col="16" text="재접수일시"/>
                <Cell col="17" text="재접수자"/>
                <Cell col="18" text="성분제제코드"/>
                <Cell col="19" text="접수번호"/>
                <Cell col="20" text="prcpgenrflag"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" text="expr:currow + 1"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:chk"/>
                <Cell col="2" text="bind:trsmyn"/>
                <Cell col="3" text="bind:pid"/>
                <Cell col="4" text="bind:patnm"/>
                <Cell col="5" text="bind:tclsscrnnm"/>
                <Cell col="6" text="bind:btype"/>
                <Cell col="7" text="bind:iryn"/>
                <Cell col="8" text="bind:reqty"/>
                <Cell col="9" text="bind:prcperflag"/>
                <Cell col="10" text="bind:orddeptnm"/>
                <Cell col="11" displaytype="date" text="bind:prcphopedt" mask="yyyy-MM-dd hh:mm"/>
                <Cell col="12" displaytype="date" text="bind:tnsreqacptdt" mask="yyyy-MM-dd hh:mm"/>
                <Cell col="13" text="bind:spclblodreqyn"/>
                <Cell col="14" displaytype="date" text="bind:trsmdt" mask="yyyy-MM-dd hh:mm"/>
                <Cell col="15" text="bind:trsmnm"/>
                <Cell col="16" displaytype="date" text="bind:nurstrsmdt" mask="yyyy-MM-dd hh:mm"/>
                <Cell col="17" text="bind:nurstrsmnm"/>
                <Cell col="18" text="bind:blodcomcd"/>
                <Cell col="19" text="bind:tnsreqacptno"/>
                <Cell col="20" text="bind:prcpgenrflag"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_spclblodlist_getspclblodlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="chk" type="STRING"/>
          <Column id="trsmyn" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="tclsscrnnm" type="STRING"/>
          <Column id="btype" type="STRING"/>
          <Column id="iryn" type="STRING"/>
          <Column id="reqty" type="STRING"/>
          <Column id="prcperflag" type="STRING"/>
          <Column id="orddeptnm" type="STRING"/>
          <Column id="prcphopedt" type="STRING"/>
          <Column id="tnsreqacptdt" type="STRING"/>
          <Column id="spclblodreqyn" type="STRING"/>
          <Column id="trsmdt" type="STRING"/>
          <Column id="trsmnm" type="STRING"/>
          <Column id="nurstrsmdt" type="STRING"/>
          <Column id="nurstrsmnm" type="STRING"/>
          <Column id="blodcomcd" type="STRING"/>
          <Column id="tnsreqacptno" type="STRING"/>
          <Column id="prcpgenrflag" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="codeflag" type="STRING" size="256"/>
          <Column id="trsmgbn" type="STRING" size="256"/>
          <Column id="grddata" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_1101" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256" sumtext="코드"/>
          <Column id="nm" type="STRING" size="256" sumtext="코드명"/>
          <Column id="chk" type="STRING" size="256" sumtext="chk"/>
          <Column id="etc01" type="STRING" size="256" sumtext="기타1"/>
          <Column id="etc02" type="STRING" size="256" sumtext="기타2"/>
          <Column id="etc03" type="STRING" size="256" sumtext="기타3"/>
          <Column id="etc04" type="STRING" size="256" sumtext="기타4"/>
          <Column id="etc05" type="STRING" size="256" sumtext="기타4"/>
        </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="trsmgbn" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.ipt_pid" propid="value" datasetid="ds_hidden_ref" columnid="pid"/>
      <BindItem id="item1" compid="group2.chk_trsmgbn" propid="value" datasetid="ds_hidden_ref" columnid="trsmgbn"/>
    </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";

function SPLBT90200_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPLBT90200_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_spclblodlist);
	finit();
}

// 초기값
function finit()
{			
	ds_send.setColumn(0, "codeflag", "1101|");
	
	var oParam = {};
		oParam.id          = "TRLZZ00101";
		oParam.service     = "diagtestapplib.DiagTestBaseInfoMngt";
		oParam.method      = "reqGetInitCodeInfo";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_init_1101=1101";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLZZ00101";
	tranf_submit(oParam);
	
	//등록번호 초기화 및 포커스				
	group2.ipt_pid.setFocus();
	ds_hidden_ref.setColumn(0, "pid", "");
	
	btn_trsm.enable = true;
	
	ds_main_spclblodlist_getspclblodlist.clearData();
	fGetSpclBlodList();
}

//조회
function fGetSpclBlodList()
{	
	ds_main_spclblodlist_getspclblodlist.clearData();
	
	ds_send.setColumn(0, "pid", ds_hidden_ref.getColumn(0, "pid"));
	ds_send.setColumn(0, "trsmgbn", ds_hidden_ref.getColumn(0, "trsmgbn"))
	
	var oParam = {};
		oParam.id          = "TRLBT90201";
		oParam.service     = "transfusionmngtapp.PseuDeliveryRgst";
		oParam.method      = "reqGetSpclBlodList";
		oParam.inds        = "cond=ds_send";
		oParam.outds       = "ds_main_spclblodlist_getspclblodlist=getspclblodlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLBT90201";
	tranf_submit(oParam);
}

//조회버튼
function group2_btn_pid_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetSpclBlodList();
}

function group2_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	fGridSetting(group2.chk_trsmgbn.value);
	fGetSpclBlodList();
}

//전송완료포함 체크하면 간호부전송 버튼 disabled
function fGridSetting(param)
{	
	if(param == "Y")
	{
		btn_trsm.enable = false;
		grd_spclblodlist.setFormatColProperty(1, "size", "0");
		
	}
	else
	{
		btn_trsm.enable = true;
		grd_spclblodlist.setFormatColProperty(1, "size", "25");
	}				
}
			
//간호부전송 버튼
function btn_trsm_onclick(obj:Button,  e:ClickEventInfo)
{
	fSpclNursTrsmSave();
}

//간호부전송
function fSpclNursTrsmSave()
{
	var cnt = ds_main_spclblodlist_getspclblodlist.rowcount;
	var TF  = false;
	
	for(iRow = 0; iRow < cnt; iRow++)
	{
		if(ds_main_spclblodlist_getspclblodlist.getColumn(iRow, "chk") == "Y")		
		{
			var arrPostion = new Array();
			arrPostion[0]  = ds_main_spclblodlist_getspclblodlist.rowposition;
			grdf_setStatus(grd_spclblodlist, "I", arrPostion);
			TF = true;
		}
	}		
	
	if(TF)
	{
		var oParam = {};
			oParam.id          = "TXLBT90201";
			oParam.service     = "transfusionmngtapp.PseuDeliveryRgst";
			oParam.method      = "reqSetSpclNursTrsm";
			oParam.inds        = "data=ds_main_spclblodlist_getspclblodlist:I";
			oParam.async       = false;
			//oParam.callback    = "cf_TXLBT90201";
		tranf_submit(oParam);
		
		fGetSpclBlodList();
	}
	else
	{
		sysf_messageBox("간호부 전송 할 내역이 없습니다." , "I");
		return;
	}				
}

function group2_chk_trsmgbn_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	fGridSetting(group2.chk_trsmgbn.value);
	fGetSpclBlodList();
}

function btn_clear_onclick(obj:Button,  e:ClickEventInfo)
{
	finit();
}

function group2_ipt_pid_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		fGridSetting(group2.chk_trsmgbn.value);
		fGetSpclBlodList();
	}
}
]]></Script>
  </Form>
</FDL>