Routine: DVBCHECK

DVBCHECK ;ALB/GTS-557/THM-HEMATOLOGICAL, NOT ELSEWHERE CLASSIFIED ; 5/8/90  11:12 AM

 ;;2.7;AMIE;;Apr 10, 1995

EN S DVBAX="For HEMATOLOGICAL, NOT ELSEWHERE CLASSIFIED"

 S PG=1 D:'$D(IOF) SETIOF W:(IOST?1"C-".E) @IOF

 W !?22,"Compensation and Pension Examination",!?33,"# 0810 Worksheet",!,?(IOM-$L(DVBAX)\2),DVBAX,!!

 W "Name: ",NAME,?45,"SSN: ",SSN,!,?45,"C-number: ",CNUM,!,"Date of exam: ____________________",!!,"Place of exam: ___________________",!!,"Type of Exam: HEMATOLOGICAL, NOT ELSEWHERE CLASSIFIED",!!

 W "Physician's Guide Reference:  None",!!,"Narrative:",!!

 F I=0:1 S LY=$T(TXT+I) Q:LY["END"  W $P(LY,";;",2),! I $Y>55 D HD2

 K I,LY,DVBAX Q

TXT ;;This exam is to handle the balance of currently recognized hematological

 ;;disorders and to allow for new disorders not yet classified for V.A.

 ;;compensation evaluations.  The severity of a condition is based upon the

 ;;residual disability.  If there is a disease process that affects multiple

 ;;systems or extremeties, please evaluate each separately.

;;

;;

;;

;;

 ;;A. Medical history (W/P):

;;

;;

;;

;;

;;

;;

;;

;;

;;

;;

;;

 ;;B. Subjective findings (W/P):

;;

;;

;;

;;

;;

;;

;;

;;

;;

;;

 ;;C. Objective findings (W/P):

;;

;;

;;

;;

;;

;;

;;

;;

;;

;;

 ;;D. Evaluation information for the rating board:

;;

;;

 ;;    1)  State how the residual disability affects the earning capacity of the

 ;;        Veteran in job performance.

;;

;;

;;

;;

;;

;;

;;

 ;;    2)  State how the residual disability affects normal everyday activities.

;;

;;

;;

;;

;;

;;

;;

 ;;    3)  State if the disability has constant activity or give any periods

 ;;        of remission during the year.

;;

;;

;;

;;

;;

;;

;;

 ;;    4)  If there are acute exacerbations, state the effect on everyday

 ;;        life.

;;

;;

;;

;;

;;

;;

;;

;;

 ;;E. Diagnosis (W/P):

;;

;;

;;

;;

;;

;;

;;

;;

;;

 ;;F. Diagnostic tests (Lab,X-Ray, etc) (W/P):

;;

;;

;;

;;

;;

;;

;;

;;

;;

;;

 ;;                         Signature: ______________________________

;;

 ;;                              Date: _________________________

 ;;END

HD2 S PG=PG+1 W @IOF,!,"Page: ",PG,!!,"Compensation and Pension Exam for "_NAME,!

 W "For HEMATOLOGICAL, NOT ELSEWHERE CLASSIFIED",!!!

SETIOF ;  ** Set device control var's

 D HOME^%ZIS

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCHECK   2463     printed  Mar 13, 2025@20:48:58                                                                                                                                                                                                    Page 2

DVBCHECK  ;ALB/GTS-557/THM-HEMATOLOGICAL, NOT ELSEWHERE CLASSIFIED ; 5/8/90  11:12 AM

 +1       ;;2.7;AMIE;;Apr 10, 1995

