source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY26702.m

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

initial load of WorldVistAEHR

File size: 7.5 KB
Line 
1ORY26702 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*267) ;OCT 23,2006 at 10:42
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**267**;Dec 17,1997;Build 6
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5S ;
6 ;
7 D DOT^ORY267ES
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 ^ORY26703
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;D^ Primary data field in a comparison expression that
21 ;;R^"863.8:",1,3
22 ;;D^ is to be tested.
23 ;;R^"863.8:",1,4
24 ;;D^
25 ;;EOR^
26 ;;KEY^863.8:^QUERY
27 ;;R^"863.8:",.01,"E"
28 ;;D^QUERY
29 ;;R^"863.8:",.02,"E"
30 ;;D^QUERY
31 ;;R^"863.8:",1,1
32 ;;D^Used with methods that manage interactive dialogues. Equivalent to DIC("A")
33 ;;R^"863.8:","863.84:1",.01,"E"
34 ;;D^DATA TYPE
35 ;;R^"863.8:","863.84:1",1,"E"
36 ;;D^FREE TEXT
37 ;;R^"863.8:","863.84:2",.01,"E"
38 ;;D^QUERY
39 ;;R^"863.8:","863.84:2",1,"E"
40 ;;D^Enter the query (free text string)
41 ;;EOR^
42 ;;KEY^863.8:^REPEAT THE QUERY
43 ;;R^"863.8:",.01,"E"
44 ;;D^REPEAT THE QUERY
45 ;;R^"863.8:",.02,"E"
46 ;;D^LOOP
47 ;;R^"863.8:",1,1
48 ;;D^Set this = 1 to repetitively ask the user to enter a value
49 ;;R^"863.8:","863.84:1",.01,"E"
50 ;;D^DATA TYPE
51 ;;R^"863.8:","863.84:1",1,"E"
52 ;;D^YES NO
53 ;;R^"863.8:","863.84:2",.01,"E"
54 ;;D^HELP MESSAGE
55 ;;R^"863.8:","863.84:2",1,"E"
56 ;;D^Answer 'YES' if you want the user to repetitively enter a value.
57 ;;R^"863.8:","863.84:3",.01,"E"
58 ;;D^QUERY
59 ;;R^"863.8:","863.84:3",1,"E"
60 ;;D^Is the query repetitive
61 ;;EOR^
62 ;;KEY^863.8:^TERMINATOR
63 ;;R^"863.8:",.01,"E"
64 ;;D^TERMINATOR
65 ;;R^"863.8:",.02,"E"
66 ;;D^TERMINATOR
67 ;;R^"863.8:",1,1
68 ;;D^A text string terminator; e.g., '?', ': ', '=>'
69 ;;R^"863.8:",2,"E"
70 ;;D^:
71 ;;R^"863.8:","863.84:4",.01,"E"
72 ;;D^QUERY
73 ;;R^"863.8:","863.84:4",1,"E"
74 ;;D^Enter text string terminator
75 ;;R^"863.8:","863.84:5",.01,"E"
76 ;;D^DATA TYPE
77 ;;R^"863.8:","863.84:5",1,"E"
78 ;;D^FREE TEXT
79 ;;R^"863.8:","863.84:6",.01,"E"
80 ;;D^FREE TEXT MAXIMUM LENGTH
81 ;;R^"863.8:","863.84:6",1,"E"
82 ;;D^9
83 ;;EOR^
84 ;;KEY^863.8:^VALUE CALL
85 ;;R^"863.8:",.01,"E"
86 ;;D^VALUE CALL
87 ;;R^"863.8:",.02,"E"
88 ;;D^VAL CALL
89 ;;R^"863.8:",.03,"E"
90 ;;D^NO
91 ;;R^"863.8:",1,1
92 ;;D^tag^routine which manages the dialogue for collecting and validating a value
93 ;;R^"863.8:","863.84:3",.01,"E"
94 ;;D^QUERY
95 ;;R^"863.8:","863.84:3",1,"E"
96 ;;D^Enter tag^routine
97 ;;R^"863.8:","863.84:4",.01,"E"
98 ;;D^DATA TYPE
99 ;;R^"863.8:","863.84:4",1,"E"
100 ;;D^LINE TAG
101 ;;EOR^
102 ;;EOF^OCXS(863.8)^1
103 ;;SOF^864.1 OCX MDD DATATYPE
104 ;;KEY^864.1:^BOOLEAN
105 ;;R^"864.1:",.01,"E"
106 ;;D^BOOLEAN
107 ;;R^"864.1:",.02,"E"
108 ;;D^BOOL
109 ;;EOR^
110 ;;KEY^864.1:^FREE TEXT
111 ;;R^"864.1:",.01,"E"
112 ;;D^FREE TEXT
113 ;;R^"864.1:",.02,"E"
114 ;;D^FT
115 ;;R^"864.1:",2,"E"
116 ;;D^GENERIC
117 ;;R^"864.1:","864.11:1",.01,"E"
118 ;;D^VALUE CALL
119 ;;R^"864.1:","864.11:1",1,"E"
120 ;;D^FT^OCXFDFT
121 ;;R^"864.1:","864.11:2",.01,"E"
122 ;;D^QUERY
123 ;;R^"864.1:","864.11:2",1,"E"
124 ;;D^Enter a free text string
125 ;;R^"864.1:","864.11:3",.01,"E"
126 ;;D^FREE TEXT MAXIMUM LENGTH
127 ;;R^"864.1:","864.11:3",1,"E"
128 ;;D^240
129 ;;R^"864.1:","864.11:4",.01,"E"
130 ;;D^HELP MESSAGE
131 ;;R^"864.1:","864.11:4",1,"E"
132 ;;D^Enter a free text string. Do not use control characters. |FTMM HELP|
133 ;;R^"864.1:","864.11:5",.01,"E"
134 ;;D^LOOP QUERY
135 ;;R^"864.1:","864.11:5",1,"E"
136 ;;D^Enter another free text string
137 ;;R^"864.1:","864.11:6",.01,"E"
138 ;;D^REPEAT THE QUERY
139 ;;R^"864.1:","864.11:6",1,"E"
140 ;;D^0
141 ;;EOR^
142 ;;KEY^864.1:^GENERIC
143 ;;R^"864.1:",.01,"E"
144 ;;D^GENERIC
145 ;;R^"864.1:",.02,"E"
146 ;;D^GENERIC
147 ;;R^"864.1:","864.11:11",.01,"E"
148 ;;D^MANDATORY MESSAGE
149 ;;R^"864.1:","864.11:11",1,"E"
150 ;;D^This answer is mandatory. Enter a response or press '^' to exit.
151 ;;R^"864.1:","864.11:12",.01,"E"
152 ;;D^TERMINATOR
153 ;;R^"864.1:","864.11:12",1,"E"
154 ;;D^:
155 ;;R^"864.1:","864.11:13",.01,"E"
156 ;;D^LOOP QUERY
157 ;;R^"864.1:","864.11:13",1,"E"
158 ;;D^Enter another value
159 ;;R^"864.1:","864.11:7",.01,"E"
160 ;;D^VALUE CALL
161 ;;R^"864.1:","864.11:7",1,"E"
162 ;;D^GEN^OCXFDMOM
163 ;;R^"864.1:","864.11:8",.01,"E"
164 ;;D^QUERY
165 ;;R^"864.1:","864.11:8",1,"E"
166 ;;D^Enter a value
167 ;;R^"864.1:","864.11:9",.01,"E"
168 ;;D^HELP MESSAGE
169 ;;R^"864.1:","864.11:9",1,"E"
170 ;;D^
171 ;;EOR^
172 ;;KEY^864.1:^NUMERIC
173 ;;R^"864.1:",.01,"E"
174 ;;D^NUMERIC
175 ;;R^"864.1:",.02,"E"
176 ;;D^NUMERIC
177 ;;R^"864.1:",2,"E"
178 ;;D^GENERIC
179 ;;R^"864.1:","864.11:1",.01,"E"
180 ;;D^VALUE CALL
181 ;;R^"864.1:","864.11:1",1,"E"
182 ;;D^NU^OCXFDNU
183 ;;R^"864.1:","864.11:2",.01,"E"
184 ;;D^QUERY
185 ;;R^"864.1:","864.11:2",1,"E"
186 ;;D^Enter a number
187 ;;R^"864.1:","864.11:3",.01,"E"
188 ;;D^LOOP QUERY
189 ;;R^"864.1:","864.11:3",1,"E"
190 ;;D^Enter another number
191 ;;R^"864.1:","864.11:4",.01,"E"
192 ;;D^REPEAT THE QUERY
193 ;;R^"864.1:","864.11:4",1,"E"
194 ;;D^0
195 ;;EOR^
196 ;;EOF^OCXS(864.1)^1
197 ;;SOF^863.7 OCX MDD PUBLIC FUNCTION
198 ;;KEY^863.7:^GCC BOOLEAN LOGICAL TRUE
199 ;;R^"863.7:",.01,"E"
200 ;;D^GCC BOOLEAN LOGICAL TRUE
201 ;;R^"863.7:",.02,"E"
202 ;;D^EXTRINSIC FUNCTION
203 ;;R^"863.7:",3,"E"
204 ;;D^TRUE^OCXF23
205 ;;R^"863.7:","863.74:1",.01,"E"
206 ;;D^PRIMARY DATA FIELD
207 ;;R^"863.7:","863.74:1",1.1,"E"
208 ;;D^1
209 ;;EOR^
210 ;;KEY^863.7:^GCC FREE TEXT CONTAINS ELEMENT IN SET
211 ;;R^"863.7:",.01,"E"
212 ;;D^GCC FREE TEXT CONTAINS ELEMENT IN SET
213 ;;R^"863.7:",.02,"E"
214 ;;D^EXTRINSIC FUNCTION
215 ;;R^"863.7:",3,"E"
216 ;;D^CONSET^OCXF22
217 ;;R^"863.7:","863.74:1",.01,"E"
218 ;;D^PRIMARY DATA FIELD
219 ;;R^"863.7:","863.74:1",1.1,"E"
220 ;;D^1
221 ;;R^"863.7:","863.74:2",.01,"E"
222 ;;D^COMPARISON VALUE
223 ;;R^"863.7:","863.74:2",1.1,"E"
224 ;;D^2
225 ;;EOR^
226 ;;KEY^863.7:^GCC FREE TEXT EQUALS
227 ;;R^"863.7:",.01,"E"
228 ;;D^GCC FREE TEXT EQUALS
229 ;;R^"863.7:",.02,"E"
230 ;;D^EXTRINSIC FUNCTION
231 ;;R^"863.7:",3,"E"
232 ;;D^AEQ^OCXF22
233 ;;R^"863.7:","863.74:1",.01,"E"
234 ;;D^PRIMARY DATA FIELD
235 ;;R^"863.7:","863.74:1",1.1,"E"
236 ;;D^1
237 ;;R^"863.7:","863.74:2",.01,"E"
238 ;;D^COMPARISON VALUE
239 ;;R^"863.7:","863.74:2",1.1,"E"
240 ;;D^2
241 ;;EOR^
242 ;;EOF^OCXS(863.7)^1
243 ;;SOF^863.9 OCX MDD CONDITION/FUNCTION
244 ;;KEY^863.9:^CONTAINS ELEMENT IN SET
245 ;;R^"863.9:",.01,"E"
246 ;;D^CONTAINS ELEMENT IN SET
247 ;;R^"863.9:",.02,"E"
248 ;;D^FREE TEXT
249 ;;R^"863.9:",.04,"E"
250 ;;D^CONTAINS AN ELEMENT IN THE SET
251 ;;R^"863.9:","863.91:1",.01,"E"
252 ;;D^OCXO GENERATE CODE FUNCTION
253 ;;R^"863.9:","863.91:1",1,"E"
254 ;;D^GCC FREE TEXT CONTAINS ELEMENT IN SET
255 ;;EOR^
256 ;;KEY^863.9:^EQ FREE TEXT
257 ;;R^"863.9:",.01,"E"
258 ;;D^EQ FREE TEXT
259 ;;R^"863.9:",.02,"E"
260 ;;D^FREE TEXT
261 ;;R^"863.9:",.04,"E"
262 ;;D^IS EQUAL TO
263 ;;R^"863.9:","863.91:3",.01,"E"
264 ;;D^OCXO GENERATE CODE FUNCTION
265 ;;R^"863.9:","863.91:3",1,"E"
266 ;;D^GCC FREE TEXT EQUALS
267 ;;R^"863.9:","863.92:1",.01,"E"
268 ;;D^EQUALS
269 ;;EOR^
270 ;;KEY^863.9:^LOGICAL TRUE
271 ;;R^"863.9:",.01,"E"
272 ;;D^LOGICAL TRUE
273 ;;R^"863.9:",.02,"E"
274 ;;D^BOOLEAN
275 ;;R^"863.9:",.03,"E"
276 ;;D^GCC BOOLEAN LOGICAL TRUE
277 ;;R^"863.9:",.04,"E"
278 ;;D^IS TRUE
279 ;;R^"863.9:","863.91:1",.01,"E"
280 ;;D^OCXO GENERATE CODE FUNCTION
281 ;;R^"863.9:","863.91:1",1,"E"
282 ;;D^GCC BOOLEAN LOGICAL TRUE
283 ;;R^"863.9:","863.92:1",.01,"E"
284 ;;D^TRUE
285 ;;EOR^
286 ;;EOF^OCXS(863.9)^1
287 ;;SOF^863.4 OCX MDD ATTRIBUTE
288 ;;KEY^863.4:^CONTRAST MEDIA
289 ;;R^"863.4:",.01,"E"
290 ;;D^CONTRAST MEDIA
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:^CONTRAST MEDIA ALLERGY FLAG
297 ;;R^"863.4:",.01,"E"
298 ;;D^CONTRAST MEDIA ALLERGY FLAG
299 ;;R^"863.4:","863.41:1",.01,"E"
300 ;;D^DATA TYPE
301 ;;R^"863.4:","863.41:1",1,"E"
302 ;;D^BOOLEAN
303 ;;EOR^
304 ;;KEY^863.4:^CONTRAST MEDIA ALLERGY LOC
305 ;;R^"863.4:",.01,"E"
306 ;;D^CONTRAST MEDIA ALLERGY LOC
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:^CONTRAST MEDIA CODE
313 ;;R^"863.4:",.01,"E"
314 ;;D^CONTRAST MEDIA CODE
315 ;;R^"863.4:","863.41:1",.01,"E"
316 ;;D^DATA TYPE
317 ;;R^"863.4:","863.41:1",1,"E"
318 ;1;
319 ;
Note: See TracBrowser for help on using the repository browser.