source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY22104.m@ 969

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

initial load of FOIAVistA 6/30/08 version
File size: 7.6 KB
Line 
1ORY22104 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*221) ;AUG 30,2005 at 11:41
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**221**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5S ;
6 ;
7 D DOT^ORY221ES
8 ;
9 ;
10 K REMOTE,LOCAL,OPCODE,REF
11 F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
12 .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
13 ;
14 G ^ORY22105
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;D^PRIMARY DATA FIELD
21 ;;R^"863.7:","863.74:1",1.1,"E"
22 ;;D^1
23 ;;R^"863.7:","863.74:2",.01,"E"
24 ;;D^COMPARISON VALUE
25 ;;R^"863.7:","863.74:2",1.1,"E"
26 ;;D^2
27 ;;EOR^
28 ;;KEY^863.7:^GCC NUMERIC LESS THAN
29 ;;R^"863.7:",.01,"E"
30 ;;D^GCC NUMERIC LESS THAN
31 ;;R^"863.7:",.02,"E"
32 ;;D^EXTRINSIC FUNCTION
33 ;;R^"863.7:",3,"E"
34 ;;D^LESS^OCXF20
35 ;;R^"863.7:","863.74:1",.01,"E"
36 ;;D^PRIMARY DATA FIELD
37 ;;R^"863.7:","863.74:1",1.1,"E"
38 ;;D^1
39 ;;R^"863.7:","863.74:2",.01,"E"
40 ;;D^COMPARISON VALUE
41 ;;R^"863.7:","863.74:2",1.1,"E"
42 ;;D^2
43 ;;EOR^
44 ;;EOF^OCXS(863.7)^1
45 ;;SOF^863.9 OCX MDD CONDITION/FUNCTION
46 ;;KEY^863.9:^CONTAINS ELEMENT IN SET
47 ;;R^"863.9:",.01,"E"
48 ;;D^CONTAINS ELEMENT IN SET
49 ;;R^"863.9:",.02,"E"
50 ;;D^FREE TEXT
51 ;;R^"863.9:",.04,"E"
52 ;;D^CONTAINS AN ELEMENT IN THE SET
53 ;;R^"863.9:","863.91:1",.01,"E"
54 ;;D^OCXO GENERATE CODE FUNCTION
55 ;;R^"863.9:","863.91:1",1,"E"
56 ;;D^GCC FREE TEXT CONTAINS ELEMENT IN SET
57 ;;EOR^
58 ;;KEY^863.9:^DATE AFTER
59 ;;R^"863.9:",.01,"E"
60 ;;D^DATE AFTER
61 ;;R^"863.9:",.02,"E"
62 ;;D^DATE/TIME
63 ;;R^"863.9:",.03,"E"
64 ;;D^GCC DATE/TIME AFTER
65 ;;R^"863.9:",.04,"E"
66 ;;D^IS AFTER
67 ;;R^"863.9:","863.91:1",.01,"E"
68 ;;D^OCXO GENERATE CODE FUNCTION
69 ;;R^"863.9:","863.91:1",1,"E"
70 ;;D^GCC DATE/TIME AFTER
71 ;;R^"863.9:","863.92:1",.01,"E"
72 ;;D^AFTER
73 ;;R^"863.9:","863.92:2",.01,"E"
74 ;;D^GREATER THAN
75 ;;R^"863.9:","863.92:3",.01,"E"
76 ;;D^SINCE
77 ;;R^"863.9:","863.92:4",.01,"E"
78 ;;D^>
79 ;;EOR^
80 ;;KEY^863.9:^EQ FREE TEXT
81 ;;R^"863.9:",.01,"E"
82 ;;D^EQ FREE TEXT
83 ;;R^"863.9:",.02,"E"
84 ;;D^FREE TEXT
85 ;;R^"863.9:",.04,"E"
86 ;;D^IS EQUAL TO
87 ;;R^"863.9:","863.91:3",.01,"E"
88 ;;D^OCXO GENERATE CODE FUNCTION
89 ;;R^"863.9:","863.91:3",1,"E"
90 ;;D^GCC FREE TEXT EQUALS
91 ;;R^"863.9:","863.92:1",.01,"E"
92 ;;D^EQUALS
93 ;;EOR^
94 ;;KEY^863.9:^GREATER THAN
95 ;;R^"863.9:",.01,"E"
96 ;;D^GREATER THAN
97 ;;R^"863.9:",.02,"E"
98 ;;D^NUMERIC
99 ;;R^"863.9:",.04,"E"
100 ;;D^IS GREATER THAN
101 ;;R^"863.9:","863.91:3",.01,"E"
102 ;;D^OCXO GENERATE CODE FUNCTION
103 ;;R^"863.9:","863.91:3",1,"E"
104 ;;D^GCC NUMERIC GREATER THAN
105 ;;EOR^
106 ;;KEY^863.9:^LESS THAN
107 ;;R^"863.9:",.01,"E"
108 ;;D^LESS THAN
109 ;;R^"863.9:",.02,"E"
110 ;;D^NUMERIC
111 ;;R^"863.9:",.04,"E"
112 ;;D^IS LESS THAN
113 ;;R^"863.9:","863.91:3",.01,"E"
114 ;;D^OCXO GENERATE CODE FUNCTION
115 ;;R^"863.9:","863.91:3",1,"E"
116 ;;D^GCC NUMERIC LESS THAN
117 ;;EOR^
118 ;;KEY^863.9:^LOGICAL FALSE
119 ;;R^"863.9:",.01,"E"
120 ;;D^LOGICAL FALSE
121 ;;R^"863.9:",.02,"E"
122 ;;D^BOOLEAN
123 ;;R^"863.9:",.03,"E"
124 ;;D^GCC BOOLEAN LOGICAL FALSE
125 ;;R^"863.9:",.04,"E"
126 ;;D^IS FALSE
127 ;;R^"863.9:","863.91:1",.01,"E"
128 ;;D^OCXO GENERATE CODE FUNCTION
129 ;;R^"863.9:","863.91:1",1,"E"
130 ;;D^GCC BOOLEAN LOGICAL FALSE
131 ;;R^"863.9:","863.92:1",.01,"E"
132 ;;D^FALSE
133 ;;EOR^
134 ;;KEY^863.9:^LOGICAL TRUE
135 ;;R^"863.9:",.01,"E"
136 ;;D^LOGICAL TRUE
137 ;;R^"863.9:",.02,"E"
138 ;;D^BOOLEAN
139 ;;R^"863.9:",.03,"E"
140 ;;D^GCC BOOLEAN LOGICAL TRUE
141 ;;R^"863.9:",.04,"E"
142 ;;D^IS TRUE
143 ;;R^"863.9:","863.91:1",.01,"E"
144 ;;D^OCXO GENERATE CODE FUNCTION
145 ;;R^"863.9:","863.91:1",1,"E"
146 ;;D^GCC BOOLEAN LOGICAL TRUE
147 ;;R^"863.9:","863.92:1",.01,"E"
148 ;;D^TRUE
149 ;;EOR^
150 ;;KEY^863.9:^NOT EQUAL TO
151 ;;R^"863.9:",.01,"E"
152 ;;D^NOT EQUAL TO
153 ;;R^"863.9:",.02,"E"
154 ;;D^FREE TEXT
155 ;;R^"863.9:",.04,"E"
156 ;;D^IS NOT EQUAL TO
157 ;;R^"863.9:","863.91:1",.01,"E"
158 ;;D^OCXO GENERATE CODE FUNCTION
159 ;;R^"863.9:","863.91:1",1,"E"
160 ;;D^GCC FREE TEXT NOT EQUALS
161 ;;R^"863.9:","863.91:2",.01,"E"
162 ;;D^OCXO NULL VALUE ALLOWED
163 ;;R^"863.9:","863.91:2",1,"E"
164 ;;D^1
165 ;;EOR^
166 ;;KEY^863.9:^STARTS WITH
167 ;;R^"863.9:",.01,"E"
168 ;;D^STARTS WITH
169 ;;R^"863.9:",.02,"E"
170 ;;D^FREE TEXT
171 ;;R^"863.9:",.04,"E"
172 ;;D^STARTS WITH
173 ;;R^"863.9:","863.91:3",.01,"E"
174 ;;D^OCXO GENERATE CODE FUNCTION
175 ;;R^"863.9:","863.91:3",1,"E"
176 ;;D^GCC FREE TEXT STARTS WITH
177 ;;R^"863.9:","863.92:1",.01,"E"
178 ;;D^BEGINS WITH
179 ;;EOR^
180 ;;EOF^OCXS(863.9)^1
181 ;;SOF^863.4 OCX MDD ATTRIBUTE
182 ;;KEY^863.4:^CONTRAST MEDIA CODE
183 ;;R^"863.4:",.01,"E"
184 ;;D^CONTRAST MEDIA CODE
185 ;;R^"863.4:","863.41:1",.01,"E"
186 ;;D^DATA TYPE
187 ;;R^"863.4:","863.41:1",1,"E"
188 ;;D^FREE TEXT
189 ;;EOR^
190 ;;KEY^863.4:^CREAT CLEAR DATE
191 ;;R^"863.4:",.01,"E"
192 ;;D^CREAT CLEAR DATE
193 ;;R^"863.4:","863.41:1",.01,"E"
194 ;;D^DATA TYPE
195 ;;R^"863.4:","863.41:1",1,"E"
196 ;;D^DATE/TIME
197 ;;EOR^
198 ;;KEY^863.4:^CREAT. CLEAR. VALUE
199 ;;R^"863.4:",.01,"E"
200 ;;D^CREAT. CLEAR. VALUE
201 ;;R^"863.4:","863.41:1",.01,"E"
202 ;;D^DATA TYPE
203 ;;R^"863.4:","863.41:1",1,"E"
204 ;;D^NUMERIC
205 ;;EOR^
206 ;;KEY^863.4:^CURRENT GLUCOPHAGE FLAG
207 ;;R^"863.4:",.01,"E"
208 ;;D^CURRENT GLUCOPHAGE FLAG
209 ;;R^"863.4:","863.41:1",.01,"E"
210 ;;D^DATA TYPE
211 ;;R^"863.4:","863.41:1",1,"E"
212 ;;D^BOOLEAN
213 ;;EOR^
214 ;;KEY^863.4:^DRUG CLASS
215 ;;R^"863.4:",.01,"E"
216 ;;D^DRUG CLASS
217 ;;R^"863.4:","863.41:1",.01,"E"
218 ;;D^DATA TYPE
219 ;;R^"863.4:","863.41:1",1,"E"
220 ;;D^FREE TEXT
221 ;;EOR^
222 ;;KEY^863.4:^FILLER
223 ;;R^"863.4:",.01,"E"
224 ;;D^FILLER
225 ;;R^"863.4:","863.41:1",.01,"E"
226 ;;D^DATA TYPE
227 ;;R^"863.4:","863.41:1",1,"E"
228 ;;D^FREE TEXT
229 ;;EOR^
230 ;;KEY^863.4:^GLUCO-CREATININE FLAG
231 ;;R^"863.4:",.01,"E"
232 ;;D^GLUCO-CREATININE FLAG
233 ;;R^"863.4:","863.41:1",.01,"E"
234 ;;D^DATA TYPE
235 ;;R^"863.4:","863.41:1",1,"E"
236 ;;D^BOOLEAN
237 ;;EOR^
238 ;;KEY^863.4:^GLUCO-CREATININE RESULT
239 ;;R^"863.4:",.01,"E"
240 ;;D^GLUCO-CREATININE RESULT
241 ;;R^"863.4:","863.41:1",.01,"E"
242 ;;D^DATA TYPE
243 ;;R^"863.4:","863.41:1",1,"E"
244 ;;D^NUMERIC
245 ;;EOR^
246 ;;KEY^863.4:^GLUCO-CREATININE TEXT
247 ;;R^"863.4:",.01,"E"
248 ;;D^GLUCO-CREATININE TEXT
249 ;;R^"863.4:","863.41:1",.01,"E"
250 ;;D^DATA TYPE
251 ;;R^"863.4:","863.41:1",1,"E"
252 ;;D^FREE TEXT
253 ;;EOR^
254 ;;KEY^863.4:^GLUCO_CREATININE DAYS
255 ;;R^"863.4:",.01,"E"
256 ;;D^GLUCO_CREATININE DAYS
257 ;;R^"863.4:","863.41:1",.01,"E"
258 ;;D^DATA TYPE
259 ;;R^"863.4:","863.41:1",1,"E"
260 ;;D^NUMERIC
261 ;;EOR^
262 ;;KEY^863.4:^HL7 FILLER
263 ;;R^"863.4:",.01,"E"
264 ;;D^HL7 FILLER
265 ;;R^"863.4:",.02,"E"
266 ;;D^HL7FILLR
267 ;;R^"863.4:","863.41:1",.01,"E"
268 ;;D^DATA TYPE
269 ;;R^"863.4:","863.41:1",1,"E"
270 ;;D^FREE TEXT
271 ;;EOR^
272 ;;KEY^863.4:^IEN
273 ;;R^"863.4:",.01,"E"
274 ;;D^IEN
275 ;;R^"863.4:","863.41:1",.01,"E"
276 ;;D^DATA TYPE
277 ;;R^"863.4:","863.41:1",1,"E"
278 ;;D^NUMERIC
279 ;;EOR^
280 ;;KEY^863.4:^LAB RESULTS
281 ;;R^"863.4:",.01,"E"
282 ;;D^LAB RESULTS
283 ;;R^"863.4:","863.41:1",.01,"E"
284 ;;D^DATA TYPE
285 ;;R^"863.4:","863.41:1",1,"E"
286 ;;D^FREE TEXT
287 ;;EOR^
288 ;;KEY^863.4:^LOCAL TEXT
289 ;;R^"863.4:",.01,"E"
290 ;;D^LOCAL TEXT
291 ;;R^"863.4:","863.41:1",.01,"E"
292 ;;D^DATA TYPE
293 ;;R^"863.4:","863.41:1",1,"E"
294 ;;D^FREE TEXT
295 ;;EOR^
296 ;;KEY^863.4:^NATIONAL ID
297 ;;R^"863.4:",.01,"E"
298 ;;D^NATIONAL ID
299 ;;R^"863.4:","863.41:1",.01,"E"
300 ;;D^DATA TYPE
301 ;;R^"863.4:","863.41:1",1,"E"
302 ;;D^FREE TEXT
303 ;;EOR^
304 ;;KEY^863.4:^ORDER MODE
305 ;;R^"863.4:",.01,"E"
306 ;;D^ORDER MODE
307 ;;R^"863.4:","863.41:1",.01,"E"
308 ;;D^DATA TYPE
309 ;;R^"863.4:","863.41:1",1,"E"
310 ;;D^FREE TEXT
311 ;;EOR^
312 ;;KEY^863.4:^ORDER PATIENT
313 ;;R^"863.4:",.01,"E"
314 ;;D^ORDER PATIENT
315 ;;R^"863.4:","863.41:1",.01,"E"
316 ;;D^DATA TYPE
317 ;;R^"863.4:","863.41:1",1,"E"
318 ;;D^NUMERIC
319 ;;EOR^
320 ;;KEY^863.4:^ORDERABLE ITEM IEN
321 ;;R^"863.4:",.01,"E"
322 ;;D^ORDERABLE ITEM IEN
323 ;;R^"863.4:","863.41:1",.01,"E"
324 ;;D^DATA TYPE
325 ;;R^"863.4:","863.41:1",1,"E"
326 ;;D^NUMERIC
327 ;;EOR^
328 ;;EOF^OCXS(863.4)^1
329 ;;SOF^863.2 OCX MDD SUBJECT
330 ;;KEY^863.2:^PATIENT
331 ;;R^"863.2:",.01,"E"
332 ;;D^PATIENT
333 ;;R^"863.2:","863.21:1",.01,"E"
334 ;;D^FILE
335 ;;R^"863.2:","863.21:1",1,"E"
336 ;;D^2
337 ;;EOR^
338 ;;EOF^OCXS(863.2)^1
339 ;;SOF^863.3 OCX MDD LINK
340 ;;KEY^863.3:^PATIENT.CONTR_MED_CODE
341 ;;R^"863.3:",.01,"E"
342 ;;D^PATIENT.CONTR_MED_CODE
343 ;;R^"863.3:",.02,"E"
344 ;1;
345 ;
Note: See TracBrowser for help on using the repository browser.