YNU_JEUS/app_home/himed/xpapps/emr/cpgxp/xp/SPMQP01600_진단코드조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMQP01600" position="absolute 0 0 850 600" titletext="진단코드 조회" oninit="SPMQP01600_oninit" onload="SPMQP01600_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 385 23 850 58" id="roundrect1" class="div_SA" anchor="left top right"/>
        <Shape position="absolute 0 22 380 28" linetype="horizontal" id="line4" class="line_1" visible="false"/>
        <Div position="absolute 0 570 850 597" id="grp_btn" anchor="left right bottom">
          <Layouts>
            <Layout>
              <Button position="absolute 735 3 791 25" id="button10" class="btn4" text="선택" onclick="grp_btn_button10_onclick" anchor="right bottom"/>
              <Button position="absolute 794 3 850 25" id="button9" class="btn4" text="닫기" onclick="grp_btn_button9_onclick" anchor="right bottom"/>
            </Layout>
          </Layouts>
        </Div>
        <Edit position="absolute 529 31 723 50" id="input1" class="input_search" onkeydown="input1_onkeydown"/>
        <Button position="absolute 784 30 840 52" id="btn_req" class="btn1" text="조회" onclick="btn_req_onclick" anchor="top right"/>
        <Shape position="absolute 773 30 779 52" linetype="vertical" id="line1" anchor="top right"/>
        <Radio position="absolute 395 32 525 52" id="radio1" columncount="3" codecolumn="codecolumn" datacolumn="datacolumn">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">A</Col>
                <Col id="datacolumn">전체</Col>
              </Row>
              <Row>
                <Col id="codecolumn">C</Col>
                <Col id="datacolumn">코드</Col>
              </Row>
              <Row>
                <Col id="codecolumn">W</Col>
                <Col id="datacolumn">단어</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Grid position="absolute 385 62 850 570" id="grd_diagcdlist" binddataset="ds_grd_diagcdlist" oncelldblclick="grd_diagcdlist_oncelldblclick" selecttype="multirow" cellclickbound="cell" cellsizingtype="col" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="27"/>
                <Column size="75"/>
                <Column size="192"/>
                <Column size="199"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="22"/>
              </Rows>
              <Band id="head">
                <Cell displaytype="checkbox" edittype="checkbox"/>
                <Cell col="1" text="진단코드"/>
                <Cell col="2" text="영문명"/>
                <Cell col="3" text="한글명"/>
                <Cell col="4" text="caption1"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:check" expr="expr:(check==&quot;Y&quot;||check==1)?1:0"/>
                <Cell col="1" displaytype="text" text="bind:dispdiagcd"/>
                <Cell col="2" displaytype="text" text="bind:engnm"/>
                <Cell col="3" displaytype="text" text="bind:hngnm"/>
                <Cell col="4" text="bind:termcd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <CheckBox position="absolute 726 30 771 50" id="checkbox1" text="전체" truevalue="A"/>
        <Shape position="absolute 385 15 850 21" linetype="horizontal" id="line2" class="line_1" visible="false"/>
        <Tab id="tab_indexlist" taborder="1" tabindex="0" scrollbars="autoboth" position="absolute 0 0 380 26" onchanged="tab_indexlist_onchanged">
          <Tabpages>
            <Tabpage id="tab_icd10" text="ICD10"/>
            <Tabpage id="tab_termattr" text="진단코드"/>
          </Tabpages>
        </Tab>
        <Grid id="trv_indxlist" taborder="2" useinputpanel="false" position="absolute 1 28 382 570" binddataset="ds_indxlist" treeusecheckbox="false" selecttype="multitreecell" autosizingtype="col" oncellclick="trv_indxlist_oncellclick" autoenter="select" autofittype="col" anchor="left top bottom">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="113"/>
              </Columns>
              <Rows>
                <Row size="18"/>
              </Rows>
              <Band id="body">
                <Cell displaytype="tree" edittype="tree" style="line:0 none #808080ff ;background:white;background2:white;" text="bind:indxhngnm" treestartlevel="1" treelevel="bind:depth"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_diagcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="check" type="STRING"/>
          <Column id="dispdiagcd" type="STRING"/>
          <Column id="engnm" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="termcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="reqflag" type="STRING" size="256"/>
          <Column id="reqdata" type="STRING" size="256"/>
          <Column id="srchflag" type="STRING" size="256"/>
          <Column id="wordflag" type="STRING" size="256"/>
          <Column id="trgflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="srchflag">A</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_indxlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="depth" type="STRING" size="256"/>
          <Column id="indxcd" type="STRING" size="256"/>
          <Column id="upindxcd" type="STRING" size="256"/>
          <Column id="indxengnm" type="STRING" size="256"/>
          <Column id="indxhngnm" type="STRING" size="256"/>
          <Column id="path" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_setdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="icd10cd" type="STRING" size="256"/>
          <Column id="cc" type="STRING" size="256"/>
          <Column id="icd10hngnm" type="STRING" size="256"/>
          <Column id="depth" type="STRING" size="256"/>
          <Column id="path" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_getdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="grdfocus" type="STRING" size="256"/>
          <Column id="poolsize" type="STRING" size="256"/>
          <Column id="endVal" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="poolsize">0</Col>
            <Col id="grdfocus"/>
            <Col id="endVal"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_pool" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="radio1" propid="value" datasetid="ds_main_cond" columnid="srchflag"/>
      <BindItem id="item1" compid="input1" propid="value" datasetid="ds_main_cond" columnid="reqdata"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-09-23
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-09-23      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs"

