YNU_JEUS/app_home/himed/xpapps/lis/plgyacptmngtxp/xp/SPLPJ01700_검체접수조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLPJ01700" position="absolute 0 0 983 606" titletext="접수검체조회" oninit="SPLPJ01700_oninit" onload="SPLPJ01700_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 574 980 601" id="grp_btn" scrollbars="autoboth" anchor="left right bottom">
          <Layouts>
            <Layout width="980" height="27">
              <Button position="absolute 924 5 980 27" id="btn_exit" class="btn4" taborder="12" text="닫기" onclick="grp_btn_btn_exit_onclick" anchor="right"/>
              <Button position="absolute 0 5 92 27" id="button26" class="btn3" text="프린터설정" onclick="grp_btn_button26_onclick" anchor="left top"/>
              <Button position="absolute 94 5 186 27" id="btn_prnt" class="btn3" text="바코드출력" onclick="grp_btn_btn_prnt_onclick" anchor="left top"/>
              <Button position="absolute 188 5 280 27" id="button1" class="btn3" text="의뢰지출력" onclick="grp_btn_button1_onclick" anchor="left top"/>
              <Button position="absolute 282 5 374 27" id="button2" class="btn3" text="보고서출력" onclick="grp_btn_button2_onclick" anchor="left top"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption1" text="바코드번호 목록" class="tit_2" position="absolute 1 71 118 87" anchor="left top"/>
        <Shape id="line1" linetype="horizontal" class="line_1" position="absolute 0 87 980 93" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
        <Grid id="grd_acptspclist" class="datagrid2" taborder="5" binddataset="ds_grd_acptspclist" useinputpanel="false" position="absolute 0 91 980 574" autofittype="col" anchor="all" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="26"/>
                <Column size="32"/>
                <Column size="0"/>
                <Column size="90"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="70"/>
                <Column size="0"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="80"/>
                <Column size="90"/>
                <Column size="0"/>
                <Column size="110"/>
                <Column size="196"/>
                <Column size="120"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <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" displaytype="checkbox" edittype="checkbox"/>
                <Cell col="2" text="기관코드"/>
                <Cell col="3" text="바코드번호"/>
                <Cell col="4" text="처방일자"/>
                <Cell col="5" text="이송일자"/>
                <Cell col="6" text="접수일자"/>
                <Cell col="7" text="ptno"/>
                <Cell col="8" text="병리번호"/>
                <Cell col="9" text="등록번호"/>
                <Cell col="10" text="환자명"/>
                <Cell col="11" text="진료과"/>
                <Cell col="12" text="진료의"/>
                <Cell col="13" text="병동/병실"/>
                <Cell col="14" text="처방"/>
                <Cell col="15" text="검체명"/>
                <Cell col="16" text="isolabbrcd"/>
                <Cell col="17" text="최대검체번호"/>
                <Cell col="18" text="의뢰지번호"/>
                <Cell col="19" text="prntprcpdispnm"/>
                <Cell col="20" text="prntprcpdispnm2"/>
                <Cell col="21" text="workflagcd"/>
                <Cell col="22" text="sexage"/>
                <Cell col="23" text="spcacptseqno"/>
              </Band>
              <Band id="body">
                <Cell text="expr:currow + 1"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:choi"/>
                <Cell col="2" text="bind:instcd"/>
                <Cell col="3" text="bind:spcbarcdno"/>
                <Cell col="4" text="bind:prcpdd" mask="yyyy-mm-dd"/>
                <Cell col="5" text="bind:trandd" mask="yyyy-mm-dd"/>
                <Cell col="6" displaytype="date" edittype="date" text="bind:acptdd" mask="yyyy-MM-dd"/>
                <Cell col="7" text="bind:ptno"/>
                <Cell col="8" text="bind:dispptno"/>
                <Cell col="9" text="bind:pid"/>
                <Cell col="10" text="bind:patnm"/>
                <Cell col="11" text="bind:orddeptnm"/>
                <Cell col="12" text="bind:orddrnm"/>
                <Cell col="13" text="bind:wardroom"/>
                <Cell col="14" style="align:left;" text="bind:testnmlist"/>
                <Cell col="15" style="align:left middle;" text="bind:spcnm"/>
                <Cell col="16" text="bind:isolabbrcd"/>
                <Cell col="17" text="bind:maxseqno"/>
                <Cell col="18" text="bind:reqfrmno"/>
                <Cell col="19" text="bind:prntprcpdispnm"/>
                <Cell col="20" text="bind:prntprcpdispnm2"/>
                <Cell col="21" text="bind:workflagcd"/>
                <Cell col="22" text="bind:sexage"/>
                <Cell col="23" text="bind:spcacptseqno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div id="grp_biz" taborder="13" class="div_SA" position="absolute 0 0 980 64" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption3" text="검색방법 :" class="search_name" position="absolute 15 36 90 53" anchor="left top"/>
              <Static id="caption2" text="접수일자 :" class="search_name" position="absolute 568 9 642 26" anchor="top right"/>
              <Static id="caption4" text="~" class="search_no_b" position="absolute 762 11 778 28" anchor="top right"/>
              <Calendar id="ipt_ordddfrom" taborder="1" class="input_s_essential" position="absolute 642 8 757 27" anchor="top right"/>
              <Calendar id="ipt_ordddto" taborder="2" class="input_s_essential" position="absolute 776 8 891 27" anchor="top right" onkeyup="grp_biz_ipt_ordddto_onkeyup"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 891 8 897 51" anchor="top right"/>
              <Edit id="ipt_refval" taborder="3" class="input_search" position="absolute 209 36 339 55" anchor="left top" onkeydown="grp_biz_ipt_refval_onkeydown"/>
              <Combo id="cmb_srchmthd" taborder="4" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_search" position="absolute 107 36 207 55" anchor="left top">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">0</Col>
                      <Col id="datacolumn">등록번호</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">바코드번호</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Combo id="cbo_ptnocd" taborder="5" innerdataset="ds_init_cbo_ptnocd" codecolumn="ptnocd" datacolumn="ptnonm" position="absolute 107 8 207 27" anchor="left top"/>
              <Edit id="ipt_fromptno" taborder="6" class="text_center" position="absolute 239 8 289 27" anchor="left top"/>
              <Static id="caption5" text="병리번호 :" class="search_name" position="absolute 15 9 89 26" anchor="left top"/>
              <Static id="caption6" text="~" class="search_no_b" position="absolute 292 8 304 25" anchor="left top"/>
              <Edit id="input1" taborder="7" class="text_center" position="absolute 337 8 387 27" anchor="left top"/>
              <Edit id="input2" taborder="8" class="text_center" position="absolute 307 8 334 27" anchor="left top"/>
              <Edit id="ipt_fromyear" taborder="9" class="text_center" position="absolute 209 8 236 27" anchor="left top"/>
              <Static id="caption7" text="바 코 드 :" class="search_name" position="absolute 569 36 640 52" anchor="top right"/>
              <Radio id="rdo_barcdtype" taborder="10" columncount="3" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 651 35 885 59" anchor="top right">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">0</Col>
                      <Col id="datacolumn">접수라벨</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">1</Col>
                      <Col id="datacolumn">바코드</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">의뢰지/보고서</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Button id="btn_sea" taborder="11" text="검색" class="btn1" position="absolute 909 19 965 41" anchor="top right" onclick="grp_biz_btn_sea_onclick"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_acptspclist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="choi" type="STRING"/>
          <Column id="instcd" type="STRING"/>
          <Column id="spcbarcdno" type="STRING"/>
          <Column id="prcpdd" type="STRING"/>
          <Column id="trandd" type="STRING"/>
          <Column id="acptdd" type="STRING"/>
          <Column id="ptno" type="STRING"/>
          <Column id="dispptno" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="orddeptnm" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="wardroom" type="STRING"/>
          <Column id="prcpdispnm" type="STRING"/>
          <Column id="spcdispnm" type="STRING"/>
          <Column id="isolabbrcd" type="STRING"/>
          <Column id="maxseqno" type="STRING"/>
          <Column id="reqfrmno" type="STRING"/>
          <Column id="prntprcpdispnm" type="STRING"/>
          <Column id="prntprcpdispnm2" type="STRING"/>
          <Column id="workflagcd" type="STRING"/>
          <Column id="sexage" type="STRING"/>
          <Column id="spcacptseqno" type="STRING"/>
          <Column id="testnmlist" type="STRING" size="256"/>
          <Column id="spcnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cbo_ptnocd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="ptnonm" type="STRING"/>
          <Column id="ptnocd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_data_sysdtinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="sysdd" type="STRING" size="256"/>
          <Column id="systm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_barcdprntsetup" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prntsetupinfo" type="STRING" size="256"/>
          <Column id="macaddr" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="ptnocode" type="STRING" size="256"/>
          <Column id="fromyear" type="STRING" size="256"/>
          <Column id="fromptno" type="STRING" size="256"/>
          <Column id="toyear" type="STRING" size="256"/>
          <Column id="toptno" type="STRING" size="256"/>
          <Column id="acptfromdd" type="STRING" size="256"/>
          <Column id="acpttodd" type="STRING" size="256"/>
          <Column id="refmthdcd" type="STRING" size="256"/>
          <Column id="refval" type="STRING" size="256"/>
          <Column id="barcdtype" type="STRING" size="256"/>
          <Column id="sysdt" type="STRING" size="256"/>
          <Column id="ptnocd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_data_setupinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="dsvaluepath" type="STRING" size="256"/>
          <Column id="prntkind" type="STRING" size="256"/>
          <Column id="commkind" type="STRING" size="256"/>
          <Column id="rexgbn" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_data_blank" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="dsvaluepath" type="STRING" size="256"/>
          <Column id="left" type="STRING" size="256"/>
          <Column id="top" type="STRING" size="256"/>
          <Column id="b472size" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_data_comm01" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="setupval" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_data_comm02" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="dsvaluepath" type="STRING" size="256"/>
          <Column id="comm" type="STRING" size="256"/>
          <Column id="databit" type="STRING" size="256"/>
          <Column id="stopbit" type="STRING" size="256"/>
          <Column id="baudrate" type="STRING" size="256"/>
          <Column id="parity" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="dsvaluepath">/setupinfo</Col>
            <Col id="comm">2</Col>
            <Col id="databit">8</Col>
            <Col id="stopbit">1</Col>
            <Col id="baudrate">9600</Col>
            <Col id="parity">n</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_data_comm03" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="dsvaluepath" type="STRING" size="256"/>
          <Column id="comm" type="STRING" size="256"/>
          <Column id="databit" type="STRING" size="256"/>
          <Column id="stopbit" type="STRING" size="256"/>
          <Column id="baudrate" type="STRING" size="256"/>
          <Column id="parity" type="STRING" size="256"/>
          <Column id="daegiip" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="dsvaluepath">/setupinfo</Col>
            <Col id="comm">2</Col>
            <Col id="databit">8</Col>
            <Col id="stopbit">1</Col>
            <Col id="baudrate">9600</Col>
            <Col id="parity">n</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_prntinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_prntinfo_acptspclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="choi" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="spcbarcdno" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="trandd" type="STRING" size="256"/>
          <Column id="acptdd" type="STRING" size="256"/>
          <Column id="ptno" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="patnm" type="STRING" size="256"/>
          <Column id="sexage" type="STRING" size="256"/>
          <Column id="orddeptnm" type="STRING" size="256"/>
          <Column id="orddrnm" type="STRING" size="256"/>
          <Column id="wardroom" type="STRING" size="256"/>
          <Column id="maxseqno" type="STRING" size="256"/>
          <Column id="reqfrmno" type="STRING" size="256"/>
          <Column id="workflagcd" type="STRING" size="256"/>
          <Column id="isolabbrcd" type="STRING" size="256"/>
          <Column id="spcdispnm" type="STRING" size="256"/>
          <Column id="prntprcpdispnm" type="STRING" size="256"/>
          <Column id="prntprcpdispnm2" type="STRING" size="256"/>
          <Column id="dispptno" type="STRING" size="256"/>
          <Column id="prcpdispnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_biz.ipt_fromyear" propid="value" datasetid="ds_init" columnid="fromyear"/>
      <BindItem id="item1" compid="grp_biz.input2" propid="value" datasetid="ds_init" columnid="toyear"/>
      <BindItem id="item2" compid="grp_biz.ipt_ordddfrom" propid="value" datasetid="ds_init" columnid="acptfromdd"/>
      <BindItem id="item3" compid="grp_biz.ipt_ordddto" propid="value" datasetid="ds_init" columnid="acpttodd"/>
      <BindItem id="item4" compid="grp_biz.cbo_ptnocd" propid="value" datasetid="ds_init" columnid="ptnocode"/>
      <BindItem id="item5" compid="grp_biz.ipt_fromptno" propid="value" datasetid="ds_init" columnid="fromptno"/>
      <BindItem id="item6" compid="grp_biz.input1" propid="value" datasetid="ds_init" columnid="toptno"/>
      <BindItem id="item7" compid="grp_biz.cmb_srchmthd" propid="value" datasetid="ds_init" columnid="refmthdcd"/>
      <BindItem id="item8" compid="grp_biz.ipt_refval" propid="value" datasetid="ds_init" columnid="refval"/>
      <BindItem id="item9" compid="grp_biz.rdo_barcdtype" propid="value" datasetid="ds_init" columnid="barcdtype"/>
    </Bind>
    <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 "lis_commonxp::LLZ001.xjs";
