DVBCFEE ;ALB/GTS-557/THM-FEE BASIS COVER SHEET ; 7/1/91 7:48 PM
;;2.7;AMIE;;Apr 10, 1995
;
D HOME^%ZIS S FF=IOF
;
COPY W @IOF,!,"Print Cover Sheet for Fee Exam",!!!,"Number of copies: " R DVBCCOPY:DTIME G:'$T!(DVBCCOPY=U) EXIT
I +DVBCCOPY<1!(+DVBCCOPY>10) W *7,!!,"You cannot print less than one or more than ten copies per session.",!! H 3 G COPY
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
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
GO U IO F DVBCX=1:1:DVBCCOPY D GO1
;
EXIT D:$D(ZTQUEUED) KILL^%ZTLOAD K DVBCCOPY,DVBCX G KILL^DVBCUTIL
;
GO1 W:(IOST?1"C-".E) @IOF K ^UTILITY($J,"W") D ^DVBCLTR
W !!!,?(IOM-$L($$SITE^DVBCUTL4)\2),$$SITE^DVBCUTL4,!!!!
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
D ^DIWW
K LY,TXT W @IOF Q
;
TXT ;;Notice to the fee basis physician:
;;
;;
;;The nature of a Compensation and Pension examination is different from the
;;regular exam that you perform. Unlike a regular examination where the
;;objective is to provide a diagnosis and a course of treatment, the C & P
;;examination is used to provide a diagnosis and assess the residual condition.
;;The payment of benefits, as determined by the VA Regional Office rating
;;board, is determined (in part) by your assessment of the Veteran's degree
;;of disability.
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCFEE 1540 printed Dec 13, 2024@01:44:06 Page 2
DVBCFEE ;ALB/GTS-557/THM-FEE BASIS COVER SHEET ; 7/1/91 7:48 PM
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 ;
+3 DO HOME^%ZIS
SET FF=IOF
+4 ;
COPY WRITE @IOF,!,"Print Cover Sheet for Fee Exam",!!!,"Number of copies: "
READ DVBCCOPY:DTIME
if '$TEST!(DVBCCOPY=U)
GOTO EXIT
+1 IF +DVBCCOPY<1!(+DVBCCOPY>10)
WRITE *7,!!,"You cannot print less than one or more than ten copies per session.",!!
HANG 3
GOTO COPY
+2 WRITE !!,"Fee exam cover sheets should be sent to a printer."
SET %ZIS="AEQ"
SET %ZIS("A")="Printing device: "
DO ^%ZIS
KILL %ZIS
if POP
GOTO EXIT
+3 IF $DATA(IO("Q"))
SET ZTRTN="GO^DVBCFEE"
SET ZTIO=ION
SET ZTDESC="Print C&P Fee Cover Sheet"
SET ZTSAVE("DVBC*")=""
DO ^%ZTLOAD
if $DATA(ZTSK)
WRITE !!,"Request queued.",!!
GOTO EXIT
GO USE IO
FOR DVBCX=1:1:DVBCCOPY
DO GO1
+1 ;
EXIT if $DATA(ZTQUEUED)
DO KILL^%ZTLOAD
KILL DVBCCOPY,DVBCX
GOTO KILL^DVBCUTIL
+1 ;
GO1 if (IOST?1"C-".E)
WRITE @IOF
KILL ^UTILITY($JOB,"W")
DO ^DVBCLTR
+1 WRITE !!!,?(IOM-$LENGTH($$SITE^DVBCUTL4)\2),$$SITE^DVBCUTL4,!!!!
+2 FOR ZZI=0:1
SET LY=$TEXT(TXT+ZZI)
if LY["END"
QUIT
SET X=$PIECE(LY,";;",2)
SET DIWF="R"
SET DIWR=80
SET DIWL=1
DO ^DIWP
+3 DO ^DIWW
+4 KILL LY,TXT
WRITE @IOF
QUIT
+5 ;
TXT ;;Notice to the fee basis physician:
+1 ;;
+2 ;;
+3 ;;The nature of a Compensation and Pension examination is different from the
+4 ;;regular exam that you perform. Unlike a regular examination where the
+5 ;;objective is to provide a diagnosis and a course of treatment, the C & P
+6 ;;examination is used to provide a diagnosis and assess the residual condition.
+7 ;;The payment of benefits, as determined by the VA Regional Office rating
+8 ;;board, is determined (in part) by your assessment of the Veteran's degree
+9 ;;of disability.
+10 ;;END
