YNU_JEUS/app_home/himed/xpapps/emr/wardcarexp/xp/SMMNW30010_격리강박환자관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNW30010" position="absolute 0 0 1180 750" titletext="격리강박환자관리" oninit="SMMNW30010_oninit" onload="SMMNW30010_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 25 1180 65" id="roundrect1" class="div_SA" anchor="left top right">
          <Layouts>
            <Layout>
              <Edit id="ipt_pid" taborder="2" autoselect="true" onkeyup="group3_switch1_case2_group2_ipt_pid2_onkeyup" class="input_search" position="absolute 401 11 471 31"/>
              <Calendar id="input3" taborder="0" autoselect="true" dateformat="yyyy-MM-dd" class="input_search" position="absolute 96 11 189 30"/>
              <Calendar id="input1" taborder="1" autoselect="true" dateformat="yyyy-MM-dd" class="input_search" position="absolute 214 11 307 30"/>
              <Static id="caption1" text="~" position="absolute 196 11 216 31"/>
              <Static id="caption8" text="기간선택 :" class="search_name" position="absolute 10 13 93 30"/>
              <Static id="caption00" text="등록번호 :" class="search_name" position="absolute 322 13 405 30"/>
              <Button id="btn_search" taborder="3" text="조회" onclick="btn_search_onclick" class="btn1" position="absolute 1038 11 1094 33" anchor="top right"/>
              <Shape id="line2" linetype="vertical" position="absolute 1027 10 1033 33" anchor="top right"/>
              <Button id="btn_excel" taborder="4" text="Excel" onclick="btn_excel_onclick" class="btn7" position="absolute 1100 11 1168 33" anchor="top right"/>
              <CheckBox id="chk_allchk" taborder="5" value="N" truevalue="Y" falsevalue="N" position="absolute 544 10 560 30"/>
              <Static id="cap_searchname" text="전체 : " class="search_name" position="absolute 489 11 539 31"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape position="absolute 0 70 1180 74" linetype="horizontal" id="line1" class="line_10" anchor="left top right"/>
        <Grid position="absolute 0 74 1180 724" id="grd_isocmpinfo" class="datagrid2" binddataset="ds_main_isocmpinfo_isocmplist" anchor="all" oncelldblclick="grd_isocmpinfo_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="20"/>
                <Column size="110"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="70"/>
                <Column size="40"/>
                <Column size="40"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="40"/>
                <Column size="80"/>
                <Column size="40"/>
                <Column size="62"/>
                <Column size="55"/>
                <Column size="62"/>
                <Column size="55"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="65"/>
                <Column size="65"/>
              </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" rowspan="2" text="나이" taborder="undefined"/>
                <Cell col="7" rowspan="2" text="입원일" taborder="undefined"/>
                <Cell col="8" rowspan="2" text="퇴원일" taborder="undefined"/>
                <Cell col="9" rowspan="2" colspan="2" text="격리 및 강박&#10;시작시간" taborder="undefined"/>
                <Cell col="11" rowspan="2" colspan="2" text="격리 및 강박&#10;종료시간" taborder="undefined"/>
                <Cell col="13" rowspan="2" text="지시자&#10;성명" taborder="undefined"/>
                <Cell col="14" rowspan="2" text="지시자&#10;서명" taborder="undefined"/>
                <Cell col="15" colspan="11" text="수행자" taborder="undefined"/>
                <Cell row="1" col="15" text="의사성명"/>
                <Cell row="1" col="16" text="의사서명"/>
                <Cell row="1" col="17"/>
                <Cell row="1" col="18"/>
                <Cell row="1" col="19"/>
                <Cell row="1" col="20"/>
                <Cell row="1" col="21"/>
                <Cell row="1" col="22"/>
                <Cell row="1" col="23"/>
                <Cell row="1" col="24" text="간호사성명"/>
                <Cell row="1" col="25" text="보호사성명"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="expr:currow + 1"/>
                <Cell col="1" displaytype="date" text="bind:recdt" mask="expr:utlf_isNull(utlf_trim(recdt)) ? '' : 'yyyy-MM-dd HH:mm'" maskchar=" "/>
                <Cell col="2" displaytype="combo" style="align:center;" text="bind:recflag" combodataset="ds_init_recflag" combocodecol="value" combodatacol="label"/>
                <Cell col="3" edittype="readonly" text="bind:pid"/>
                <Cell col="4" text="bind:hngnm"/>
                <Cell col="5" displaytype="combo" style="align:center;" text="bind:sex" combodataset="ds_init_sex" combocodecol="value" combodatacol="label"/>
                <Cell col="6" text="bind:age"/>
                <Cell col="7" text="bind:indd" mask="expr:!utlf_isNull(indd) ? '####-##-##' : ''" maskchar=" "/>
                <Cell col="8" text="bind:dschdd" mask="expr:!utlf_isNull(dschdd) ? '####-##-##' : ''" maskchar=" "/>
                <Cell col="9" text="bind:exefromdd" mask="expr:!utlf_isNull(exefromdd) ? '####-##-##' : ''" maskchar=" "/>
                <Cell col="10" text="bind:exefromtm" mask="expr:!utlf_isNull(exefromtm) ? '##:##' : ''" maskchar=" "/>
                <Cell col="11" text="bind:exetodd" mask="expr:!utlf_isNull(exetodd) ? '####-##-##' : ''" maskchar=" "/>
                <Cell col="12" text="bind:exetotm" mask="expr:!utlf_isNull(exetotm) ? '##:##' : ''" maskchar=" "/>
                <Cell col="13" style="color:EXPR(utlf_isNull(medispclrecdd) == false ? '#000000' : '#0000ff');color2:EXPR(utlf_isNull(medispclrecdd) == false ? '#000000' : '#0000ff');" text="bind:medispclnm"/>
                <Cell col="14" style="color:EXPR(utlf_isNull(medispclrecdd) == false ? '#000000' : '#0000ff');color2:EXPR(utlf_isNull(medispclrecdd) == false ? '#000000' : '#0000ff');" text="bind:medispclsign"/>
                <Cell col="15" style="color:EXPR(utlf_isNull(atdoctrecdd) == false ? '#000000' : '#0000ff');color2:EXPR(utlf_isNull(medispclrecdd) == false ? '#000000' : '#0000ff');" text="bind:atdoctnm"/>
                <Cell col="16" style="color:EXPR(utlf_isNull(atdoctrecdd) == false ? '#000000' : '#0000ff');color2:EXPR(utlf_isNull(medispclrecdd) == false ? '#000000' : '#0000ff');" text="bind:atdoctsign" wordwrap="char"/>
                <Cell col="17" text="bind:head"/>
                <Cell col="18" text="bind:face"/>
                <Cell col="19" text="bind:chest"/>
                <Cell col="20" text="bind:abdomen"/>
                <Cell col="21" text="bind:extremity"/>
                <Cell col="22" text="bind:external"/>
                <Cell col="23" text="bind:iss"/>
                <Cell col="24" text="bind:nursnm" wordwrap="char"/>
                <Cell col="25" text="bind:protcnm" wordwrap="char"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static text="격리강박환자관리" position="absolute 0 0 145 25" id="caption6" class="tit_1"/>
        <Shape id="roundrect3" type="roundrectangle" class="roundrect_example" position="absolute 0 726 292 750" style="strokepen:1 solid #7cbbddff;fillbrush:solid #fffbf2ff true;"/>
        <Static id="caption47" text="지시자 상태 :" position="absolute 10 731 84 746"/>
        <Static id="caption48" position="absolute 89 731 104 746" style="background:#0000ffff;"/>
        <Static id="caption49" text="확인시간이 저장되지 않은 상태" position="absolute 110 731 285 746"/>
      </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="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="chkusergubun" type="STRING" size="256"/>
          <Column id="userid" type="STRING" size="256"/>
          <Column id="allchk" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="fromdd">2</Col>
            <Col id="todd"/>
            <Col id="allchk">N</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_isocmpinfo_isocmplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
          <Column id="indd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="dschdd" type="STRING" size="256"/>
          <Column id="recflag" type="STRING" size="256"/>
          <Column id="recdt" type="STRING" size="256"/>
          <Column id="seqno" type="STRING" size="256"/>
          <Column id="signno" type="STRING" size="256"/>
          <Column id="delyn" type="STRING" size="256"/>
          <Column id="saveflag" type="STRING" size="256"/>
          <Column id="exefromdd" type="STRING" size="256"/>
          <Column id="exefromtm" type="STRING" size="256"/>
          <Column id="exetodd" type="STRING" size="256"/>
          <Column id="exetotm" type="STRING" size="256"/>
          <Column id="medispclid" type="STRING" size="256"/>
          <Column id="medispclnm" type="STRING" size="256"/>
          <Column id="medispcldept" type="STRING" size="256"/>
          <Column id="medispclsign" type="STRING" size="256"/>
          <Column id="medispclrecdd" type="STRING" size="256"/>
          <Column id="medispclrectm" type="STRING" size="256"/>
          <Column id="atdoctid" type="STRING" size="256"/>
          <Column id="atdoctnm" type="STRING" size="256"/>
          <Column id="atdoctdept" type="STRING" size="256"/>
          <Column id="atdoctsign" type="STRING" size="256"/>
          <Column id="atdoctrecdd" type="STRING" size="256"/>
          <Column id="atdoctrectm" type="STRING" size="256"/>
          <Column id="nursid" type="STRING" size="256"/>
          <Column id="nursnm" type="STRING" size="256"/>
          <Column id="nursdept" type="STRING" size="256"/>
          <Column id="nurssign" type="STRING" size="256"/>
          <Column id="nursrecdd" type="STRING" size="256"/>
          <Column id="nursrectm" type="STRING" size="256"/>
          <Column id="protcid" type="STRING" size="256"/>
          <Column id="protcnm" type="STRING" size="256"/>
          <Column id="protcdept" type="STRING" size="256"/>
          <Column id="protcsign" type="STRING" size="256"/>
          <Column id="protcrecdd" type="STRING" size="256"/>
          <Column id="protcrectm" type="STRING" size="256"/>
          <Column id="diag" type="STRING" size="256"/>
          <Column id="diagnm" type="STRING" size="256"/>
          <Column id="sympt" type="STRING" size="256"/>
          <Column id="isocmpstnd" type="STRING" size="256"/>
          <Column id="isocmpstnddesc" type="STRING" size="256"/>
          <Column id="cmpway" type="STRING" size="256"/>
          <Column id="cmpwaydesc" type="STRING" size="256"/>
          <Column id="isocmpstrecdd" type="STRING" size="256"/>
          <Column id="isocmpstrectm" type="STRING" size="256"/>
          <Column id="isocmpstrec" type="STRING" size="256"/>
          <Column id="cmpcrclrecdd" type="STRING" size="256"/>
          <Column id="cmpcrclrectm" type="STRING" size="256"/>
          <Column id="cmpcrclrec" type="STRING" size="256"/>
          <Column id="isocmpedrecdd" type="STRING" size="256"/>
          <Column id="isocmpedrectm" type="STRING" size="256"/>
          <Column id="isocmpedrec" type="STRING" size="256"/>
          <Column id="etcdesc" type="STRING" size="256"/>
          <Column id="fstrgstrid" type="STRING" size="256"/>
          <Column id="fstrgstdt" type="STRING" size="256"/>
          <Column id="lastupdtrid" type="STRING" size="256"/>
          <Column id="lastupdtdt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_recflag" 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">01</Col>
          </Row>
          <Row>
            <Col id="label">강박</Col>
            <Col id="value">02</Col>
          </Row>
          <Row>
            <Col id="label">격리강박</Col>
            <Col id="value">99</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_sex" 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">F</Col>
          </Row>
          <Row>
            <Col id="label">남자</Col>
            <Col id="value">M</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_paminfo_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item5" compid="roundrect1.ipt_pid" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item1" compid="roundrect1.input3" propid="value" datasetid="ds_send" columnid="fromdd"/>
      <BindItem id="item2" compid="roundrect1.input1" propid="value" datasetid="ds_send" columnid="todd"/>
      <BindItem id="item4" compid="roundrect1.chk_allchk" propid="value" datasetid="ds_send" columnid="allchk"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2019-10-01
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2019-10-01       최초개발
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";

