1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063 |
- <?xml version="1.0" encoding="utf-8"?>
- <FDL version="1.5">
- <TypeDefinition url="..\..\..\default_typedef.xml"/>
- <Form id="SMMNP00310" position="absolute 0 0 1196 765" titletext="적출물관리대장" onload="SMMNP00310_onload" ontimer="SMMNP00310_ontimer">
- <Layouts>
- <Layout>
- <Static text="적출물관리대장" position="absolute 0 0 160 25" id="caption6" class="tit_1"/>
- <Div position="absolute 0 20 1195 763" id="group3" scrollbars="autoboth">
- <Layouts>
- <Layout>
- <Div position="absolute 0 5 1195 40" align="align:center top;" id="grp_sea" anchor="default" class="div_SA">
- <Layouts>
- <Layout>
- <Static text="수거일자 :" position="absolute 576 10 652 27" id="caption2" class="search_name" visible="false" anchor="default"/>
- <Shape position="absolute 1102 7 1108 29" linetype="vertical" id="line13" class="line_4" anchor="default"/>
- <Static text="~" position="absolute 747 9 759 26" id="caption7" class="search_no_b" visible="false" anchor="default"/>
- <Radio position="absolute 379 9 558 27" id="rdo_rdocond" columncount="3" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default" onitemclick="group3_grp_sea_rdo_rdocond_onitemclick" onitemchanged="group3_grp_sea_rdo_rdocond_onitemchanged">
- <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">b</Col>
- <Col id="datacolumn">수거</Col>
- </Row>
- <Row>
- <Col id="codecolumn">c</Col>
- <Col id="datacolumn">미수거</Col>
- </Row>
- </Rows>
- </Dataset>
- </Radio>
- <Calendar position="absolute 652 9 740 28" id="ipt_fromdd" class="input_search" visible="false" anchor="default" autoselect="true"/>
- <Calendar position="absolute 765 9 853 28" id="ipt_todd" class="input_search" visible="false" anchor="default" autoselect="true"/>
- <Button position="absolute 1124 7 1180 29" id="btn_srch" class="btn1" text="조회" anchor="default" onclick="group3_grp_sea_btn_srch_onclick"/>
- <Static text="수거구분 :" position="absolute 305 10 378 27" id="caption1" class="search_name" anchor="default"/>
- <Static text="수거장소 :" position="absolute 15 10 86 27" id="caption5" class="search_name" anchor="default"/>
- <Radio position="absolute 89 9 289 26" id="radio1" columncount="3" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default" onitemchanged="group3_grp_sea_radio1_onitemchanged">
- <Dataset id="innerdataset">
- <ColumnInfo>
- <Column id="codecolumn"/>
- <Column id="datacolumn"/>
- </ColumnInfo>
- <Rows>
- <Row>
- <Col id="codecolumn">
- </Col>
- <Col id="datacolumn">전체</Col>
- </Row>
- <Row>
- <Col id="codecolumn">1</Col>
- <Col id="datacolumn">수술실</Col>
- </Row>
- <Row>
- <Col id="codecolumn">2</Col>
- <Col id="datacolumn">조직은행</Col>
- </Row>
- </Rows>
- </Dataset>
- </Radio>
- </Layout>
- </Layouts>
- </Div>
- <Button position="absolute 997 43 1061 62" id="btn_cncl" class="btn5" visible="false" text="수거취소" anchor="default" onclick="group3_btn_cncl_onclick"/>
- <Button position="absolute 1064 43 1128 62" id="btn_print" class="btn2" visible="false" text="선택출력" anchor="default" onclick="group3_btn_print_onclick"/>
- <Button position="absolute 1131 43 1195 62" id="btn_saveexcel" class="btn2" text="엑셀저장" anchor="default" onclick="group3_btn_saveexcel_onclick"/>
- <Shape position="absolute 0 63 1194 69" linetype="horizontal" id="line1" class="line_1" anchor="default" style="strokepen:3 solid #33bbbbff;"/>
- <Grid position="absolute 0 68 1194 714" id="grd_extlist" class="datagrid2" binddataset="ds_main_extinfo_extlist" anchor="default" cellsizingtype="both" oncellclick="group3_grd_extlist_oncellclick" oncloseup="group3_grd_extlist_oncloseup" onlbuttonup="group3_grd_extlist_onlbuttonup" autoenter="key" cellsizebandtype="allband" extendsizetype="row" selecttype="multirow" autosizingtype="row">
- <Formats>
- <Format id="default">
- <Columns>
- <Column size="21" band="left"/>
- <Column size="19"/>
- <Column size="62"/>
- <Column size="47"/>
- <Column size="105"/>
- <Column size="50"/>
- <Column size="42"/>
- <Column size="55"/>
- <Column size="45"/>
- <Column size="60"/>
- <Column size="55"/>
- <Column size="50"/>
- <Column size="110"/>
- <Column size="35"/>
- <Column size="40"/>
- <Column size="140"/>
- <Column size="70"/>
- <Column size="45"/>
- <Column size="70"/>
- <Column size="55"/>
- <Column size="55"/>
- <Column size="0"/>
- <Column size="0"/>
- <Column size="0"/>
- </Columns>
- <Rows>
- <Row size="32" band="head"/>
- <Row size="24"/>
- </Rows>
- <Band id="head">
- <Cell displaytype="none"/>
- <Cell col="1" displaytype="checkbox" edittype="checkbox"/>
- <Cell col="2" text="수거장소"/>
- <Cell col="3" text="상태"/>
- <Cell col="4" text="적출일시"/>
- <Cell col="5" text="집도과"/>
- <Cell col="6" text="수술방"/>
- <Cell col="7" text="환자명"/>
- <Cell col="8" text="S/A"/>
- <Cell col="9" text="등록번호"/>
- <Cell col="10" text="적출의"/>
- <Cell col="11" text="취급 간호사"/>
- <Cell col="12" text="적출부위"/>
- <Cell col="13" text="수량"/>
- <Cell col="14" text="중량 (g)"/>
- <Cell col="15" text="감염정보"/>
- <Cell col="16" text="감염정보 기타"/>
- <Cell col="17" text="동의서 확인"/>
- <Cell col="18" text="수거일자"/>
- <Cell col="19" text="수거자"/>
- <Cell col="20" text="확인자"/>
- <Cell col="21" text="확인자ID"/>
- <Cell col="22" text="적출일련번호"/>
- <Cell col="23" text="수술예약번호"/>
- </Band>
- <Band id="body">
- <Cell celltype="head" expr="currow + 1"/>
- <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:chk" expr="expr:(chk=="Y"||chk==1)?1:0"/>
- <Cell col="2" displaytype="combo" edittype="none" style="align:center middle;" text="bind:flag" combodataset="ds_init_flag" combocodecol="value" combodatacol="label" enable="false"/>
- <Cell col="3" style="align:center middle;" text="bind:remstat"/>
- <Cell col="4" text="bind:extcrdt" mask="####-##-## ##:##" maskchar=" " calendardisplaynulltype="nulltext"/>
- <Cell col="5" style="align:center middle;" text="bind:opdeptnm"/>
- <Cell col="6" style="align:center middle;" text="bind:oproomnm"/>
- <Cell col="7" style="align:center middle;" text="bind:hngnm"/>
- <Cell col="8" style="align:center middle;" text="bind:sexage"/>
- <Cell col="9" style="align:center middle;" text="bind:pid"/>
- <Cell col="10" style="align:center middle;" text="bind:opdoctnm"/>
- <Cell col="11" displaytype="normal" style="align:center middle;" text="bind:actnurnm" calendardisplaynulltype="default"/>
- <Cell col="12" style="align:left;padding:2 2 2 2;" text="bind:extcrpart" wordwrap="word" autosizerow="limitmin"/>
- <Cell col="13" displaytype="number" text="bind:extcrcnt" mask="#,###"/>
- <Cell col="14" displaytype="number" text="bind:extcrweig" mask="#,###"/>
- <Cell col="15" style="align:left;padding:2 2 2 2;" text="bind:infectflag" wordwrap="word"/>
- <Cell col="16" style="align:left;padding:2 2 2 2;" text="bind:infectetc" wordwrap="word"/>
- <Cell col="17" edittype="none" style="align:center middle;" text="bind:opaprvyn"/>
- <Cell col="18" displaytype="date" style="align:center middle;" text="bind:remvdd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
- <Cell col="19" style="align:center middle;" text="bind:remvnm"/>
- <Cell col="20" style="align:center middle;" text="bind:checknurnm"/>
- <Cell col="21" text="bind:checknurid"/>
- <Cell col="22" text="bind:eoseqno"/>
- <Cell col="23" text="bind:oprsrvno"/>
- </Band>
- </Format>
- </Formats>
- </Grid>
- <Static text="총 개수 :" position="absolute 0 715 75 738" align="align:left middle;" id="caption15" class="cell_1" anchor="default" style="font:Dotum,9,bold;"/>
- <Static text="개" position="absolute 135 718 160 737" id="caption10" anchor="default" style="font:Dotum,9,bold;"/>
- <Static text="총 중량 :" position="absolute 162 715 237 738" align="align:left middle;" id="caption3" class="cell_1" anchor="default" style="font:Dotum,9,bold;"/>
- <Static text="g" position="absolute 305 718 320 738" id="caption4" anchor="default" style="font:Dotum,9,bold;"/>
- <Static text="수거일자 :" position="absolute 658 715 733 738" align="align:left middle;" id="caption12" class="cell_1" anchor="default" style="font:Dotum,9,bold;"/>
- <Static text="수거자 :" position="absolute 836 715 896 738" align="align:left middle;" id="caption13" class="cell_1" anchor="default" style="font:Dotum,9,bold;"/>
- <Static text="확인자 :" position="absolute 989 715 1049 738" align="align:left middle;" id="caption11" class="cell_1" anchor="default" style="font:Dotum,9,bold;"/>
- <MaskEdit readonly="true" position="absolute 77 718 133 737" align="align:right middle;" id="ipt_cnt" mask="#,###" anchor="default" trimtype="both" style="background:transparent stretch 5,5;font:Dotum,9,bold;"/>
- <MaskEdit readonly="true" position="absolute 239 718 303 737" align="align:right middle;" id="ipt_weig" mask="#,###" anchor="default" trimtype="both" style="background:transparent stretch 5,5;font:Dotum,9,bold;"/>
- <Calendar position="absolute 734 717 834 736" id="ipt_remvdd" anchor="default" autoselect="true"/>
- <Edit position="absolute 897 717 987 736" id="ipt_remvnm" anchor="default" autoselect="true"/>
- <Combo position="absolute 1050 717 1150 736" id="cmb_checknurid" innerdataset="@ds_hidden_confpsninfo_confpsnlist" datacolumn="nm" codecolumn="cd" anchor="default" displayrowcount="15"/>
- <Button position="absolute 1153 717 1195 736" id="btn_save" class="btn5" text="저장" anchor="default" onclick="group3_btn_save_onclick"/>
- <Shape position="absolute 0 737 1195 743" linetype="horizontal" id="line5" class="line_3" anchor="default"/>
- </Layout>
- </Layouts>
- </Div>
- <Static id="caption9" text="적출물리스트" class="tit_2" position="absolute 0 67 111 83"/>
- </Layout>
- </Layouts>
- <Objects>
- <Dataset id="ds_grd_extlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
- <ColumnInfo>
- <Column id="chk" type="STRING"/>
- <Column id="flag" type="STRING"/>
- <Column id="remstat" type="STRING"/>
- <Column id="extcrdt" type="STRING"/>
- <Column id="opdeptnm" type="STRING"/>
- <Column id="oproomnm" type="STRING"/>
- <Column id="hngnm" type="STRING"/>
- <Column id="sexage" type="STRING"/>
- <Column id="pid" type="STRING"/>
- <Column id="opdoctnm" type="STRING"/>
- <Column id="actnurnm" type="STRING"/>
- <Column id="extcrpart" type="STRING"/>
- <Column id="extcrcnt" type="STRING"/>
- <Column id="extcrweig" type="STRING"/>
- <Column id="infectflag" type="STRING"/>
- <Column id="infectetc" type="STRING"/>
- <Column id="opaprvyn" type="STRING"/>
- <Column id="remvdd" type="STRING"/>
- <Column id="remvnm" type="STRING"/>
- <Column id="checknurnm" type="STRING"/>
- <Column id="checknurid" type="STRING"/>
- <Column id="eoseqno" type="STRING"/>
- <Column id="oprsrvno" type="STRING"/>
- </ColumnInfo>
- </Dataset>
- <Dataset id="ds_init_cmb_checknurid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
- <ColumnInfo>
- <Column id="nm" type="STRING"/>
- <Column id="cd" type="STRING"/>
- </ColumnInfo>
- </Dataset>
- <Dataset id="ds_main_extinfo_extlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_extinfo_extlist_oncolumnchanged"/>
- <Dataset id="ds_main_ipt_extinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
- <ColumnInfo>
- <Column id="remvdd" type="STRING" size="256"/>
- <Column id="remvnm" type="STRING" size="256"/>
- <Column id="checknurid" type="STRING" size="256"/>
- </ColumnInfo>
- <Rows>
- <Row>
- <Col id="remvdd"/>
- <Col id="remvnm"/>
- <Col id="checknurid"/>
- </Row>
- </Rows>
- </Dataset>
- <Dataset id="ds_main_totextinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
- <ColumnInfo>
- <Column id="totextcrcnt" type="STRING" size="256"/>
- <Column id="totextcrweig" type="STRING" size="256"/>
- </ColumnInfo>
- <Rows>
- <Row>
- <Col id="totextcrcnt"/>
- <Col id="totextcrweig"/>
- </Row>
- </Rows>
- </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_hidden_confpsninfo_confpsnlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
- <ColumnInfo>
- <Column id="cd" type="STRING" size="256"/>
- <Column id="nm" type="STRING" size="256"/>
- </ColumnInfo>
- <Rows>
- <Row/>
- </Rows>
- </Dataset>
- <Dataset id="ds_cond" 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="fromdd" type="STRING" size="256"/>
- <Column id="todd" type="STRING" size="256"/>
- <Column id="rdocond" type="STRING" size="256"/>
- <Column id="flag" type="STRING" size="256"/>
- </ColumnInfo>
- <Rows>
- <Row>
- <Col id="wardcd"/>
- <Col id="fromdd"/>
- <Col id="todd"/>
- <Col id="rdocond"/>
- <Col id="flag"/>
- </Row>
- </Rows>
- </Dataset>
- <Dataset id="ds_init_M0194list_M0194" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
- <Dataset id="ds_init_flag" 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">1</Col>
- </Row>
- <Row>
- <Col id="label">조직은행</Col>
- <Col id="value">2</Col>
- </Row>
- </Rows>
- </Dataset>
- <Dataset id="ds_prnt_totextinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
- <Dataset id="ds_prnt_extinfo_extlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
- </Objects>
- <Bind>
- <BindItem id="item0" compid="group3.grp_sea.radio1" propid="value" datasetid="ds_cond" columnid="flag"/>
- <BindItem id="item1" compid="group3.grp_sea.rdo_rdocond" propid="value" datasetid="ds_cond" columnid="rdocond"/>
- <BindItem id="item2" compid="group3.grp_sea.ipt_fromdd" propid="value" datasetid="ds_cond" columnid="fromdd"/>
- <BindItem id="item3" compid="group3.grp_sea.ipt_todd" propid="value" datasetid="ds_cond" columnid="todd"/>
- <BindItem id="item4" compid="group3.ipt_cnt" propid="value" datasetid="ds_main_totextinfo" columnid="totextcrcnt"/>
- <BindItem id="item5" compid="group3.ipt_weig" propid="value" datasetid="ds_main_totextinfo" columnid="totextcrweig"/>
- <BindItem id="item6" compid="group3.ipt_remvdd" propid="value" datasetid="ds_main_ipt_extinfo" columnid="remvdd"/>
- <BindItem id="item7" compid="group3.ipt_remvnm" propid="value" datasetid="ds_main_ipt_extinfo" columnid="remvnm"/>
- <BindItem id="item8" compid="group3.cmb_checknurid" propid="value" datasetid="ds_main_ipt_extinfo" columnid="checknurid"/>
- </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 "emr_opanstxp::SMMNP00310.xjs";
- /*
-
- 적출물리스트관리(SMMNP00310.xfm - JScript )
- - Version :
- 1) : Ver.1.00.01
- */
- var arErrorCode = new HashArray();
- var xExtListPath = "_root_main_extinfo_extlist";
- var sFlag = "c";
- var chkHeadIndex = 1;
- /**
- * _group :
- * _ver : 2008.07.01
- * _by : dhkim
- * _---------------------------------------------------
- * _type : function
- * _access : public
- * _desc : 화면초기화
- * _param :
- * _param :
- * _return :
- * _---------------------------------------------------
- */
- function fInit(){
- //인스턴스초기화
- ds_send_reqdata.clearData();
- ds_hidden_confpsninfo_confpsnlist.clearData();
- ds_main_extinfo_extlist.clearData();
-
- ds_main_ipt_extinfo.clearData();
- ds_main_ipt_extinfo.addRow();
-
- ds_cond.clearData();
- ds_cond.addRow();
-
- dsf_makeValue(ds_cond, "fromdd", "string", utlf_getCurrentDate());
- dsf_makeValue(ds_cond, "todd", "string", utlf_getCurrentDate());
- dsf_makeValue(ds_cond, "rdocond", "string", sFlag);
- dsf_makeValue(ds_cond, "flag", "string", "")
-
-
- //조회조건 초기화
- ds_main_ipt_extinfo.setColumn(0, "remvdd", utlf_getCurrentDate());
- ds_main_ipt_extinfo.setColumn(0, "checknurid", sysf_getUserInfo("userid"));
-
- //**공통코드 가져오기**//
- // zbcfGetCodeList(
- // new Array ( "M0194" ) // 감염성 질환
- // , new Array ( "_root_init_M0194list") // 감염성 질환
- // );
-
- var arrParam = [{dsNm: "ds_init_M0194list_M0194", cdGrpId: "M0194"}];
- appf_getCodeList(arrParam);
- //화면 버튼 설정
- fValueChangedInfectRdo(sFlag);
-
- //수술실간호사리스트 조회(확인자콤보)
- fGetOpNrList();
-
- // 2016.09.23 kimdo3 확인필요
- // this.group3.grd_extlist.fixedcellcheckbox(0, this.group3.grd_extlist.colRef("chk")) = true;
- // this.group3.grd_extlist.fixedcellischeck(0, this.group3.grd_extlist.colRef("chk")) = true;
-
- fSearch();
- ////model.refresh();
- }
- /**
- * _group :
- * _ver : 2008.07.02
- * _by : dhkim
- * _---------------------------------------------------
- * _type : function
- * _access : public
- * _desc : 수술실간호사리스트조회
- * _param :
- * _param :
- * _return :
- * _---------------------------------------------------
- */
- function fGetOpNrList(){
-
- ds_send_reqdata.clearData();
- ds_send_reqdata.addRow();
-
- dsf_makeValue(ds_send_reqdata, "deptflag", "string", "015");
- dsf_makeValue(ds_send_reqdata, "searchdd", "string", utlf_getCurrentDate());
-
- var oParam = {};
- oParam.id = "TRMNP00312";
- oParam.service = "opanstapp.OpAnstRec";
- oParam.method = "reqGetOpNrList";
- oParam.inds = "reqdata=ds_send_reqdata";
- oParam.outds = "ds_hidden_confpsninfo_confpsnlist=confPsnList";
- oParam.async = false;
- oParam.callback = "cf_TRMNP00312";
- tranf_submit(oParam);
- if(arErrorCode.pop("TRMNP00312") < 0){
- sysf_messageBox('초기화를', 'E009');
- return;
- }
- }
- function cf_TRMNP00312(sSvcId, nErrorCode, sErrorMsg) {
- arErrorCode.push(sSvcId, nErrorCode);
- ds_hidden_confpsninfo_confpsnlist.updateColID("userid","cd");
- ds_hidden_confpsninfo_confpsnlist.updateColID("usernm","nm");
- }
- /**
- * _group :
- * _ver : 2008.07.01
- * _by : dhkim
- * _---------------------------------------------------
- * _type : function
- * _access : public
- * _desc : 회복환자조회
- * _param :
- * _param :
- * _return :
- * _---------------------------------------------------
- */
- function fSearch(){
- var fromdd = ds_cond.getColumn(0, "fromdd");
- var todd = ds_cond.getColumn(0, "todd");
- var rdocond = ds_cond.getColumn(0, "rdocond");
- var flag = ds_cond.getColumn(0, "flag");
-
- if( utlf_isNull(fromdd) ){
- fromdd = utlf_getCurrentDate();
- }
-
- if( utlf_isNull(todd) ){
- todd = utlf_getCurrentDate();
- }
-
- ds_cond.setColumn(0, "fromdd", fromdd);
- ds_cond.setColumn(0, "todd", todd);
-
- ds_main_totextinfo.clearData();
- ds_main_totextinfo.addRow();
- ds_main_totextinfo.setColumn( 0, "totextcrcnt", "");
- ds_main_totextinfo.setColumn( 0, "totextcrweig", "");
-
- //model.reset('_root_main_ipt_extinfo');
-
- ds_send_reqdata.clearData();
- ds_send_reqdata.addRow();
-
- dsf_makeValue( ds_send_reqdata, "fromdd", "string", fromdd);
- dsf_makeValue( ds_send_reqdata, "todd", "string", todd);
- dsf_makeValue( ds_send_reqdata, "rdocond", "string", rdocond);
- dsf_makeValue( ds_send_reqdata, "flag", "string", flag);
-
- var oParam = {};
- oParam.id = "TRMNP00311";
- oParam.service = "opanstapp.OpAnstRec";
- oParam.method = "reqGetExtInfoList";
- oParam.inds = "reqdata=ds_send_reqdata";
- oParam.outds = "ds_main_extinfo_extlist=extList";
- oParam.async = false;
- oParam.callback = "cf_TRMNP00311";
- tranf_submit(oParam);
- if(arErrorCode.pop("TRMNP00311") < 0){
- sysf_messageBox('적출물리스트조회를', 'E009');
- return;
- }
-
- // if(!submit('TRMNP00313', false)){
- // sysf_messageBox('적출물리스트조회를', 'E009');
- // return;
- // }
-
- if(ds_main_extinfo_extlist.rowcount< 1){
- group3.btn_print.enable = false;
- group3.btn_saveexcel.enable = false;
- group3.btn_save.enable = false;
- group3.btn_cncl.enable = false;
- group3.ipt_remvdd.enable = false;
- group3.ipt_remvnm.enable = false;
- group3.cmb_checknurid.enable = false;
-
- ds_main_totextinfo.setColumn( 0, "totextcrcnt", 0);
- ds_main_totextinfo.setColumn( 0, "totextcrweig", 0);
-
- group3.grd_extlist.setCellProperty("head", chkHeadIndex, "text", "0");
- }else{
- group3.btn_print.enable = true;
- group3.btn_saveexcel.enable = true;
- group3.btn_save.enable = true;
- group3.btn_cncl.enable = true;
- group3.ipt_remvdd.enable = true;
- group3.ipt_remvnm.enable = true;
- group3.cmb_checknurid.enable = true;
- totalCnt = 0;
- totalWeig = 0;
-
- for(var i = 0 ; i < ds_main_extinfo_extlist.rowcount; i++){
- infectInfo = "";
- infectArray = String(ds_main_extinfo_extlist.getColumn(i, "infectflag")).split(" ");
- for(var j = 0 ; j < ds_init_M0194list_M0194.rowcount; j++){
- for(var k = 0 ; k <= infectArray[k] ; k++){
- if(infectArray[k] == ds_init_M0194list_M0194.getColumn(j, "cdid")){
- if(infectInfo == ""){
- infectInfo = ds_init_M0194list_M0194.getColumn(j, "cdnm");
- }else{
- infectInfo += ", " + ds_init_M0194list_M0194.getColumn(j, "cdnm");
- }
- }
- }
- }
- //감염정보 입력
- ds_main_extinfo_extlist.setColumn( i , "infectflag", infectInfo);
-
- //총 개수, 총 중량 합계
-
- if(ds_main_extinfo_extlist.getColumn(i, "extcrcnt").isNumber()== true){
- totalCnt += eval(ds_main_extinfo_extlist.getColumn(i, "extcrcnt"));
- }
- if(ds_main_extinfo_extlist.getColumn(i, "extcrweig").isNumber() == true ){
- totalWeig += eval(ds_main_extinfo_extlist.getColumn(i, "extcrweig"));
- }
- }
-
- //총 개수, 총 중량 입력
- ds_main_totextinfo.setColumn( 0, "totextcrcnt", totalCnt);
- ds_main_totextinfo.setColumn( 0, "totextcrweig", totalWeig);
-
- if(ds_main_extinfo_extlist.getCaseCount("chk == 'Y' || chk == '1' ") > 0) {
- group3.grd_extlist.setCellProperty("head", chkHeadIndex, "text", "1");
- }
- else {
- group3.grd_extlist.setCellProperty("head", chkHeadIndex, "text", "0");
- for(var i = 0; i < ds_main_extinfo_extlist.rowcount; i++)
- {
- if(utlf_isNull(ds_main_extinfo_extlist.getColumn(i, "chk"))) {
- ds_main_extinfo_extlist.setColumn(i, "chk", "N");
- }
- }
-
- }
-
- }
-
- //model.refresh();
- }
- function cf_TRMNP00311(sSvcId, nErrorCode, sErrorMsg) {
- arErrorCode.push(sSvcId, nErrorCode);
- }
- /**
- * _group :
- * _ver : 2008.07.01
- * _by : dhkim
- * _---------------------------------------------------
- * _type : function
- * _access : public
- * _desc : 적출물리스트 수거일자, 수거자, 확인자 수정
- * _param :
- * _param :
- * _return :
- * _---------------------------------------------------
- */
- function fSave(){
- if(fIsValid()){
-
-
- ds_send_reqdata.clearData(); //model.removenode('_root_send');
-
- var detail_oDsUpdate = grdf_getGridUpdateData(group3.grd_extlist, "all");
- grdf_setStatusColumn(detail_oDsUpdate, "status");
- for(var i = 0; i < detail_oDsUpdate.rowcount; i++) {
- detail_oDsUpdate.setColumn(i, "status", "i");
-
- if( detail_oDsUpdate.getColumn(i, "chk") == "1" ){
- detail_oDsUpdate.setColumn(i, "chk", "Y");
- }
- }
- ds_send_reqdata.copyData(detail_oDsUpdate, true);
-
-
- var oParam = {};
- oParam.id = "TXMNP00311";
- oParam.service = "opanstapp.OpAnstRec";
- oParam.method = "reqSetExtInfoList";
- oParam.inds = "reqdata=ds_send_reqdata";
- oParam.outds = "";
- oParam.async = false;
- oParam.callback = "cf_TXMNP00311";
- tranf_submit(oParam);
-
- if(arErrorCode.pop("TXMNP00311") < 0){
- sysf_messageBox('적출물정보 수정을', 'E009');
- return;
- }else{
- fSearch();
- }
-
-
-
-
-
-
-
-
- }
- }
- function cf_TXMNP00311(sSvcId, nErrorCode, sErrorMsg) {
- arErrorCode.push(sSvcId, nErrorCode);
- }
- /**
- * _group :
- * _ver : 2008.07.01
- * _by : dhkim
- * _---------------------------------------------------
- * _type : function
- * _access : public
- * _desc : 적출물정보 수정하기전 유효성체크
- * _param :
- * _param :
- * _return :
- * _---------------------------------------------------
- */
- function fIsValid(){
- if(ds_main_extinfo_extlist.getCaseCount("chk == 'Y' || chk == '1'") <= 0){
- sysf_messageBox("수정 또는 저장할 내역을 선택하십시요","I");
- return;
- }
-
- //체크한 환자의 적출물은 입력된 내역으로 한꺼번에 반영하도록 한다.
- //입력받는 내역 : 수거일자, 수거자, 확인자
- var chk;
- var remvdd = ds_main_ipt_extinfo.getColumn(0, "remvdd"); //입력받은 수거일자
- var remvnm = ds_main_ipt_extinfo.getColumn(0, "remvnm"); //입력받은 수거자
- var checknurid = ds_main_ipt_extinfo.getColumn(0, "checknurid"); //입력받은 확인자 ID
- //var checknurnm = ds_main_ipt_extinfo.getColumn(0, "checknurnm"); //입력받은 확인자 이름
-
- if( utlf_isNull(remvdd) ){
- sysf_messageBox('수거일자를', 'C001');
- return false;
- }
- if( utlf_isNull(remvnm) ){
- sysf_messageBox('수거자를', 'C001');
- return false;
- }
- if( utlf_isNull(checknurid) ){
- sysf_messageBox('확인자를', 'C002');
- return;
- }
-
- for(var i = 0; i < ds_main_extinfo_extlist.rowcount; i++){
- chk = ds_main_extinfo_extlist.getColumn( i, "chk");
- if(chk == 'Y' || chk == '1'){
- //체크된 환자에게 입력한 적출물 수거 정보를 세팅한다.
- ds_main_extinfo_extlist.setColumn( i, "remvdd", remvdd);
- ds_main_extinfo_extlist.setColumn( i, "remvnm", remvnm);
- ds_main_extinfo_extlist.setColumn( i, "checknurid", checknurid);
- ds_main_extinfo_extlist.setColumn( i, "checknurnm", checknurid);
- }
- }
- ////model.refresh();
- return true;
- }
- /**
- * _group :
- * _ver : 2008.07.02
- * _by : dhkim
- * _---------------------------------------------------
- * _type : function
- * _access : public
- * _desc : Excel파일로 저장
- * _param :
- * _param :
- * _return :
- * _---------------------------------------------------
- */
- function fSaveExcel(){
- var exceldd = utlf_getCurrentDate();
-
- if(group3.grp_sea.rdo_rdocond.value == "b"){
- exceldd = group3.grp_sea.ipt_fromdd.value;
- }
-
- // var fileName = window.fileDialog("save", ",", false, "적출물리스트_"+exceldd, "xls", "All Files (*.*)|*.*|Excel Files(*.xls)|*.xls");
- // if (fileName != "") {
- // this.group3.grd_extlist.saveExcel(fileName, "SheetName", true, true, "", "", false);
- //}
- grdf_exportExcel(this.group3.grd_extlist, "적출물리스트_"+exceldd, "Sheet1" + exceldd, false, "" , 'user' , true);
- }
- /**
- * _group :
- * _ver : 2008.07.02
- * _by : dhkim
- * _---------------------------------------------------
- * _type : function
- * _access : public
- * _desc : 미수거리스트 출력물 미리보기 실행
- * _param :
- * _param :
- * _return :
- * _---------------------------------------------------
- */
- function fPrint(){
- if(ds_main_extinfo_extlist.getCaseCount("chk == 'Y' || chk == '1'") <= 0){
- sysf_messageBox("출력할 내역을 선택하십시요","I");
- return;
- }
-
- ds_prnt_extinfo_extlist.clearData();
- dsf_copyColInfo(ds_prnt_extinfo_extlist, ds_main_extinfo_extlist);
- //ds_prnt_extinfo_extlist.addRow();
-
- ds_prnt_totextinfo.clearData();
- dsf_copyColInfo(ds_prnt_totextinfo, ds_main_totextinfo);
- ds_prnt_totextinfo.addRow();
-
-
-
- totalCnt = 0;
- totalWeig = 0;
- prntyy = "";
- prntmm = "";
- prntdd = "";
-
- for(var i = 0; i < ds_main_extinfo_extlist.rowcount; i++){
- chk = ds_main_extinfo_extlist.getColumn( i , "chk");
- if(chk == 'Y' || chk == '1'){
- //체크된 정보 copy
- noderow = ds_prnt_extinfo_extlist.addRow();
- ds_prnt_extinfo_extlist.copyRow( noderow, ds_main_extinfo_extlist, i);
-
- //총 개수, 총 중량 합계
- if(ds_main_extinfo_extlist.getColumn(i, "extcrcnt").isNumber()== true){
- totalCnt += eval(ds_main_extinfo_extlist.getColumn(i, "extcrcnt"));
- }
- if(ds_main_extinfo_extlist.getColumn(i, "extcrweig").isNumber() == true ){
- totalWeig += eval(ds_main_extinfo_extlist.getColumn(i, "extcrweig"));
- }
- }
- }
-
- if(group3.grp_sea.rdo_rdocond.value == "a"){
- prntdd = ds_cond.getColumn(0, "fromdd").substr(0,4) + "-" + ds_cond.getColumn(0, "fromdd").substr(4,2) + "-" + ds_cond.getColumn(0, "fromdd").substr(6,2) + " ~ "
- + ds_cond.getColumn(0, "todd").substr(0,4) + "-" + ds_cond.getColumn(0, "todd").substr(4,2) + "-" + ds_cond.getColumn(0, "todd").substr(6,2)
- }else if(group3.grp_sea.rdo_rdocond.value == "b"){
- prntyy = ds_cond.getColumn(0, "fromdd").substr(0,4) + "년";
- prntmm = ds_cond.getColumn(0, "fromdd").substr(4,2) + "월";
- prntdd = ds_cond.getColumn(0, "fromdd").substr(6,2) + "일";
- }else if(group3.grp_sea.rdo_rdocond.value == "c"){
- prntyy = ds_main_ipt_extinfo.getColumn(0, "remvdd").substr(0,4) + "년";
- prntmm = ds_main_ipt_extinfo.getColumn(0, "remvdd").substr(4,2) + "월";
- prntdd = ds_main_ipt_extinfo.getColumn(0, "remvdd").substr(6,2) + "일";
- }
-
- dsf_makeValue( ds_prnt_totextinfo, "prntflag", "string", this.group3.grp_sea.rdo_rdocond.value);
- dsf_makeValue( ds_prnt_totextinfo, "prntyy", "string", prntyy);
- dsf_makeValue( ds_prnt_totextinfo, "prntmm", "string", prntmm);
- dsf_makeValue( ds_prnt_totextinfo, "prntdd", "string", prntdd);
- dsf_makeValue( ds_prnt_totextinfo, "totextcrcnt", "string", totalCnt);
- dsf_makeValue( ds_prnt_totextinfo, "totextcrweig", "string", totalWeig);
-
- var objDOM = rptf_createDOM(); // DOM 객체 설정
- rptf_setNodeListToDOM(objDOM, "/root/prnt/extinfo/extlist", ds_prnt_extinfo_extlist); // 데이터셋 1
- //rptf_setValueToDOM(objDOM, "/root/prnt/totextinfo/prntflag", group3.grp_sea.rdo_rdocond.value); // 데이터셋 2
- rptf_setValueToDOM(objDOM, "/root/prnt/totextinfo/prntyy", prntyy); // 데이터셋 2
- rptf_setValueToDOM(objDOM, "/root/prnt/totextinfo/prntmm", prntmm); // 데이터셋 2
- rptf_setValueToDOM(objDOM, "/root/prnt/totextinfo/prntdd", prntdd); // 데이터셋 2
- rptf_setValueToDOM(objDOM, "/root/prnt/totextinfo/totextcrcnt", totalCnt); // 데이터셋 2
- rptf_setValueToDOM(objDOM, "/root/prnt/totextinfo/totextcrweig", totalWeig); // 데이터셋 2
- rptf_setValueToDOM(objDOM, "/root/cond/fromdd", ds_cond.getColumn(0, "fromdd")); // 데이터셋 2
- rptf_setValueToDOM(objDOM, "/root/cond/todd", ds_cond.getColumn(0, "todd")); // 데이터셋 2
- rptf_setValueToDOM(objDOM, "/root/cond/rdocond", ds_cond.getColumn(0, "rdocond")); // 데이터셋 2
-
- var objParam = new Object();
- objParam.xml_data_XML1 = objDOM.documentElement.source; // 최상의노드 XML 스트링 추출
-
- var option = "open=1;save=1;directprint=0;print=1;zoom=0;";
-
- rptf_exeReportPreview30(["RPMNP00310"],[objParam], option);
-
- ds_prnt_extinfo_extlist.clearData();
- }
- /**
- * _group :
- * _ver : 2008.07.02
- * _by : dhkim
- * _---------------------------------------------------
- * _type : function
- * _access : public
- * _desc : 수거구분 조회 정보 변경 시 이벤트
- * _param :
- * _param :
- * _return :
- * _---------------------------------------------------
- */
- function fValueChangedInfectRdo(pParam){
- switch(pParam){
- case "a":
- this.group3.grp_sea.caption2.visible = true; //조회일자 caption
- this.group3.grp_sea.ipt_fromdd.visible = true; //from 일자
- this.group3.grp_sea.caption7.visible = true; //~ caption
- this.group3.grp_sea.ipt_todd.visible = true; //to 일자
- this.group3.btn_print.visible = false; //출력버튼
- this.group3.btn_cncl.visible = false; //수거취소버튼
- break;
- case "b":
- this.group3.grp_sea.caption2.visible = true; //조회일자 caption
- this.group3.grp_sea.ipt_fromdd.visible = true; //from 일자
- this.group3.grp_sea.caption7.visible = false; //~ caption
- this.group3.grp_sea.ipt_todd.visible = false; //to 일자
- this.group3.btn_print.visible = true; //출력버튼
- this.group3.btn_cncl.visible = true; //수거취소버튼
- break;
- case "c":
- this.group3.grp_sea.caption2.visible = false; //조회일자 caption
- this.group3.grp_sea.ipt_fromdd.visible = false; //from 일자
- this.group3.grp_sea.caption7.visible = false; //~ caption
- this.group3.grp_sea.ipt_todd.visible = false; //to 일자
- this.group3.btn_print.visible = true; //출력버튼
- this.group3.btn_cncl.visible = false; //수거취소버튼
- break;
- }
- }
- /**
- * _group :
- * _ver : 2009.01.29
- * _by : dhkim
- * _---------------------------------------------------
- * _type : function
- * _access : public
- * _desc : 수거취소 버튼 이벤트
- * _param :
- * _param :
- * _return :
- * _---------------------------------------------------
- */
- function fCncl(){
-
- if(ds_main_extinfo_extlist.getCaseCount("chk == 'Y' || chk == '1'") <= 0){
- sysf_messageBox("수거 취소할 내역을 선택하십시요.","I");
- return;
- }
- ds_send_reqdata.clearData();
- ds_send_reqdata.addRow();
-
- var detail_oDsUpdate = grdf_getGridUpdateData(group3.grd_extlist, "all");
- grdf_setStatusColumn(detail_oDsUpdate, "status");
- for(var i = 0; i < detail_oDsUpdate.rowcount; i++) {
- detail_oDsUpdate.setColumn(i, "status", "u");
-
- if( detail_oDsUpdate.getColumn(i, "chk") == "1" ){
- detail_oDsUpdate.setColumn(i, "chk", "Y");
- }
- }
- ds_send_reqdata.copyData(detail_oDsUpdate, true);
-
- var oParam = {};
- oParam.id = "TXMNP00311";
- oParam.service = "opanstapp.OpAnstRec";
- oParam.method = "reqSetExtInfoList";
- oParam.inds = "reqdata=ds_send_reqdata";
- oParam.outds = "";
- oParam.async = false;
- oParam.callback = "cf_TXMNP00311";
- tranf_submit(oParam);
-
- if(arErrorCode.pop("TXMNP00311") < 0){
- sysf_messageBox('적출물정보 수정을', 'E009');
- return;
- }else{
- fSearch();
- }
- }
- function SMMNP00310_onload(obj:Form, e:LoadEventInfo)
- {
- frmf_initForm(obj); //폼 초기화
- grdf_initGrid(this.group3.grd_extlist);
-
-
- //초기화
- //fInit();
- this.setTimer(0, 100);
- }
- function group3_grp_sea_radio1_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
- {
- fSearch();
- }
- function group3_grp_sea_rdo_rdocond_onitemclick(obj:Radio, e:RadioMouseEventInfo)
- {
- group3.grp_sea.rdo_rdocond.value = e.itemvalue;
- fSearch();
- }
- function group3_grp_sea_rdo_rdocond_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
- {
- //group3.grd_extlist.setCellProperty("head", chkHeadIndex, "text", "0");
- fValueChangedInfectRdo(group3.grp_sea.rdo_rdocond.value);
- }
- function group3_grp_sea_btn_srch_onclick(obj:Button, e:ClickEventInfo)
- {
- fSearch();
- }
- function group3_btn_cncl_onclick(obj:Button, e:ClickEventInfo)
- {
- fCncl();
- }
- function group3_btn_print_onclick(obj:Button, e:ClickEventInfo)
- {
- fPrint();
- }
- function group3_btn_saveexcel_onclick(obj:Button, e:ClickEventInfo)
- {
- fSaveExcel();
- }
- function group3_btn_save_onclick(obj:Button, e:ClickEventInfo)
- {
- fSave();
- }
- function ds_main_extinfo_extlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
- {
- if(e.col >0) {
- if(e.columnid=="chk") {
- if(utlf_isNull(e.newvalue)) {
- obj.setColumn(e.row,e.columnid,"N");
- }
- else {
- obj.setColumn(e.row,e.columnid,(e.newvalue=="Y"||e.newvalue==1)?"Y":"N");
- }
- }
- }
- }
- function SMMNP00310_ontimer(obj:Form, e:TimerEventInfo)
- {
- if( e.timerid == 0 ){
- this.killTimer( 0 );
- fInit();
- }
- }
- var lastrow1 = -1;
- var lastcol1 = -1;
- var bDrop1 = false;
- function group3_grd_extlist_oncellclick(obj:Grid, e:GridClickEventInfo)
- {
- lastrow1 = -1;
- lastcol1 = -1;
- }
- function group3_grd_extlist_oncloseup(obj:Grid, e:GridEditEventInfo)
- {
- var dsGridBind = eval(obj.binddataset);
- var preVal = utlf_transNullToEmpty(dsGridBind.getColumn(e.row, e.col));
- var posVal = utlf_transNullToEmpty(e.value);
-
- if( bDrop1 == true && (!utlf_isNull(posVal) || preVal != posVal) ){
- obj.showEditor(false);
- }
-
- bDrop1 = false;
- lastrow1 = e.row;
- lastcol1 = e.col;
- }
- function group3_grd_extlist_onlbuttonup(obj:Grid, e:GridMouseEventInfo)
- {
- grdf_setSelectedCell(obj, e);
-
- var dsGridBind = eval(obj.binddataset);
-
- // Combo DropDown Click 처리
- obj.autoenter = "key";
-
- if( e.fromreferenceobject.name == "dropbutton" ){
- bDrop1 = true;
- }
- if( e.row > -1 && obj.getCellProperty("body", e.col, "edittype") == "combo" ){
- // Combo 선택시 활성화 및 combodatacol 변경
- if( grdf_getSelectedCols(obj).length == 0 && grdf_getSelectedRows(obj).length == 0 && obj.getEditText() == undefined ){
- obj.showEditor(true);
- }else{
- if(!obj.isDropdownCombo() && (lastrow1 != e.row || lastcol1 != e.col)) {
- obj.setCellPos(e.col);
- dsGridBind.rowposition = e.row;
- obj.showEditor(true);
- if(bDrop1) {
- obj.dropdownCombo();
- }
- }
- }
- }else{
- obj.autoenter = "key";
- }
- }
- ]]></Script>
- </Form>
- </FDL>
|