YNU_JEUS/app_home/himed/xpapps/pam/aftjudgxp/xp/SMPID24400_KDRG 통계 프로그램.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPID24400" position="absolute 0 0 903 852" titletext="KDRG 통계프로그램" oninit="SMPID24400_oninit" onload="SMPID24400_onload">
    <Layouts>
      <Layout>
        <Tab id="switch1" taborder="4" tabindex="0" position="absolute 1 71 896 842" anchor="all">
          <Tabpages>
            <Tabpage id="case1" text="진료과">
              <Layouts>
                <Layout>
                  <Grid id="grd_kdrglist" class="datagrid3" taborder="0" binddataset="ds_main_kdrglist" useinputpanel="false" autofittype="col" position="absolute 1 26 894 721" anchor="all" cellsizingtype="col">
                    <Formats>
                      <Format id="default">
                        <Columns>
                          <Column size="26"/>
                          <Column size="57"/>
                          <Column size="100"/>
                          <Column size="42"/>
                          <Column size="54"/>
                          <Column size="426"/>
                          <Column size="45"/>
                          <Column size="66"/>
                        </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="MDC"/>
                          <Cell col="4" text="DRG번호"/>
                          <Cell col="5" text="DRG명"/>
                          <Cell col="6" text="환자수"/>
                          <Cell col="7" text="총입원일수"/>
                        </Band>
                        <Band id="body">
                          <Cell celltype="head" expr="currow+1"/>
                          <Cell col="1" text="bind:drgtype"/>
                          <Cell col="2" displaytype="combo" edittype="combo" style="align:center;" text="bind:orddeptcd" combodataset="ds_init_orddeptcd2" combocodecol="cd" combodatacol="nm"/>
                          <Cell col="3" text="bind:mdc"/>
                          <Cell col="4" text="bind:drgno"/>
                          <Cell col="5" text="bind:drgname"/>
                          <Cell col="6" text="bind:pidcnt"/>
                          <Cell col="7" text="bind:chosindaynocnt"/>
                        </Band>
                      </Format>
                    </Formats>
                  </Grid>
                  <Shape id="line1" class="line_1" position="absolute 1 15 894 33" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
                  <Button id="btn_excelsave" taborder="1" text="엑셀저장" onclick="btn_excelsave_onclick" class="btn7" position="absolute 814 2 894 21" anchor="top right"/>
                </Layout>
              </Layouts>
            </Tabpage>
            <Tabpage id="case2" text="진료과별의사별">
              <Layouts>
                <Layout>
                  <Grid id="grd_kdrglist" class="datagrid3" taborder="1" binddataset="ds_main_kdrglist1" useinputpanel="false" autofittype="col" position="absolute 1 26 894 721" anchor="all" cellsizingtype="col">
                    <Formats>
                      <Format id="default">
                        <Columns>
                          <Column size="32"/>
                          <Column size="57"/>
                          <Column size="100"/>
                          <Column size="53"/>
                          <Column size="42"/>
                          <Column size="54"/>
                          <Column size="440"/>
                          <Column size="45"/>
                          <Column size="66"/>
                        </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="MDC"/>
                          <Cell col="5" text="DRG번호"/>
                          <Cell col="6" text="DRG명"/>
                          <Cell col="7" text="환자수"/>
                          <Cell col="8" text="총입원일수"/>
                        </Band>
                        <Band id="body">
                          <Cell celltype="head" expr="currow+1"/>
                          <Cell col="1" text="bind:drgtype"/>
                          <Cell col="2" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:orddeptcd" combodataset="ds_init_orddeptcd2" combocodecol="cd" combodatacol="nm"/>
                          <Cell col="3" displaytype="text" style="align:center middle;" text="bind:orddrnm"/>
                          <Cell col="4" text="bind:mdc"/>
                          <Cell col="5" text="bind:drgno"/>
                          <Cell col="6" text="bind:drgname"/>
                          <Cell col="7" text="bind:pidcnt"/>
                          <Cell col="8" text="bind:chosindaynocnt"/>
                        </Band>
                      </Format>
                    </Formats>
                  </Grid>
                  <Shape id="line1" class="line_1" position="absolute 1 15 894 33" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
                  <Button id="button1" taborder="2" text="엑셀저장" class="btn7" position="absolute 814 2 894 21" anchor="top right" onclick="switch1_case2_button1_onclick"/>
                </Layout>
              </Layouts>
            </Tabpage>
          </Tabpages>
        </Tab>
        <Static id="cap_title" text="KDRG 통계프로그램" class="tit_1" position="absolute 1 0 217 23"/>
        <Div id="group2" taborder="3" class="div_SA" position="absolute 1 24 896 65" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption30" text="청구년월 :" class="search_name" position="absolute 8 11 95 28" anchor="default"/>
              <Static id="caption2" text="~" position="absolute 168 10 183 30" anchor="default"/>
              <Button id="btn_select" taborder="39" text="조회" class="btn1" position="absolute 835 10 891 32" anchor="top right" onclick="group2_btn_select_onclick"/>
              <Shape id="line3" linetype="vertical" class="line_4" position="absolute 822 5 828 38" anchor="top right"/>
              <CheckBox id="bool1" taborder="40" position="absolute 268 10 371 30" anchor="default" text="낮병동포함" truevalue="Y" falsevalue="N"/>
              <CheckBox id="bool2" taborder="41" text="응급실퇴원포함" position="absolute 375 10 478 30" truevalue="Y" falsevalue="N" anchor="default"/>
              <cp_monthCal id="ipt_clamfromym" titletext="monthCalendar" taborder="42" text="cp_monthCal00" scrollbars="none" position="absolute 87 10 162 30"/>
              <cp_monthCal id="ipt_clamtoym" titletext="monthCalendar" taborder="43" text="cp_monthCal00" scrollbars="none" position="absolute 184 10 259 30"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="button3" taborder="5" text="종료" position="absolute 836 824 894 847" class="btn4" anchor="right bottom" onclick="button3_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_kdrglist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="mdc" type="STRING" size="256" sumtext="청구년월"/>
          <Column id="drgno" type="STRING" size="256" sumtext="청구차수"/>
          <Column id="pidcnt" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="chosindaynocnt" type="STRING" size="256" sumtext="환자번호순번"/>
          <Column id="drgtype" type="STRING" size="256" sumtext="진단"/>
          <Column id="drgname" type="STRING" size="256" sumtext="시술"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_P0008list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_P0010list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_P0110list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdid" type="STRING" size="256"/>
          <Column id="cdnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_pam_PK016list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_pam_PK054list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_pam_PK055list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_pam_PK015list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden_tmp_orddeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="nm" type="STRING" size="256" sumtext="진료과명칭"/>
          <Column id="deptengabbr" type="STRING" size="256" sumtext="영문약어"/>
          <Column id="reqfild" type="STRING" size="256" sumtext="청구진료분야"/>
          <Column id="reqdeptno" type="STRING" size="256" sumtext="청구과코드"/>
          <Column id="orddeptflag" type="STRING" size="256" sumtext="진료과구분"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_tmp_orddeptcd2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="nm" type="STRING" size="256" sumtext="진료과명칭"/>
          <Column id="deptengabbr" type="STRING" size="256" sumtext="영문약어"/>
          <Column id="reqfild" type="STRING" size="256" sumtext="청구진료분야"/>
          <Column id="reqdeptno" type="STRING" size="256" sumtext="청구과코드"/>
          <Column id="orddeptflag" type="STRING" size="256" sumtext="진료과구분"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_tmp_orddrid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256" sumtext="진료의사코드"/>
          <Column id="nm" type="STRING" size="256" sumtext="진료의사명칭"/>
          <Column id="dp" type="STRING" size="256" sumtext="부서코드"/>
          <Column id="sp" type="STRING" size="256" sumtext="선택진료여부"/>
          <Column id="reqdp" type="STRING" size="256" sumtext="청구과코드"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_tmp_orddrid2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256" sumtext="진료의사코드"/>
          <Column id="nm" type="STRING" size="256" sumtext="진료의사명칭"/>
          <Column id="dp" type="STRING" size="256" sumtext="부서코드"/>
          <Column id="sp" type="STRING" size="256" sumtext="선택진료여부"/>
          <Column id="reqdp" type="STRING" size="256" sumtext="청구과코드"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_orddeptcd2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="nm" type="STRING" size="256" sumtext="진료과명칭"/>
          <Column id="deptengabbr" type="STRING" size="256" sumtext="영문약어"/>
          <Column id="reqfild" type="STRING" size="256" sumtext="청구진료분야"/>
          <Column id="reqdeptno" type="STRING" size="256" sumtext="청구과코드"/>
          <Column id="orddeptflag" type="STRING" size="256" sumtext="진료과구분"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="clamfromym" type="STRING" size="256"/>
          <Column id="clamtoym" type="STRING" size="256"/>
          <Column id="daywardyn" type="STRING" size="256"/>
          <Column id="ioflagyn" type="STRING" size="256"/>
          <Column id="offset" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_kdrglist1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="mdc" type="STRING" size="256" sumtext="청구년월"/>
          <Column id="drgno" type="STRING" size="256" sumtext="청구차수"/>
          <Column id="pidcnt" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="chosindaynocnt" type="STRING" size="256" sumtext="환자번호순번"/>
          <Column id="drgtype" type="STRING" size="256" sumtext="진단"/>
          <Column id="drgname" type="STRING" size="256" sumtext="시술"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item2" compid="group2.bool1" propid="value" datasetid="ds_send" columnid="daywardyn"/>
      <BindItem id="item3" compid="group2.bool2" propid="value" datasetid="ds_send" columnid="ioflagyn"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";
