YNU_JEUS/app_home/himed/xpapps/pam/aftjudgxp/xp/SPPID30000_유형변경대상자관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPID30000" position="absolute 0 0 1185 639" titletext="유형변경대상자관리" oninit="SPPID30000_oninit" onload="SPPID30000_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 22 1181 614" id="grp_biz" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Grid position="absolute 0 71 1180 585" id="grd_drgclist" class="datagrid3" binddataset="ds_main_drgclist" anchor="all" onrbuttondown="grp_biz_grd_drgclist_onrbuttondown" cellsizingtype="col" selecttype="multirow">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="26"/>
                      <Column size="59"/>
                      <Column size="73"/>
                      <Column size="61"/>
                      <Column size="71"/>
                      <Column size="73"/>
                      <Column size="70"/>
                      <Column size="64"/>
                      <Column size="71"/>
                      <Column size="65"/>
                      <Column size="70"/>
                      <Column size="64"/>
                      <Column size="114"/>
                      <Column size="124"/>
                      <Column size="174"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell rowspan="2" taborder="undefined"/>
                      <Cell col="1" rowspan="2" text="환자번호" taborder="undefined"/>
                      <Cell col="2" rowspan="2" text="환자명" taborder="undefined"/>
                      <Cell col="3" rowspan="2" text="진료과" taborder="undefined"/>
                      <Cell col="4" rowspan="2" text="진료일자" taborder="undefined"/>
                      <Cell col="5" rowspan="2" text="실시일자" taborder="undefined"/>
                      <Cell col="6" colspan="2" text="현재유형" taborder="undefined"/>
                      <Cell col="8" colspan="2" text="정산요청유형" taborder="undefined"/>
                      <Cell col="10" colspan="2" text="수납유형" taborder="undefined"/>
                      <Cell col="12" rowspan="2" text="중증기간" taborder="undefined"/>
                      <Cell col="13" rowspan="2" text="산정특례기간" taborder="undefined"/>
                      <Cell col="14" rowspan="2" text="비고" taborder="undefined"/>
                      <Cell col="15" text="등록자"/>
                      <Cell col="16" text="등록일자"/>
                      <Cell col="17" text="수정자"/>
                      <Cell col="18" text="수정일자"/>
                      <Cell row="1" col="6" text="보험유형"/>
                      <Cell row="1" col="7" text="보조유형"/>
                      <Cell row="1" col="8" text="보험유형"/>
                      <Cell row="1" col="9" text="보조유형"/>
                      <Cell row="1" col="10" text="보험유형"/>
                      <Cell row="1" col="11" text="보조유형"/>
                      <Cell row="1" col="15" text="등록자"/>
                      <Cell row="1" col="16" text="등록일자"/>
                      <Cell row="1" col="17" text="수정자"/>
                      <Cell row="1" col="18" text="수정일자"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head"/>
                      <Cell col="1" displaytype="text" edittype="text" text="bind:pid" enable="false"/>
                      <Cell col="2" displaytype="text" edittype="none" text="bind:patnm" enable="false"/>
                      <Cell col="3" displaytype="combo" edittype="combo" text="bind:orddeptcd" combodataset="ds_hidden_deptlist" combocodecol="deptcd" combodatacol="depthngnm" combodisplayrowcount="100" enable="false"/>
                      <Cell col="4" displaytype="date" edittype="date" text="bind:orddd" mask="yyyy-MM-dd" enable="false"/>
                      <Cell col="5" displaytype="date" edittype="date" text="bind:execdd" mask="yyyy-MM-dd" enable="false"/>
                      <Cell col="6" displaytype="combo" edittype="combo" text="bind:sinsukind" combodataset="ds_init_P0008list" combocodecol="cdid" combodatacol="cdnm" combodisplayrowcount="100" enable="false"/>
                      <Cell col="7" displaytype="combo" edittype="combo" text="bind:ssuppkind" combodataset="ds_init_P0010list" combocodecol="cdid" combodatacol="cdnm" combodisplayrowcount="100" enable="false"/>
                      <Cell col="8" displaytype="combo" edittype="combo" text="bind:einsukind" combodataset="ds_init_P0008list" combocodecol="cdid" combodatacol="cdnm" combodisplayrowcount="100"/>
                      <Cell col="9" displaytype="combo" edittype="combo" text="bind:esuppkind" combodataset="ds_init_P0010list" combocodecol="cdid" combodatacol="cdnm" combodisplayrowcount="100"/>
                      <Cell col="10" displaytype="combo" edittype="combo" text="bind:cinsukind" combodataset="ds_init_P0008list" combocodecol="cdid" combodatacol="cdnm" combodisplayrowcount="100"/>
                      <Cell col="11" displaytype="combo" edittype="combo" text="bind:csuppkind" combodataset="ds_init_P0010list" combocodecol="cdid" combodatacol="cdnm" combodisplayrowcount="100"/>
                      <Cell col="12" edittype="textarea" text="bind:serdiagno" tooltiptext="bind:serdiagno"/>
                      <Cell col="13" edittype="textarea" text="bind:rareobstno" tooltiptext="bind:rareobstno"/>
                      <Cell col="14" displaytype="text" edittype="textarea" text="bind:rem"/>
                      <Cell col="15" displaytype="none" edittype="none" text="bind:fstrgstrid"/>
                      <Cell col="16" displaytype="none" edittype="none" text="bind:fstrgstdt" mask="yyyy-mm-dd hh:nn"/>
                      <Cell col="17" text="bind:lastupdtrid"/>
                      <Cell col="18" text="bind:lastupdtdt" mask="yyyy-mm-dd hh:nn"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static text="요양기관별가산율 리스트" position="absolute 0 49 234 72" id="cap_judgtrgtman" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 66 1180 72" linetype="horizontal" id="line1" class="line_1" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
              <Div position="absolute 0 2 1180 42" align="align:center top;" id="group1" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout>
                    <Button position="absolute 1095 10 1151 32" id="btn_select" class="btn1" taborder="32" text="조회" anchor="top right" onclick="grp_biz_group1_btn_select_onclick"/>
                    <Shape position="absolute 1077 5 1083 38" linetype="vertical" id="line3" class="line_4" anchor="top right"/>
                    <Static text="환자번호 :" position="absolute 8 11 103 28" id="caption30" class="search_name" anchor="default"/>
                    <Static text="진료일자 :" position="absolute 213 11 308 28" id="caption1" class="search_name" anchor="default"/>
                    <Static text="진료과:" position="absolute 445 10 540 27" id="caption2" class="search_name" anchor="default"/>
                    <Edit position="absolute 95 9 195 28" id="input1" anchor="default"/>
                    <Calendar position="absolute 300 9 400 28" id="input2" mask="yyyy-mm-dd" anchor="default"/>
                    <Combo position="absolute 519 8 619 27" id="combo1" innerdataset="@ds_hidden_deptlist" datacolumn="depthngnm" codecolumn="deptcd" anchor="default"/>
                    <CheckBox id="CheckBox00" taborder="33" text="요청리스트만" position="absolute 660 11 760 31" onclick="grp_biz_group1_CheckBox00_onclick" falsevalue="N" truevalue="Y" value="N"/>
                  </Layout>
                </Layouts>
              </Div>
              <Button position="absolute 696 46 776 65" id="btn_excelsave" class="btn7" text="엑셀저장" anchor="top right" onclick="grp_biz_btn_excelsave_onclick"/>
              <Button position="absolute 1137 46 1179 65" id="button1" class="btn5" text="저장" anchor="top right" onclick="grp_biz_button1_onclick"/>
              <Button position="absolute 1029 46 1082 65" id="button2" class="btn2" visible="false" text="행종료" anchor="top right" onclick="grp_biz_button2_onclick"/>
              <Button position="absolute 1083 46 1136 65" id="button3" class="btn2" text="행추가" anchor="top right" onclick="grp_biz_button3_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Button position="absolute 1124 610 1180 632" id="btn_cancel" class="btn4" text="종료" onclick="btn_cancel_onclick" anchor="right bottom"/>
        <Static id="cap_title" text="유형변경대상자관리" class="tit_1" position="absolute 0 0 216 23"/>
        <PopupMenu id="pmn_menu1" position="absolute 1203 49 1265 97" innerdataset="@ds_menu" captioncolumn="label" idcolumn="fuc" levelcolumn="level" onmenuclick="pmn_menu1_onmenuclick" onmouseleave="pmn_menu1_onmouseleave"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_menu" 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="fuc" type="STRING" size="256"/>
          <Column id="level" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">행 추가</Col>
            <Col id="fuc">fSpclGridInsertRow</Col>
            <Col id="level">0</Col>
          </Row>
          <Row>
            <Col id="label">-</Col>
          </Row>
          <Row>
            <Col id="label">행 삭제</Col>
            <Col id="fuc">fSpclGridDeleteRow</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_PK110list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_P0008list" 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>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_P0010list" 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>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cnstcdlist" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="reqyn" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_deptlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="deptcd" type="STRING" size="256" sumtext="심사자id"/>
          <Column id="depthngnm" type="STRING" size="256" sumtext="심사자이름"/>
          <Column id="deptengabbr" type="STRING" size="256" sumtext="진료과약어"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_drgclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="확인코드"/>
          <Column id="pid" type="STRING" size="256" sumtext="구분"/>
          <Column id="patnm" type="STRING" size="256" sumtext="구분"/>
          <Column id="orddd" type="STRING" size="256" sumtext="진료과목명"/>
          <Column id="todd" type="STRING" size="256" sumtext="세부진료과목명"/>
          <Column id="execdd" type="STRING" size="256" sumtext="영문과목명"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="등록자"/>
          <Column id="sinsukind" type="STRING" size="256" sumtext="등록일"/>
          <Column id="ssuppkind" type="STRING" size="256" sumtext="등록일"/>
          <Column id="einsukind" type="STRING" size="256" sumtext="등록일"/>
          <Column id="esuppkind" type="STRING" size="256" sumtext="등록일"/>
          <Column id="cinsukind" type="STRING" size="256" sumtext="등록일"/>
          <Column id="csuppkind" type="STRING" size="256" sumtext="등록일"/>
          <Column id="rareobstno" type="STRING" size="256" sumtext="등록일"/>
          <Column id="serdiagno" type="STRING" size="256" sumtext="등록일"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_biz.group1.input1" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item1" compid="grp_biz.group1.input2" propid="value" datasetid="ds_send" columnid="orddd"/>
      <BindItem id="item2" compid="grp_biz.group1.combo1" propid="value" datasetid="ds_send" columnid="orddeptcd"/>
      <BindItem id="item3" compid="grp_biz.group1.CheckBox00" propid="value" datasetid="ds_send" columnid="reqyn"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-08-10
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-08-10      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";
include "pam_pamcomnxp::PAM.xjs";
function SPPID30000_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPPID30000_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grp_biz.grd_drgclist);
	grdf_setRowTypeIcon(grp_biz.grd_drgclist, 0);
	
	fInitialize();
}

