ONCP2P4A ;HINES CIOFO/GWB - 1998 Prostate Cancer Study - Table IV (continued) ;03/07/00
 ;;2.11;ONCOLOGY;**18,25**;Mar 07, 1995
RT W @IOF D HEAD^ONCP2P0
 W !," RADIATION THERAPY"
 W !," -----------------"
DRS W !," 49. DATE RADIATION STARTED.........: ",ONC(165.5,ONCONUM,51)
RT1 W !," 50. RADIATION THERAPY..............: ",ONC(165.5,ONCONUM,51.2)
 I RAD=0 D  G RADWRT
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,36)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,29)=0
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,28)=0
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,31)=0
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,32)=0
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,30)=0
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,37)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,34)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,35)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,36)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,37)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,38)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,38)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,39)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,40)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,41)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,39)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,40)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,41)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,42)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,48)=8
 I RAD=9 D  G RADWRT
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,36)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,29)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,28)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,31)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,32)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,30)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,37)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,34)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,35)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,36)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,37)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,38)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,38)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,39)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,40)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,41)=8
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,39)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,40)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,41)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,42)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,48)=9
RADWRT I (RAD=0)!(RAD=9) D  G:$D(DIRUT) EXIT G HOT
 .K DIQ S DIC="^ONCO(165.5,"
 .S DR="692;628;627;630;631;629;693;636;634;635;633;637;694;638;639;640;695;696;697;698;699"
 .S DA=ONCONUM,DIQ="ONC" D EN^DIQ1
 .W !," 51. RADIATION FACILITY.............: ",ONC(165.5,ONCONUM,692)
 .W !!," 52. INTERSTITIAL RADIATION/BRACHYTHERAPY ADMINISTERED:",!
 .W !,"     GOLD 198.......................: ",ONC(165.5,ONCONUM,628)
 .W !,"     IODINE 125.....................: ",ONC(165.5,ONCONUM,627)
 .W !,"     IRIDIUM 192....................: ",ONC(165.5,ONCONUM,630)
 .W !,"     OTHER INTERSTITIAL, NOS........: ",ONC(165.5,ONCONUM,631)
 .W !,"     PALLADIUM 103..................: ",ONC(165.5,ONCONUM,629)
 .W !!," 53. ROUTE OF INTERSTITIAL RADIATION/"
 .W !,"     BRACHYTHERAPY ADMINISTERED.....: ",ONC(165.5,ONCONUM,693)
 .W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT)  W @IOF D HEAD^ONCP2P0
 .W !," 54. EXTERNAL RADIATION ADMINISTERED:",!
 .W !,"     DISTANT METASTATIC SITES.......: ",ONC(165.5,ONCONUM,636)
 .W !,"     PROSTATE & PELVIC NODES........: ",ONC(165.5,ONCONUM,634)
 .W !,"     PROSTATE & PARA-AORTIC NODES...: ",ONC(165.5,ONCONUM,635)
 .W !,"     PROSTATE REGION ONLY...........: ",ONC(165.5,ONCONUM,633)
 .W !,"     OTHER EXTERNAL SITES, NOS......: ",ONC(165.5,ONCONUM,637)
 .W !!," 55. TYPE OF EXTERNAL RADIATION"
 .W !,"     ADMINISTRATION.................: ",ONC(165.5,ONCONUM,694)
 .W !!," 56. TOTAL EXTERNAL RAD DOSE (cGy) INCLUDING BOOST:",!
 .W !,"     PROSTATE.......................: ",ONC(165.5,ONCONUM,638)
 .W !,"     PELVIC NODES...................: ",ONC(165.5,ONCONUM,639)
 .W !,"     PARA-AORTIC NODES..............: ",ONC(165.5,ONCONUM,640)
 .W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT)  W @IOF D HEAD^ONCP2P0
 .W !," 57. COMPLICATIONS FOLLOWING RADIATION FIRST COURSE OF TREATMENT:",!
 .W !,"     ACUTE GASTROINTESTINAL.........: ",ONC(165.5,ONCONUM,695)
 .W !,"     ACUTE GASTROURINARY............: ",ONC(165.5,ONCONUM,696)
 .W !,"     ANORECTAL......................: ",ONC(165.5,ONCONUM,697)
 .W !,"     CHRONIC REQUIRING SURGERY OR"
 .W !,"     PROLONGED HOSPITALIZATION......: ",ONC(165.5,ONCONUM,698)
 .W !,"     URETHRAL OR BLADDER............: ",ONC(165.5,ONCONUM,699)
 .W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT)  D HEAD^ONCP2P0
RF S DR="692 51. RADIATION FACILITY............." D ^DIE G:$D(Y) JUMP
IRBA W !!," 52. INTERSTITIAL RADIATION/BRACHYTHERAPY ADMINISTERED:",!
 S DR="628     GOLD 198......................." D ^DIE G:$D(Y) JUMP
 S DR="627     IODINE 125....................." D ^DIE G:$D(Y) JUMP
 S DR="630     IRIDIUM 192...................." D ^DIE G:$D(Y) JUMP
 S DR="631     OTHER INTERSTITIAL, NOS........" D ^DIE G:$D(Y) JUMP
 S DR="629     PALLADIUM 103.................." D ^DIE G:$D(Y) JUMP
