YNU_JEUS/app_home/himed/xpapps/sts/stscmcnwxp/xp/SMSDT15000_진료의뢰회송 실적통계.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMSDT15000" position="absolute 0 0 1199 793" titletext="진료의뢰회송 실적 통계" oninit="SMSDT15000_oninit" onload="SMSDT15000_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="진료의뢰회송 실적통계" class="tit_1" position="absolute 0 0 200 24"/>
        <Div id="div_search" anchor="left top right" taborder="1" class="div_SA" position="absolute 0 24 1195 64">
          <Layouts>
            <Layout>
              <cp_monthCal id="ipt_searchym" titletext="monthCalendar" taborder="19" text="cp_monthCal" scrollbars="none" position="absolute 80 10 160 30" anchor="default"/>
              <Button id="btn_search" taborder="20" text="조회" class="btn1" position="absolute 1125 9 1181 31" anchor="top right" onclick="div_search_btn_search_onclick"/>
              <Shape id="line2" linetype="vertical" position="absolute 1112 9 1118 31" anchor="top right"/>
              <Static id="caption2" text="조회년월" class="search_name" position="absolute 9 5 77 35" anchor="default"/>
              <Combo id="cmb_instcd" taborder="21" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_search" position="absolute 271 11 371 30" index="0" value="999" text="- 전체 -">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn" size="256"/>
                    <Column id="datacolumn" size="256"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">999</Col>
                      <Col id="datacolumn">- 전체 -</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">031</Col>
                      <Col id="datacolumn">본원</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">032</Col>
                      <Col id="datacolumn">칠곡</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Static id="caption02" text="병원구분 :" class="search_name" position="absolute 184 12 263 29"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape id="line00" class="line_10" position="absolute 0 88 1195 97" anchor="left top right"/>
        <Grid id="grd_list" class="datagrid2" taborder="2" binddataset="ds_result" autoenter="select" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 0 94 1195 750" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="25"/>
                <Column size="100"/>
                <Column size="80"/>
                <Column size="130"/>
                <Column size="85"/>
                <Column size="90"/>
                <Column size="90"/>
                <Column size="90"/>
                <Column size="90"/>
                <Column size="90"/>
                <Column size="90"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="40" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="caption1"/>
                <Cell col="1" celltype="head" text="No."/>
                <Cell col="2" text="병원구분" taborder="undefined"/>
                <Cell col="3" text="진료년월"/>
                <Cell col="4" text="진료과"/>
                <Cell col="5" text="처방 의사사번"/>
                <Cell col="6" text="처방 의사명"/>
                <Cell col="7" text="총건수&#13;&#10;(A) = (B) + (C)"/>
                <Cell col="8" text="입원건수&#13;&#10;IA220 (B)"/>
                <Cell col="9" text="외래건수&#13;&#10;IA230 (C)"/>
                <Cell col="10" text="입원단가&#13;&#10;IA220 (D)"/>
                <Cell col="11" text="외래단가&#13;&#10;IA230 (E)"/>
                <Cell col="12" text="입원수익&#13;&#10;(F) = (B) * (D)"/>
                <Cell col="13" text="외래수익&#13;&#10;(G) = (C) * (E)"/>
                <Cell col="14" text="총수익&#13;&#10;(H) = (F) + (G)"/>
              </Band>
              <Band id="body">
                <Cell text="bind:coophospcd"/>
                <Cell col="1" celltype="head" expr="currow + 1"/>
                <Cell col="2" style="align:center middle;padding:5 2 3 2;" text="bind:instnm" wordwrap="word"/>
                <Cell col="3" text="bind:yyyymmdd" mask="####.##"/>
                <Cell col="4" style="align:left middle;padding:0 0 0 10;" text="bind:deptnm" suppressalign="first"/>
                <Cell col="5" displaytype="text" style="align:center middle;" text="bind:orddrid"/>
                <Cell col="6" text="bind:orddrnm"/>
                <Cell col="7" displaytype="number" text="bind:totcnt"/>
                <Cell col="8" displaytype="number" text="bind:ia220cnt"/>
                <Cell col="9" displaytype="number" text="bind:ia230cnt"/>
                <Cell col="10" displaytype="number" text="bind:ia220price"/>
                <Cell col="11" displaytype="number" text="bind:ia230price"/>
                <Cell col="12" displaytype="number" text="bind:ia220amt"/>
                <Cell col="13" displaytype="number" text="bind:ia230amt"/>
                <Cell col="14" displaytype="number" text="bind:totamt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption00" text="진료의뢰회송 실적" class="tit_2" position="absolute 0 73 232 95"/>
        <Button id="btn_excel" taborder="3" text="엑셀저장" onclick="btn_excel_onclick" class="btn7" position="absolute 1115 68 1195 87" anchor="top right"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_search" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="endym" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_result" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item161" compid="div_search.cmb_instcd" propid="value" datasetid="ds_main_search" columnid="instcd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name			:	
 * Creator			:	
 * Make Date 		:	2020.02.03
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";

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

function SMSDT15000_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_list);
	
	fInit();
}

function fn_Cal_endym()
{
	var endym = div_search.ipt_searchym.getData();
	ds_main_search.setColumn(0, "endym", endym);
}

function fInit()
{
	div_search.ipt_searchym.setCallEvent("fn_Cal_endym");
	div_search.cmb_instcd.index = 0;
	
	
	var CurrentDate = utlf_getCurrentDate();
	var LastDate = CurrentDate.toDate().getAddDate(-1,"M").getDateFormat();
	var LastDateYM = LastDate.substr(0,6);
	
	
	div_search.ipt_searchym.setData(LastDateYM);	
	ds_main_search.setColumn(0, "endym", LastDateYM);
}	


function div_search_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearch();
}

function fSearch()
{
	ds_send_reqdata.clearData();
	
	dsf_makeValue(ds_send_reqdata, "endym", "string", ds_main_search.getColumn(0, "endym"));
	dsf_makeValue(ds_send_reqdata, "instcd", "string", ds_main_search.getColumn(0, "instcd"));
	
	var oParam = {};
		oParam.id          = "TRSDT15001";
		oParam.service     = "stscmcnwapp.CoopEndStats";
		oParam.method      = "reqGetHealCareReqRtnPay";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds	   = "ds_result=result";
		oParam.async       = false;
		oParam.callback    = "cf_TRSDT15001";

	tranf_submit(oParam);	
}

function cf_TRSDT15001(sSvcId, nErrorCode, sErrorMsg)
{
    if(nErrorCode < 0) 
    {
		return;
	}
    else
    {
    }
}

// 엑셀저장
function btn_excel_onclick(obj:Button,  e:ClickEventInfo)
{
	fExcel();
}

function fExcel() 
{
	if (ds_result.rowcount == 0)
	{
		sysf_messageBox("엑셀파일로 저장할 리스트 내역이", "I004");
		return;
	}
	
	var title = "진료의뢰회송 실적";
	var sheetNm = "진료의뢰회송 실적" + ds_main_search.getColumn(0, "endym");

	grdf_exportExcel(grd_list, title, sheetNm);
}
]]></Script>
  </Form>
</FDL>