YNU_JEUS/app_home/himed/xpapps/ast/hsctxp/xp/SMABS10700_조혈모세포이식현황.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMABS10700" position="absolute 0 0 1201 748" titletext="조혈모세포 이식 현황" oninit="SMABS10700_oninit" onload="SMABS10700_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="조혈모세포 이식 현황" class="tit_1" position="absolute 0 0 210 25"/>
        <Button id="btn_prt" taborder="1" text="출력" class="btn6" position="absolute 0 26 56 48"/>
        <Static id="caption1" text="조혈모세포 이식 현황" class="tit_2" position="absolute 0 120 210 141"/>
        <Shape id="line1" class="line_10" position="absolute 0 136 1194 142" anchor="left top right"/>
        <Button id="button2" taborder="2" text="엑셀저장" class="btn7" position="absolute 1114 117 1194 136" anchor="top right" onclick="button2_onclick"/>
        <Div id="grp_sea" taborder="3" class="div_SA2" position="absolute 0 49 1194 109" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption4" text="기간(이식월) :" class="search_name" position="absolute 15 9 127 26"/>
              <Static id="caption7" text="~" class="search_no_b" position="absolute 233 10 245 27"/>
              <Button id="button3" taborder="1" text="조회" class="btn1" position="absolute 1123 20 1179 42" anchor="top right" onclick="grp_sea_button3_onclick"/>
              <Shape id="line2" linetype="vertical" class="line_4" position="absolute 1104 5 1110 51" anchor="top right"/>
              <Static id="caption8" text="진료과 :" class="search_name" position="absolute 363 9 436 26"/>
              <Combo id="combo2" taborder="2" innerdataset="@ds_init_cmbinfo_deptcd_A0478" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 439 8 569 27"/>
              <Combo id="combo3" taborder="3" innerdataset="@ds_init_cmbinfo_atdoctid_A0536" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 439 34 569 53"/>
              <Static id="caption9" text="주치의 :" class="search_name" position="absolute 363 35 436 52"/>
              <Combo id="combo4" taborder="4" innerdataset="@ds_init_cmbinfo_trnptinwardcd_A0479" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 664 8 794 27"/>
              <Static id="caption2" text="비교(이식월) :" class="search_name" position="absolute 15 35 127 52"/>
              <Calendar id="input1" taborder="5" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 130 34 230 53" mask="yyyy-mm" dateformat="yyyy-MM" editformat="yyyy-MM" onchanged="grp_sea_input1_onchanged"/>
              <Static id="caption3" text="~" class="search_no_b" position="absolute 233 35 245 52"/>
              <Calendar id="input4" taborder="6" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 248 34 348 53" mask="yyyy-mm" dateformat="yyyy-MM" editformat="yyyy-MM" onchanged="grp_sea_input4_onchanged"/>
              <Static id="caption5" text="UNIT :" class="search_name" position="absolute 584 9 657 26"/>
              <Combo id="combo1" taborder="7" innerdataset="@ds_init_cmbinfo_lrglist_item" codecolumn="hsctlrgcd" datacolumn="hsctlrgnm" class="combo_search" position="absolute 664 34 794 53"/>
              <Static id="caption10" text="진단명 :" class="search_name" position="absolute 584 35 657 52"/>
              <Calendar id="input2" taborder="8" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 130 8 230 27" mask="yyyy-mm" dateformat="yyyy-MM" value="null" editformat="yyyy-MM" onchanged="grp_sea_input2_onchanged"/>
              <Calendar id="input3" taborder="9" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 248 8 348 27" mask="yyyy-mm" dateformat="yyyy-MM" editformat="yyyy-MM" onchanged="grp_sea_input3_onchanged"/>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_trnptlist" taborder="4" binddataset="ds_main_trnptlist" autoenter="select" useinputpanel="false" autofittype="col" position="absolute 0 141 1194 741" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="19"/>
                <Column size="80"/>
                <Column size="120"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" colspan="2" text="이식형태" taborder="undefined"/>
                <Cell col="3" text="1월"/>
                <Cell col="4" text="2월"/>
                <Cell col="5" text="3월"/>
                <Cell col="6" text="4월"/>
                <Cell col="7" text="5월"/>
                <Cell col="8" text="6월"/>
                <Cell col="9" text="7월"/>
                <Cell col="10" text="8월"/>
                <Cell col="11" text="9월"/>
                <Cell col="12" text="10월"/>
                <Cell col="13" text="11월"/>
                <Cell col="14" text="12월"/>
                <Cell col="15" text="Total"/>
                <Cell col="16" text="전년도"/>
                <Cell col="17" text="증감율"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" edittype="none" style="background:#b2e6e1ff;background2:#b2e6e1ff;selectbackground:#b2e6e1ff;" text="bind:trnptnm" taborder="undefined" suppress="1" suppressalign="middle"/>
                <Cell col="2" edittype="none" style="background:#b2e6e1ff;background2:#b2e6e1ff;selectbackground:#b2e6e1ff;" text="bind:trnptkindnm" taborder="undefined" suppress="2" suppressalign="middle"/>
                <Cell col="3" edittype="none" text="bind:monthcnt01"/>
                <Cell col="4" text="bind:monthcnt02"/>
                <Cell col="5" text="bind:monthcnt03"/>
                <Cell col="6" text="bind:monthcnt04"/>
                <Cell col="7" text="bind:monthcnt05"/>
                <Cell col="8" text="bind:monthcnt06"/>
                <Cell col="9" text="bind:monthcnt07"/>
                <Cell col="10" text="bind:monthcnt08"/>
                <Cell col="11" text="bind:monthcnt09"/>
                <Cell col="12" text="bind:monthcnt10"/>
                <Cell col="13" text="bind:monthcnt11"/>
                <Cell col="14" text="bind:monthcnt12"/>
                <Cell col="15" text="bind:monthcnttotal"/>
                <Cell col="16" text="bind:beforeyearcnt"/>
                <Cell col="17" text="bind:cntaddper"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_req" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="trnptfrommm" type="STRING" size="256"/>
          <Column id="trnpttomm" type="STRING" size="256"/>
          <Column id="trnptfrommm2" type="STRING" size="256"/>
          <Column id="trnpttomm2" type="STRING" size="256"/>
          <Column id="deptcd" type="STRING" size="256"/>
          <Column id="diagcd1" type="STRING" size="256"/>
          <Column id="trnptinwardcd" type="STRING" size="256"/>
          <Column id="atdoctid" type="STRING" size="256"/>
          <Column id="dethyn" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="trnptfrommm"/>
            <Col id="trnpttomm"/>
            <Col id="trnptfrommm2"/>
            <Col id="trnpttomm2"/>
            <Col id="deptcd"/>
            <Col id="diagcd1"/>
            <Col id="trnptinwardcd"/>
            <Col id="atdoctid"/>
            <Col id="dethyn">N</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_cmbinfo_deptcd_A0478" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hsctmdlnm" type="STRING" size="256"/>
          <Column id="hsctmdlcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmbinfo_trnptinwardcd_A0479" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hsctmdlnm" type="STRING" size="256"/>
          <Column id="hsctmdlcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmbinfo_atdoctid_A0536" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hsctmdlnm" type="STRING" size="256"/>
          <Column id="hsctmdlcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmbinfo_lrglist_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hsctlrgnm" type="STRING" size="256"/>
          <Column id="hsctlrgcd" type="STRING" size="256"/>
        </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="lrggrupcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="lrggrupcd">DI</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_trnptlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="trnptnm" type="STRING" size="256" sumtext="이식종류"/>
          <Column id="trnptkindnm" type="STRING" size="256" sumtext="Sub이식종류"/>
          <Column id="monthcnt01" type="INT" size="256" sumtext="1월건수"/>
          <Column id="monthcnt02" type="INT" size="256" sumtext="2월건수"/>
          <Column id="monthcnt03" type="INT" size="256" sumtext="3월건수"/>
          <Column id="monthcnt04" type="INT" size="256" sumtext="4월건수"/>
          <Column id="monthcnt05" type="INT" size="256" sumtext="5월건수"/>
          <Column id="monthcnt06" type="INT" size="256" sumtext="6월건수"/>
          <Column id="monthcnt07" type="INT" size="256" sumtext="7월건수"/>
          <Column id="monthcnt08" type="INT" size="256" sumtext="8월건수"/>
          <Column id="monthcnt09" type="INT" size="256" sumtext="9월건수"/>
          <Column id="monthcnt10" type="INT" size="256" sumtext="10월건수"/>
          <Column id="monthcnt11" type="INT" size="256" sumtext="11월건수"/>
          <Column id="monthcnt12" type="INT" size="256" sumtext="12월건수"/>
          <Column id="monthcnttotal" type="INT" size="256" sumtext="전체건수"/>
          <Column id="beforeyearcnt" type="INT" size="256" sumtext="전년도건수"/>
          <Column id="cntaddper" type="BIGDECIMAL" size="256" sumtext="증감율"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.input1" propid="value" datasetid="ds_send_req" columnid="trnptfrommm2"/>
      <BindItem id="item1" compid="grp_sea.input2" propid="value" datasetid="ds_send_req" columnid="trnptfrommm"/>
      <BindItem id="item2" compid="grp_sea.input3" propid="value" datasetid="ds_send_req" columnid="trnpttomm"/>
      <BindItem id="item3" compid="grp_sea.input4" propid="value" datasetid="ds_send_req" columnid="trnpttomm2"/>
      <BindItem id="item4" compid="grp_sea.combo3" propid="value" datasetid="ds_send_req" columnid="atdoctid"/>
      <BindItem id="item5" compid="grp_sea.combo2" propid="value" datasetid="ds_send_req" columnid="deptcd"/>
      <BindItem id="item6" compid="grp_sea.combo4" propid="value" datasetid="ds_send_req" columnid="trnptinwardcd"/>
      <BindItem id="item7" compid="grp_sea.combo1" propid="value" datasetid="ds_send_req" columnid="diagcd1"/>
    </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_hsctxp::bmtcommon.xjs";