include "lis_commonxp::LPZ001.xjs";
include "lis_commonxp::LZZ002.xjs";
include "com_commodulexp::SSZFM00901.xjs";


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

function SPLPJ01700_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_acptspclist);

	fExeInitialize();
	lzzfMakeBrcdPrntObjHanDo("CommAX");	
}

function fExeInitialize()
{
	var sCurDate = "";
	
	
	dsf_createDsRow("ds_send", [{col: "instcd", val: sysf_getUserInfo("dutplceinstcd")}]);
	var oParam = {};
		oParam.id          = "TRLPZ00102";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetSystemDateTimeInformation";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_data_sysdtinfo=sysdtinfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPZ00102";
	tranf_submit(oParam);
	
	dsf_createDsRow("ds_send", [{col : "instcd",    val : sysf_getUserInfo("dutplceinstcd")}
							   ,{col : "refflagcd", val : "0"}]);	
	
	var oParam = {};
		oParam.id          = "TRLPZ00109";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetPtNoCdList";
		oParam.inds        = "refdata=ds_send";
		oParam.outds       = "ds_init_cbo_ptnocd=rsltlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPZ00109";
	tranf_submit(oParam);

	dsf_createDsRow("ds_send", [{col: "scrnid", val: frmf_getScreenID()}]);
		
	var oParam = {};
		oParam.id          = "TRLLC90101";
		oParam.service     = "diagtestapplib.LisCommon";
		oParam.method      = "reqGetSetUpInfo";
		oParam.inds        = "scrnid=ds_send";
		oParam.outds       = "ds_barcdprntsetup=getSetUpInfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLLC90101";

	tranf_submit(oParam);

	lf_convertXmlToDs(ds_barcdprntsetup.getColumn(0,"prntsetupinfo")); //XML데이터로 프리터설정 관련 DS생성
	
	
	var sCurDate = ds_data_sysdtinfo.getColumn(0, "sysdd");
	ds_init.setColumn(0, "acptfromdd", sCurDate);
	ds_init.setColumn(0, "acpttodd", sCurDate);
//	ds_init.setColumn(0, "acptfromdd", "20170102");
//	ds_init.setColumn(0, "acpttodd", "20170102");
	ds_init.setColumn(0, "refmthdcd", "0");
	ds_init.setColumn(0, "refval", "");
	
	ds_init.setColumn(0, "barcdtype", "0");
	ds_init.setColumn(0, "ptnocode", "");
	ds_init.setColumn(0, "fromptno", "");
	ds_init.setColumn(0, "toptno", "");

	ds_init.setColumn(0, "fromyear", sCurDate.substr(2,2));
	
	ds_init.setColumn(0, "toyear", sCurDate.substr(2,2));
	
	if( !utlf_isNull(ds_init.getColumn(0, "refval")))
	{
		fGetPatList();
	}
	grp_biz.ipt_refval.setFocus();
	
}

