1 | DVBCVSCK ;ALB/GTS-557/THM-VISUAL EXAM ; 6/27/91 2:11 PM
|
---|
2 | ;;2.7;AMIE;;Apr 10, 1995
|
---|
3 | ;
|
---|
4 | S PG=1,HD91="Department of Veterans Affairs",HD9=$S($D(CMBN):"Abbreviated",1:"Full")_" Exam Worksheet"
|
---|
5 | EN D:'$D(IOF) SETIOF W:(IOST?1"C-".E) @IOF
|
---|
6 | W !?25,HD91,!?22,"Compensation and Pension Examination",! W ?33,"# 1330 Worksheet" S HD7="VISUAL",HD8="For "_HD7 W !?(40-($L(HD9)\2)),HD9,!?(40-($L(HD8)\2)),HD8,!!
|
---|
7 | W "Name: ",NAME,?45,"SSN: ",SSN,!?45,"C-number: ",CNUM,!,"Date of exam: ____________________",!!,"Place of exam: ___________________",!!,"Type of Exam: ",HD7
|
---|
8 | W !!!!,"Narrative: "
|
---|
9 | S LX="TXT" F I=1:1 S LY=$T(@LX+I) Q:LY["END" W $P(LY,";;",2),!
|
---|
10 | W !!,"A. Medical history:",!!!!!!!!!
|
---|
11 | W !!,"B. Visual Acuity:",!!?44,"Near",?55,"Far",!?43,"______",?54,"______",!
|
---|
12 | W ?13,"Right Eye",?28,"Uncorrected",?42,"|______",?49,"|",?53,"|______",?60,"|",!!?43,"______",?54,"______",!?30,"Corrected",?42,"|______",?49,"|",?53,"|______",?60,"|",!!!
|
---|
13 | W ?44,"Near",?55,"Far",!?43,"______",?54,"______",!?13," Left Eye",?28,"Uncorrected",?42,"|______",?49,"|",?53,"|______",?60,"|",!!?43,"______",?54,"______",!?30,"Corrected",?42,"|______",?49,"|",?53,"|______",?60,"|",!!!
|
---|
14 | D HD2 S LX="TXT" D ^DVBCVSC1 W !!!!!
|
---|
15 | W "F. Diagnostic/clinical test results (other than visual acuity,visual fields",!,?4,"or diplopia):",!!!!!!!!!!,"G. Diagnosis:",!!!!!!!!!!
|
---|
16 | W ?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
|
---|
17 | ;S LN22="Attachment - Visual Exam" W @IOF,!!?(80-$L(LN22)\2),LN22,!!! D ^DVBCVSC2 W !
|
---|
18 | K LN,LN1,LN22
|
---|
19 | Q
|
---|
20 | ;
|
---|
21 | HD2 S PG=PG+1 W @IOF,!,"Page: ",PG,!!,"Compensation and Pension Examination",!,HD8," for ",NAME,!!!
|
---|
22 | Q
|
---|
23 | ;
|
---|
24 | TXT ;
|
---|
25 | ;;For visual acuity worse than 5/200 in either or both eyes, report
|
---|
26 | ;; the distance in feet/inches (or meters/centimeters) from the face
|
---|
27 | ;; at which the veteran can count fingers/detect hand motion/read the
|
---|
28 | ;; largest line on the chart. If the veteran cannot detect hand motion
|
---|
29 | ;; or count fingers at any distance, state whether he/she has light
|
---|
30 | ;; perception.
|
---|
31 | ;;END
|
---|
32 | SETIOF ; ** Set device control var's
|
---|
33 | D HOME^%ZIS
|
---|
34 | Q
|
---|