source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY14402.m

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

initial load of FOIAVistA 6/30/08 version

File size: 7.6 KB
Line 
1ORY14402 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*144) ;JUN 12,2002 at 12:20
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**144**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5S ;
6 ;
7 D DOT^ORY144ES
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 ^ORY14403
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;R^"863.8:","863.84:1",.01,"E"
21 ;;D^DATA TYPE
22 ;;R^"863.8:","863.84:1",1,"E"
23 ;;D^YES NO
24 ;;R^"863.8:","863.84:2",.01,"E"
25 ;;D^HELP MESSAGE
26 ;;R^"863.8:","863.84:2",1,"E"
27 ;;D^Answer 'YES' if you want the user to repetitively enter a value.
28 ;;R^"863.8:","863.84:3",.01,"E"
29 ;;D^QUERY
30 ;;R^"863.8:","863.84:3",1,"E"
31 ;;D^Is the query repetitive
32 ;;EOR^
33 ;;KEY^863.8:^TERMINATOR
34 ;;R^"863.8:",.01,"E"
35 ;;D^TERMINATOR
36 ;;R^"863.8:",.02,"E"
37 ;;D^TERMINATOR
38 ;;R^"863.8:",1,1
39 ;;D^A text string terminator; e.g., '?', ': ', '=>'
40 ;;R^"863.8:",2,"E"
41 ;;D^:
42 ;;R^"863.8:","863.84:4",.01,"E"
43 ;;D^QUERY
44 ;;R^"863.8:","863.84:4",1,"E"
45 ;;D^Enter text string terminator
46 ;;R^"863.8:","863.84:5",.01,"E"
47 ;;D^DATA TYPE
48 ;;R^"863.8:","863.84:5",1,"E"
49 ;;D^FREE TEXT
50 ;;R^"863.8:","863.84:6",.01,"E"
51 ;;D^FREE TEXT MAXIMUM LENGTH
52 ;;R^"863.8:","863.84:6",1,"E"
53 ;;D^9
54 ;;EOR^
55 ;;KEY^863.8:^VALUE CALL
56 ;;R^"863.8:",.01,"E"
57 ;;D^VALUE CALL
58 ;;R^"863.8:",.02,"E"
59 ;;D^VAL CALL
60 ;;R^"863.8:",.03,"E"
61 ;;D^NO
62 ;;R^"863.8:",1,1
63 ;;D^tag^routine which manages the dialogue for collecting and validating a value
64 ;;R^"863.8:","863.84:3",.01,"E"
65 ;;D^QUERY
66 ;;R^"863.8:","863.84:3",1,"E"
67 ;;D^Enter tag^routine
68 ;;R^"863.8:","863.84:4",.01,"E"
69 ;;D^DATA TYPE
70 ;;R^"863.8:","863.84:4",1,"E"
71 ;;D^LINE TAG
72 ;;EOR^
73 ;;EOF^OCXS(863.8)^1
74 ;;SOF^864.1 OCX MDD DATATYPE
75 ;;KEY^864.1:^FREE TEXT
76 ;;R^"864.1:",.01,"E"
77 ;;D^FREE TEXT
78 ;;R^"864.1:",.02,"E"
79 ;;D^FT
80 ;;R^"864.1:",2,"E"
81 ;;D^GENERIC
82 ;;R^"864.1:","864.11:1",.01,"E"
83 ;;D^VALUE CALL
84 ;;R^"864.1:","864.11:1",1,"E"
85 ;;D^FT^OCXFDFT
86 ;;R^"864.1:","864.11:2",.01,"E"
87 ;;D^QUERY
88 ;;R^"864.1:","864.11:2",1,"E"
89 ;;D^Enter a free text string
90 ;;R^"864.1:","864.11:3",.01,"E"
91 ;;D^FREE TEXT MAXIMUM LENGTH
92 ;;R^"864.1:","864.11:3",1,"E"
93 ;;D^240
94 ;;R^"864.1:","864.11:4",.01,"E"
95 ;;D^HELP MESSAGE
96 ;;R^"864.1:","864.11:4",1,"E"
97 ;;D^Enter a free text string. Do not use control characters. |FTMM HELP|
98 ;;R^"864.1:","864.11:5",.01,"E"
99 ;;D^LOOP QUERY
100 ;;R^"864.1:","864.11:5",1,"E"
101 ;;D^Enter another free text string
102 ;;R^"864.1:","864.11:6",.01,"E"
103 ;;D^REPEAT THE QUERY
104 ;;R^"864.1:","864.11:6",1,"E"
105 ;;D^0
106 ;;EOR^
107 ;;KEY^864.1:^GENERIC
108 ;;R^"864.1:",.01,"E"
109 ;;D^GENERIC
110 ;;R^"864.1:",.02,"E"
111 ;;D^GENERIC
112 ;;R^"864.1:","864.11:11",.01,"E"
113 ;;D^MANDATORY MESSAGE
114 ;;R^"864.1:","864.11:11",1,"E"
115 ;;D^This answer is mandatory. Enter a response or press '^' to exit.
116 ;;R^"864.1:","864.11:12",.01,"E"
117 ;;D^TERMINATOR
118 ;;R^"864.1:","864.11:12",1,"E"
119 ;;D^:
120 ;;R^"864.1:","864.11:13",.01,"E"
121 ;;D^LOOP QUERY
122 ;;R^"864.1:","864.11:13",1,"E"
123 ;;D^Enter another value
124 ;;R^"864.1:","864.11:7",.01,"E"
125 ;;D^VALUE CALL
126 ;;R^"864.1:","864.11:7",1,"E"
127 ;;D^GEN^OCXFDMOM
128 ;;R^"864.1:","864.11:8",.01,"E"
129 ;;D^QUERY
130 ;;R^"864.1:","864.11:8",1,"E"
131 ;;D^Enter a value
132 ;;R^"864.1:","864.11:9",.01,"E"
133 ;;D^HELP MESSAGE
134 ;;R^"864.1:","864.11:9",1,"E"
135 ;;D^
136 ;;EOR^
137 ;;KEY^864.1:^NUMERIC
138 ;;R^"864.1:",.01,"E"
139 ;;D^NUMERIC
140 ;;R^"864.1:",.02,"E"
141 ;;D^NUMERIC
142 ;;R^"864.1:",2,"E"
143 ;;D^GENERIC
144 ;;R^"864.1:","864.11:1",.01,"E"
145 ;;D^VALUE CALL
146 ;;R^"864.1:","864.11:1",1,"E"
147 ;;D^NU^OCXFDNU
148 ;;R^"864.1:","864.11:2",.01,"E"
149 ;;D^QUERY
150 ;;R^"864.1:","864.11:2",1,"E"
151 ;;D^Enter a number
152 ;;R^"864.1:","864.11:3",.01,"E"
153 ;;D^LOOP QUERY
154 ;;R^"864.1:","864.11:3",1,"E"
155 ;;D^Enter another number
156 ;;R^"864.1:","864.11:4",.01,"E"
157 ;;D^REPEAT THE QUERY
158 ;;R^"864.1:","864.11:4",1,"E"
159 ;;D^0
160 ;;EOR^
161 ;;EOF^OCXS(864.1)^1
162 ;;SOF^863.4 OCX MDD ATTRIBUTE
163 ;;KEY^863.4:^IEN
164 ;;R^"863.4:",.01,"E"
165 ;;D^IEN
166 ;;R^"863.4:","863.41:1",.01,"E"
167 ;;D^DATA TYPE
168 ;;R^"863.4:","863.41:1",1,"E"
169 ;;D^NUMERIC
170 ;;EOR^
171 ;;KEY^863.4:^LAB SPECIMEN
172 ;;R^"863.4:",.01,"E"
173 ;;D^LAB SPECIMEN
174 ;;R^"863.4:","863.41:1",.01,"E"
175 ;;D^DATA TYPE
176 ;;R^"863.4:","863.41:1",1,"E"
177 ;;D^FREE TEXT
178 ;;EOR^
179 ;;KEY^863.4:^LAB SPECIMEN ID
180 ;;R^"863.4:",.01,"E"
181 ;;D^LAB SPECIMEN ID
182 ;;R^"863.4:","863.41:1",.01,"E"
183 ;;D^DATA TYPE
184 ;;R^"863.4:","863.41:1",1,"E"
185 ;;D^NUMERIC
186 ;;EOR^
187 ;;KEY^863.4:^ORDER PATIENT
188 ;;R^"863.4:",.01,"E"
189 ;;D^ORDER PATIENT
190 ;;R^"863.4:","863.41:1",.01,"E"
191 ;;D^DATA TYPE
192 ;;R^"863.4:","863.41:1",1,"E"
193 ;;D^NUMERIC
194 ;;EOR^
195 ;;EOF^OCXS(863.4)^1
196 ;;SOF^863.2 OCX MDD SUBJECT
197 ;;KEY^863.2:^PATIENT
198 ;;R^"863.2:",.01,"E"
199 ;;D^PATIENT
200 ;;R^"863.2:","863.21:1",.01,"E"
201 ;;D^FILE
202 ;;R^"863.2:","863.21:1",1,"E"
203 ;;D^2
204 ;;EOR^
205 ;;EOF^OCXS(863.2)^1
206 ;;SOF^863.3 OCX MDD LINK
207 ;;KEY^863.3:^PATIENT.HL7_PATIENT_ID
208 ;;R^"863.3:",.01,"E"
209 ;;D^PATIENT.HL7_PATIENT_ID
210 ;;R^"863.3:",.02,"E"
211 ;;D^PATIENT
212 ;;R^"863.3:",.04,"E"
213 ;;D^HL7
214 ;;R^"863.3:",.05,"E"
215 ;;D^IEN
216 ;;R^"863.3:",.06,"E"
217 ;;D^99
218 ;;R^"863.3:","863.32:1",.01,"E"
219 ;;D^OCXO HL7 SEGMENT ID
220 ;;R^"863.3:","863.32:2",.01,"E"
221 ;;D^OCXO VT-BAR PIECE NUMBER
222 ;;R^"863.3:","863.32:3",.01,"E"
223 ;;D^OCXO VARIABLE NAME
224 ;;R^"863.3:","863.32:3",1,"E"
225 ;;D^OCXODATA("PID",3)
226 ;;EOR^
227 ;;KEY^863.3:^PATIENT.IEN
228 ;;R^"863.3:",.01,"E"
229 ;;D^PATIENT.IEN
230 ;;R^"863.3:",.02,"E"
231 ;;D^PATIENT
232 ;;R^"863.3:",.05,"E"
233 ;;D^IEN
234 ;;R^"863.3:",.06,"E"
235 ;;D^99
236 ;;R^"863.3:","863.32:1",.01,"E"
237 ;;D^OCXO VARIABLE NAME
238 ;;R^"863.3:","863.32:1",1,"E"
239 ;;D^DFN
240 ;;EOR^
241 ;;KEY^863.3:^PATIENT.LAB_SPECIMEN
242 ;;R^"863.3:",.01,"E"
243 ;;D^PATIENT.LAB_SPECIMEN
244 ;;R^"863.3:",.02,"E"
245 ;;D^PATIENT
246 ;;R^"863.3:",.04,"E"
247 ;;D^HL7
248 ;;R^"863.3:",.05,"E"
249 ;;D^LAB SPECIMEN
250 ;;R^"863.3:","863.32:1",.01,"E"
251 ;;D^OCXO VARIABLE NAME
252 ;;R^"863.3:","863.32:1",1,"E"
253 ;;D^OCXODATA("OBR",15)
254 ;;R^"863.3:","863.32:2",.01,"E"
255 ;;D^OCXO HL7 SEGMENT ID
256 ;;R^"863.3:","863.32:3",.01,"E"
257 ;;D^OCXO VT-BAR PIECE NUMBER
258 ;;R^"863.3:","863.32:4",.01,"E"
259 ;;D^OCXO UP-ARROW PIECE NUMBER
260 ;;R^"863.3:","863.32:4",1,"E"
261 ;;D^4
262 ;;R^"863.3:","863.32:5",.01,"E"
263 ;;D^OCXO DATA DRIVE SOURCE
264 ;;R^"863.3:","863.32:5",1,"E"
265 ;;D^HL7
266 ;;R^"863.3:","863.32:6",.01,"E"
267 ;;D^OCXO SEMI-COLON PIECE NUMBER
268 ;;R^"863.3:","863.32:6",1,"E"
269 ;;D^2
270 ;;R^"863.3:","863.32:7",.01,"E"
271 ;;D^OCXO FILE POINTER
272 ;;EOR^
273 ;;KEY^863.3:^PATIENT.LAB_SPECIMEN_ID
274 ;;R^"863.3:",.01,"E"
275 ;;D^PATIENT.LAB_SPECIMEN_ID
276 ;;R^"863.3:",.02,"E"
277 ;;D^PATIENT
278 ;;R^"863.3:",.05,"E"
279 ;;D^LAB SPECIMEN ID
280 ;;R^"863.3:","863.32:1",.01,"E"
281 ;;D^OCXO VARIABLE NAME
282 ;;R^"863.3:","863.32:1",1,"E"
283 ;;D^OCXODATA("OBR",15)
284 ;;R^"863.3:","863.32:2",.01,"E"
285 ;;D^OCXO UP-ARROW PIECE NUMBER
286 ;;R^"863.3:","863.32:2",1,"E"
287 ;;D^4
288 ;;R^"863.3:","863.32:3",.01,"E"
289 ;;D^OCXO SEMI-COLON PIECE NUMBER
290 ;;R^"863.3:","863.32:3",1,"E"
291 ;;D^1
292 ;;EOR^
293 ;;KEY^863.3:^PATIENT.OERR_ORDER_PATIENT
294 ;;R^"863.3:",.01,"E"
295 ;;D^PATIENT.OERR_ORDER_PATIENT
296 ;;R^"863.3:",.02,"E"
297 ;;D^PATIENT
298 ;;R^"863.3:",.05,"E"
299 ;;D^ORDER PATIENT
300 ;;R^"863.3:",.06,"E"
301 ;;D^5567
302 ;;R^"863.3:","863.32:1",.01,"E"
303 ;;D^OCXO VARIABLE NAME
304 ;;R^"863.3:","863.32:1",1,"E"
305 ;;D^OCXORD
306 ;;R^"863.3:","863.32:2",.01,"E"
307 ;;D^OCXO UP-ARROW PIECE NUMBER
308 ;;R^"863.3:","863.32:2",1,"E"
309 ;;D^1
310 ;;EOR^
311 ;;EOF^OCXS(863.3)^1
312 ;;SOF^860.9 ORDER CHECK NATIONAL TERM
313 ;;KEY^860.9:^ANGIOGRAM (PERIPHERAL)
314 ;;R^"860.9:",.01,"E"
315 ;;D^ANGIOGRAM (PERIPHERAL)
316 ;;R^"860.9:",.02,"E"
317 ;;D^101.43
318 ;;EOR^
319 ;;KEY^860.9:^BLOOD SPECIMEN
320 ;;R^"860.9:",.01,"E"
321 ;;D^BLOOD SPECIMEN
322 ;;R^"860.9:",.02,"E"
323 ;;D^61
324 ;;EOR^
325 ;;KEY^860.9:^DANGEROUS MEDS FOR PTS > 64
326 ;;R^"860.9:",.01,"E"
327 ;;D^DANGEROUS MEDS FOR PTS > 64
328 ;;R^"860.9:",.02,"E"
329 ;;D^101.43
330 ;;R^"860.9:",2,"E"
331 ;;D^I $P($G(^ORD(100.98,$P($G(^ORD(101.43,+Y,0)),U,5),0)),U)="PHARMACY"
332 ;1;
333 ;
Note: See TracBrowser for help on using the repository browser.