source: FOIAVistA/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBCNKCK.m@ 813

Last change on this file since 813 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1DVBCNKCK ;ALB/GTS-557/THM-NECK EXAM ; 12/10/90 2:06 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"
5EN D:'$D(IOF) SETIOF W:(IOST?1"C-".E) @IOF
6 W !?25,HD91,!?22,"Compensation and Pension Examination",! W ?33,"# 1440 Worksheet" S HD7="NECK, ABNORMALITIES OF, ",HD6="NOT RESULT OF INJURY OR BONE DISEASE",HD8="For "_HD7_HD6 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,!?14,HD6
8 W !!!!,"Narrative:"
9 W ?13,"The report of examination should include any abnormal position",!?13,"of the head, range of motion of the head, evidence of",!?13,"paralysis of the neck muscles, and asymmetry produced by",!?13,"abnormal swelling or masses.",!!
10 I '$D(CMBN) W "A. Medical history:",!!!!!!!!!!,"B. Subjective complaints:",!!!!!!!!!!!,"C. Objective findings:",! D HD2
11 W $S($D(CMBN):"A. ",1:"D. "),"Specific evaluation information required by the rating board",!?4,"(if the information requested is included elsewhere, do not",!?4,"repeat here):",!!!
12 W ?8,"1. Range of motion -",!!!!!?8,"2. Deformity -",!!!!!?8,"3. Weakness -",!!!!!
13 W $S($D(CMBN):"B. ",1:"E. "),"Diagnostic/clinical test results:",!!!!!!!!!! D:$Y>50 HD2 W $S($D(CMBN):"C. ",1:"F. "),"Diagnosis:",!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
14 K LN,LN1,LN2
15 Q
16 ;
17HD2 S PG=PG+1 W @IOF,!,"Page: ",PG,!!,"Compensation and Pension Exam for ",HD7,!?5,HD6,!?5,"for "_NAME,!!!
18 Q
19 ;
20SETIOF ; ** Set device control var's
21 D HOME^%ZIS
22 Q
Note: See TracBrowser for help on using the repository browser.