YNU_JEUS/app_home/himed/xpapps/ast/hsctstemcellxp/xp/SMABC01200_조혈모세포처리실처방리스트.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMABC01200" position="absolute 0 0 1199 762" titletext="조혈모세포처방리스트" oninit="SMABC01200_oninit" onload="SMABC01200_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="조혈모세포 처방 리스트" class="tit_1" position="absolute 0 0 224 25"/>
        <Div id="grp_sea" taborder="1" class="div_SA2" position="absolute 0 36 1194 76" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption2" text="기간(적용일) :" class="search_name" position="absolute 15 11 127 28"/>
              <Static id="caption5" text="~" class="search_no_b" position="absolute 234 12 246 29"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1105 7 1111 31" anchor="top right"/>
              <Calendar id="input1" taborder="4" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 130 10 230 29"/>
              <Calendar id="input25" taborder="5" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 248 10 348 29"/>
              <Button id="btn_sea" taborder="6" text="조회" class="btn1" position="absolute 1123 9 1179 31" anchor="top right" onclick="grp_sea_btn_sea_onclick"/>
              <Static id="caption3" text="Row를 Double Click하면 조혈모세포처리Result 입력 또는 조혈모세포보관 및 해동현황 화면으로 이동합니다." class="search_name" position="absolute 364 12 1100 29" style="color:#000000ff;"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_excsave" taborder="2" text="엑셀저장" class="btn7" position="absolute 1114 87 1194 106" anchor="top right" onclick="btn_excsave_onclick"/>
        <Static id="caption1" text="조혈모세포 처방 리스트" class="tit_2" position="absolute 0 90 190 111"/>
        <Grid id="datagrid1" taborder="3" binddataset="ds_main_directprcplist_prcplist" autoenter="select" useinputpanel="false" cellsizingtype="col" position="absolute 0 111 1194 756" anchor="all" oncelldblclick="datagrid1_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="26"/>
                <Column size="77"/>
                <Column size="85"/>
                <Column size="80"/>
                <Column size="74"/>
                <Column size="94"/>
                <Column size="78"/>
                <Column size="0"/>
                <Column size="100"/>
                <Column size="109"/>
                <Column size="70"/>
                <Column size="100"/>
                <Column size="67"/>
                <Column size="155"/>
                <Column size="100"/>
                <Column size="155"/>
                <Column size="316"/>
                <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="Stem Cell Source"/>
                <Cell col="10" text="Cryo여부"/>
                <Cell col="11" text="CD34채집여부"/>
                <Cell col="12" text="해동여부"/>
                <Cell col="13" text="처리일시"/>
                <Cell col="14" text="처방의사"/>
                <Cell col="15" text="처방일시"/>
                <Cell col="16" text="지시처방명"/>
                <Cell col="17" text="prcpcd"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="combo" edittype="combo" text="bind:execprcpstatcd" combodataset="ds_init_cmbinfo_execprcpstatcd_M0011" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="2" displaytype="none" edittype="none" text="bind:prcphopedd"/>
                <Cell col="3" displaytype="none" edittype="none" text="bind:pid"/>
                <Cell col="4" displaytype="none" edittype="none" text="bind:hngnm"/>
                <Cell col="5" text="bind:deptnm"/>
                <Cell col="6" text="bind:atdoctid"/>
                <Cell col="7" text="bind:prcpdd"/>
                <Cell col="8" displaytype="combo" edittype="combo" text="bind:trnpttype" combodataset="ds_init_cmbinfo_trnpttype_A0158" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="9" displaytype="combo" edittype="combo" text="bind:scs" combodataset="ds_init_cmbinfo_stemcellsource_A0159" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="10" displaytype="checkbox" edittype="checkbox" text="bind:cryoyn" expr="expr:cryoyn == 'Y' ? 1 : 0"/>
                <Cell col="11" displaytype="checkbox" edittype="checkbox" text="bind:cd34collyn" expr="expr:cd34collyn == 'Y' ? 1 : 0"/>
                <Cell col="12" displaytype="checkbox" edittype="checkbox" text="bind:thawyn" expr="expr:thawyn == 'Y' ? 1 : 0"/>
                <Cell col="13" text="bind:tretdt" mask="####-##-## ##:##:##" maskchar=" "/>
                <Cell col="14" text="bind:orddrnm"/>
                <Cell col="15" text="bind:prcpdt" mask="####-##-## ##:##:##" maskchar=" "/>
                <Cell col="16" text="bind:prcpnm"/>
                <Cell col="17" text="bind:prcpcd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line1" class="line_10" position="absolute 0 106 1194 112" anchor="left top right"/>
      </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="prcphopefromdd" type="STRING" size="256"/>
          <Column id="prcphopetodd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="prcphopefromdd"/>
            <Col id="prcphopetodd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_directprcplist_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_directprcplist_prcplist_oncolumnchanged">
        <ColumnInfo>
          <Column id="execprcpstatcd" type="STRING" size="256" sumtext="처방상태"/>
          <Column id="prcphopedd" type="STRING" size="256" sumtext="적용(처방희망)일자"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="deptnm" type="STRING" size="256" sumtext="진료과"/>
          <Column id="atdoctid" type="STRING" size="256" sumtext="주치의"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="처방의사"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="지시처방명"/>
          <Column id="trnpttype" type="STRING" size="256" sumtext="이식형태"/>
          <Column id="scs" type="STRING" size="256" sumtext="scs"/>
          <Column id="cryoyn" type="STRING" size="256" sumtext="cryo여부"/>
          <Column id="cd34collyn" type="STRING" size="256" sumtext="cd34채집여부"/>
          <Column id="thawyn" type="STRING" size="256" sumtext="해동여부"/>
          <Column id="tretdt" type="STRING" size="256" sumtext="처리일시"/>
          <Column id="prcpdt" type="STRING" size="256" sumtext="처방일시"/>
          <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmbinfo_execprcpstatcd_M0011" 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_init_cmbinfo_trnpttype_A0158" 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_init_cmbinfo_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>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.input1" propid="value" datasetid="ds_send_req" columnid="prcphopefromdd"/>
      <BindItem id="item1" compid="grp_sea.input25" propid="value" datasetid="ds_send_req" columnid="prcphopetodd"/>
    </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";
