- 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 Feb 18, 2025@23:48:54 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