Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCCPC4A

ONCCPC4A.m

Go to the documentation of this file.
  1. ONCCPC4A ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table IV (continued);2/20/97
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. R W !,"RADIATION THERAPY"
  1. W !,"-----------------"
  1. S RADDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,4)
  1. S Y=RADDT D DATEOT^ONCOPCE S RADDT=Y
  1. W !," DATE RADIATION STARTED..........: ",RADDT
  1. I (RAD=0)!(RAD=7) D G C
  1. .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000"
  1. .W !," DATE RADIATION THERAPY ENDED....: 00/00/0000"
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,33)=0
  1. .W !," ENDOCAVITARY RADIATION..........: None"
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,34)=0
  1. .W !," INTRA-OPERATIVE RAD THERAPY.....: No"
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,35)=0
  1. .W !," PRIMARY TUMOR RAD DOSE W BOOST..: No radiation therapy"
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,36)=0
  1. .W !," NUMBER OF RADIATION TREATMENTS..: None"
  1. .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
  1. I (RAD=8)!(RAD=9) D G C
  1. .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)=9999999
  1. .W !," DATE RADIATION THERAPY ENDED....: 99/99/9999"
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,33)=9
  1. .W !," ENDOCAVITARY RADIATION..........: Unknown"
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,34)=9
  1. .W !," INTRA-OPERATIVE RAD THERAPY.....: Unknown"
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,35)=99999
  1. .W !," PRIMARY TUMOR RAD DOSE W BOOST..: Unknown if received radiation therapy"
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,36)=99
  1. .W !," NUMBER OF RADIATION TREATMENTS..: Unknown if radiation given"
  1. .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
  1. S DR="361 DATE RADIATION THERAPY ENDED...." D ^DIE G:$D(Y) JUMP
  1. S DR="784 ENDOCAVITARY RADIATION.........." D ^DIE G:$D(Y) JUMP
  1. S DR="785 INTRA-OPERATIVE RAD THERAPY....." D ^DIE G:$D(Y) JUMP
  1. S DR="786 PRIMARY TUMOR RAD DOSE W BOOST.." D ^DIE G:$D(Y) JUMP
  1. S DR="787 NUMBER OF RADIATION TREATMENTS.." D ^DIE G:$D(Y) JUMP W !
  1. C W !,"CHEMOTHERAPY"
  1. W !,"------------"
  1. W !," CHEMOTHERAPY....................: ",CHEMOT
  1. S CHEDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,11)
  1. S Y=CHEDT D DATEOT^ONCOPCE S CHEDT=Y
  1. W !," DATE CHEMOTHERAPY STARTED.......: ",CHEDT
  1. I (CHEMO=0)!(CHEMO=7) D G EXIT
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,37)=0
  1. .W !," ADJUVANT CHEMO W BEAM RADIATION.: No concomitant treatment"
  1. .W !!," ADJUVANT THERAPY:",!
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,38)=0
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,39)=0
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,40)=0
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,41)=0
  1. .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,32)=0
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,42)=0
  1. .W !," 5 FU (FLUOROCIL)...: No" W " CPT 11.............: No"
  1. .W !," LEUCOVORIN.........: No" W " TAXOL..............: No"
  1. .W !," LEVAMISOLE.........: No" W " OTHER..............: No",!
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,43)=0
  1. .W !," DURATION OF ADJUVANT THERAPY....: No adjuvant therapy"
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,44)=0
  1. .W !," COMPLETED DURATION OF THERAPY...: No (0-1 cycle)"
  1. .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
  1. I (CHEMO=8)!(CHEMO=9) D G EXIT
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,37)=9
  1. .W !," ADJUVANT CHEMO W BEAM RADIATION.: Unknown if therapy concomitant"
  1. .W !!," ADJUVANT THERAPY:",!
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,38)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,39)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,40)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,41)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,32)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,42)=9
  1. .W !," 5 FU (FLUOROCIL)...: Unknown" W " CPT 11.............: Unknown"
  1. .W !," LEUCOVORIN.........: Unknown" W " TAXOL..............: Unknown"
  1. .W !," LEVAMISOLE.........: Unknown" W " OTHER..............: Unknown",!
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,43)=9
  1. .W !," DURATION OF ADJUVANT THERAPY....: Unknown if therapy given"
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,44)=9
  1. .W !," COMPLETED DURATION OF THERAPY...: Unknown if therapy given"
  1. .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
  1. S DR="788 ADJUVANT CHEMO W BEAM RADIATION." D ^DIE G:$D(Y) JUMP
  1. W !!," ADJUVANT THERAPY:",!
  1. S DR="789 5 FU (FLUOROURACIL)..........." D ^DIE G:$D(Y) JUMP
  1. S DR="790 LEUCOVORIN...................." D ^DIE G:$D(Y) JUMP
  1. S DR="791 LEVAMISOLE...................." D ^DIE G:$D(Y) JUMP
  1. S DR="792 CPT 11........................" D ^DIE G:$D(Y) JUMP
  1. S DR="377 TAXOL........................." D ^DIE G:$D(Y) JUMP
  1. S DR="793 OTHER........................." D ^DIE G:$D(Y) JUMP
  1. W !
  1. S DR="794 DURATION OF ADJUVANT THERAPY...." D ^DIE G:$D(Y) JUMP
  1. S DR="795 COMPLETED DURATION OF THERAPY..." D ^DIE G:$D(Y) JUMP
  1. W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="")
  1. G EXIT
  1. JUMP ;Jump to prompts
  1. S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
  1. I X["?" D G JUMP
  1. .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
  1. I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
  1. .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
  1. S X=TABLE(X)
  1. G @X
  1. EXIT K CHOICES,HTABLE,TABLE
  1. K CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
  1. K RADDT,DIQ
  1. Q