source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCUTX.m@ 873

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

initial load of FOIAVistA 6/30/08 version
File size: 6.0 KB
Line 
1ONCUTX ;Hines OIFO/GWB; Unknown treatment stuffing; 08/27/97
2 ;;2.11;ONCOLOGY;**13,15,16,19,22,27,33,36,41,42,43,44,46**;Mar 07, 1995;Build 39
3 ;
4NCDS ;SURGICAL DX/STAGING PROC (165.5,58.1)
5 S $P(^ONCO(165.5,D0,3),U,31)=9999999
6 W !,"SURGICAL DX/STAGING PROC DATE: 99/99/9999" D NCDSDT^ONCATF
7 Q
8 ;
9SURR ;SURGERY OF PRIMARY (R) (165.5,58.2)
10 S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" Q
11 S SCG=$P($G(^ONCO(164,TOP,0)),U,16) I SCG="" Q
12 S:$E(SCG,3,4)=77 SCG=67422
13 S SA=$O(^ONCO(164,SCG,"SUA","C",9,0))
14 S $P(^ONCO(165.5,D0,3),U,34)=SA
15 N DI K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
16 S DR=74 D EN^DIQ1
17 W !,"SURGICAL APPROACH...........(R): "_ONC(165.5,DA,74,"E")
18 Q
19 ;
20SUR ;SURGERY OF PRIMARY (F) (165.5,58.6)
21 S TXDT=$P(^ONCO(165.5,DA,3),U,1)_"S1"
22 K ^ONCO(165.5,"ATX",DA,TXDT)
23 S $P(^ONCO(165.5,DA,3),U,1)=9999999 D SPSDT^ONCATF
24 S ^ONCO(165.5,"ATX",DA,"9999999S1")=""
25 S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" Q
26 S SCG=$P($G(^ONCO(164,TOP,0)),U,16) I SCG="" Q
27 S $P(^ONCO(165.5,D0,3),U,28)=9
28 S $P(^ONCO(165.5,DA,"THY1"),U,36)=9999999
29 S $P(^ONCO(165.5,D0,3.1),U,28)=9
30 N DI K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
31 S DR="50;74;59;23;138;435;14" D EN^DIQ1
32 W !,"MOST DEFINITIVE SURG DATE......: "_ONC(165.5,DA,50,"E")
33 W !,"SURGICAL MARGINS...............: "_$E(ONC(165.5,DA,59,"E"),1,40)
34 W !,"DATE OF SURGICAL DISCHARGE.....: "_ONC(165.5,DA,435,"E")
35 W !,"READMISSION W/I 30 DAYS/SURG...: "_ONC(165.5,DA,14,"E")
36 Q
37 ;
38NODER ;SCOPE OF LN SURGERY (R) (165.5,138)
39 S $P(^ONCO(165.5,D0,3),U,42)=99 D NUMND^ONCATF
40 S DR=140 D DIQ1^ONCNTX
41 W !,"NUMBER OF LN REMOVED........(R): "_ONC(165.5,DA,140,"E")
42 Q
43 ;
44NODE ;SCOPE OF LN SURGERY (F) (165.5,138.4)
45 S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,22)_"S2"
46 K ^ONCO(165.5,"ATX",DA,TXDT)
47 S $P(^ONCO(165.5,D0,3.1),U,22)="0000000" D SCPDT^ONCATF
48 S ^ONCO(165.5,"ATX",DA,"0000000S2")=""
49 S DR=138.2 D DIQ1^ONCNTX
50 W !,"SCOPE OF LN SURGERY DATE.......: "_ONC(165.5,DA,138.2,"E")
51 Q
52 ;
53SOSN ;SURG PROC/OTHER SITE DATE (165.5,139.2)
54 S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,24)_"S3"
55 K ^ONCO(165.5,"ATX",DA,TXDT)
56 S $P(^ONCO(165.5,D0,3.1),U,24)=9999999 D SOSNDT^ONCATF
57 S ^ONCO(165.5,"ATX",DA,"9999999S3")=""
58 S DR="139.2" D DIQ1^ONCNTX
59 W !,"SURGICAL PROC/OTHER SITE DATE..: "_ONC(165.5,DA,139.2,"E")
60 Q
61 ;
62RAD ;Radiation
63 S RFNR=$P($G(^ONCO(165.5,DA,3)),U,35)
64 I RFNR=8 D ^ONCRFNR G RAD1
65 S TXDT=$P(^ONCO(165.5,DA,3),U,4)_"R"
66 K ^ONCO(165.5,"ATX",DA,TXDT)
67 S $P(^ONCO(165.5,DA,3),U,4)=9999999 D RADDT^ONCATF1
68 S ^ONCO(165.5,"ATX",DA,"9999999R")=""
69RAD1 S $P(^ONCO(165.5,DA,3),U,22)=9
70 S $P(^ONCO(165.5,DA,3),U,21)=42
71 S $P(^ONCO(165.5,DA,"BLA2"),U,18)=19
72 S $P(^ONCO(165.5,DA,"THY1"),U,43)=99999
73 S $P(^ONCO(165.5,DA,24),U,9)=19
74 S $P(^ONCO(165.5,DA,"THY1"),U,44)=99999
75 S $P(^ONCO(165.5,DA,3),U,20)=99
76 S $P(^ONCO(165.5,DA,"BLA2"),U,16)=9999999
77 K ^ONCO(165.5,DA,15)
78 K ^ONCO(165.5,DA,16)
79 N DI K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
80 S DR="51;126;125;363;442;363.1;443;56;361" D EN^DIQ1
81 W !,"DATE RADIATION STARTED.........: ",ONC(165.5,DA,51,"E")
82 W !,"LOCATION OF RADIATION..........: ",ONC(165.5,DA,126,"E")
83 W !,"RADIATION TREATMENT VOLUME.....: ",ONC(165.5,DA,125,"E")
84 W !,"REGIONAL TREATMENT MODALITY....: ",ONC(165.5,DA,363,"E")
85 W !,"REGIONAL DOSE:cGy..............: ",ONC(165.5,DA,442,"E")
86 W !,"BOOST TREATMENT MODALITY.......: ",ONC(165.5,DA,363.1,"E")
87 W !,"BOOST DOSE:cGy.................: ",ONC(165.5,DA,443,"E")
88 W !,"NUMBER OF TREATMENTS...........: ",ONC(165.5,DA,56,"E")
89 W !,"DATE RADIATION ENDED...........: ",ONC(165.5,DA,361,"E")
90 K ONC,TXDT Q
91 ;
92CHE ;Chemotherapy
93 S TXDT=$P(^ONCO(165.5,DA,3),U,11)_"C"
94 K ^ONCO(165.5,"ATX",DA,TXDT)
95 I X=88 D
96 .S $P(^ONCO(165.5,DA,3),U,11)=8888888 D CHEMDT^ONCATF1
97 .S ^ONCO(165.5,"ATX",DA,"8888888C")=""
98 I X=99 D
99 .S $P(^ONCO(165.5,DA,3),U,11)=9999999 D CHEMDT^ONCATF1
100 .S ^ONCO(165.5,"ATX",DA,"9999999C")=""
101 K ^ONCO(165.5,DA,17)
102 N DI K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
103 S DR=53
104 D EN^DIQ1
105 W !,"CHEMOTHERAPY DATE..............: "_ONC(165.5,DA,53,"E")
106 K ONC Q
107 ;
108HOR ;Hormone therapy
109 S TXDT=$P(^ONCO(165.5,DA,3),U,14)_"H"
110 K ^ONCO(165.5,"ATX",DA,TXDT)
111 I X=88 D
112 .S $P(^ONCO(165.5,DA,3),U,14)=8888888 D HTDT^ONCATF1
113 .S ^ONCO(165.5,"ATX",DA,"8888888H")=""
114 I X=99 D
115 .S $P(^ONCO(165.5,DA,3),U,14)=9999999 D HTDT^ONCATF1
116 .S ^ONCO(165.5,"ATX",DA,"9999999H")=""
117 K ^ONCO(165.5,DA,18)
118 N DI K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
119 S DR=54 D EN^DIQ1
120 W !,"HORMONE THERAPY DATE:..........: "_ONC(165.5,DA,54,"E")
121 K ONC Q
122 ;
123IMM ;Immunotherapy
124 S TXDT=$P(^ONCO(165.5,DA,3),U,17)_"B"
125 K ^ONCO(165.5,"ATX",DA,TXDT)
126 I X=88 D
127 .S $P(^ONCO(165.5,DA,3),U,17)=8888888 D IMMDT^ONCATF1
128 .S ^ONCO(165.5,"ATX",DA,"8888888B")=""
129 I X=99 D
130 .S $P(^ONCO(165.5,DA,3),U,17)=9999999 D IMMDT^ONCATF1
131 .S ^ONCO(165.5,"ATX",DA,"9999999B")=""
132 K ^ONCO(165.5,DA,20)
133 N DI,X K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
134 S DR=55 D EN^DIQ1
135 W !,"IMMUNOTHERAPY DATE:............: "_ONC(165.5,DA,55,"E")
136 K ONC Q
137 ;
138HTEP ;HEMA TRANS/ENDOCRINE PROC (165.5,153)
139 S TXDT=$P(^ONCO(165.5,DA,3.1),U,35)_"E"
140 K ^ONCO(165.5,"ATX",DA,TXDT)
141 I HE=88 D
142 .S $P(^ONCO(165.5,DA,3.1),U,35)=8888888
143 .S ^ONCO(165.5,"ATX",DA,"8888888E")=""
144 I HE=99 D
145 .S $P(^ONCO(165.5,DA,3.1),U,35)=9999999
146 .S ^ONCO(165.5,"ATX",DA,"9999999E")=""
147 N DI,X K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
148 S DR=153.1 D EN^DIQ1
149 W !,"HEMA TRANS/ENDOCRINE PROC DATE.: "_ONC(165.5,DA,153.1,"E")
150 K ONC Q
151 ;
152OTH ;Other treatment
153 S TXDT=$P(^ONCO(165.5,DA,3),U,23)_"O"
154 K ^ONCO(165.5,"ATX",DA,TXDT)
155 S $P(^ONCO(165.5,DA,3),U,23)=9999999 D OTHDT^ONCATF1
156 S ^ONCO(165.5,"ATX",DA,"9999999O")=""
157 K ^ONCO(165.5,DA,21)
158 N DI,X K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
159 S DR="57" D EN^DIQ1
160 W !,"OTHER TREATMENT DATE:..........: "_ONC(165.5,DA,57,"E")
161 K ONC Q
162 ;
163PRO ;Protocol
164 S $P(^ONCO(165.5,DA,"STS2"),U,31)=99
165 S $P(^ONCO(165.5,DA,3.1),U,4)=9999
166 N DI K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E"
167 S DR="133;560" D EN^DIQ1
168 W !,"PROTOCOL PARTICIPATION.........: "_ONC(165.5,DA,560,"E")
169 W !,"YEAR PUT ON PROTOCOL...........: "_ONC(165.5,DA,133,"E")
170 K ONC Q
171 ;
172EXIT W ! S Y="@113"
Note: See TracBrowser for help on using the repository browser.