YNU_JEUS/app_home/himed/xpapps/pam/cutmngtxp/xp/SMPIR33100_정산의뢰대상추출.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPIR31200" position="absolute 0 0 1151 652" titletext="정산의뢰대상생성" oninit="SMPIR31200_oninit" onload="SMPIR31200_onload">
    <Layouts>
      <Layout>
        <Div id="group3" taborder="3" position="absolute 0 0 1149 626" anchor="all" text="정산의뢰 대상자 관리">
          <Layouts>
            <Layout>
              <Static id="caption10" text="정산의뢰 대상자 조회" class="tit_2" position="absolute -2 74 168 95" anchor="default" onclick="group3_caption10_onclick"/>
              <Div id="group2" anchor="left top right" taborder="1" position="absolute 0 23 1149 63" class="div_SA">
                <Layouts>
                  <Layout>
                    <Button id="btn_srch" taborder="4" text="조회" onclick="group3_group2_btn_srch_onclick" class="btn1" position="absolute 1081 8 1137 30" anchor="top right"/>
                    <Static id="caption6" text="~" position="absolute 178 11 189 29" anchor="default"/>
                    <Shape id="line1" linetype="vertical" class="line_4" position="absolute 1063 5 1069 32" anchor="top right"/>
                    <Calendar id="ipt_todd" taborder="5" onkeyup="group3_group2_ipt_todd_onkeyup" class="input_default" position="absolute 196 11 281 30" anchor="default"/>
                    <Static id="caption5" text="정산일자 :" class="search_name" position="absolute 12 12 92 29" anchor="default"/>
                    <Calendar id="ipt_fromdd" taborder="6" onchanged="group3_group2_ipt_fromdd_onchanged" class="input_default" position="absolute 88 10 173 29" anchor="default"/>
                  </Layout>
                </Layouts>
              </Div>
              <Grid id="grd_searchlist" taborder="3" binddataset="ds_main_createlist" useinputpanel="false" oncelldblclick="grd_searchlist_oncelldblclick" position="absolute 0 96 1149 626" anchor="all">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="65"/>
                      <Column size="80"/>
                      <Column size="75"/>
                      <Column size="80"/>
                      <Column size="75"/>
                      <Column size="75"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="75"/>
                      <Column size="90"/>
                      <Column size="90"/>
                      <Column size="75"/>
                      <Column size="75"/>
                      <Column size="75"/>
                      <Column size="45"/>
                      <Column size="35"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="75"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="75"/>
                      <Column size="75"/>
                      <Column size="90"/>
                      <Column size="80"/>
                      <Column size="75"/>
                      <Column size="80"/>
                      <Column size="75"/>
                      <Column size="80"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="41" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell colspan="11" text="원무수납" taborder="undefined"/>
                      <Cell col="11" colspan="13" text="사후심사" taborder="undefined"/>
                      <Cell col="24" rowspan="2" text="차액&#13;&#10;(②-①)" taborder="undefined"/>
                      <Cell col="25" colspan="2" text="정산의뢰" taborder="undefined"/>
                      <Cell col="27" colspan="2" text="심사결정(F130)" taborder="undefined"/>
                      <Cell row="1" displaytype="normal" text="환자번호" taborder="undefined"/>
                      <Cell row="1" col="1" displaytype="normal" text="환자명" taborder="undefined"/>
                      <Cell row="1" col="2" displaytype="normal" text="최초입원일" taborder="undefined"/>
                      <Cell row="1" col="3" displaytype="normal" text="주/부" taborder="undefined"/>
                      <Cell row="1" col="4" displaytype="normal" text="보험" taborder="undefined"/>
                      <Cell row="1" col="5" displaytype="normal" text="보조" taborder="undefined"/>
                      <Cell row="1" col="6" displaytype="normal" text="영수증시작일" taborder="undefined"/>
                      <Cell row="1" col="7" displaytype="normal" text="영수증종료일" taborder="undefined"/>
                      <Cell row="1" col="8" displaytype="normal" text="정산일자" taborder="undefined"/>
                      <Cell row="1" col="9" displaytype="normal" text="급여본인부담금&#13;&#10;①" taborder="undefined"/>
                      <Cell row="1" col="10" displaytype="normal" text="최종수납액" taborder="undefined"/>
                      <Cell row="1" col="11" displaytype="normal" text="진료개시일" taborder="undefined"/>
                      <Cell row="1" col="12" displaytype="normal" text="진료종료일" taborder="undefined"/>
                      <Cell row="1" col="13" displaytype="normal" text="청구월" taborder="undefined"/>
                      <Cell row="1" col="14" displaytype="normal" text="차수" taborder="undefined"/>
                      <Cell row="1" col="15" displaytype="normal" text="순번" taborder="undefined"/>
                      <Cell row="1" col="16" displaytype="normal" text="접수번호" taborder="undefined"/>
                      <Cell row="1" col="17" displaytype="normal" text="명일련번호" taborder="undefined"/>
                      <Cell row="1" col="18" displaytype="normal" text="접수일자"/>
                      <Cell row="1" col="19" displaytype="normal" text="심사차수"/>
                      <Cell row="1" col="20" displaytype="normal" text="진료과"/>
                      <Cell row="1" col="21" displaytype="normal" text="보험"/>
                      <Cell row="1" col="22" displaytype="normal" text="보조"/>
                      <Cell row="1" col="23" displaytype="normal" text="급여본인부담금&#13;&#10;②"/>
                      <Cell row="1" col="25" displaytype="normal" text="일자"/>
                      <Cell row="1" col="26" displaytype="normal" text="금액"/>
                      <Cell row="1" col="27" displaytype="normal" text="결정통보일"/>
                      <Cell row="1" col="28" displaytype="normal" text="결정금액"/>
                    </Band>
                    <Band id="body">
                      <Cell displaytype="text" text="bind:pid"/>
                      <Cell col="1" displaytype="text" text="bind:patnm"/>
                      <Cell col="2" displaytype="date" text="bind:indd"/>
                      <Cell col="3" displaytype="text" text="bind:mskind"/>
                      <Cell col="4" displaytype="combo" text="bind:insukind" combodataset="ds_init_P0008list" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="5" displaytype="combo" text="bind:suppkind" combodataset="ds_init_P0010list" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="6" displaytype="date" text="bind:incalcfromdd"/>
                      <Cell col="7" displaytype="date" text="bind:incalcenddd"/>
                      <Cell col="8" displaytype="date" text="bind:rcptexecdd"/>
                      <Cell col="9" displaytype="number" text="bind:payownbamt1"/>
                      <Cell col="10" displaytype="number" text="bind:rcptamt"/>
                      <Cell col="11" displaytype="date" text="bind:ordfromdd"/>
                      <Cell col="12" displaytype="date" text="bind:ordtodd"/>
                      <Cell col="13" displaytype="date" text="bind:clamym" mask="yyyy-MM"/>
                      <Cell col="14" displaytype="text" text="bind:clamdg"/>
                      <Cell col="15" displaytype="text" text="bind:pidsn"/>
                      <Cell col="16" displaytype="text" text="bind:acptno"/>
                      <Cell col="17" displaytype="text" text="bind:docuseqno"/>
                      <Cell col="18" displaytype="date" text="bind:acptdd"/>
                      <Cell col="19" displaytype="text" text="bind:judgdg"/>
                      <Cell col="20" displaytype="combo" text="bind:orddeptcd" combodataset="ds_init_orddeptcdlist" combocodecol="cd" combodatacol="nm"/>
                      <Cell col="21" displaytype="combo" text="bind:aftinsu" combodataset="ds_init_P0008list" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="22" displaytype="combo" text="bind:aftsupp" combodataset="ds_init_P0010list" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="23" displaytype="number" text="bind:ediownbamt"/>
                      <Cell col="24" displaytype="normal" text="bind:ownbamtgap"/>
                      <Cell col="25" displaytype="expr:utlf_isNull(getColumn(currow, self.text.replace(&quot;bind:&quot;,&quot;&quot;) )) == true ? &quot;normal&quot; : &quot;date&quot;" text="bind:obtappdd"/>
                      <Cell col="26" displaytype="number" text="bind:obtappamt"/>
                      <Cell col="27" displaytype="expr:utlf_isNull(getColumn(currow, self.text.replace(&quot;bind:&quot;,&quot;&quot;) )) == true ? &quot;normal&quot; : &quot;date&quot;" text="bind:calcnotidd"/>
                      <Cell col="28" displaytype="number" text="bind:decidifamt"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Shape id="line17" class="line_1" position="absolute -1 90 1148 99" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
              <Static id="caption6" text="정산의뢰 대상자 관리" class="tit_1" position="absolute 0 0 181 23"/>
              <Button id="button12" taborder="4" text="엑셀저장" class="btn7" position="absolute 1069 72 1149 91" anchor="top right" onclick="group3_button12_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_reset" taborder="4" text="초기화" onclick="group1_btn_reset_onclick" class="btn4" position="absolute 1024 630 1092 652" anchor="right bottom"/>
        <Button id="btn_close" taborder="5" text="닫기" onclick="group1_btn_close_onclick" class="btn4" position="absolute 1095 630 1151 652" anchor="right bottom"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_P0008list" 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_P0010list" 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_send_search" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="insertchk" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_search2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="searchflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_createlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="255"/>
          <Column id="patnm" type="STRING" size="255"/>
          <Column id="indd" type="STRING" size="255"/>
          <Column id="mskind" type="STRING" size="255"/>
          <Column id="insukind" type="STRING" size="255"/>
          <Column id="suppkind" type="STRING" size="255"/>
          <Column id="incalcfromdd" type="STRING" size="255"/>
          <Column id="incalcenddd" type="STRING" size="255"/>
          <Column id="rcptexecdd" type="STRING" size="255"/>
          <Column id="payownbamt1" type="BIGDECIMAL" size="255"/>
          <Column id="rcptamt" type="BIGDECIMAL" size="255"/>
          <Column id="ordfromdd" type="STRING" size="255"/>
          <Column id="ordtodd" type="STRING" size="255"/>
          <Column id="clamym" type="STRING" size="255"/>
          <Column id="clamdg" type="BIGDECIMAL" size="255"/>
          <Column id="pidsn" type="BIGDECIMAL" size="255"/>
          <Column id="acptno" type="STRING" size="255"/>
          <Column id="docuseqno" type="STRING" size="255"/>
          <Column id="acptdd" type="STRING" size="255"/>
          <Column id="judgdg" type="STRING" size="255"/>
          <Column id="orddeptcd" type="STRING" size="255"/>
          <Column id="aftinsu" type="STRING" size="255"/>
          <Column id="aftsupp" type="STRING" size="255"/>
          <Column id="ediownbamt" type="BIGDECIMAL" size="255"/>
          <Column id="ownbamtgap" type="BIGDECIMAL" size="255"/>
          <Column id="obtappdd" type="STRING" size="255"/>
          <Column id="obtappamt" type="BIGDECIMAL" size="255"/>
          <Column id="calcnotidd" type="STRING" size="255"/>
          <Column id="decidifamt" type="BIGDECIMAL" size="255"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cmb_endyn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">진행중</Col>
            <Col id="value">N</Col>
          </Row>
          <Row>
            <Col id="label">완료</Col>
            <Col id="value">Y</Col>
          </Row>
          <Row>
            <Col id="label">대상아님</Col>
            <Col id="value">X</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_tnsdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchflag" type="STRING" size="256"/>
          <Column id="acptno" type="STRING" size="256"/>
          <Column id="judgdg" type="STRING" size="256"/>
          <Column id="clamno" type="STRING" size="256"/>
          <Column id="docuseqno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_cmb_ioflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">입원</Col>
            <Col id="value">I</Col>
          </Row>
          <Row>
            <Col id="label">외래</Col>
            <Col id="value">O</Col>
          </Row>
          <Row>
            <Col id="label">ER 외래</Col>
            <Col id="value">E</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item2" compid="group3.group2.ipt_fromdd" propid="value" datasetid="ds_send_search" columnid="fromdd"/>
      <BindItem id="item3" compid="group3.group2.ipt_todd" propid="value" datasetid="ds_send_search" 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";
