- ONCIPC8C ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;05/01/00
- ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- ;Print (continued)
- W !?4,"CHEMOTHERAPY",!?4,"------------"
- D P Q:EX=U
- W !,"61. DATE CHEMOTHERAPY STARTED.....: ",$$GET1^DIQ(165.5,IE,53)
- D P Q:EX=U
- W !,"62. CHEMOTHERAPY..................: ",$$GET1^DIQ(165.5,IE,53.2)
- D P Q:EX=U
- W !
- D P Q:EX=U
- W !,"63. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
- D P Q:EX=U
- W !," PROCARBAZINE.................: ",$$GET1^DIQ(165.5,IE,1346)
- D P Q:EX=U
- W !," CCNU.........................: ",$$GET1^DIQ(165.5,IE,1347)
- D P Q:EX=U
- W !," VINCRISTINE..................: ",$$GET1^DIQ(165.5,IE,1348)
- D P Q:EX=U
- W !," HYDROXYUREA..................: ",$$GET1^DIQ(165.5,IE,1349)
- D P Q:EX=U
- W !," METHOTREXATE.................: ",$$GET1^DIQ(165.5,IE,376)
- D P Q:EX=U
- W !," CISPLATIN....................: ",$$GET1^DIQ(165.5,IE,371)
- D P Q:EX=U
- W !," BCNU.........................: ",$$GET1^DIQ(165.5,IE,1350)
- D P Q:EX=U
- W !," BCNU, WAFER IMPLANT..........: ",$$GET1^DIQ(165.5,IE,1351)
- D P Q:EX=U
- W !," VP-16........................: ",$$GET1^DIQ(165.5,IE,1352)
- D P Q:EX=U
- W !," CARBOPLATIN..................: ",$$GET1^DIQ(165.5,IE,1353)
- D P Q:EX=U
- W !," TEMOZOLOMIDE.................: ",$$GET1^DIQ(165.5,IE,1354)
- D P Q:EX=U
- W !," CYCLOPHOSPHAMIDE.............: ",$$GET1^DIQ(165.5,IE,372)
- D P Q:EX=U
- W !," CPT-11.......................: ",$$GET1^DIQ(165.5,IE,1355)
- D P Q:EX=U
- W !," TAMOXIFEN....................: ",$$GET1^DIQ(165.5,IE,1356)
- D P Q:EX=U
- W !," INTERFERON...................: ",$$GET1^DIQ(165.5,IE,384)
- D P Q:EX=U
- W !," CYTARABINE (ARA-C)...........: ",$$GET1^DIQ(165.5,IE,1357)
- D P Q:EX=U
- W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,380)
- D P Q:EX=U
- W !
- D P Q:EX=U
- W !,"64. CHEMOTHERAPEUTIC ROUTE........: ",$$GET1^DIQ(165.5,IE,1358)
- D P Q:EX=U
- W !
- D P Q:EX=U
- W !,"65. CHEMOTHERAPY COMPLICATIONS:"
- D P Q:EX=U
- W !," HEARING LOSS.................: ",$$GET1^DIQ(165.5,IE,1359)
- D P Q:EX=U
- W !," INFECTION....................: ",$$GET1^DIQ(165.5,IE,1360)
- D P Q:EX=U
- W !," NAUSEA AND VOMITING REQUIRING"
- D P Q:EX=U
- W !," CESSATION OF CHEMOTHERAPY...: ",$$GET1^DIQ(165.5,IE,1361)
- D P Q:EX=U
- W !," PERIPHERAL BLOOD COUNT DROP/"
- D P Q:EX=U
- W !," /BLEEDING/CESSATION OF CHEMO"
- D P Q:EX=U
- W !," AND/OR TRANSFUSION..........: ",$$GET1^DIQ(165.5,IE,1362)
- D P Q:EX=U
- W !," PERIPHERAL NEUROPATHY........: ",$$GET1^DIQ(165.5,IE,1363)
- D P Q:EX=U
- W !," RENAL FAILURE................: ",$$GET1^DIQ(165.5,IE,1364)
- D P Q:EX=U
- W !," PULMONARY TOXICITY...........: ",$$GET1^DIQ(165.5,IE,1365)
- D P Q:EX=U
- W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1366)
- D P Q:EX=U
- W !
- D P Q:EX=U
- W !,"66. REASON FOR NO CHEMOTHERAPY....: ",$$GET1^DIQ(165.5,IE,76)
- 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 OT
- W !
- D P Q:EX=U
- OT W !?4,"OTHER THERAPY",!?4,"-------------"
- D P Q:EX=U
- W !,"67. DATE OTHER TREATMENT STARTED..: ",$$GET1^DIQ(165.5,IE,57)
- D P Q:EX=U
- W !,"68. OTHER TREATMENT...............: ",$$GET1^DIQ(165.5,IE,57.2)
- D P Q:EX=U
- W !,"69. KARNOFSKY'S RATING AT TIME OF"
- D P Q:EX=U
- W !," DISCHARGE/TRANSFER...........: ",$$GET1^DIQ(165.5,IE,1367)
- 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 IV
- D P Q:EX=U
- IV S TABLE="RECURRENCE/PROGRESSION"
- I IOST'?1"C".E W !
- W !?4,TABLE,!?4,"----------------------"
- D P Q:EX=U
- W !,"70. DATE OF FIRST RECURRENCE......: ",$$GET1^DIQ(165.5,IE,70)
- D P Q:EX=U
- W !,"71. TYPE OF FIRST RECURRENCE......: ",$$GET1^DIQ(165.5,IE,1372)
- D P Q:EX=U
- W !,"72. DATE OF PROGRESSION...........: ",$$GET1^DIQ(165.5,IE,1368)
- D P Q:EX=U
- W !,"73. TYPE OF PROGRESSION...........: ",$$GET1^DIQ(165.5,IE,1369)
- D P Q:EX=U
- W !,"74. RECURRENCE/PROGRESSION"
- D P Q:EX=U
- W !," DOCUMENTATION................: ",$$GET1^DIQ(165.5,IE,1370)
- D P Q:EX=U
- W !,"75. KARNOFSKY'S RATING AT TIME OF"
- D P Q:EX=U
- W !," RECURRENCE/PROGRESSION.......: ",$$GET1^DIQ(165.5,IE,1371)
- 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 V
- W !
- D P Q:EX=U
- V S TABLE="SUBSEQUENT TREATMENT"
- W !?4,TABLE,!?4,"--------------------"
- D P Q:EX=U
- S DSTRP=""
- I $D(^ONCO(165.5,IE,4,0)) D
- .S SCTIEN=$O(^ONCO(165.5,IE,4,0))
- .Q:SCTIEN=""
- .S DSTRP=$P(^ONCO(165.5,ONCONUM,4,SCTIEN,0),U,1)
- .S Y=DSTRP D DATEOT^ONCOPCE S DSTRP=Y
- W !,"76. DATE OF SUBSEQUENT TREATMENT"
- D P Q:EX=U
- W !," FOR RECURRENCE/PROGRESSION...: ",DSTRP
- D P Q:EX=U
- W !,"77. PROTOCOL PARTCIPATION"
- D P Q:EX=U
- W !," (SUBSEQUENT TREATMENT).......: ",$$GET1^DIQ(165.5,IE,1373)
- D P Q:EX=U
- W !,"78. TYPE OF SUBSEQUENT SURGICAL TX"
- D P Q:EX=U
- W !," FOR RECURRENCE/PROGRESSION...: ",$$GET1^DIQ(165.5,IE,1374)
- D P Q:EX=U
- W !,"79. TYPE OF SUBSEQUENT RADIATION"
- D P Q:EX=U
- W !," TX FOR RECURRENCE/PROGRESSION: ",$$GET1^DIQ(165.5,IE,1375)
- D P Q:EX=U
- W !
- D P Q:EX=U
- W !,"80. TYPE OF SUBSEQUENT CHEMOTHERAPY FOR RECURRENCE/PROGRESSION:"
- D P Q:EX=U
- W !," PROCARBAZINE.................: ",$$GET1^DIQ(165.5,IE,1376)
- D P Q:EX=U
- W !," CCNU.........................: ",$$GET1^DIQ(165.5,IE,1377)
- D P Q:EX=U
- W !," VINCRISTINE..................: ",$$GET1^DIQ(165.5,IE,1378)
- D P Q:EX=U
- W !," HYDROXYUREA..................: ",$$GET1^DIQ(165.5,IE,1379)
- D P Q:EX=U
- W !," METHOTREXATE.................: ",$$GET1^DIQ(165.5,IE,1380)
- D P Q:EX=U
- W !," CISPLATIN....................: ",$$GET1^DIQ(165.5,IE,1381)
- D P Q:EX=U
- W !," BCNU.........................: ",$$GET1^DIQ(165.5,IE,1382)
- D P Q:EX=U
- W !," BCNU, WAFER IMPLANT..........: ",$$GET1^DIQ(165.5,IE,1383)
- D P Q:EX=U
- W !," VP-16........................: ",$$GET1^DIQ(165.5,IE,1384)
- D P Q:EX=U
- W !," CARBOPLATIN..................: ",$$GET1^DIQ(165.5,IE,1385)
- D P Q:EX=U
- W !," TEMOZOLOMIDE.................: ",$$GET1^DIQ(165.5,IE,1386)
- D P Q:EX=U
- W !," CYCLOPHOSPHAMIDE.............: ",$$GET1^DIQ(165.5,IE,1387)
- D P Q:EX=U
- W !," CPT-11.......................: ",$$GET1^DIQ(165.5,IE,1388)
- D P Q:EX=U
- W !," TAMOXIFEN....................: ",$$GET1^DIQ(165.5,IE,1389)
- D P Q:EX=U
- W !," INTERFERON...................: ",$$GET1^DIQ(165.5,IE,1390)
- D P Q:EX=U
- W !," CYTARABINE (ARA-C)...........: ",$$GET1^DIQ(165.5,IE,1391)
- D P Q:EX=U
- W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1392)
- D P Q:EX=U
- W !
- D P Q:EX=U
- W !,"81. OTHER TYPE OF SUBSEQUENT TX"
- D P Q:EX=U
- W !," FOR RECURRENCE/PROGRESSION...: ",$$GET1^DIQ(165.5,IE,1393)
- I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCIPC0 G VI
- W !
- D P Q:EX=U
- VI S TABLE="STATUS AT LAST CONTACT"
- W !?4,TABLE,!?4,"----------------------"
- D P Q:EX=U
- S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
- I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
- W !,"82. DATE OF LAST CONTACT OR DEATH.: ",DLC
- D P Q:EX=U
- W !,"83. VITAL STATUS..................: ",$$GET1^DIQ(160,ONCOPA,15)
- D P Q:EX=U
- S CS="" I $D(^ONCO(165.5,IE,"TS","AA")) D
- .S CSDAT=$O(^ONCO(165.5,IE,"TS","AA",""))
- .S CSI=$O(^ONCO(165.5,IE,"TS","AA",CSDAT,""))
- .S CSPNT=$P(^ONCO(165.5,IE,"TS",CSI,0),U,2)
- .S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
- W !,"84. CANCER STATUS.................: ",CS
- I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
- 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[HONCIPC8C 7719 printed Feb 18, 2025@23:49:51 Page 2
- ONCIPC8C ;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)
- +3 WRITE !?4,"CHEMOTHERAPY",!?4,"------------"
- +4 DO P
- if EX=U
- QUIT
- +5 WRITE !,"61. DATE CHEMOTHERAPY STARTED.....: ",$$GET1^DIQ(165.5,IE,53)
- +6 DO P
- if EX=U
- QUIT
- +7 WRITE !,"62. CHEMOTHERAPY..................: ",$$GET1^DIQ(165.5,IE,53.2)
- +8 DO P
- if EX=U
- QUIT
- +9 WRITE !
- +10 DO P
- if EX=U
- QUIT
- +11 WRITE !,"63. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
- +12 DO P
- if EX=U
- QUIT
- +13 WRITE !," PROCARBAZINE.................: ",$$GET1^DIQ(165.5,IE,1346)
- +14 DO P
- if EX=U
- QUIT
- +15 WRITE !," CCNU.........................: ",$$GET1^DIQ(165.5,IE,1347)
- +16 DO P
- if EX=U
- QUIT
- +17 WRITE !," VINCRISTINE..................: ",$$GET1^DIQ(165.5,IE,1348)
- +18 DO P
- if EX=U
- QUIT
- +19 WRITE !," HYDROXYUREA..................: ",$$GET1^DIQ(165.5,IE,1349)
- +20 DO P
- if EX=U
- QUIT
- +21 WRITE !," METHOTREXATE.................: ",$$GET1^DIQ(165.5,IE,376)
- +22 DO P
- if EX=U
- QUIT
- +23 WRITE !," CISPLATIN....................: ",$$GET1^DIQ(165.5,IE,371)
- +24 DO P
- if EX=U
- QUIT
- +25 WRITE !," BCNU.........................: ",$$GET1^DIQ(165.5,IE,1350)
- +26 DO P
- if EX=U
- QUIT
- +27 WRITE !," BCNU, WAFER IMPLANT..........: ",$$GET1^DIQ(165.5,IE,1351)
- +28 DO P
- if EX=U
- QUIT
- +29 WRITE !," VP-16........................: ",$$GET1^DIQ(165.5,IE,1352)
- +30 DO P
- if EX=U
- QUIT
- +31 WRITE !," CARBOPLATIN..................: ",$$GET1^DIQ(165.5,IE,1353)
- +32 DO P
- if EX=U
- QUIT
- +33 WRITE !," TEMOZOLOMIDE.................: ",$$GET1^DIQ(165.5,IE,1354)
- +34 DO P
- if EX=U
- QUIT
- +35 WRITE !," CYCLOPHOSPHAMIDE.............: ",$$GET1^DIQ(165.5,IE,372)
- +36 DO P
- if EX=U
- QUIT
- +37 WRITE !," CPT-11.......................: ",$$GET1^DIQ(165.5,IE,1355)
- +38 DO P
- if EX=U
- QUIT
- +39 WRITE !," TAMOXIFEN....................: ",$$GET1^DIQ(165.5,IE,1356)
- +40 DO P
- if EX=U
- QUIT
- +41 WRITE !," INTERFERON...................: ",$$GET1^DIQ(165.5,IE,384)
- +42 DO P
- if EX=U
- QUIT
- +43 WRITE !," CYTARABINE (ARA-C)...........: ",$$GET1^DIQ(165.5,IE,1357)
- +44 DO P
- if EX=U
- QUIT
- +45 WRITE !," OTHER........................: ",$$GET1^DIQ(165.5,IE,380)
- +46 DO P
- if EX=U
- QUIT
- +47 WRITE !
- +48 DO P
- if EX=U
- QUIT
- +49 WRITE !,"64. CHEMOTHERAPEUTIC ROUTE........: ",$$GET1^DIQ(165.5,IE,1358)
- +50 DO P
- if EX=U
- QUIT
- +51 WRITE !
- +52 DO P
- if EX=U
- QUIT
- +53 WRITE !,"65. CHEMOTHERAPY COMPLICATIONS:"
- +54 DO P
- if EX=U
- QUIT
- +55 WRITE !," HEARING LOSS.................: ",$$GET1^DIQ(165.5,IE,1359)
- +56 DO P
- if EX=U
- QUIT
- +57 WRITE !," INFECTION....................: ",$$GET1^DIQ(165.5,IE,1360)
- +58 DO P
- if EX=U
- QUIT
- +59 WRITE !," NAUSEA AND VOMITING REQUIRING"
- +60 DO P
- if EX=U
- QUIT
- +61 WRITE !," CESSATION OF CHEMOTHERAPY...: ",$$GET1^DIQ(165.5,IE,1361)
- +62 DO P
- if EX=U
- QUIT
- +63 WRITE !," PERIPHERAL BLOOD COUNT DROP/"
- +64 DO P
- if EX=U
- QUIT
- +65 WRITE !," /BLEEDING/CESSATION OF CHEMO"
- +66 DO P
- if EX=U
- QUIT
- +67 WRITE !," AND/OR TRANSFUSION..........: ",$$GET1^DIQ(165.5,IE,1362)
- +68 DO P
- if EX=U
- QUIT
- +69 WRITE !," PERIPHERAL NEUROPATHY........: ",$$GET1^DIQ(165.5,IE,1363)
- +70 DO P
- if EX=U
- QUIT
- +71 WRITE !," RENAL FAILURE................: ",$$GET1^DIQ(165.5,IE,1364)
- +72 DO P
- if EX=U
- QUIT
- +73 WRITE !," PULMONARY TOXICITY...........: ",$$GET1^DIQ(165.5,IE,1365)
- +74 DO P
- if EX=U
- QUIT
- +75 WRITE !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1366)
- +76 DO P
- if EX=U
- QUIT
- +77 WRITE !
- +78 DO P
- if EX=U
- QUIT
- +79 WRITE !,"66. REASON FOR NO CHEMOTHERAPY....: ",$$GET1^DIQ(165.5,IE,76)
- +80 DO P
- if EX=U
- QUIT
- +81 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if 'Y
- QUIT
- DO HEAD^ONCIPC0
- GOTO OT
- +82 WRITE !
- +83 DO P
- if EX=U
- QUIT
- OT WRITE !?4,"OTHER THERAPY",!?4,"-------------"
- +1 DO P
- if EX=U
- QUIT
- +2 WRITE !,"67. DATE OTHER TREATMENT STARTED..: ",$$GET1^DIQ(165.5,IE,57)
- +3 DO P
- if EX=U
- QUIT
- +4 WRITE !,"68. OTHER TREATMENT...............: ",$$GET1^DIQ(165.5,IE,57.2)
- +5 DO P
- if EX=U
- QUIT
- +6 WRITE !,"69. KARNOFSKY'S RATING AT TIME OF"
- +7 DO P
- if EX=U
- QUIT
- +8 WRITE !," DISCHARGE/TRANSFER...........: ",$$GET1^DIQ(165.5,IE,1367)
- +9 DO P
- if EX=U
- QUIT
- +10 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if 'Y
- QUIT
- DO HEAD^ONCIPC0
- GOTO IV
- +11 DO P
- if EX=U
- QUIT
- IV SET TABLE="RECURRENCE/PROGRESSION"
- +1 IF IOST'?1"C".E
- WRITE !
- +2 WRITE !?4,TABLE,!?4,"----------------------"
- +3 DO P
- if EX=U
- QUIT
- +4 WRITE !,"70. DATE OF FIRST RECURRENCE......: ",$$GET1^DIQ(165.5,IE,70)
- +5 DO P
- if EX=U
- QUIT
- +6 WRITE !,"71. TYPE OF FIRST RECURRENCE......: ",$$GET1^DIQ(165.5,IE,1372)
- +7 DO P
- if EX=U
- QUIT
- +8 WRITE !,"72. DATE OF PROGRESSION...........: ",$$GET1^DIQ(165.5,IE,1368)
- +9 DO P
- if EX=U
- QUIT
- +10 WRITE !,"73. TYPE OF PROGRESSION...........: ",$$GET1^DIQ(165.5,IE,1369)
- +11 DO P
- if EX=U
- QUIT
- +12 WRITE !,"74. RECURRENCE/PROGRESSION"
- +13 DO P
- if EX=U
- QUIT
- +14 WRITE !," DOCUMENTATION................: ",$$GET1^DIQ(165.5,IE,1370)
- +15 DO P
- if EX=U
- QUIT
- +16 WRITE !,"75. KARNOFSKY'S RATING AT TIME OF"
- +17 DO P
- if EX=U
- QUIT
- +18 WRITE !," RECURRENCE/PROGRESSION.......: ",$$GET1^DIQ(165.5,IE,1371)
- +19 DO P
- if EX=U
- QUIT
- +20 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if 'Y
- QUIT
- DO HEAD^ONCIPC0
- GOTO V
- +21 WRITE !
- +22 DO P
- if EX=U
- QUIT
- V SET TABLE="SUBSEQUENT TREATMENT"
- +1 WRITE !?4,TABLE,!?4,"--------------------"
- +2 DO P
- if EX=U
- QUIT
- +3 SET DSTRP=""
- +4 IF $DATA(^ONCO(165.5,IE,4,0))
- Begin DoDot:1
- +5 SET SCTIEN=$ORDER(^ONCO(165.5,IE,4,0))
- +6 if SCTIEN=""
- QUIT
- +7 SET DSTRP=$PIECE(^ONCO(165.5,ONCONUM,4,SCTIEN,0),U,1)
- +8 SET Y=DSTRP
- DO DATEOT^ONCOPCE
- SET DSTRP=Y
- End DoDot:1
- +9 WRITE !,"76. DATE OF SUBSEQUENT TREATMENT"
- +10 DO P
- if EX=U
- QUIT
- +11 WRITE !," FOR RECURRENCE/PROGRESSION...: ",DSTRP
- +12 DO P
- if EX=U
- QUIT
- +13 WRITE !,"77. PROTOCOL PARTCIPATION"
- +14 DO P
- if EX=U
- QUIT
- +15 WRITE !," (SUBSEQUENT TREATMENT).......: ",$$GET1^DIQ(165.5,IE,1373)
- +16 DO P
- if EX=U
- QUIT
- +17 WRITE !,"78. TYPE OF SUBSEQUENT SURGICAL TX"
- +18 DO P
- if EX=U
- QUIT
- +19 WRITE !," FOR RECURRENCE/PROGRESSION...: ",$$GET1^DIQ(165.5,IE,1374)
- +20 DO P
- if EX=U
- QUIT
- +21 WRITE !,"79. TYPE OF SUBSEQUENT RADIATION"
- +22 DO P
- if EX=U
- QUIT
- +23 WRITE !," TX FOR RECURRENCE/PROGRESSION: ",$$GET1^DIQ(165.5,IE,1375)
- +24 DO P
- if EX=U
- QUIT
- +25 WRITE !
- +26 DO P
- if EX=U
- QUIT
- +27 WRITE !,"80. TYPE OF SUBSEQUENT CHEMOTHERAPY FOR RECURRENCE/PROGRESSION:"
- +28 DO P
- if EX=U
- QUIT
- +29 WRITE !," PROCARBAZINE.................: ",$$GET1^DIQ(165.5,IE,1376)
- +30 DO P
- if EX=U
- QUIT
- +31 WRITE !," CCNU.........................: ",$$GET1^DIQ(165.5,IE,1377)
- +32 DO P
- if EX=U
- QUIT
- +33 WRITE !," VINCRISTINE..................: ",$$GET1^DIQ(165.5,IE,1378)
- +34 DO P
- if EX=U
- QUIT
- +35 WRITE !," HYDROXYUREA..................: ",$$GET1^DIQ(165.5,IE,1379)
- +36 DO P
- if EX=U
- QUIT
- +37 WRITE !," METHOTREXATE.................: ",$$GET1^DIQ(165.5,IE,1380)
- +38 DO P
- if EX=U
- QUIT
- +39 WRITE !," CISPLATIN....................: ",$$GET1^DIQ(165.5,IE,1381)
- +40 DO P
- if EX=U
- QUIT
- +41 WRITE !," BCNU.........................: ",$$GET1^DIQ(165.5,IE,1382)
- +42 DO P
- if EX=U
- QUIT
- +43 WRITE !," BCNU, WAFER IMPLANT..........: ",$$GET1^DIQ(165.5,IE,1383)
- +44 DO P
- if EX=U
- QUIT
- +45 WRITE !," VP-16........................: ",$$GET1^DIQ(165.5,IE,1384)
- +46 DO P
- if EX=U
- QUIT
- +47 WRITE !," CARBOPLATIN..................: ",$$GET1^DIQ(165.5,IE,1385)
- +48 DO P
- if EX=U
- QUIT
- +49 WRITE !," TEMOZOLOMIDE.................: ",$$GET1^DIQ(165.5,IE,1386)
- +50 DO P
- if EX=U
- QUIT
- +51 WRITE !," CYCLOPHOSPHAMIDE.............: ",$$GET1^DIQ(165.5,IE,1387)
- +52 DO P
- if EX=U
- QUIT
- +53 WRITE !," CPT-11.......................: ",$$GET1^DIQ(165.5,IE,1388)
- +54 DO P
- if EX=U
- QUIT
- +55 WRITE !," TAMOXIFEN....................: ",$$GET1^DIQ(165.5,IE,1389)
- +56 DO P
- if EX=U
- QUIT
- +57 WRITE !," INTERFERON...................: ",$$GET1^DIQ(165.5,IE,1390)
- +58 DO P
- if EX=U
- QUIT
- +59 WRITE !," CYTARABINE (ARA-C)...........: ",$$GET1^DIQ(165.5,IE,1391)
- +60 DO P
- if EX=U
- QUIT
- +61 WRITE !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1392)
- +62 DO P
- if EX=U
- QUIT
- +63 WRITE !
- +64 DO P
- if EX=U
- QUIT
- +65 WRITE !,"81. OTHER TYPE OF SUBSEQUENT TX"
- +66 DO P
- if EX=U
- QUIT
- +67 WRITE !," FOR RECURRENCE/PROGRESSION...: ",$$GET1^DIQ(165.5,IE,1393)
- +68 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if 'Y
- QUIT
- DO HEAD^ONCIPC0
- GOTO VI
- +69 WRITE !
- +70 DO P
- if EX=U
- QUIT
- VI SET TABLE="STATUS AT LAST CONTACT"
- +1 WRITE !?4,TABLE,!?4,"----------------------"
- +2 DO P
- if EX=U
- QUIT
- +3 SET DLC=""
- IF $DATA(^ONCO(160,ONCOPA,"F","B"))
- SET DLC=$ORDER(^ONCO(160,ONCOPA,"F","B",""),-1)
- +4 IF DLC'=""
- SET Y=DLC
- DO DATEOT^ONCOPCE
- SET DLC=Y
- +5 WRITE !,"82. DATE OF LAST CONTACT OR DEATH.: ",DLC
- +6 DO P
- if EX=U
- QUIT
- +7 WRITE !,"83. VITAL STATUS..................: ",$$GET1^DIQ(160,ONCOPA,15)
- +8 DO P
- if EX=U
- QUIT
- +9 SET CS=""
- IF $DATA(^ONCO(165.5,IE,"TS","AA"))
- Begin DoDot:1
- +10 SET CSDAT=$ORDER(^ONCO(165.5,IE,"TS","AA",""))
- +11 SET CSI=$ORDER(^ONCO(165.5,IE,"TS","AA",CSDAT,""))
- +12 SET CSPNT=$PIECE(^ONCO(165.5,IE,"TS",CSI,0),U,2)
- +13 SET CS=$PIECE(^ONCO(164.42,CSPNT,0),U,1)
- End DoDot:1
- +14 WRITE !,"84. CANCER STATUS.................: ",CS
- +15 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- +16 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