YNU_JEUS/app_home/himed/xpapps/ast/hsctxp/xp/SMABO02300_CBC리스트.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMABO02300" position="absolute 0 0 1195 785" titletext="CBC 리스트" oninit="SMABO02300_oninit" onload="SMABO02300_onload" scrollbars="none">
    <Layouts>
      <Layout>
        <Static id="caption1" text="환자명단" class="tit_2" position="absolute 0 110 85 127"/>
        <Shape id="line1" linetype="horizontal" class="line_1" position="absolute 0 126 1192 132" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
        <Div id="grp_sea" taborder="1" class="div_SA" position="absolute 0 53 1192 93" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption2" text="검사일자 :" class="search_name" position="absolute 15 12 86 29" anchor="default"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1106 9 1112 31" anchor="top right"/>
              <Button id="btn_sea" taborder="1" text="조회" class="btn1" position="absolute 1124 9 1180 31" anchor="top right" onclick="grp_sea_btn_sea_onclick"/>
              <Static id="caption7" text="진료과 :" class="search_name" position="absolute 295 12 353 29" anchor="default"/>
              <Static id="caption4" text="병동 :" class="search_name" position="absolute 875 13 920 30" anchor="default"/>
              <Calendar id="ipt_testdd" taborder="2" class="input_essential" position="absolute 89 10 189 31" anchor="default" dateformat="yyyy-MM-dd" value="null" autoselect="true"/>
              <Combo id="cmb_deptcd" taborder="3" innerdataset="@ds_init_A0478" codecolumn="hsctmdlcd" datacolumn="hsctmdlnm" class="combo_search" position="absolute 355 10 485 31" anchor="default"/>
              <Combo id="cmb_depthngnm" taborder="4" innerdataset="@ds_deptlist" codecolumn="wardcd" datacolumn="wardnm" class="combo_search" position="absolute 923 11 1023 32" anchor="default"/>
              <Static id="caption3" text="주치의 :" class="search_name" position="absolute 600 12 658 29" anchor="default"/>
              <Combo id="cmb_bmtdr" taborder="5" innerdataset="@ds_init_A0536" codecolumn="hsctmdlcd" datacolumn="hsctmdlnm" class="combo_default" position="absolute 660 10 760 31" anchor="default" onitemchanged="grp_sea_cmb_bmtdr_onitemchanged"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_excsave" taborder="2" text="엑셀저장" class="btn7" position="absolute 1112 104 1192 126" anchor="top right" onclick="btn_excsave_onclick"/>
        <Static id="caption18" text="건수" class="cell_1" position="absolute 89 103 132 126"/>
        <Edit id="opt_count" taborder="3" position="absolute 134 104 191 126" inputtype="number" readonly="true" class="output" style="align:right middle;"/>
        <Grid id="grd_patlist" taborder="4" binddataset="ds_main_cbcpatlist" useinputpanel="false" position="absolute 0 131 1192 776" anchor="all" cellsizingtype="both" selecttype="multirow" onheadclick="grd_patlist_onheadclick" oncelldblclick="grd_patlist_oncelldblclick" autosizingtype="row" extendsizetype="row">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25" band="left"/>
                <Column size="50"/>
                <Column size="50"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="120"/>
                <Column size="40"/>
                <Column size="40"/>
                <Column size="40"/>
                <Column size="40"/>
                <Column size="40"/>
                <Column size="250"/>
                <Column size="250"/>
                <Column size="126"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="23" band="head"/>
                <Row size="21"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="Room"/>
                <Cell col="2" text="환자명"/>
                <Cell col="3" text="등록번호"/>
                <Cell col="4" text="성별/나이"/>
                <Cell col="5" text="Day"/>
                <Cell col="6" text="WBC"/>
                <Cell col="7" text="ANC"/>
                <Cell col="8" text="Hb"/>
                <Cell col="9" text="PL(k)"/>
                <Cell col="10" text="CD34"/>
                <Cell col="11" text="Diagnosis"/>
                <Cell col="12" text="Treatment"/>
                <Cell col="13" text="Remark"/>
                <Cell col="14" text="chemofrom"/>
                <Cell col="15" text="chemoto"/>
                <Cell col="16" text="trnptdd"/>
                <Cell col="17" text="trnptkind"/>
                <Cell col="18" text="trnptkindcd"/>
                <Cell col="19" text="patbtype"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" text="expr:currow + 1"/>
                <Cell col="1" displaytype="normal" edittype="none" style="selectbackground:#b9e5fbff;" text="bind:roomcd" enable="false"/>
                <Cell col="2" displaytype="normal" edittype="none" style="padding:2 2 2 2;selectbackground:#b9e5fbff;" text="bind:pathngnm" wordwrap="word" autosizerow="limitmin"/>
                <Cell col="3" displaytype="normal" style="selectbackground:#b9e5fbff;" text="bind:pid"/>
                <Cell col="4" style="selectbackground:#b9e5fbff;" text="bind:sexage"/>
                <Cell col="5" displaytype="normal" edittype="none" style="align:center middle;selectbackground:#b9e5fbff;" text="bind:day"/>
                <Cell col="6" displaytype="normal" edittype="none" style="selectbackground:#b9e5fbff;" text="bind:wbc"/>
                <Cell col="7" displaytype="normal" style="selectbackground:#b9e5fbff;" text="bind:anc"/>
                <Cell col="8" displaytype="normal" style="selectbackground:#b9e5fbff;" text="bind:hb"/>
                <Cell col="9" displaytype="normal" style="selectbackground:#b9e5fbff;" text="bind:pl"/>
                <Cell col="10" displaytype="normal" style="selectbackground:#b9e5fbff;" text="bind:cd34"/>
                <Cell col="11" displaytype="normal" style="align:left middle;padding:2 2 2 2;selectbackground:#b9e5fbff;" text="bind:diag"/>
                <Cell col="12" displaytype="normal" edittype="none" style="align:left middle;padding:2 2 2 2;selectbackground:#b9e5fbff;" text="bind:tret" enable="false"/>
                <Cell col="13" displaytype="normal" edittype="none" style="align:left middle;padding:2 2 2 2;selectbackground:#b9e5fbff;" text="bind:remfact" enable="false"/>
                <Cell col="14" text="bind:chemofrom"/>
                <Cell col="15" text="bind:chemoto"/>
                <Cell col="16" text="bind:trnptdd"/>
                <Cell col="17" text="bind:trnptkind"/>
                <Cell col="18" text="bind:trnptkindcd"/>
                <Cell col="19" text="bind:patbtype"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div id="grp_btn" taborder="5" position="absolute 1 23 331 50">
          <Layouts>
            <Layout>
              <Button id="btn_prt" taborder="1" text="병동용" class="btn6" position="absolute 183 5 269 27" anchor="default" onclick="grp_btn_btn_prt_onclick"/>
              <Button id="button1" taborder="2" text="진료용" class="btn6" position="absolute 0 5 73 27" anchor="default" onclick="grp_btn_button1_onclick"/>
              <Button id="button2" taborder="3" text="진료용(CD34)" class="btn6" position="absolute 76 5 180 27" anchor="default" onclick="grp_btn_button2_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption6" text="CBC 리스트" class="tit_1" position="absolute 0 0 133 25"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_cbcpatlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="roomcd" type="STRING"/>
          <Column id="pathngnm" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="sexage" type="STRING"/>
          <Column id="day" type="STRING"/>
          <Column id="wbc" type="STRING"/>
          <Column id="anc" type="STRING"/>
          <Column id="hb" type="STRING"/>
          <Column id="pl" type="STRING"/>
          <Column id="cd34" type="STRING"/>
          <Column id="diag" type="STRING"/>
          <Column id="tret" type="STRING"/>
          <Column id="remfact" type="STRING"/>
          <Column id="chemofrom" type="STRING"/>
          <Column id="chemoto" type="STRING"/>
          <Column id="trnptdd" type="STRING"/>
          <Column id="trnptkind" type="STRING"/>
          <Column id="trnptkindcd" type="STRING"/>
          <Column id="patbtype" type="STRING"/>
        </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"/>
          <Column id="hsctlrgcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="lrggrupcd">DI</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_req" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="testdd" type="STRING" size="256"/>
          <Column id="deptcd" type="STRING" size="256"/>
          <Column id="atdoctid" type="STRING" size="256"/>
          <Column id="depthngnm" type="STRING" size="256"/>
          <Column id="deptflag" type="STRING" size="256"/>
          <Column id="atdoctnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="testdd"/>
            <Col id="deptcd"/>
            <Col id="atdoctid"/>
            <Col id="depthngnm"/>
            <Col id="deptflag"/>
            <Col id="atdoctnm"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_deptlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="wardcd" type="STRING" size="256"/>
          <Column id="wardnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="count" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_A0536" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hsctmdlcd" type="STRING" size="256"/>
          <Column id="hsctmdlnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_A0478" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hsctmdlcd" type="STRING" size="256"/>
          <Column id="hsctmdlnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_temp" 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_testdd" propid="value" datasetid="ds_send_req" columnid="testdd"/>
      <BindItem id="item1" compid="grp_sea.cmb_deptcd" propid="value" datasetid="ds_send_req" columnid="deptcd"/>
      <BindItem id="item2" compid="grp_sea.cmb_bmtdr" propid="value" datasetid="ds_send_req" columnid="atdoctid"/>
      <BindItem id="item3" compid="grp_sea.cmb_depthngnm" propid="value" datasetid="ds_send_req" columnid="depthngnm"/>
      <BindItem id="item4" compid="opt_count" propid="value" datasetid="ds_main" columnid="count"/>
    </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 "com_basiccodexp::ZBC001.xjs";