function SMABS10700_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMABS10700_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_trnptlist);
	
	var arrParam 	= [{dsNm: "ds_init_cmbinfo_deptcd_A0478", cdGrpId: "A0478"}
					  ,{dsNm: "ds_init_cmbinfo_trnptinwardcd_A0479", cdGrpId: "A0479"}
					  ,{dsNm: "ds_init_cmbinfo_atdoctid_A0536", cdGrpId: "A0536"}];
	aboGetCodeList(arrParam);
	
	ds_init_cmbinfo_deptcd_A0478.insertRow(0);
	ds_init_cmbinfo_trnptinwardcd_A0479.insertRow(0);
	ds_init_cmbinfo_atdoctid_A0536.insertRow(0);
	
	dsf_setDefaultVal(ds_send, "lrggrupcd:DI");
	
	var oParam = {};
		oParam.id          = "TRABO02101";
		oParam.service     = "hsctcoordinatorapp.HsctPatient";
		oParam.method      = "reqGetLrgInfo";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_init_cmbinfo_lrglist_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABO02101";

	tranf_submit(oParam);
	
	ds_init_cmbinfo_lrglist_item.insertRow(0);
	
	var scurrentdd   = utlf_getCurrentDate();

	ds_send_req.setColumn(0, "trnptfrommm", scurrentdd.toDate().getAddDate(-30,"D").getDateFormat("YYYYMM"));
	ds_send_req.setColumn(0, "trnpttomm", scurrentdd.toDate().getAddDate(30,"D").getDateFormat("YYYYMM"));
	ds_send_req.setColumn(0, "trnptfrommm2", scurrentdd.toDate().getAddDate(-30,"D").getDateFormat("YYYYMM"));
	ds_send_req.setColumn(0, "trnpttomm2", scurrentdd.toDate().getAddDate(30,"D").getDateFormat("YYYYMM"));
}

