YNU_JEUS/app_home/himed/xpapps/ast/healexamxp/xp/SPAHB00600_검사코드선택.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPAHB00600" position="absolute 0 0 524 495" titletext="검사코드선택" oninit="SPAHB00600_oninit" onload="SPAHB00600_onload">
    <Layouts>
      <Layout>
        <Div id="group2" taborder="1" class="div_SA2" position="absolute 0 0 517 40">
          <Layouts>
            <Layout>
              <Button id="btn_search" taborder="1" text="조회" class="btn1" position="absolute 445 9 501 31" onclick="group2_btn_search_onclick"/>
              <Shape id="line13" linetype="vertical" position="absolute 426 9 432 31"/>
              <Edit id="ipt_testnm" taborder="2" autoselect="true" autoskip="true" class="input_search" position="absolute 266 10 416 29" onkeyup="group2_ipt_testnm_onkeyup"/>
              <Edit id="ipt_testcd" taborder="3" autoselect="true" autoskip="true" class="input_search" position="absolute 75 10 185 29" onkeyup="group2_ipt_testcd_onkeyup"/>
              <Static id="caption1" text="명칭 :" class="search_name" position="absolute 200 10 260 27"/>
              <Static id="caption2" text="코드:" class="search_name" position="absolute 16 10 75 27"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape id="line1" class="line_10" position="absolute 0 47 517 53"/>
        <Grid id="grd_testlst" taborder="2" binddataset="ds_main_testcdlst_item1" useinputpanel="false" position="absolute 0 52 517 462" autoenter="select" cellsizingtype="col" oncelldblclick="grd_testlst_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="20"/>
                <Column size="30"/>
                <Column size="100"/>
                <Column size="200"/>
                <Column size="200"/>
              </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="검사명(한)"/>
                <Cell col="4" text="검사명(영)"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:sel" expr="expr:sel == 'Y' ? 1 : 0"/>
                <Cell col="2" style="align:left middle;padding:0 0 0 3;" text="bind:testcd"/>
                <Cell col="3" style="align:left middle;padding:0 0 0 3;" text="bind:testnm"/>
                <Cell col="4" style="align:left middle;padding:0 0 0 3;" text="bind:testengnm" wordwrap="word"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_confirm" taborder="3" text="확인" class="btn4" position="absolute 402 465 458 487" onclick="btn_confirm_onclick"/>
        <Button id="btn_cancel" taborder="4" text="취소" class="btn4" position="absolute 461 465 517 487" onclick="btn_cancel_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchtestcd" type="STRING" size="256"/>
          <Column id="srchtestnm" type="STRING" size="256"/>
          <Column id="srchinstcd" type="STRING" size="256"/>
          <Column id="srchhealexamflag" type="STRING" size="256"/>
          <Column id="srchuseyn" type="STRING" size="256"/>
          <Column id="srchcond" type="STRING" size="256"/>
          <Column id="srchendyn" type="STRING" size="256"/>
          <Column id="srchdate" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="srchtestcd"/>
            <Col id="srchtestnm"/>
            <Col id="srchinstcd"/>
            <Col id="srchhealexamflag"/>
            <Col id="srchuseyn"/>
            <Col id="srchcond"/>
            <Col id="srchendyn"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_testcdlst_item1" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_testcdlst_item1_oncolumnchanged">
        <ColumnInfo>
          <Column id="sel" type="STRING" size="256" sumtext="선택 "/>
          <Column id="testcdkey" type="STRING" size="256" sumtext="검사코드                  "/>
          <Column id="testcd" type="STRING" size="256" sumtext="검사코드                  "/>
          <Column id="testnm" type="STRING" size="256" sumtext="검사명                    "/>
          <Column id="testengnm" type="STRING" size="256" sumtext="검사명(영문)              "/>
          <Column id="rsltflag" type="STRING" size="256" sumtext="결과구분                  "/>
          <Column id="choicnt" type="INT" size="256" sumtext="선택수                    "/>
          <Column id="rsltunit" type="STRING" size="256" sumtext="결과단위                  "/>
          <Column id="healthamt" type="INT" size="256" sumtext="종합단가"/>
          <Column id="healamt" type="INT" size="256" sumtext="공단단가"/>
          <Column id="basersltval" type="STRING" size="256" sumtext="기본결과값                "/>
          <Column id="rsrvprcptrsmyn" type="STRING" size="256" sumtext="예약상태처방전송여부      "/>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="수가코드                  "/>
          <Column id="calcscornm" type="STRING" size="256" sumtext="수가명                    "/>
          <Column id="spccd" type="STRING" size="256" sumtext="검체코드                  "/>
          <Column id="spcnm" type="STRING" size="256" sumtext="검체명                    "/>
          <Column id="outrsrvyn" type="STRING" size="256" sumtext="외부예약여부              "/>
          <Column id="outtestroomcd" type="STRING" size="256" sumtext="외부검사실코드            "/>
          <Column id="outtestdeptcd" type="STRING" size="256" sumtext="외부검사부서코드          "/>
          <Column id="outrsltyn" type="STRING" size="256" sumtext="외부결과여부              "/>
          <Column id="outacptyn" type="STRING" size="256" sumtext="외부검사접수여부          "/>
          <Column id="physmeasyn" type="STRING" size="256" sumtext="신체계측정보여부          "/>
          <Column id="reptprntgrupcd" type="STRING" size="256" sumtext="보고서 출력그룹코드       "/>
          <Column id="reptprntyn" type="STRING" size="256" sumtext="보고서 출력여부           "/>
          <Column id="reptprntno" type="INT" size="256" sumtext="보고서 출력번호  "/>
          <Column id="judgrsltprntyn" type="STRING" size="256" sumtext="판정결과출력여부      "/>
          <Column id="autjudgyn" type="STRING" size="256" sumtext="자동판정여부           "/>
          <Column id="stndvalprntyn" type="STRING" size="256" sumtext="기준치출력여부        "/>
          <Column id="stndval" type="STRING" size="256" sumtext="기준치정보               "/>
          <Column id="rval" type="STRING" size="256" sumtext="참고치                    "/>
          <Column id="engrval" type="STRING" size="256" sumtext="참고치(영문)              "/>
          <Column id="remcnts" type="STRING" size="256" sumtext="관련질환 및 참고내용      "/>
          <Column id="engremcnts" type="STRING" size="256" sumtext="관련질환 및 참고내용(영)"/>
          <Column id="grupcd" type="STRING" size="256" sumtext="[기본값]그룹코드          "/>
          <Column id="dispseq" type="INT" size="256" sumtext="[기본값]조회순서          "/>
          <Column id="testroomcd" type="STRING" size="256" sumtext="[기본값]검사실코드        "/>
          <Column id="testroomnm" type="STRING" size="256" sumtext="[기본값]검사실명         "/>
          <Column id="gndrflag" type="STRING" size="256" sumtext="남여구분         "/>
          <Column id="uncoflag" type="STRING" size="256" sumtext="미수구분                  "/>
          <Column id="useyn" type="STRING" size="256" sumtext="사용여부                  "/>
          <Column id="scoreamt" type="INT" size="256" sumtext="수가                  "/>
          <Column id="oldordcd" type="STRING" size="256" sumtext="구코드"/>
          <Column id="lastupdtrid" type="STRING" size="256" sumtext="최종수정자"/>
          <Column id="lastupdtdt" type="STRING" size="256" sumtext="최종수정일시"/>
          <Column id="fromdd" type="STRING" size="256" sumtext="시작일자"/>
          <Column id="todd" type="STRING" size="256" sumtext="종료일자"/>
          <Column id="endyn" type="STRING" size="256" sumtext="종료여부"/>
          <Column id="addyn" type="STRING" size="256" sumtext="추가검사여부"/>
          <Column id="itslfcalcscoryn" type="STRING" size="256" sumtext="자체수가여부"/>
          <Column id="calcscoramt" type="STRING" size="256" sumtext="자체수가금액"/>
          <Column id="testdesc" type="STRING" size="256" sumtext="검사에대한설명"/>
          <Column id="degnitemlevlcd" type="STRING" size="256" sumtext="건진구분"/>
          <Column id="discyn" type="STRING" size="256" sumtext="할인적용여부"/>
          <Column id="bioageyn" type="STRING" size="256" sumtext="bioage사용여부"/>
          <Column id="bioageprntno" type="INT" size="256" sumtext="bioage출력시번호"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="sel" type="STRING" size="256" sumtext="선택 "/>
          <Column id="testcdkey" type="STRING" size="256" sumtext="검사코드                  "/>
          <Column id="testcd" type="STRING" size="256" sumtext="검사코드                  "/>
          <Column id="testnm" type="STRING" size="256" sumtext="검사명                    "/>
          <Column id="testengnm" type="STRING" size="256" sumtext="검사명(영문)              "/>
          <Column id="rsltflag" type="STRING" size="256" sumtext="결과구분                  "/>
          <Column id="choicnt" type="INT" size="256" sumtext="선택수                    "/>
          <Column id="rsltunit" type="STRING" size="256" sumtext="결과단위                  "/>
          <Column id="healthamt" type="INT" size="256" sumtext="종합단가"/>
          <Column id="healamt" type="INT" size="256" sumtext="공단단가"/>
          <Column id="basersltval" type="STRING" size="256" sumtext="기본결과값                "/>
          <Column id="rsrvprcptrsmyn" type="STRING" size="256" sumtext="예약상태처방전송여부      "/>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="수가코드                  "/>
          <Column id="calcscornm" type="STRING" size="256" sumtext="수가명                    "/>
          <Column id="spccd" type="STRING" size="256" sumtext="검체코드                  "/>
          <Column id="spcnm" type="STRING" size="256" sumtext="검체명                    "/>
          <Column id="outrsrvyn" type="STRING" size="256" sumtext="외부예약여부              "/>
          <Column id="outtestroomcd" type="STRING" size="256" sumtext="외부검사실코드            "/>
          <Column id="outtestdeptcd" type="STRING" size="256" sumtext="외부검사부서코드          "/>
          <Column id="outrsltyn" type="STRING" size="256" sumtext="외부결과여부              "/>
          <Column id="outacptyn" type="STRING" size="256" sumtext="외부검사접수여부          "/>
          <Column id="physmeasyn" type="STRING" size="256" sumtext="신체계측정보여부          "/>
          <Column id="reptprntgrupcd" type="STRING" size="256" sumtext="보고서 출력그룹코드       "/>
          <Column id="reptprntyn" type="STRING" size="256" sumtext="보고서 출력여부           "/>
          <Column id="reptprntno" type="INT" size="256" sumtext="보고서 출력번호  "/>
          <Column id="judgrsltprntyn" type="STRING" size="256" sumtext="판정결과출력여부      "/>
          <Column id="autjudgyn" type="STRING" size="256" sumtext="자동판정여부           "/>
          <Column id="stndvalprntyn" type="STRING" size="256" sumtext="기준치출력여부        "/>
          <Column id="stndval" type="STRING" size="256" sumtext="기준치정보               "/>
          <Column id="rval" type="STRING" size="256" sumtext="참고치                    "/>
          <Column id="engrval" type="STRING" size="256" sumtext="참고치(영문)              "/>
          <Column id="remcnts" type="STRING" size="256" sumtext="관련질환 및 참고내용      "/>
          <Column id="engremcnts" type="STRING" size="256" sumtext="관련질환 및 참고내용(영)"/>
          <Column id="grupcd" type="STRING" size="256" sumtext="[기본값]그룹코드          "/>
          <Column id="dispseq" type="INT" size="256" sumtext="[기본값]조회순서          "/>
          <Column id="testroomcd" type="STRING" size="256" sumtext="[기본값]검사실코드        "/>
          <Column id="testroomnm" type="STRING" size="256" sumtext="[기본값]검사실명         "/>
          <Column id="gndrflag" type="STRING" size="256" sumtext="남여구분         "/>
          <Column id="uncoflag" type="STRING" size="256" sumtext="미수구분                  "/>
          <Column id="useyn" type="STRING" size="256" sumtext="사용여부                  "/>
          <Column id="scoreamt" type="INT" size="256" sumtext="수가                  "/>
          <Column id="oldordcd" type="STRING" size="256" sumtext="구코드"/>
          <Column id="lastupdtrid" type="STRING" size="256" sumtext="최종수정자"/>
          <Column id="lastupdtdt" type="STRING" size="256" sumtext="최종수정일시"/>
          <Column id="fromdd" type="STRING" size="256" sumtext="시작일자"/>
          <Column id="todd" type="STRING" size="256" sumtext="종료일자"/>
          <Column id="endyn" type="STRING" size="256" sumtext="종료여부"/>
          <Column id="addyn" type="STRING" size="256" sumtext="추가검사여부"/>
          <Column id="itslfcalcscoryn" type="STRING" size="256" sumtext="자체수가여부"/>
          <Column id="calcscoramt" type="STRING" size="256" sumtext="자체수가금액"/>
          <Column id="testdesc" type="STRING" size="256" sumtext="검사에대한설명"/>
          <Column id="degnitemlevlcd" type="STRING" size="256" sumtext="건진구분"/>
          <Column id="discyn" type="STRING" size="256" sumtext="할인적용여부"/>
          <Column id="bioageyn" type="STRING" size="256" sumtext="bioage사용여부"/>
          <Column id="bioageprntno" type="INT" size="256" sumtext="bioage출력시번호"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.ipt_testcd" propid="value" datasetid="ds_send" columnid="srchtestcd"/>
      <BindItem id="item1" compid="group2.ipt_testnm" propid="value" datasetid="ds_send" columnid="srchtestnm"/>
    </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 "ast_healexamxp::AHA001.xjs";