include "ast_hsctxp::bmtcommon.xjs";
function SMABC01200_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMABC01200_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(datagrid1);
	
	var arrParam = [{dsNm: "ds_init_cmbinfo_stemcellsource_A0159", cdGrpId: "A0159"}
				  , {dsNm: "ds_init_cmbinfo_trnpttype_M0029", cdGrpId: "M0029"}
				  , {dsNm: "ds_init_cmbinfo_execprcpstatcd_M0011", cdGrpId: "M0011"}]
	appf_getCodeList(arrParam); 
	
	ds_send_req.setColumn(0, "prcphopetodd", utlf_getCurrentDate());
	ds_send_req.setColumn(0, "prcphopefromdd", utlf_getCurrentDate().toDate().getAddDate(-30,"D").getDateFormat("YYYYMMDD"));
}

function grp_sea_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRABC00101";
		oParam.service     = "hsctstemcellapp.StemCellTreat";
		oParam.method      = "reqGetBmtPrcpList";
		oParam.inds        = "req=ds_send_req";
		oParam.outds       = "ds_main_directprcplist_prcplist=prcplist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABC00101";

	tranf_submit(oParam);
}

function datagrid1_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var pid        = ds_main_directprcplist_prcplist.getColumn(ds_main_directprcplist_prcplist.rowposition, "pid");
	var prcphopedd = ds_main_directprcplist_prcplist.getColumn(ds_main_directprcplist_prcplist.rowposition, "prcphopedd");
	
	if(ds_main_directprcplist_prcplist.getColumn(ds_main_directprcplist_prcplist.rowposition, "thawyn") != "Y") 
	{
		var sflag = pid + "▦" + prcphopedd;

		frmf_setParameter("opener_parameter_id", sflag);
		frmf_modal("SMABC00200", "SMABC00200", "", "", "", "", "", "", "", "", "", "", "M");
	}
	else
	{
		var sflag = pid;
		frmf_setParameter("opener_parameter_id", sflag);
		frmf_modal("SMABC00300", "SMABC00300", "", "", "", "", "", "", "", "", "", "", "M");
	}
}

function btn_excsave_onclick(obj:Button,  e:ClickEventInfo)
{
	c
}

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