function fGetPatList()
{
	
	var sTemp = "";

	if( !utlf_isNull(ds_init.getColumn(0, "ptnocode")))
	{
		if( utlf_isNull(ds_init.getColumn(0, "fromyear")))
		{
			ds_init.setColumn(0, "fromyear", sFromDD.substr(2,2));
		}
		else 
		{
			sTemp = ds_init.getColumn(0, "fromyear");
			ds_init.setColumn(0, "fromyear", sTemp.getLeftPad(2, "0"));
		}
		if( utlf_isNull(ds_init.getColumn(0, "toyear")))
		{
			ds_init.setColumn(0, "toyear", sToDD.substr(2,2));
		}
		else
		{
			sTemp = ds_init.getColumn(0, "toyear");
			ds_init.setColumn(0, "toyear", sTemp.getLeftPad(2, "0"));
		}
		if( utlf_isNull(ds_init.getColumn(0, "fromptno")))
		{
			ds_init.setColumn(0, "fromptno", "000000");
		}
		else
		{
			sTemp = ds_init.getColumn(0, "fromptno");
			ds_init.setColumn(0, "fromptno", sTemp.getLeftPad(6, "0"));
		}
		if( utlf_isNull(ds_init.getColumn(0, "toptno")))
		{
			ds_init.setColumn(0, "toptno", "999999");
		}
		else
		{
			sTemp = ds_init.getColumn(0, "toptno");
			ds_init.setColumn(0, "toptno", sTemp.getLeftPad(6, "0"));
		}
	}
	sTemp = ds_init.getColumn(0, "ptnocode");
	
	dsf_createDsRow("ds_send", [{col : "instcd",      	    val : sysf_getUserInfo("dutplceinstcd")}
	                           ,{col : "refmthdcd", 		val : ds_init.getColumn(0, "refmthdcd")}
	                           ,{col : "refval",   	        val : ds_init.getColumn(0, "refval")}
	                           ,{col : "ptnocode",          val : utlf_transNullToEmpty(sTemp).replace("-", "")}
	                           ,{col : "fromyear",          val : ds_init.getColumn(0, "fromyear")}
							   ,{col : "fromptno",          val : ds_init.getColumn(0, "fromptno")}
							   ,{col : "toyear",            val : ds_init.getColumn(0, "toyear")}
							   ,{col : "toptno",            val : ds_init.getColumn(0, "toptno")}
							   ,{col : "acptfromdd",  	    val : ds_init.getColumn(0, "acptfromdd")}
							   ,{col : "acpttodd",	 	    val : ds_init.getColumn(0, "acpttodd")}
							   ,{col : "barcdtype",   	    val : ds_init.getColumn(0, "barcdtype")}]);
	
	var oParam = {};
		oParam.id          = "TRLPJ01701";
		oParam.service     = "plgyacptmngtapp.SpecimenAccept";
		oParam.method      = "reqGetPatList";
		oParam.inds        = "refdata=ds_send";
		oParam.outds       = "ds_grd_acptspclist=refrslt";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPJ01701";
	tranf_submit(oParam);

   ds_grd_acptspclist.addColumn("apcdispnm","string");
   ds_grd_acptspclist.addColumn("prcpgenrflag","string");
   ds_grd_acptspclist.addColumn("reptflagcd","string");
   ds_grd_acptspclist.addColumn("adddiagprtn","string");
   ds_grd_acptspclist.addColumn("adddiaglist","string");
   ds_grd_acptspclist.addColumn("addrsltlist","string");
   ds_grd_acptspclist.addColumn("prntflagcd","string");
   ds_grd_acptspclist.addColumn("copyflagcd","string");
   ds_grd_acptspclist.addColumn("prntflagcd","string");
}