var usge = "";
//값을 opener에 opener에 parameter로 보낼지, opener의 인스턴스에 직접 반영할지 구분 ( IF/THEN이면 parameter, 그렇지 않으면 instance로)
var condbutton = "";
/****************************************************************************************
 * Argument			: 
 * Description		: 초기화
 ****************************************************************************************/
function SPMQP01600_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPMQP01600_onload(obj:Form, e:LoadEventInfo)
{
	// SMMQP00600 CP생성기 호출
	try{
		ds_temp_getdata.setColumn(0, "grdfocus", lastrowcnt);
	}catch(e){}
	
	
	
	grdf_initGrid(grd_diagcdlist); 
	var targetFlag = opener.frmf_getParameter("flag");
	
	ds_send_reqdata.addColumn("trgflag", "string", 256);
	ds_send_reqdata.addColumn("flag", "string", 256);
	var row = ds_send_reqdata.addRow();
	
	usge = opener.frmf_getParameter("usge");
	
	if( !utlf_isNull(targetFlag) ){
		ds_main_cond.setColumn(0, "trgflag", targetFlag);
		ds_send_reqdata.setColumn(row, "trgflag", targetFlag);
	}
	
	ds_main_cond.setColumn(0, "trgflag", "DIAG");
	tab_indexlist.tabindex = 1;
	var tabIdx = tab_indexlist.tabindex;
	if( tabIdx == 0 ){
		grd_diagcdlist.setCellProperty("Head", 1, "text", "ICD10코드");
	} else {
		grd_diagcdlist.setCellProperty("Head", 1, "text", "진단코드");
	}
	ds_send_reqdata.setColumn(row, "flag", "0");
	
		var oParam = {};
		oParam.id          = "TRMQP01601";
		oParam.service     = "prcpbaseapp.CpMngt";
		oParam.method      = "reqGetIcdCdList";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_indxlist=item";
		oParam.async       = true;
		oParam.callback    = "cf_TRMQP01601";

	tranf_submit(oParam);
	
	if( !utlf_isNull(opener) && opener.objects["ds_main_cond"] != null ){
		if( !utlf_isNull(opener.ds_main_cond.getColumn(0, "condbutton")) ){
			condbutton = opener.ds_main_cond.getColumn(0, "condbutton");
		}
	}
	
	frmf_setFocus(true);
}

function cf_TRMQP01601(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    
    grdf_expandDepth(trv_indxlist, 2) ;
}


/****************************************************************************************
 * Argument			: 
 * Description		: Tree onCellClick
 ****************************************************************************************/
