source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCSPC4A.m@ 1361

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

initial load of WorldVistAEHR
File size: 6.6 KB
RevLine 
[613]1ONCSPC4A ;HIRMFO/GWB - PCE Study of Soft Tissue Sarcoma Table IV;6/19/96
2 ;;2.11;ONCOLOGY;**6**;Mar 07, 1995
3C W !!,"CHEMOTHERAPY:",!
4 S CHEMO=ONC(165.5,ONCONUM,53.2,"I"),CHEMOT=ONC(165.5,ONCONUM,53.2,"E")
5 W !," CHEMOTHERAPY....................: ",CHEMOT
6 S CHEDT=ONC(165.5,ONCONUM,53,"I"),Y=CHEDT D DATEOT^ONCOPCE S CHEDT=Y
7 W !," DATE OF CHEMOTHERAPY............: ",CHEDT
8 W !!,"AGENTS ADMINISTERED, METHODS OF DELIVERY AND LOCATIONS:",!
9 I CHEMO=0 D G CSF
10 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,26)=0
11 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,18)=8
12 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,24)=8
13 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,14)=0
14 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,19)=8
15 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,25)=8
16 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,15)=0
17 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,20)=8
18 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,26)=8
19 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,16)=0
20 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,21)=8
21 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,27)=8
22 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,17)=0
23 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,22)=8
24 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,28)=8
25 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,30)=0
26 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,23)=8
27 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,29)=8
28 .W !," CISPLATIN.........: No DOXORUBICIN.......: No"
29 .W !," METHOD OF DELIVERY: Not applicable METHOD OF DELIVERY: Not applicable"
30 .W !," LOCATION..........: Not applicable LOCATION..........: Not applicable"
31 .W !!," CYTOXAN...........: No ETOPOSIDE.........: No"
32 .W !," METHOD OF DELIVERY: Not applicable METHOD OF DELIVERY: Not applicable"
33 .W !," LOCATION..........: Not applicable LOCATION..........: Not applicable"
34 .W !!," DTIC..............: No IFOSFAMIDE........: No"
35 .W !," METHOD OF DELIVERY: Not applicable METHOD OF DELIVERY: Not applicable"
36 .W !," LOCATION..........: Not applicable LOCATION..........: Not applicable"
37CIS S DR="371 CISPLATIN......................." D ^DIE G:$D(Y) JUMP
38 I X=0 D G CYT
39 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,18)=8
40 .W !," METHOD OF DELIVERY..............: Not applicable"
41 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,24)=8
42 .W !," LOCATION........................: Not applicable"
43 I X=9 D G CYT
44 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,18)=9
45 .W !," METHOD OF DELIVERY..............: Unknown"
46 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,24)=9
47 .W !," LOCATION........................: Unknown"
48 S DR="547 METHOD OF DELIVERY.............." D ^DIE G:$D(Y) JUMP
49 S DR="553 LOCATION........................" D ^DIE G:$D(Y) JUMP
50CYT W !
51 S DR="543 CYTOXAN........................." D ^DIE G:$D(Y) JUMP
52 I X=0 D G DTIC
53 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,19)=8
54 .W !," METHOD OF DELIVERY..............: Not applicable"
55 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,25)=8
56 .W !," LOCATION........................: Not applicable"
57 I X=9 D G DTIC
58 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,19)=9
59 .W !," METHOD OF DELIVERY..............: Unknown"
60 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,25)=9
61 .W !," LOCATION........................: Unknown"
62 S DR="548 METHOD OF DELIVERY.............." D ^DIE G:$D(Y) JUMP
63 S DR="554 LOCATION........................" D ^DIE G:$D(Y) JUMP
64DTIC W !
65 S DR="544 DTIC............................" D ^DIE G:$D(Y) JUMP
66 I X=0 D G DOX
67 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,20)=8
68 .W !," METHOD OF DELIVERY..............: Not applicable"
69 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,26)=8
70 .W !," LOCATION........................: Not applicable"
71 I X=9 D G DOX
72 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,20)=9
73 .W !," METHOD OF DELIVERY..............: Unknown"
74 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,26)=9
75 .W !," LOCATION........................: Unknown"
76 S DR="549 METHOD OF DELIVERY.............." D ^DIE G:$D(Y) JUMP
77 S DR="555 LOCATION........................" D ^DIE G:$D(Y) JUMP
78DOX W !
79 S DR="545 DOXURUBICIN....................." D ^DIE G:$D(Y) JUMP
80 I X=0 D G ETO
81 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,21)=8
82 .W !," METHOD OF DELIVERY..............: Not applicable"
83 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,27)=8
84 .W !," LOCATION........................: Not applicable"
85 I X=9 D G ETO
86 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,21)=9
87 .W !," METHOD OF DELIVERY..............: Unknown"
88 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,27)=9
89 .W !," LOCATION........................: Unknown"
90 S DR="550 METHOD OF DELIVERY.............." D ^DIE G:$D(Y) JUMP
91 S DR="556 LOCATION........................" D ^DIE G:$D(Y) JUMP
92ETO W !
93 S DR="546 ETOPOSIDE......................." D ^DIE G:$D(Y) JUMP
94 I X=0 D G IFO
95 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,22)=8
96 .W !," METHOD OF DELIVERY..............: Not applicable"
97 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,28)=8
98 .W !," LOCATION........................: Not applicable"
99 I X=9 D G IFO
100 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,22)=9
101 .W !," METHOD OF DELIVERY..............: Unknown"
102 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,28)=9
103 .W !," LOCATION........................: Unknown"
104 S DR="551 METHOD OF DELIVERY.............." D ^DIE G:$D(Y) JUMP
105 S DR="557 LOCATION........................" D ^DIE G:$D(Y) JUMP
106IFO W !
107 S DR="375 IFOSFAMIDE......................" D ^DIE G:$D(Y) JUMP
108 I X=0 D G CSF
109 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,23)=8
110 .W !," METHOD OF DELIVERY..............: Not applicable"
111 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,29)=8
112 .W !," LOCATION........................: Not applicable"
113 I X=9 D G CSF
114 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,23)=9
115 .W !," METHOD OF DELIVERY..............: Unknown"
116 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,29)=9
117 .W !," LOCATION........................: Unknown"
118 S DR="552 METHOD OF DELIVERY.............." D ^DIE G:$D(Y) JUMP
119 S DR="558 LOCATION........................" D ^DIE G:$D(Y) JUMP
120CSF W ! S DR="559 COLONY STIMULATING FACTORS......" D ^DIE G:$D(Y) JUMP
121 S DR="560 NATIONAL TREATMENT PROTOCOL....." D ^DIE G:$D(Y) JUMP
122 S DR="561 OTHER PROTOCOL.................." D ^DIE G:$D(Y) JUMP
123 S DR="562 REFERRED TO REHAB SERVICES......" D ^DIE G:$D(Y) JUMP
124 S DR="563 CONSULT W PHYSICAL THERAPY/REHAB" D ^DIE G:$D(Y) JUMP
125 S DR="564 TRANSFERRED TO REHAB FACILITY..." D ^DIE G:$D(Y) JUMP
126 S DR="565 NO OF HOSPITALIZATIONS W/I 6 MO." D ^DIE G:$D(Y) JUMP
127 S DR="566 TOTAL LENGTH OF STAYS..........." D ^DIE G:$D(Y) JUMP
128 G EXIT
129JUMP ;Jump to prompts
130 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
131 I X["?" D G JUMP
132 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
133 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
134 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
135 S X=TABLE(X)
136 G @X
137EXIT K CHOICES,HTABLE,TABLE
138 K CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,HT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
139 K RADDT
140 Q
Note: See TracBrowser for help on using the repository browser.