YNU_JEUS/app_home/himed/xpapps/ast/examcurexp/xp/SPAEA05200_채혈정보조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPAEA05200" position="absolute 0 0 454 367" titletext="체외검사결과조회" oninit="SPAEA05200_oninit" onload="SPAEA05200_onload">
    <Layouts>
      <Layout>
        <Static id="caption1" text="체외검사결과" class="tit_2" position="absolute 0 0 119 21"/>
        <Shape id="line1" class="line_10" position="absolute 0 16 447 22"/>
        <Grid id="grd_basecd" taborder="1" binddataset="ds_main_bcollinfo_bcolllist" useinputpanel="false" position="absolute 0 21 447 341" autofittype="col" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="22"/>
                <Column size="90"/>
                <Column size="215"/>
                <Column size="100"/>
              </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" text="보고결과"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" text="bind:tclscd"/>
                <Cell col="2" text="bind:tclsnm"/>
                <Cell col="3" displaytype="number" text="bind:reptrslt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_cls" taborder="2" text="닫기" class="btn4" position="absolute 391 342 447 364" onclick="btn_cls_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_data" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="suppdeptcd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="tclscd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_bcollinfo_bcolllist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="tclscd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="tclsnm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="reptrslt" type="STRING" size="256" sumtext="검사결과"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "ast_examcurexp::AEZ0001.xjs";
var vSuppdeptcd;
function SPAEA05200_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPAEA05200_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_basecd);
	
	vSuppdeptcd = frmf_getPrestDeptCd();
	
	ds_send_data.setColumn(0, "suppdeptcd", vSuppdeptcd);
	
	if (frmf_checkOpener()) 
	{
		ds_send_data.setColumn(0, "pid", sPid);
	}
	
	var pid = ds_send_data.getColumn(0, "pid");
					
	if (!utlf_isNull(pid))
	{
		ds_send_data.setColumn(0, "tclscd", "NC7329','NC733301','NC733601','NC7494','NC7334");
		
		var oParam = {};
			oParam.id          = "TRAEA05201";
			oParam.service     = "examcureacptexecapp.NuclInpt";
			oParam.method      = "reqGetBCollList";
			oParam.inds        = "reqparam=ds_send_data";
			oParam.outds       = "ds_main_bcollinfo_bcolllist=bcolllist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRAEA05201";

		tranf_submit(oParam);
	}
}

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