YNU_JEUS/app_home/himed/xpapps/ast/hsctxp/xp/SMABO00300_비혈연공여자검색의뢰.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMABO00300" position="absolute 0 0 930 649" titletext="비혈연 공여자 검색의뢰" oninit="SMABO00300_oninit" onload="SMABO00300_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="비혈연공여자 검색의뢰" class="tit_1" position="absolute 0 0 200 25"/>
        <Button id="btn_prt" taborder="1" text="출력" class="btn6" position="absolute 0 27 56 49" onclick="btn_prt_onclick"/>
        <Button id="btn_save" taborder="2" text="저장" class="btn4" position="absolute 868 27 924 49" onclick="btn_save_onclick" anchor="top right"/>
        <Div id="grp_sea" taborder="3" class="div_SA2" position="absolute 0 51 925 91" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption2" text="기간(의뢰일) :" class="search_name" position="absolute 15 12 127 29"/>
              <Static id="caption5" text="~" class="search_no_b" position="absolute 233 13 245 30"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 834 9 840 31" anchor="top right"/>
              <Calendar id="ipt_reqfromdd" taborder="1" class="input_s_essential" position="absolute 130 11 230 30" autoselect="true" autoskip="true"/>
              <Calendar id="ipt_reqtodd" taborder="2" class="input_s_essential" position="absolute 249 11 349 30" autoselect="true" autoskip="true"/>
              <Combo id="cmb_adoct" taborder="3" innerdataset="@ds_init_cmbinfo_atdoctid_A0536" codecolumn="hsctmdlcd" datacolumn="hsctmdlnm" class="combo_search" position="absolute 440 11 540 30"/>
              <Static id="caption4" text="주치의 :" class="search_name" position="absolute 364 12 437 29"/>
              <Button id="btn_sea" taborder="4" text="조회" class="btn1" position="absolute 853 9 909 31" onclick="grp_sea_btn_sea_onclick" anchor="top right"/>
              <Edit id="ipt_pid" taborder="5" class="input_essential" position="absolute 645 11 745 30" autoselect="true" autoskip="true" onkeyup="grp_sea_ipt_pid_onkeyup"/>
              <Static id="caption16" text="등록번호 :" class="search_name" position="absolute 556 12 642 29"/>
              <Button id="btn_pid" taborder="6" position="absolute 728 14 741 27" onclick="grp_sea_btn_pid_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_excsave" taborder="4" text="엑셀저장" class="btn7" position="absolute 845 97 925 116" onclick="btn_excsave_onclick" anchor="top right"/>
        <Shape id="line1" class="line_10" position="absolute 0 116 924 122" anchor="left top right"/>
        <Grid id="grd_reqlist" taborder="5" binddataset="ds_main_reqlist_item" useinputpanel="false" position="absolute 0 121 924 642" autoenter="select" autofittype="col" cellsizingtype="col" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="26"/>
                <Column size="89"/>
                <Column size="81"/>
                <Column size="113"/>
                <Column size="95"/>
                <Column size="200"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" 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="trnptflag"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" text="bind:hngnm"/>
                <Cell col="2" text="bind:pid"/>
                <Cell col="3" text="bind:reqorddept"/>
                <Cell col="4" text="bind:reqnm"/>
                <Cell col="5" text="bind:diagnm"/>
                <Cell col="6" displaytype="date" text="bind:reqdd" calendardisplaynulltype="nulltext"/>
                <Cell col="7" displaytype="checkbox" edittype="checkbox" text="bind:reqqualyn" expr="expr:reqqualyn == 'Y' ? 1 : 0"/>
                <Cell col="8" displaytype="date" text="bind:reqqualdd" calendardisplaynulltype="nulltext"/>
                <Cell col="9" text="bind:trnptflag"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption1" text="비혈연공여자 검색의뢰 리스트" class="tit_2" position="absolute 0 100 200 121"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="reqfromdd" type="STRING" size="256"/>
          <Column id="reqtodd" type="STRING" size="256"/>
          <Column id="reqid" type="STRING" size="256"/>
          <Column id="trnptflag" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="reqfromdd"/>
            <Col id="reqtodd"/>
            <Col id="reqid"/>
            <Col id="trnptflag">U</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_reqlist_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_reqlist_item_oncolumnchanged">
        <ColumnInfo>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="reqorddept" type="STRING" size="256" sumtext="의뢰자진료과코드"/>
          <Column id="reqnm" type="STRING" size="256" sumtext="주치의명"/>
          <Column id="diagnm" type="STRING" size="256" sumtext="진단명"/>
          <Column id="reqdd" type="STRING" size="256" sumtext="의뢰일"/>
          <Column id="reqqualyn" type="STRING" size="256" sumtext="확인여부"/>
          <Column id="reqqualdd" type="STRING" size="256" sumtext="의뢰확인일자"/>
          <Column id="reqcnfmrid" type="STRING" size="256" sumtext="의뢰확인자"/>
          <Column id="trnptflag" type="STRING" size="256" sumtext="UBMT/CORD구분"/>
          <Column id="reqid" type="STRING" size="256" sumtext="주치의ID"/>
        </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="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_paminfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_hsctinfo_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_bmtpatientinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <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" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.ipt_reqfromdd" propid="value" datasetid="ds_send" columnid="reqfromdd"/>
      <BindItem id="item1" compid="grp_sea.ipt_reqtodd" propid="value" datasetid="ds_send" columnid="reqtodd"/>
      <BindItem id="item2" compid="grp_sea.cmb_adoct" propid="value" datasetid="ds_send" columnid="reqid"/>
      <BindItem id="item3" compid="grp_sea.ipt_pid" propid="value" datasetid="ds_send" 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_hsctxp::bmtcommon.xjs";
