YNU_JEUS/app_home/himed/xpapps/lis/refprintmngtxp/xp/SPLMP90100_결핵균검사의뢰항목입력.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLMP90100" position="absolute 0 0 392 210" titletext="결핵균검사의뢰항목입력" onload="SPLMP90100_onload" oninit="SPLMP90100_oninit">
    <Layouts>
      <Layout>
        <Static id="cpt_title" text="의뢰항목" class="tit_2" position="absolute 10 10 115 23"/>
        <Edit id="ipt_wbc" taborder="1" class="input_default" position="absolute 105 31 390 50"/>
        <Edit id="input8" taborder="2" class="input_default" position="absolute 105 79 390 98"/>
        <Static id="cpt_prc" text="의뢰항목" class="cell_1" position="absolute 5 102 102 125"/>
        <Static id="cpt_hgb" text="외부의뢰바코드" class="cell_1" position="absolute 5 54 102 77"/>
        <Static id="cpt_wbc" text="바코드번호" class="cell_1" position="absolute 5 30 102 53"/>
        <Static id="cpt_plt" text="처방명칭" class="cell_1" position="absolute 5 78 102 101"/>
        <Grid id="grd_patinfo" taborder="3" binddataset="ds_grd_patinfo" useinputpanel="false" position="absolute 5 128 390 184">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="93"/>
                <Column size="37"/>
                <Column size="37"/>
                <Column size="56"/>
                <Column size="63"/>
                <Column size="98"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="30"/>
              </Rows>
              <Band id="head">
                <Cell text="환자명"/>
                <Cell col="1" text="성별"/>
                <Cell col="2" text="나이"/>
                <Cell col="3" text="병실"/>
                <Cell col="4" text="처방과"/>
                <Cell col="5" text="처방의"/>
              </Band>
              <Band id="body">
                <Cell text="bind:hngnm"/>
                <Cell col="1" text="bind:sex"/>
                <Cell col="2" text="bind:patage"/>
                <Cell col="3" text="bind:roomcd"/>
                <Cell col="4" text="bind:orddeptnm"/>
                <Cell col="5" text="bind:orddrnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Edit id="iptSearch" taborder="4" class="input_button" position="absolute 105 55 390 74" onkeyup="iptSearch_onkeyup"/>
        <cp_checkboxList id="checkbox1" taborder="5" scrollbars="none" position="absolute 110 104 386 125" style="background:transparent; " col="1" row="1" cellspacing="2" vcellspacing="0" itemWidth="100" itemHeight="20" overflow="visible" enable="false"/>
        <Button id="btn_confirm" taborder="6" text="확인" class="btn4" position="absolute 275 186 331 208" onclick="btn_confirm_onclick"/>
        <Button id="btn_cancel" taborder="7" text="취소" class="btn4" position="absolute 334 186 390 208" onclick="btn_cancel_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="bcno" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="sex" type="STRING"/>
          <Column id="patage" type="STRING"/>
          <Column id="roomcd" type="STRING"/>
          <Column id="orddeptnm" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="spccd" type="STRING" size="256"/>
          <Column id="tclscd" type="STRING" size="256"/>
          <Column id="spcacptdt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_req" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="bcno" type="STRING" size="256"/>
          <Column id="tclscd" type="STRING" size="256"/>
          <Column id="spccd" type="STRING" size="256"/>
          <Column id="testcd" type="STRING" size="256"/>
          <Column id="rsltseq" type="STRING" size="256"/>
          <Column id="reqkind" type="STRING" size="256"/>
          <Column id="reqbcno" type="STRING" size="256"/>
          <Column id="reqspcacptdt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp_tbtestrsltinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="spcacptdt" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="bcno" type="STRING" size="256"/>
          <Column id="rsltrgstdt" type="STRING" size="256"/>
          <Column id="reptrslt" type="STRING" size="256"/>
          <Column id="spcnm" type="STRING" size="256"/>
          <Column id="reqdt" type="STRING" size="256"/>
          <Column id="reqkind" type="STRING" size="256"/>
          <Column id="tclscd" type="STRING" size="256"/>
          <Column id="testcd" type="STRING" size="256"/>
          <Column id="rsltseq" type="STRING" size="256"/>
          <Column id="spccd" type="STRING" size="256"/>
          <Column id="tclsnm" type="STRING" size="256"/>
          <Column id="orddrnm" type="STRING" size="256"/>
          <Column id="orddeptnm" type="STRING" size="256"/>
          <Column id="roomcd" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="patage" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_reqitem" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="bcno" type="STRING" size="256"/>
          <Column id="reqbcno" type="STRING" size="256"/>
          <Column id="tclsnm" type="STRING" size="256"/>
          <Column id="reqkind" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="patage" type="STRING" size="256"/>
          <Column id="roomcd" type="STRING" size="256"/>
          <Column id="orddeptnm" type="STRING" size="256"/>
          <Column id="orddrnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_reqitem_reqkind" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">LMA107</Col>
            <Col id="value">LMA107</Col>
          </Row>
          <Row>
            <Col id="label">LMA001</Col>
            <Col id="value">LMA001</Col>
          </Row>
          <Row>
            <Col id="label">LPD193</Col>
            <Col id="value">LPD193</Col>
          </Row>
          <Row>
            <Col id="label">LPD011</Col>
            <Col id="value">LPD011</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_acptset" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="bcno" type="STRING" size="256"/>
          <Column id="userid" type="STRING" size="256"/>
          <Column id="instcd" 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="searchbcno" type="STRING" size="256"/>
          <Column id="searchpid" type="STRING" size="256"/>
          <Column id="searchspccd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp_reqbcnoinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="bcno" type="STRING" size="256"/>
          <Column id="tclscd" type="STRING" size="256"/>
          <Column id="tclsnm" type="STRING" size="256"/>
          <Column id="spcacptdt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="checkbox1" propid="text" datasetid="ds_reqitem_reqkind" columnid="label"/>
      <BindItem id="item1" compid="ipt_wbc" propid="value" datasetid="ds_grd_patinfo" columnid="bcno"/>
    </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::LPZ001.xjs";
