ONCPPC9B ;HIRMFO/GWB - PCE Studies of Prostate Cancer -Print ;8/15/96
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
VI S TABLE="TABLE VI - SUBSEQUENT TREATMENT"
I IOST'?1"C".E W ! D P Q:EX=U W ! D P Q:EX=U
W !?25,TABLE,! D P Q:EX=U
W !,"REASON FOR SECOND COURSE OF THERAPY: ",ONC(165.5,IEN,656) D P Q:EX=U
ST I $D(^ONCO(165.5,ONCONUM,4,0)) S SCTIEN=0 F S SCTIEN=$O(^ONCO(165.5,ONCONUM,4,SCTIEN)) Q:SCTIEN'>0 D SCT I IOST?1"C".E Q:'Y
I IOST?1"C".E G:'Y KILL
G PRTC
SCT S DIC="^ONCO(165.5,",DR=60,DA=ONCONUM,DIQ="ONC"
S DR(165.51)=".01:32",DA(165.51)=SCTIEN D EN^DIQ1
S SURG=ONC(165.51,SCTIEN,.04),(SURG1,SURG2)=""
S LOS=$L(SURG) I LOS<43 S SURG1=SURG G SS
S NOP=$L($E(SURG,1,42)," ")
S SURG1=$P(SURG," ",1,NOP-1),SURG2=$P(SURG," ",NOP,999)
I IOST?1"C".E,SCTIEN>1 W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)",! G SS
D P Q:EX=U
SS W !!,"SUBSEQUENT SURGERY #",SCTIEN,":",! D P Q:EX=U
W !,"TYPE OF SURGERY....................: ",SURG1 D P Q:EX=U
W:SURG2'="" !,?40,SURG2 D P Q:EX=U
W !,"DATE OF SURGERY....................: ",ONC(165.51,SCTIEN,.041) D P Q:EX=U
W !!,"SUBSEQUENT RADIATION THERAPY #",SCTIEN,":",! D P Q:EX=U
W !,"RADIATION THERAPY..................: ",ONC(165.51,SCTIEN,16) D P Q:EX=U
W !,"DATE RADIATON THERAPY BEGAN........: ",ONC(165.51,SCTIEN,.051)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)",! G IR
D P Q:EX=U
IR W !,"INTERSTITIAL RADIATION.............: ",ONC(165.51,SCTIEN,4) D P Q:EX=U
W !!," INTERSTITIAL RADIATION ADMINISTERED:",! D P Q:EX=U
W !," IODINE 125.....................: ",ONC(165.51,SCTIEN,5) D P Q:EX=U
W !," GOLD 198.......................: ",ONC(165.51,SCTIEN,6) D P Q:EX=U
W !," PALLADIUM 103..................: ",ONC(165.51,SCTIEN,7) D P Q:EX=U
W !," IRIDIUM 192....................: ",ONC(165.51,SCTIEN,8) D P Q:EX=U
W !," OTHER INTERSTITIAL, NOS........: ",ONC(165.51,SCTIEN,9)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)",! G ER
D P Q:EX=U
ER W !,"EXTERNAL RADIATION.................: ",ONC(165.51,SCTIEN,10) D P Q:EX=U
W !!," EXTERNAL RADIATION ADMINISTERED:",! D P Q:EX=U
W !," PROSTATE REGION ONLY...........: ",ONC(165.51,SCTIEN,11) D P Q:EX=U
W !," PROSTATE & PELVIC NODES........: ",ONC(165.51,SCTIEN,12) D P Q:EX=U
W !," PARA-AORTIC NODES..............: ",ONC(165.51,SCTIEN,13) D P Q:EX=U
W !," DISTANT METASTATIC SITES.......: ",ONC(165.51,SCTIEN,14) D P Q:EX=U
W !," OTHER EXTERNAL, NOS............: ",ONC(165.51,SCTIEN,15)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)" G TRD
D P Q:EX=U
TRD W !!," TOTAL RAD DOSE:",! D P Q:EX=U
W !," PROSTATE.......................: ",ONC(165.51,SCTIEN,17) D P Q:EX=U
W !," PELVIC NODES...................: ",ONC(165.51,SCTIEN,18) D P Q:EX=U
W !," PARA-AORTIC NODES..............: ",ONC(165.51,SCTIEN,19)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)" G SC
D P Q:EX=U
SC W !!,"SUBSEQUENT CHEMOTHERAPY #",SCTIEN,":",! D P Q:EX=U
W !,"CHEMOTHERAPY.......................: ",ONC(165.51,SCTIEN,20) D P Q:EX=U
W !,"DATE CHEMOTHERAPY BEGAN............: ",ONC(165.51,SCTIEN,.061) D P Q:EX=U
W !!," DRUGS ADMINISTERED:",! D P Q:EX=U
W !," ADRIAMYCIN.....................: ",ONC(165.51,SCTIEN,21) D P Q:EX=U
W !," CYTOXAN........................: ",ONC(165.51,SCTIEN,22) D P Q:EX=U
W !," METHOTREXATE...................: ",ONC(165.51,SCTIEN,23) D P Q:EX=U
W !," FLUOROURACIL...................: ",ONC(165.51,SCTIEN,24) D P Q:EX=U
W !," OTHER..........................: ",ONC(165.51,SCTIEN,25)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)" G SHT
D P Q:EX=U
SHT W !!,"SUBSEQUENT HORMONE THERAPY #",SCTIEN,":",! D P Q:EX=U
W !,"HORMONE THERAPY....................: ",ONC(165.51,SCTIEN,26) D P Q:EX=U
W !,"DATE HORMONE THERAPY BEGAN.........: ",ONC(165.51,SCTIEN,.071) D P Q:EX=U
W !!," HORMONES ADMINISTERED:",! D P Q:EX=U
W !," ESTROGENS......................: ",ONC(165.51,SCTIEN,27) D P Q:EX=U
W !," ANTIANDROGENS..................: ",ONC(165.51,SCTIEN,28) D P Q:EX=U
W !," PROGESTATIONAL AGENTS..........: ",ONC(165.51,SCTIEN,29) D P Q:EX=U
W !," LUTEINIZING HORMONE-RELEASING..: ",ONC(165.51,SCTIEN,30) D P Q:EX=U
W !," ORCHIECTOMY....................: ",ONC(165.51,SCTIEN,31) D P Q:EX=U
W !," OTHER..........................: ",ONC(165.51,SCTIEN,32)
Q
PRTC I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 G VII
S EOT="Y" D P Q:EX=U
VII S TABLE="TABLE VII - STATUS AT LAST CONTACT"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCPPC9
W !?15,TABLE,! 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 !,"DATE OF LAST CONTACT OR DEATH.....: ",DLC
W !,"VITAL STATUS......................: ",ONC(160,ONCOPA,15) D P Q:EX=U
S CS="" I $D(^ONCO(165.5,IEN,"TS","AA")) D
.S CSDAT=$O(^ONCO(165.5,IEN,"TS","AA",""))
.S CSIEN=$O(^ONCO(165.5,IEN,"TS","AA",CSDAT,""))
.S CSPNT=$P(^ONCO(165.5,IEN,"TS",CSIEN,0),U,2)
.S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
W !,"CANCER STATUS.....................: ",CS
W !,"AUTOPSY...........................: ",$E(ONC(160,ONCOPA,22.9),1,43) D P Q:EX=U
W !!,"COMPLETED BY......................: ",ONC(165.5,IEN,81) D P Q:EX=U
W !,"REVIEWED BY CANCER COMMITTEE......: ",ONC(165.5,IEN,82)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
KILL ;Kill Variables and Exit
K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN
Q
P ;Display Data
I ($Y'<(LIN-2)) D Q:EX=U W:EOT="N" !?25,TABLE_" (continued)",!
.I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HDR^ONCPPC9 Q
S EOT="N" Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCPPC9B 5904 printed Nov 22, 2024@17:37:24 Page 2
ONCPPC9B ;HIRMFO/GWB - PCE Studies of Prostate Cancer -Print ;8/15/96
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
VI SET TABLE="TABLE VI - SUBSEQUENT TREATMENT"
+1 IF IOST'?1"C".E
WRITE !
DO P
if EX=U
QUIT
WRITE !
DO P
if EX=U
QUIT
+2 WRITE !?25,TABLE,!
DO P
if EX=U
QUIT
+3 WRITE !,"REASON FOR SECOND COURSE OF THERAPY: ",ONC(165.5,IEN,656)
DO P
if EX=U
QUIT
ST IF $DATA(^ONCO(165.5,ONCONUM,4,0))
SET SCTIEN=0
FOR
SET SCTIEN=$ORDER(^ONCO(165.5,ONCONUM,4,SCTIEN))
if SCTIEN'>0
QUIT
DO SCT
IF IOST?1"C".E
if 'Y
QUIT
+1 IF IOST?1"C".E
if 'Y
GOTO KILL
+2 GOTO PRTC
SCT SET DIC="^ONCO(165.5,"
SET DR=60
SET DA=ONCONUM
SET DIQ="ONC"
+1 SET DR(165.51)=".01:32"
SET DA(165.51)=SCTIEN
DO EN^DIQ1
+2 SET SURG=ONC(165.51,SCTIEN,.04)
SET (SURG1,SURG2)=""
+3 SET LOS=$LENGTH(SURG)
IF LOS<43
SET SURG1=SURG
GOTO SS
+4 SET NOP=$LENGTH($EXTRACT(SURG,1,42)," ")
+5 SET SURG1=$PIECE(SURG," ",1,NOP-1)
SET SURG2=$PIECE(SURG," ",NOP,999)
+6 IF IOST?1"C".E
IF SCTIEN>1
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCPPC9
WRITE !?15,TABLE_" (continued)",!
GOTO SS
+7 DO P
if EX=U
QUIT
SS WRITE !!,"SUBSEQUENT SURGERY #",SCTIEN,":",!
DO P
if EX=U
QUIT
+1 WRITE !,"TYPE OF SURGERY....................: ",SURG1
DO P
if EX=U
QUIT
+2 if SURG2'=""
WRITE !,?40,SURG2
DO P
if EX=U
QUIT
+3 WRITE !,"DATE OF SURGERY....................: ",ONC(165.51,SCTIEN,.041)
DO P
if EX=U
QUIT
+4 WRITE !!,"SUBSEQUENT RADIATION THERAPY #",SCTIEN,":",!
DO P
if EX=U
QUIT
+5 WRITE !,"RADIATION THERAPY..................: ",ONC(165.51,SCTIEN,16)
DO P
if EX=U
QUIT
+6 WRITE !,"DATE RADIATON THERAPY BEGAN........: ",ONC(165.51,SCTIEN,.051)
+7 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCPPC9
WRITE !?15,TABLE_" (continued)",!
GOTO IR
+8 DO P
if EX=U
QUIT
IR WRITE !,"INTERSTITIAL RADIATION.............: ",ONC(165.51,SCTIEN,4)
DO P
if EX=U
QUIT
+1 WRITE !!," INTERSTITIAL RADIATION ADMINISTERED:",!
DO P
if EX=U
QUIT
+2 WRITE !," IODINE 125.....................: ",ONC(165.51,SCTIEN,5)
DO P
if EX=U
QUIT
+3 WRITE !," GOLD 198.......................: ",ONC(165.51,SCTIEN,6)
DO P
if EX=U
QUIT
+4 WRITE !," PALLADIUM 103..................: ",ONC(165.51,SCTIEN,7)
DO P
if EX=U
QUIT
+5 WRITE !," IRIDIUM 192....................: ",ONC(165.51,SCTIEN,8)
DO P
if EX=U
QUIT
+6 WRITE !," OTHER INTERSTITIAL, NOS........: ",ONC(165.51,SCTIEN,9)
+7 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCPPC9
WRITE !?15,TABLE_" (continued)",!
GOTO ER
+8 DO P
if EX=U
QUIT
ER WRITE !,"EXTERNAL RADIATION.................: ",ONC(165.51,SCTIEN,10)
DO P
if EX=U
QUIT
+1 WRITE !!," EXTERNAL RADIATION ADMINISTERED:",!
DO P
if EX=U
QUIT
+2 WRITE !," PROSTATE REGION ONLY...........: ",ONC(165.51,SCTIEN,11)
DO P
if EX=U
QUIT
+3 WRITE !," PROSTATE & PELVIC NODES........: ",ONC(165.51,SCTIEN,12)
DO P
if EX=U
QUIT
+4 WRITE !," PARA-AORTIC NODES..............: ",ONC(165.51,SCTIEN,13)
DO P
if EX=U
QUIT
+5 WRITE !," DISTANT METASTATIC SITES.......: ",ONC(165.51,SCTIEN,14)
DO P
if EX=U
QUIT
+6 WRITE !," OTHER EXTERNAL, NOS............: ",ONC(165.51,SCTIEN,15)
+7 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCPPC9
WRITE !?15,TABLE_" (continued)"
GOTO TRD
+8 DO P
if EX=U
QUIT
TRD WRITE !!," TOTAL RAD DOSE:",!
DO P
if EX=U
QUIT
+1 WRITE !," PROSTATE.......................: ",ONC(165.51,SCTIEN,17)
DO P
if EX=U
QUIT
+2 WRITE !," PELVIC NODES...................: ",ONC(165.51,SCTIEN,18)
DO P
if EX=U
QUIT
+3 WRITE !," PARA-AORTIC NODES..............: ",ONC(165.51,SCTIEN,19)
+4 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCPPC9
WRITE !?15,TABLE_" (continued)"
GOTO SC
+5 DO P
if EX=U
QUIT
SC WRITE !!,"SUBSEQUENT CHEMOTHERAPY #",SCTIEN,":",!
DO P
if EX=U
QUIT
+1 WRITE !,"CHEMOTHERAPY.......................: ",ONC(165.51,SCTIEN,20)
DO P
if EX=U
QUIT
+2 WRITE !,"DATE CHEMOTHERAPY BEGAN............: ",ONC(165.51,SCTIEN,.061)
DO P
if EX=U
QUIT
+3 WRITE !!," DRUGS ADMINISTERED:",!
DO P
if EX=U
QUIT
+4 WRITE !," ADRIAMYCIN.....................: ",ONC(165.51,SCTIEN,21)
DO P
if EX=U
QUIT
+5 WRITE !," CYTOXAN........................: ",ONC(165.51,SCTIEN,22)
DO P
if EX=U
QUIT
+6 WRITE !," METHOTREXATE...................: ",ONC(165.51,SCTIEN,23)
DO P
if EX=U
QUIT
+7 WRITE !," FLUOROURACIL...................: ",ONC(165.51,SCTIEN,24)
DO P
if EX=U
QUIT
+8 WRITE !," OTHER..........................: ",ONC(165.51,SCTIEN,25)
+9 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCPPC9
WRITE !?15,TABLE_" (continued)"
GOTO SHT
+10 DO P
if EX=U
QUIT
SHT WRITE !!,"SUBSEQUENT HORMONE THERAPY #",SCTIEN,":",!
DO P
if EX=U
QUIT
+1 WRITE !,"HORMONE THERAPY....................: ",ONC(165.51,SCTIEN,26)
DO P
if EX=U
QUIT
+2 WRITE !,"DATE HORMONE THERAPY BEGAN.........: ",ONC(165.51,SCTIEN,.071)
DO P
if EX=U
QUIT
+3 WRITE !!," HORMONES ADMINISTERED:",!
DO P
if EX=U
QUIT
+4 WRITE !," ESTROGENS......................: ",ONC(165.51,SCTIEN,27)
DO P
if EX=U
QUIT
+5 WRITE !," ANTIANDROGENS..................: ",ONC(165.51,SCTIEN,28)
DO P
if EX=U
QUIT
+6 WRITE !," PROGESTATIONAL AGENTS..........: ",ONC(165.51,SCTIEN,29)
DO P
if EX=U
QUIT
+7 WRITE !," LUTEINIZING HORMONE-RELEASING..: ",ONC(165.51,SCTIEN,30)
DO P
if EX=U
QUIT
+8 WRITE !," ORCHIECTOMY....................: ",ONC(165.51,SCTIEN,31)
DO P
if EX=U
QUIT
+9 WRITE !," OTHER..........................: ",ONC(165.51,SCTIEN,32)
+10 QUIT
PRTC IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCPPC9
GOTO VII
+1 SET EOT="Y"
DO P
if EX=U
QUIT
VII SET TABLE="TABLE VII - STATUS AT LAST CONTACT"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HDR^ONCPPC9
+2 WRITE !?15,TABLE,!
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 !,"DATE OF LAST CONTACT OR DEATH.....: ",DLC
+6 WRITE !,"VITAL STATUS......................: ",ONC(160,ONCOPA,15)
DO P
if EX=U
QUIT
+7 SET CS=""
IF $DATA(^ONCO(165.5,IEN,"TS","AA"))
Begin DoDot:1
+8 SET CSDAT=$ORDER(^ONCO(165.5,IEN,"TS","AA",""))
+9 SET CSIEN=$ORDER(^ONCO(165.5,IEN,"TS","AA",CSDAT,""))
+10 SET CSPNT=$PIECE(^ONCO(165.5,IEN,"TS",CSIEN,0),U,2)
+11 SET CS=$PIECE(^ONCO(164.42,CSPNT,0),U,1)
End DoDot:1
+12 WRITE !,"CANCER STATUS.....................: ",CS
+13 WRITE !,"AUTOPSY...........................: ",$EXTRACT(ONC(160,ONCOPA,22.9),1,43)
DO P
if EX=U
QUIT
+14 WRITE !!,"COMPLETED BY......................: ",ONC(165.5,IEN,81)
DO P
if EX=U
QUIT
+15 WRITE !,"REVIEWED BY CANCER COMMITTEE......: ",ONC(165.5,IEN,82)
+16 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL ;Kill Variables and Exit
+1 KILL %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN
+2 QUIT
P ;Display Data
+1 IF ($Y'<(LIN-2))
Begin DoDot:1
+2 IF IOST?1"C".E
KILL DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HDR^ONCPPC9
QUIT
End DoDot:1
if EX=U
QUIT
if EOT="N"
WRITE !?25,TABLE_" (continued)",!
+4 SET EOT="N"
QUIT
