source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCIPC8B.m@ 1800

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

initial load of WorldVistAEHR
File size: 5.7 KB
Line 
1ONCIPC8B ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;05/01/00
2 ;;2.11;ONCOLOGY;**26**;Mar 07, 1995
3 ;Print (continued)
4III S TABLE="FIRST COURSE OF TREATMENT"
5 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCIPC0
6 K LINE S $P(LINE,"-",25)="-"
7 W !?4,TABLE,!?4,LINE
8 D P Q:EX=U
9 S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
10 W !,"36. PROTOCOL PARTICIPATION........: ",$$GET1^DIQ(165.5,IE,1312)
11 D P Q:EX=U
12 W !,"37. PROTOCOL PHASE................: ",$$GET1^DIQ(165.5,IE,1313)
13 D P Q:EX=U
14 W !,"38. DATE OF FIRST COURSE TREATMENT: ",DOFCT
15 D P Q:EX=U
16 W !,"39. DATE OF INPATIENT ADMISSION...: ",$$GET1^DIQ(165.5,IE,1)
17 D P Q:EX=U
18 W !,"40. DATE OF INPATIENT DISCHARGE...: ",$$GET1^DIQ(165.5,IE,1.1)
19 D P Q:EX=U
20 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G S
21 W !
22 D P Q:EX=U
23S W !?4,"SURGERY",!?4,"-------"
24 D P Q:EX=U
25 W !?4,"NON CANCER-DIRECTED SURGERY"
26 D P Q:EX=U
27 W !?4,"---------------------------"
28 D P Q:EX=U
29 W !,"41. DATE OF NON CANCER-DIRECTED"
30 D P Q:EX=U
31 W !," SURGERY......................: ",$$GET1^DIQ(165.5,IE,58.3)
32 D P Q:EX=U
33 W !
34 D P Q:EX=U
35 W !,"42. DIAGNOSTIC/EVALUATIVE/PALLIATIVE (NON CANCER-DIRECTED) SURGERY:"
36 D P Q:EX=U
37 W !," NONE, NO NON CA-DIRECTED"
38 D P Q:EX=U
39 W !," SURGICAL PROCEDURE..........: ",$$GET1^DIQ(165.5,IE,1314)
40 D P Q:EX=U
41 W !," VENTRICULOSTOMY, OR EXTERNAL"
42 D P Q:EX=U
43 W !," VENTRICULAR DRAIN...........: ",$$GET1^DIQ(165.5,IE,1315)
44 D P Q:EX=U
45 W !," CSF SHUNT,"
46 D P Q:EX=U
47 W !," VENTRICULOPERITONEAL........: ",$$GET1^DIQ(165.5,IE,1316)
48 D P Q:EX=U
49 W !," CSF SHUNT,"
50 D P Q:EX=U
51 W !," THIRD VENTRICULOSTOMY.......: ",$$GET1^DIQ(165.5,IE,1317)
52 D P Q:EX=U
53 W !," CSF SHUNT,"
54 D P Q:EX=U
55 W !," OTHER.......................: ",$$GET1^DIQ(165.5,IE,1318)
56 D P Q:EX=U
57 W !," STEREOTACTIC BIOPSY..........: ",$$GET1^DIQ(165.5,IE,1319)
58 D P Q:EX=U
59 W !," OPEN BRAIN BIOPSY............: ",$$GET1^DIQ(165.5,IE,1320)
60 D P Q:EX=U
61 W !," OPEN BIOPSY OF SPINAL CORD"
62 D P Q:EX=U
63 W !," TUMOR.......................: ",$$GET1^DIQ(165.5,IE,1321)
64 D P Q:EX=U
65 W !," LAMINECTOMY FOR SPINAL CORD"
66 D P Q:EX=U
67 W !," TUMOR, W/O TUMOR RESECTION,"
68 D P Q:EX=U
69 W !," W/O OPENING DURA...........: ",$$GET1^DIQ(165.5,IE,1322)
70 D P Q:EX=U
71 W !," LAMINECTOMY FOR SPINAL CORD"
72 D P Q:EX=U
73 W !," TUMOR, W/O TUMOR RESECTION,"
74 D P Q:EX=U
75 W !," W OPENING DURA.............: ",$$GET1^DIQ(165.5,IE,1323)
76 D P Q:EX=U
77 W !," SURGERY, NOS.................: ",$$GET1^DIQ(165.5,IE,1324)
78 D P Q:EX=U
79 W !," UNKNOWN IF SURGERY DONE......: ",$$GET1^DIQ(165.5,IE,1325)
80 D P Q:EX=U
81 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G CDS
82 W !
83 D P Q:EX=U
84CDS W !?4,"CANCER-DIRECTED SURGERY"
85 D P Q:EX=U
86 W !?4,"-----------------------"
87 D P Q:EX=U
88 W !,"43. DATE OF CA-DIRECTED SURGERY...: ",$$GET1^DIQ(165.5,IE,50)
89 D P Q:EX=U
90 W !,"44. SURGICAL APPROACH.............: ",$$GET1^DIQ(165.5,IE,1326)
91 D P Q:EX=U
92 W !,"45. EXTENT OF SURGICAL RESECTION..: ",$$GET1^DIQ(165.5,IE,1327)
93 D P Q:EX=U
94 W !,"46. SIZE OF RESIDUAL PRIMARY TUMOR"
95 D P Q:EX=U
96 W !," AFTER CA-DIR SURGERY.........: ",$$GET1^DIQ(165.5,IE,1328)
97 D P Q:EX=U
98 W !,"47. SIZE OF RESIDUAL PRIMARY TUMOR"
99 D P Q:EX=U
100 W !," AFTER CA-DIR SURGERY (SOURCE): ",$$GET1^DIQ(165.5,IE,1329)
101 D P Q:EX=U
102 W !
103 D P Q:EX=U
104 W !,"48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
105 D P Q:EX=U
106 W !," ANESTHETIC PROBLEM...........: ",$$GET1^DIQ(165.5,IE,1330)
107 D P Q:EX=U
108 W !," HEMORRHAGE AT OPERATIVE SITE.: ",$$GET1^DIQ(165.5,IE,1331)
109 D P Q:EX=U
110 W !," SEIZURE......................: ",$$GET1^DIQ(165.5,IE,1332)
111 D P Q:EX=U
112 W !," INFECTION(S).................: ",$$GET1^DIQ(165.5,IE,1333)
113 D P Q:EX=U
114 W !," DVT (DEEP VENOUS THROMBOSIS).: ",$$GET1^DIQ(165.5,IE,1334)
115 D P Q:EX=U
116 W !," PERSISTENT NEUROLOGICAL"
117 D P Q:EX=U
118 W !," WORSENING > 4 DAYS POST-OP..: ",$$GET1^DIQ(165.5,IE,1335)
119 D P Q:EX=U
120 W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,360)
121 D P Q:EX=U
122 W !
123 D P Q:EX=U
124 W !,"49. REASON FOR NO SURGERY.........: ",$$GET1^DIQ(165.5,IE,58)
125 D P Q:EX=U
126 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G R
127 W !
128 D P Q:EX=U
129R W !?4,"RADIATION THERAPY",!?4,"-----------------"
130 D P Q:EX=U
131 W !,"50. RADIATION THERAPY.............: ",$$GET1^DIQ(165.5,IE,1345)
132 D P Q:EX=U
133 W !,"51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
134 D P Q:EX=U
135 W !,"52. DATE RADIATION ENDED..........: ",$$GET1^DIQ(165.5,IE,361)
136 D P Q:EX=U
137 W !,"53. TOTAL RADIATION DOSE (cGy)....: ",$$GET1^DIQ(165.5,IE,1336)
138 D P Q:EX=U
139 W !,"54. NUMBER OF TREATMENTS TO THIS"
140 D P Q:EX=U
141 W !," VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
142 D P Q:EX=U
143 W !,"55. TYPE OF EXT BEAM RADIATION....: ",$$GET1^DIQ(165.5,IE,1337)
144 D P Q:EX=U
145 W !,"56. INTERSTITIAL RAD/BRACHYTHERAPY: ",$$GET1^DIQ(165.5,IE,1338)
146 D P Q:EX=U
147 W !,"57. STEREOTACTIC RADIOSURGERY.....: ",$$GET1^DIQ(165.5,IE,1339)
148 D P Q:EX=U
149 W !,"58. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
150 D P Q:EX=U
151 W !
152 D P Q:EX=U
153 W !,"59. RADIATION COMPLICATIONS:"
154 D P Q:EX=U
155 W !," SKIN REACTIONS...............: ",$$GET1^DIQ(165.5,IE,1340)
156 D P Q:EX=U
157 W !," ANOREXIA.....................: ",$$GET1^DIQ(165.5,IE,1341)
158 D P Q:EX=U
159 W !," NAUSEA OR VOMITING...........: ",$$GET1^DIQ(165.5,IE,1342)
160 D P Q:EX=U
161 W !," FATIGUE......................: ",$$GET1^DIQ(165.5,IE,1343)
162 D P Q:EX=U
163 W !," NEUROLOGIC WORSENING.........: ",$$GET1^DIQ(165.5,IE,1344)
164 D P Q:EX=U
165 W !
166 D P Q:EX=U
167 W !,"60. REASON FOR NO RADIATION.......: ",$$GET1^DIQ(165.5,IE,75)
168 D P Q:EX=U
169 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G C
170 W !
171 D P Q:EX=U
172C D ^ONCIPC8C
173 Q
174P ;Print
175 I ($Y'<(LIN-1)) D Q:EX=U
176 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
177 .D HEAD^ONCIPC0 Q
178 Q
Note: See TracBrowser for help on using the repository browser.