YNU_JEUS/app_home/himed/xpapps/pam/clamuncoxp/xp/SMPIF40300_청구및입금내역조회(보호장부).xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPIF40300" position="absolute 0 0 1204 766" titletext="청구및입금내역조회(보호장부)" oninit="SMPIF40300_oninit" onload="SMPIF40300_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 1 13 1196 765" id="grp_biz" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Div position="absolute 0 11 1194 46" align="align:center top;" id="grp_sea" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout>
                    <Button position="absolute 1123 7 1179 29" id="button1" class="btn1" taborder="3" text="조회" anchor="top right" onclick="grp_biz_grp_sea_button1_onclick"/>
                    <Shape position="absolute 1105 7 1111 29" linetype="vertical" id="line13" class="line_4" anchor="top right"/>
                    <Static text="내원유형 :" position="absolute 440 9 533 26" id="caption4" class="search_name" anchor="default"/>
                    <Static text="구분 :" position="absolute 15 9 75 26" id="caption11" class="search_name" anchor="default"/>
                    <Radio position="absolute 521 5 670 28" id="rdo_ioflag" class="radio_search" columncount="3" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default">
                      <Dataset id="innerdataset">
                        <ColumnInfo>
                          <Column id="codecolumn"/>
                          <Column id="datacolumn"/>
                        </ColumnInfo>
                        <Rows>
                          <Row>
                            <Col id="codecolumn">A</Col>
                            <Col id="datacolumn">전체</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">I</Col>
                            <Col id="datacolumn">입원</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">O</Col>
                            <Col id="datacolumn">외래</Col>
                          </Row>
                        </Rows>
                      </Dataset>
                    </Radio>
                    <Radio position="absolute 71 5 186 28" id="rdo_termflag" class="radio_search" columncount="2" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default">
                      <Dataset id="innerdataset">
                        <ColumnInfo>
                          <Column id="codecolumn"/>
                          <Column id="datacolumn"/>
                        </ColumnInfo>
                        <Rows>
                          <Row>
                            <Col id="codecolumn">clamym</Col>
                            <Col id="datacolumn">청구월</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">uncoym</Col>
                            <Col id="datacolumn">미수월</Col>
                          </Row>
                        </Rows>
                      </Dataset>
                    </Radio>
                    <Static text="~" position="absolute 298 10 313 25" id="caption2" anchor="default"/>
                    <cp_monthCal id="ipt_fromdd" titletext="monthCalendar" taborder="4" text="cp_monthCal00" scrollbars="none" position="absolute 205 6 292 33" anchor="default"/>
                    <cp_monthCal id="ipt_todd" titletext="monthCalendar" taborder="5" text="cp_monthCal00" scrollbars="none" position="absolute 315 6 402 33" anchor="default"/>
                  </Layout>
                </Layouts>
              </Div>
              <Static text="청구및입금내역 목록" position="absolute 0 55 154 77" id="caption1" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 71 1194 77" linetype="horizontal" id="line1" class="line_1" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
              <Grid position="absolute 0 76 1194 745" id="grd_clamdepospeclist" class="datagrid2" binddataset="ds_main_clamdepospeclist" anchor="all" onkeydown="grp_biz_grd_clamdepospeclist_onkeydown" oncellclick="grp_biz_grd_clamdepospeclist_oncellclick">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="25"/>
                      <Column size="61"/>
                      <Column size="60"/>
                      <Column size="90"/>
                      <Column size="60"/>
                      <Column size="60"/>
                      <Column size="45"/>
                      <Column size="80"/>
                      <Column size="70"/>
                      <Column size="50"/>
                      <Column size="110"/>
                      <Column size="45"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="70"/>
                      <Column size="70"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="100"/>
                      <Column size="45"/>
                      <Column size="80"/>
                      <Column size="100"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="100"/>
                      <Column size="80"/>
                      <Column size="50"/>
                      <Column size="80"/>
                      <Column size="60"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="100"/>
                      <Column size="45"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="100"/>
                      <Column size="55"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="100"/>
                      <Column size="80"/>
                      <Column size="0"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="33" 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="청구형태"/>
                      <Cell col="5" text="차수"/>
                      <Cell col="6" text="분야"/>
                      <Cell col="7" text="접수번호"/>
                      <Cell col="8" text="접수일자"/>
                      <Cell col="9" text="시도별"/>
                      <Cell col="10" text="시군별"/>
                      <Cell col="11" text="청구&#10;건수"/>
                      <Cell col="12" text="총진료비"/>
                      <Cell col="13" text="청구액"/>
                      <Cell col="14" text="장애인"/>
                      <Cell col="15" text="대불금"/>
                      <Cell col="16" text="심사차수"/>
                      <Cell col="17" text="통장&#10;입금일자"/>
                      <Cell col="18" text="통장입금액"/>
                      <Cell col="19" text="명칭구분"/>
                      <Cell col="20" text="비고"/>
                      <Cell col="21" text="심결&#10;건수"/>
                      <Cell col="22" text="심사결정액"/>
                      <Cell col="23" text="심결장애인"/>
                      <Cell col="24" text="환수예정액"/>
                      <Cell col="25" text="환수금"/>
                      <Cell col="26" text="기관삭감액"/>
                      <Cell col="27" text="실삭감액"/>
                      <Cell col="28" text="삭감율"/>
                      <Cell col="29" text="결손액"/>
                      <Cell col="30" text="심사보류&#10;건수"/>
                      <Cell col="31" text="심사보류&#10;총진료비"/>
                      <Cell col="32" text="심사보류액"/>
                      <Cell col="33" text="심사보류장애인"/>
                      <Cell col="34" text="반송&#10;건수"/>
                      <Cell col="35" text="반송&#10;총진료비"/>
                      <Cell col="36" text="반송액"/>
                      <Cell col="37" text="반송장애인"/>
                      <Cell col="38" text="자격보류&#10;건수"/>
                      <Cell col="39" text="자격보류&#10;총진료비"/>
                      <Cell col="40" text="자격보류액"/>
                      <Cell col="41" text="자격보류장애인"/>
                      <Cell col="42" text="미수금"/>
                      <Cell col="43" text="접수번호"/>
                      <Cell col="44" text="내원유형"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow+1"/>
                      <Cell col="1" displaytype="expr:utlf_isNull(clamym) ? 'normal' : 'date'" text="bind:clamym" mask="expr:utlf_isNull(clamym) ? '' : 'yyyy-MM'"/>
                      <Cell col="2" displaytype="expr:utlf_isNull(uncoym) ? 'normal' : 'date'" text="bind:uncoym" mask="expr:utlf_isNull(uncoym) ? '' : 'yyyy-MM'"/>
                      <Cell col="3" text="bind:ioflag"/>
                      <Cell col="4" text="bind:clamflag"/>
                      <Cell col="5" text="bind:clamdg"/>
                      <Cell col="6" text="bind:ordfildcd"/>
                      <Cell col="7" text="bind:acptno"/>
                      <Cell col="8" displaytype="expr:utlf_isNull(acptdd) ? 'normal' : 'date'" text="bind:acptdd" mask="expr:utlf_isNull(acptdd) ? '' : 'yyyy-MM-dd'"/>
                      <Cell col="9" text="bind:cpcd"/>
                      <Cell col="10" text="bind:assocd"/>
                      <Cell col="11" displaytype="number" text="bind:clamcnt"/>
                      <Cell col="12" displaytype="number" text="bind:clmcstotamt"/>
                      <Cell col="13" displaytype="number" text="bind:clsecuinstbamt"/>
                      <Cell col="14" displaytype="number" text="bind:clhandicaprfund"/>
                      <Cell col="15" displaytype="number" text="bind:clsubtamt"/>
                      <Cell col="16" text="bind:judgdg"/>
                      <Cell col="17" displaytype="date" text="bind:depodd" mask="yyyy-MM-dd"/>
                      <Cell col="18" displaytype="number" text="bind:depoamt"/>
                      <Cell col="19" text="bind:depoflag"/>
                      <Cell col="20" text="bind:rem"/>
                      <Cell col="21" displaytype="number" text="bind:jrdecicnt"/>
                      <Cell col="22" displaytype="number" text="bind:jrdeciamt"/>
                      <Cell col="23" displaytype="number" text="bind:jrhandicaprfundsum"/>
                      <Cell col="24" displaytype="number" text="bind:rtnscheamt"/>
                      <Cell col="25" displaytype="number" text="bind:rtnamt"/>
                      <Cell col="26" displaytype="number" text="bind:instreductamt"/>
                      <Cell col="27" displaytype="number" text="bind:realcutamt"/>
                      <Cell col="28" text="bind:realcutrate"/>
                      <Cell col="29" displaytype="number" text="bind:lostamt"/>
                      <Cell col="30" displaytype="number" text="bind:judgretecnt"/>
                      <Cell col="31" displaytype="number" text="bind:judgretemcstotamt"/>
                      <Cell col="32" displaytype="number" text="bind:judgreteamt"/>
                      <Cell col="33" displaytype="number" text="bind:judgretehandicapamt"/>
                      <Cell col="34" displaytype="number" text="bind:sendcnt"/>
                      <Cell col="35" displaytype="number" text="bind:sendmcstotamt"/>
                      <Cell col="36" displaytype="number" text="bind:sendamt"/>
                      <Cell col="37" displaytype="number" text="bind:sendhandicapamt"/>
                      <Cell col="38" displaytype="number" text="bind:qualretecnt"/>
                      <Cell col="39" displaytype="number" text="bind:qualretemcstotamt"/>
                      <Cell col="40" displaytype="number" text="bind:qualreteclamamt"/>
                      <Cell col="41" displaytype="number" text="bind:qualreteclhandicapamt"/>
                      <Cell col="42" displaytype="number" text="bind:uncoamt"/>
                      <Cell col="43" text="bind:acptnohidn"/>
                      <Cell col="44" text="bind:ioflaghidn"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Button position="absolute 1019 52 1113 71" id="button7" class="btn7" text="Open Excel" anchor="top right" onclick="grp_biz_button7_onclick"/>
              <Button position="absolute 911 52 964 71" id="button10" class="btn2" text="열카피" anchor="top right" onclick="grp_biz_button10_onclick"/>
              <Button position="absolute 965 52 1018 71" id="button11" class="btn2" text="행카피" anchor="top right" onclick="grp_biz_button11_onclick"/>
              <Button position="absolute 1114 52 1194 71" id="button12" class="btn7" text="엑셀저장" anchor="top right" onclick="grp_biz_button12_onclick"/>
              <Button position="absolute 857 52 910 71" id="button13" class="btn2" text="셀카피" anchor="top right" onclick="grp_biz_button13_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption6" text="청구및입금내역조회(보호장부)" class="tit_1" position="absolute 1 0 249 23"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_clamdepospeclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="clamym" type="STRING"/>
          <Column id="uncoym" type="STRING"/>
          <Column id="ioflag" type="STRING"/>
          <Column id="clamflag" type="STRING"/>
          <Column id="clamdg" type="STRING"/>
          <Column id="ordfildcd" type="STRING"/>
          <Column id="acptno" type="STRING"/>
          <Column id="acptdd" type="STRING"/>
          <Column id="cpcd" type="STRING"/>
          <Column id="assocd" type="STRING"/>
          <Column id="clamcnt" type="STRING"/>
          <Column id="clmcstotamt" type="STRING"/>
          <Column id="clsecuinstbamt" type="STRING"/>
          <Column id="clhandicaprfund" type="STRING"/>
          <Column id="clsubtamt" type="STRING"/>
          <Column id="judgdg" type="STRING"/>
          <Column id="depodd" type="STRING"/>
          <Column id="depoamt" type="STRING"/>
          <Column id="depoflag" type="STRING"/>
          <Column id="rem" type="STRING"/>
          <Column id="jrdecicnt" type="STRING"/>
          <Column id="jrdeciamt" type="STRING"/>
          <Column id="jrhandicaprfundsum" type="STRING"/>
          <Column id="rtnscheamt" type="STRING"/>
          <Column id="rtnamt" type="STRING"/>
          <Column id="instreductamt" type="STRING"/>
          <Column id="realcutamt" type="STRING"/>
          <Column id="realcutrate" type="STRING"/>
          <Column id="lostamt" type="STRING"/>
          <Column id="judgretecnt" type="STRING"/>
          <Column id="judgretemcstotamt" type="STRING"/>
          <Column id="judgreteamt" type="STRING"/>
          <Column id="judgretehandicapamt" type="STRING"/>
          <Column id="sendcnt" type="STRING"/>
          <Column id="sendmcstotamt" type="STRING"/>
          <Column id="sendamt" type="STRING"/>
          <Column id="sendhandicapamt" type="STRING"/>
          <Column id="qualretecnt" type="STRING"/>
          <Column id="qualretemcstotamt" type="STRING"/>
          <Column id="qualreteclamamt" type="STRING"/>
          <Column id="qualreteclhandicapamt" type="STRING"/>
          <Column id="uncoamt" type="STRING"/>
          <Column id="acptnohidn" type="STRING"/>
          <Column id="ioflaghidn" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="termflag" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="termflag">clamym</Col>
            <Col id="fromdd"/>
            <Col id="todd"/>
            <Col id="ioflag">A</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_biz.grp_sea.rdo_termflag" propid="value" datasetid="ds_send" columnid="termflag"/>
      <BindItem id="item1" compid="grp_biz.grp_sea.rdo_ioflag" propid="value" datasetid="ds_send" columnid="ioflag"/>
      <BindItem id="item2" compid="grp_biz.grp_sea.ipt_fromdd" propid="text" datasetid="ds_send" columnid="fromdd"/>
      <BindItem id="item3" compid="grp_biz.grp_sea.ipt_todd" propid="text" datasetid="ds_send" columnid="todd"/>
    </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";

