ONCIPC8B ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;05/01/00
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Print (continued)
III S TABLE="FIRST COURSE OF TREATMENT"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCIPC0
K LINE S $P(LINE,"-",25)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
W !,"36. PROTOCOL PARTICIPATION........: ",$$GET1^DIQ(165.5,IE,1312)
D P Q:EX=U
W !,"37. PROTOCOL PHASE................: ",$$GET1^DIQ(165.5,IE,1313)
D P Q:EX=U
W !,"38. DATE OF FIRST COURSE TREATMENT: ",DOFCT
D P Q:EX=U
W !,"39. DATE OF INPATIENT ADMISSION...: ",$$GET1^DIQ(165.5,IE,1)
D P Q:EX=U
W !,"40. DATE OF INPATIENT DISCHARGE...: ",$$GET1^DIQ(165.5,IE,1.1)
D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G S
W !
D P Q:EX=U
S W !?4,"SURGERY",!?4,"-------"
D P Q:EX=U
W !?4,"NON CANCER-DIRECTED SURGERY"
D P Q:EX=U
W !?4,"---------------------------"
D P Q:EX=U
W !,"41. DATE OF NON CANCER-DIRECTED"
D P Q:EX=U
W !," SURGERY......................: ",$$GET1^DIQ(165.5,IE,58.3)
D P Q:EX=U
W !
D P Q:EX=U
W !,"42. DIAGNOSTIC/EVALUATIVE/PALLIATIVE (NON CANCER-DIRECTED) SURGERY:"
D P Q:EX=U
W !," NONE, NO NON CA-DIRECTED"
D P Q:EX=U
W !," SURGICAL PROCEDURE..........: ",$$GET1^DIQ(165.5,IE,1314)
D P Q:EX=U
W !," VENTRICULOSTOMY, OR EXTERNAL"
D P Q:EX=U
W !," VENTRICULAR DRAIN...........: ",$$GET1^DIQ(165.5,IE,1315)
D P Q:EX=U
W !," CSF SHUNT,"
D P Q:EX=U
W !," VENTRICULOPERITONEAL........: ",$$GET1^DIQ(165.5,IE,1316)
D P Q:EX=U
W !," CSF SHUNT,"
D P Q:EX=U
W !," THIRD VENTRICULOSTOMY.......: ",$$GET1^DIQ(165.5,IE,1317)
D P Q:EX=U
W !," CSF SHUNT,"
D P Q:EX=U
W !," OTHER.......................: ",$$GET1^DIQ(165.5,IE,1318)
D P Q:EX=U
W !," STEREOTACTIC BIOPSY..........: ",$$GET1^DIQ(165.5,IE,1319)
D P Q:EX=U
W !," OPEN BRAIN BIOPSY............: ",$$GET1^DIQ(165.5,IE,1320)
D P Q:EX=U
W !," OPEN BIOPSY OF SPINAL CORD"
D P Q:EX=U
W !," TUMOR.......................: ",$$GET1^DIQ(165.5,IE,1321)
D P Q:EX=U
W !," LAMINECTOMY FOR SPINAL CORD"
D P Q:EX=U
W !," TUMOR, W/O TUMOR RESECTION,"
D P Q:EX=U
W !," W/O OPENING DURA...........: ",$$GET1^DIQ(165.5,IE,1322)
D P Q:EX=U
W !," LAMINECTOMY FOR SPINAL CORD"
D P Q:EX=U
W !," TUMOR, W/O TUMOR RESECTION,"
D P Q:EX=U
W !," W OPENING DURA.............: ",$$GET1^DIQ(165.5,IE,1323)
D P Q:EX=U
W !," SURGERY, NOS.................: ",$$GET1^DIQ(165.5,IE,1324)
D P Q:EX=U
W !," UNKNOWN IF SURGERY DONE......: ",$$GET1^DIQ(165.5,IE,1325)
D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G CDS
W !
D P Q:EX=U
CDS W !?4,"CANCER-DIRECTED SURGERY"
D P Q:EX=U
W !?4,"-----------------------"
D P Q:EX=U
W !,"43. DATE OF CA-DIRECTED SURGERY...: ",$$GET1^DIQ(165.5,IE,50)
D P Q:EX=U
W !,"44. SURGICAL APPROACH.............: ",$$GET1^DIQ(165.5,IE,1326)
D P Q:EX=U
W !,"45. EXTENT OF SURGICAL RESECTION..: ",$$GET1^DIQ(165.5,IE,1327)
D P Q:EX=U
W !,"46. SIZE OF RESIDUAL PRIMARY TUMOR"
D P Q:EX=U
W !," AFTER CA-DIR SURGERY.........: ",$$GET1^DIQ(165.5,IE,1328)
D P Q:EX=U
W !,"47. SIZE OF RESIDUAL PRIMARY TUMOR"
D P Q:EX=U
W !," AFTER CA-DIR SURGERY (SOURCE): ",$$GET1^DIQ(165.5,IE,1329)
D P Q:EX=U
W !
D P Q:EX=U
W !,"48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
D P Q:EX=U
W !," ANESTHETIC PROBLEM...........: ",$$GET1^DIQ(165.5,IE,1330)
D P Q:EX=U
W !," HEMORRHAGE AT OPERATIVE SITE.: ",$$GET1^DIQ(165.5,IE,1331)
D P Q:EX=U
W !," SEIZURE......................: ",$$GET1^DIQ(165.5,IE,1332)
D P Q:EX=U
W !," INFECTION(S).................: ",$$GET1^DIQ(165.5,IE,1333)
D P Q:EX=U
W !," DVT (DEEP VENOUS THROMBOSIS).: ",$$GET1^DIQ(165.5,IE,1334)
D P Q:EX=U
W !," PERSISTENT NEUROLOGICAL"
D P Q:EX=U
W !," WORSENING > 4 DAYS POST-OP..: ",$$GET1^DIQ(165.5,IE,1335)
D P Q:EX=U
W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,360)
D P Q:EX=U
W !
D P Q:EX=U
W !,"49. REASON FOR NO SURGERY.........: ",$$GET1^DIQ(165.5,IE,58)
D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G R
W !
D P Q:EX=U
R W !?4,"RADIATION THERAPY",!?4,"-----------------"
D P Q:EX=U
W !,"50. RADIATION THERAPY.............: ",$$GET1^DIQ(165.5,IE,1345)
D P Q:EX=U
W !,"51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
D P Q:EX=U
W !,"52. DATE RADIATION ENDED..........: ",$$GET1^DIQ(165.5,IE,361)
D P Q:EX=U
W !,"53. TOTAL RADIATION DOSE (cGy)....: ",$$GET1^DIQ(165.5,IE,1336)
D P Q:EX=U
W !,"54. NUMBER OF TREATMENTS TO THIS"
D P Q:EX=U
W !," VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
D P Q:EX=U
W !,"55. TYPE OF EXT BEAM RADIATION....: ",$$GET1^DIQ(165.5,IE,1337)
D P Q:EX=U
W !,"56. INTERSTITIAL RAD/BRACHYTHERAPY: ",$$GET1^DIQ(165.5,IE,1338)
D P Q:EX=U
W !,"57. STEREOTACTIC RADIOSURGERY.....: ",$$GET1^DIQ(165.5,IE,1339)
D P Q:EX=U
W !,"58. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
D P Q:EX=U
W !
D P Q:EX=U
W !,"59. RADIATION COMPLICATIONS:"
D P Q:EX=U
W !," SKIN REACTIONS...............: ",$$GET1^DIQ(165.5,IE,1340)
D P Q:EX=U
W !," ANOREXIA.....................: ",$$GET1^DIQ(165.5,IE,1341)
D P Q:EX=U
W !," NAUSEA OR VOMITING...........: ",$$GET1^DIQ(165.5,IE,1342)
D P Q:EX=U
W !," FATIGUE......................: ",$$GET1^DIQ(165.5,IE,1343)
D P Q:EX=U
W !," NEUROLOGIC WORSENING.........: ",$$GET1^DIQ(165.5,IE,1344)
D P Q:EX=U
W !
D P Q:EX=U
W !,"60. REASON FOR NO RADIATION.......: ",$$GET1^DIQ(165.5,IE,75)
D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G C
W !
D P Q:EX=U
C D ^ONCIPC8C
Q
P ;Print
I ($Y'<(LIN-1)) D Q:EX=U
.I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HEAD^ONCIPC0 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCIPC8B 6048 printed Apr 09, 2024@21:29:44 Page 2
ONCIPC8B ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;05/01/00
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Print (continued)
III SET TABLE="FIRST COURSE OF TREATMENT"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCIPC0
+2 KILL LINE
SET $PIECE(LINE,"-",25)="-"
+3 WRITE !?4,TABLE,!?4,LINE
+4 DO P
if EX=U
QUIT
+5 SET D0=ONCONUM
DO DFC^ONCOCOM
SET DOFCT=Y
+6 WRITE !,"36. PROTOCOL PARTICIPATION........: ",$$GET1^DIQ(165.5,IE,1312)
+7 DO P
if EX=U
QUIT
+8 WRITE !,"37. PROTOCOL PHASE................: ",$$GET1^DIQ(165.5,IE,1313)
+9 DO P
if EX=U
QUIT
+10 WRITE !,"38. DATE OF FIRST COURSE TREATMENT: ",DOFCT
+11 DO P
if EX=U
QUIT
+12 WRITE !,"39. DATE OF INPATIENT ADMISSION...: ",$$GET1^DIQ(165.5,IE,1)
+13 DO P
if EX=U
QUIT
+14 WRITE !,"40. DATE OF INPATIENT DISCHARGE...: ",$$GET1^DIQ(165.5,IE,1.1)
+15 DO P
if EX=U
QUIT
+16 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCIPC0
GOTO S
+17 WRITE !
+18 DO P
if EX=U
QUIT
S WRITE !?4,"SURGERY",!?4,"-------"
+1 DO P
if EX=U
QUIT
+2 WRITE !?4,"NON CANCER-DIRECTED SURGERY"
+3 DO P
if EX=U
QUIT
+4 WRITE !?4,"---------------------------"
+5 DO P
if EX=U
QUIT
+6 WRITE !,"41. DATE OF NON CANCER-DIRECTED"
+7 DO P
if EX=U
QUIT
+8 WRITE !," SURGERY......................: ",$$GET1^DIQ(165.5,IE,58.3)
+9 DO P
if EX=U
QUIT
+10 WRITE !
+11 DO P
if EX=U
QUIT
+12 WRITE !,"42. DIAGNOSTIC/EVALUATIVE/PALLIATIVE (NON CANCER-DIRECTED) SURGERY:"
+13 DO P
if EX=U
QUIT
+14 WRITE !," NONE, NO NON CA-DIRECTED"
+15 DO P
if EX=U
QUIT
+16 WRITE !," SURGICAL PROCEDURE..........: ",$$GET1^DIQ(165.5,IE,1314)
+17 DO P
if EX=U
QUIT
+18 WRITE !," VENTRICULOSTOMY, OR EXTERNAL"
+19 DO P
if EX=U
QUIT
+20 WRITE !," VENTRICULAR DRAIN...........: ",$$GET1^DIQ(165.5,IE,1315)
+21 DO P
if EX=U
QUIT
+22 WRITE !," CSF SHUNT,"
+23 DO P
if EX=U
QUIT
+24 WRITE !," VENTRICULOPERITONEAL........: ",$$GET1^DIQ(165.5,IE,1316)
+25 DO P
if EX=U
QUIT
+26 WRITE !," CSF SHUNT,"
+27 DO P
if EX=U
QUIT
+28 WRITE !," THIRD VENTRICULOSTOMY.......: ",$$GET1^DIQ(165.5,IE,1317)
+29 DO P
if EX=U
QUIT
+30 WRITE !," CSF SHUNT,"
+31 DO P
if EX=U
QUIT
+32 WRITE !," OTHER.......................: ",$$GET1^DIQ(165.5,IE,1318)
+33 DO P
if EX=U
QUIT
+34 WRITE !," STEREOTACTIC BIOPSY..........: ",$$GET1^DIQ(165.5,IE,1319)
+35 DO P
if EX=U
QUIT
+36 WRITE !," OPEN BRAIN BIOPSY............: ",$$GET1^DIQ(165.5,IE,1320)
+37 DO P
if EX=U
QUIT
+38 WRITE !," OPEN BIOPSY OF SPINAL CORD"
+39 DO P
if EX=U
QUIT
+40 WRITE !," TUMOR.......................: ",$$GET1^DIQ(165.5,IE,1321)
+41 DO P
if EX=U
QUIT
+42 WRITE !," LAMINECTOMY FOR SPINAL CORD"
+43 DO P
if EX=U
QUIT
+44 WRITE !," TUMOR, W/O TUMOR RESECTION,"
+45 DO P
if EX=U
QUIT
+46 WRITE !," W/O OPENING DURA...........: ",$$GET1^DIQ(165.5,IE,1322)
+47 DO P
if EX=U
QUIT
+48 WRITE !," LAMINECTOMY FOR SPINAL CORD"
+49 DO P
if EX=U
QUIT
+50 WRITE !," TUMOR, W/O TUMOR RESECTION,"
+51 DO P
if EX=U
QUIT
+52 WRITE !," W OPENING DURA.............: ",$$GET1^DIQ(165.5,IE,1323)
+53 DO P
if EX=U
QUIT
+54 WRITE !," SURGERY, NOS.................: ",$$GET1^DIQ(165.5,IE,1324)
+55 DO P
if EX=U
QUIT
+56 WRITE !," UNKNOWN IF SURGERY DONE......: ",$$GET1^DIQ(165.5,IE,1325)
+57 DO P
if EX=U
QUIT
+58 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCIPC0
GOTO CDS
+59 WRITE !
+60 DO P
if EX=U
QUIT
CDS WRITE !?4,"CANCER-DIRECTED SURGERY"
+1 DO P
if EX=U
QUIT
+2 WRITE !?4,"-----------------------"
+3 DO P
if EX=U
QUIT
+4 WRITE !,"43. DATE OF CA-DIRECTED SURGERY...: ",$$GET1^DIQ(165.5,IE,50)
+5 DO P
if EX=U
QUIT
+6 WRITE !,"44. SURGICAL APPROACH.............: ",$$GET1^DIQ(165.5,IE,1326)
+7 DO P
if EX=U
QUIT
+8 WRITE !,"45. EXTENT OF SURGICAL RESECTION..: ",$$GET1^DIQ(165.5,IE,1327)
+9 DO P
if EX=U
QUIT
+10 WRITE !,"46. SIZE OF RESIDUAL PRIMARY TUMOR"
+11 DO P
if EX=U
QUIT
+12 WRITE !," AFTER CA-DIR SURGERY.........: ",$$GET1^DIQ(165.5,IE,1328)
+13 DO P
if EX=U
QUIT
+14 WRITE !,"47. SIZE OF RESIDUAL PRIMARY TUMOR"
+15 DO P
if EX=U
QUIT
+16 WRITE !," AFTER CA-DIR SURGERY (SOURCE): ",$$GET1^DIQ(165.5,IE,1329)
+17 DO P
if EX=U
QUIT
+18 WRITE !
+19 DO P
if EX=U
QUIT
+20 WRITE !,"48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
+21 DO P
if EX=U
QUIT
+22 WRITE !," ANESTHETIC PROBLEM...........: ",$$GET1^DIQ(165.5,IE,1330)
+23 DO P
if EX=U
QUIT
+24 WRITE !," HEMORRHAGE AT OPERATIVE SITE.: ",$$GET1^DIQ(165.5,IE,1331)
+25 DO P
if EX=U
QUIT
+26 WRITE !," SEIZURE......................: ",$$GET1^DIQ(165.5,IE,1332)
+27 DO P
if EX=U
QUIT
+28 WRITE !," INFECTION(S).................: ",$$GET1^DIQ(165.5,IE,1333)
+29 DO P
if EX=U
QUIT
+30 WRITE !," DVT (DEEP VENOUS THROMBOSIS).: ",$$GET1^DIQ(165.5,IE,1334)
+31 DO P
if EX=U
QUIT
+32 WRITE !," PERSISTENT NEUROLOGICAL"
+33 DO P
if EX=U
QUIT
+34 WRITE !," WORSENING > 4 DAYS POST-OP..: ",$$GET1^DIQ(165.5,IE,1335)
+35 DO P
if EX=U
QUIT
+36 WRITE !," OTHER........................: ",$$GET1^DIQ(165.5,IE,360)
+37 DO P
if EX=U
QUIT
+38 WRITE !
+39 DO P
if EX=U
QUIT
+40 WRITE !,"49. REASON FOR NO SURGERY.........: ",$$GET1^DIQ(165.5,IE,58)
+41 DO P
if EX=U
QUIT
+42 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCIPC0
GOTO R
+43 WRITE !
+44 DO P
if EX=U
QUIT
R WRITE !?4,"RADIATION THERAPY",!?4,"-----------------"
+1 DO P
if EX=U
QUIT
+2 WRITE !,"50. RADIATION THERAPY.............: ",$$GET1^DIQ(165.5,IE,1345)
+3 DO P
if EX=U
QUIT
+4 WRITE !,"51. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
+5 DO P
if EX=U
QUIT
+6 WRITE !,"52. DATE RADIATION ENDED..........: ",$$GET1^DIQ(165.5,IE,361)
+7 DO P
if EX=U
QUIT
+8 WRITE !,"53. TOTAL RADIATION DOSE (cGy)....: ",$$GET1^DIQ(165.5,IE,1336)
+9 DO P
if EX=U
QUIT
+10 WRITE !,"54. NUMBER OF TREATMENTS TO THIS"
+11 DO P
if EX=U
QUIT
+12 WRITE !," VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
+13 DO P
if EX=U
QUIT
+14 WRITE !,"55. TYPE OF EXT BEAM RADIATION....: ",$$GET1^DIQ(165.5,IE,1337)
+15 DO P
if EX=U
QUIT
+16 WRITE !,"56. INTERSTITIAL RAD/BRACHYTHERAPY: ",$$GET1^DIQ(165.5,IE,1338)
+17 DO P
if EX=U
QUIT
+18 WRITE !,"57. STEREOTACTIC RADIOSURGERY.....: ",$$GET1^DIQ(165.5,IE,1339)
+19 DO P
if EX=U
QUIT
+20 WRITE !,"58. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
+21 DO P
if EX=U
QUIT
+22 WRITE !
+23 DO P
if EX=U
QUIT
+24 WRITE !,"59. RADIATION COMPLICATIONS:"
+25 DO P
if EX=U
QUIT
+26 WRITE !," SKIN REACTIONS...............: ",$$GET1^DIQ(165.5,IE,1340)
+27 DO P
if EX=U
QUIT
+28 WRITE !," ANOREXIA.....................: ",$$GET1^DIQ(165.5,IE,1341)
+29 DO P
if EX=U
QUIT
+30 WRITE !," NAUSEA OR VOMITING...........: ",$$GET1^DIQ(165.5,IE,1342)
+31 DO P
if EX=U
QUIT
+32 WRITE !," FATIGUE......................: ",$$GET1^DIQ(165.5,IE,1343)
+33 DO P
if EX=U
QUIT
+34 WRITE !," NEUROLOGIC WORSENING.........: ",$$GET1^DIQ(165.5,IE,1344)
+35 DO P
if EX=U
QUIT
+36 WRITE !
+37 DO P
if EX=U
QUIT
+38 WRITE !,"60. REASON FOR NO RADIATION.......: ",$$GET1^DIQ(165.5,IE,75)
+39 DO P
if EX=U
QUIT
+40 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCIPC0
GOTO C
+41 WRITE !
+42 DO P
if EX=U
QUIT
C DO ^ONCIPC8C
+1 QUIT
P ;Print
+1 IF ($Y'<(LIN-1))
Begin DoDot:1
+2 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HEAD^ONCIPC0
QUIT
End DoDot:1
if EX=U
QUIT
+4 QUIT