function trv_indxlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	var item = trv_indxlist.getTreeChildRow(trv_indxlist.currentrow, 0, false);
	
	if( item != -1 ){
		return;
	}
	
	ds_send_reqdata.clear();

	var tabIdx = tab_indexlist.tabindex;
	var trgflag = "";

	if( tabIdx == 0 ){
		trgflag = "ICD";
		grd_diagcdlist.setCellProperty("Head", 1, "text", "ICD10코드");
	} else {
		trgflag = "DIAG";
		grd_diagcdlist.setCellProperty("Head", 1, "text", "진단코드");
	}
	
	fn_reqGetTermCdList(trgflag);

}

/****************************************************************************************
 * Argument			: 
 * Description		: fn_reqGetTermCdList
 ****************************************************************************************/
 function fn_reqGetTermCdList(trgflag){

	ds_send_reqdata.clear();
	
	ds_send_reqdata.addColumn("flag", "string", 256);
	ds_send_reqdata.addColumn("srchindxcd", "string", 256);
	ds_send_reqdata.addColumn("reqflag", "string", 256);
	ds_send_reqdata.addColumn("trgflag", "string", 256);
	
	var row = ds_send_reqdata.addRow();
	ds_send_reqdata.setColumn(row, "flag", "0");
	ds_send_reqdata.setColumn(row, "srchindxcd", ds_indxlist.getColumn(ds_indxlist.rowposition, "indxcd"));
	ds_send_reqdata.setColumn(row, "reqflag", ds_main_cond.getColumn(0, "reqflag"));
	ds_send_reqdata.setColumn(row, "trgflag", trgflag);
	
	ds_grd_diagcdlist.clearData();
	var oParam = {};
		oParam.id          = "TRMQP01602";
		oParam.service     = "prcpbaseapp.CpMngt";
		oParam.method      = "reqGetTermCdList";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_grd_diagcdlist=info";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMQP01602";

	tranf_submit(oParam);
	
 }

 /****************************************************************************************
 * Argument			: 
 * Description		: Tab onchanged
 ****************************************************************************************/
 function tab_indexlist_onchanged(obj:Tab, e:TabIndexChangeEventInfo)
{
	var item = trv_indxlist.getTreeChildRow(trv_indxlist.currentrow, 0, false);

	var tabIdx = tab_indexlist.tabindex;
	var reqData = ds_main_cond.getColumn(0, "reqdata");
	var trgflag = "";

	if( utlf_isNull(reqData) ){
		if( tabIdx == 0 ){
			trgflag = "ICD";
			grd_diagcdlist.setCellProperty("Head", 1, "text", "ICD10코드");
			fn_reqGetTermCdList(trgflag);
		} else {
			if( item != 1 ){
				trgflag = "DIAG";
				grd_diagcdlist.setCellProperty("Head", 1, "text", "진단코드");
				fn_reqGetTermCdList(trgflag);
			} else {
				return;
			}
		}
	}
}

/****************************************************************************************
 * Argument			: 
 * Description		: 조회 Button
 ****************************************************************************************/
 function btn_req_onclick(obj:Button,  e:ClickEventInfo)
{
	var srchStr = ds_main_cond.getColumn(0, "reqdata");
	if( utlf_isNull(srchStr) ){
		sysf_messageBox("검색어를 ", "C001");
		return;
	} else if( utlf_getStringLength(srchStr) < 3 ){
		sysf_messageBox("2글자 이상 ", "C001");
		return;
	} else {
		fn_reqDiagCD();
	}
}

