source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNADF5.m@ 757

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1SPNADF5 ;SAN DIEGO/WDE/ AD HOC REPORTS: OUTCOMES FILE (#154.1) ;08/23/96 15:23
2 ;;2.0;Spinal Cord Dysfunction;**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^SPNADF5",SPNORTN="OTHER^SPNADF",SPNDIC=154.1
6 S SPNMHDR="ASIA"
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
14OTHER ; *** Set up other (optional) EN1^DIP variables
15 S DIS(0)="I $$EN2^SPNPRTMT(+$P($G(^SPNL(154.1,D0,0)),U))"
16 S DISUPNO=0
17 Q
18TEXT ;;*** Sort Yes/No ^ Menu Text ^ ~Field # ^ DIR(0)
19 ;;1^Patient^~.01;"Patient"^PAO^2:AEMNQZ^D POINTER^SPNAHOC2
20 ;;1^SSN^~999.01^FAO^1:60^
21 ;;1^Date of Birth^~999.02;"Date Of Birth"^DAO^::AETS^D DATE^SPNAHOC2
22 ;;1^Date of Death^~999.09;"Date Of Death"^DAO^::AETS^D DATE^SPNAHOC2
23 ;;1^Age^~999.025;"Age"^FAO^1:60^
24 ;;1^Care Type^1003;"Care Type"^SAOM^1:INPATIENT;2:OUTPATIENT;3:ANNUAL EVALUATION;4:CONTINUUM OF CARE;^D SET^SPNAHOC2
25 ;;1^Care Start Date^~1001;"Care Start Date"^DAO^::AETS^D DATE^SPNAHOC2
26 ;;1^Care End Date^~1002;"Care End Date"^DAO^::AETS^D DATE^SPNAHOC2
27 ;;0^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
28 ;;1^Score Type^~.021;"Score Type"^PAO^154.3:AEMNQZ^D POINTER^SPNAHOC2
29 ;;1^Division^~.023;"Division"^FAO^1:5
30 ;;1^Disposition^~.024;"Disposition"^PAO^154.12:AEMNQZ^D POINTER^SPNAHOC2
31 ;;1^Respondent Type^~.03;"Respondent Type"^SAOM^1:PATIENT;2:CLINICIAN;3:PROXY;^D SET^SPNAHOC2
32 ;;1^Date Recorded^~.04;"Date Recorded"^DAO^::AETS^D DATE^SPNAHOC2
33 ;;1^Motor Score^~7.02;"Total Motor Score"^NAO^-999999999:999999999:^
34 ;;1^Pin Prick Score^~7.03;"Total Pin Prick Score"^NAO^-999999999:999999999:9^
35 ;;1^Light Touch Score^~7.04;"Total Light Touch Score"^NAO^-99999999:999999999:9^
36 ;;1^Neurolevel-Sensory R^~7.05;"Neurolevel-Sensory Right"^PAO^154.01:AEMNQZ^D POINTER^SPNAHOC2|I "^C01^S05^UNK^"'[(U_$P(^(0),U)_U)
37 ;;1^Neurolevel-Sensory L^~7.06;"Neurolevel-Sensory Left"^PAO^154.01:AEMNQZ^D POINTER^SPNAHOC2|I "^C01^S05^UNK^"'[(U_$P(^(0),U)_U)
38 ;;1^Neurolevel-Motor R^~7.07;"Neurolevel-Motor Right"^PAO^154.01:AEMNQZ^D POINTER^SPNAHOC2|N SPNL S SPNL=$TR($P(^(0),U),"CTLS","1234") I ((SPNL'<105)&(SPNL'>108))!(SPNL=201)!(SPNL'<302)&(SPNL'>305))!(SPNL=401)
39 ;;1^Neurolevel-Motor L^~7.08;"Neurolevel-Motor Left"^PAO^154.01:AEMNQZ^D POINTER^SPNAHOC2|N SPNL S SPNL=$TR($P(^(0),U),"CTLS","1234") I ((SPNL'<105)&(SPNL'>108))!(SPNL=201)!(SPNL'<302)&(SPNL'>305))!(SPNL=401)
40 ;;1^Complete/Incomplete^~7.09;"ASIA Complete/Incomplete"^SAOM^C:COMPLETE;I:INCOMPLETE;^D SET^SPNAHOC2
41 ;;1^Partial Pres-Sensory R^~7.1;"Partial Preservation-Sensory R"^PAO^154.01:AEMNQZ^D POINTER^SPNAHOC2|I "^C01^S05^UNK^"'[(U_$P(^(0),U)_U)
42 ;;1^Partial Pres-Sensory L^~7.11;"Partial Preservation-Sensory L"^PAO^154.01:AEMNQZ^D POINTER^SPNAHOC2|I "^C01^S05^UNK^"'[(U_$P(^(0),U)_U)
43 ;;1^Partial Pres-Motor R^~7.12;"Partial Preservation-Motor R"^PAO^154.01:AEMNQZ^D POINTER^SPNAHOC2|N SPNL S SPNL=$TR($P(^(0),U),"CTLS","1234") I ((SPNL'<105)&(SPNL'>108))!(SPNL=201)!(SPNL'<302)&(SPNL'>305))!(SPNL=401)
44 ;;1^Partial Pres-Motor L^~7.13;"Partial Preservation-Motor L"^PAO^154.01:AEMNQZ^D POINTER^SPNAHOC2|N SPNL S SPNL=$TR($P(^(0),U),"CTLS","1234") I ((SPNL'<105)&(SPNL'>108))!(SPNL=201)!(SPNL'<302)&(SPNL'>305))!(SPNL=401)
45 ;;1^Highest Neuro Level^~7.14;"ASIA Highest Neuro Level"^PAO^154.01:AEMNQZ^D POINTER^SPNAHOC2
46 ;;1^Impairment Scale^~7.01;"ASIA Impairment Scale"^SAOM^A:A;B:B;C:C;D:D;E:E;^D SET^SPNAHOC2
Note: See TracBrowser for help on using the repository browser.