YNU_JEUS/app_home/himed/xpapps/pam/bfjudgxp/xp/SMPIJ02500_평생간염약제환자정보조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPIJ02500" position="absolute 0 0 1199 757" titletext="평생제한간염약제환자정보조회" oninit="SMPIJ02500_oninit" onload="SMPIJ02500_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 1 13 1191 745" id="group2" anchor="all">
          <Layouts>
            <Layout>
              <Div position="absolute 0 11 1190 46" align="align:center top;" id="group4" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout>
                    <Shape position="absolute 1091 5 1097 30" linetype="vertical" id="line2" class="line_4" anchor="top right"/>
                    <Button position="absolute 1120 8 1176 30" id="button1" class="btn1" taborder="2" text="조회" anchor="top right" onclick="group2_group4_button1_onclick"/>
                    <Edit position="absolute 298 8 388 27" id="ipt_code" class="input_search" anchor="default"/>
                    <Edit position="absolute 88 8 183 27" id="ipt_patunitsrch" class="input_search" taborder="3" anchor="default" onkeydown="group2_group4_ipt_patunitsrch_onkeydown"/>
                    <Static text="환자조회" position="absolute 10 10 112 27" id="caption3" class="search_name" anchor="default"/>
                    <Static text="처방코드" position="absolute 222 10 298 27" id="caption4" class="search_name" anchor="default"/>
                    <Static text="급여총일수" position="absolute 426 10 530 27" id="caption2" class="search_name" anchor="default"/>
                    <Edit position="absolute 518 7 568 26" id="input1" anchor="default"/>
                    <Edit position="absolute 608 7 658 26" id="input2" anchor="default"/>
                    <Static text="이상" position="absolute 573 8 603 28" id="caption5" anchor="default"/>
                    <Static text="이하" position="absolute 668 8 698 28" id="caption6" anchor="default"/>
                    <Button id="btn" taborder="4" class="icon_search" position="absolute 184 8 200 27" onclick="group2_group4_btn_onclick" anchor="default"/>
                    <Button id="btn00" taborder="5" class="icon_search" position="absolute 388 8 404 27" onclick="group2_group4_btn00_onclick" anchor="default"/>
                  </Layout>
                </Layouts>
              </Div>
              <Button position="absolute 1110 52 1190 74" id="button2" class="btn7" text="엑셀저장" anchor="top right" onclick="group2_button2_onclick"/>
              <Static text="환자 리스트" position="absolute 0 58 100 79" id="caption8" class="tit_2" anchor="default"/>
              <Grid position="absolute 0 75 710 730" id="grd_hepapatlist" class="datagrid2" binddataset="ds_main_grdlist1_hepapatlist" anchor="left top bottom" autofittype="col" oncelldblclick="group2_grd_hepapatlist_oncelldblclick" cellsizingtype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="27"/>
                      <Column size="62"/>
                      <Column size="49"/>
                      <Column size="48"/>
                      <Column size="68"/>
                      <Column size="68"/>
                      <Column size="91"/>
                      <Column size="75"/>
                      <Column size="57"/>
                      <Column size="67"/>
                      <Column size="75"/>
                      <Column size="0"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="38" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <Cell col="1" text="환자번호"/>
                      <Cell col="2" text="환자명"/>
                      <Cell col="3" text="제한&#10;구분"/>
                      <Cell col="4" text="처방&#10;시작일"/>
                      <Cell col="5" text="처방코드"/>
                      <Cell col="6" text="처방명"/>
                      <Cell col="7" text="약제별&#10;급여총일수"/>
                      <Cell col="8" text="타병원&#10;투약일수"/>
                      <Cell col="9" text="환자당&#10;급여총일수"/>
                      <Cell col="10" text="비고"/>
                      <Cell col="11" text="hepaseqno"/>
                      <Cell col="12" text="instcd"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow+1"/>
                      <Cell col="1" text="bind:pid"/>
                      <Cell col="2" text="bind:patnm"/>
                      <Cell col="3" displaytype="combo" edittype="combo" text="bind:limitflag" combodataset="ds_cmb_limitflag" combocodecol="value" combodatacol="label" enable="false"/>
                      <Cell col="4" displaytype="date" text="bind:prcpfromdd" mask="yyyy-MM-dd"/>
                      <Cell col="5" text="bind:calcscorcd"/>
                      <Cell col="6" text="bind:calcscorcdnm"/>
                      <Cell col="7" text="bind:totpaydays"/>
                      <Cell col="8" displaytype="text" edittype="text" text="bind:anohosprgstdays"/>
                      <Cell col="9" text="bind:hepadd"/>
                      <Cell col="10" displaytype="text" edittype="text" text="bind:remfact"/>
                      <Cell col="11" text="bind:hepaseqno"/>
                      <Cell col="12" text="bind:instcd"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Grid position="absolute 715 75 1190 730" id="grd_hepadetlist" class="datagrid2" binddataset="ds_main_grdlist2_hepadetlist" anchor="all" autofittype="col" cellsizingtype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="26"/>
                      <Column size="36"/>
                      <Column size="75"/>
                      <Column size="44"/>
                      <Column size="39"/>
                      <Column size="34"/>
                      <Column size="36"/>
                      <Column size="53"/>
                      <Column size="47"/>
                      <Column size="76"/>
                    </Columns>
                    <Rows>
                      <Row size="36" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <Cell col="1" text="내원&#13;&#10;유형"/>
                      <Cell col="2" text="처방일"/>
                      <Cell col="3" text="1회량"/>
                      <Cell col="4" text="회수"/>
                      <Cell col="5" text="일투"/>
                      <Cell col="6" text="일수"/>
                      <Cell col="7" text="처방과"/>
                      <Cell col="8" text="진료의"/>
                      <Cell col="9" text="시행일"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow+1"/>
                      <Cell col="1" displaytype="combo" edittype="combo" text="bind:ordtype" combodataset="ds_init_P0001list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                      <Cell col="2" displaytype="date" text="bind:prcpdd" mask="yyyy-MM-dd"/>
                      <Cell col="3" text="bind:ordqty"/>
                      <Cell col="4" text="bind:ordtims"/>
                      <Cell col="5" text="bind:onetwo"/>
                      <Cell col="6" text="bind:orddays"/>
                      <Cell col="7" text="bind:orddeptcd"/>
                      <Cell col="8" text="bind:orddrid"/>
                      <Cell col="9" displaytype="date" text="bind:orddd" mask="yyyy-MM-dd"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static text="처방상세내역" position="absolute 715 58 815 79" id="caption7" class="tit_2" anchor="default"/>
              <Button position="absolute 654 52 710 74" id="btn_save" class="btn4" text="저장" anchor="default" onclick="group2_btn_save_onclick"/>
              <Button position="absolute 572 52 652 74" id="button3" class="btn7" text="엑셀저장" anchor="default" onclick="group2_button3_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption1" text="평생제한간염약제환자정보조회" class="tit_1" position="absolute 1 0 281 23"/>
      </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="patunitsrch" type="STRING" size="256"/>
          <Column id="code" type="STRING" size="256"/>
          <Column id="codecond" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_send01" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="dayfrom" type="STRING" size="256"/>
          <Column id="dayto" type="STRING" size="256"/>
          <Column id="calcscorcd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_grdlist1_hepapatlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="patnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="limitflag" type="STRING" size="256" sumtext="제한구분"/>
          <Column id="prcpfromdd" type="STRING" size="256" sumtext="처방시작일"/>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="calcscorcdnm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="totpaydays" type="STRING" size="256" sumtext="약제별급여총일수"/>
          <Column id="anohosprgstdays" type="STRING" size="256" sumtext="타병원투약일수"/>
          <Column id="hepadd" type="STRING" size="256" sumtext="환자당급여총일수"/>
          <Column id="remfact" type="STRING" size="256" sumtext="비고"/>
          <Column id="hepaseqno" type="STRING" size="256" sumtext="상세내역조회용"/>
          <Column id="instcd" type="STRING" size="256" sumtext="상세내역조회용"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_grdlist2_hepadetlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="ordtype" type="STRING" size="256" sumtext="내원유형"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방일"/>
          <Column id="ordqty" type="STRING" size="256" sumtext="1회량"/>
          <Column id="ordtims" type="STRING" size="256" sumtext="회수"/>
          <Column id="onetwo" type="STRING" size="256" sumtext="일투"/>
          <Column id="orddays" type="STRING" size="256" sumtext="일수"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="처방과"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="주치의"/>
          <Column id="orddd" type="STRING" size="256" sumtext="시행일"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_P0001list" 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_cmb_limitflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">투여량</Col>
            <Col id="value">A</Col>
          </Row>
          <Row>
            <Col id="label">일수</Col>
            <Col id="value">B</Col>
          </Row>
          <Row>
            <Col id="label">간이식</Col>
            <Col id="value">C</Col>
          </Row>
          <Row>
            <Col id="label">간염</Col>
            <Col id="value">D</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_sppmc02500_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchcond" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden_smpic00200_judgsrch" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="con1_dd" type="STRING" size="256"/>
          <Column id="con2_gsflag" type="STRING" size="256"/>
          <Column id="con3_search1" type="STRING" size="256"/>
          <Column id="con4_search2" type="STRING" size="256"/>
          <Column id="con5_insu" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_smpic00200_rslt_mech" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden_smpic00200_rslt_picmmech" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_send02" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hepaseqno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.group4.ipt_patunitsrch" propid="value" datasetid="ds_send" columnid="patunitsrch"/>
      <BindItem id="item1" compid="group2.group4.ipt_code" propid="value" datasetid="ds_send" columnid="code"/>
      <BindItem id="item2" compid="group2.group4.input1" propid="value" datasetid="ds_send_send01" columnid="dayfrom"/>
      <BindItem id="item3" compid="group2.group4.input2" propid="value" datasetid="ds_send_send01" columnid="dayto"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";
