source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCIPC8A.m@ 1036

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

initial load of WorldVistAEHR
File size: 6.8 KB
Line 
1ONCIPC8A ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;05/01/00
2 ;;2.11;ONCOLOGY;**26,27**;Mar 07, 1995
3 ;Print (continued)
4 W !,"19. NEUROLOGICAL FINDINGS:"
5 D P Q:EX=U
6 W !," ALERTNESS....................: ",$$GET1^DIQ(165.5,IE,1245)
7 D P Q:EX=U
8 W !," SPEECH.......................: ",$$GET1^DIQ(165.5,IE,1246)
9 D P Q:EX=U
10 W !," PERSONALITY..................: ",$$GET1^DIQ(165.5,IE,1247)
11 D P Q:EX=U
12 W !," MEMORY OR JUDGEMENT..........: ",$$GET1^DIQ(165.5,IE,1248)
13 D P Q:EX=U
14 W !," VISUAL ACUITY................: ",$$GET1^DIQ(165.5,IE,1249)
15 D P Q:EX=U
16 W !," VISUAL FIELDS................: ",$$GET1^DIQ(165.5,IE,1250)
17 D P Q:EX=U
18 W !," EYE MOVEMENTS (EOM)..........: ",$$GET1^DIQ(165.5,IE,1251)
19 D P Q:EX=U
20 W !," FACIAL SENSATION.............: ",$$GET1^DIQ(165.5,IE,1252)
21 D P Q:EX=U
22 W !," FACIAL MOVEMENT..............: ",$$GET1^DIQ(165.5,IE,1253)
23 D P Q:EX=U
24 W !," HEARING......................: ",$$GET1^DIQ(165.5,IE,1254)
25 D P Q:EX=U
26 W !," GAG REFLEX...................: ",$$GET1^DIQ(165.5,IE,1255)
27 D P Q:EX=U
28 W !," STERNOCLEIDOMASTOID/SHOULDER"
29 D P Q:EX=U
30 W !," SHRUG STRENGTH..............: ",$$GET1^DIQ(165.5,IE,1256)
31 D P Q:EX=U
32 W !," ARTICULATION OR ENUNCIATION..: ",$$GET1^DIQ(165.5,IE,1257)
33 D P Q:EX=U
34 W !," PAPILLEDEMA..................: ",$$GET1^DIQ(165.5,IE,1258)
35 D P Q:EX=U
36 W !," TONGUE FASCICULATIONS OR"
37 D P Q:EX=U
38 W !," ATROPHY.....................: ",$$GET1^DIQ(165.5,IE,1259)
39 D P Q:EX=U
40 W !," DECREASE IN SENSATION OF ANY"
41 D P Q:EX=U
42 W !," SITE........................: ",$$GET1^DIQ(165.5,IE,1260)
43 D P Q:EX=U
44 W !," CORTICAL SENSORY DEFICIT.....: ",$$GET1^DIQ(165.5,IE,1261)
45 D P Q:EX=U
46 W !," WEAKNESS, ATROPHY OR"
47 D P Q:EX=U
48 W !," FASCICULATION OF ANY SITE...: ",$$GET1^DIQ(165.5,IE,1262)
49 D P Q:EX=U
50 W !," ATAXIA OF GAIT...............: ",$$GET1^DIQ(165.5,IE,1263)
51 D P Q:EX=U
52 W !," TRUNCAL ATAXIA...............: ",$$GET1^DIQ(165.5,IE,1264)
53 D P Q:EX=U
54 W !," DYSMETRIA....................: ",$$GET1^DIQ(165.5,IE,1265)
55 D P Q:EX=U
56 W !," RAPID ALTERNATING MOVEMENTS..: ",$$GET1^DIQ(165.5,IE,1266)
57 D P Q:EX=U
58 W !," FINGER TO FINGER NOSE TESTING: ",$$GET1^DIQ(165.5,IE,1267)
59 D P Q:EX=U
60 W !," HEEL TO KNEE TO SHIN TESTING.: ",$$GET1^DIQ(165.5,IE,1268)
61 D P Q:EX=U
62 W !," DEEP TENDON REFLEXES IN UPPER"
63 D P Q:EX=U
64 W !," EXTREMITIES.................: ",$$GET1^DIQ(165.5,IE,1269)
65 D P Q:EX=U
66 W !," DEEP TENDON REFLEXES IN LOWER"
67 D P Q:EX=U
68 W !," EXTREMITIES.................: ",$$GET1^DIQ(165.5,IE,1270)
69 D P Q:EX=U
70 W !," BABINSKI SIGN................: ",$$GET1^DIQ(165.5,IE,1271)
71 D P Q:EX=U
72 W !," HOFFMAN REFLEX...............: ",$$GET1^DIQ(165.5,IE,1272)
73 D P Q:EX=U
74 W !," OTHER ABNORMAL REFLEXES......: ",$$GET1^DIQ(165.5,IE,1273)
75 D P Q:EX=U
76 W !
77 D P Q:EX=U
78 W !,"20. PRE-THERAPY DIAGNOSTIC STUDIES:"
79 D P Q:EX=U
80 W !," ANGIOGRAPHY..................: ",$$GET1^DIQ(165.5,IE,1274)
81 D P Q:EX=U
82 W !," CT SCAN OF BRAIN.............: ",$$GET1^DIQ(165.5,IE,1275)
83 D P Q:EX=U
84 W !," CT SCAN OF SPINE.............: ",$$GET1^DIQ(165.5,IE,1276)
85 D P Q:EX=U
86 W !," EEG..........................: ",$$GET1^DIQ(165.5,IE,1277)
87 D P Q:EX=U
88 W !," ISOTOPE BRAIN SCAN...........: ",$$GET1^DIQ(165.5,IE,1278)
89 D P Q:EX=U
90 W !," PET SCAN.....................: ",$$GET1^DIQ(165.5,IE,1279)
91 D P Q:EX=U
92 W !," SPECT SCAN...................: ",$$GET1^DIQ(165.5,IE,1280)
93 D P Q:EX=U
94 W !," MRI OF BRAIN.................: ",$$GET1^DIQ(165.5,IE,1281)
95 D P Q:EX=U
96 W !," MRI OF SPINE.................: ",$$GET1^DIQ(165.5,IE,1282)
97 D P Q:EX=U
98 W !," FUNCTIONAL MRI...............: ",$$GET1^DIQ(165.5,IE,1283)
99 D P Q:EX=U
100 W !," MYELOGRAPHY..................: ",$$GET1^DIQ(165.5,IE,1284)
101 D P Q:EX=U
102 W !," MRS..........................: ",$$GET1^DIQ(165.5,IE,1285)
103 D P Q:EX=U
104 W !
105 D P Q:EX=U
106 W !,"21. TUMOR LOCATION/INVOLVEMENT:"
107 D P Q:EX=U
108 W !," FRONTAL LOBE.................: ",$$GET1^DIQ(165.5,IE,1286)
109 D P Q:EX=U
110 W !," TEMPORAL LOBE................: ",$$GET1^DIQ(165.5,IE,1287)
111 D P Q:EX=U
112 W !," PARIETAL LOBE................: ",$$GET1^DIQ(165.5,IE,1288)
113 D P Q:EX=U
114 W !," OCCIPITAL LOBE...............: ",$$GET1^DIQ(165.5,IE,1289)
115 D P Q:EX=U
116 W !," OPTIC NERVES.................: ",$$GET1^DIQ(165.5,IE,1290)
117 D P Q:EX=U
118 W !," PITUITARY GLAND..............: ",$$GET1^DIQ(165.5,IE,1291)
119 D P Q:EX=U
120 W !," PINEAL GLAND.................: ",$$GET1^DIQ(165.5,IE,1292)
121 D P Q:EX=U
122 W !," CEREBELLUM...................: ",$$GET1^DIQ(165.5,IE,1293)
123 D P Q:EX=U
124 W !," BRAIN STEM...................: ",$$GET1^DIQ(165.5,IE,1294)
125 D P Q:EX=U
126 W !," SKULL BASE...................: ",$$GET1^DIQ(165.5,IE,1295)
127 D P Q:EX=U
128 W !," OTHER SKULL..................: ",$$GET1^DIQ(165.5,IE,1296)
129 D P Q:EX=U
130 W !," SPINAL CORD..................: ",$$GET1^DIQ(165.5,IE,1297)
131 D P Q:EX=U
132 W !," CEREBRAL SPINAL FLUID........: ",$$GET1^DIQ(165.5,IE,1298)
133 D P Q:EX=U
134 W !," CRANIAL MENINGES.............: ",$$GET1^DIQ(165.5,IE,1299)
135 D P Q:EX=U
136 W !," SPINAL MENINGES..............: ",$$GET1^DIQ(165.5,IE,1300)
137 D P Q:EX=U
138 W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1301)
139 D P Q:EX=U
140 W !
141 D P Q:EX=U
142 W !,"22. SIDE:"
143 D P Q:EX=U
144 W !," LEFT.........................: ",$$GET1^DIQ(165.5,IE,1302)
145 D P Q:EX=U
146 W !," RIGHT........................: ",$$GET1^DIQ(165.5,IE,1303)
147 D P Q:EX=U
148 W !," MIDLINE......................: ",$$GET1^DIQ(165.5,IE,1304)
149 D P Q:EX=U
150 W !
151 D P Q:EX=U
152 W !,"23. NUMBER OF TUMORS..............: ",$$GET1^DIQ(165.5,IE,1305)
153 D P Q:EX=U
154 W !,"24. DATE OF FIRST SYMPTOMS........: ",$$GET1^DIQ(165.5,IE,1306)
155 D P Q:EX=U
156 W !,"25. DATE OF INITIAL DIAGNOSIS.....: ",$$GET1^DIQ(165.5,IE,3)
157 D P Q:EX=U
158 W !,"26. DATE OF PATHOLOGIC DIAGNOSIS..: ",$$GET1^DIQ(165.5,IE,1307)
159 D P Q:EX=U
160 W !,"27. PRIMARY SITE (ICD-O-2)........: ",$$GET1^DIQ(165.5,IE,20.1)
161 D P Q:EX=U
162 W !,"28. WHO HISTOLOGICAL CLASSIFI- "
163 D P Q:EX=U
164 W !," CATION OF TUMOR..............: ",$$GET1^DIQ(165.5,IE,1308)
165 D P Q:EX=U
166 W !,"29. BEHAVIOR CODE (ICD-O-2).......: ",$E($$GET1^DIQ(165.5,IE,22,"I"),5)
167 D P Q:EX=U
168 W !,"30. GRADE.........................: ",$$GET1^DIQ(165.5,IE,24)
169 D P Q:EX=U
170 W !,"31. DIAGNOSTIC CONFIRMATION.......: ",$$GET1^DIQ(165.5,IE,26)
171 D P Q:EX=U
172 W !,"32. MOLECULAR MARKERS.............: ",$$GET1^DIQ(165.5,IE,1309)
173 D P Q:EX=U
174 W !,"33. TUMOR SIZE....................: ",$$GET1^DIQ(165.5,IE,1394)
175 D P Q:EX=U
176 W !,"34. TUMOR SIZE (SOURCE)...........: ",$$GET1^DIQ(165.5,IE,1310)
177 D P Q:EX=U
178 W !,"35. KARNOFSKY'S RATING PRIOR TO TX: ",$$GET1^DIQ(165.5,IE,1311)
179 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y
180III D:IOST?1"C".E HEAD^ONCIPC0 D ^ONCIPC8B
181 Q
182P ;Print
183 I ($Y'<(LIN-1)) D Q:EX=U
184 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
185 .D HEAD^ONCIPC0 Q
186 Q
Note: See TracBrowser for help on using the repository browser.