function fExeBarCdPrnt()
{	
	var re = /▨/g;	// i:1회실행, g:모두실행, gi:전역실행(대소문자 안가림)
	var bState = false;
	var iCnt   = 0;
	var sPrcpNm   = "";
	var sSpcNm    = "";
	var sPrntPrcpDispNm2 = "";
	ds_prntinfo_acptspclist.clearData();
	for(var iNo=0; iNo < ds_grd_acptspclist.rowcount; iNo++)
	{
		if ((ds_grd_acptspclist.getColumn(iNo, "choi") == true) || (ds_grd_acptspclist.getColumn(iNo, "choi") == "1"))
		{
			
			trace("iNo="+iNo);
			ds_prntinfo_acptspclist.addRow();
			trace("rowcount="+ds_prntinfo_acptspclist.rowcount);
// 			dsf_createDsRow("ds_prntinfo_acptspclist", [{col : "choi",       val : ds_grd_acptspclist.getColumn(iNo, "choi")}
// 													   ,{col : "instcd",     val : ds_grd_acptspclist.getColumn(iNo, "instcd")}
// 													   ,{col : "spcbarcdno", val : ds_grd_acptspclist.getColumn(iNo, "spcbarcdno")}
// 													   ,{col : "prcpdd",     val : ds_grd_acptspclist.getColumn(iNo, "prcpdd")}
// 													   ,{col : "trandd",     val : ds_grd_acptspclist.getColumn(iNo, "trandd")}
// 													   ,{col : "acptdd",     val : ds_grd_acptspclist.getColumn(iNo, "acptdd")}
// 													   ,{col : "ptno",       val : ds_grd_acptspclist.getColumn(iNo, "ptno")}
// 													   ,{col : "pid", 		 val : ds_grd_acptspclist.getColumn(iNo, "pid")}
// 													   ,{col : "patnm", 	 val : ds_grd_acptspclist.getColumn(iNo, "patnm")}
// 													   ,{col : "sexage", 	 val : ds_grd_acptspclist.getColumn(iNo, "sexage")}
// 													   ,{col : "orddeptnm",  val : ds_grd_acptspclist.getColumn(iNo, "orddeptnm")}
// 													   ,{col : "orddrnm",    val : ds_grd_acptspclist.getColumn(iNo, "orddrnm")}
// 													   ,{col : "wardroom",   val : ds_grd_acptspclist.getColumn(iNo, "wardroom")}
// 													   ,{col : "maxseqno",   val : ds_grd_acptspclist.getColumn(iNo, "maxseqno")}
// 													   ,{col : "reqfrmno",   val : ds_grd_acptspclist.getColumn(iNo, "reqfrmno")}
// 													   ,{col : "workflagcd", val : ds_grd_acptspclist.getColumn(iNo, "workflagcd")}
// 													   ,{col : "isolabbrcd", val : ds_grd_acptspclist.getColumn(iNo, "isolabbrcd")}]);	
			ds_prntinfo_acptspclist.setColumn(iCnt, "choi", ds_grd_acptspclist.getColumn(iNo, "choi"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "instcd", ds_grd_acptspclist.getColumn(iNo, "instcd"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "spcbarcdno", ds_grd_acptspclist.getColumn(iNo, "spcbarcdno"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "prcpdd", ds_grd_acptspclist.getColumn(iNo, "prcpdd"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "trandd", ds_grd_acptspclist.getColumn(iNo, "trandd"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "acptdd", ds_grd_acptspclist.getColumn(iNo, "acptdd"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "ptno", ds_grd_acptspclist.getColumn(iNo, "ptno"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "pid", ds_grd_acptspclist.getColumn(iNo, "pid"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "patnm", ds_grd_acptspclist.getColumn(iNo, "patnm"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "sexage", ds_grd_acptspclist.getColumn(iNo, "sexage"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "orddeptnm", ds_grd_acptspclist.getColumn(iNo, "orddeptnm"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "orddrnm", ds_grd_acptspclist.getColumn(iNo, "orddrnm"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "wardroom", ds_grd_acptspclist.getColumn(iNo, "wardroom"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "maxseqno", ds_grd_acptspclist.getColumn(iNo, "maxseqno"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "reqfrmno", ds_grd_acptspclist.getColumn(iNo, "reqfrmno"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "workflagcd", ds_grd_acptspclist.getColumn(iNo, "workflagcd"));
			ds_prntinfo_acptspclist.setColumn(iCnt, "isolabbrcd", ds_grd_acptspclist.getColumn(iNo, "isolabbrcd"));
			//ds_prntinfo_acptspclist.setColumn(iCnt, "choi", ds_grd_acptspclist.getColumn(iNo, "choi"));
			//ds_prntinfo_acptspclist.setColumn(iNo, "choi", ds_grd_acptspclist.
//			ds_prntinfo_acptspclist.copyData(ds_grd_acptspclist);
//			ds_prntinfo_acptspclist.filterstr = "choi == 1";
			
				// 0:접수바코드,  1:이송(전달)바코드
				// 검체순번을 채혈바코드는 검체명 옆에 붙이고, 접수바코드는 병리번호 옆에 붙인다.
				if( ds_init.getColumn(0, "barcdtype") == "1")
				{
				
					sSpcNm = Number(ds_grd_acptspclist.getColumn(iNo, "spcacptseqno")) + "/";
					sSpcNm += Number(ds_grd_acptspclist.getColumn(iNo, "maxseqno"));
					sSpcNm += " " + ds_grd_acptspclist.getColumn(iNo, "spcdispnm");

					//dsf_makeValue(ds_prntinfo_acptspclist, "spcdispnm", sSpcNm, iNo);
					ds_prntinfo_acptspclist.setColumn(iCnt, "spcdispnm", sSpcNm);
					
					//원처방표시명	
					sPrcpNm = ds_grd_acptspclist.getColumn(iNo, "testnmlist");
					if (!utlf_isNull(sPrcpNm))
					{
					    sPrcpNm = sPrcpNm.replace(re, ",");
					}
					//dsf_makeValue(ds_prntinfo_acptspclist, "prntprcpdispnm", "string",sPrcpNm);
					ds_prntinfo_acptspclist.setColumn(iCnt, "prntprcpdispnm", sPrcpNm);
				
					sPrntPrcpDispNm2 = ds_grd_acptspclist.getColumn(iNo, "prntprcpdispnm2");
					sPrntPrcpDispNm2 = sPrntPrcpDispNm2.replace("▨", ",");
					//dsf_makeValue(ds_prntinfo_acptspclist, "prntprcpdispnm2", sPrntPrcpDispNm2, iNo);
					ds_prntinfo_acptspclist.setColumn(iCnt, "prntprcpdispnm2", sPrntPrcpDispNm2);
				} 
				else
				{  
					//dsf_makeValue(ds_prntinfo_acptspclist, "spcdispnm", "string", ds_grd_acptspclist.getColumn(iNo, "spcnm"));
					ds_prntinfo_acptspclist.setColumn(iCnt, "spcdispnm", ds_grd_acptspclist.getColumn(iNo, "spcnm"));
				
					sSpcNm = ds_grd_acptspclist.getColumn(iNo, "dispptno") + " ";
					
					sSpcNm += Number(ds_grd_acptspclist.getColumn(iNo, "spcacptseqno")) + "/";
					sSpcNm += Number(ds_grd_acptspclist.getColumn(iNo, "maxseqno"));
					//dsf_makeValue(ds_prntinfo_acptspclist, "dispptno", "string",sSpcNm);
					ds_prntinfo_acptspclist.setColumn(iCnt, "dispptno", sSpcNm);
					
					sPrcpNm = ds_grd_acptspclist.getColumn(iNo, "testnmlist");
					if (!utlf_isNull(sPrcpNm))
					{
					    sPrcpNm = sPrcpNm.replace(re, ",");
					}
					
					//dsf_makeValue(ds_prntinfo_acptspclist, "prcpdispnm", "string",sPrcpNm);
					ds_prntinfo_acptspclist.setColumn(iCnt, "prcpdispnm", sPrcpNm);
				}
				
				iCnt++;
				
				bState = true;
		}
	}
	trace("bState="+bState);
	if (bState) 
	{
		lpzfAcptBarCd(ds_init.getColumn(0,"barcdtype"), ds_barcdprntsetup, ds_prntinfo_acptspclist);	  
	}
}

//의뢰지출력
function fExeReqFrmPrnt()
{
	for(var iNo = 0; iNo < ds_grd_acptspclist.rowcount; iNo++)
	{
	  if ((ds_grd_acptspclist.getColumn(iNo, "choi") == "1") || (ds_grd_acptspclist.getColumn(iNo, "choi") == "true"))
		{
			if(ds_grd_acptspclist.getColumn(iNo, "reqfrmno") != "0")
			{
			    var nPrcpgenrflag = "O";
			    if (ds_grd_acptspclist.getColumn(iNo, "prcpgenrflag") == "건진")
			    {
			          nPrcpgenrflag = "S";
				}
				else if(ds_grd_acptspclist.getColumn(iNo, "prcpgenrflag") == "건진")
				{
					nPrcpgenrflag = "S";
				}
				else
				{
			          nPrcpgenrflag = "I";
				}
			    
				dsf_createDsRow("ds_init_prntinfo", [{col : "ptno", val : ds_grd_acptspclist.getColumn(iNo, "ptno")}	// 병리번호
				                                    ,{col : "pid", val : ds_grd_acptspclist.getColumn(iNo, "pid")}	//
				                                    ,{col : "acptdd", val : ds_grd_acptspclist.getColumn(iNo, "acptdd")}	
				                                    ,{col : "prcpgenrflag", val : nPrcpgenrflag}	
				                                    ,{col : "reptflagcd", val : "0"}	// 의뢰지(0), 보고서(1)
				                                    ,{col : "adddiagprtn", val : ds_grd_acptspclist.getColumn(iNo, "adddiagprtn")}
				                                    ,{col : "adddiaglist", val : ds_grd_acptspclist.getColumn(iNo, "adddiaglist")}
				                                    ,{col : "addrsltlist", val : ds_grd_acptspclist.getColumn(iNo, "addrsltlist")}
												    ,{col : "prntflagcd", val : "0"}	// 출력(0),   미리보기(1)
												    ,{col : "copyflagcd", val : "0"}]); 
				lpzfExeFrmPrnt(ds_init_prntinfo);
			}
		}
	}
}


			
//보고서출력
function fExeReprtFrmPrnt()
{
	for(var iNo = 0; iNo < ds_grd_acptspclist.rowcount; iNo++)
	{
       if ((ds_grd_acptspclist.getColumn(iNo, "choi") == "1") || (ds_grd_acptspclist.getColumn(iNo, "choi") == "true"))
		{
		
   		    var nPrcpgenrflag = "O";
			if (ds_grd_acptspclist.getColumn(iNo, "prcpgenrflag") == "건진")
			{
				  nPrcpgenrflag = "S";
			}
			else if(ds_grd_acptspclist.getColumn(iNo, "prcpgenrflag") == "건진")
			{
				  nPrcpgenrflag = "S";
			}
			else
			{
				nPrcpgenrflag = "I";
			}
			 
			dsf_createDsRow("ds_init_prntinfo", [{col : "ptno", val : ds_grd_acptspclist.getColumn(iNo, "ptno")}	// 병리번호
												,{col : "pid", val : ds_grd_acptspclist.getColumn(iNo, "pid")}	//
												,{col : "acptdd", val : ds_grd_acptspclist.getColumn(iNo, "acptdd")}	
												//,{col : "prcpgenrflag", val : nPrcpgenrflag}	
												,{col : "reptflagcd", val : "1"}	// 의뢰지(0), 보고서(1)
												,{col : "adddiagprtn", val : ds_grd_acptspclist.getColumn(iNo, "adddiagprtn")}
												,{col : "adddiaglist", val : ds_grd_acptspclist.getColumn(iNo, "adddiaglist")}
												,{col : "addrsltlist", val : ds_grd_acptspclist.getColumn(iNo, "addrsltlist")}
												,{col : "prntflagcd", val : "0"}	// 출력(0),   미리보기(1)
												,{col : "copyflagcd", val : "0"}]); 
			//return true;
			lpzfExeFrmPrnt(ds_init_prntinfo);
		}
	}
}
				
//프린터설정
function fExeBarCdPopupCall()
{
	var objArg = new Object();
	objArg.arg_sSetupInfo = ds_barcdprntsetup.getColumn(0,"prntsetupinfo");
	objArg.arg_sCallBackFunction = "lf_convertXmlToDs";
	frmf_open("SPLLC90100", "SPLLC90100", objArg, "", "", "", "", "", "", "", "", "", "M");	
}

//조회
function grp_biz_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetPatList();
}

//조회
function grp_biz_ipt_ordddto_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		fGetPatList();
	}
}

//닫기
function grp_btn_btn_exit_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

//프린터설정
function grp_btn_button26_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeBarCdPopupCall();
}

//바코드출력
function grp_btn_btn_prnt_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeBarCdPrnt();
}

//의뢰지출력
function grp_btn_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeReqFrmPrnt();
}

//보고서출력
function grp_btn_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeReprtFrmPrnt();
}

function grp_biz_ipt_refval_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		ds_init.setColumn(0, "refval", obj.value);
		fGetPatList();
	}
}
]]></Script>
  </Form>
</FDL>