include "ast_examcurexp::AEZ0001.xjs";
include "ast_commonxp::AST.xjs";
include "ast_hsctxp::bmtcommon.xjs";

var arErrorCode = new HashArray();
/******************************************************************
 * Argument          : 
 * Description       : 초기화
 ******************************************************************/
function SMABO02300_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMABO02300_onload(obj:Form, e:LoadEventInfo)
{
	var sChkFlag = "N";
					
	var testdd = utlf_getCurrentDate();
	ds_send_req.setColumn(0, "testdd", testdd);
	
	//BMT 코드성 데이터 조회
	aboGetCodeList([{dsNm: "ds_init_A0536", cdGrpId: "A0536"}
					, {dsNm: "ds_init_A0478", cdGrpId: "A0478"}], true );
	dsf_addDsItem(ds_init_A0536, "hsctmdlcd", "hsctmdlnm", "전체", "", "above");
	dsf_addDsItem(ds_init_A0478, "hsctmdlcd", "hsctmdlnm", "전체", "", "above");
	
	ds_send_req.setColumn(0, "deptflag", "W");     
	
	var oParam = {};
		oParam.id          = "TRADC10203";
		oParam.service     = "pharmacyprescriptionapp.DrugPrint";
		oParam.method      = "reqGetDeptList";
		oParam.inds        = "req=ds_send_req";
		oParam.outds       = "ds_deptlist=ward";
		oParam.async       = false;
		oParam.callback    = "cf_TRADC10203";

	tranf_submit(oParam);
	dsf_addDsItem(ds_deptlist, "wardcd", "wardnm", "전체", "", "above");

	//유저세션정보의 소속부서가 진료과와 일치하면 진료과의 default값을 유저소속부서로 설정한다.
	var posdeptcd = sysf_getUserInfo("posdeptcd");
	var dutplcecd = sysf_getUserInfo("dutplcecd");
	if( !utlf_isNull(posdeptcd) ){
		for( var i = 0; i < ds_init_A0478.rowcount; i++ ){
			var deptcd = ds_init_A0478.getColumn(i, "hsctmdlcd");
			if( deptcd == posdeptcd ){
				ds_send_req.setColumn(0, "deptcd", posdeptcd);
			}
		}
	}
	
	if( !utlf_isNull(dutplcecd) ){
		for( var i = 0; i < ds_deptlist.rowcount; i++ ){
			var wardcd = ds_deptlist.getColumn(i, "wardcd");
			if( wardcd == dutplcecd ){
				ds_send_req.setColumn(0, "depthngnm", dutplcecd);
			}
		}
	}
}