//var dutplcecd = sysf_getUserInfo("dutplcecd");
var userid    = sysf_getUserInfo("userid");
//var usernm    = sysf_getUserInfo("usernm");
var jobkindcd = sysf_getUserInfo("jobkindcd");
var jobposcd = sysf_getUserInfo("jobposcd");

var chkusergubun = "";

//=======================================================================================
// Global Form Variable
//---------------------------------------------------------------------------------------
//var arErrorCode = new HashArray();
		                        
//=======================================================================================
// Function 
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Argument			: N/A
 * Description		: N/A
 ****************************************************************************************/

//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components		: Form
 * Components ID	: SMMNW30010
 * Event			: oninit
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 초기화
 ****************************************************************************************/
function SMMNW30010_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

/****************************************************************************************
 * Components		: Form
 * Components ID	: SMMNW30010
 * Event			: onload
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 초기화
 ****************************************************************************************/
function SMMNW30010_onload(obj:Form, e:LoadEventInfo)
{
	//grdf_initGrid(grd_isocmpinfo);
	grdf_setToolTipBind(grd_isocmpinfo);
	grdf_setGridSort(grd_isocmpinfo);
	
	ds_main_isocmpinfo_isocmplist.clearData();
	
	var sSdate = utlf_getCurrentDate().substr(0, 6) + "01";
	var sEdate = utlf_getCurrentDate();
	
	ds_send.setColumn(0, "fromdd", sSdate);
	ds_send.setColumn(0, "todd", sEdate);
	
	//상단정보 셋팅
	ds_paminfo_main.clearData();
	var node = sysf_getGlobalVariable("paminfo");
	dsf_setCSVToDs("ds_paminfo_main", node);		
	//상단 end	
	
	/*
	if( !utlf_isNull(ds_paminfo_main.getColumn(0,"pid")) ){
		ds_send.setColumn(0, "pid", ds_paminfo_main.getColumn(0,"pid"));
	}
	*/
	
	if( jobkindcd == "0330" ){
		//ds_send.setColumn(0, "chkusergubun", "D");
		
		if( jobposcd == "1782" ){
			ds_send.setColumn(0, "chkusergubun", "M");
		}else{
			ds_send.setColumn(0, "chkusergubun", "A");	
		}
		
		ds_send.setColumn(0, "userid", userid);
		
		roundrect1.cap_searchname.visible = true;
		roundrect1.chk_allchk.visible = true;
		
	}else{
		ds_send.setColumn(0, "chkusergubun", "N");
		ds_send.setColumn(0, "userid", "");
		
		roundrect1.cap_searchname.visible = false;
		roundrect1.chk_allchk.visible = false;		
	}
		
	
	frmf_inputEnterKey("roundrect1.btn_search", "onclick",  new ClickEventInfo );
	
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_search
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 조회 버튼
 ****************************************************************************************/
function btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	//그리드 초기화
	grdf_clearSort(grd_isocmpinfo);
	ds_main_isocmpinfo_isocmplist.clearData();
		
	var oParam = {};
		oParam.id          = "TRMNW30010";
		oParam.service     = "wardcareapp.TranMngt";
		oParam.method      = "reqGetIsoCmpInfoList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_isocmpinfo_isocmplist=isocmplist";
		oParam.async       = true;
		//oParam.callback    = "cf_TRMNW30010";

	tranf_submit(oParam);
}