include "pam_pamcomnxp::PAM.xjs";
function SMPID24400_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMPID24400_onload(obj:Form, e:LoadEventInfo)
{
	var arrParam = [{dsNm: "ds_init_P0008list", cdGrpId: "P0008"}
				   ,{dsNm: "ds_init_P0010list", cdGrpId: "P0010"}
				   ,{dsNm: "ds_init_P0110list", cdGrpId: "P0110"}]
	appf_getCodeList(arrParam);	
	
	pamGetDeptCDDrIDList(); 
	
	var arrParam1 = new Array();
	arrParam1 = [{dsNm: "ds_init_pam_PK015list", cdGrpId: "PK015", showValue: false}
			   , {dsNm: "ds_init_pam_PK016list", cdGrpId: "PK016", showValue: false}
			   , {dsNm: "ds_init_pam_PK054list", cdGrpId: "PK054", showValue: false}
			   , {dsNm: "ds_init_pam_PK055list", cdGrpId: "PK055", showValue: false}];
				
	pamfGetCodeList(arrParam1, true, "cf_pamfGetCodeList"); //비동기
	
	dsf_createDsRow("ds_tmp", [{col:"ioflag", type:"STRING", size:256, val: ""}]);
	
	var oParam = {};
		oParam.id          = "TRPID20309";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetDeptCDDrID";
		oParam.inds        = "req=ds_tmp";
		oParam.outds       = "ds_hidden_tmp_orddeptcd=orddeptcd ds_hidden_tmp_orddeptcd2=orddeptcd2 ds_hidden_tmp_orddrid=orddrid ds_hidden_tmp_orddrid2=orddrid2";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPID20309";

	tranf_submit(oParam);
	
	ds_init_orddeptcd2.copyData(ds_hidden_tmp_orddeptcd2);
	
	fInitialize();
	
	switch1.tabindex = 0;
}

