| [613] | 1 | ONCIPC8B ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;05/01/00
|
|---|
| 2 | ;;2.11;ONCOLOGY;**26**;Mar 07, 1995
|
|---|
| 3 | ;Print (continued)
|
|---|
| 4 | III 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
|
|---|
| 23 | S 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
|
|---|
| 84 | CDS 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
|
|---|
| 129 | R 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
|
|---|
| 172 | C D ^ONCIPC8C
|
|---|
| 173 | Q
|
|---|
| 174 | P ;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
|
|---|
