YNU_JEUS/app_home/himed/xpapps/ast/examcurexp/xp/SPAEB00500_검사치료코드조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPAEB00500" position="absolute 0 0 1005 630" titletext="검사치료코드관리" oninit="SPAEB00500_oninit" onload="SPAEB00500_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="검사/치료코드조회" class="tit_1" position="absolute 0 0 190 24"/>
        <Div id="grp_sea" anchor="left top right" taborder="1" class="div_SA" position="absolute 0 24 1000 64">
          <Layouts>
            <Layout>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 924 8 930 30" anchor="top right"/>
              <Button id="btn_sea" taborder="2" text="조회" class="btn1" position="absolute 938 8 994 30" anchor="top right"/>
              <Static id="caption2" text="검사코드 :" class="search_name" position="absolute 8 11 86 28"/>
              <Edit id="ipt_srchexamcurecd" taborder="3" class="input_search" position="absolute 87 10 202 29"/>
              <Edit id="ipt_srchexamcurenm" taborder="4" class="input_search" position="absolute 314 10 463 29"/>
              <Static id="caption3" text="검사코드명 :" class="search_name" position="absolute 222 11 322 28"/>
              <Combo id="cmb_deptcd" taborder="5" innerdataset="@ds_init_cmb_info_suppdept" codecolumn="suppdeptcd" datacolumn="depthngnm" position="absolute 569 10 694 29"/>
              <Static id="caption5" text="지원부서 :" class="search_name" position="absolute 490 11 576 28"/>
              <Static id="caption7" text="검사실 :" class="search_name" position="absolute 718 11 791 28"/>
              <Combo id="cmb_excuroom" taborder="6" innerdataset="@ds_init_cmb_info_initexecroom" codecolumn="basecd" datacolumn="basecdflagdesc" class="combo_default" position="absolute 788 10 908 29"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape id="line1" class="line_10" position="absolute 0 89 1000 95"/>
        <Grid id="grd_examcurecdlist" taborder="2" binddataset="ds_main_examcurecdlist_item" useinputpanel="false" position="absolute 0 94 1000 597" autoenter="select" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="35" band="left"/>
                <Column size="30"/>
                <Column size="97"/>
                <Column size="331"/>
                <Column size="61"/>
                <Column size="100"/>
                <Column size="50"/>
                <Column size="292"/>
                <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="비고"/>
                <Cell col="8" text="부서코드"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:check" expr="expr:check == 'Y' || check == '1' ? 1 : 0"/>
                <Cell col="2" edittype="none" style="align:left middle;padding:0 0 0 2;" text="bind:excucd"/>
                <Cell col="3" edittype="none" style="align:left middle;padding:0 0 0 2;" text="bind:excucdnm"/>
                <Cell col="4" displaytype="combo" style="align:center middle;" text="bind:rsrvplceflag" combodataset="ds_init_baseinfo_initrsrvplceflag_A0073" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="5" displaytype="combo" style="align:left middle;padding:0 0 0 10;" text="bind:prcpexecdeptcd" combodataset="ds_init_dept_info_initprcpexecdeptcd" combocodecol="prcpexecdeptcdid" combodatacol="prcpexecdeptcdnm" enable="false"/>
                <Cell col="6" displaytype="checkbox" edittype="checkbox" text="bind:angiouseyn" expr="expr:angiouseyn == 'Y' || angiouseyn == '1' ? 1 : 0"/>
                <Cell col="7" displaytype="none" edittype="none" text="bind:excurem"/>
                <Cell col="8" text="bind:basesuppdeptcd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption1" text="검사/치료 코드 현황" class="tit_2" position="absolute 0 73 146 95"/>
        <Button id="button12" taborder="4" text="엑셀저장" class="btn7" position="absolute 919 70 999 89" anchor="top right" onclick="button12_onclick"/>
        <Button id="btn_close" taborder="5" text="닫기" class="btn4" position="absolute 944 600 1000 622" onclick="btn_close_onclick"/>
        <Button id="button1" taborder="6" text="확인" class="btn4" position="absolute 886 600 942 622" onclick="button1_onclick"/>
        <Static id="caption8" text="간격" class="cell_1" position="absolute 722 600 794 622" style="padding:0 0 0 0;align:center middle;"/>
        <Static id="caption4" text="우선순위" class="cell_1" position="absolute 572 600 644 622" style="padding:0 0 0 0;align:center middle;"/>
        <Edit id="input1" taborder="7" position="absolute 646 601 716 620" style="align:right middle;"/>
        <Edit id="input2" taborder="8" position="absolute 796 602 866 621" style="align:right middle;"/>
      </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="srchexamcurecd" type="STRING" size="256"/>
          <Column id="srchexamcurenm" type="STRING" size="256"/>
          <Column id="windowloadinstance" type="STRING" size="256"/>
          <Column id="newoldyb" type="STRING" size="256"/>
          <Column id="excuroomcd" type="STRING" size="256"/>
          <Column id="srchrsltclscd1" type="STRING" size="256"/>
          <Column id="grupcdid" type="STRING" size="256"/>
          <Column id="basesuppdeptcd" type="STRING" size="256"/>
          <Column id="suppdeptcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="srchexamcurecd"/>
            <Col id="srchexamcurenm"/>
            <Col id="windowloadinstance">SMAEB00200</Col>
            <Col id="newoldyb">1</Col>
            <Col id="excuroomcd"/>
            <Col id="srchrsltclscd1"/>
            <Col id="grupcdid"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_cmb_info_suppdept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="suppdeptcd" type="STRING" size="256" sumtext="부서코드"/>
          <Column id="depthngnm" type="STRING" size="256" sumtext="부서명"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_info_initexecroom" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="basecd" type="STRING" size="256" sumtext="검사실코드"/>
          <Column id="basecdflagdesc" type="STRING" size="256" sumtext="검사실코드"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_examcurecdlist_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_examcurecdlist_item_oncolumnchanged">
        <ColumnInfo>
          <Column id="check" type="STRING" size="256" sumtext="부서코드"/>
          <Column id="excucd" type="STRING" size="256" sumtext="검사코드"/>
          <Column id="excucdnm" type="STRING" size="256" sumtext="검사코드명"/>
          <Column id="rsrvplceflag" type="STRING" size="256" sumtext="예약주체구분"/>
          <Column id="prcpexecdeptcd" type="STRING" size="256" sumtext="수가수행부서"/>
          <Column id="excurem" type="STRING" size="256" sumtext="비고"/>
          <Column id="suppdeptcd" type="STRING" size="256" sumtext="지원부서코드"/>
          <Column id="angiouseyn" type="STRING" size="256" sumtext="조영제사용유무"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_baseinfo_initrsrvplceflag_A0073" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_dept_info_initprcpexecdeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden1_initsystmdl" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rsltclscd2" type="STRING" size="256"/>
          <Column id="rsltclsnm2" type="STRING" size="256"/>
          <Column id="basecdcnts" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="rsltclscd2"/>
            <Col id="rsltclsnm2"/>
            <Col id="basecdcnts"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_cmb_info_initsystmdl" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rsltclscd2" type="STRING" size="256"/>
          <Column id="rsltclsnm2" type="STRING" size="256"/>
          <Column id="basecdcnts" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="rsltclscd2"/>
            <Col id="rsltclsnm2"/>
            <Col id="basecdcnts"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="templst" type="STRING" size="256"/>
          <Column id="excutm" type="STRING" size="256"/>
          <Column id="sortno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="templst"/>
            <Col id="excutm">0</Col>
            <Col id="sortno">1</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.ipt_srchexamcurecd" propid="value" datasetid="ds_send" columnid="srchexamcurecd"/>
      <BindItem id="item1" compid="grp_sea.ipt_srchexamcurenm" propid="value" datasetid="ds_send" columnid="srchexamcurenm"/>
      <BindItem id="item2" compid="grp_sea.cmb_excuroom" propid="value" datasetid="ds_send" columnid="excuroomcd"/>
      <BindItem id="item3" compid="input1" propid="value" datasetid="ds_temp" columnid="sortno"/>
      <BindItem id="item4" compid="input2" propid="value" datasetid="ds_temp" columnid="excutm"/>
    </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_examcurexp::AEZ0001.xjs";

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

