ONCCPC4A ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table IV (continued);2/20/97
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
R W !,"RADIATION THERAPY"
W !,"-----------------"
S RADDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,4)
S Y=RADDT D DATEOT^ONCOPCE S RADDT=Y
W !," DATE RADIATION STARTED..........: ",RADDT
I (RAD=0)!(RAD=7) D G C
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000"
.W !," DATE RADIATION THERAPY ENDED....: 00/00/0000"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,33)=0
.W !," ENDOCAVITARY RADIATION..........: None"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,34)=0
.W !," INTRA-OPERATIVE RAD THERAPY.....: No"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,35)=0
.W !," PRIMARY TUMOR RAD DOSE W BOOST..: No radiation therapy"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,36)=0
.W !," NUMBER OF RADIATION TREATMENTS..: None"
.W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
I (RAD=8)!(RAD=9) D G C
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)=9999999
.W !," DATE RADIATION THERAPY ENDED....: 99/99/9999"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,33)=9
.W !," ENDOCAVITARY RADIATION..........: Unknown"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,34)=9
.W !," INTRA-OPERATIVE RAD THERAPY.....: Unknown"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,35)=99999
.W !," PRIMARY TUMOR RAD DOSE W BOOST..: Unknown if received radiation therapy"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,36)=99
.W !," NUMBER OF RADIATION TREATMENTS..: Unknown if radiation given"
.W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
S DR="361 DATE RADIATION THERAPY ENDED...." D ^DIE G:$D(Y) JUMP
S DR="784 ENDOCAVITARY RADIATION.........." D ^DIE G:$D(Y) JUMP
S DR="785 INTRA-OPERATIVE RAD THERAPY....." D ^DIE G:$D(Y) JUMP
S DR="786 PRIMARY TUMOR RAD DOSE W BOOST.." D ^DIE G:$D(Y) JUMP
S DR="787 NUMBER OF RADIATION TREATMENTS.." D ^DIE G:$D(Y) JUMP W !
C W !,"CHEMOTHERAPY"
W !,"------------"
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 EXIT
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,37)=0
.W !," ADJUVANT CHEMO W BEAM RADIATION.: No concomitant treatment"
.W !!," ADJUVANT THERAPY:",!
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,38)=0
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,39)=0
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,40)=0
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,41)=0
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,32)=0
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,42)=0
.W !," 5 FU (FLUOROCIL)...: No" W " CPT 11.............: No"
.W !," LEUCOVORIN.........: No" W " TAXOL..............: No"
.W !," LEVAMISOLE.........: No" W " OTHER..............: No",!
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,43)=0
.W !," DURATION OF ADJUVANT THERAPY....: No adjuvant therapy"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,44)=0
.W !," COMPLETED DURATION OF THERAPY...: No (0-1 cycle)"
.W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
I (CHEMO=8)!(CHEMO=9) D G EXIT
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,37)=9
.W !," ADJUVANT CHEMO W BEAM RADIATION.: Unknown if therapy concomitant"
.W !!," ADJUVANT THERAPY:",!
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,38)=9
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,39)=9
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,40)=9
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,41)=9
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,32)=9
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,42)=9
.W !," 5 FU (FLUOROCIL)...: Unknown" W " CPT 11.............: Unknown"
.W !," LEUCOVORIN.........: Unknown" W " TAXOL..............: Unknown"
.W !," LEVAMISOLE.........: Unknown" W " OTHER..............: Unknown",!
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,43)=9
.W !," DURATION OF ADJUVANT THERAPY....: Unknown if therapy given"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,44)=9
.W !," COMPLETED DURATION OF THERAPY...: Unknown if therapy given"
.W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
S DR="788 ADJUVANT CHEMO W BEAM RADIATION." D ^DIE G:$D(Y) JUMP
W !!," ADJUVANT THERAPY:",!
S DR="789 5 FU (FLUOROURACIL)..........." D ^DIE G:$D(Y) JUMP
S DR="790 LEUCOVORIN...................." D ^DIE G:$D(Y) JUMP
S DR="791 LEVAMISOLE...................." D ^DIE G:$D(Y) JUMP
S DR="792 CPT 11........................" D ^DIE G:$D(Y) JUMP
S DR="377 TAXOL........................." D ^DIE G:$D(Y) JUMP
S DR="793 OTHER........................." D ^DIE G:$D(Y) JUMP
W !
S DR="794 DURATION OF ADJUVANT THERAPY...." D ^DIE G:$D(Y) JUMP
S DR="795 COMPLETED DURATION OF THERAPY..." D ^DIE G:$D(Y) JUMP
W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="")
G EXIT
JUMP ;Jump to prompts
S XX="" R !!,"GO TO: ",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 !,?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 CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
K RADDT,DIQ
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCCPC4A 5168 printed Nov 22, 2024@17:32:35 Page 2
ONCCPC4A ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table IV (continued);2/20/97
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
R WRITE !,"RADIATION THERAPY"
+1 WRITE !,"-----------------"
+2 SET RADDT=$PIECE($GET(^ONCO(165.5,ONCONUM,3)),U,4)
+3 SET Y=RADDT
DO DATEOT^ONCOPCE
SET RADDT=Y
+4 WRITE !," DATE RADIATION STARTED..........: ",RADDT
+5 IF (RAD=0)!(RAD=7)
Begin DoDot:1
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000"
+7 WRITE !," DATE RADIATION THERAPY ENDED....: 00/00/0000"
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,33)=0
+9 WRITE !," ENDOCAVITARY RADIATION..........: None"
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,34)=0
+11 WRITE !," INTRA-OPERATIVE RAD THERAPY.....: No"
+12 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,35)=0
+13 WRITE !," PRIMARY TUMOR RAD DOSE W BOOST..: No radiation therapy"
+14 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,36)=0
+15 WRITE !," NUMBER OF RADIATION TREATMENTS..: None"
+16 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if (Y=0)!(Y="")
QUIT
DO HEAD^ONCCPC0
End DoDot:1
GOTO C
+17 IF (RAD=8)!(RAD=9)
Begin DoDot:1
+18 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,16)=9999999
+19 WRITE !," DATE RADIATION THERAPY ENDED....: 99/99/9999"
+20 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,33)=9
+21 WRITE !," ENDOCAVITARY RADIATION..........: Unknown"
+22 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,34)=9
+23 WRITE !," INTRA-OPERATIVE RAD THERAPY.....: Unknown"
+24 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,35)=99999
+25 WRITE !," PRIMARY TUMOR RAD DOSE W BOOST..: Unknown if received radiation therapy"
+26 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,36)=99
+27 WRITE !," NUMBER OF RADIATION TREATMENTS..: Unknown if radiation given"
+28 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if (Y=0)!(Y="")
QUIT
DO HEAD^ONCCPC0
End DoDot:1
GOTO C
+29 SET DR="361 DATE RADIATION THERAPY ENDED...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+30 SET DR="784 ENDOCAVITARY RADIATION.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+31 SET DR="785 INTRA-OPERATIVE RAD THERAPY....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+32 SET DR="786 PRIMARY TUMOR RAD DOSE W BOOST.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+33 SET DR="787 NUMBER OF RADIATION TREATMENTS.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
WRITE !
C WRITE !,"CHEMOTHERAPY"
+1 WRITE !,"------------"
+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 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,37)=0
+8 WRITE !," ADJUVANT CHEMO W BEAM RADIATION.: No concomitant treatment"
+9 WRITE !!," ADJUVANT THERAPY:",!
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,38)=0
+11 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,39)=0
+12 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,40)=0
+13 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,41)=0
+14 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,32)=0
+15 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,42)=0
+16 WRITE !," 5 FU (FLUOROCIL)...: No"
WRITE " CPT 11.............: No"
+17 WRITE !," LEUCOVORIN.........: No"
WRITE " TAXOL..............: No"
+18 WRITE !," LEVAMISOLE.........: No"
WRITE " OTHER..............: No",!
+19 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,43)=0
+20 WRITE !," DURATION OF ADJUVANT THERAPY....: No adjuvant therapy"
+21 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,44)=0
+22 WRITE !," COMPLETED DURATION OF THERAPY...: No (0-1 cycle)"
+23 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if (Y=0)!(Y="")
QUIT
DO HEAD^ONCCPC0
End DoDot:1
GOTO EXIT
+24 IF (CHEMO=8)!(CHEMO=9)
Begin DoDot:1
+25 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,37)=9
+26 WRITE !," ADJUVANT CHEMO W BEAM RADIATION.: Unknown if therapy concomitant"
+27 WRITE !!," ADJUVANT THERAPY:",!
+28 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,38)=9
+29 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,39)=9
+30 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,40)=9
+31 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,41)=9
+32 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,32)=9
+33 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,42)=9
+34 WRITE !," 5 FU (FLUOROCIL)...: Unknown"
WRITE " CPT 11.............: Unknown"
+35 WRITE !," LEUCOVORIN.........: Unknown"
WRITE " TAXOL..............: Unknown"
+36 WRITE !," LEVAMISOLE.........: Unknown"
WRITE " OTHER..............: Unknown",!
+37 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,43)=9
+38 WRITE !," DURATION OF ADJUVANT THERAPY....: Unknown if therapy given"
+39 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,44)=9
+40 WRITE !," COMPLETED DURATION OF THERAPY...: Unknown if therapy given"
+41 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if (Y=0)!(Y="")
QUIT
DO HEAD^ONCCPC0
End DoDot:1
GOTO EXIT
+42 SET DR="788 ADJUVANT CHEMO W BEAM RADIATION."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+43 WRITE !!," ADJUVANT THERAPY:",!
+44 SET DR="789 5 FU (FLUOROURACIL)..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+45 SET DR="790 LEUCOVORIN...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+46 SET DR="791 LEVAMISOLE...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+47 SET DR="792 CPT 11........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+48 SET DR="377 TAXOL........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+49 SET DR="793 OTHER........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+50 WRITE !
+51 SET DR="794 DURATION OF ADJUVANT THERAPY...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+52 SET DR="795 COMPLETED DURATION OF THERAPY..."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+53 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if (Y=0)!(Y="")
QUIT
+54 GOTO EXIT
JUMP ;Jump to prompts
+1 SET XX=""
READ !!,"GO TO: ",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 !,?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 CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
+2 KILL RADDT,DIQ
+3 QUIT
