source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNMSHLP.m@ 1261

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

initial load of WorldVistAEHR

File size: 6.5 KB
Line 
1SPNMSHLP ;WDE/SD PRINT MS DESCRIPTIONS;04/18/2000
2 ;;2.0;Spinal Cord Dysfunction;**12,13**;01/02/1997
3 ;;
4EN1 ; Main Entry Point
5 S SPNPAGE=1
6 S SPNLEXIT=0
7 W !!,"Display expanded Multiple Sclerosis descriptions",!
8 S ZTSAVE("SPN*")=""
9 D DEVICE^SPNPRTMT("PRINT^SPNMSHLP","Print MS Descriptions",.ZTSAVE) Q:SPNLEXIT
10 I SPNIO="Q" D EXIT Q ; Print was Queued
11 I IO'="" D PRINT D EXIT Q ; Print was not Queued
12 Q
13EXIT ; Exit routine
14 K SPNPAGE,SPNEXIT,ZTSAVE,SPN,DIR,Y
15 Q
16PRINT ; Print main Body
17 U IO
18 S Y=DT X ^DD("DD") S SPNDATE=Y
19 D HEAD
20 F SPN=1:1:1000 Q:$T(TEXT+SPN)="" D Q:SPNLEXIT=1
21 .I $Y>(IOSL-5) D HEAD
22 .W !,$P($T(TEXT+SPN),";;",2)
23 I $E(IOST,1)="C" I SPNLEXIT=0 N DIR S DIR(0)="E" D ^DIR K Y
24 D CLOSE^SPNPRTMT
25 Q
26HEAD ; Header Print
27 I SPNPAGE'=1 Q:$Y<(IOSL-4)
28 I $E(IOST,1)="P" I SPNPAGE'=1 W #
29 I $E(IOST,1)="C" D Q:SPNLEXIT
30 .I SPNPAGE=1 W @IOF Q
31 .I SPNPAGE'=1 D Q:SPNLEXIT
32 ..N DIR S DIR(0)="E" D ^DIR I 'Y S SPNLEXIT=1,SPN=1000
33 ..K Y
34 ..W @IOF
35 ..Q
36 .Q
37 Q:SPNLEXIT
38 W !?10,"MS Expanded Help Text"
39 W ?50,"Page: ",SPNPAGE," ",SPNDATE
40 W !,$$REPEAT^XLFSTR("-",79)
41 S SPNPAGE=SPNPAGE+1
42 I $D(ZTQUEUED) S:$$STPCK^SPNPRTMT SPNLEXIT=1
43 Q:SPNLEXIT
44 Q
45TEXT ;
46 ;; PYRAMIDAL
47 ;; =========
48 ;;Normal
49 ;;Abnormal Signs without disability.
50 ;;Minimal disability.
51 ;;Mild to moderate paraparesis or hemiparesis; severe monoparesis.
52 ;;Marked paraparesis or hemiparesis; moderate quadriparesis, or
53 ;; monoplegia.
54 ;;Paraplegia, hemiplegia, or marked quadriparesis.
55 ;;Quadriplegia.
56 ;;Unknown
57 ;;
58 ;; BRAINSTEM
59 ;; =========
60 ;;Normal
61 ;;Signs only.
62 ;;Moderate nystagmus or other mild disability.
63 ;;Severe nystagmus, marked extraocular weakness.
64 ;;Marked dysarthria.
65 ;;Inability to swallow or speak.
66 ;;Unknown
67 ;;
68 ;; SENSORY
69 ;; =======
70 ;;Normal
71 ;;Vibration or finger-writing decrease only, in 1 or 2 limbs.
72 ;;Mild decrease in touch or pain or position sense, and/or
73 ;; moderate decrease in vibration in 1 or 2 limbs or vibration
74 ;; decrease alone in 3 or 4 limbs.
75 ;;Moderate decrease in touch or pain or position sense, and/or
76 ;; essentially lost vibration in 1 or 2 limbs; mild decrease in
77 ;; touch or pain and/or moderate decrease in all proprioceptive
78 ;; tests in 3 or 4 limbs.
79 ;;Marked decrease in touch or pain or loss of proprioception, alone
80 ;; or combined, in 1 or 2 limbs; or moderate decrease in touch or
81 ;; pain and/or severe proprioception decrease in more than 2 limbs.
82 ;;Sensation essentially lost below head.
83 ;;Unknown
84 ;;
85 ;; CEREBRAL
86 ;; ========
87 ;;Normal
88 ;;Mood alteration only.
89 ;;Mild decrease in mentation.
90 ;;Moderate decrease in mentation.
91 ;;Marked decrease in mentation.
92 ;;Dementia or chronic brain syndrome.
93 ;;Unknown
94 ;;
95 ;; CEREBELLAR
96 ;; ==========
97 ;;Normal
98 ;;Abnormal signs without disability.
99 ;;Mild ataxia.
100 ;;Moderate truncal or limb ataxia (tremor or clumsy movements
101 ;; interfere with function in all spheres).
102 ;;Severe ataxia in all limbs (most function is very difficult).
103 ;;Unable to perform coordinated movements due to ataxia.
104 ;;Weakness (grade 3 or more on pyramidal) interferes with testing.
105 ;;Unknown
106 ;;
107 ;; BOWEL & BLADDER
108 ;; ===============
109 ;;Normal
110 ;;Mild hesitancy.
111 ;;Moderate hesitance, urgency, retention or rare incontinence
112 ;; (intermittent self-catheterization, manual compression to
113 ;; evacuate bladder or finger evacuation of stool).
114 ;;Frequent urinary incontinence.
115 ;;In need of almost constant catheterization (and constant use of
116 ;; measure to evacuate stool).
117 ;;Loss of bladder function.
118 ;;Loss of bladder and bowel function.
119 ;;Unknown
120 ;;
121 ;; VISUAL
122 ;; ======
123 ;;Normal
124 ;;Scotoma with visual acuity (corrected) better than 20/30.
125 ;;Worse eye with scotoma with maximum visual acuity (corrected) or
126 ;; 20/30 to 20/59.
127 ;;Worse eye with large scotoma, or moderate decrease in fields, but
128 ;; with maximal visual acuity of 20/60 to 20/99.
129 ;;Worse eye with marked decrease of fields and maximal visual acuity
130 ;; (corrected) of 20/100 to 20/200; grade 3 plus maximal acuity
131 ;; better eye 20/60 or less.
132 ;;Worse eye with maximal visual acuity or (corrected) less than
133 ;; 20/20; grade 4 plus maximal acuity of better eye 20/60 or less.
134 ;;Grade 5 plus maximal visual acuity of better eye 20/60 or less.
135 ;;Presence of temporal pallor.
136 ;;Unknown
137 ;;
138 ;; OTHER
139 ;; =====
140 ;;None
141 ;;Any other neurological finding attributed to MS.
142 ;;Unknown
143 ;;
144 ;; EDSS
145 ;; ====
146 ;;Normal neurological exam.
147 ;;No disability, minimal signs in one FS.
148 ;;No disability, minimal signs in more than one FS.
149 ;;Minimal disability in one FS.
150 ;;Minimal disability on two FS.
151 ;;Moderate disability in one FS.
152 ;;Fully ambulatory but with moderate disability in one FS and one
153 ;; or two FSs grade 2; or two FSs grade 3; or five FSs grade 2.
154 ;;Fully ambulatory without aid, self-sufficient, up and about some
155 ;; 12 hrs despite relatively severe disability consisting of one FS
156 ;; grade 4, or combinations of lesser grades exceeding limits of
157 ;; previous steps.
158 ;;Fully ambulatory without aid up and about much of the day, able to
159 ;; work full day may otherwise have some limitations of full activity
160 ;; or require minimal assistance.
161 ;;Ambulatory without aid or rest for about 200 meters, disability severe
162 ;; enough to impair full daily activity.
163 ;;Ambulatory without aid or rest for about 100 meters, disability severe
164 ;; enough to preclude full daily activity.
165 ;;Intermittent or unilateral constraint assistance (cane, crutch, brace)
166 ;; required to walk about 100 meters with or without resting.
167 ;;Constant bilateral assistant (cane, crutches, brace) required to walk
168 ;; about 20 meters without resting.
169 ;;Unable to walk beyond about 5 meters even with aid; essentially
170 ;; restricted to wheelchair, wheels self in standard wheelchair and
171 ;; transfers alone; up and about in wheelchair some 12 hours a day.
172 ;;Unable to take more than a few steps; restricted to wheelchair; may
173 ;; need aid in transfer; wheels self, but cannot carry on in standard
174 ;; wheelchair a full day; may require motorized wheelchair.
175 ;;Essentially restricted to bed or chair or perambulated in wheelchair,
176 ;; but may be out of bed himself/herself much of the day; retains
177 ;; many self-care functions; generally has effective use of arms.
178 ;;Essentially restricted to bed much of the day; has some effective use
179 ;; of arms; retains some self-care functions.
180 ;;Helpless bed patient; can communicate and eat.
181 ;;Totally helpless bed patient; unable to communicate effectively or
182 ;; eat/swallow.
183 ;;Death due to MS
Note: See TracBrowser for help on using the repository browser.