include "lis_commonxp::LZZ002.xjs";
include "lis_commonxp::LZZ001.xjs";
include "lis_commonxp::LLZ001.xjs";

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

function SPLMP90100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_patinfo);
	fsetinit(); //초기화
}

function fsetinit()
{	
	if(frmf_checkOpener()) 
	{
		try 
		{
			ds_grd_patinfo.copyData(arg_ds_temp_tbtestrsltinfo);
		} 
		catch(e) 
		{
		}
	}
	var sProp1="col=4,cellspacing=5,vcellspacing=0,itemWidth=-1,itemHeight=20,overflow=''";
	checkbox1.setInitComp(sProp1, ds_reqitem_reqkind, "label", "value", "fn_deptlist");
	fn_getdeptlist();
}

function fn_deptlist()
{
	var getData = String(checkbox1.getData()).replace("|"," ");
	ds_send_req.setColumn(0, "reqkind");
}

function fn_getdeptlist()
{
	var getData = utlf_transNullToEmpty(ds_send_req.getColumn(0, "reqkind")).split(" ");
	if(!utlf_isNull(getData))
	{
		checkbox1.setData(getData);
	}
}

function fOnclickBtnRef()
{	
	ds_send_acptset.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
	ds_send_acptset.setColumn(0, "bcno", ds_reqitem.getColCount(0, "reqbcno"));
	ds_send_acptset.setColumn(0, "userid", sysf_getUserInfo("userid"));

	var sOutDsName = dsf_createDsRow("ds_ResultFlag", [{col : "resultflag"}, {col : "patnm"}, {col : "workno"}]);
	var oParam = {};
    oParam.id          = "TXLII00107";
    oParam.service     = "interfacemngtapp.InterFaceMngt";
    oParam.method      = "reqSetIFSpcAutoAcptHR";
    oParam.inds        = "cond=ds_ds_send_acptset";
    oParam.outds       = ds_ResultFlag + "=getBcollSpcInfo";
    oParam.async       = false;

	tranf_submit(oParam);

	ds_send.setColumn(0, "searchbcno", ds_reqitem.getColumn(0, "reqbcno"));
	ds_send.setColumn(0, "searchpid", ds_grd_patinfo.getColumn(0, "pid"));
	ds_send.setColumn(0, "searchspccd", ds_grd_patinfo.getColumn(0, "spccd"));
	
	var oParam = {};
    oParam.id          = "TRLMP90101";
    oParam.service     = "refprintmngtapp.MicroRefPrintMngt";
    oParam.method      = "reqGetReqBcnoInfo";
    oParam.inds        = "cond=ds_send";
    oParam.outds       = "ds_temp_reqbcnoinfo=getReqBcnoInfo";
    oParam.async       = false;
    //oParam.callback    = "cf_TRLMP90101";

	tranf_submit(oParam);

	if( utlf_isNull(ds_temp_reqbcnoinfo.getColumn(0, "tclscd")))
	{
		alert("의뢰할 수 없는 바코드입니다.");
	}
	else
	{
		ds_reqitem.setColumn(0, "tclsnm", ds_temp_reqbcnoinfo.getColumn(0, "tclsnm"));

		var cv = ds_temp_reqbcnoinfo.getColumn(0, "tclscd");
		checkbox1.value = cv;
	}
}

//확인
function fExeSave()
{	
	if(utlf_isNull(ds_reqitem.getColumn(0, "reqkind")))
	{
		alert("외부의뢰 항목이 입력되지 않았습니다.");
		return;
		
	}
	else
	{		
		ds_send_req.setColumn(0, "bcno", ds_grd_patinfo.getColumn(0, "bcno"));
		ds_send_req.setColumn(0, "reqbcno", ds_reqitem.getColCount(0, "reqbcno"));
		ds_send_req.setColumn(0, "spccd", ds_grd_patinfo.getColCount(0, "spccd"));
		ds_send_req.setColumn(0, "tclscd", ds_grd_patinfo.getColCount(0, "tclscd"));
		ds_send_req.setColumn(0, "testcd", ds_reqitem.getColumn(0, "reqkind"));
		ds_send_req.setColumn(0, "rsltseq", "1");
		ds_send_req.setColumn(0, "reqkind", ds_reqitem.getColCount(0, "reqkind"));
		ds_send_req.setColumn(0, "reqspcacptdt", ds_grd_patinfo.getColCount(0, "spcacptdt"));
		
		var oParam = {};
		oParam.id          = "TXLMP90101";
		oParam.service     = "refprintmngtapp.MicroRefPrintMngt";
		oParam.method      = "reqExeTbTestReqItem";
		oParam.inds        = "refparam=ds_send_req";
		oParam.async       = false;
		//oParam.callback    = "cf_TXLMP90101";

		tranf_submit(oParam);
		
		fOnclickBtnRef()
	}
}
			
				
function iptSearch_onkeyup(obj:Edit, e:KeyEventInfo)
{

	if(e.keycode == 13)
	{	
		ds_reqitem.setColumn(0, "reqbcno", iptSearch.value);
		fOnclickBtnRef();
	}
}

//확인
function btn_confirm_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeSave();
	this.close();
}

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