- 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 Feb 18, 2025@23:49:50 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
