ONCPPC6 ;HIRMFO/GWB - PCE Studies of Prostate Cancer - Table VI;7/22/96
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
K TABLE,HTABLE,ONCO
S TABLE("SURGERY")="SS"
S TABLE("RADIATION THERAPY")="SRT"
S TABLE("CHEMOTHERAPY")="SC"
S TABLE("HORMONE THERAPY")="SHT"
S HTABLE(1)="SURGERY"
S HTABLE(2)="RADIATION THERAPY"
S HTABLE(3)="CHEMOTHERAPY"
S HTABLE(4)="HORMONE THERAPY"
S CHOICES=4
W @IOF D HEAD^ONCPPC0 W !?24,"TABLE VI - SUBSEQUENT TREATMENT",!
RFSCOT S DIE="^ONCO(165.5,",DA=ONCONUM
S DR="656REASON FOR SECOND COURSE OF THERAPY" D ^DIE G:$D(Y) PRTC
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 SS Q:$D(Y)
K SCTIEN G PRTC
SS K ONC S DIC="^ONCO(165.5,",DR="60",DA=ONCONUM,DIQ="ONC"
S DR(165.51)=".04;.041;.051;.061;.071",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 TOS
S NOP=$L($E(SURG,1,42)," ")
S SURG1=$P(SURG," ",1,NOP-1),SURG2=$P(SURG," ",NOP,999)
TOS W !!,"SUBSEQUENT SURGERY #",SCTIEN,":",!
W !,"TYPE OF SURGERY....................: ",SURG1
W:SURG2'="" !,?40,SURG2
W !,"DATE OF SURGERY....................: ",ONC(165.51,SCTIEN,.041)
SRT W !!,"SUBSEQUENT RADIATION THERAPY #",SCTIEN,":",!
S DIE="^ONCO(165.5,"_ONCONUM_",4,",DA(1)=ONCONUM,DA=SCTIEN
S DR="16RADIATION THERAPY.................." D ^DIE G:$D(Y) JUMP
W !,"DATE RADIATON THERAPY BEGAN........: ",ONC(165.51,SCTIEN,.051)
W !
S DR="4INTERSTITIAL RADIATION............." D ^DIE G:$D(Y) JUMP
W !!," INTERSTITIAL RADIATION ADMINISTERED:",!
S DR="5 IODINE 125....................." D ^DIE G:$D(Y) JUMP
S DR="6 GOLD 198......................." D ^DIE G:$D(Y) JUMP
S DR="7 PALLADIUM 103.................." D ^DIE G:$D(Y) JUMP
S DR="8 IRIDIUM 192...................." D ^DIE G:$D(Y) JUMP
S DR="9 OTHER INTERSTITIAL, NOS........" D ^DIE G:$D(Y) JUMP
W !
S DR="10EXTERNAL RADIATION................." D ^DIE G:$D(Y) JUMP
W !!," EXTERNAL RADIATION ADMINISTERED:",!
S DR="11 PROSTATE REGION ONLY..........." D ^DIE G:$D(Y) JUMP
S DR="12 PROSTATE & PELVIC NODES........" D ^DIE G:$D(Y) JUMP
S DR="13 PARA-AORTIC NODES.............." D ^DIE G:$D(Y) JUMP
S DR="14 DISTANT METASTATIC SITES......." D ^DIE G:$D(Y) JUMP
S DR="15 OTHER EXTERNAL, NOS............" D ^DIE G:$D(Y) JUMP
W !!," TOTAL RAD DOSE:",!
S DR="17 PROSTATE......................." D ^DIE G:$D(Y) JUMP
S DR="18 PELVIC NODES..................." D ^DIE G:$D(Y) JUMP
S DR="19 PARA-AORTIC NODES.............." D ^DIE G:$D(Y) JUMP
SC W !!,"SUBSEQUENT CHEMOTHERAPY #",SCTIEN,":",!
S DIE="^ONCO(165.5,"_ONCONUM_",4,",DA(1)=ONCONUM,DA=SCTIEN
S DR="20CHEMOTHERAPY......................." D ^DIE G:$D(Y) JUMP
W !,"DATE CHEMOTHERAPY BEGAN............: ",ONC(165.51,SCTIEN,.061)
W !!," DRUGS ADMINISTERED:",!
S DR="21 ADRIAMYCIN....................." D ^DIE G:$D(Y) JUMP
S DR="22 CYTOXAN........................" D ^DIE G:$D(Y) JUMP
S DR="23 METHOTREXATE..................." D ^DIE G:$D(Y) JUMP
S DR="24 FLUOROURACIL..................." D ^DIE G:$D(Y) JUMP
S DR="25 OTHER.........................." D ^DIE G:$D(Y) JUMP
SHT W !!,"SUBSEQUENT HORMONE THERAPY #",SCTIEN,":",!
S DIE="^ONCO(165.5,"_ONCONUM_",4,",DA(1)=ONCONUM,DA=SCTIEN
S DR="26HORMONE THERAPY...................." D ^DIE G:$D(Y) JUMP
W !,"DATE HORMONE THERAPY BEGAN.........: ",ONC(165.51,SCTIEN,.071)
W !!," HORMONES ADMINISTERED:",!
S DR="27 ESTROGENS......................" D ^DIE G:$D(Y) JUMP
S DR="28 ANTIANDROGENS.................." D ^DIE G:$D(Y) JUMP
S DR="29 PROGESTATIONAL AGENTS.........." D ^DIE G:$D(Y) JUMP
S DR="30 LUTEINIZING HORMONE-RELEASING.." D ^DIE G:$D(Y) JUMP
S DR="31 ORCHIECTOMY...................." D ^DIE G:$D(Y) JUMP
S DR="32 OTHER.........................." D ^DIE G:$D(Y) JUMP
Q
PRTC W ! K DIR S DIR(0)="E" D ^DIR
G EXIT
JUMP ;Jump to prompts
S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S Y(1)="",OUT="Y" Q
I X["?" D G JUMP
.W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
I '$D(TABLE(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 !,?5,HTABLE(I)
S X=TABLE(X)
G @X
EXIT K CHOICES,HTABLE,TABLE
K LOS,NOP,SURG,SURG1,SURG2
K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCPPC6 4403 printed Oct 16, 2024@18:27:58 Page 2
ONCPPC6 ;HIRMFO/GWB - PCE Studies of Prostate Cancer - Table VI;7/22/96
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 KILL TABLE,HTABLE,ONCO
+3 SET TABLE("SURGERY")="SS"
+4 SET TABLE("RADIATION THERAPY")="SRT"
+5 SET TABLE("CHEMOTHERAPY")="SC"
+6 SET TABLE("HORMONE THERAPY")="SHT"
+7 SET HTABLE(1)="SURGERY"
+8 SET HTABLE(2)="RADIATION THERAPY"
+9 SET HTABLE(3)="CHEMOTHERAPY"
+10 SET HTABLE(4)="HORMONE THERAPY"
+11 SET CHOICES=4
+12 WRITE @IOF
DO HEAD^ONCPPC0
WRITE !?24,"TABLE VI - SUBSEQUENT TREATMENT",!
RFSCOT SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
+1 SET DR="656REASON FOR SECOND COURSE OF THERAPY"
DO ^DIE
if $DATA(Y)
GOTO PRTC
ST IF $DATA(^ONCO(165.5,ONCONUM,4,0))
SET SCTIEN=0
FOR
SET SCTIEN=$ORDER(^ONCO(165.5,ONCONUM,4,SCTIEN))
if SCTIEN'>0
QUIT
DO SS
if $DATA(Y)
QUIT
+1 KILL SCTIEN
GOTO PRTC
SS KILL ONC
SET DIC="^ONCO(165.5,"
SET DR="60"
SET DA=ONCONUM
SET DIQ="ONC"
+1 SET DR(165.51)=".04;.041;.051;.061;.071"
SET DA(165.51)=SCTIEN
DO EN^DIQ1
+2 SET SURG=ONC(165.51,SCTIEN,.04)
SET (SURG1,SURG2)=""
+3 SET LOS=$LENGTH(SURG)
IF LOS<43
SET SURG1=SURG
GOTO TOS
+4 SET NOP=$LENGTH($EXTRACT(SURG,1,42)," ")
+5 SET SURG1=$PIECE(SURG," ",1,NOP-1)
SET SURG2=$PIECE(SURG," ",NOP,999)
TOS WRITE !!,"SUBSEQUENT SURGERY #",SCTIEN,":",!
+1 WRITE !,"TYPE OF SURGERY....................: ",SURG1
+2 if SURG2'=""
WRITE !,?40,SURG2
+3 WRITE !,"DATE OF SURGERY....................: ",ONC(165.51,SCTIEN,.041)
SRT WRITE !!,"SUBSEQUENT RADIATION THERAPY #",SCTIEN,":",!
+1 SET DIE="^ONCO(165.5,"_ONCONUM_",4,"
SET DA(1)=ONCONUM
SET DA=SCTIEN
+2 SET DR="16RADIATION THERAPY.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 WRITE !,"DATE RADIATON THERAPY BEGAN........: ",ONC(165.51,SCTIEN,.051)
+4 WRITE !
+5 SET DR="4INTERSTITIAL RADIATION............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 WRITE !!," INTERSTITIAL RADIATION ADMINISTERED:",!
+7 SET DR="5 IODINE 125....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="6 GOLD 198......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="7 PALLADIUM 103.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="8 IRIDIUM 192...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 SET DR="9 OTHER INTERSTITIAL, NOS........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+12 WRITE !
+13 SET DR="10EXTERNAL RADIATION................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+14 WRITE !!," EXTERNAL RADIATION ADMINISTERED:",!
+15 SET DR="11 PROSTATE REGION ONLY..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+16 SET DR="12 PROSTATE & PELVIC NODES........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+17 SET DR="13 PARA-AORTIC NODES.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+18 SET DR="14 DISTANT METASTATIC SITES......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+19 SET DR="15 OTHER EXTERNAL, NOS............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+20 WRITE !!," TOTAL RAD DOSE:",!
+21 SET DR="17 PROSTATE......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+22 SET DR="18 PELVIC NODES..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+23 SET DR="19 PARA-AORTIC NODES.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
SC WRITE !!,"SUBSEQUENT CHEMOTHERAPY #",SCTIEN,":",!
+1 SET DIE="^ONCO(165.5,"_ONCONUM_",4,"
SET DA(1)=ONCONUM
SET DA=SCTIEN
+2 SET DR="20CHEMOTHERAPY......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 WRITE !,"DATE CHEMOTHERAPY BEGAN............: ",ONC(165.51,SCTIEN,.061)
+4 WRITE !!," DRUGS ADMINISTERED:",!
+5 SET DR="21 ADRIAMYCIN....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="22 CYTOXAN........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="23 METHOTREXATE..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="24 FLUOROURACIL..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="25 OTHER.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
SHT WRITE !!,"SUBSEQUENT HORMONE THERAPY #",SCTIEN,":",!
+1 SET DIE="^ONCO(165.5,"_ONCONUM_",4,"
SET DA(1)=ONCONUM
SET DA=SCTIEN
+2 SET DR="26HORMONE THERAPY...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 WRITE !,"DATE HORMONE THERAPY BEGAN.........: ",ONC(165.51,SCTIEN,.071)
+4 WRITE !!," HORMONES ADMINISTERED:",!
+5 SET DR="27 ESTROGENS......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="28 ANTIANDROGENS.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="29 PROGESTATIONAL AGENTS.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="30 LUTEINIZING HORMONE-RELEASING.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="31 ORCHIECTOMY...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="32 OTHER.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 QUIT
PRTC WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
+1 GOTO EXIT
JUMP ;Jump to prompts
+1 SET XX=""
READ !!,"GO TO: ",X:DTIME
IF (X="")!(X[U)
SET Y(1)=""
SET OUT="Y"
QUIT
+2 IF X["?"
Begin DoDot:1
+3 WRITE !,"CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+4 IF '$DATA(TABLE(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 !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+6 SET X=TABLE(X)
+7 GOTO @X
EXIT KILL CHOICES,HTABLE,TABLE
+1 KILL LOS,NOP,SURG,SURG1,SURG2
+2 KILL DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
+3 QUIT