include "pam_pamcomnxp::PAM.xjs";

function SMPIJ02500_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMPIJ02500_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(group2.grd_hepadetlist);
	grdf_initGrid(group2.grd_hepapatlist);
	
	fInitialize();
}

function fInitialize()
{
	ds_main_grdlist1_hepapatlist.clearData();
	ds_main_grdlist2_hepadetlist.clearData();
	
	var arrParam = [{dsNm: "ds_init_P0001list", cdGrpId: "P0001"}]
				   
	appf_getCodeList(arrParam);	
}

function group2_group4_ipt_patunitsrch_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		if(obj.value.length > 1)
		{
			if(isNaN(ds_send.getColumn(0, "patunitsrch")))
			{
				fPatSrch();
			}
			else
			{
				fSearch();
			}
		}
	}
}

function fPatSrch()
{
	var ipt_pid = ds_send.getColumn(0, "patunitsrch");
	
	if (ipt_pid) 
	{
		if (!isNaN(ipt_pid))
		{
			ds_hidden_sppmc02500_cond.setColumn(0, "srchcond", "1");
			ds_hidden_sppmc02500_cond.setColumn(0, "pid", ipt_pid);
		}
		else
		{		
			ds_hidden_sppmc02500_cond.setColumn(0, "srchcond", "2");
			ds_hidden_sppmc02500_cond.setColumn(0, "hngnm", ipt_pid);
		}							
	} 
	else 
	{
		ds_hidden_sppmc02500_cond.clearData();
		ds_hidden_sppmc02500_cond.addRow();
	}
	
	var objArg = new Object();
		objArg.arg_ds_send= ds_hidden_sppmc02500_cond;
		
	frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	var srch_pid = ds_patinfolist.getColumn(0, "pid");
	
	if (srch_pid) 
	{
		ds_patinfolist.clearData();
		
		ds_send.setColumn(0, "patunitsrch", srch_pid);
	}
}

