ONCP2P4A ;HINES CIOFO/GWB - 1998 Prostate Cancer Study - Table IV (continued) ;03/07/00
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCP2P4A 9403 printed Nov 22, 2024@17:36:57 Page 2
ONCP2P4A ;HINES CIOFO/GWB - 1998 Prostate Cancer Study - Table IV (continued) ;03/07/00
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
RT WRITE @IOF
DO HEAD^ONCP2P0
+1 WRITE !," RADIATION THERAPY"
+2 WRITE !," -----------------"
DRS WRITE !," 49. DATE RADIATION STARTED.........: ",ONC(165.5,ONCONUM,51)
RT1 WRITE !," 50. RADIATION THERAPY..............: ",ONC(165.5,ONCONUM,51.2)
+1 IF RAD=0
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,36)=8
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,29)=0
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,28)=0
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,31)=0
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,32)=0
+7 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,30)=0
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,37)=8
+9 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,34)=8
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,35)=8
+11 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,36)=8
+12 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,37)=8
+13 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,38)=8
+14 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,38)=8
+15 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,39)=8
+16 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,40)=8
+17 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,41)=8
+18 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,39)=8
+19 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,40)=8
+20 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,41)=8
+21 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,42)=8
+22 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,48)=8
End DoDot:1
GOTO RADWRT
+23 IF RAD=9
Begin DoDot:1
+24 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,36)=9
+25 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,29)=9
+26 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,28)=9
+27 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,31)=9
+28 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,32)=9
+29 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,30)=9
+30 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,37)=9
+31 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,34)=9
+32 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,35)=9
+33 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,36)=9
+34 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,37)=9
+35 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,38)=9
+36 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,38)=9
+37 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,39)=8
+38 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,40)=8
+39 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,41)=8
+40 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,39)=9
+41 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,40)=9
+42 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,41)=9
+43 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,42)=9
+44 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,48)=9
End DoDot:1
GOTO RADWRT
RADWRT IF (RAD=0)!(RAD=9)
Begin DoDot:1
+1 KILL DIQ
SET DIC="^ONCO(165.5,"
+2 SET DR="692;628;627;630;631;629;693;636;634;635;633;637;694;638;639;640;695;696;697;698;699"
+3 SET DA=ONCONUM
SET DIQ="ONC"
DO EN^DIQ1
+4 WRITE !," 51. RADIATION FACILITY.............: ",ONC(165.5,ONCONUM,692)
+5 WRITE !!," 52. INTERSTITIAL RADIATION/BRACHYTHERAPY ADMINISTERED:",!
+6 WRITE !," GOLD 198.......................: ",ONC(165.5,ONCONUM,628)
+7 WRITE !," IODINE 125.....................: ",ONC(165.5,ONCONUM,627)
+8 WRITE !," IRIDIUM 192....................: ",ONC(165.5,ONCONUM,630)
+9 WRITE !," OTHER INTERSTITIAL, NOS........: ",ONC(165.5,ONCONUM,631)
+10 WRITE !," PALLADIUM 103..................: ",ONC(165.5,ONCONUM,629)
+11 WRITE !!," 53. ROUTE OF INTERSTITIAL RADIATION/"
+12 WRITE !," BRACHYTHERAPY ADMINISTERED.....: ",ONC(165.5,ONCONUM,693)
+13 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
QUIT
WRITE @IOF
DO HEAD^ONCP2P0
+14 WRITE !," 54. EXTERNAL RADIATION ADMINISTERED:",!
+15 WRITE !," DISTANT METASTATIC SITES.......: ",ONC(165.5,ONCONUM,636)
+16 WRITE !," PROSTATE & PELVIC NODES........: ",ONC(165.5,ONCONUM,634)
+17 WRITE !," PROSTATE & PARA-AORTIC NODES...: ",ONC(165.5,ONCONUM,635)
+18 WRITE !," PROSTATE REGION ONLY...........: ",ONC(165.5,ONCONUM,633)
+19 WRITE !," OTHER EXTERNAL SITES, NOS......: ",ONC(165.5,ONCONUM,637)
+20 WRITE !!," 55. TYPE OF EXTERNAL RADIATION"
+21 WRITE !," ADMINISTRATION.................: ",ONC(165.5,ONCONUM,694)
+22 WRITE !!," 56. TOTAL EXTERNAL RAD DOSE (cGy) INCLUDING BOOST:",!
+23 WRITE !," PROSTATE.......................: ",ONC(165.5,ONCONUM,638)
+24 WRITE !," PELVIC NODES...................: ",ONC(165.5,ONCONUM,639)
+25 WRITE !," PARA-AORTIC NODES..............: ",ONC(165.5,ONCONUM,640)
+26 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
QUIT
WRITE @IOF
DO HEAD^ONCP2P0
+27 WRITE !," 57. COMPLICATIONS FOLLOWING RADIATION FIRST COURSE OF TREATMENT:",!
+28 WRITE !," ACUTE GASTROINTESTINAL.........: ",ONC(165.5,ONCONUM,695)
+29 WRITE !," ACUTE GASTROURINARY............: ",ONC(165.5,ONCONUM,696)
+30 WRITE !," ANORECTAL......................: ",ONC(165.5,ONCONUM,697)
+31 WRITE !," CHRONIC REQUIRING SURGERY OR"
+32 WRITE !," PROLONGED HOSPITALIZATION......: ",ONC(165.5,ONCONUM,698)
+33 WRITE !," URETHRAL OR BLADDER............: ",ONC(165.5,ONCONUM,699)
+34 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
QUIT
DO HEAD^ONCP2P0
End DoDot:1
if $DATA(DIRUT)
GOTO EXIT
GOTO HOT
RF SET DR="692 51. RADIATION FACILITY............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
IRBA WRITE !!," 52. INTERSTITIAL RADIATION/BRACHYTHERAPY ADMINISTERED:",!
+1 SET DR="628 GOLD 198......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="627 IODINE 125....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="630 IRIDIUM 192...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="631 OTHER INTERSTITIAL, NOS........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="629 PALLADIUM 103.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
RIRBA WRITE !
SET DR="693 53. ROUTE OF INTERSTITIAL RADIATION/ BRACHYTHERAPY ADMINISTERED....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
ERA WRITE !," 54. EXTERNAL RADIATION ADMINISTERED:",!
+1 SET DR="636 DISTANT METASTATIC SITES......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="634 PROSTATE & PELVIC NODES........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="635 PROSTATE & PARA-AORTIC NODES..."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="633 PROSTATE REGION ONLY..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="637 OTHER EXTERNAL SITES, NOS......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
TERA WRITE !
SET DR="694 55. TYPE OF EXTERNAL RADIATION ADMINISTRATION................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
TERDIB WRITE !!," 56. TOTAL EXTERNAL RAD DOSE (cGy) INCLUDING BOOST:",!
+1 SET DR="638 PROSTATE......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="639 PELVIC NODES..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="640 PARA-AORTIC NODES.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
CFRFCT WRITE !!," 57. COMPLICATIONS FOLLOWING RADIATION FIRST COURSE OF TREATMENT:",!
+1 SET DR="695 ACUTE GASTROINTESTINAL........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="696 ACUTE GASTROURINARY............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="697 ANORECTAL......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="698 CHRONIC REQUIRING SURGERY OR PROLONGED HOSPITALIZATION......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="699 URETHRAL OR BLADDER............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
GOTO EXIT
HOT WRITE @IOF
DO HEAD^ONCP2P0
+1 WRITE !," HORMONE THERAPY"
+2 WRITE !," ---------------"
DO IF HOR=0
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO2"),U,49)="0000000"
+2 WRITE !," 58. DATE OF ORCHIECTOMY............: 00/00/0000"
End DoDot:1
GOTO DEHTB
+3 SET DR="699.1 58. DATE OF ORCHIECTOMY............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
DEHTB WRITE !," 59. DATE EXOGENOUS HT BEGAN........: ",ONC(165.5,ONCONUM,54)
HT WRITE !," 60. HORMONE THERAPY................: ",ONC(165.5,ONCONUM,54.2)
+1 IF HOR=0
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,45)=0
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,44)=0
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,47)=0
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,46)=0
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,49)=0
End DoDot:1
GOTO HORWRT
+7 IF HOR=9
Begin DoDot:1
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,45)=9
+9 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,44)=9
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,47)=9
+11 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,46)=9
+12 SET $PIECE(^ONCO(165.5,ONCONUM,"PRO1"),U,49)=9
End DoDot:1
GOTO HORWRT
HORWRT IF (HOR=0)!(HOR=9)
Begin DoDot:1
+1 KILL DIQ
SET DIC="^ONCO(165.5,"
SET DR="644;643;646;645;648"
+2 SET DA=ONCONUM
SET DIQ="ONC"
DO EN^DIQ1
+3 WRITE !!," 61. EXOGENOUS HORMONE AGENTS ADMINISTERED:",!
+4 WRITE !," ANTIANDROGENS..................: ",ONC(165.5,ONCONUM,644)
+5 WRITE !," ESTROGENS......................: ",ONC(165.5,ONCONUM,643)
+6 WRITE !," LUTEINIZING HORMONES...........: ",ONC(165.5,ONCONUM,646)
+7 WRITE !," PROGESTATIONAL AGENTS..........: ",ONC(165.5,ONCONUM,645)
+8 WRITE !," OTHER..........................: ",ONC(165.5,ONCONUM,648)
+9 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
QUIT
DO HEAD^ONCP2P0
End DoDot:1
if $DATA(DIRUT)
GOTO EXIT
GOTO CT
EHAA WRITE !!," 61. EXOGENOUS HORMONE AGENTS ADMINISTERED:",!
+1 SET DR="644 ANTIANDROGENS.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="643 ESTROGENS......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="646 LUTEINIZING HORMONES..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="645 PROGESTATIONAL AGENTS.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="648 OTHER.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
GOTO EXIT
CT WRITE @IOF
DO HEAD^ONCP2P0
+1 WRITE !," CHEMOTHERAPY"
+2 WRITE !," ------------"
DCS WRITE !," 62. DATE CHEMOTHERAPY STARTED......: ",ONC(165.5,ONCONUM,53)
C WRITE !," 63. CHEMOTHERAPY...................: ",ONC(165.5,ONCONUM,53.2)
+1 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
SET OUT="Y"
+2 GOTO EXIT
JUMP ;Jump to prompts
+1 SET XX=""
READ !!," GO TO ITEM: ",X:DTIME
IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT
+2 IF X["?"
Begin DoDot:1
+3 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !," ",HTABLE(I)
End DoDot:1
GOTO JUMP
+4 IF '$DATA(TABLE(X))
if X?1.2N
SET X=X_"."
SET XX=X
SET X=$ORDER(TABLE(X))
IF ($PIECE(X,XX,1)'="")!(X="")
WRITE *7,"??"
Begin DoDot:1
+5 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !," ",HTABLE(I)
End DoDot:1
GOTO JUMP
+6 SET X=TABLE(X)
+7 GOTO @X
EXIT if $DATA(DIRUT)
SET OUT="Y"
+1 KILL CHOICES,PIECE,HTABLE,TABLE
+2 KILL CDS,CDSOT,LOS,NCDS,NCDSOT,NOP,SURG,SURG1,SURG2,SURGDT,SA,SA1,SA2
+3 KILL SM,SM1,SM2,SOORS,SOORS1,SOORS2,HOR,RAD
+4 KILL DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
+5 QUIT
