YNU_JEUS/app_home/himed/xpapps/ast/hsctstemcellxp/xp/SMABC01300_조혈모세포실세포폐기현황.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMABC01300" position="absolute 0 0 1197 720" titletext="조혈모세포폐기현황조회" onload="SMABC01300_onload" oninit="SMABC01300_oninit">
    <Layouts>
      <Layout>
        <Static id="caption6" text="조혈모세포폐기현황조회" class="tit_1" position="absolute 0 0 210 23"/>
        <Static id="caption1" text="조혈모세포폐기현황" class="tit_2" position="absolute 0 94 210 115"/>
        <Shape id="line1" class="line_10" position="absolute 0 110 1194 116"/>
        <Grid id="grd_cellabnprescondlist" taborder="1" binddataset="ds_main_cellabnprescond_cellabnprescondlist" useinputpanel="false" position="absolute 0 115 1194 715" anchor="all" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="24"/>
                <Column size="105"/>
                <Column size="144"/>
                <Column size="108"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="219"/>
                <Column size="108"/>
                <Column size="105"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="폐기일자"/>
                <Cell col="2" text="Stem Cell Source"/>
                <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="보관일자"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="date" text="bind:abndd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
                <Cell col="2" displaytype="combo" edittype="combo" text="bind:scs" combodataset="ds_init_stemcellsource_A0159" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="3" displaytype="none" edittype="none" text="bind:hngnm"/>
                <Cell col="4" text="bind:pid"/>
                <Cell col="5" text="bind:depthngnm"/>
                <Cell col="6" text="bind:atdoctid"/>
                <Cell col="7" displaytype="combo" edittype="combo" text="bind:abnresn" combodataset="ds_init_abnresn_A0155" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="8" text="bind:abnid"/>
                <Cell col="9" text="bind:cellbcno"/>
                <Cell col="10" displaytype="date" text="bind:keepdd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="button2" taborder="2" text="엑셀저장" class="btn7" position="absolute 1114 90 1194 109" anchor="top right" onclick="button2_onclick"/>
        <Div id="grp_sea" taborder="3" class="div_SA" position="absolute 0 24 1194 85" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption2" text="폐기일자 :" class="search_name" position="absolute 15 9 127 26" anchor="default"/>
              <Static id="caption5" text="~" class="search_no_b" position="absolute 213 10 225 27" anchor="default"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1104 6 1110 52" anchor="top right"/>
              <Calendar id="input25" taborder="1" class="input_s_essential" position="absolute 228 9 328 28" mask="yyyy-mm-dd" anchor="default" autoselect="true" dateformat="yyyy-MM-dd"/>
              <Static id="caption3" text="진료과 :" class="search_name" position="absolute 363 9 436 26" anchor="default"/>
              <Combo id="combo1" taborder="2" innerdataset="@ds_hiddne_orddeptlist_dept" codecolumn="deptcd" datacolumn="depthngnm" class="combo_search" position="absolute 439 8 569 27" anchor="default" onitemchanged="grp_sea_combo1_onitemchanged"/>
              <Combo id="combo2" taborder="3" innerdataset="@ds_init_abnresn_A0155" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 751 8 901 27" anchor="default"/>
              <Static id="caption4" text="폐기사유 :" class="search_name" position="absolute 597 9 683 26" anchor="default"/>
              <Button id="btn_sea" taborder="4" text="조회" class="btn1" position="absolute 1123 20 1183 42" anchor="top right" onclick="grp_sea_btn_sea_onclick"/>
              <Combo id="combo3" taborder="5" innerdataset="@ds_hidden_userlist_usercombo" codecolumn="userid" datacolumn="usernm" class="combo_search" position="absolute 439 34 569 53" anchor="default"/>
              <Static id="caption7" text="주치의 :" class="search_name" position="absolute 363 35 436 52" anchor="default"/>
              <Static id="caption9" text="Stem Cell Source :" class="search_name" position="absolute 597 35 748 52" anchor="default"/>
              <Combo id="combo5" taborder="6" innerdataset="@ds_init_stemcellsource_A0159" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 751 35 901 54" anchor="default"/>
              <Calendar id="ipt_prcpfromdd" taborder="7" class="input_s_essential" position="absolute 110 9 210 28" mask="yyyy-mm-dd" anchor="default" autoselect="true" dateformat="yyyy-MM-dd" value="null"/>
              <Static id="caption16" text="등록번호 :" class="search_name" position="absolute 15 35 116 52" anchor="default"/>
              <Edit id="input6" taborder="8" class="input_search" position="absolute 110 34 210 53" anchor="default" autoselect="true"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_baseinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpfromdd" type="STRING" size="256"/>
          <Column id="prcptodd" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="atdoctid" type="STRING" size="256"/>
          <Column id="abnresn" type="STRING" size="256"/>
          <Column id="scs" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="prcpfromdd"/>
            <Col id="prcptodd"/>
            <Col id="orddeptcd"/>
            <Col id="atdoctid"/>
            <Col id="abnresn"/>
            <Col id="scs"/>
            <Col id="pid"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hiddne_orddeptlist_dept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="depthngnm" type="STRING" size="256"/>
          <Column id="deptcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_abnresn_A0155" 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>
      </Dataset>
      <Dataset id="ds_init_stemcellsource_A0159" 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>
      </Dataset>
      <Dataset id="ds_hidden_userlist_usercombo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="usernm" type="STRING" size="256"/>
          <Column id="userid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_cellabnprescond_cellabnprescondlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="abndd" type="STRING" size="256" sumtext="폐기일자"/>
          <Column id="scs" type="STRING" size="256" sumtext="Stem Cell Source"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="depthngnm" type="STRING" size="256" sumtext="진료과명"/>
          <Column id="atdoctid" type="STRING" size="256" sumtext="주치의"/>
          <Column id="abnresn" type="STRING" size="256" sumtext="폐기사유"/>
          <Column id="abnid" type="STRING" size="256" sumtext="폐기자"/>
          <Column id="cellbcno" type="STRING" size="256" sumtext="세포번호"/>
          <Column id="keepdd" type="STRING" size="256" sumtext="보관일자"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.ipt_prcpfromdd" propid="value" datasetid="ds_send_baseinfo" columnid="prcpfromdd"/>
      <BindItem id="item1" compid="grp_sea.input25" propid="value" datasetid="ds_send_baseinfo" columnid="prcptodd"/>
      <BindItem id="item2" compid="grp_sea.combo1" propid="value" datasetid="ds_send_baseinfo" columnid="orddeptcd"/>
      <BindItem id="item3" compid="grp_sea.combo2" propid="value" datasetid="ds_send_baseinfo" columnid="abnresn"/>
      <BindItem id="item4" compid="grp_sea.combo5" propid="value" datasetid="ds_send_baseinfo" columnid="scs"/>
      <BindItem id="item5" compid="grp_sea.combo3" propid="value" datasetid="ds_send_baseinfo" columnid="atdoctid"/>
      <BindItem id="item6" compid="grp_sea.input6" propid="value" datasetid="ds_send_baseinfo" columnid="pid"/>
    </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_examcurexp::AEZ0001.xjs";
