123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925 |
- <?xml version="1.0" encoding="utf-8" standalone="no"?>
- <FDL version="1.5">
- <TypeDefinition url="..\..\..\default_typedef.xml" />
- <Form id="SPPID21600" position="absolute 0 0 1116 544" titletext="세부 계산 내역 조회" onload="SPPID21600_onload">
- <Layouts>
- <Layout>
- <Div id="group3" scrollbars="autoboth" position="absolute 0 0 1100 509" style="">
- <Layouts>
- <Layout>
- <Static id="caption10" class="tit_2" position="absolute 5 69 136 82" style="" text="입원 세부 계산내역" />
- <Shape id="line2" class="line_1" linetype="horizontal" position="absolute 0 84 1099 87" style="" anchor="default" />
- <Grid id="grd_ordlist" binddataset="ds_main_list1_iscl" class="datagrid2" position="absolute 1 89 1100 509" style="">
- <Formats>
- <Format id="default">
- <Columns>
- <Column size="20" />
- <Column size="20" />
- <Column size="18" />
- <Column size="25" />
- <Column size="28" />
- <Column size="22" />
- <Column size="70" />
- <Column size="115" />
- <Column size="18" />
- <Column size="18" />
- <Column size="18" />
- <Column size="84" />
- <Column size="80" />
- <Column size="65" />
- <Column size="30" />
- <Column size="30" />
- <Column size="30" />
- <Column size="200" />
- <Column size="30" />
- <Column size="30" />
- <Column size="18" />
- <Column size="58" />
- <Column size="40" />
- <Column size="30" />
- <Column size="40" />
- <Column size="40" />
- <Column size="58" />
- <Column size="18" />
- <Column size="58" />
- <Column size="58" />
- <Column size="58" />
- <Column size="58" />
- <Column size="58" />
- <Column size="58" />
- <Column size="58" />
- <Column size="58" />
- <Column size="60" />
- <Column size="115" />
- <Column size="60" />
- <Column size="43" />
- <Column size="43" />
- <Column size="115" />
- <Column size="150" />
- <Column size="30" />
- <Column size="100" />
- <Column size="53" />
- <Column size="30" />
- <Column size="30" />
- <Column size="42" />
- <Column size="42" />
- <Column size="30" />
- <Column size="54" />
- <Column size="56" />
- <Column size="70" />
- <Column size="50" />
- <Column size="44" />
- <Column size="40" />
- <Column size="43" />
- <Column size="65" />
- <Column size="89" />
- <Column size="46" />
- <Column size="30" />
- <Column size="58" />
- <Column size="46" />
- <Column size="58" />
- <Column size="56" />
- <Column size="30" />
- <Column size="30" />
- <Column size="30" />
- <Column size="58" />
- <Column size="67" />
- <Column size="58" />
- <Column size="58" />
- <Column size="60" />
- <Column size="58" />
- <Column size="58" />
- <Column size="30" />
- <Column size="80" />
- <Column size="115" />
- <Column size="30" />
- <Column size="30" />
- <Column size="64" />
- <Column size="64" />
- <Column size="30" />
- <Column size="70" />
- <Column size="70" />
- <Column size="70" />
- </Columns>
- <Rows>
- <Row size="24" band="head" />
- <Row size="24" />
- </Rows>
- <Band id="head">
- <Cell text="선
별" />
- <Cell col="1" text="문
제" />
- <Cell col="2" text="S" />
- <Cell col="3" text="I_O" />
- <Cell col="4" text="항" />
- <Cell col="5" text="목" />
- <Cell col="6" text="진료일자" />
- <Cell col="7" text="시행일시" />
- <Cell col="8" text="시
행" />
- <Cell col="9" text="항목" />
- <Cell col="10" text="G" />
- <Cell col="11" text="그룹코드" />
- <Cell col="12" text="수가코드" />
- <Cell col="13" text="EDI코드" />
- <Cell col="14" text="산정
분류" />
- <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="단가" />
- <Cell col="22" text="1회량" />
- <Cell col="23" text="횟수" />
- <Cell col="24" text="1일량
(일투)" />
- <Cell col="25" text="일수
(총투)" />
- <Cell col="26" text="금액" />
- <Cell col="27" text="선
택" />
- <Cell col="28" text="종별가산
단가" />
- <Cell col="29" text="선택가산
단가" />
- <Cell col="30" text="가산단가" />
- <Cell col="31" text="총진료비" />
- <Cell col="32" text="본인
부담금" />
- <Cell col="33" text="종별가산
SUM" />
- <Cell col="34" text="선택진료
SUM" />
- <Cell col="35" text="가산
SUM" />
- <Cell col="36" text="처방
상태" />
- <Cell col="37" text="처방일시" />
- <Cell col="38" text="처방과" />
- <Cell col="39" text="입력자" />
- <Cell col="40" text="최종
수정자" />
- <Cell col="41" text="최종수정일시" />
- <Cell col="42" text="처방명" />
- <Cell col="43" text="수정
사유" />
- <Cell col="44" text="치식" />
- <Cell col="45" text="확인
코드" />
- <Cell col="46" text="CP
여부" />
- <Cell col="47" text="PRN" />
- <Cell col="48" text="포터블" />
- <Cell col="49" text="기왕증
(진료)" />
- <Cell col="50" text="마취
시간" />
- <Cell col="51" text="수정사유
명칭" />
- <Cell col="52" text="edicdflag" />
- <Cell col="53" text="ediunitcost" />
- <Cell col="54" text="적용일자" />
- <Cell col="55" text="pid" />
- <Cell col="56" text="indd" />
- <Cell col="57" text="cretno" />
- <Cell col="58" text="calcseqno" />
- <Cell col="59" text="calcscorseqno" />
- <Cell col="60" text="mskind" />
- <Cell col="61" text="그룹
항목" />
- <Cell col="62" text="가산금액" />
- <Cell col="63" text="가산
점수" />
- <Cell col="64" text="퇴장방지
금액" />
- <Cell col="65" text="퇴장방지
여부" />
- <Cell col="66" text="처방
수량" />
- <Cell col="67" text="처방
횟수" />
- <Cell col="68" text="처방
일수" />
- <Cell col="69" text="급여총액" />
- <Cell col="70" text="급여보험자
부담금" />
- <Cell col="71" text="급여본인
부담금" />
- <Cell col="72" text="급여본인
부담율" />
- <Cell col="73" text="점당단가" />
- <Cell col="74" text="전액본인" />
- <Cell col="75" text="비급여
금액" />
- <Cell col="76" text="NC" />
- <Cell col="77" text="용법" />
- <Cell col="78" text="예약일시" />
- <Cell col="79" text="그룹
순번" />
- <Cell col="80" text="특진" />
- <Cell col="81" text="보험유형" />
- <Cell col="82" text="보조유형" />
- <Cell col="83" text="수가
급비" />
- <Cell col="84" text="처방분류1" />
- <Cell col="85" text="처방분류2" />
- <Cell col="86" text="처방분류3" />
- </Band>
- <Band id="body">
- <Cell text="bind:spcljudgyn" />
- <Cell col="1" text="bind:probordyn" />
- <Cell col="2" text="bind:seq" />
- <Cell col="3" text="bind:ordtype" />
- <Cell col="4" text="bind:ediitem1" />
- <Cell col="5" text="bind:ediitem2" />
- <Cell col="6" text="bind:orddd" />
- <Cell col="7" text="bind:execdd" />
- <Cell col="8" text="bind:execstat" />
- <Cell col="9" text="bind:snglcalcscorcls" />
- <Cell col="10" text="bind:grupflag" />
- <Cell col="11" text="bind:grupcalcscorcd" />
- <Cell col="12" text="bind:snglcalcscorcd" />
- <Cell col="13" text="bind:edicd" />
- <Cell col="14" text="bind:estmcls" />
- <Cell col="15" text="bind:estmmncd" />
- <Cell col="16" text="bind:estmcd" />
- <Cell col="17" text="bind:hngnm" />
- <Cell col="18" text="bind:calcpayflag" />
- <Cell col="19" text="bind:matractflag" />
- <Cell col="20" text="bind:dschdrugflag" />
- <Cell col="21" text="bind:appunitcost" />
- <Cell col="22" text="bind:calcqty" />
- <Cell col="23" text="bind:calctims" />
- <Cell col="24" text="bind:daydrugqty" />
- <Cell col="25" text="bind:calcdays" />
- <Cell col="26" text="bind:calcamt" />
- <Cell col="27" text="bind:unitspecyn" />
- <Cell col="28" text="bind:unithospaddamt" />
- <Cell col="29" text="bind:unitspecamt" />
- <Cell col="30" text="bind:unitaddamt" />
- <Cell col="31" text="bind:totordamt" />
- <Cell col="32" text="bind:ownbamt" />
- <Cell col="33" text="bind:hospaddamt" />
- <Cell col="34" text="bind:specamt" />
- <Cell col="35" text="bind:estmamt" />
- <Cell col="36" text="bind:execprcpstatcd" />
- <Cell col="37" text="bind:rgstdt" />
- <Cell col="38" text="bind:orddeptnm" />
- <Cell col="39" text="bind:fstrgstrid" />
- <Cell col="40" text="bind:lastupdtrid" />
- <Cell col="41" text="bind:lastupdtdt" />
- <Cell col="42" text="bind:ordnm" />
- <Cell col="43" text="bind:judgadjtresncd" />
- <Cell col="44" text="bind:tootfact" />
- <Cell col="45" text="bind:cnfmcd" />
- <Cell col="46" text="bind:cpflag" />
- <Cell col="47" text="bind:prnprcpflag" />
- <Cell col="48" text="bind:portprcpflag" />
- <Cell col="49" text="bind:anamneflag" />
- <Cell col="50" text="bind:ansttm" />
- <Cell col="51" text="bind:judgadjtresncdnm" />
- <Cell col="52" text="bind:edicdflag" />
- <Cell col="53" text="bind:ediunitcost" />
- <Cell col="54" text="bind:updtdd" />
- <Cell col="55" text="bind:pid" />
- <Cell col="56" text="bind:indd" />
- <Cell col="57" text="bind:cretno" />
- <Cell col="58" text="bind:calcseqno" />
- <Cell col="59" text="bind:calcscorseqno" />
- <Cell col="60" text="bind:mskind" />
- <Cell col="61" text="bind:grupcalcscorcls" />
- <Cell col="62" text="bind:calcscorpnt" />
- <Cell col="63" text="bind:estmpnt" />
- <Cell col="64" text="bind:exitprvntdrugamt" />
- <Cell col="65" text="bind:exitprvntdrugyn" />
- <Cell col="66" text="bind:ordqty" />
- <Cell col="67" text="bind:ordtims" />
- <Cell col="68" text="bind:orddays" />
- <Cell col="69" text="bind:payamt" />
- <Cell col="70" text="bind:payinsubamt" />
- <Cell col="71" text="bind:payownbamt" />
- <Cell col="72" text="bind:payownbrate" />
- <Cell col="73" text="bind:pntunitcost" />
- <Cell col="74" text="bind:allownbamt" />
- <Cell col="75" text="bind:nopyamt" />
- <Cell col="76" text="bind:freeflag" />
- <Cell col="77" text="bind:drugmthdspccd" />
- <Cell col="78" text="bind:rsrvdd" />
- <Cell col="79" text="bind:grupseqno" />
- <Cell col="80" text="bind:specordyn" />
- <Cell col="81" text="bind:insukind" />
- <Cell col="82" text="bind:suppkind" />
- <Cell col="83" text="bind:pynpy" />
- <Cell col="84" text="bind:earncls1" />
- <Cell col="85" text="bind:earncls2" />
- <Cell col="86" text="bind:earncls3" />
- </Band>
- </Format>
- </Formats>
- </Grid>
- <Div id="group2" position="absolute 0 0 1100 59" style="align: top;">
- <Layouts>
- <Layout>
- <Shape id="roundrect1" anchor="default" class="roundrerct_search" type="roundrectangle" position="absolute 0 0 1099 59" style="" />
- <Button id="btn_srch" class="btn1_letter2" position="absolute 1028 31 1084 53" style="" text="조회" onclick="group3_group2_btn_srch_onclick" />
- <Static id="caption5" class="search_name" position="absolute 587 9 647 26" style="" text="기간 :" />
- <Calendar id="ipt_fromdd" class="input_search" position="absolute 650 8 735 27" style="" anchor="default" />
- <Static id="caption6" position="absolute 738 8 749 26" style="" text="~" />
- <Calendar id="ipt_todd" class="input_search" position="absolute 752 8 837 27" style="" anchor="default" />
- <Static id="caption8" class="search_name" position="absolute 587 33 673 50" style="" text="코드조회 :" />
- <Edit id="ipt_cd" class="input_search" position="absolute 819 32 931 51" style="" anchor="default" onlbuttonup="group3_group2_ipt_cd_onlbuttonup" />
- <Edit id="opt_pid" class="output_fix" position="absolute 104 8 184 27" style="" anchor="default" readonly="true" />
- <Static id="caption2" class="search_name" position="absolute 15 9 101 26" style="" text="등록번호 :" />
- <Calendar id="ipt_indd" class="input_default" position="absolute 358 8 443 27" style="" anchor="default" />
- <Static id="caption3" class="search_name" position="absolute 269 9 355 26" style="" text="입원일자 :" />
- <Radio datacolumn="datacolumn" codecolumn="codecolumn" columncount="-1" rowcount="-1" id="rdo_mchrgcode" class="radio_search" position="absolute 676 36 816 51" style="">
- <Dataset id="innerdataset">
- <ColumnInfo>
- <Column id="codecolumn" />
- <Column id="datacolumn" />
- </ColumnInfo>
- <Rows>
- <Row>
- <Col id="codecolumn">calcscorcd</Col>
- <Col id="datacolumn">수가</Col>
- </Row>
- <Row>
- <Col id="codecolumn">edicd</Col>
- <Col id="datacolumn">EDI</Col>
- </Row>
- <Row>
- <Col id="codecolumn">hngnm</Col>
- <Col id="datacolumn">명칭</Col>
- </Row>
- </Rows>
- </Dataset>
- </Radio>
- <Edit id="opt_insukindnm" class="output_fix" position="absolute 124 32 204 51" style="" anchor="default" readonly="true" />
- <Edit id="opt_insukind" class="output_fix" position="absolute 104 32 121 51" style="" anchor="default" readonly="true" />
- <Edit id="opt_suppkind" class="output_fix" position="absolute 358 32 375 51" style="" anchor="default" readonly="true" />
- <Edit id="opt_suppkindnm" class="output_fix" position="absolute 378 32 500 51" style="" anchor="default" readonly="true" />
- <Edit id="opt_ownrate" class="output_fix" position="absolute 503 32 528 51" style="align:right ;" anchor="default" readonly="true" />
- <Static id="caption4" class="search_name" position="absolute 269 33 355 50" style="" text="유형보조 :" />
- <Static id="caption7" class="search_name" position="absolute 15 33 101 50" style="" text="보험유형 :" />
- <Static id="caption1" class="tit_3" position="absolute 531 36 544 50" style="" text="%" />
- <Shape id="line1" class="line_4" linetype="vertical" position="absolute 1013 31 1016 53" style="" anchor="default" />
- </Layout>
- </Layouts>
- </Div>
- <Radio datacolumn="datacolumn" codecolumn="codecolumn" columncount="-1" rowcount="-1" id="rdo_item1" class="radio_search" position="absolute 427 67 1012 82" style="" onitemclick="group3_rdo_item1_onitemclick">
- <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">01</Col>
- <Col id="datacolumn">진찰</Col>
- </Row>
- <Row>
- <Col id="codecolumn">02</Col>
- <Col id="datacolumn">입원</Col>
- </Row>
- <Row>
- <Col id="codecolumn">03</Col>
- <Col id="datacolumn">투약</Col>
- </Row>
- <Row>
- <Col id="codecolumn">04</Col>
- <Col id="datacolumn">주사</Col>
- </Row>
- <Row>
- <Col id="codecolumn">05</Col>
- <Col id="datacolumn">마취</Col>
- </Row>
- <Row>
- <Col id="codecolumn">06</Col>
- <Col id="datacolumn">이학</Col>
- </Row>
- <Row>
- <Col id="codecolumn">07</Col>
- <Col id="datacolumn">정신</Col>
- </Row>
- <Row>
- <Col id="codecolumn">08</Col>
- <Col id="datacolumn">수술</Col>
- </Row>
- <Row>
- <Col id="codecolumn">09</Col>
- <Col id="datacolumn">검사</Col>
- </Row>
- <Row>
- <Col id="codecolumn">10</Col>
- <Col id="datacolumn">방서선</Col>
- </Row>
- <Row>
- <Col id="codecolumn">SS</Col>
- <Col id="datacolumn">특수</Col>
- </Row>
- <Row>
- <Col id="codecolumn">99</Col>
- <Col id="datacolumn">원외</Col>
- </Row>
- </Rows>
- </Dataset>
- </Radio>
- <cp_checkboxList datacolumn="datacolumn" codecolumn="codecolumn" columncount="-1" rowcount="-1" id="chk_judgadjtresncd" class="checkbox_search" position="absolute 1032 67 1099 82" style="" titletext="CheckBox List" text="chk_judgadjtresncd" scrollbars="none" cellspacing="2" vcellspacing="0" itemWidth="100" itemHeight="100">
- <Dataset id="innerdataset">
- <ColumnInfo>
- <Column id="codecolumn" />
- <Column id="datacolumn" />
- </ColumnInfo>
- <Rows>
- <Row>
- <Col id="codecolumn">Y</Col>
- <Col id="datacolumn">심사변경</Col>
- </Row>
- </Rows>
- </Dataset>
- </cp_checkboxList>
- </Layout>
- </Layouts>
- </Div>
- <Div id="group1" scrollbars="autoboth" position="absolute 0 509 1100 544" style="">
- <Layouts>
- <Layout>
- <Shape id="line32" class="line_6" linetype="horizontal" position="absolute 0 0 1099 3" style="" anchor="default" />
- <Button id="btn_close" class="btn4_letter2" position="absolute 1043 8 1099 30" style="" text="닫기" onclick="group1_btn_close_onclick" />
- <Button id="btn_print" class="btn6_letter2" position="absolute 0 8 56 30" style="" text="출력" />
- <Button id="btn_exl" class="btn6_letter2" position="absolute 58 8 114 30" style="" text="엑셀" onclick="group1_btn_exl_onclick" />
- <Shape id="roundrect3" anchor="default" class="roundrect_example" type="roundrectangle" position="absolute 121 5 635 30" style="" />
- <Static id="caption11" class="cell_2" position="absolute 130 9 170 26" style="" text="범 례" />
- <Static id="caption12" class="color_1" position="absolute 190 10 210 27" style="" />
- <Static id="caption13" position="absolute 215 10 265 27" style="" text="문제처방" />
- <Static id="caption14" class="color_2" position="absolute 275 10 295 27" style="" />
- <Static id="caption15" position="absolute 300 10 350 27" style="" text="선별심사" />
- <Static id="caption16" class="color_4" position="absolute 360 10 380 27" style="" />
- <Static id="caption17" position="absolute 385 10 445 27" style="" text="문제+선별" />
- <Static id="caption18" class="color_5" position="absolute 450 10 470 27" style="" />
- <Static id="caption19" position="absolute 475 10 550 27" style="" text="기왕증(처방)" />
- <Static id="caption20" class="color_9" position="absolute 555 10 575 27" style="" />
- <Static id="caption21" position="absolute 580 10 625 27" style="" text="CP처방" />
- </Layout>
- </Layouts>
- </Div>
- </Layout>
- </Layouts>
- <Objects>
- <Dataset id="ds_hidden_list1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo />
- </Dataset>
- <Dataset id="ds_init_item1_inpt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo>
- <Column id="mskind" type="STRING" size="256" />
- <Column id="insufromdd" type="STRING" size="256" />
- <Column id="ordtype" type="STRING" size="256" />
- <Column id="brateflag" type="STRING" size="256" />
- </ColumnInfo>
- <Rows>
- <Row>
- <Col id="mskind"></Col>
- <Col id="insufromdd"></Col>
- <Col id="ordtype"></Col>
- <Col id="brateflag"></Col>
- </Row>
- </Rows>
- </Dataset>
- <Dataset id="ds_hidden_list1_isclsrch" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo>
- <Column id="selectedRdoItem" type="STRING" size="256" />
- <Column id="judgChanged" type="STRING" size="256" />
- </ColumnInfo>
- <Rows>
- <Row>
- <Col id="selectedRdoItem"></Col>
- <Col id="judgChanged"></Col>
- </Row>
- </Rows>
- </Dataset>
- <Dataset id="ds_init_item1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo />
- </Dataset>
- <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo>
- <Column id="cretno" type="STRING" size="256" />
- <Column id="ownbrate" type="STRING" size="256" />
- <Column id="insukind" type="STRING" size="256" />
- <Column id="suppkind" type="STRING" size="256" />
- <Column id="pid" type="STRING" size="256" />
- <Column id="indd" type="STRING" size="256" />
- <Column id="mskind" type="STRING" size="256" />
- <Column id="insukindcd" type="STRING" size="256" />
- <Column id="suppkindcd" type="STRING" size="256" />
- <Column id="fromdd" type="STRING" size="256" />
- <Column id="todd" type="STRING" size="256" />
- <Column id="insufromdd" type="STRING" size="256" />
- <Column id="insutodd" type="STRING" size="256" />
- <Column id="grupsnglflag" type="STRING" size="256" />
- <Column id="choicdsrch" type="STRING" size="256" />
- <Column id="calcscorcd" type="STRING" size="256" />
- <Column id="srchflag" type="STRING" size="256" />
- <Column id="instcd" type="STRING" size="256" />
- <Column id="ordtype" type="STRING" size="256" />
- <Column id="brateflag" type="STRING" size="256" />
- </ColumnInfo>
- <Rows>
- <Row>
- <Col id="cretno"></Col>
- <Col id="ownbrate"></Col>
- <Col id="insukind"></Col>
- <Col id="suppkind"></Col>
- <Col id="pid"></Col>
- <Col id="indd"></Col>
- <Col id="mskind"></Col>
- <Col id="insukindcd"></Col>
- <Col id="suppkindcd"></Col>
- <Col id="fromdd"></Col>
- <Col id="todd"></Col>
- <Col id="insufromdd"></Col>
- <Col id="insutodd"></Col>
- <Col id="grupsnglflag"></Col>
- <Col id="choicdsrch"></Col>
- <Col id="calcscorcd"></Col>
- <Col id="srchflag"></Col>
- <Col id="instcd"></Col>
- <Col id="ordtype"></Col>
- <Col id="brateflag"></Col>
- </Row>
- </Rows>
- </Dataset>
- <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo />
- </Dataset>
- <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo />
- </Dataset>
- <Dataset id="ds_hidden_smpic00200_judgsrch" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo>
- <Column id="con1_dd" type="STRING" size="256" />
- <Column id="con2_gsflag" type="STRING" size="256" />
- <Column id="con3_search1" type="STRING" size="256" />
- <Column id="con4_search2" type="STRING" size="256" />
- <Column id="con5_insu" type="STRING" size="256" />
- <Column id="con6_calcscorcd" type="STRING" size="256" />
- <Column id="con7_todd" type="STRING" size="256" />
- <Column id="con8_instcd" type="STRING" size="256" />
- </ColumnInfo>
- </Dataset>
- <Dataset id="ds_hidden_smpic00200" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo />
- </Dataset>
- <Dataset id="ds_hidden_list1_isclitem1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo>
- <Column id="ediitem1_all" type="STRING" size="256" />
- <Column id="ediitem1_01" type="STRING" size="256" />
- <Column id="ediitem1_02" type="STRING" size="256" />
- <Column id="ediitem1_03" type="STRING" size="256" />
- <Column id="ediitem1_04" type="STRING" size="256" />
- <Column id="ediitem1_05" type="STRING" size="256" />
- <Column id="ediitem1_06" type="STRING" size="256" />
- <Column id="ediitem1_07" type="STRING" size="256" />
- <Column id="ediitem1_08" type="STRING" size="256" />
- <Column id="ediitem1_09" type="STRING" size="256" />
- <Column id="ediitem1_10" type="STRING" size="256" />
- <Column id="ediitem1_SS" type="STRING" size="256" />
- </ColumnInfo>
- <Rows>
- <Row>
- <Col id="ediitem1_all"></Col>
- <Col id="ediitem1_01"></Col>
- <Col id="ediitem1_02"></Col>
- <Col id="ediitem1_03"></Col>
- <Col id="ediitem1_04"></Col>
- <Col id="ediitem1_05"></Col>
- <Col id="ediitem1_06"></Col>
- <Col id="ediitem1_07"></Col>
- <Col id="ediitem1_08"></Col>
- <Col id="ediitem1_09"></Col>
- <Col id="ediitem1_10"></Col>
- <Col id="ediitem1_SS"></Col>
- </Row>
- </Rows>
- </Dataset>
- <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo />
- </Dataset>
- <Dataset id="ds_hidden_list1_isclcond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo>
- <Column id="judgadjtresncd" type="STRING" size="256" />
- <Column id="ediitem1" type="STRING" size="256" />
- </ColumnInfo>
- <Rows>
- <Row>
- <Col id="judgadjtresncd"></Col>
- <Col id="ediitem1"></Col>
- </Row>
- </Rows>
- </Dataset>
- <Dataset id="ds_main_list1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
- <ColumnInfo>
- <Column id="iscl" type="STRING" size="256" />
- </ColumnInfo>
- <Rows>
- <Row>
- <Col id="iscl"></Col>
- </Row>
- </Rows>
- </Dataset>
- </Objects>
- <Bind>
- <BindItem id="item0" compid="group3.group2.ipt_fromdd" propid="value" datasetid="ds_send" columnid="fromdd" />
- <BindItem id="item1" compid="group3.group2.ipt_todd" propid="value" datasetid="ds_send" columnid="todd" />
- <BindItem id="item2" compid="group3.group2.ipt_cd" propid="value" datasetid="ds_send" columnid="calcscorcd" />
- <BindItem id="item3" compid="group3.group2.opt_pid" propid="value" datasetid="ds_send" columnid="pid" />
- <BindItem id="item4" compid="group3.group2.ipt_indd" propid="value" datasetid="ds_send" columnid="indd" />
- <BindItem id="item5" compid="group3.group2.rdo_mchrgcode" propid="value" datasetid="ds_send" columnid="choicdsrch" />
- <BindItem id="item6" compid="group3.group2.opt_insukindnm" propid="value" datasetid="ds_send" columnid="insukind" />
- <BindItem id="item7" compid="group3.group2.opt_insukind" propid="value" datasetid="ds_send" columnid="insukindcd" />
- <BindItem id="item8" compid="group3.group2.opt_suppkind" propid="value" datasetid="ds_send" columnid="suppkindcd" />
- <BindItem id="item9" compid="group3.group2.opt_suppkindnm" propid="value" datasetid="ds_send" columnid="suppkind" />
- <BindItem id="item10" compid="group3.group2.opt_ownrate" propid="value" datasetid="ds_send" columnid="ownbrate" />
- <BindItem id="item11" compid="group3.rdo_item1" propid="value" datasetid="ds_hidden_list1_isclsrch" columnid="selectedRdoItem" />
- <BindItem id="item12" compid="group3.chk_judgadjtresncd" propid="value" datasetid="ds_hidden_list1_isclsrch" columnid="judgChanged" />
- </Bind>
- <Script type="xscript4.0"><![CDATA[function SPPID21600_onload(obj:Form, e:LoadEventInfo) {
- frmf_initForm(obj);
- //grdf_initGrid(grd_XXX);
- //grdf_setGridSort(grd_XXX);
- //grdf_setRowTypeIcon(grd_XXX, 0_컬럼위치값);
- fInitialize();
- }
- include '../../.._com_commonweb_js_common.js'
- include '../../.._com_commonweb_js_numericHelper.js'
- include '../../.._com_commonweb_js_dateHelper.js'
- include '../../.._com_commonweb_js_stringHelper.js'
- include '../../.._com_commonweb_js_tfHelper.js'
- function fInitialize(){
- ds_hidden_list1_isclsrch.setColumn( 0, "selectedRdoItem", "-"); // 처방 필터링: 전체
- if (frmf_checkOpener()) { // (common.js) 자신을 Open한 opener의 현재 UID가 자신을 open한 시점의 UID와 비교하여 변경되었는지 여부를 반환
- fGetMainInfo();
- }
- }
- //Opener에서 기본 정보를 받아 온다.
- function fGetMainInfo(){
- // Output 표시용 data
- ds_send.setColumn( 0, "insukindcd", opener.ds_hidden_sppid21600_cond.getColumn(0, "insukindcd"));
- ds_send.setColumn( 0, "insukind", opener.ds_hidden_sppid21600_cond.getColumn(0, "insukind"));
- ds_send.setColumn( 0, "suppkindcd", opener.ds_hidden_sppid21600_cond.getColumn(0, "suppkindcd"));
- ds_send.setColumn( 0, "suppkind", opener.ds_hidden_sppid21600_cond.getColumn(0, "suppkind"));
- // 세부내역 화면 표시용
- ds_send.setColumn( 0, "ownbrate", opener.ds_hidden_sppid21600_cond.getColumn(0, "ownbrate")); // 요율
- // submit("TRPID21601") 용 조건 data
- ds_send.setColumn( 0, "pid", opener.ds_hidden_sppid21600_cond.getColumn(0, "pid"));
- ds_send.setColumn( 0, "indd", opener.ds_hidden_sppid21600_cond.getColumn(0, "indd"));
- ds_send.setColumn( 0, "cretno", opener.ds_hidden_sppid21600_cond.getColumn(0, "cretno")); // 환자 일자별 일련번호
- // submit("TRPID21601");
- var oParam = {};
- oParam.id = "TRPID21601";
- oParam.service = "aftjudgapp.InAftJudg";
- oParam.method = "reqGetInHospJudgDetlCond";
- oParam.inds = "req=ds_";
- oParam.outds = "ds_=inpt";
- oParam.async = false;
- oParam.callback = "cf_TRPID21601";
- tranf_submit(oParam);
- /*
- function cf_TRPID21601(sSvcId, nErrorCode, sErrorMsg) {
- if(nErrorCode < 0) return;
- }
- function cf_TRPID21601(sSvcId, nErrorCode, sErrorMsg) {
- arErrorCode.push(sSvcId, nErrorCode);
- }
- arErrorCode.pop("TRPID21601") > -1
- arErrorCode.pop("TRPID21601") < 0
- */
- // submit("TRPIJ00401") 용 조건 data
- ds_send.setColumn( 0, "mskind", ds_init_item1_inpt.getColumn(0, "mskind"));
- ds_send.setColumn( 0, "fromdd", opener.ds_hidden_sppid21600_cond.getColumn(0, "fromdd"));
- ds_send.setColumn( 0, "todd", opener.ds_hidden_sppid21600_cond.getColumn(0, "todd"));
- ds_send.setColumn( 0, "insufromdd", ds_init_item1_inpt.getColumn(0, "insufromdd"));
- // ds_send.setColumn( 0, "insufromdd", opener.ds_hidden_sppid21600_cond.getColumn(0, "indd"));
- ds_send.setColumn( 0, "insutodd", ""); // 사용x
- ds_send.setColumn( 0, "grupsnglflag", opener.ds_hidden_sppid21600_cond.getColumn(0, "grupsnglflag"));
- ds_send.setColumn( 0, "choicdsrch", "calcscorcd");
- ds_send.setColumn( 0, "calcscorcd", opener.ds_hidden_sppid21600_cond.getColumn(0, "calcscorcd"));
- ds_send.setColumn( 0, "srchflag", ""); // 사용x
- ds_send.setColumn( 0, "instcd", ""); // 사용x
- ds_send.setColumn( 0, "ordtype", ds_init_item1_inpt.getColumn(0, "ordtype"));
- ds_send.setColumn( 0, "brateflag", ds_init_item1_inpt.getColumn(0, "brateflag"));
- fGetIsclList();
- }
- // 사후심사 입원세부계산내역 조회
- function fGetIsclList(){
- ds_hidden_list1_isclsrch.setColumn( 0, "selectedRdoItem", "-"); // 처방 필터링: 전체
- ds_hidden_list1_isclsrch_judgChanged.clearData(); ds_hidden_list1_isclsrch_judgChanged.addRow();
- ds_hidden_list1_isclitem1.clearData(); ds_hidden_list1_isclitem1.addRow();
- ds_hidden_list1_isclcond.clearData(); ds_hidden_list1_isclcond.addRow();
- // ds_send.setColumn( 0, "choicdsrch", "calcscorcd");
- var itemRadioList = instance1.selectSingleNode("ds_hidden_list1_isclitem1");
- var itemNode = itemRadioList.childNodes;
- for (var i = 0; i < itemNode.length; i++) {
- group3.rdo_item1.item(i).attribute("font-weight") = "normal";
- }
- var mskind = ds_send.getColumn(0, "mskind");
- if (mskind) { // submit("TRPID21601") 조회 결과가 있는 경우임
- // submit("TRPIJ00401");
- var oParam = {};
- oParam.id = "TRPIJ00401";
- oParam.service = "bfjudgapp.InHospJudgDetl";
- oParam.method = "reqGetInHospJudgDetl";
- oParam.inds = "req=ds_";
- oParam.outds = "ds_=iscl";
- oParam.async = false;
- oParam.callback = "cf_TRPIJ00401";
- tranf_submit(oParam);
- /*
- function cf_TRPIJ00401(sSvcId, nErrorCode, sErrorMsg) {
- if(nErrorCode < 0) return;
- }
- function cf_TRPIJ00401(sSvcId, nErrorCode, sErrorMsg) {
- arErrorCode.push(sSvcId, nErrorCode);
- }
- arErrorCode.pop("TRPIJ00401") > -1
- arErrorCode.pop("TRPIJ00401") < 0
- */
- if (group3.grd_ordlist.rows > 1) {
- // var rowcnt = ds_main_list1_iscl.rowcount;
- // rowcnt = eval(rowcnt) + 1;
- // for (var i=1; i<rowcnt; i++) {
- for (var i = 1; i < group3.grd_ordlist.rows; i++) {
- var estmmncd = ds_main_list1_iscl.getColumn(i, "estmmncd");
- var estmmnnm = ds_main_list1_iscl.getColumn(i, "estmmnnm");
- if (estmmnnm != "") {
- group3.grd_ordlist.tooltipText(i, group3.grd_ordlist.colref("estmmncd")) = "[산정의미코드:" + estmmncd + "]" + estmmnnm;
- }
- }
- fGetSelectedOrderData(); // 처방 조회부 - 항목구분 Radio / 심사변경 CheckBox 선택에 따라 처방 내역을 보여준다.
- // fSetColorSpclJudgOrder();
- } else {
- sysf_messageBox("조회된 결과가", "I004"); ///조회된 결과가 없습니다.
- }
- } else {
- sysf_messageBox("세부 계산내역을 조회할 입원정보가", "I004"); ///세부 계산내역을 조회할 입원정보가 없습니다.
- }
- }
- //////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //조회항목 Filter기능 코딩 //
- //////////////////////////////////////////////////////////////////////////////////////////////////////////////
- // 처방 조회부 - 항목구분 Radio / 심사변경 CheckBox 선택에 따라 처방 내역을 보여준다.
- function fGetSelectedOrderData() {
- var selectedCond = "";
- var judgadjtresncd = ds_hidden_list1_isclcond.getColumn(0, "judgadjtresncd");
- if (judgadjtresncd) {
- selectedCond = judgadjtresncd;
- }
- var ediitem1 = ds_hidden_list1_isclcond.getColumn(0, "ediitem1");
- if (ediitem1) {
- if (selectedCond) {
- selectedCond += " and " + ediitem1;
- } else {
- selectedCond = ediitem1;
- }
- }
- if (selectedCond) {
- group3.grd_ordlist.attribute("nodeset") = "ds_main_list1_iscl[" + selectedCond + "]";
- } else {
- group3.grd_ordlist.attribute("nodeset") = "ds_main_list1_iscl";
- }
- group3.grd_ordlist.rebuild();
- group3.grd_ordlist.row = 0; // 그리드의 첫줄부터 표시되도록 포커스를 0으로 설정한다.
- // 처방 Grid의 내용이 변경된 경우, 선별심사 처방 색깔 구분을 다시 처리한다.
- fSetColorSpclJudgOrder();
- //model.refresh();
- }
- function fSetColorSpclJudgOrder() {
- for (var i = 1; i < group3.grd_ordlist.rows; i++) { // Grid 필터링 이후 Grid 상에 표시된 처방 개수만큼 돌면서
- //Color 표시 범례
- //1. 문제처방 : #fcd2c1
- //2. 선별심사 : #ffe79d
- //3. 선별심사 + 문제처방 : #7BE6B7
- //4. 기왕증 : #b9e5fb
- //5. CP처방 : #c8e67b
- var spcljudgyn = group3.grd_ordlist.valuematrix(i, group3.grd_ordlist.colRef("spcljudgyn")); //선별심사 체크
- var probordyn = group3.grd_ordlist.valuematrix(i, group3.grd_ordlist.colRef("probordyn")); //문제처방 체크
- if (spcljudgyn == "Y" && probordyn == "Y" ) { //둘다 체크된경우
- group3.grd_ordlist.setCellProprty("body", i, "background", "#7BE6B7"); grd_ordlist.setCellProperty("body", i, "background2", "#7BE6B7");
- } else if (spcljudgyn == "Y" && probordyn == "N" ) { //선별심사만 체크된경우
- group3.grd_ordlist.setCellProprty("body", i, "background", "#ffe79d"); grd_ordlist.setCellProperty("body", i, "background2", "#ffe79d");
- } else if (spcljudgyn == "N" && probordyn == "Y" ) { //문제처방만 체크된경우
- group3.grd_ordlist.setCellProprty("body", i, "background", "#fcd2c1"); grd_ordlist.setCellProperty("body", i, "background2", "#fcd2c1");
- } else { //둘다체크 안된경우 원래대로
- var chk_digit = i % 2; //2로 나눠서 나머지가 0 이면 짝수줄 이란 소리
- if (chk_digit != 0) {
- group3.grd_ordlist.setCellProprty("body", i, "background", "#ffffff"); grd_ordlist.setCellProperty("body", i, "background2", "#ffffff"); //짝수는 연한 회식
- } else {
- group3.grd_ordlist.setCellProprty("body", i, "background", "#f4f4f4"); grd_ordlist.setCellProperty("body", i, "background2", "#f4f4f4"); //홀수는 그냥 힌색
- }
- }
- // 항목구분 조회부 Radio에 해당하는 처방이 있는지 여부를 확인한다.
- var ediitem1 = ds_main_list1_iscl.getColumn(i, "ediitem1");
- if (ediitem1) {
- var path = "ds_hidden_list1_isclitem1_ediitem1_" + ediitem1;
- var node = instance1.selectSingleNode(path);
- if (node != null) {
- model.setValue(path, ediitem1);
- }
- }
- }
- // 처방 조회부 항목구분 Radio에서 해당 처방이 있는 item을 굵게 표시한다.
- var itemRadioList = instance1.selectSingleNode("ds_hidden_list1_isclitem1");
- var itemNode = itemRadioList.childNodes;
- group3.rdo_item1.item(0).attribute("font-weight") = "bold"; // "전체" 항목은 default 로 굵게 표시한다.
- for (var i = 1; i < itemNode.length; i++) {
- var ediitem1 = itemNode.item(i).value;
- if (ediitem1) {
- group3.rdo_item1.item(i).attribute("font-weight") = "bold";
- } else {
- group3.rdo_item1.item(i).attribute("font-weight") = "normal";
- }
- }
- }
- //////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //조회항목 Filter기능 코딩 끝 //
- //////////////////////////////////////////////////////////////////////////////////////////////////////////////
- function group3_group2_btn_srch_onclick(obj:Button, e:ClickEventInfo) {
- fGetIsclList();
- }
- function group3_group2_ipt_cd_onlbuttonup(obj:Edit, e:MouseEventInfo) {
- ds_hidden_smpic00200_judgsrch.setColumn( 0, "con1_dd", utlf_getCurrentDate()); // (dateHelper.js) 현재날짜 반환
- ds_hidden_smpic00200_judgsrch.setColumn( 0, "con2_gsflag", "S");
- ds_hidden_smpic00200_judgsrch.setColumn( 0, "con3_search1", ds_send.getColumn(0, "choicdsrch"));
- ds_hidden_smpic00200_judgsrch.setColumn( 0, "con4_search2", ds_send.getColumn(0, "calcscorcd")); // SMPIC00200_수가조회 용
- var insukindcd = ds_send.getColumn(0, "insukindcd");
- if (insukindcd == "11") {
- ds_hidden_smpic00200_judgsrch.setColumn( 0, "con5_insu", "insu");
- }
- else if (insukindcd == "21" || insukindcd == "22") {
- ds_hidden_smpic00200_judgsrch.setColumn( 0, "con5_insu", "proc");
- }
- else if (insukindcd == "31") {
- ds_hidden_smpic00200_judgsrch.setColumn( 0, "con5_insu", "autm");
- }
- else if (insukindcd == "41") {
- ds_hidden_smpic00200_judgsrch.setColumn( 0, "con5_insu", "indus");
- } else {
- ds_hidden_smpic00200_judgsrch.setColumn( 0, "con5_insu", "insu");
- }
- frmf_modal("SMPIC00200", "SMPIC00200", "root_hidden_smpic00200""-"ds_temp"", "", "1", "150", "150", "", "", "", "", "", "M");
- var mechSelect = instance1.selectSingleNode("ds_temp_mech");
- if (mechSelect == null) { // 선택한 코드가 없는 경우
- } else {
- ds_send.setColumn( 0, "calcscorcd", ds_temp_picmmech.getColumn(0, "picmmech_calcscorcd"));
- ds_send.setColumn( 0, "choicdsrch", "calcscorcd");
- ds_temp.clearData(); // SMPIC00200_수가조회 에서 선택된 결과가 직접 전달되는 경로임
- //model.refresh();
- }
- }
- function group3_rdo_item1_onitemclick(obj:Radio, e:RadioMouseEventInfo) {
- var selectedRdoItem = ds_hidden_list1_isclsrch.getColumn(0, "selectedRdoItem");
- if (selectedRdoItem == "" || selectedRdoItem == "-") { // 전체
- ds_hidden_list1_isclcond.setColumn( 0, "ediitem1","");
- } else {
- ds_hidden_list1_isclcond.setColumn( 0, "ediitem1", "ediitem1='"+selectedRdoItem+"'");
- }
- fGetSelectedOrderData(); // 처방 조회부 - 항목구분 Radio / 심사변경 CheckBox 선택에 따라 처방 내역을 보여준다.
- }
- function group3_chk_judgadjtresncd_xforms-deselect {
- ds_hidden_list1_isclcond.setColumn( 0, "judgadjtresncd", "");
- fGetSelectedOrderData(); // 처방 조회부 - 항목구분 Radio / 심사변경 CheckBox 선택에 따라 처방 내역을 보여준다.
- }
- function group3_chk_judgadjtresncd_onclick(obj:cp_checkboxList, e:ClickEventInfo) {
- ds_hidden_list1_isclcond.setColumn( 0, "judgadjtresncd", "judgadjtresncd != '-'");
- fGetSelectedOrderData(); // 처방 조회부 - 항목구분 Radio / 심사변경 CheckBox 선택에 따라 처방 내역을 보여준다.
- }
- function group1_btn_close_onclick(obj:Button, e:ClickEventInfo) {
- window.close(); // F5 실행시 IE를 종료시킨다.
- }
- function group1_btn_exl_onclick(obj:Button, e:ClickEventInfo) {
- var fileName = window.fileDialog("save", ",", false, "excel", "xls", "Excel Files(*.xls)|*.xls|All Files (*.*)|*.*");
- if (fileName != "") {
- grdf_exportExcel(group3.grd_ordlist, "Sheet1", fileName, false, "" , 'user' , true);
- //datagrid.saveExcel의 7번째 인자 값(boolean) : 그리드의 col type=combo일 경우 엑셀저장내용이 lable 또는 value로 설정 함
- }
- }
- ]]></Script>
- </Form>
- </FDL>
|