function SMABO00300_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMABO00300_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_reqlist);
	
	var arrParam 	= [{dsNm: "ds_init_cmbinfo_atdoctid_A0536", cdGrpId: "A0536"}];
	aboGetCodeList(arrParam);
	
	ds_init_cmbinfo_atdoctid_A0536.insertRow(0);
		
	var reqfromdd = String(utlf_getCurrentDate()).substr(0,6).toDate().getAddDate(1,"D").getDateFormat("YYYYMMDD");
	ds_send.setColumn(0, "reqfromdd", reqfromdd);
	
	var reqtodd   = String(utlf_getCurrentDate()).substr(0,6) + reqfromdd.toDate().getMonthDay();
	ds_send.setColumn(0, "reqtodd", reqtodd);
	
	if ( frmf_checkOpener())
	{
		var param = opener.frmf_getParameter("opener_parameter_id");
		
		if(!utlf_isNull(param))
		{
			condarray = param.split("▦");
			
			ds_send.setColumn(0, "pid", condarray[0]);

			return;
		}
	}
	
	var paminfo = sysf_getGlobalVariable("paminfo");
	
	if (!utlf_isNull(paminfo))
	{
		ds_temp_paminfo.clearData();
		dsf_setCSVToDs("ds_temp_paminfo", paminfo);
		
		var pid = ds_temp_paminfo.getColumn(0, "pid");
		
		ds_send.setColumn(0, "pid", pid);
	} 
	else 
	{
		var gv_pid = sysf_getGlobalVariable("gv_pid", "A");
		
		if(!utlf_isNull(gv_pid))
		{
			ds_send.setColumn(0, "pid", gv_pid);

		}
	}

	btn_save.enable = frmf_checkAuth("X");
}

function grp_sea_ipt_pid_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_sea.btn_sea.click();
	}
}

function grp_sea_btn_pid_onclick(obj:Button,  e:ClickEventInfo)
{
	abofGetBmtPatientSearch("ds_main_hsctinfo_patinfolist", "ds_temp_bmtpatientinfo");
	ds_send.setColumn(0, "pid", ds_main_hsctinfo_patinfolist.getColumn(0, "pid"));
}

function grp_sea_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRABO00301";
		oParam.service     = "hsctcoordinatorapp.TrnptRequest";
		oParam.method      = "reqGetUbmtCordReqList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_reqlist_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABO00301";

	tranf_submit(oParam);
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TXABO00301";
		oParam.service     = "hsctcoordinatorapp.TrnptRequest";
		oParam.method      = "reqSetSearchReqConfirm";
		oParam.inds        = "data=ds_main_reqlist_item:u";
		oParam.outds       = "ds_=item";
		oParam.typeStr     = "m";
		oParam.async       = false;
		//oParam.callback    = "cf_TXABO00301";

	tranf_submit(oParam);
	
	var oParam = {};
		oParam.id          = "TRABO00301";
		oParam.service     = "hsctcoordinatorapp.TrnptRequest";
		oParam.method      = "reqGetUbmtCordReqList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_reqlist_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABO00301";

	tranf_submit(oParam);
}

function btn_prt_onclick(obj:Button,  e:ClickEventInfo)
{
	var objDOM 		= rptf_createDOM();
	var objParam 	= new Object();
		rptf_setNodeListToDOM(objDOM, "/root/main/reqlist/item" , ds_main_reqlist_item);
		rptf_setNodeListToDOM(objDOM, "/root/send" , ds_send);
		objParam.xml_data_XML1 	= objDOM.documentElement.source;
	var option 		= "";
	rptf_exeReportPreview30(["RPABO00301"],[objParam], option);
}

function btn_excsave_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_reqlist, "비혈연간공여자검색의뢰", "see", "false");
}

function ds_main_reqlist_item_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "reqqualyn")
	{
		obj.setColumn(e.row, "reqqualyn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
}
]]></Script>
  </Form>
</FDL>