RIRBA W ! S DR="693 53. ROUTE OF INTERSTITIAL RADIATION/                                                BRACHYTHERAPY ADMINISTERED....." D ^DIE G:$D(Y) JUMP
ERA W !," 54. EXTERNAL RADIATION ADMINISTERED:",!
 S DR="636     DISTANT METASTATIC SITES......." D ^DIE G:$D(Y) JUMP
 S DR="634     PROSTATE & PELVIC NODES........" D ^DIE G:$D(Y) JUMP
 S DR="635     PROSTATE & PARA-AORTIC NODES..." D ^DIE G:$D(Y) JUMP
 S DR="633     PROSTATE REGION ONLY..........." D ^DIE G:$D(Y) JUMP
 S DR="637     OTHER EXTERNAL SITES, NOS......" D ^DIE G:$D(Y) JUMP
TERA W ! S DR="694 55. TYPE OF EXTERNAL RADIATION                                                      ADMINISTRATION................." D ^DIE G:$D(Y) JUMP
TERDIB W !!," 56. TOTAL EXTERNAL RAD DOSE (cGy) INCLUDING BOOST:",!
 S DR="638     PROSTATE......................." D ^DIE G:$D(Y) JUMP
 S DR="639     PELVIC NODES..................." D ^DIE G:$D(Y) JUMP
 S DR="640     PARA-AORTIC NODES.............." D ^DIE G:$D(Y) JUMP
CFRFCT W !!," 57. COMPLICATIONS FOLLOWING RADIATION FIRST COURSE OF TREATMENT:",!
 S DR="695     ACUTE GASTROINTESTINAL........." D ^DIE G:$D(Y) JUMP
 S DR="696     ACUTE GASTROURINARY............" D ^DIE G:$D(Y) JUMP
 S DR="697     ANORECTAL......................" D ^DIE G:$D(Y) JUMP
 S DR="698     CHRONIC REQUIRING SURGERY OR                                                    PROLONGED HOSPITALIZATION......" D ^DIE G:$D(Y) JUMP
 S DR="699     URETHRAL OR BLADDER............" D ^DIE G:$D(Y) JUMP
 W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
HOT W @IOF D HEAD^ONCP2P0
 W !," HORMONE THERAPY"
 W !," ---------------"
DO I HOR=0 D  G DEHTB
 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,49)="0000000"
 .W !," 58. DATE OF ORCHIECTOMY............: 00/00/0000"
 S DR="699.1 58. DATE OF ORCHIECTOMY............" D ^DIE G:$D(Y) JUMP
DEHTB W !," 59. DATE EXOGENOUS HT BEGAN........: ",ONC(165.5,ONCONUM,54)
HT W !," 60. HORMONE THERAPY................: ",ONC(165.5,ONCONUM,54.2)
 I HOR=0 D  G HORWRT
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,45)=0
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,44)=0
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,47)=0
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,46)=0
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,49)=0
 I HOR=9 D  G HORWRT
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,45)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,44)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,47)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,46)=9
 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,49)=9
HORWRT I (HOR=0)!(HOR=9) D  G:$D(DIRUT) EXIT G CT
 .K DIQ S DIC="^ONCO(165.5,",DR="644;643;646;645;648"
 .S DA=ONCONUM,DIQ="ONC" D EN^DIQ1
 .W !!," 61. EXOGENOUS HORMONE AGENTS ADMINISTERED:",!
 .W !,"     ANTIANDROGENS..................: ",ONC(165.5,ONCONUM,644)
 .W !,"     ESTROGENS......................: ",ONC(165.5,ONCONUM,643)
 .W !,"     LUTEINIZING HORMONES...........: ",ONC(165.5,ONCONUM,646)
 .W !,"     PROGESTATIONAL AGENTS..........: ",ONC(165.5,ONCONUM,645)
 .W !,"     OTHER..........................: ",ONC(165.5,ONCONUM,648)
 .W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT)  D HEAD^ONCP2P0
EHAA W !!," 61. EXOGENOUS HORMONE AGENTS ADMINISTERED:",!
 S DR="644     ANTIANDROGENS.................." D ^DIE G:$D(Y) JUMP
 S DR="643     ESTROGENS......................" D ^DIE G:$D(Y) JUMP
 S DR="646     LUTEINIZING HORMONES..........." D ^DIE G:$D(Y) JUMP
 S DR="645     PROGESTATIONAL AGENTS.........." D ^DIE G:$D(Y) JUMP
 S DR="648     OTHER.........................." D ^DIE G:$D(Y) JUMP
 W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
CT W @IOF D HEAD^ONCP2P0
 W !," CHEMOTHERAPY"
 W !," ------------"
DCS W !," 62. DATE CHEMOTHERAPY STARTED......: ",ONC(165.5,ONCONUM,53)
C W !," 63. CHEMOTHERAPY...................: ",ONC(165.5,ONCONUM,53.2)
 W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
 G EXIT
JUMP ;Jump to prompts
 S XX="" R !!," GO TO ITEM: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
 I X["?" D  G JUMP
 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
 I '$D(TABLE(X)) S:X?1.2N X=X_"." S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D  G JUMP
 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
 S X=TABLE(X)
 G @X
EXIT S:$D(DIRUT) OUT="Y"
 K CHOICES,PIECE,HTABLE,TABLE
 K CDS,CDSOT,LOS,NCDS,NCDSOT,NOP,SURG,SURG1,SURG2,SURGDT,SA,SA1,SA2
 K SM,SM1,SM2,SOORS,SOORS1,SOORS2,HOR,RAD
 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
 Q