- 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 Feb 18, 2025@23:10:31 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
