100 lines
5.7 KiB
Mathematica
100 lines
5.7 KiB
Mathematica
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
|