DVBCFEE.m

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 ---DVBCFEE   1540     printed  Apr 09, 2024@20:45: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