ONCPPC9B ;HIRMFO/GWB - PCE Studies of Prostate Cancer -Print ;8/15/96
 ;;2.11;ONCOLOGY;**6,16,24**;Mar 07, 1995
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