function grp_sea_input2_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	ds_send_req.setColumn(0, "trnptfrommm", String(obj.value).substr(0,6));
}

function grp_sea_input3_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	ds_send_req.setColumn(0, "trnpttomm", String(obj.value).substr(0,6));
}

function grp_sea_input1_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	ds_send_req.setColumn(0, "trnptfrommm2", String(obj.value).substr(0,6));
}

function grp_sea_input4_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	ds_send_req.setColumn(0, "trnpttomm2", String(obj.value).substr(0,6));
}

function grp_sea_button3_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetTrnptInfo();
}

function fGetTrnptInfo()
{
	if (datacheck() == false)
	{
		return;
	}
	
	dsf_setFixVal(ds_send_req, "dethyn:N");
	
	var oParam = {};
		oParam.id          = "TRABS10701";
		oParam.service     = "hsctcoordinatorapp.HsctPatient";
		oParam.method      = "reqGetBmtTrnptStats";
		oParam.inds        = "req=ds_send_req";
		oParam.outds       = "ds_main_trnptlist=trnptlist ds_=message";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABS10701";

	tranf_submit(oParam);
	
	for (var i = 0; i < ds_main_trnptlist.rowcount; i ++) 
	{
		var iMonthCntTotal = ds_main_trnptlist.getColumn(i, "monthcnttotal");
		var iBeforeYearCnt = ds_main_trnptlist.getColumn(i, "beforeyearcnt");

		if (utlf_isNull(iMonthCntTotal) || utlf_isNull(iBeforeYearCnt) || iBeforeYearCnt == 0 ) 
		{
			dsf_makeValue(ds_main_trnptlist, "cntaddper", "string", "", i);
		}
		else 
		{
			var dCntAddPer = ((parseFloat(iMonthCntTotal) - parseFloat(iBeforeYearCnt)) / parseFloat(iBeforeYearCnt)) * 100;
			dsf_makeValue(ds_main_trnptlist, "cntaddper", "string", (Math.round(dCntAddPer * 100) / 100), i);
		}
	}
}