function SPAEB00500_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_examcurecdlist);
	grdf_setToolTipBind(grd_examcurecdlist)
	
	var arrParam = [{dsNm: "ds_init_baseinfo_initexecbaseflag_A0071", cdGrpId: "A0071"}
				   ,{dsNm: "ds_init_baseinfo_initioexamflag_A0072", cdGrpId: "A0072"}
				   ,{dsNm: "ds_init_baseinfo_initrsrvplceflag_A0073", cdGrpId: "A0073"}
				   ,{dsNm: "ds_init_baseinfo_excuclscd_A0463", cdGrpId: "A0463"}
				   ,{dsNm: "ds_init_baseinfo_rsltclscd1_A0481", cdGrpId: "A0481"}
				   ,{dsNm: "ds_init_baseinfo_initeqmtifyn_A0502", cdGrpId: "A0502"}
				   ,{dsNm: "ds_init_baseinfo_initpacsnocretyn_A0501", cdGrpId: "A0501"}]
	appf_getCodeList(arrParam); 
	
	//zbcfGetSubCodeList("A0481", "", "A0482", "cdnm", "asc", "true", "/root/init/baseinfo1/rsltclscd2");
	//submit("TRZBC00101", false);
	
	dsf_createDsRow("ds_reqparam", [{col:"basesuppdeptcd", type:"STRING", size:256 , val : suppdeptcd}
								 ,  {col:"rbasecdflag", type:"STRING", size:256 , val : ""}
								 ,  {col:"ebasecdflag", type:"STRING", size:256 , val : ""}
								 ,  {col:"instcd", type:"STRING", size:256 , val : ""}
								 ,  {col:"initflag", type:"STRING", size:256 , val : ""}
								 ,  {col:"alladdyn", type:"STRING", size:256 , val : ""}
								 ,  {col:"basecd", type:"STRING", size:256 , val : ""}
								 ,  {col:"bbasecdflag", type:"STRING", size:256 , val : ""}]);
	dsf_setFixVal(ds_reqparam, "rbasecdflag:R,ebasecdflag:E,initflag:1");
	var oParam = {};
		oParam.id          = "TRAEA01301";
		oParam.service     = "examcureacptexecapp.ExamCureAcpt";
		oParam.method      = "reqGetInitExamCureRoomGrpCodeList";
		oParam.inds        = "reqparam=ds_reqparam";
		oParam.outds       = "ds_=initexcuroomgrp "
							+"ds_=initexcuroomgrp2 "
							+"ds_init_cmb_info_initexecroom=initexcuroom "
							+"ds_=initexecrid "
							+"ds_=initexecrid "
							+"ds_=initexecrid "
							+"ds_=initexecrid "
							+"ds_=initexcuward "
							+"ds_init_cmb_info_suppdept=suppdept "
							+"ds_=initsystgrd "
							+"ds_init_cmb_info_initsystmdl=initsystmdl "
							+"ds_=initsystchief";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAEA01301";

	tranf_submit(oParam);
	
	//submit("TRAEB00601", false);		// 부위코드 가져오기	
	
	var oParam = {};
		oParam.id          = "TRAEB00205";
		oParam.service     = "examcurebaseapp.ComCode";
		oParam.method      = "reqGetPrcpExecDeptCdList";
		oParam.inds        = "req=ds_";
		oParam.outds       = "ds_init_dept_info_initprcpexecdeptcd=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAEB00205";

	tranf_submit(oParam);
	
	//submit("TRAEB00206", false);		// 공통 그룹코드 가져오기
	
	ds_send.setColumn(0, "srchexamcurecd", "%");
	ds_send.setColumn(0, "srchexamcurenm", "%");
	ds_send.setColumn(0, "basesuppdeptcd", suppdeptcd);
	ds_send.setColumn(0, "suppdeptcd", suppdeptcd);
	
	var oParam = {};
		oParam.id          = "TRAEB04102";
		oParam.service     = "examcurebaseapp.ExamCureCode";
		oParam.method      = "reqGetExamCureCodeList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_examcurecdlist_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAEB04102";

	tranf_submit(oParam);
	
	ds_main_examcurecdlist_item.updatecontrol = false;
	dsf_setFixVal(ds_main_examcurecdlist_item, "check:N");
	ds_main_examcurecdlist_item.updatecontrol = true;
	
	ds_send.setColumn(0, "srchexamcurecd", "");
	ds_send.setColumn(0, "srchexamcurenm", "");
	
	ds_hidden1_initsystmdl.copyData(ds_init_cmb_info_initsystmdl);
	//model.removeNodeset("/root/main/examcurecdlist/item");
	
	// Section, Modal 등의 공통정보를 가져온다. App단에서 그룹코드별 셋팅을 입력해 놓는다.
	ds_send.setColumn(0, "grupcdid","A");
	//submit("TRAEA01313");