/****************************************************************************************
 * Argument			: 
 * Description		: 조회 Button
 ****************************************************************************************/
 function fn_reqDiagCD(){
	var reqdata = ds_main_cond.getColumn(0, "reqdata");
	
	if( reqdata.charCodeAt(0) > 255 ){
		ds_main_cond.setColumn(0, "wordflag", "H");
	} else {
		ds_main_cond.setColumn(0, "wordflag", "E");
		reqdata = reqdata.toUpperCase();
	}
	
	ds_send_reqdata.clear();
	ds_send_reqdata.copyData(ds_main_cond);
	ds_send_reqdata.addColumn("flag", "string", 256);
	
	ds_send_reqdata.setColumn(0, "reqdata", reqdata);
	ds_send_reqdata.setColumn(0, "flag", "0");
	
	var tabIdx = tab_indexlist.tabindex;
	if( tabIdx == 0 ){
		ds_send_reqdata.setColumn(0, "trgflag", "ICD");
	} else {
		ds_send_reqdata.setColumn(0, "trgflag", "DIAG");
	}
	
	var oParam = {};
		oParam.id          = "TRMQP01603";
		oParam.service     = "prcpbaseapp.CpMngt";
		oParam.method      = "reqGetSearchTermCd";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_grd_diagcdlist=info";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMQP01603";

	tranf_submit(oParam);
 }
 
 /****************************************************************************************
 * Argument			: 
 * Description		: OnKeyDown(Search)
 ****************************************************************************************/
 function input1_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13){
		obj.updateToDataset();
		btn_req.click();
	}
}

/****************************************************************************************
 * Argument			: 
 * Description		: List Click
 ****************************************************************************************/
function grd_diagcdlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var iRow = ds_grd_diagcdlist.rowposition;
	ds_grd_diagcdlist.setColumn(iRow, "check", "1");
	
	if( !utlf_isNull(condbutton) ){
		fSetOpenerParameter();
		return;
	}
	
	if( iRow < 0 ){
		return;
	} 

	var opWndId = opener.objects["ds_conditon"] == null ? "" : opener.ds_conditon.getColumn(0 , "wndid");
	
	sysf_trace("opWndId : " + opWndId)

	if( opWndId == "SMASB02300" ){
			fSetdbClickLglyCd(iRow);
			return;
	}else {
		fSetOpenerValue(iRow);
	}
	
	this.close();
}

function fSetCheckInforLglyCd(){
	var grdIdxs = "-";
	var selRowcnt = 0;
	for(var rowIdx=0; rowIdx < ds_grd_diagcdlist.rowcount; rowIdx++){
		var chFlag = ds_grd_diagcdlist.getColumn(rowIdx, "check");
		if( (chFlag == 1 || chFlag == "true") && selRowcnt == 0 ){
			grdIdxs = rowIdx;
			selRowcnt++;
		}
		else if( (chFlag == 1 || chFlag == "true") ){
			selRowcnt++;
		}
	}
	
	if( selRowcnt > 1 || selRowcnt == 0 ){
		return false;
	}
	else{
		return grdIdxs;
	}
}

function fSetdbClickLglyCd( selRow ){
	var param = opener.frmf_getParameter("SMASB02300_param");
	var paramValue = utlf_transNullToEmpty(param).split("▦");
	
	var opRow = paramValue[0];
	var opCol = paramValue[1];
	var curStatus = paramValue[2];

	var lglydiscd = ds_grd_diagcdlist.getColumn(selRow, "dispdiagcd");
	
	if( opCol == opener.grd_asihlgdc.getBindCellIndex("body", "fromicd10cd")){
		opener.ds_main_asihlgdc_list.setColumn(opRow, "fromicd10cd", lglydiscd);		
	}
	else if(opCol == opener.grd_asihlgdc.getBindCellIndex("body", "toicd10cd")){
		opener.ds_main_asihlgdc_list.setColumn(opRow, "toicd10cd", lglydiscd);		
	}
	this.close();
}

/****************************************************************************************
 * Argument			: 
 * Description		: 선택 Button
 ****************************************************************************************/
 function grp_btn_button10_onclick(obj:Button,  e:ClickEventInfo)
{
	if( !utlf_isNull(condbutton) ){
		fSetOpenerParameter();
		return;
	}
	
	var rowCnt = ds_grd_diagcdlist.rowcount;
	var iRow = ds_grd_diagcdlist.rowposition;
	
	// SMASB02300_법정전염병마스터에 진단코드 및 이름 입력받기
	// 작성자 : 김광성 kskim
	// 작성일 : 2010.03.15
	var opWndId = opener.objects["ds_conditon"] == null ? "" : opener.ds_conditon.getColumn(0 , "wndid");

	if( opWndId == "SMASB02300"){
		var selIdx = fSetCheckInforLglyCd();
		if( selIdx == false){
			sysf_messageBox("1개의 진단을 ", "C002");
		}
		else{
			fSetdbClickLglyCd(selIdx);
			this.close();
		}
		return;
	}else{
		for(var i=0; i<rowCnt; i++){
			var bool = ds_grd_diagcdlist.getColumn(i, "check");
			if(bool == 1 || bool == true){
				fSetOpenerValue( i );
			}
			if(ds_temp_getdata.getColumn(0, "endVal") == "E")
				this.close();
		}
	}
}

