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
Q
;
HD2 S PG=PG+1 W @IOF,!,"Page: ",PG,!!,"Compensation and Pension Exam for "_NAME,!
W "For HEMATOLOGICAL, NOT ELSEWHERE CLASSIFIED",!!!
Q
;
SETIOF ; ** Set device control var's
D HOME^%ZIS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCHECK 2463 printed Nov 22, 2024@16:54:29 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
