| 1 | DVBCFEE ;ALB/GTS-557/THM-FEE BASIS COVER SHEET ; 7/1/91 7:48 PM
|
|---|
| 2 | ;;2.7;AMIE;;Apr 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | D HOME^%ZIS S FF=IOF
|
|---|
| 5 | ;
|
|---|
| 6 | COPY W @IOF,!,"Print Cover Sheet for Fee Exam",!!!,"Number of copies: " R DVBCCOPY:DTIME G:'$T!(DVBCCOPY=U) EXIT
|
|---|
| 7 | I +DVBCCOPY<1!(+DVBCCOPY>10) W *7,!!,"You cannot print less than one or more than ten copies per session.",!! H 3 G COPY
|
|---|
| 8 | W !!,"Fee exam cover sheets should be sent to a printer." S %ZIS="AEQ",%ZIS("A")="Printing device: " D ^%ZIS K %ZIS G:POP EXIT
|
|---|
| 9 | I $D(IO("Q")) S ZTRTN="GO^DVBCFEE",ZTIO=ION,ZTDESC="Print C&P Fee Cover Sheet",ZTSAVE("DVBC*")="" D ^%ZTLOAD W:$D(ZTSK) !!,"Request queued.",!! G EXIT
|
|---|
| 10 | GO U IO F DVBCX=1:1:DVBCCOPY D GO1
|
|---|
| 11 | ;
|
|---|
| 12 | EXIT D:$D(ZTQUEUED) KILL^%ZTLOAD K DVBCCOPY,DVBCX G KILL^DVBCUTIL
|
|---|
| 13 | ;
|
|---|
| 14 | GO1 W:(IOST?1"C-".E) @IOF K ^UTILITY($J,"W") D ^DVBCLTR
|
|---|
| 15 | W !!!,?(IOM-$L($$SITE^DVBCUTL4)\2),$$SITE^DVBCUTL4,!!!!
|
|---|
| 16 | F ZZI=0:1 S LY=$T(TXT+ZZI) Q:LY["END" S X=$P(LY,";;",2),DIWF="R",DIWR=80,DIWL=1 D ^DIWP
|
|---|
| 17 | D ^DIWW
|
|---|
| 18 | K LY,TXT W @IOF Q
|
|---|
| 19 | ;
|
|---|
| 20 | TXT ;;Notice to the fee basis physician:
|
|---|
| 21 | ;;
|
|---|
| 22 | ;;
|
|---|
| 23 | ;;The nature of a Compensation and Pension examination is different from the
|
|---|
| 24 | ;;regular exam that you perform. Unlike a regular examination where the
|
|---|
| 25 | ;;objective is to provide a diagnosis and a course of treatment, the C & P
|
|---|
| 26 | ;;examination is used to provide a diagnosis and assess the residual condition.
|
|---|
| 27 | ;;The payment of benefits, as determined by the VA Regional Office rating
|
|---|
| 28 | ;;board, is determined (in part) by your assessment of the Veteran's degree
|
|---|
| 29 | ;;of disability.
|
|---|
| 30 | ;;END
|
|---|