/****************************************************************************************
 * Argument			: 
 * Description		: fSetOpenerValue
 *					  선택된 값을 부모창에 데이터 전달
 ****************************************************************************************/
 function fSetOpenerValue(iRow){
	var bool = "false";
	var iCnt = parseInt(ds_temp_getdata.getColumn(0, "poolsize"));
	var selCd = ds_grd_diagcdlist.getColumn(iRow, "termcd");
	if( iCnt != 0 ){
		for( var i=0; i < iCnt; i++ ){
			if( selCd == ds_temp_pool.getColumn(i, "cd") ){
				bool = "true";
				return;
			}
		}
	}
	
	
	/*
		SPASI03300_HIV-AIDS신고서.xfdl
		SPMMD06100_ClinicalRule관리.xfdl
		SMMQP00600_CP생성기.xfdl
	*/
	var oDs = null;
	var oDsNm = null;
	if( utlf_isNull(opener) ){
		sysf_trace("화면의 opener 가 존재하지 않습니다.");
		return;
	}else if( opener.frmf_getScreenID() == "SPASI03300" ){
		oDsNm = "ds_grd_diagcdlist";
	}else{
		oDsNm = "ds_main_diaginfo_diaglist";
	}
	oDs = opener.objects[oDsNm];
	
	if( oDs == null ){
		opener.dsf_createDs(oDsNm, [{col:"termcd", type:"string", size:256}
									, {col:"termhngnm", type:"string", size:256}
									, {col:"termengnm", type:"string", size:256}
									, {col:"termflag", type:"string", size:256}
									, {col:"m", type:"string", size:256}]);
		oDs = opener.objects[oDsNm];
	}else if( oDs.getColumnInfo("m") == null ){
		oDs.addColumn("m", "string");
	}
	
	if( bool == "false" ){
		var sRow = ds_temp_getdata.getColumn(0, "grdfocus");
		if( utlf_isNull(sRow) ){
			sRow = "0";
			ds_temp_getdata.setColumn(0, "endVal", "E");
		}
		//sRow = parseInt(sRow) + 1;
		
		var selCd = ds_grd_diagcdlist.getColumn(iRow, "termcd");
		var selHNM = ds_grd_diagcdlist.getColumn(iRow, "hngnm");
		var selENM = ds_grd_diagcdlist.getColumn(iRow, "engnm");
		if( oDs.rowcount <= sRow )
			sRow = oDs.addRow();
			
		oDs.setColumn(sRow, "termcd", selCd);
		oDs.setColumn(sRow, "termhngnm", selHNM);
		oDs.setColumn(sRow, "termengnm", selENM);
		if( !utlf_isNull(usge) ){
			oDs.setColumn(sRow, "m", "i");
		}
		var termflag = "T01";
		if( ds_main_cond.getColumn(0, "trgflag") == "ICD" ){
			termflag = "T00";
		}
		oDs.setColumn(sRow, "termflag", termflag);
		ds_temp_getdata.setColumn(0, "grdfocus", parseInt(sRow) + 1);
		
		dsf_makeValue(ds_temp_pool, "cd", "string", selCd, iCnt);
		//ds_temp_pool.setColumn(iCnt, "cd", selCd);
		iCnt = parseInt(iCnt) + 1;
		ds_temp_getdata.setColumn(0, "poolsize", iCnt);
	}
 }
 
/****************************************************************************************
 * Argument			: 
 * Description		: 닫기 Button
 ****************************************************************************************/
 
function grp_btn_button9_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}
]]></Script>
  </Form>
</FDL>