- 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 Apr 23, 2025@18:41:51 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