include "ast_healthexambasexp::healcombolist.xjs";
function SPAHB00600_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPAHB00600_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_testlst);

	fInit();
	fGetTestList();
}

function fInit()
{
	ds_main_testcdlst_item1.clearData();
	if( frmf_checkOpener() )
	{
		var receiveref = eval("opener.ds_temp");
		opener.dsf_makeValue(receiveref, "okflag", "string", "", 0);
		
		group2.ipt_testcd.value = opener.frmf_getParameter("SPAHB00200_PARAM2");
		group2.ipt_testnm.value = opener.frmf_getParameter("SPAHB00200_PARAM3");
	}
	group2.ipt_testnm.setFocus();
}

function fGetTestList()
{
	var vCmpycd = sysf_getUserInfo("dutplceinstcd"); 
	if(utlf_isNull(vCmpycd)) return ; 
	
	ds_send.setColumn(0, "srchendyn","N") ; 
	ds_send.setColumn(0, "srchinstcd",vCmpycd) ; 
	ds_send.setColumn(0, "srchhealexamflag",fGetHealExamFlag());
	ds_send.setColumn(0, "srchdate", utlf_getCurrentDate());
	
	var oParam = {};
		oParam.id          = "TRAHB00101";
		oParam.service     = "healexambaseapp.TestCode";
		oParam.method      = "reqGetTestCdList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_testcdlst_item1=item1";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHB00101";

	tranf_submit(oParam);
}

