source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCDTX.m@ 638

Last change on this file since 638 was 628, checked in by George Lilly, 16 years ago

initial load of FOIAVistA 6/30/08 version
File size: 7.6 KB
Line 
1ONCDTX ;Hines OIFO/GWB; Delete treatment data; 08/27/97
2 ;;2.11;ONCOLOGY;**13,15,19,22,25,27,36,42,44,45**;Mar 07, 1995
3 ;
4DEL ;Delete all First Course of Treatment data
5 I '$D(DATEDX) Q
6 S TXDT=$P(^ONCO(165.5,DA,3.1),U,38)_"S0" ;DATE FIRST SURGICAL PROCEDURE
7 S $P(^ONCO(165.5,DA,3.1),U,38)=""
8 K ^ONCO(165.5,"ATX",DA,TXDT)
9 K TXDT
10 S $P(^ONCO(165.5,DA,3),U,38)="" D SURR
11 S $P(^ONCO(165.5,DA,3.1),U,29)="" D SUR
12 S $P(^ONCO(165.5,DA,3),U,40)="" D SCOPER
13 S $P(^ONCO(165.5,DA,3.1),U,31)="" D SCOPE
14 S $P(^ONCO(165.5,DA,3),U,41)="" D SOSNR
15 S $P(^ONCO(165.5,DA,3.1),U,33)="" D SOSN
16 S $P(^ONCO(165.5,DA,3),U,33)="" ;RECONSTRUCTION/RESTORATION
17 S $P(^ONCO(165.5,DA,3),U,6)="" D RAD
18 S $P(^ONCO(165.5,DA,3),U,35)=""
19 S $P(^ONCO(165.5,DA,3),U,13)="" D CHE
20 S $P(^ONCO(165.5,DA,3),U,16)="" D HOR
21 S $P(^ONCO(165.5,DA,3),U,19)="" D IMM
22 S $P(^ONCO(165.5,DA,3.1),U,36)="" D HTEP
23 S $P(^ONCO(165.5,DA,3.1),U,39)="" ;SYSTEMIC/SURGERY SEQUENCE
24 S $P(^ONCO(165.5,DA,3),U,25)="" D OTH
25 D DELATF^ONCDTX1
26 K NTDEL Q
27 ;
28SURR ;SURGERY OF PRIMARY (R) (165.5,58.2)
29 Q:$P(^ONCO(165.5,DA,3),U,38)'=""
30 S $P(^ONCO(165.5,DA,3),U,34)=""
31 I $D(NTDEL) Q
32 W !!,"Deleting data from the following fields...",!
33 W !," SURGERY OF PRIMARY (R)"
34 W !," SURGICAL APPROACH (R)"
35 D CHKCOC^ONCATF I (COC=0)!(COC=3)!(COC=6) Q
36 S DSATF=1,$P(^ONCO(165.5,D0,3.1),U,7)="" D SPSATFR^ONCDTX1
37 Q
38 ;
39SUR ;SURGERY OF PRIMARY (F) (165.5,58.6)
40 Q:$P(^ONCO(165.5,DA,3.1),U,29)'=""
41 S TXDT=$P(^ONCO(165.5,DA,3),U,1)_"S1"
42 S $P(^ONCO(165.5,DA,3),U,1)=""
43 K ^ONCO(165.5,"ATX",DA,TXDT)
44 K TXDT
45 S $P(^ONCO(165.5,DA,3),U,28)=""
46 S $P(^ONCO(165.5,DA,"THY1"),U,36)=""
47 S $P(^ONCO(165.5,DA,3.1),U,28)=""
48 S $P(^ONCO(165.5,DA,3),U,26)=""
49 I $D(NTDEL) Q
50 W !!,"Deleting data from the following fields...",!
51 W !," SURGERY OF PRIMARY (F)"
52 W !," MOST DEFINITIVE SURG DATE"
53 W !," SURGICAL MARGINS"
54 W !," DATE OF SURGICAL DISCHARGE"
55 W !," READMISSION W/I 30 DAYS/SURG"
56 W !," REASON NO SURGERY OF PRIMARY"
57 D CHKCOC^ONCATF I (COC=0)!(COC=3)!(COC=6) Q
58 S DSATF=1,$P(^ONCO(165.5,D0,3.1),U,30)="" D SPSATF^ONCDTX1
59 Q
60 ;
61SCOPER ;SCOPE OF LN SURGERY (R) (165.5,138)
62 Q:$P(^ONCO(165.5,DA,3),U,40)'=""
63 S $P(^ONCO(165.5,DA,3),U,42)=""
64 I $D(NTDEL) Q
65 W !!,"Deleting data from the following fields...",!
66 W !," SCOPE OF LN SURGERY (R)"
67 W !," NUMBER OF LN REMOVED (R)"
68 D CHKCOC^ONCATF I (COC=0)!(COC=3)!(COC=6) Q
69 S DSCATF=1,$P(^ONCO(165.5,D0,3.1),U,9)="" D SCPATFR^ONCDTX1
70 Q
71 ;
72SCOPE ;SCOPE OF LN SURGERY (F) (165.5,138.4)
73 Q:$P(^ONCO(165.5,DA,3.1),U,31)'=""
74 S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,22)_"S2"
75 S $P(^ONCO(165.5,DA,3.1),U,22)=""
76 K ^ONCO(165.5,"ATX",DA,TXDT)
77 K TXDT
78 I $D(NTDEL) Q
79 W !!,"Deleting data from the following fields...",!
80 W !," SCOPE OF LN SURGERY (F)"
81 W !," SCOPE OF LN SURGERY DATE"
82 D CHKCOC^ONCATF I (COC=0)!(COC=3)!(COC=6) Q
83 S DSCATF=1,$P(^ONCO(165.5,D0,3.1),U,32)="" D SCPATF^ONCDTX1
84 Q
85 ;
86SOSNR ;SURG PROC/OTHER SITE (R) (165.5,139)
87 Q:$P(^ONCO(165.5,DA,3),U,41)'=""
88 I $D(NTDEL) Q
89 W !!,"Deleting data from the following fields...",!
90 W !," SURG PROC/OTHER SITE (R)"
91 D CHKCOC^ONCATF I (COC=0)!(COC=3)!(COC=6) Q
92 S DSOATF=1,$P(^ONCO(165.5,D0,3.1),U,10)="" D SOSATFR^ONCDTX1
93 Q
94 ;
95SOSN ;SURG PROC/OTHER SITE (F) (165.5,139.4)
96 Q:$P(^ONCO(165.5,DA,3.1),U,33)'=""
97 S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,24)_"S3"
98 S $P(^ONCO(165.5,DA,3.1),U,24)=""
99 K ^ONCO(165.5,"ATX",DA,TXDT)
100 K TXDT
101 I $D(NTDEL) Q
102 W !!,"Deleting data from the following fields...",!
103 W !," SURG PROC/OTHER SITE (F)"
104 W !," SURG PROC/OTHER SITE DATE"
105 D CHKCOC^ONCATF I (COC=0)!(COC=3)!(COC=6) Q
106 S DSOATF=1,$P(^ONCO(165.5,D0,3.1),U,34)="" D SOSNATF^ONCDTX1
107 Q
108 ;
109RAD ;RADIATON (165.5,51.2)
110 Q:$P(^ONCO(165.5,DA,3),U,6)'=""
111 S TXDT=$P(^ONCO(165.5,DA,3),U,4)_"R"
112 S $P(^ONCO(165.5,DA,3),U,4)=""
113 K ^ONCO(165.5,"ATX",DA,TXDT)
114 K TXDT
115 S $P(^ONCO(165.5,DA,3),U,22)=""
116 S $P(^ONCO(165.5,DA,3),U,21)=""
117 S $P(^ONCO(165.5,DA,"BLA2"),U,18)=""
118 S $P(^ONCO(165.5,DA,"THY1"),U,43)=""
119 S $P(^ONCO(165.5,DA,24),U,9)=""
120 S $P(^ONCO(165.5,DA,"THY1"),U,44)=""
121 S $P(^ONCO(165.5,DA,3),U,20)=""
122 S $P(^ONCO(165.5,DA,3),U,7)=""
123 S $P(^ONCO(165.5,DA,"BLA2"),U,16)=""
124 S $P(^ONCO(165.5,DA,3),U,35)=""
125 K ^ONCO(165.5,DA,15)
126 I $D(NTDEL) Q
127 W !!,"Deleting data from the following fields...",!
128 W !," RADIATION"
129 W !," DATE RADIATION STARTED"
130 W !," LOCATION OF RADIATION TX"
131 W !," RADIATION TREATMENT VOLUME"
132 W !," REGIONAL TREATMENT MODALITY"
133 W !," REGIONAL DOSE:cGy"
134 W !," BOOST TREATMENT MODALITY"
135 W !," BOOST DOSE:cGy"
136 W !," NUMBER OF TXS TO THIS VOLUME"
137 W !," RADIATION/SURGERY SEQUENCE"
138 W !," DATE RADIATION ENDED"
139 W !," REASON FOR NO RADIATION"
140 W !," TEXT-RX-RADIATION"
141 D CHKCOC^ONCATF I (COC=0)!(COC=3)!(COC=6) Q
142 S DRATF=1,$P(^ONCO(165.5,D0,3.1),U,12)="" D RADATF^ONCDTX1
143 Q
144 ;
145CHE ;CHEMOTHERAPY (165.5,53.2)
146 Q:$P(^ONCO(165.5,DA,3),U,13)'=""
147 S TXDT=$P(^ONCO(165.5,DA,3),U,11)_"C"
148 S $P(^ONCO(165.5,DA,3),U,11)=""
149 K ^ONCO(165.5,"ATX",DA,TXDT)
150 K TXDT
151 K ^ONCO(165.5,DA,17)
152 S $P(^ONCO(165.5,DA,3),U,36)=""
153 I $D(NTDEL) Q
154 W !!,"Deleting data from the following fields...",!
155 W !," CHEMOTHERAPY"
156 W !," CHEMOTHERAPY DATE"
157 W !," RX TEXT-CHEMO"
158 D CHKCOC^ONCATF I (COC=0)!(COC=3)!(COC=6) Q
159 S DCATF=1,$P(^ONCO(165.5,D0,3.1),U,14)="" D CHEMATF^ONCDTX1
160 Q
161 ;
162HOR ;HORMONE THERAPY (165.5,54.2)
163 Q:$P(^ONCO(165.5,DA,3),U,16)'=""
164 S TXDT=$P(^ONCO(165.5,DA,3),U,14)_"H"
165 S $P(^ONCO(165.5,DA,3),U,14)=""
166 K ^ONCO(165.5,"ATX",DA,TXDT)
167 K TXDT
168 K ^ONCO(165.5,DA,18)
169 S $P(^ONCO(165.5,DA,3),U,37)=""
170 I $D(NTDEL) Q
171 W !!,"Deleting data from the following fields...",!
172 W !," HORMONE THERAPY"
173 W !," HORMONE THERAPY DATE"
174 W !," RX TEXT-HORMONE"
175 D CHKCOC^ONCATF I (COC=0)!(COC=3)!(COC=6) Q
176 S DHATF=1,$P(^ONCO(165.5,D0,3.1),U,16)="" D HORATF^ONCDTX1
177 Q
178 ;
179IMM ;IMMUNOTHERAPY (165.5,55.2)
180 Q:$P(^ONCO(165.5,DA,3),U,19)'=""
181 S TXDT=$P(^ONCO(165.5,DA,3),U,17)_"B"
182 S $P(^ONCO(165.5,DA,3),U,17)=""
183 K ^ONCO(165.5,"ATX",DA,TXDT)
184 K TXDT
185 K ^ONCO(165.5,DA,20)
186 I $D(NTDEL) Q
187 W !!,"Deleting data from the following fields...",!
188 W !," IMMUNOTHERAPY"
189 W !," IMMUNOTHERAPY DATE"
190 W !," RX TEXT-BRM"
191 D CHKCOC^ONCATF I (COC=0)!(COC=3)!(COC=6) Q
192 S DIATF=1,$P(^ONCO(165.5,D0,3.1),U,18)="" D IMMATF^ONCDTX1
193 Q
194 ;
195HTEP ;HEMA TRANS/ENDOCRINE PROC (165.5,53)
196 Q:$P(^ONCO(165.5,DA,3.1),U,36)'=""
197 S TXDT=$P(^ONCO(165.5,DA,3.1),U,35)_"E"
198 S $P(^ONCO(165.5,DA,3.1),U,35)=""
199 K ^ONCO(165.5,"ATX",DA,TXDT)
200 K TXDT
201 I $D(NTDEL) Q
202 W !!,"Deleting data from the following fields...",!
203 W !," HEMA TRANS/ENDOCRINE PROC"
204 W !," HEMA TRANS/ENDOCRINE PROC DATE"
205 Q
206 ;
207OTH ;OTHER TREATMENT (165.5,57.2)
208 Q:$P(^ONCO(165.5,DA,3),U,25)'=""
209 S TXDT=$P(^ONCO(165.5,DA,3),U,23)_"O"
210 S $P(^ONCO(165.5,DA,3),U,23)=""
211 K ^ONCO(165.5,"ATX",DA,TXDT)
212 K TXDT
213 K ^ONCO(165.5,DA,21)
214 I $D(NTDEL) Q
215 W !!,"Deleting data from the following fields...",!
216 W !," OTHER TREATMENT"
217 W !," OTHER TREATMENT START DATE"
218 W !," RX TEXT-OTHER"
219 D CHKCOC^ONCATF I (COC=0)!(COC=3)!(COC=6) Q
220 S DOATF=1,$P(^ONCO(165.5,D0,3.1),U,20)="" D OTHATF^ONCDTX1
221 Q
222 ;
223PP ;PALLIATIVE CARE (165.5,12)
224 Q:$P(^ONCO(165.5,DA,3.1),U,26)'=""
225 D CHKCOC^ONCATF I (COC=0)!(COC=3)!(COC=6) Q
226 W !!,"Deleting data from the following fields...",!
227 S $P(^ONCO(165.5,DA,3.1),U,27)=""
228 W !," PALLIATIVE CARE @FAC",!
229 Q
230 ;
231NCDS ;SURGICAL DX/STAGING PROC (165.5,58.1)
232 Q:$P(^ONCO(165.5,DA,3),U,27)'=""
233 S $P(^ONCO(165.5,DA,3),U,31)=""
234 W !!,"Deleting data from the following fields...",!
235 W !," SURGICAL DX/STAGING PROC"
236 W !," SURGICAL DX/STAGING PROC DATE"
237 D CHKCOC^ONCATF I (COC=2)!(COC=3) Q
238 S DNCATF=1,$P(^ONCO(165.5,D0,3.1),U,5)="" D NCDSATF^ONCDTX1
239 Q
240 ;
241SCT ;SUBSEQUENT COURSE OF TREATMENT (surgery sub-fields)
242 Q:$P(^ONCO(165.5,DA(1),4,DA,0),U,4)'=""
243 S $P(^ONCO(165.5,DA(1),4,DA,0),U,11)=""
244 W !!,"Deleting data from the following fields...",!
245 W !," SURGERY OF PRIMARY SITE"
246 W !," SURGERY OF PRIMARY SITE DATE",!
247 Q
Note: See TracBrowser for help on using the repository browser.