function SMABC01300_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}
function SMABC01300_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_cellabnprescondlist);
	
	lf_aezfSetSuppDeptcd();
	
	var instcd = sysf_getUserInfo("dutplceinstcd");
	
	appf_getDeptCodeList(instcd, "orduseyn", "D", "deptcd", "asc", "", "", "", "ds_hiddne_orddeptlist_dept", false, "");
	
	var arrParam = [{dsNm: "ds_init_abnresn_A0155", cdGrpId: "A0155"}
				  , {dsNm: "ds_init_stemcellsource_A0159", cdGrpId: "A0159"}]
	appf_getCodeList(arrParam); 
	
	var oParam = {};
		oParam.id          = "TRABC01301";
		oParam.service     = "hsctstemcellapp.StemCellPresCond";
		oParam.method      = "reqGetCellAbnPresCondList";
		oParam.inds        = "req=ds_send_baseinfo";
		oParam.outds       = "ds_main_cellabnprescond_cellabnprescondlist=cellabnprescondlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABC01301";

	tranf_submit(oParam);
	
	ds_send_baseinfo.setColumn(0, "prcpfromdd", utlf_getCurrentDate());
	ds_send_baseinfo.setColumn(0, "prcptodd", grp_sea.ipt_prcpfromdd.value);
	
	grp_sea.ipt_prcpfromdd.value = String(grp_sea.ipt_prcpfromdd.value).toDate().getAddDate(-7,"D").getDateFormat("YYYYMMDD") ;
}

function grp_sea_combo1_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	var deptcd = ds_send_baseinfo.getColumn(0, "orddeptcd");
	
	dsf_createDsRow("ds_Ref", [{col:"dutplcecd", type:"STRING", size:256 , val : deptcd}
							,  {col:"dutplceinstcd", type:"STRING", size:256 , val : sysf_getUserInfo("dutplceinstcd")}
							,  {col:"jobkindcd", type:"STRING", size:256 , val : "_D"}]);
	
	var oParam = {};
		oParam.id          = "TRZSU10105";
		oParam.service     = "userdeptinfoapp.UserDeptInfo";
		oParam.method      = "reqGetUserInfoCombo";
		oParam.inds        = "req=ds_Ref";
		oParam.outds       = "ds_hidden_userlist_usercombo=usercombo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRZSU10105";

	tranf_submit(oParam);
}

function grp_sea_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	readfunc();
}

function trim(data)
{				// 문자에 대한 TRIM 작업
	return data.replace(/(^\s*)|(\s*$)/g, "");
}

function isDate(str)
{
	if(utlf_isNull(str))
	{
		return true;  
	}
	  
	if (utlf_isNull(trim(str)))
	{
		return true;             // 빈건 체크안함
	}
	if (isNaN(parseInt(str))) 
	{
		return false; // 숫자가 아니면 fals
	}
	if (str.length != 8) 
	{
		return false;
	}
	
	var yy = new Number(str.substr(0, 4));
	var mm = new Number(str.substr(4, 2));
	var dd = new Number(str.substr(6, 2));
	var date = new Date(yy, mm, dd);
	
	if (yy != date.getFullYear() || mm != date.getMonth() || dd != date.getDate()) 
	{
		return false;  // 존재하지 않는 날짜
	}

	return true;  // 존재하는 날짜
}

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

function readfunc()
{
	if (datacheck() == false)
	{
		return;
	}
	ds_main_cellabnprescond_cellabnprescondlist.clearData();
	
	var oParam = {};
		oParam.id          = "TRABC01301";
		oParam.service     = "hsctstemcellapp.StemCellPresCond";
		oParam.method      = "reqGetCellAbnPresCondList";
		oParam.inds        = "req=ds_send_baseinfo";
		oParam.outds       = "ds_main_cellabnprescond_cellabnprescondlist=cellabnprescondlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABC01301";

	tranf_submit(oParam);

	if(utlf_isNull(ds_main_cellabnprescond_cellabnprescondlist.getColumn(0, "hngnm")))
	{
		ds_main_cellabnprescond_cellabnprescondlist.clearData();
	}
}

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