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