function grd_testlst_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var idx = e.row;
	if(idx > -1)
	{
		ds_main_testcdlst_item1.setColumn(idx, "sel", "Y");		
		fSetData("Y");
	}	
}

function fSetData(vMulti)
{
	if( !frmf_checkOpener() ) return ;

	var vCount 	= opener.frmf_getParameter("SPAHB00600_PARAM4");
	var vDestXPath	= opener.frmf_getParameter("SPAHB00600_PARAM5");

	var  vTestCdPath, vTestNmPath,vTestCd, vTestCd2;
	var bDup = false;
	var k = vCount ;
	
	if( vMulti == "Y" )
	{
		for(var i = 0; i < ds_main_testcdlst_item1.rowcount; i++)
		{
			if(ds_main_testcdlst_item1.getColumn(i, "sel") == "Y")
			{
				ds_temp_list.copyRow(ds_temp_list.addRow(), ds_main_testcdlst_item1, i);
			}
		}
		
		var cnt = ds_temp_list.rowcount;
		
		for(var i = 0 ; i < cnt ; i++) 
		{
			vTestCd = ds_temp_list.getColumn(i, "testcd");
			bDup = false;
			
			for(var j = 0 ; j < vCount ; j++)
			{
				vTestCd2 = vDestXPath.getColumn(j, "testcd") ;

				if( vTestCd ==  vTestCd2) 
				{
					bDup = true;
					break;
				}
			}
			
			if( !bDup ) 
			{
				opener.dsf_makeValue(vDestXPath, "testcd", "string", ds_temp_list.getColumn(i, "testcd"), k);
				opener.dsf_makeValue(vDestXPath, "testnm", "string", ds_temp_list.getColumn(i, "testnm"), k);
				
				k++;
			}
		}
		
		opener.ds_temp.setColumn(0, "okflag", "Y") ; 
		
		this.close();
	}		
}

function ds_main_testcdlst_item1_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "sel")
	{
		obj.setColumn(e.row, "sel", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
}

function btn_cancel_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

function btn_confirm_onclick(obj:Button,  e:ClickEventInfo)
{
	var idx = ds_main_testcdlst_item1.rowposition;
	if(idx > -1)
	{
		ds_main_testcdlst_item1.setColumn(idx, "sel", "Y");
		fSetData("Y");
	}
	else
	{
		this.close();
	}
}

function group2_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetTestList();
}

function group2_ipt_testcd_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode==13){
		obj.updateToDataset();
		fGetTestList();
	}
}

function group2_ipt_testnm_onkeyup(obj:Edit, e:KeyEventInfo)
{
		if(e.keycode==13){
		obj.updateToDataset();
		fGetTestList();
	}
}
]]></Script>
  </Form>
</FDL>