ONCBPC4A ;HIRMFO/GWB - PCE Study of Cancers of the Urinary Bladder Table IV;6/19/96
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
RAD W !!,"RADIATION THERAPY:",!
S RAD=ONC(165.5,ONCONUM,51.2,"I"),RADOT=ONC(165.5,ONCONUM,51.2,"E")
W !," RADIATION THERAPY.................: ",RADOT
S RADDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,4)
S Y=RADDT D DATEOT^ONCOPCE S RADDT=Y
W !," DATE RADIATION THERAPY STARTED....: ",RADDT
I (RAD=0)!(RAD=7) D G:(Y=0)!(Y="") EXIT W @IOF G CHEMO
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000" ; 2/2/98 WAA
.W !," DATE RADIATION THERAPY ENDED......: 00/00/0000"
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=0
.W !," TOTAL RAD (cGy/rad) DOSE..........: 00000"
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,18)=1
.W !," REGIONAL TREATMENT MODALITY.......: No radiation therapy"
.W !!," RADIATION COMPLICATIONS:",!
.F PIECE=19:1:21 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=8
.W !," URINARY INCONTINENCE............: Not applicable"
.W !," HEMATURIA.......................: Not applicable"
.W !," RADIATION BOWEL INJURY..........: Not applicable"
.W ! K DIR S DIR(0)="E" D ^DIR
I (RAD=8)!(RAD=9) D G:(Y=0)!(Y="") EXIT W @IOF G CHEMO
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)=9999999 ; 2/2/98 WAA
.W !," DATE RADIATION THERAPY ENDED......: 99/99/9999"
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=99999
.W !," TOTAL RAD (cGy/rad) DOSE..........: 99999"
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,18)=19
.W !," REGIONAL TREATMENT MODALITY.......: Unknown"
.W !!," RADIATION COMPLICATIONS:",!
.F PIECE=19:1:21 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=9
.W !," URINARY INCONTINENCE............: Unknown"
.W !," HEMATURIA.......................: Unknown"
.W !," RADIATION BOWEL INJURY..........: Unknown"
.W ! K DIR S DIR(0)="E" D ^DIR
S DR="361 DATE RADIATION THERAPY ENDED......" D ^DIE G:$D(Y) JUMP
S DR="362 TOTAL RAD (cGy/rad) DOSE.........." D ^DIE G:$D(Y) JUMP
S DR="363 REGIONAL TREATMENT MODALITY......." D ^DIE G:$D(Y) JUMP
W !!," RADIATION COMPLICATIONS:",!
S DR="364 URINARY INCONTINENCE............" D ^DIE G:$D(Y) JUMP
S DR="365 HEMATURIA......................." D ^DIE G:$D(Y) JUMP
S DR="366 RADIATION BOWEL INJURY.........." D ^DIE G:$D(Y) JUMP
CHEMO W !!,"CHEMOTHERAPY:",!
S CHEMO=ONC(165.5,ONCONUM,53.2,"I"),CHEMOT=ONC(165.5,ONCONUM,53.2,"E")
W !," CHEMOTHERAPY......................: ",CHEMOT
S CHEDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,11)
S Y=CHEDT D DATEOT^ONCOPCE S CHEDT=Y
W !," DATE CHEMOTHERAPY STARTED.........: ",CHEDT
I (CHEMO=0)!(CHEMO=7) D G:(Y=0)!(Y="") EXIT W @IOF G BRM
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,22)="0000000" ; 2/2/98 WAA
.W !," DATE CHEMOTHERAPY ENDED...........: 00/00/0000"
.F PIECE=23:1:36 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=0
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,41)=0
.W !," ROUTE CHEMOTHERAPY ADMINISTERED...: No chemotherapy"
.W !!," TYPES OF AGENTS ADMINISTERED:",!
.W !," ADRIAMYCIN......: None IFOSFAMIDE......: None"
.W !," CARBOPLATINUM...: None METHOTREXATE....: None"
.W !," CISPLATIN.......: None TAXOL...........: None"
.W !," CYCLOPHOSPHAMIDE: None THIOTEPA........: None"
.W !," 5-FLUOROURACIL..: None VINBLASTINE.....: None"
.W !," GALLIUM NITRATE.: None OTHER...........: None"
.W !!," INDICATION FOR ADMIN OF AGENTS....: No agents administered, NA"
.W !!," REASON CHEMOTHERAPY STOPPED.......: Treatment completed, NA"
.W ! K DIR S DIR(0)="E" D ^DIR
I (CHEMO=8)!(CHEMO=9) D G:(Y=0)!(Y="") EXIT W @IOF G BRM
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,22)=9999999 ; 2/2/98 WAA
.W !," DATE CHEMOTHERAPY ENDED...........: 99/99/9999"
.F PIECE=23:1:36 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=9
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,41)=9
.W !," ROUTE CHEMOTHERAPY ADMINISTERED...: Unknown"
.W !!," TYPES OF AGENTS ADMINISTERED:",!
.W !," ADRIAMYCIN......: Unknown IFOSFAMIDE......: Unknown"
.W !," CARBOPLATINUM...: Unknown METHOTREXATE....: Unknown"
.W !," CISPLATIN.......: Unknown TAXOL...........: Unknown"
.W !," CYCLOPHOSPHAMIDE: Unknown THIOTEPA........: Unknown"
.W !," 5-FLUOROURACIL..: Unknown VINBLASTINE.....: Unknown"
.W !," GALLIUM NITRATE.: Unknown OTHER...........: Unknown"
.W !!," INDICATION FOR ADMIN OF AGENTS....: Unknown"
.W !!," REASON CHEMOTHERAPY STOPPED.......: Unknown"
.W ! K DIR S DIR(0)="E" D ^DIR
S DR="367 DATE CHEMOTHERAPY ENDED..........." D ^DIE G:$D(Y) JUMP
S DR="368 ROUTE CHEMOTHERAPY ADMINISTERED..." D ^DIE G:$D(Y) JUMP
W !!," TYPES OF AGENTS ADMINISTERED:",!
S DR="369 ADRIAMYCIN......................" D ^DIE G:$D(Y) JUMP
S DR="370 CARBOPLATINUM..................." D ^DIE G:$D(Y) JUMP
S DR="371 CISPLATIN......................." D ^DIE G:$D(Y) JUMP
S DR="372 CYCLOPHOSPHAMIDE................" D ^DIE G:$D(Y) JUMP
S DR="373 5-FLUOROURACIL.................." D ^DIE G:$D(Y) JUMP
S DR="374 GALLIUM NITRATE................." D ^DIE G:$D(Y) JUMP
S DR="375 IFOSFAMIDE......................" D ^DIE G:$D(Y) JUMP
S DR="376 METHOTREXATE...................." D ^DIE G:$D(Y) JUMP
S DR="377 TAXOL..........................." D ^DIE G:$D(Y) JUMP
S DR="378 THIOTEPA........................" D ^DIE G:$D(Y) JUMP
S DR="379 VINBLASTINE....................." D ^DIE G:$D(Y) JUMP
S DR="380 OTHER AGENT....................." D ^DIE G:$D(Y) JUMP
W !
S DR="381 INDICATION FOR ADMIN OF AGENTS...." D ^DIE G:$D(Y) JUMP
S DR="382 REASON CHEMOTHERAPY STOPPED......." D ^DIE G:$D(Y) JUMP
BRM W !!,"IMMUNOTHERAPY:",!
S BRM=ONC(165.5,ONCONUM,55.2,"I"),BRMOT=ONC(165.5,ONCONUM,55.2,"E")
W !," IMMUNOTHERAPY (BRM)...............: ",BRMOT
W !!," TYPE OF IMMUNOTHERAPY (BRM):",!
I (BRM=6)!(BRM=7) D W ! K DIR S DIR(0)="E" D ^DIR G EXIT
.F PIECE=37:1:40 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=0
.W !," BCG......................: None"
.W !," INTERFERON...............: None"
.W !," INTERLEUKIN-II...........: None"
.W !," OTHER....................: None"
I (BRM=8)!(BRM=9) D W ! K DIR S DIR(0)="E" D ^DIR G EXIT
.F PIECE=37:1:40 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=9
.W !," BCG......................: Unknown"
.W !," INTERFERON...............: Unknown"
.W !," INTERLEUKIN-II...........: Unknown"
.W !," OTHER....................: Unknown"
S DR="383 BCG............................." D ^DIE G:$D(Y) JUMP
S DR="384 INTERFERON......................" D ^DIE G:$D(Y) JUMP
S DR="385 INTERLEUKIN-II.................." D ^DIE G:$D(Y) JUMP
S DR="386 OTHER..........................." D ^DIE G:$D(Y) JUMP
W ! K DIR S DIR(0)="E" D ^DIR
G EXIT
JUMP ;Jump to prompts
S XX="" R !!,"GO TO: ",X:DTIME G:(X="")!(X[U) EXIT
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 BRM,CDS,CDSOT,CHEDT,CHEMO,DOIT,LOS,NCDS,NCDSOT,NOP,PIECE,RAD,RADDT
K SURG,SURG1,SURG2,SURGDT,Z
K DIC
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCBPC4A 7193 printed Dec 13, 2024@02:22:11 Page 2
ONCBPC4A ;HIRMFO/GWB - PCE Study of Cancers of the Urinary Bladder Table IV;6/19/96
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
RAD WRITE !!,"RADIATION THERAPY:",!
+1 SET RAD=ONC(165.5,ONCONUM,51.2,"I")
SET RADOT=ONC(165.5,ONCONUM,51.2,"E")
+2 WRITE !," RADIATION THERAPY.................: ",RADOT
+3 SET RADDT=$PIECE($GET(^ONCO(165.5,ONCONUM,3)),U,4)
+4 SET Y=RADDT
DO DATEOT^ONCOPCE
SET RADDT=Y
+5 WRITE !," DATE RADIATION THERAPY STARTED....: ",RADDT
+6 IF (RAD=0)!(RAD=7)
Begin DoDot:1
+7 ; 2/2/98 WAA
SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000"
+8 WRITE !," DATE RADIATION THERAPY ENDED......: 00/00/0000"
+9 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=0
+10 WRITE !," TOTAL RAD (cGy/rad) DOSE..........: 00000"
+11 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,18)=1
+12 WRITE !," REGIONAL TREATMENT MODALITY.......: No radiation therapy"
+13 WRITE !!," RADIATION COMPLICATIONS:",!
+14 FOR PIECE=19:1:21
SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=8
+15 WRITE !," URINARY INCONTINENCE............: Not applicable"
+16 WRITE !," HEMATURIA.......................: Not applicable"
+17 WRITE !," RADIATION BOWEL INJURY..........: Not applicable"
+18 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
End DoDot:1
if (Y=0)!(Y="")
GOTO EXIT
WRITE @IOF
GOTO CHEMO
+19 IF (RAD=8)!(RAD=9)
Begin DoDot:1
+20 ; 2/2/98 WAA
SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,16)=9999999
+21 WRITE !," DATE RADIATION THERAPY ENDED......: 99/99/9999"
+22 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=99999
+23 WRITE !," TOTAL RAD (cGy/rad) DOSE..........: 99999"
+24 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,18)=19
+25 WRITE !," REGIONAL TREATMENT MODALITY.......: Unknown"
+26 WRITE !!," RADIATION COMPLICATIONS:",!
+27 FOR PIECE=19:1:21
SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=9
+28 WRITE !," URINARY INCONTINENCE............: Unknown"
+29 WRITE !," HEMATURIA.......................: Unknown"
+30 WRITE !," RADIATION BOWEL INJURY..........: Unknown"
+31 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
End DoDot:1
if (Y=0)!(Y="")
GOTO EXIT
WRITE @IOF
GOTO CHEMO
+32 SET DR="361 DATE RADIATION THERAPY ENDED......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+33 SET DR="362 TOTAL RAD (cGy/rad) DOSE.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+34 SET DR="363 REGIONAL TREATMENT MODALITY......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+35 WRITE !!," RADIATION COMPLICATIONS:",!
+36 SET DR="364 URINARY INCONTINENCE............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+37 SET DR="365 HEMATURIA......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+38 SET DR="366 RADIATION BOWEL INJURY.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
CHEMO WRITE !!,"CHEMOTHERAPY:",!
+1 SET CHEMO=ONC(165.5,ONCONUM,53.2,"I")
SET CHEMOT=ONC(165.5,ONCONUM,53.2,"E")
+2 WRITE !," CHEMOTHERAPY......................: ",CHEMOT
+3 SET CHEDT=$PIECE($GET(^ONCO(165.5,ONCONUM,3)),U,11)
+4 SET Y=CHEDT
DO DATEOT^ONCOPCE
SET CHEDT=Y
+5 WRITE !," DATE CHEMOTHERAPY STARTED.........: ",CHEDT
+6 IF (CHEMO=0)!(CHEMO=7)
Begin DoDot:1
+7 ; 2/2/98 WAA
SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,22)="0000000"
+8 WRITE !," DATE CHEMOTHERAPY ENDED...........: 00/00/0000"
+9 FOR PIECE=23:1:36
SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=0
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,41)=0
+11 WRITE !," ROUTE CHEMOTHERAPY ADMINISTERED...: No chemotherapy"
+12 WRITE !!," TYPES OF AGENTS ADMINISTERED:",!
+13 WRITE !," ADRIAMYCIN......: None IFOSFAMIDE......: None"
+14 WRITE !," CARBOPLATINUM...: None METHOTREXATE....: None"
+15 WRITE !," CISPLATIN.......: None TAXOL...........: None"
+16 WRITE !," CYCLOPHOSPHAMIDE: None THIOTEPA........: None"
+17 WRITE !," 5-FLUOROURACIL..: None VINBLASTINE.....: None"
+18 WRITE !," GALLIUM NITRATE.: None OTHER...........: None"
+19 WRITE !!," INDICATION FOR ADMIN OF AGENTS....: No agents administered, NA"
+20 WRITE !!," REASON CHEMOTHERAPY STOPPED.......: Treatment completed, NA"
+21 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
End DoDot:1
if (Y=0)!(Y="")
GOTO EXIT
WRITE @IOF
GOTO BRM
+22 IF (CHEMO=8)!(CHEMO=9)
Begin DoDot:1
+23 ; 2/2/98 WAA
SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,22)=9999999
+24 WRITE !," DATE CHEMOTHERAPY ENDED...........: 99/99/9999"
+25 FOR PIECE=23:1:36
SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=9
+26 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,41)=9
+27 WRITE !," ROUTE CHEMOTHERAPY ADMINISTERED...: Unknown"
+28 WRITE !!," TYPES OF AGENTS ADMINISTERED:",!
+29 WRITE !," ADRIAMYCIN......: Unknown IFOSFAMIDE......: Unknown"
+30 WRITE !," CARBOPLATINUM...: Unknown METHOTREXATE....: Unknown"
+31 WRITE !," CISPLATIN.......: Unknown TAXOL...........: Unknown"
+32 WRITE !," CYCLOPHOSPHAMIDE: Unknown THIOTEPA........: Unknown"
+33 WRITE !," 5-FLUOROURACIL..: Unknown VINBLASTINE.....: Unknown"
+34 WRITE !," GALLIUM NITRATE.: Unknown OTHER...........: Unknown"
+35 WRITE !!," INDICATION FOR ADMIN OF AGENTS....: Unknown"
+36 WRITE !!," REASON CHEMOTHERAPY STOPPED.......: Unknown"
+37 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
End DoDot:1
if (Y=0)!(Y="")
GOTO EXIT
WRITE @IOF
GOTO BRM
+38 SET DR="367 DATE CHEMOTHERAPY ENDED..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+39 SET DR="368 ROUTE CHEMOTHERAPY ADMINISTERED..."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+40 WRITE !!," TYPES OF AGENTS ADMINISTERED:",!
+41 SET DR="369 ADRIAMYCIN......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+42 SET DR="370 CARBOPLATINUM..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+43 SET DR="371 CISPLATIN......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+44 SET DR="372 CYCLOPHOSPHAMIDE................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+45 SET DR="373 5-FLUOROURACIL.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+46 SET DR="374 GALLIUM NITRATE................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+47 SET DR="375 IFOSFAMIDE......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+48 SET DR="376 METHOTREXATE...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+49 SET DR="377 TAXOL..........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+50 SET DR="378 THIOTEPA........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+51 SET DR="379 VINBLASTINE....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+52 SET DR="380 OTHER AGENT....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+53 WRITE !
+54 SET DR="381 INDICATION FOR ADMIN OF AGENTS...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+55 SET DR="382 REASON CHEMOTHERAPY STOPPED......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
BRM WRITE !!,"IMMUNOTHERAPY:",!
+1 SET BRM=ONC(165.5,ONCONUM,55.2,"I")
SET BRMOT=ONC(165.5,ONCONUM,55.2,"E")
+2 WRITE !," IMMUNOTHERAPY (BRM)...............: ",BRMOT
+3 WRITE !!," TYPE OF IMMUNOTHERAPY (BRM):",!
+4 IF (BRM=6)!(BRM=7)
Begin DoDot:1
+5 FOR PIECE=37:1:40
SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=0
+6 WRITE !," BCG......................: None"
+7 WRITE !," INTERFERON...............: None"
+8 WRITE !," INTERLEUKIN-II...........: None"
+9 WRITE !," OTHER....................: None"
End DoDot:1
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
GOTO EXIT
+10 IF (BRM=8)!(BRM=9)
Begin DoDot:1
+11 FOR PIECE=37:1:40
SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=9
+12 WRITE !," BCG......................: Unknown"
+13 WRITE !," INTERFERON...............: Unknown"
+14 WRITE !," INTERLEUKIN-II...........: Unknown"
+15 WRITE !," OTHER....................: Unknown"
End DoDot:1
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
GOTO EXIT
+16 SET DR="383 BCG............................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+17 SET DR="384 INTERFERON......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+18 SET DR="385 INTERLEUKIN-II.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+19 SET DR="386 OTHER..........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+20 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
+21 GOTO EXIT
JUMP ;Jump to prompts
+1 SET XX=""
READ !!,"GO TO: ",X:DTIME
if (X="")!(X[U)
GOTO EXIT
+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 BRM,CDS,CDSOT,CHEDT,CHEMO,DOIT,LOS,NCDS,NCDSOT,NOP,PIECE,RAD,RADDT
+2 KILL SURG,SURG1,SURG2,SURGDT,Z
+3 KILL DIC
+4 QUIT