function fSearch()
{
	var ipt_patunitsrch = ds_send.getColumn(0, "patunitsrch");
	var ipt_code = ds_send.getColumn(0, "code");
	
	ds_send_send01.setColumn(0, "pid", ipt_patunitsrch);
	ds_send_send01.setColumn(0, "calcscorcd", ipt_code);
	
	ds_main_grdlist1_hepapatlist.clearData();
	ds_main_grdlist2_hepadetlist.clearData();
	
	var oParam = {};
		oParam.id          = "TRPIJ02500";
		oParam.service     = "bfjudgapp.HepaDrug";
		oParam.method      = "reqGetHepaPatList";
		oParam.inds        = "req=ds_send_send01";
		oParam.outds       = "ds_main_grdlist1_hepapatlist=hepapatlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIJ02500";

	tranf_submit(oParam);

}

function group2_group4_btn_onclick(obj:Button,  e:ClickEventInfo)
{
	fPatSrch();
}

function group2_group4_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearch();
}

function group2_group4_btn00_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetSnglcalcscorcd();
}

function fGetSnglcalcscorcd()
{
	ds_hidden_smpic00200_judgsrch.setColumn(0, "con1_dd", utlf_getCurrentDate());
	ds_hidden_smpic00200_judgsrch.setColumn(0, "con2_gsflag", "S");
	ds_hidden_smpic00200_judgsrch.setColumn(0, "con3_search1", "calcscorcd");
	ds_hidden_smpic00200_judgsrch.setColumn(0, "con4_search2", "");
	ds_hidden_smpic00200_judgsrch.setColumn(0, "con5_insu", "insu");
	
	ds_hidden_smpic00200_rslt_mech.clearData();
	ds_hidden_smpic00200_rslt_picmmech.clearData();
	
	var objArg = new Object();
		objArg.arg_ds_temp= ds_hidden_smpic00200_judgsrch;
		
	frmf_modal("SMPIC00200", "SMPIC00200", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	ds_hidden_smpic00200_rslt_mech.copyData(ds_temp_mech);
	ds_hidden_smpic00200_rslt_picmmech.copyData(ds_temp_picmmech);
	
	if(ds_hidden_smpic00200_rslt_mech.rowcount == 0)
	{
		sysf_messageBox("수가조회 화면에서 선택한 결과가", "I004");
 		return;
 	}
 	
 	if(ds_hidden_smpic00200_rslt_mech.getColumn(0, "ordinptflag") != "A")
 	{
		sysf_messageBox("처방이 불가한 코드", "E008");
		return;
	}

	if(ds_send.getColumn(0, "codecond") == "calcscorcd")
	{
		ds_send.setColumn(0, "code", ds_hidden_smpic00200_rslt_picmmech.getColumn(0, "picmmech_calcscorcd"));
	}
	else
	{
		ds_send.setColumn(0, "code", ds_hidden_smpic00200_rslt_mech.getColumn(0, "insuedicd"));
	}
}

function group2_button3_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_grdlist1_hepapatlist.rowcount == 0)
	{
		sysf_messageBox("엑셀저장할 내역이", "I004");		///엑셀저장할 내역이 없습니다.
	}
	else
	{
		grdf_exportExcel(group2.grd_hepapatlist, "평생제한간염환자리스트_"+utlf_getCurrentDate(), "see");
	}
}