var col = "Y";

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

function SMPIF40300_onload(obj:Form, e:LoadEventInfo)
{
	grp_biz.grp_sea.ipt_fromdd.setCallEvent("fn_cp_monthCal00");
	grp_biz.grp_sea.ipt_todd.setCallEvent("fn_cp_monthCal01");
	
	ds_send.setColumn(0, "fromdd", String(utlf_getCurrentDate()).substr(0,6));
	ds_send.setColumn(0, "todd", String(utlf_getCurrentDate()).substr(0,6));
}

function fn_cp_monthCal00()
{
	var month = grp_biz.grp_sea.ipt_fromdd.getData();
	
	ds_send.setColumn(0, "fromdd", month);
	ds_send.setColumn(0, "todd", month);
	
	grp_biz.grp_sea.ipt_todd.setData(month);
}

function fn_cp_monthCal01()
{
	var month = grp_biz.grp_sea.ipt_todd.getData();
	
	ds_send.setColumn(0, "todd", month);
}

function grp_biz_grp_sea_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRPIF40300";
		oParam.service     = "clamuncoapp.ClamUnco";
		oParam.method      = "reqGetClamDepoSpecBooksMed";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_clamdepospeclist=gridclamdepospeclist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIF40300";

	tranf_submit(oParam);
}

