source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCCPC4A.m@ 846

Last change on this file since 846 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 4.9 KB
RevLine 
[613]1ONCCPC4A ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table IV (continued);2/20/97
2 ;;2.11;ONCOLOGY;**11,16**;Mar 07, 1995
3R W !,"RADIATION THERAPY"
4 W !,"-----------------"
5 S RADDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,4)
6 S Y=RADDT D DATEOT^ONCOPCE S RADDT=Y
7 W !," DATE RADIATION STARTED..........: ",RADDT
8 I (RAD=0)!(RAD=7) D G C
9 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000"
10 .W !," DATE RADIATION THERAPY ENDED....: 00/00/0000"
11 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,33)=0
12 .W !," ENDOCAVITARY RADIATION..........: None"
13 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,34)=0
14 .W !," INTRA-OPERATIVE RAD THERAPY.....: No"
15 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,35)=0
16 .W !," PRIMARY TUMOR RAD DOSE W BOOST..: No radiation therapy"
17 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,36)=0
18 .W !," NUMBER OF RADIATION TREATMENTS..: None"
19 .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
20 I (RAD=8)!(RAD=9) D G C
21 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)=9999999
22 .W !," DATE RADIATION THERAPY ENDED....: 99/99/9999"
23 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,33)=9
24 .W !," ENDOCAVITARY RADIATION..........: Unknown"
25 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,34)=9
26 .W !," INTRA-OPERATIVE RAD THERAPY.....: Unknown"
27 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,35)=99999
28 .W !," PRIMARY TUMOR RAD DOSE W BOOST..: Unknown if received radiation therapy"
29 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,36)=99
30 .W !," NUMBER OF RADIATION TREATMENTS..: Unknown if radiation given"
31 .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
32 S DR="361 DATE RADIATION THERAPY ENDED...." D ^DIE G:$D(Y) JUMP
33 S DR="784 ENDOCAVITARY RADIATION.........." D ^DIE G:$D(Y) JUMP
34 S DR="785 INTRA-OPERATIVE RAD THERAPY....." D ^DIE G:$D(Y) JUMP
35 S DR="786 PRIMARY TUMOR RAD DOSE W BOOST.." D ^DIE G:$D(Y) JUMP
36 S DR="787 NUMBER OF RADIATION TREATMENTS.." D ^DIE G:$D(Y) JUMP W !
37C W !,"CHEMOTHERAPY"
38 W !,"------------"
39 W !," CHEMOTHERAPY....................: ",CHEMOT
40 S CHEDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,11)
41 S Y=CHEDT D DATEOT^ONCOPCE S CHEDT=Y
42 W !," DATE CHEMOTHERAPY STARTED.......: ",CHEDT
43 I (CHEMO=0)!(CHEMO=7) D G EXIT
44 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,37)=0
45 .W !," ADJUVANT CHEMO W BEAM RADIATION.: No concomitant treatment"
46 .W !!," ADJUVANT THERAPY:",!
47 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,38)=0
48 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,39)=0
49 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,40)=0
50 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,41)=0
51 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,32)=0
52 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,42)=0
53 .W !," 5 FU (FLUOROCIL)...: No" W " CPT 11.............: No"
54 .W !," LEUCOVORIN.........: No" W " TAXOL..............: No"
55 .W !," LEVAMISOLE.........: No" W " OTHER..............: No",!
56 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,43)=0
57 .W !," DURATION OF ADJUVANT THERAPY....: No adjuvant therapy"
58 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,44)=0
59 .W !," COMPLETED DURATION OF THERAPY...: No (0-1 cycle)"
60 .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
61 I (CHEMO=8)!(CHEMO=9) D G EXIT
62 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,37)=9
63 .W !," ADJUVANT CHEMO W BEAM RADIATION.: Unknown if therapy concomitant"
64 .W !!," ADJUVANT THERAPY:",!
65 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,38)=9
66 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,39)=9
67 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,40)=9
68 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,41)=9
69 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,32)=9
70 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,42)=9
71 .W !," 5 FU (FLUOROCIL)...: Unknown" W " CPT 11.............: Unknown"
72 .W !," LEUCOVORIN.........: Unknown" W " TAXOL..............: Unknown"
73 .W !," LEVAMISOLE.........: Unknown" W " OTHER..............: Unknown",!
74 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,43)=9
75 .W !," DURATION OF ADJUVANT THERAPY....: Unknown if therapy given"
76 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,44)=9
77 .W !," COMPLETED DURATION OF THERAPY...: Unknown if therapy given"
78 .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
79 S DR="788 ADJUVANT CHEMO W BEAM RADIATION." D ^DIE G:$D(Y) JUMP
80 W !!," ADJUVANT THERAPY:",!
81 S DR="789 5 FU (FLUOROURACIL)..........." D ^DIE G:$D(Y) JUMP
82 S DR="790 LEUCOVORIN...................." D ^DIE G:$D(Y) JUMP
83 S DR="791 LEVAMISOLE...................." D ^DIE G:$D(Y) JUMP
84 S DR="792 CPT 11........................" D ^DIE G:$D(Y) JUMP
85 S DR="377 TAXOL........................." D ^DIE G:$D(Y) JUMP
86 S DR="793 OTHER........................." D ^DIE G:$D(Y) JUMP
87 W !
88 S DR="794 DURATION OF ADJUVANT THERAPY...." D ^DIE G:$D(Y) JUMP
89 S DR="795 COMPLETED DURATION OF THERAPY..." D ^DIE G:$D(Y) JUMP
90 W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="")
91 G EXIT
92JUMP ;Jump to prompts
93 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
94 I X["?" D G JUMP
95 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
96 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
97 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
98 S X=TABLE(X)
99 G @X
100EXIT K CHOICES,HTABLE,TABLE
101 K CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
102 K RADDT,DIQ
103 Q
Note: See TracBrowser for help on using the repository browser.