VistA-WorldVistAEHR/r/AUTOMATED_MED_INFO_EXCHANGE.../DVBCMECK.m

117 lines
2.2 KiB
Mathematica

DVBCMECK ;ALB/GTS-557/THM-MUSCULOSKELETAL, NOT ELSEWHERE CLASSIFIED ; 6/18/90 8:45 AM
;;2.7;AMIE;;Apr 10, 1995
EN S DVBAX="For MUSCULOSKELETAL, NOT ELSEWHERE CLASSIFIED"
S PG=1 D:'$D(IOF) SETIOF W:(IOST?1"C-".E) @IOF
W !?22,"Compensation and Pension Examination",!?33,"# 1455 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: MUSCULOSKELETAL, NOT ELSEWHERE CLASSIFIED",!!
W "Physician's Guide Reference: None",!!,"Narrative:",!!
F I=0:1 S LY=$T(TXT+I) D:LY["TOF" HD2 Q:LY["END" W:LY'["TOF" $P(LY,";;",2),! I $Y>55 D HD2
K I,LY,DVBAX Q
;
TXT ;;This exam is to handle the balance of currently recognized musculoskeletal
;;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):
;;TOF
;;
;;
;;D. Evaluation Information for the Rating Board:
;;
;;
;; Residual disability effect on:
;;
;;
;; 1) earning capacity/job performance (F/T):
;;
;;
;;
;;
;;
;;
;; 2) everyday activities (F/T):
;;
;;
;;
;;
;;
;;
;;
;; 3) Is disability constant? (YES/NO):
;;
;;
;;
;;
;;
;;
;;
;; 4) If NO, give frequency, length of remissions (F/T):
;;
;;
;;
;;
;;
;;
;; 5) Acute exacerbations effect on everyday life. (F/T)
;;TOF
;;
;;
;;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 MUSCULOSKELETAL, NOT ELSEWHERE CLASSIFIED",!!!
Q
;
SETIOF ; ** Set device control var's
D HOME^%ZIS
Q