source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCNPC4A.m@ 1800

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

initial load of WorldVistAEHR
File size: 5.1 KB
RevLine 
[613]1ONCNPC4A ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table IV;4/18/97
2 ;;2.11;ONCOLOGY;**15,16**;Mar 07, 1995
3SC W !!,"SYSTEMIC CHEMOTHERAPY"
4 W !,"---------------------"
5 S DR="864 SYSTEMIC CHEMOTHERAPY..........." D ^DIE G:$D(Y) JUMP
6 I X=0 D G IC
7 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,20)="0000000"
8 .W !," SYSTEMIC CHEMOTHERAPY DATE......: 00/00/0000"
9 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,21)=88
10 .W !," NUMBER OF PLANNED CYCLES........: NA"
11 .W !!," AGENT ADMINISTERED DURING SYSTEMIC CHEMOTHERAPY:",!
12 .W !," SINGLE-AGENT CHEMOTHERAPY:",!
13 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,22)=8
14 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,23)=8
15 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,24)=8
16 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,25)=8
17 .W !," CHLORAMBUCIL.....: NA DOXORUBICIN......: NA"
18 .W !," CYCLOPHOSPHAMIDE.: NA FLUDARABINE......: NA"
19 .W !!," COMBINATION CHEMOTHERAPY:",!
20 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,26)=8
21 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,27)=8
22 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,28)=8
23 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,29)=8
24 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,30)=8
25 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,31)=8
26 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,32)=8
27 .W !," CHOP.............: NA M-BACOD..........: NA"
28 .W !," CVP..............: NA PRO-MACE-Cyta BOM: NA"
29 .W !," COMLA............: NA OTHER............: NA"
30 .W !," MACOP-B..........: NA"
31 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,33)=0
32 .W !!," HIGH DOSE W STEM CELL RESCUE..: No"
33 .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCNPC0
34 I X=9 D G IC
35 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,20)="0000000"
36 .W !," SYSTEMIC CHEMOTHERAPY DATE......: 00/00/0000"
37 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,21)=99
38 .W !," NUMBER OF PLANNED CYCLES........: Unknown if chemotherapy given"
39 .W !!," AGENT ADMINISTERED DURING SYSTEMIC CHEMOTHERAPY:",!
40 .W !," SINGLE-AGENT CHEMOTHERAPY:",!
41 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,22)=9
42 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,23)=9
43 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,24)=9
44 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,25)=9
45 .W !," CHLORAMBUCIL.....: Unknown if given DOXORUBICIN......: Unknown if given"
46 .W !," CYCLOPHOSPHAMIDE.: Unknown if given FLUDARABINE......: Unknown if given"
47 .W !!," COMBINATION CHEMOTHERAPY:",!
48 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,26)=9
49 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,27)=9
50 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,28)=9
51 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,29)=9
52 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,30)=9
53 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,31)=9
54 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,32)=9
55 .W !," CHOP.............: Unknown if given M-BACOD..........: Unknown if given"
56 .W !," CVP..............: Unknown if given PRO-MACE-Cyta BOM: Unknown if given"
57 .W !," COMLA............: Unknown if given OTHER............: Unknown if given"
58 .W !," MACOP-B..........: Unknown if given"
59 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,33)=9
60 .W !!," HIGH DOSE W STEM CELL RESCUE..: Unknown if given"
61 .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCNPC0
62 S DR="865 SYSTEMIC CHEMOTHERAPY DATE......" D ^DIE G:$D(Y) JUMP
63 S DR="866 NUMBER OF PLANNED CYCLES........" D ^DIE G:$D(Y) JUMP
64 W !!," AGENT ADMINISTERED DURING SYSTEMIC CHEMOTHERAPY:",!
65 W !," SINGLE-AGENT CHEMOTHERAPY:",!
66 S DR="867 CHLORAMBUCIL................" D ^DIE G:$D(Y) JUMP
67 S DR="868 CYCLOPHOSPHAMIDE............" D ^DIE G:$D(Y) JUMP
68 S DR="869 DOXORUBICIN................." D ^DIE G:$D(Y) JUMP
69 S DR="870 FLUDARABINE................." D ^DIE G:$D(Y) JUMP
70 W !!," COMBINATION CHEMOTHERAPY:",!
71 S DR="871 CHOP........................" D ^DIE G:$D(Y) JUMP
72 S DR="872 CVP........................." D ^DIE G:$D(Y) JUMP
73 S DR="873 COMLA......................." D ^DIE G:$D(Y) JUMP
74 S DR="874 MACOP-B....................." D ^DIE G:$D(Y) JUMP
75 S DR="875 M-BACOD....................." D ^DIE G:$D(Y) JUMP
76 S DR="876 PRO-MACE-Cyta BOM..........." D ^DIE G:$D(Y) JUMP
77 S DR="877 OTHER......................." D ^DIE G:$D(Y) JUMP
78 W !
79 S DR="878 HIGH DOSE W STEM CELL RESCUE...." D ^DIE G:$D(Y) JUMP
80IC W !!,"INTRATHECAL CHEMOTHERAPY"
81 W !,"------------------------"
82 S DR="879 INTRATHECAL CHEMOTHERAPY........" D ^DIE G:$D(Y) JUMP
83 I X=0 D G I
84 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,35)=7
85 .W !," PURPOSE.........................: NA, not administered"
86 I X=9 D G I
87 .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,35)=9
88 .W !," PURPOSE.........................: Unknown if administered"
89 S DR="880 PURPOSE........................." D ^DIE G:$D(Y) JUMP
90I W !!,"IMMUNOTHERAPY"
91 W !,"-------------"
92 S DR="881 INTERLEUKIN-2 (IL-2)............" D ^DIE G:$D(Y) JUMP
93 S DR="882 INTERFERON......................" D ^DIE G:$D(Y) JUMP
94 S DR="883 MONOCLONAL ANTIBODIES..........." D ^DIE G:$D(Y) JUMP
95 S DR="884 VACCINE THERAPY................." D ^DIE G:$D(Y) JUMP
96 W ! K DIR S DIR(0)="E" D ^DIR
97 Q
98JUMP ;Jump to prompts
99 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT^ONCNPC4
100 I X["?" D G JUMP
101 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
102 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
103 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
104 S X=TABLE(X)
105 G @X
Note: See TracBrowser for help on using the repository browser.