function cf_TRADC10203(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
    ds_deptlist.updateColID("deptcd", "wardcd");
    ds_deptlist.updateColID("deptnm", "wardnm");    
}

/******************************************************************
 * Argument          : 
 * Description       : 조회 button event
 ******************************************************************/
function grp_sea_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_main_cbcpatlist.clearData();
	
	var oParam = {};
		oParam.id          = "TRABO02301";
		oParam.service     = "hsctcoordinatorapp.HsctPatient";
		oParam.method      = "reqGetCBCList";
		oParam.inds        = "req=ds_send_req";
		oParam.outds       = "ds_main_cbcpatlist=patlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABO02301";

	tranf_submit(oParam);
	
	ds_main.setColumn(0, "count", ds_main_cbcpatlist.rowcount);  
	var day= "";
	var day_c= "";
	var day_p= "";
	var day_d= "";
	var c = "";
	var p = "";
	var d = "";
	var date = new Date();
	var today = new Date(date.getYear(), date.getMonth(), date.getDate());
	for( var i = 0; i < ds_main_cbcpatlist.rowcount; i++ ){
		day="";
		day_c= "";
		day_p= "";
		day_d= "";
		c = "";
		p = "";
		d = "";
		day_c = ds_main_cbcpatlist.getColumn(i, "chemofrom");
		day_p = ds_main_cbcpatlist.getColumn(i, "chemoto");
		day_d = ds_main_cbcpatlist.getColumn(i, "trnptdd");
		
		ds_main_cbcpatlist.addColumn("day_c", "string", 256);
		ds_main_cbcpatlist.addColumn("day_p", "string", 256);
		ds_main_cbcpatlist.addColumn("day_d", "string", 256);
		
		if( day_c != "00000000" && !utlf_isNull(day_c) ){
			c = new Date(day_c.substring(0,4), day_c.substring(4,6)-1, day_c.substring(6,8));
			day = "C" + Math.floor((today.valueOf() - c.valueOf())/(24*60*60*1000));
		}
		
		if( day_p != "00000000" && !utlf_isNull(day_p) ){
			p = new Date(day_p.substring(0,4), day_p.substring(4,6)-1, day_p.substring(6,8));
			if(day != ""){
				day = day + "/";
			}
			day = day + "P" + Math.floor((today.valueOf() - p.valueOf())/(24*60*60*1000));
		}
		if( day_d != "00000000" && !utlf_isNull(day_d) ){
			d = new Date(day_d.substring(0,4), day_d.substring(4,6)-1, day_d.substring(6,8));
			if(day != ""){
				day = day + "/";
			}
			day = day + "D" +Math.floor((today.valueOf() - d.valueOf())/(24*60*60*1000));
		}								
		ds_main_cbcpatlist.setColumn(i, "day", day);  
	}
}