function fInitialize()
{	
	var arrParam1 = new Array();
		arrParam1 = [{dsNm: "ds_init_PK110list", cdGrpId: "PK110", showValue: false}];
		
	pamfGetCodeList(arrParam1, true, "");
	
	//addComboItem("combo1", "-전체-", "", "above");
	//addComboItem("combo2", "-전체-", "", "above");
	var arrParam = [{dsNm: "ds_init_P0008list", cdGrpId: "P0008"}
				   ,{dsNm: "ds_init_P0010list", cdGrpId: "P0010"}]
	appf_getCodeList(arrParam);	
	
	pamGetDeptCDDrIDList(); 
    
	var oParam = {};
		oParam.id          = "TRPIJ00203";
		oParam.service     = "bfjudgapp.InHospJudgTrgtMan";
		oParam.method      = "reqGetDeptList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_hidden_deptlist=deptlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIJ00203";

	tranf_submit(oParam);
	
	grdf_sortNodeList(ds_hidden_deptlist, "depthngnm", "asc")
	
	grp_biz.group1.combo1.value = "";
	
	fSetInit();
}

function fSetInit()
{
	grp_biz.button1.enable = frmf_checkAuth("X") ;
	grp_biz.button3.enable = frmf_checkAuth("X") ;

	 if (frmf_checkOpener())
	 {
		var vpid = opener.frmf_getParameter("sppid30000_pid");
		var vorddeptcd 	= opener.frmf_getParameter("sppid30000_orddeptcd");
		var vorddd 	= opener.frmf_getParameter("sppid30000_orddd");
		if(!utlf_isNull(vpid))
		{
			ds_send.setColumn(0, "pid", vpid);
			ds_send.setColumn(0, "orddeptcd", vorddeptcd);
			ds_send.setColumn(0, "orddd", vorddd);
			
			fGetDocuList();
		} else {
			ds_send.setColumn(0, "reqyn", "Y");
		}
	 }
}