function datacheck()
{
	if (isDate(ds_send_req.getColumn(0, "trnptfrommm")) == false)
	{
		sysf_messageBox("기간(이식월) 시작일의 날짜 형식이 잘못 입력되었습니다.", "E999", "");
		return false;
	}
	
	if(utlf_isNull(ds_send_req.getColumn(0, "trnptfrommm")))
	{
		sysf_messageBox("기간(이식월) 시작일은 필수 입력 또는 선택 항목입니다.", "E999", "");
		return false;
	}
	
	if (isDate(ds_send_req.getColumn(0, "trnpttomm")) == false)
	{
		sysf_messageBox("기간(이식월) 종료일의 날짜 형식이 잘못 입력되었습니다.", "E999", "");
		return false;
	}
	if (utlf_isNull(ds_send_req.getColumn(0, "trnpttomm")))
	{
		sysf_messageBox("기간(이식월) 종료일은 필수 입력 또는 선택 항목입니다.", "E999", "");
		return false;
	}
	
	if(ds_send_req.getColumn(0, "trnptfrommm") > ds_send_req.getColumn(0, "trnpttomm"))
	{
		sysf_messageBox("기간(이식월) 기간일이 잘못 입력되었습니다.", "E999", "");
		return false;
	}
	
	if (isDate(ds_send_req.getColumn(0, "trnptfrommm2")) == false)
	{
		sysf_messageBox("비교(이식월) 시작일의 날짜 형식이 잘못 입력되었습니다.", "E999", "");
		return false;
	}
	
	if(utlf_isNull(ds_send_req.getColumn(0, "trnptfrommm2")))
	{
		sysf_messageBox("비교(이식월) 시작일은 필수 입력 또는 선택 항목입니다.", "E999", "");
		return false;
	}
	if (isDate(ds_send_req.getColumn(0, "trnpttomm2")) == false)
	{
		sysf_messageBox("비교(이식월) 종료일의 날짜 형식이 잘못 입력되었습니다.", "E999", "");
		return false;
	}
	
	if(utlf_isNull(ds_send_req.getColumn(0, "trnpttomm2")))
	{
		sysf_messageBox("비교(이식월) 종료일은 필수 입력 또는 선택 항목입니다.", "E999", "");
		return false;
	}
	
	if(ds_send_req.getColumn(0, "trnptfrommm2") > ds_send_req.getColumn(0, "trnpttomm2"))
	{
		sysf_messageBox("비교(이식월) 기간일이 잘못 입력되었습니다.", "E999", "");
		return false;
	}
	return true;
}

function isDate(str) 
{
	if (utlf_isNull(str))
	{
		return true; 
	}
	if (utlf_isNull(trim(str)))
	{
		return true;
	}
	if (isNaN(parseInt(str))) 
	{
		return false;
	}
	if (str.length != 6)
	{	
		return false;
	}
	
	var yy = new Number(str.substring(0, 4));
	var mm = new Number(str.substring(4, 6)) - 1;
	var dd = 1;
	var date = new Date(yy, mm, dd);
	
	if (yy != date.getFullYear() || mm != date.getMonth()) 
	{
		return false;
	}

	return true;
}

function trim(data)
{
	return data.replace(/(^\s*)|(\s*$)/g, "");
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_trnptlist, "조혈모세포이식현황", "", "false", "", "", "");
}
]]></Script>
  </Form>
</FDL>