function SMPIR31200_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMPIR31200_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(group3.grd_searchlist);
	//grdf_setRowTypeIcon(group3.grd_searchlist, 0);
	
	var arrParam = [{dsNm: "ds_init_P0008list", cdGrpId: "P0008"}
				   ,{dsNm: "ds_init_P0010list", cdGrpId: "P0010"}]
	appf_getCodeList(arrParam);	
	
	pamGetDeptCDDrIDList(); 
	
	fInitialize();
}

function fInitialize()
{
	ds_main_createlist.clearData();

	ds_send_search.setColumn(0, "fromdd", utlf_getCurrentDate());
	ds_send_search.setColumn(0, "todd", utlf_getCurrentDate());
	group3.group2.ipt_fromdd.setFocus();
	
}

function fSearchchk()
{
	var sFromdd =  ds_send_search.getColumn(0, "fromdd");
	var sTodd = ds_send_search.getColumn(0, "todd");
	
	var s_sFromdd = String(sFromdd);
	var s_sTodd = String(sTodd);
	
	var sFromym = s_sFromdd.substr(0,6);
	var sToym =	s_sTodd.substr(0,6);
	
	var sFy = s_sFromdd.substr(0, 4);
	var sFm = s_sFromdd.substr(4, 2);
	var sFd = s_sFromdd.substr(6, 2);
	var sTy = s_sTodd.substr(0, 4);
	var sTm = s_sTodd.substr(4, 2);
	var sTd = s_sTodd.substr(6, 2);
	var sSd = new Date(sFy, sFm-1, sFd);
	var sEd = new Date(sTy,sTm-1,sTd);
	var rstFrom = sSd.getTime();
	var rstEnd =  sEd.getTime();
	
	var sDd =  Math.ceil((rstEnd - rstFrom) / (24 * 60 * 60 * 1000));	
	
	if (utlf_isNull(sFromdd) || sFromdd == "" || sFromdd == " ")
	{
		sysf_messageBox("시작일자가 없습니다!","E999","");
		ds_send_search.setColumn(0, "fromdd", "");
		group3.group2.ipt_fromdd.setFocus();
		return false;
	}
	if (utlf_isNull(sTodd) || sTodd == "" || sTodd == " " || sTodd == "-")
	{
		sysf_messageBox("종료일자가 없습니다!","E999","");
		ds_send_search.setColumn(0, "todd", "");
		group3.group2.ipt_todd.setFocus();
		return false;
	}
// 	else if (sFromym != sToym)
// 	{
// 		sysf_messageBox("시작년월과 종료년월은 같아야 합니다!","E999","");
// 		group3.group2.ipt_todd.setFocus();
// 		return false;
// 	}
	
	if (sDd < '0')
	{
		sysf_messageBox("시작일자가 종료일자보다 클수는 없습니다!","E999","");
		ds_send_search.setColumn(0, "todd", "");
		group3.group2.ipt_todd.setFocus();
		return false;
	}

	return true;
}