// 	var oParam = {};
// 		oParam.id          = "TRAEA01313";
// 		oParam.service     = "examcureacptexecapp.ExamCureAcpt";
// 		oParam.method      = "reqGetInitCdCodeList";
// 		oParam.inds        = "req=ds_send";
// 		oParam.outds       = "=initsection ds_=initmodal ds_=initrsltgb";
// 		oParam.async       = false;
// 		oParam.callback    = "cf_TRAEA01313";
// 
// 	tranf_submit(oParam);
}

function button12_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_examcurecdlist, "excel", "Sheet1", "true", "", "");
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	if (frmf_checkOpener()) 
	{							
		var check	 = "";
		var excucd 	 = "";
		var excucdnm = "";
		var excurem  = "";
		
		var loopcnt = 0;		
		var loop 	= ds_main_examcurecdlist_item.rowcount;
		var grupcd 	= opener.ds_main_grupcdlist_item.getColumn(opener.ds_main_grupcdlist_item.rowposition, "grupcd");

		for(var i = 0; i < loop; i++) 
		{
			check		= ds_main_examcurecdlist_item.getColumn(i, "check");

			if ( check == "Y" ) 
			{
				var rowcnt 	= opener.ds_main_detlcdlist_item.addRow();
				excucd 		= ds_main_examcurecdlist_item.getColumn(i, "excucd");
				excucdnm 	= ds_main_examcurecdlist_item.getColumn(i, "excucdnm");
				excurem 	= ds_main_examcurecdlist_item.getColumn(i, "excurem");
		
				var receiveref = eval("opener.ds_main_detlcdlist_item");
				opener.dsf_makeValue(receiveref, "m", "string", "i", rowcnt);
				opener.dsf_makeValue(receiveref, "sortno", "string", ds_temp.getColumn(0, "sortno"), rowcnt);
				opener.dsf_makeValue(receiveref, "partgrupcd", "string", grupcd, rowcnt);
				opener.dsf_makeValue(receiveref, "partcd", "string", excucd, rowcnt);
				opener.dsf_makeValue(receiveref, "partdetlcd", "string", "-", rowcnt);
				opener.dsf_makeValue(receiveref, "basecdflagdesc", "string", excucdnm, rowcnt);
				opener.dsf_makeValue(receiveref, "excutm", "string", ds_temp.getColumn(0, "excutm"), rowcnt);
				opener.dsf_makeValue(receiveref, "basecdcnts", "string", excurem, rowcnt);
				opener.dsf_makeValue(receiveref, "suppdeptcd", "string", "", rowcnt);
			}
			loopcnt++;
		}
	}
	this.close();
}

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

function ds_main_examcurecdlist_item_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "check")
	{
		obj.setColumn(e.row, "check", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
}
]]></Script>
  </Form>
</FDL>