EN         SET DVBAX="For HEMATOLOGICAL, NOT ELSEWHERE CLASSIFIED"

 +1        SET PG=1

           if '$DATA(IOF)

               DO SETIOF

           if (IOST?1"C-".E)

               WRITE @IOF

 +2        WRITE !?22,"Compensation and Pension Examination",!?33,"# 0810 Worksheet",!,?(IOM-$LENGTH(DVBAX)\2),DVBAX,!!

 +3        WRITE "Name: ",NAME,?45,"SSN: ",SSN,!,?45,"C-number: ",CNUM,!,"Date of exam: ____________________",!!,"Place of exam: ___________________",!!,"Type of Exam: HEMATOLOGICAL, NOT ELSEWHERE CLASSIFIED",!!

 +4        WRITE "Physician's Guide Reference:  None",!!,"Narrative:",!!

 +5        FOR I=0:1

               SET LY=$TEXT(TXT+I)

               if LY["END"

                   QUIT

               WRITE $PIECE(LY,";;",2),!

               IF $Y>55

                   DO HD2

 +6        KILL I,LY,DVBAX

           QUIT

 +7       ;

TXT       ;;This exam is to handle the balance of currently recognized hematological

 +1       ;;disorders and to allow for new disorders not yet classified for V.A.

 +2       ;;compensation evaluations.  The severity of a condition is based upon the

 +3       ;;residual disability.  If there is a disease process that affects multiple

 +4       ;;systems or extremeties, please evaluate each separately.

 +5       ;;

 +6       ;;

 +7       ;;

 +8       ;;

 +9       ;;A. Medical history (W/P):

 +10      ;;

 +11      ;;

 +12      ;;

 +13      ;;

 +14      ;;

 +15      ;;

 +16      ;;

 +17      ;;

 +18      ;;

 +19      ;;

 +20      ;;

 +21      ;;B. Subjective findings (W/P):

 +22      ;;

 +23      ;;

 +24      ;;

 +25      ;;

 +26      ;;

 +27      ;;

 +28      ;;

 +29      ;;

 +30      ;;

 +31      ;;

 +32      ;;C. Objective findings (W/P):

 +33      ;;

 +34      ;;

 +35      ;;

 +36      ;;

 +37      ;;

 +38      ;;

 +39      ;;

 +40      ;;

 +41      ;;

 +42      ;;

 +43      ;;D. Evaluation information for the rating board:

 +44      ;;

 +45      ;;

 +46      ;;    1)  State how the residual disability affects the earning capacity of the

 +47      ;;        Veteran in job performance.

 +48      ;;

 +49      ;;

 +50      ;;

 +51      ;;

 +52      ;;

 +53      ;;

 +54      ;;

 +55      ;;    2)  State how the residual disability affects normal everyday activities.

 +56      ;;

 +57      ;;

 +58      ;;

 +59      ;;

 +60      ;;

 +61      ;;

 +62      ;;

 +63      ;;    3)  State if the disability has constant activity or give any periods

 +64      ;;        of remission during the year.

 +65      ;;

 +66      ;;

 +67      ;;

 +68      ;;

 +69      ;;

 +70      ;;

 +71      ;;

 +72      ;;    4)  If there are acute exacerbations, state the effect on everyday

 +73      ;;        life.

 +74      ;;

 +75      ;;

 +76      ;;

 +77      ;;

 +78      ;;

 +79      ;;

 +80      ;;

 +81      ;;

 +82      ;;E. Diagnosis (W/P):

 +83      ;;

 +84      ;;

 +85      ;;

 +86      ;;

 +87      ;;

 +88      ;;

 +89      ;;

 +90      ;;

 +91      ;;

 +92      ;;F. Diagnostic tests (Lab,X-Ray, etc) (W/P):

 +93      ;;

 +94      ;;

 +95      ;;

 +96      ;;

 +97      ;;

 +98      ;;

 +99      ;;

 +100     ;;

 +101     ;;

 +102     ;;

 +103     ;;                         Signature: ______________________________

 +104     ;;

 +105     ;;                              Date: _________________________

 +106     ;;END

 +107      QUIT

 +108     ;

HD2        SET PG=PG+1

           WRITE @IOF,!,"Page: ",PG,!!,"Compensation and Pension Exam for "_NAME,!

 +1        WRITE "For HEMATOLOGICAL, NOT ELSEWHERE CLASSIFIED",!!!

 +2        QUIT

 +3       ;

SETIOF    ;  ** Set device control var's

 +1        DO HOME^%ZIS

 +2        QUIT

DVBCHECK.m