/******************************************************************
 * Argument          : 
 * Description       : excel 저장
 ******************************************************************/
function btn_excsave_onclick(obj:Button,  e:ClickEventInfo)
{
	if( ds_main_cbcpatlist.rowcount > 1 ){
		grdf_exportExcel(grd_patlist, "CBC리스트", "CBC리스트" , true, "" , "" , true);	
	} else {
		sysf_messageBox("조회된 데이터가 ", "I004");
	}
}

/******************************************************************
 * Argument          : 
 * Description       : 진료용 button event
 ******************************************************************/
function grp_btn_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var objDOM = rptf_createDOM();											// DOM 객체 설정
	rptf_setNodeListToDOM(objDOM, "/root/main/cbcpatlist/patlist", ds_main_cbcpatlist);		// 데이터셋 1
			
	var objParam = new Object();
	objParam.xml_data_XML1 = objDOM.documentElement.source;					// 최상의노드 XML 스트링 추출
	var option = "open=1;save=1;directprint=0;print=1;zoom=0;excel=1;show=1";	
	rptf_exeReportPreview30(["RPABO02301"],[objParam], option, null, null);
}

/******************************************************************
 * Argument          : 
 * Description       : 진료용(CD34) button event
 ******************************************************************/
function grp_btn_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	var objDOM = rptf_createDOM();											// DOM 객체 설정
	rptf_setNodeListToDOM(objDOM, "/root/main/cbcpatlist/patlist", ds_main_cbcpatlist);		// 데이터셋 1
			
	var objParam = new Object();
	objParam.xml_data_XML1 = objDOM.documentElement.source;					// 최상의노드 XML 스트링 추출
	var option = "open=1;save=1;directprint=0;print=1;zoom=0;excel=1;show=1";	
	rptf_exeReportPreview30(["RPABO02303"],[objParam], option, null, null);
}

/******************************************************************
 * Argument          : 
 * Description       : 병동용 button event
 ******************************************************************/