function grp_biz_grd_clamdepospeclist_onkeydown(obj:Grid, e:KeyEventInfo)
{
	if(col == "Y")
	{
		var CONST_SEPARATOR = "	";	//컬럼별 구분자
		var lv_oBindDs = eval(obj.binddataset);
		var lv_sColID;
		var lv_sVal;
		var lv_sClipboard = "";
		var lv_nAreaStartRow;
		var lv_nAreaEndRow;
		var lv_nAreaStartCol;
		var lv_nAreaEndCol;
	   
		if(obj.selecttype == "multiarea") 
		{
			lv_nAreaStartRow = 0;
			lv_nAreaEndRow   = parseInt(obj.rowcount-1);
			lv_nAreaStartCol = parseInt(obj.currentcol);
			lv_nAreaEndCol   = parseInt(obj.currentcol);
		} 
		
		for(var nRow = lv_nAreaStartRow; nRow <= lv_nAreaEndRow; nRow++) 
		{
			for(var nCell = lv_nAreaStartCol; nCell <= lv_nAreaEndCol; nCell++) 
			{
				lv_sColID = obj.getCellProperty("body",nCell,"text");
				lv_sVal = obj.getCellValue(nRow,nCell);
				lv_sClipboard = lv_sClipboard + lv_sVal + CONST_SEPARATOR;
			}

			lv_sClipboard = lv_sClipboard.substr(0,lv_sClipboard.length-1);
			lv_sClipboard = lv_sClipboard +String.fromCharCode(10);
		}

		lv_sClipboard = lv_sClipboard.substr(0,lv_sClipboard.length-1);
		
		iv_sClipboard = lv_sClipboard;	
		
		system.setClipboard("CF_TEXT",lv_sClipboard);
	}
	else
	{
		if (e.ctrlKey == true && e.keycode == 67 )
		{
			grdf_clipboardCopy(obj, "PAM");
		}
	}
}