function group2_btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	var updtdata = grdf_getGridUpdateData(grd_hepapatlist);
	if (updtdata.rowcount == 0)
	{
		sysf_messageBox("변경된 데이터가","I004");
		return;
	}
	
	if(ds_main_grdlist1_hepapatlist.rowcount <= 1)
	{
		return;
	}
	
	var oParam = {};
		oParam.id          = "TXPIJ02500";
		oParam.service     = "bfjudgapp.HepaDrug";
		oParam.method      = "reqSetHepaPatList";
		oParam.inds        = "req=ds_main_grdlist1_hepapatlist:U";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXPIJ02500";

	tranf_submit(oParam);
}

function cf_TXPIJ02500(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) 
    {
		return;
	}
	else
	{
		fSearch();
	}
}

function group2_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_grdlist2_hepadetlist.rowcount == 0)
	{
		sysf_messageBox("엑셀저장할 내역이", "I004");		///엑셀저장할 내역이 없습니다.
	}
	else
	{
		grdf_exportExcel(group2.grd_hepadetlist, "평생제한간염환자상세내역_"+utlf_getCurrentDate(), "see");
	}
}

function group2_grd_hepapatlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row > -1)
	{
		getDetlist();
	}
}

function getDetlist()
{
	ds_send_send02.setColumn(0, "instcd", ds_main_grdlist1_hepapatlist.getColumn(ds_main_grdlist1_hepapatlist.rowposition, "instcd"));
	ds_send_send02.setColumn(0, "pid", ds_main_grdlist1_hepapatlist.getColumn(ds_main_grdlist1_hepapatlist.rowposition, "pid"));
	ds_send_send02.setColumn(0, "hepaseqno", ds_main_grdlist1_hepapatlist.getColumn(ds_main_grdlist1_hepapatlist.rowposition, "hepaseqno"));
	
	var oParam = {};
		oParam.id          = "TRPIJ02501";
		oParam.service     = "bfjudgapp.HepaDrug";
		oParam.method      = "reqGetHepaDetList";
		oParam.inds        = "req=ds_send_send02";
		oParam.outds       = "ds_main_grdlist2_hepadetlist=hepadetlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIJ02501";

	tranf_submit(oParam);
} 

]]></Script>
  </Form>
</FDL>