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 Dec 13, 2024@02:23:29 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