function cf_TRMNW30010(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_excel
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 엑셀 버튼
 ****************************************************************************************/
function btn_excel_onclick(obj:Button,  e:ClickEventInfo)
{	
	grdf_exportExcel(grd_isocmpinfo, "격리강박환자관리리스트_", "격리강박환자관리리스트_", false, "" ,"user");
}




function grd_isocmpinfo_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var cur_row = ds_main_isocmpinfo_isocmplist.rowposition;
	
	var sPid     = ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "pid");
	var sOrdtype = "I";
	var sIndd    = ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "indd");
	var sCretno  = ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "cretno");
	var sInstcd  = ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "instcd");
	
	var sRecflag  = ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "recflag");
	var sRecdt  = ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "recdt");
	var sSeqno  = ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "seqno");
		
	//frmf_setParameter("SMMNW30011_pid", ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "pid"));
	//frmf_setParameter("SMMNW30011_indd", ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "indd"));
	//frmf_setParameter("SMMNW30011_cretno", ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "cretno"));
	//frmf_setParameter("SMMNW30011_recflag", ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "recflag"));
	//frmf_setParameter("SMMNW30011_recdt", ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "recdt"));
	//frmf_setParameter("SMMNW30011_seqno", ds_main_isocmpinfo_isocmplist.getColumn(cur_row, "seqno"));
	
	frmf_setParameter("SMMNW30011_pid", sPid);
	frmf_setParameter("SMMNW30011_indd", sIndd);
	frmf_setParameter("SMMNW30011_cretno", sCretno);
	frmf_setParameter("SMMNW30011_recflag", sRecflag);
	frmf_setParameter("SMMNW30011_recdt", sRecdt);
	frmf_setParameter("SMMNW30011_seqno", sSeqno);	
	
	frmf_setParameter("SMMNW30011_saveflag", "u");
	
	//상단정보 셋팅  
	param = sOrdtype + "▦" 
		  + sPid     + "▦" 
		  + sIndd    + "▦" 
		  + sCretno  + "▦"     
		  + sInstcd  + "▦" 
		  + "▦" ;
	  
	frmf_setParameter("condparam",  param);
	
	appf_initPatientInfo(param);	
	//var node = appf_getPatientInfoDetails("ds_paminfo") ;
	//상단정보 셋팅 End
	
	
	frmf_modal("SMMNW30011","SMMNW30011",null,"",1,10,10,"","","","","","M");
	
	frmf_clearParameter("SMMNW30011_pid");
	frmf_clearParameter("SMMNW30011_indd");
	frmf_clearParameter("SMMNW30011_cretno");
	frmf_clearParameter("SMMNW30011_recflag");
	frmf_clearParameter("SMMNW30011_recdt");
	frmf_clearParameter("SMMNW30011_seqno");
	frmf_clearParameter("SMMNW30011_saveflag");
	
	
	frmf_inputEnterKey("roundrect1.btn_search", "onclick",  new ClickEventInfo );
}
]]></Script>
  </Form>
</FDL>