source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCDTX1.m@ 1005

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

initial load of WorldVistAEHR

File size: 3.8 KB
Line 
1ONCDTX1 ;Hines OIFO/RTK;DELETE @FAC TREATMENT FIELDS; 09/25/98
2 ;;2.11;ONCOLOGY;**19,22,27,36,39,42**;Mar 07, 1995
3 ;
4DELATF ;Delete all treatment @fac
5 S $P(^ONCO(165.5,DA,3.1),U,7)="" D SPSATFR ;50.2
6 S $P(^ONCO(165.5,DA,3.1),U,30)="" D SPSATF ;58.7
7 S $P(^ONCO(165.5,DA,3.1),U,9)="" D SCPATFR ;138.1
8 S $P(^ONCO(165.5,DA,3.1),U,32)="" D SCPATF ;138.5
9 S $P(^ONCO(165.5,DA,3.1),U,10)="" D SOSATFR ;139.1
10 S $P(^ONCO(165.5,DA,3.1),U,34)="" D SOSNATF ;139.5
11 S $P(^ONCO(165.5,DA,3.1),U,12)="" D RADATF ;51.2
12 S $P(^ONCO(165.5,DA,3.1),U,14)="" D CHEMATF ;53.2
13 S $P(^ONCO(165.5,DA,3.1),U,16)="" D HORATF ;54.2
14 S $P(^ONCO(165.5,DA,3.1),U,18)="" D IMMATF ;55.2
15 S $P(^ONCO(165.5,DA,3.1),U,20)="" D OTHATF ;57.2
16 K NTDEL Q
17 ;
18NCDSATF ;SURG DX/STAGING PROC @FAC (165.5,58.4)
19 Q:$P(^ONCO(165.5,DA,3.1),U,5)'=""
20 S $P(^ONCO(165.5,DA,3.1),U,6)=""
21 W:$G(DNCATF)'=1 !!,"Deleting data from the following fields...",!
22 W !," SURG DX/STAGING PROC @FAC"
23 W !," SURG DX/STAGING PROC @FAC DATE"
24 Q
25 ;
26SPSATFR ;SURGERY OF PRIMARY @FAC (R) (165.5,50.2)
27 Q:$P(^ONCO(165.5,DA,3.1),U,7)'=""
28 I $D(NTDEL) Q
29 W:$G(DSATF)'=1 !!,"Deleting data from the following fields...",!
30 W !," SURGERY OF PRIMARY @FAC (R)"
31 Q
32 ;
33SPSATF ;SURGERY OF PRIMARY @FAC (F) (165.5,58.7)
34 Q:$P(^ONCO(165.5,DA,3.1),U,30)'=""
35 S $P(^ONCO(165.5,DA,3.1),U,8)=""
36 I $D(NTDEL) Q
37 W:$G(DSATF)'=1 !!,"Deleting data from the following fields...",!
38 W !," SURGERY OF PRIMARY @FAC (F)"
39 W !," MOST DEFINITIVE SURG @FAC DATE"
40 Q
41 ;
42SCPATFR ;SCOPE OF LN SURGERY @FAC (R) (165.5,138.1)
43 Q:$P(^ONCO(165.5,DA,3.1),U,9)'=""
44 S $P(^ONCO(165.5,DA,3.1),U,11)=""
45 I $D(NTDEL) Q
46 W:$G(DSCATF)'=1 !!,"Deleting data from the following fields...",!
47 W !," SCOPE OF LN SURGERY @FAC (R)"
48 W !," NUMBER OF LN REMOVED @FAC (R)"
49 Q
50 ;
51SCPATF ;SCOPE OF LN SURGERY @FAC (F) (165.5,138.5)
52 Q:$P(^ONCO(165.5,DA,3.1),U,32)'=""
53 S $P(^ONCO(165.5,DA,3.1),U,23)=""
54 I $D(NTDEL) Q
55 W:$G(DSCATF)'=1 !!,"Deleting data from the following fields...",!
56 W !," SCOPE OF LN SURGERY @FAC (F)"
57 W !," SCOPE OF LN SURGERY @FAC DATE"
58 Q
59 ;
60SOSATFR ;SURG PROC/OTHER SITE @FAC (R) (165.5,139.1)
61 Q:$P(^ONCO(165.5,DA,3.1),U,10)'=""
62 I $D(NTDEL) Q
63 W:$G(DSOATF)'=1 !!,"Deleting data from the following fields...",!
64 W !," SURG PROC/OTHER SITE @FAC (R)"
65 Q
66 ;
67SOSNATF ;SURG PROC/OTHER SITE @FAC (F) (165.5,139.5)
68 Q:$P(^ONCO(165.5,DA,3.1),U,34)'=""
69 S $P(^ONCO(165.5,DA,3.1),U,25)=""
70 I $D(NTDEL) Q
71 W:$G(DSOATF)'=1 !!,"Deleting data from the following fields...",!
72 W !," SURG PROC/OTHER SITE @FAC (F)"
73 W !," SURG PROC/OTHER SITE @FAC DATE"
74 Q
75 ;
76RADATF ;Radiation @fac
77 Q:$P(^ONCO(165.5,DA,3.1),U,12)'=""
78 S $P(^ONCO(165.5,DA,3.1),U,13)=""
79 I $D(NTDEL) Q
80 W:$G(DRATF)'=1 !!,"Deleting data from the following fields...",!
81 W !," RADIATION @FAC"
82 I $G(DRATF)=1 W ?40
83 I $G(DRATF)'=1 W !," "
84 W "RADIATION @FAC DATE"
85 Q
86 ;
87CHEMATF ;Chemotherapy @fac
88 Q:$P(^ONCO(165.5,DA,3.1),U,14)'="" ;53.3
89 S $P(^ONCO(165.5,DA,3.1),U,15)="" ;53.4
90 I $D(NTDEL) Q
91 W:$G(DCATF)'=1 !!,"Deleting data from the following fields...",!
92 W !," CHEMOTHERAPY @FAC"
93 W !," CHEMOTHERAPY @FAC DATE"
94 Q
95 ;
96HORATF ;Hormone therapy @fac
97 Q:$P(^ONCO(165.5,DA,3.1),U,16)'="" ;54.3
98 S $P(^ONCO(165.5,DA,3.1),U,17)="" ;54.4
99 I $D(NTDEL) Q
100 W:$G(DHATF)'=1 !!,"Deleting data from the following fields...",!
101 W !," HORMONE THERAPY @FAC"
102 W !," HORMONE THERAPY @FAC DATE"
103 Q
104 ;
105IMMATF ;Immunotherapy @fac
106 Q:$P(^ONCO(165.5,DA,3.1),U,18)'="" ;55.3
107 S $P(^ONCO(165.5,DA,3.1),U,19)="" ;55.4
108 I $D(NTDEL) Q
109 W:$G(DIATF)'=1 !!,"Deleting data from the following fields...",!
110 W !," IMMUNOTHERAPY @FAC"
111 W !," IMMUNOTHERAPY @FAC DATE"
112 Q
113 ;
114OTHATF ;Other treatment @fac
115 Q:$P(^ONCO(165.5,DA,3.1),U,20)'="" ;57.3
116 S $P(^ONCO(165.5,DA,3.1),U,21)="" ;57.4
117 I $D(NTDEL) Q
118 W:$G(DOATF)'=1 !!,"Deleting data from the following fields...",!
119 W !," OTHER TREATMENT @FAC"
120 W !," OTHER TREATMENT @FAC DATE"
121 Q
Note: See TracBrowser for help on using the repository browser.