function cf_pamfGetCodeList(){}

function fInitialize() 
{			
	var gToday = new Date();
	var gBaseyear  = gToday.getDateFormat("YYYY");
	var gBasemonth = gToday.getDateFormat("MM");
	var gBaseday   = gToday.getDateFormat("DD");
	var gCurrentdd  = gBaseyear + gBasemonth + gBaseday;
	var gCurrentym  = gBaseyear + gBasemonth;
	var gUserid 		= sysf_getUserId();

	ds_send.setColumn(0, "clamfromym", gCurrentym);
	ds_send.setColumn(0, "clamtoym", gCurrentym);
	
	group2.ipt_clamfromym.setData(gCurrentym);
	group2.ipt_clamtoym.setData(gCurrentym);
	
}
//조회
function group2_btn_select_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetDocuList();
}

function fGetDocuList() 
{
	ds_send.setColumn(0, "offset", "0");
	
	ds_send.setColumn(0, "clamfromym", group2.ipt_clamfromym.getData());
	ds_send.setColumn(0, "clamtoym", group2.ipt_clamtoym.getData());
	
	dsf_setDefaultVal(ds_send, "pageyn:Y,daywardyn:N,ioflagyn:N");
	
	var oParam = {};																											
		oParam.id          = "TRPID24400";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetKdrgTotList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_kdrglist=kdrglist ds_main_kdrglist1=kdrgdrlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPID24400";

	tranf_submit(oParam);

}
//종료
function button3_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}
//엑셀저장1
function btn_excelsave_onclick(obj:Button,  e:ClickEventInfo)
{
	if (ds_main_kdrglist.rowcount > 0) 
	{
		grdf_exportExcel(switch1.case1.grd_kdrglist, "exportExcel", "see");
	}
	else 
	{
		sysf_messageBox("엑셀저장할 내역이", "I004");		///엑셀저장할 내역이 없습니다.
	}
}
//엑셀저장2
function switch1_case2_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	if (ds_main_kdrglist1.rowcount > 0) 
	{
		grdf_exportExcel(switch1.case2.grd_kdrglist, "exportExcel", "see");
	}
	else 
	{
		sysf_messageBox("엑셀저장할 내역이", "I004");		///엑셀저장할 내역이 없습니다.
	}
}
]]></Script>
  </Form>
</FDL>