source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNADF.m@ 711

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

initial load of FOIAVistA 6/30/08 version
File size: 4.7 KB
Line 
1SPNADF ;SAN DIEGO/WDE AD HOC REPORTS: INTERFACE FOR THE FUNCTIONAL STATUS FILE (#154.1) ;08/23/96 15:23
2 ;;2.0;Spinal Cord Dysfunction;**12,14,15,19,20**;01/02/1997
3 ;;2.0;QM Integration Module;;Apr 06, 1994
4 ; *** Set up required and optional variables and call Ad Hoc Rpt Gen
5 S SPNMRTN="MENU^SPNADF",SPNORTN="OTHER^SPNADF",SPNDIC=154.1
6 S SPNMHDR="SCD Outcomes"
7 D ^SPNAHOC0
8 Q
9MENU ; *** Build the menu array
10 S SPNMENU=1
11 F SP=1:1 S X=$P($T(TEXT+SP),";",3,99) Q:X="" D
12 . S SPNMENU(SPNMENU)=X,SPNMENU=SPNMENU+1
13 . Q
14 G MENU^SPNADF1
15OTHER ; *** Set up other (optional) EN1^DIP variables
16 S DIS(0)="I $$EN2^SPNPRTMT(+$P($G(^SPNL(154.1,D0,0)),U))"
17 S DISUPNO=0
18 Q
19MACRO ; *** Check/update macro checksums
20 S SPNMRTN="MENU^SPNADF",SPNDIC=154.1
21 D MACCHK^SPNAHOC5
22 Q
23TEXT ;;*** Sort Yes/No ^ Menu Text ^ ~Field # ^ DIR(0)
24 ;;1^Patient^~.01;"Patient"^PAO^2:AEMNQZ^D POINTER^SPNAHOC2
25 ;;1^SSN^~999.01^FAO^1:60^
26 ;;1^Date of Birth^~999.02;"Date Of Birth"^DAO^::AETS^D DATE^SPNAHOC2
27 ;;1^Date of Death^~999.09;"Date Of Death"^DAO^::AETS^D DATE^SPNAHOC2
28 ;;1^Age^~999.025;"Age"^FAO^1:60^
29 ;;1^Care Type^1003;"Care Type"^SAOM^1:INPATIENT;2:OUTPATIENT;3:ANNUAL EVALUATION;4:CONTINUUM OF CARE;^D SET^SPNAHOC2
30 ;;1^Care Start Date^~1001;"Care Start Date"^DAO^::AETS^D DATE^SPNAHOC2
31 ;;1^Care End Date^~1002;"Care End Date"^DAO^::AETS^D DATE^SPNAHOC2
32 ;;1^Record Type^~.02;"Record Type"^SAOM^1:Self Report of Function;2:FIM;3:ASIA;4:CHART;5:FAM;6:DIENER;7:DUSOI;8:Multiple Sclerosis;^D SET^SPNAHOC2
33 ;;1^Score Type^~.021;"Score Type"^PAO^154.3:AEMNQZ^D POINTER^SPNAHOC2
34 ;;1^Division^~.023;"Division"^FAO^1:5
35 ;;1^Disposition^~.024;"Disposition"^PAO^154.12:AEMNQZ^D POINTER^SPNAHOC2
36 ;;1^Respondent Type^~.03;"Respondent Type"^SAOM^1:PATIENT;2:CLINICIAN;3:PROXY;^D SET^SPNAHOC2
37 ;;1^Date Recorded^~.04;"Date Recorded"^DAO^::AETS^D DATE^SPNAHOC2
38 ;;1^Eating^~.05;"Eating"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
39 ;;1^Grooming^~.06;"Grooming"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
40 ;;1^Bathing^~.07;"Bathing"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
41 ;;1^Dressing Upper Body^~.08;"Dressing Upper Body"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
42 ;;1^Dressing Lower Body^~.09;"Dressing Lower Body"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
43 ;;1^Toileting^~.1;"Toileting"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
44 ;;1^Bladder Management^~.11;"Bladder Management"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
45 ;;1^Bowel Management^~.12;"Bowel Management"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
46 ;;1^Xfer Bed/Chr/Whlchr^~.13;"Xfer To Bed/Chair/Wheelchair"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
47 ;;1^Xfer Toilet^~.14;"Xfer To Toilet"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
48 ;;1^Xfer Tub/Shower^~.15;"Xfer To Tub/Shower"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
49 ;;1^Walk/Wheelchair^~.16;"Walk/Wheelchair"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
50 ;;1^Method of Wlk/Whlchr^~.161;"Method Of Walk/Wheelchair"^SAOM^W:WALK;C:WHEELCHAIR;B:BOTH;^D SET^SPNAHOC2|I $P(^(0),U,3)<3
51 ;;1^Stairs^~.17;"Stairs"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)<3
52 ;;1^Comprehension Level^~.18;"Comprehension"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)=3
53 ;;1^Method of Comp^~.181;"Method Of Comprehension"^SAOM^A:AUDITORY;V:VISUAL;B:BOTH;^D SET^SPNAHOC2
54 ;;1^Expression^~.19;"Expression"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)=3
55 ;;1^Method of Expression^~.191;"Method Of Expression"^SAOM^V:VOCAL;N:NONVOCAL;B:BOTH;^D SET^SPNAHOC2
56 ;;1^Social Interaction^~.2;"Social Interaction"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)=4
57 ;;1^Problem Solving^~.21;"Problem Solving"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)=4
58 ;;1^Memory^~.22;"Memory"^PAO^154.11:AEMNQZ^D POINTER^SPNAHOC2|I $P(^(0),U,3)=3
59 ;;1^Clinician^1.01,~.01;"Clinician"^PAO^200:AEMNQZ^D POINTER^SPNAHOC2
60 ;;1^To Places Otside Home^~2.01;"Get To Places Outside Of Home"^SAOM^1:WITHOUT HELP;2:WITH HELP;3:UNABLE;^D SET^SPNAHOC2
61 ;;1^Shopping^~2.02;"Shopping"^SAOM^1:WITHOUT HELP;2:WITH HELP;3:UNABLE;^D SET^SPNAHOC2
62 ;;1^Planning Cooking Meals^~2.03;"Planning And Cooking Own Meals"^SAOM^1:WITHOUT HELP;2:WITH HELP;3:UNABLE;^D SET^SPNAHOC2
63 ;;1^Doing Housework^~2.04;"Doing Housework"^SAOM^1:WITHOUT HELP;2:WITH HELP;3:UNABLE;^D SET^SPNAHOC2
64 ;;1^Handling Money^~2.05;"Handling Money"^SAOM^1:WITHOUT HELP;2:WITH HELP;3:UNABLE;^D SET^SPNAHOC2
65 ;;1^Method Amb Wlk^~2.06;"Method Ambulation (Walking)"^SAOM^1:WITHOUT HELP;2:WITH DEVICE;3:CANNOT WALK;4:BEDRIDDEN;^D SET^SPNAHOC2
66 ;;1^Method Amb Whlchr^~2.07;"Method Ambulation (Wheelchair)"^SAOM^1:MANUAL;2:MOTORIZED;3:DOES NOT USE W/CHR;4:BEDRIDDEN;^D SET^SPNAHOC2
67 ;;1^Help During Last 2 Wks^~2.08;"Help During Last 2 Weeks"^SAOM^1:YES;0:NO;^D SET^SPNAHOC2
Note: See TracBrowser for help on using the repository browser.