function grp_btn_btn_prt_onclick(obj:Button,  e:ClickEventInfo)
{
	var objDOM = rptf_createDOM();											// DOM 객체 설정
	rptf_setNodeListToDOM(objDOM, "/root/main/cbcpatlist/patlist", ds_main_cbcpatlist);		// 데이터셋 1
			
	var objParam = new Object();
	objParam.xml_data_XML1 = objDOM.documentElement.source;					// 최상의노드 XML 스트링 추출	
	var option = "open=1;save=1;directprint=0;print=1;zoom=0;excel=1;show=1";	
	rptf_exeReportPreview30(["RPABO02302"],[objParam], option, null, null);
}

function grd_patlist_onheadclick(obj:Grid, e:GridClickEventInfo)
{
	grdf_gridSort(grd_patlist, e);
}

function grp_sea_cmb_bmtdr_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	ds_send_req.setColumn(0, "atdoctnm", grp_sea.cmb_bmtdr.text);
}

function grd_patlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row < 0 || e.col < 0 ) return;
	
	var diag 		= utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "diag"));
	var tret 		= utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "tret"));
	var remfact 	= utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "remfact"));
	var chemofrom 	= utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "chemofrom"));
	var chemoto 	= utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "chemoto"));
	var trnptdd 	= utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "trnptdd"));
	var trnptkind 	= utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "trnptkind"));
	var trnptkindcd = utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "trnptkindcd"));			
	var pid 		= utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "pid"));
	var sflag 		= diag + "▦" + tret + "▦" + remfact + "▦" + chemofrom + "▦" + chemoto + "▦" + trnptdd + "▦" + trnptkind + "▦" + trnptkindcd+ "▦" + pid ;
	frmf_setParameter("opener_parameter_id", sflag);
	frmf_modal("SPABO62400","SPABO62400","","","","","","","","","","","M");
	
	ds_main_cbcpatlist.clearData();
	
	var oParam = {};
    oParam.id          = "TRABO02301";
    oParam.service     = "hsctcoordinatorapp.HsctPatient";
    oParam.method      = "reqGetCBCList";
    oParam.inds        = "req=ds_send_req";
    oParam.outds       = "ds_main_cbcpatlist=patlist";
    oParam.async       = false;

	tranf_submit(oParam);
	
	var nodelist = ds_main_cbcpatlist.rowcount;
	ds_main.setColumn(0, "count", nodelist);

	var day= "";
	var day_c= "";
	var day_p= "";
	var day_d= "";
	var c = "";
	var p = "";
	var d = "";
	var date = new Date();
	var today = new Date(date.getYear(), date.getMonth(), date.getDate());
	for(var i = 0; i < nodelist; i++){
		day="";
		day_c= "";
		day_p= "";
		day_d= "";
		c = "";
		p = "";
		d = "";
		day_c= ds_main_cbcpatlist.getColumn(i, "chemofrom");
		day_p= ds_main_cbcpatlist.getColumn(i, "chemoto");
		day_d= ds_main_cbcpatlist.getColumn(i, "trnptdd");
		if( day_c != "00000000" && !utlf_isNull(day_c) ){
			c = new Date(day_c.substring(0,4), day_c.substring(4,6)-1, day_c.substring(6,8));
			day = "C" + Math.floor((today.valueOf() - c.valueOf())/(24*60*60*1000));
		}
		if( day_p != "00000000" && !utlf_isNull(day_p) ){
			p = new Date(day_p.substring(0,4), day_p.substring(4,6)-1, day_p.substring(6,8));
			if( !utlf_isNull(day) ){
				day = day + "/";
			}
			day = day + "P" + Math.floor((today.valueOf() - p.valueOf())/(24*60*60*1000));
		}
		if( day_d != "00000000" && !utlf_isNull(day_d) ){
			d = new Date(day_d.substring(0,4), day_d.substring(4,6)-1, day_d.substring(6,8));
			if( !utlf_isNull(day) ){
				day = day + "/";
			}
			day = day + "D" +Math.floor((today.valueOf() - d.valueOf())/(24*60*60*1000));
		}		
		ds_main_cbcpatlist.setColumn(i, "day", day);						
	}
}
]]></Script>
  </Form>
</FDL>