ONCPPC9A ;HIRMFO/GWB - PCE Studies of Prostate Cancer -Print ;8/15/96
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
IV S TABLE="TABLE IV - FIRST COURSE OF 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
S DIC="^ONCO(165.5,",DR=""
W !,"SURGERY:",! D P Q:EX=U
S NCDS=$E(ONC(165.5,IEN,58.1),1,2),NCDSOT=ONC(165.5,IEN,58.1)
S CDS=$E(ONC(165.5,IEN,58.2),1,2),CDSOT=ONC(165.5,IEN,58.2)
I (CDS="")!(CDS="00") D
.S SURG=NCDSOT,SURGDT=ONC(165.5,IEN,58.3)
I ((CDS'="")&(CDS'="00"))!(NCDS="") D
.S SURG=CDSOT,SURGDT=ONC(165.5,IEN,50)
S (SURG1,SURG2)=""
S LOS=$L(SURG) I LOS<56 S SURG1=SURG G TOS
S NOP=$L($E(SURG,1,42)," ")
S SURG1=$P(SURG," ",1,NOP-1),SURG2=$P(SURG," ",NOP,999)
TOS W !," TYPE OF SURGERY...................: ",SURG1 D P Q:EX=U
W:SURG2'="" !,?41,SURG2 D P Q:EX=U
I (SURG1="")!($E(SURG1,1,2)="00") S SURGDT="88/88"
W !," DATE OF SURGERY...................: ",SURGDT D P Q:EX=U
W !," REASON FOR NO SURGERY.............: ",ONC(165.5,IEN,58) D P Q:EX=U
W !," SURGICAL APPROACH.................: ",ONC(165.5,IEN,74) D P Q:EX=U
W !," RESEARCH PROTOCOL.................: ",ONC(165.5,IEN,624) D P Q:EX=U
W !!,"RADIATION THERAPY:",! D P Q:EX=U
W !," RADIATION THERAPY.................: ",ONC(165.5,IEN,625) D P Q:EX=U
W !," DATE RADIATION THERAPY BEGAN......: ",ONC(165.5,IEN,51)
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.5,IEN,626) D P Q:EX=U
W !!," INTERSTITIAL RADIATION ADMINISTERED:",! D P Q:EX=U
W !," IODINE 125......................: ",ONC(165.5,IEN,627) D P Q:EX=U
W !," GOLD 198........................: ",ONC(165.5,IEN,628) D P Q:EX=U
W !," PALLADIUM 103...................: ",ONC(165.5,IEN,629) D P Q:EX=U
W !," IRIDIUM 192.....................: ",ONC(165.5,IEN,630) D P Q:EX=U
W !," OTHER INTERSTITIAL, NOS.........: ",ONC(165.5,IEN,631)
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.5,IEN,632) D P Q:EX=U
W !!," EXTERNAL RADIATION ADMINISTERED:",! D P Q:EX=U
W !," PROSTATE REGION ONLY............: ",ONC(165.5,IEN,633) D P Q:EX=U
W !," PROSTATE/PELVIC NODES...........: ",ONC(165.5,IEN,634) D P Q:EX=U
W !," PARA-AORTIC NODES...............: ",ONC(165.5,IEN,635) D P Q:EX=U
W !," DISTANT METASTATIC SITES........: ",ONC(165.5,IEN,636) D P Q:EX=U
W !," OTHER EXTERNAL SITES, NOS.......: ",ONC(165.5,IEN,637)
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.5,IEN,638) D P Q:EX=U
W !," PELVIC NODES....................: ",ONC(165.5,IEN,639) D P Q:EX=U
W !," PARA-AORTIC NODES...............: ",ONC(165.5,IEN,640) D P Q:EX=U
W !," RESEARCH PROTOCOL...............: ",ONC(165.5,IEN,641)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 W !?15,TABLE_" (continued)" G HT
D P Q:EX=U
HT W !!,"HORMONE THERAPY:",! D P Q:EX=U
W !," HORMONE THERAPY...................: ",ONC(165.5,IEN,642) D P Q:EX=U
W !," DATE HORMONE THERAPY BEGAN........: ",ONC(165.5,IEN,54) D P Q:EX=U
W !!," HORMONES ADMINISTERED:" D P Q:EX=U
W ! D P Q:EX=U
W !," ESTROGENS.......................: ",ONC(165.5,IEN,643) D P Q:EX=U
W !," ANTIANDROGENS...................: ",ONC(165.5,IEN,644) D P Q:EX=U
W !," PROGESTATIONAL AGENTS...........: ",ONC(165.5,IEN,645) D P Q:EX=U
W !," LUTEINIZING HORMONE-RELEASING...: ",ONC(165.5,IEN,646) D P Q:EX=U
W !," ORCHIECTOMY.....................: ",ONC(165.5,IEN,647) D P Q:EX=U
W !," OTHER...........................: ",ONC(165.5,IEN,648)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 G V
S EOT="Y" D P Q:EX=U
V S TABLE="TABLE V - FIRST RECURRENCE"
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 !,"TYPE OF FIRST RECURRENCE............: ",ONC(165.5,IEN,71) D P Q:EX=U
W !,"DATE OF FIRST RECURRENCE............: ",ONC(165.5,IEN,70) D P Q:EX=U
W !!,"METHODS USED TO DIAGNOSE FIRST RECURRENCE:",! D P Q:EX=U
W !," BACKACHE..........................: ",ONC(165.5,IEN,649) D P Q:EX=U
W !," BONE SCAN.........................: ",ONC(165.5,IEN,650) D P Q:EX=U
W !," LETHARGY..........................: ",ONC(165.5,IEN,651) D P Q:EX=U
W !," RECTAL EXAM WITH NEEDLE BIOSPY....: ",ONC(165.5,IEN,652) D P Q:EX=U
W !," TUMOR MARKER ELEVATION............: ",ONC(165.5,IEN,653) D P Q:EX=U
W !," WEIGHT LOSS.......................: ",ONC(165.5,IEN,654) D P Q:EX=U
W !," OTHER.............................: ",ONC(165.5,IEN,655)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCPPC9 G VI
S EOT="Y" D P Q:EX=U
VI D ^ONCPPC9B
KILL ;Kill Variables and Exit
K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN,EOT
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[HONCPPC9A 5232 printed Nov 22, 2024@17:37:23 Page 2
ONCPPC9A ;HIRMFO/GWB - PCE Studies of Prostate Cancer -Print ;8/15/96
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
IV SET TABLE="TABLE IV - FIRST COURSE OF 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 SET DIC="^ONCO(165.5,"
SET DR=""
+4 WRITE !,"SURGERY:",!
DO P
if EX=U
QUIT
+5 SET NCDS=$EXTRACT(ONC(165.5,IEN,58.1),1,2)
SET NCDSOT=ONC(165.5,IEN,58.1)
+6 SET CDS=$EXTRACT(ONC(165.5,IEN,58.2),1,2)
SET CDSOT=ONC(165.5,IEN,58.2)
+7 IF (CDS="")!(CDS="00")
Begin DoDot:1
+8 SET SURG=NCDSOT
SET SURGDT=ONC(165.5,IEN,58.3)
End DoDot:1
+9 IF ((CDS'="")&(CDS'="00"))!(NCDS="")
Begin DoDot:1
+10 SET SURG=CDSOT
SET SURGDT=ONC(165.5,IEN,50)
End DoDot:1
+11 SET (SURG1,SURG2)=""
+12 SET LOS=$LENGTH(SURG)
IF LOS<56
SET SURG1=SURG
GOTO TOS
+13 SET NOP=$LENGTH($EXTRACT(SURG,1,42)," ")
+14 SET SURG1=$PIECE(SURG," ",1,NOP-1)
SET SURG2=$PIECE(SURG," ",NOP,999)
TOS WRITE !," TYPE OF SURGERY...................: ",SURG1
DO P
if EX=U
QUIT
+1 if SURG2'=""
WRITE !,?41,SURG2
DO P
if EX=U
QUIT
+2 IF (SURG1="")!($EXTRACT(SURG1,1,2)="00")
SET SURGDT="88/88"
+3 WRITE !," DATE OF SURGERY...................: ",SURGDT
DO P
if EX=U
QUIT
+4 WRITE !," REASON FOR NO SURGERY.............: ",ONC(165.5,IEN,58)
DO P
if EX=U
QUIT
+5 WRITE !," SURGICAL APPROACH.................: ",ONC(165.5,IEN,74)
DO P
if EX=U
QUIT
+6 WRITE !," RESEARCH PROTOCOL.................: ",ONC(165.5,IEN,624)
DO P
if EX=U
QUIT
+7 WRITE !!,"RADIATION THERAPY:",!
DO P
if EX=U
QUIT
+8 WRITE !," RADIATION THERAPY.................: ",ONC(165.5,IEN,625)
DO P
if EX=U
QUIT
+9 WRITE !," DATE RADIATION THERAPY BEGAN......: ",ONC(165.5,IEN,51)
+10 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
+11 DO P
if EX=U
QUIT
IR WRITE !," INTERSTITIAL RADIATION............: ",ONC(165.5,IEN,626)
DO P
if EX=U
QUIT
+1 WRITE !!," INTERSTITIAL RADIATION ADMINISTERED:",!
DO P
if EX=U
QUIT
+2 WRITE !," IODINE 125......................: ",ONC(165.5,IEN,627)
DO P
if EX=U
QUIT
+3 WRITE !," GOLD 198........................: ",ONC(165.5,IEN,628)
DO P
if EX=U
QUIT
+4 WRITE !," PALLADIUM 103...................: ",ONC(165.5,IEN,629)
DO P
if EX=U
QUIT
+5 WRITE !," IRIDIUM 192.....................: ",ONC(165.5,IEN,630)
DO P
if EX=U
QUIT
+6 WRITE !," OTHER INTERSTITIAL, NOS.........: ",ONC(165.5,IEN,631)
+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.5,IEN,632)
DO P
if EX=U
QUIT
+1 WRITE !!," EXTERNAL RADIATION ADMINISTERED:",!
DO P
if EX=U
QUIT
+2 WRITE !," PROSTATE REGION ONLY............: ",ONC(165.5,IEN,633)
DO P
if EX=U
QUIT
+3 WRITE !," PROSTATE/PELVIC NODES...........: ",ONC(165.5,IEN,634)
DO P
if EX=U
QUIT
+4 WRITE !," PARA-AORTIC NODES...............: ",ONC(165.5,IEN,635)
DO P
if EX=U
QUIT
+5 WRITE !," DISTANT METASTATIC SITES........: ",ONC(165.5,IEN,636)
DO P
if EX=U
QUIT
+6 WRITE !," OTHER EXTERNAL SITES, NOS.......: ",ONC(165.5,IEN,637)
+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.5,IEN,638)
DO P
if EX=U
QUIT
+2 WRITE !," PELVIC NODES....................: ",ONC(165.5,IEN,639)
DO P
if EX=U
QUIT
+3 WRITE !," PARA-AORTIC NODES...............: ",ONC(165.5,IEN,640)
DO P
if EX=U
QUIT
+4 WRITE !," RESEARCH PROTOCOL...............: ",ONC(165.5,IEN,641)
+5 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 HT
+6 DO P
if EX=U
QUIT
HT WRITE !!,"HORMONE THERAPY:",!
DO P
if EX=U
QUIT
+1 WRITE !," HORMONE THERAPY...................: ",ONC(165.5,IEN,642)
DO P
if EX=U
QUIT
+2 WRITE !," DATE HORMONE THERAPY BEGAN........: ",ONC(165.5,IEN,54)
DO P
if EX=U
QUIT
+3 WRITE !!," HORMONES ADMINISTERED:"
DO P
if EX=U
QUIT
+4 WRITE !
DO P
if EX=U
QUIT
+5 WRITE !," ESTROGENS.......................: ",ONC(165.5,IEN,643)
DO P
if EX=U
QUIT
+6 WRITE !," ANTIANDROGENS...................: ",ONC(165.5,IEN,644)
DO P
if EX=U
QUIT
+7 WRITE !," PROGESTATIONAL AGENTS...........: ",ONC(165.5,IEN,645)
DO P
if EX=U
QUIT
+8 WRITE !," LUTEINIZING HORMONE-RELEASING...: ",ONC(165.5,IEN,646)
DO P
if EX=U
QUIT
+9 WRITE !," ORCHIECTOMY.....................: ",ONC(165.5,IEN,647)
DO P
if EX=U
QUIT
+10 WRITE !," OTHER...........................: ",ONC(165.5,IEN,648)
+11 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCPPC9
GOTO V
+12 SET EOT="Y"
DO P
if EX=U
QUIT
V SET TABLE="TABLE V - FIRST RECURRENCE"
+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 !,"TYPE OF FIRST RECURRENCE............: ",ONC(165.5,IEN,71)
DO P
if EX=U
QUIT
+4 WRITE !,"DATE OF FIRST RECURRENCE............: ",ONC(165.5,IEN,70)
DO P
if EX=U
QUIT
+5 WRITE !!,"METHODS USED TO DIAGNOSE FIRST RECURRENCE:",!
DO P
if EX=U
QUIT
+6 WRITE !," BACKACHE..........................: ",ONC(165.5,IEN,649)
DO P
if EX=U
QUIT
+7 WRITE !," BONE SCAN.........................: ",ONC(165.5,IEN,650)
DO P
if EX=U
QUIT
+8 WRITE !," LETHARGY..........................: ",ONC(165.5,IEN,651)
DO P
if EX=U
QUIT
+9 WRITE !," RECTAL EXAM WITH NEEDLE BIOSPY....: ",ONC(165.5,IEN,652)
DO P
if EX=U
QUIT
+10 WRITE !," TUMOR MARKER ELEVATION............: ",ONC(165.5,IEN,653)
DO P
if EX=U
QUIT
+11 WRITE !," WEIGHT LOSS.......................: ",ONC(165.5,IEN,654)
DO P
if EX=U
QUIT
+12 WRITE !," OTHER.............................: ",ONC(165.5,IEN,655)
+13 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCPPC9
GOTO VI
+14 SET EOT="Y"
DO P
if EX=U
QUIT
VI DO ^ONCPPC9B
KILL ;Kill Variables and Exit
+1 KILL %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN,EOT
+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