function group3_group2_btn_srch_onclick(obj:Button,  e:ClickEventInfo)
{

	if (fSearchchk() == true)
	{
		
		var oParam = {};
			oParam.id          = "TRPIR31201";
			oParam.service     = "cutmngtapp.CutMngtColl";
			oParam.method      = "reqGetCutCollTrgtList";
			oParam.inds        = "req=ds_send_search";
			oParam.outds       = "ds_main_createlist=createlist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRPIR31201";

		tranf_submit(oParam);
	
	}
}

function group3_group2_ipt_todd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		var sLenchk = ds_send_search.getColumn(0, "todd");
		if(sLenchk.length == 8)
		{
			group3.group2.btn_srch.setFocus();
			group3.group2.btn_srch.click();
		}
	}
}

function group3_group2_ipt_fromdd_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	var sLenchk = ds_send_search.getColumn(0, "fromdd");
	if (sLenchk.length == 8)
	{	
		var lastdate = new Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
		var sFromyy = obj.value;

		var s_sFromyy = String(sFromyy).substr(0, 4);
		var sFrommm = obj.value;
		var s_sFrommm = String(sFrommm).substr(4,2);

		if((0 == sFromyy%4 && 0 != sFromyy%100) || 0 == sFromyy%400)
		{
			lastdate[1] = 29;
		}
		var sFromdd = lastdate[s_sFrommm-1];
		
		var sTodd = s_sFromyy+s_sFrommm+sFromdd;
		ds_send_search.setColumn(0, "todd", sTodd);
	}
}

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

function group1_btn_reset_onclick(obj:Button,  e:ClickEventInfo)
{
	fInitialize();
}

function group3_caption10_onclick(obj:Static,  e:ClickEventInfo)
{
	
}

function group3_button12_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_createlist.rowcount == 0)
	{
		sysf_messageBox("엑셀저장할 내역이", "I004");		///엑셀저장할 내역이 없습니다.
	}
	else
	{
		grdf_exportExcel(group3.grd_searchlist, group3.caption10.text, "see");
	}
}
]]></Script>
  </Form>
</FDL>