function grp_biz_grd_clamdepospeclist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	var lv_nAreaStartRow;
	var lv_nAreaEndRow;
	var lv_nAreaStartCol;
	var lv_nAreaEndCol;

	if(col == "Y")
	{
		lv_nAreaStartRow = 0;
		lv_nAreaEndRow   = parseInt(obj.rowcount-1);
		lv_nAreaStartCol = parseInt(obj.currentcol);
		lv_nAreaEndCol   = parseInt(obj.currentcol);
		
		grdf_initGridStyle(obj);
		
		for(var nRow = lv_nAreaStartRow; nRow <= lv_nAreaEndRow; nRow++) 
		{
			for(var nCell = lv_nAreaStartCol; nCell <= lv_nAreaEndCol; nCell++) 
			{
				obj.setCellProperty("body",nCell,"background","#FFE7E5");
				obj.setCellProperty("body",nCell,"background2","#FFE7E5");
			}
		}
	}
	else
	{
		grdf_initGridStyle(obj);		
	}
}

function grp_biz_button13_onclick(obj:Button,  e:ClickEventInfo)
{
	col = "N";
	grp_biz.grd_clamdepospeclist.selecttype = "multiarea";
}

function grp_biz_button10_onclick(obj:Button,  e:ClickEventInfo)
{
	col = "Y";
	grp_biz.grd_clamdepospeclist.selecttype = "multiarea";
}

function grp_biz_button11_onclick(obj:Button,  e:ClickEventInfo)
{
	col = "N";
	grp_biz.grd_clamdepospeclist.selecttype = "multirow";
}

function grp_biz_button7_onclick(obj:Button,  e:ClickEventInfo)
{
	system.execShell("excel");
}

function grp_biz_button12_onclick(obj:Button,  e:ClickEventInfo)
{
	var today = new Date();
						
	var yy = today.getYear()+"";
	var mm = today.getMonth()+1;
	var dd = today.getDate();

	if(mm < 10) 
	{ 
		mm = "0" + mm; 
	}
	else 
	{ 
		mm = mm + ""; 
	}
	
	if(dd < 10) 
	{ 
		dd = "0" + dd; 
	}  
	else 
	{ 
		dd = dd + ""; 
	}

	var tmp = yy + mm + dd;

	if (ds_main_clamdepospeclist.rowcount < 1)
	{
		return;
	}
	else
	{
		
		grdf_exportExcel(grp_biz.grd_clamdepospeclist, "청구및입금내역조회(보호장부)_"+tmp, "see");
	}
}
]]></Script>
  </Form>
</FDL>