function fGetDocuList()
{
	var chk = true;
	if (utlf_isNull(ds_send.getColumn(0,"pid")) && utlf_isNull(ds_send.getColumn(0,"orddd")) && utlf_isNull(ds_send.getColumn(0,"orddeptcd")) && ds_send.getColumn(0,"reqyn") == "N") {
		chk = false;
	} else if (utlf_isNull(ds_send.getColumn(0,"orddd")) && ds_send.getColumn(0,"reqyn") == "N") {
		sysf_messageBox("진료일자가", "I004");	
		chk = false;
	}

	if (chk == true) 
	{
		var oParam = {};
			oParam.id          = "TRPID28000";
			oParam.service     = "aftjudgapp.InAftJudg";
			oParam.method      = "reqGetKindUpdtTrgtList";
			oParam.inds        = "req=ds_send";
			oParam.outds       = "ds_main_drgclist=cnstcd";
			oParam.async       = false;
			//oParam.callback    = "cf_TRPID28000";

		tranf_submit(oParam);	

		for(var i = 0; i < ds_main_drgclist.rowcount; i ++ )
		{
			if(utlf_isNull(ds_main_drgclist.getColumn(i, "einsukind")))
			{
				var arrRow = new Array();
				arrRow[0] = i; 
				grdf_setStatus(grp_biz.grd_drgclist, "I", arrRow); 
			}
		}
	}
}
//엑셀저장
function grp_biz_btn_excelsave_onclick(obj:Button,  e:ClickEventInfo)
{
	if (ds_main_drgclist.rowcount > 0) 
	{
		grdf_exportExcel(grp_biz.grd_drgclist, "exportExcel", "see");
	}
	else
	{
		sysf_messageBox("엑셀저장할 내역이", "I004");		///엑셀저장할 내역이 없습니다.
	}
}
//종료
function btn_cancel_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}
//행종료
function grp_biz_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	fSpclGridDeleteRow();
}
//행추가
function grp_biz_button3_onclick(obj:Button,  e:ClickEventInfo)
{
	fSpclGridInsertRow();
}
//저장
function grp_biz_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var updtdata = grdf_getGridUpdateData(grp_biz.grd_drgclist);
	
	if(updtdata.rowcount == 0)
	{
		sysf_messageBox("변경된 데이터가","I004");
		return;
	}
	
	for(var i = 0; i < ds_main_drgclist.rowcount; i++)
	{
		if(ds_main_drgclist.getRowType(i) == 2 || ds_main_drgclist.getRowType(i) == 4 
				&& utlf_isNull(ds_main_drgclist.getColumn(i, "pid"))
				|| utlf_isNull(ds_main_drgclist.getColumn(i, "orddeptcd"))
				|| utlf_isNull(ds_main_drgclist.getColumn(i, "orddd"))
				|| utlf_isNull(ds_main_drgclist.getColumn(i, "execdd"))
				|| utlf_isNull(ds_main_drgclist.getColumn(i, "sinsukind"))
				|| utlf_isNull(ds_main_drgclist.getColumn(i, "ssuppkind"))
				|| utlf_isNull(ds_main_drgclist.getColumn(i, "einsukind"))
				|| utlf_isNull(ds_main_drgclist.getColumn(i, "esuppkind")))
		{
			var errmsg = "";
			
			if(utlf_isNull(ds_main_drgclist.getColumn(i, "esuppkind")))
			{
				errmsg = "정산요청유형";
				sysf_messageBox(errmsg.split("\n").join("") +"는","I003");
				return false;
			}
			if(utlf_isNull(ds_main_drgclist.getColumn(i, "einsukind")))
			{
				errmsg = "정산요청유형";
				sysf_messageBox(errmsg.split("\n").join("") +"는","I003");
				return false;
			}
			if(utlf_isNull(ds_main_drgclist.getColumn(i, "ssuppkind")))
			{
				errmsg = "현재유형";
				sysf_messageBox(errmsg.split("\n").join("") +"는","I003");
				return false;
			}
			if(utlf_isNull(ds_main_drgclist.getColumn(i, "sinsukind")))
			{
				errmsg = "현재유형";
				sysf_messageBox(errmsg.split("\n").join("") +"는","I003");
				return false;
			}
			if(utlf_isNull(ds_main_drgclist.getColumn(i, "execdd")))
			{
				errmsg = "실시일자";
				sysf_messageBox(errmsg.split("\n").join("") +"는","I003");
				return false;
			}
			if(utlf_isNull(ds_main_drgclist.getColumn(i, "orddd")))
			{
				errmsg = "진료일자";
				sysf_messageBox(errmsg.split("\n").join("") +"는","I003");
				return false;
			}
			if(utlf_isNull(ds_main_drgclist.getColumn(i, "orddeptcd")))
			{
				errmsg = "진료과";
				sysf_messageBox(errmsg.split("\n").join("") +"는","I003");
				return false;
			}
			if(utlf_isNull(ds_main_drgclist.getColumn(i, "pid")))
			{
				errmsg = "환자번호";
				
				sysf_messageBox(errmsg.split("\n").join("") +"는","I003");
				return false;
			}
			//sysf_messageBox(errmsg.split("\n").join("") +"는","I003");
			//return false;
		}
	}
	if (sysf_messageBox("저장", "S001") == 6) 
	{
		var oParam = {};
			oParam.id          = "TXPID28000";
			oParam.service     = "aftjudgapp.InAftJudg";
			oParam.method      = "reqExeKindUpdtTrgtList";
			oParam.inds        = "req=ds_main_drgclist:U";
			oParam.outds       = "ds_main_drgclist=cnstcd";
			oParam.async       = false;
			oParam.callback    = "cf_TXPID28000";

		tranf_submit(oParam);
	}
}

function cf_TXPID28000(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0)
    {
		return;
	}
	sysf_messageBox("저장이","I002");
}

function fSpclGridInsertRow()
{
	ds_main_drgclist.addRow();
}

function fSpclGridDeleteRow()
{
	var SelectedRows = grdf_getSelectedRows(grp_biz.grd_drgclist);
	grdf_setStatus(grp_biz.grd_drgclist, "D", SelectedRows);
}

function pmn_menu1_onmenuclick(obj:PopupMenu, e:MenuClickEventInfo)
{
	eval(e.id +"();");
}

function pmn_menu1_onmouseleave(obj:PopupMenu, e:MenuMouseEventInfo)
{
	obj.closePopup();
}

function grp_biz_grd_drgclist_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
{
	pmn_menu1.trackPopup(e.screenX,e.screenY);
}

function grp_biz_group1_btn_select_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetDocuList();
}

function grp_biz_group1_CheckBox00_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	
}
]]></Script>
  </Form>
</FDL>