source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY22103.m@ 1678

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

initial load of FOIAVistA 6/30/08 version
File size: 7.5 KB
Line 
1ORY22103 ;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 ^ORY22104
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;D^DATA TYPE
21 ;;R^"863.8:","863.84:3",1,"E"
22 ;;D^CODE STRING
23 ;;EOR^
24 ;;KEY^863.8:^TERMINATOR
25 ;;R^"863.8:",.01,"E"
26 ;;D^TERMINATOR
27 ;;R^"863.8:",.02,"E"
28 ;;D^TERMINATOR
29 ;;R^"863.8:",1,1
30 ;;D^A text string terminator; e.g., '?', ': ', '=>'
31 ;;R^"863.8:",2,"E"
32 ;;D^:
33 ;;R^"863.8:","863.84:4",.01,"E"
34 ;;D^QUERY
35 ;;R^"863.8:","863.84:4",1,"E"
36 ;;D^Enter text string terminator
37 ;;R^"863.8:","863.84:5",.01,"E"
38 ;;D^DATA TYPE
39 ;;R^"863.8:","863.84:5",1,"E"
40 ;;D^FREE TEXT
41 ;;R^"863.8:","863.84:6",.01,"E"
42 ;;D^FREE TEXT MAXIMUM LENGTH
43 ;;R^"863.8:","863.84:6",1,"E"
44 ;;D^9
45 ;;EOR^
46 ;;KEY^863.8:^VALUE CALL
47 ;;R^"863.8:",.01,"E"
48 ;;D^VALUE CALL
49 ;;R^"863.8:",.02,"E"
50 ;;D^VAL CALL
51 ;;R^"863.8:",.03,"E"
52 ;;D^NO
53 ;;R^"863.8:",1,1
54 ;;D^tag^routine which manages the dialogue for collecting and validating a value
55 ;;R^"863.8:","863.84:3",.01,"E"
56 ;;D^QUERY
57 ;;R^"863.8:","863.84:3",1,"E"
58 ;;D^Enter tag^routine
59 ;;R^"863.8:","863.84:4",.01,"E"
60 ;;D^DATA TYPE
61 ;;R^"863.8:","863.84:4",1,"E"
62 ;;D^LINE TAG
63 ;;EOR^
64 ;;EOF^OCXS(863.8)^1
65 ;;SOF^864.1 OCX MDD DATATYPE
66 ;;KEY^864.1:^BOOLEAN
67 ;;R^"864.1:",.01,"E"
68 ;;D^BOOLEAN
69 ;;R^"864.1:",.02,"E"
70 ;;D^BOOL
71 ;;EOR^
72 ;;KEY^864.1:^DATE/TIME
73 ;;R^"864.1:",.01,"E"
74 ;;D^DATE/TIME
75 ;;R^"864.1:",.02,"E"
76 ;;D^DATE
77 ;;R^"864.1:",2,"E"
78 ;;D^GENERIC
79 ;;R^"864.1:","864.11:10",.01,"E"
80 ;;D^DATE SPECIAL MASK
81 ;;R^"864.1:","864.11:11",.01,"E"
82 ;;D^VALUE CALL
83 ;;R^"864.1:","864.11:11",1,"E"
84 ;;D^DATE^OCXFDD
85 ;;R^"864.1:","864.11:12",.01,"E"
86 ;;D^CONDITION CALL
87 ;;R^"864.1:","864.11:12",1,"E"
88 ;;D^COND^OCXFDD1
89 ;;R^"864.1:","864.11:13",.01,"E"
90 ;;D^HELP FRAME MESSAGE
91 ;;R^"864.1:","864.11:13",1,"E"
92 ;;D^Want instructions for entering a valid date and time
93 ;;R^"864.1:","864.11:14",.01,"E"
94 ;;D^QUERY
95 ;;R^"864.1:","864.11:14",1,"E"
96 ;;D^Enter date/time
97 ;;R^"864.1:","864.11:15",.01,"E"
98 ;;D^LOOP QUERY
99 ;;R^"864.1:","864.11:15",1,"E"
100 ;;D^Enter another date/time
101 ;;R^"864.1:","864.11:16",.01,"E"
102 ;;D^REPEAT THE QUERY
103 ;;R^"864.1:","864.11:16",1,"E"
104 ;;D^0
105 ;;R^"864.1:","864.11:2",.01,"E"
106 ;;D^DATE EXACT
107 ;;R^"864.1:","864.11:2",1,"E"
108 ;;D^X
109 ;;R^"864.1:","864.11:3",.01,"E"
110 ;;D^DATE INPUT FORMAT
111 ;;R^"864.1:","864.11:4",.01,"E"
112 ;;D^DATE LIMIT
113 ;;R^"864.1:","864.11:5",.01,"E"
114 ;;D^DATE MAXIMUM
115 ;;R^"864.1:","864.11:6",.01,"E"
116 ;;D^DATE MINIMUM
117 ;;R^"864.1:","864.11:7",.01,"E"
118 ;;D^DATE SECONDS
119 ;;R^"864.1:","864.11:8",.01,"E"
120 ;;D^DATE SPECIAL OUTPUT FORMAT
121 ;;R^"864.1:","864.11:9",.01,"E"
122 ;;D^DATE TIME
123 ;;EOR^
124 ;;KEY^864.1:^FREE TEXT
125 ;;R^"864.1:",.01,"E"
126 ;;D^FREE TEXT
127 ;;R^"864.1:",.02,"E"
128 ;;D^FT
129 ;;R^"864.1:",2,"E"
130 ;;D^GENERIC
131 ;;R^"864.1:","864.11:1",.01,"E"
132 ;;D^VALUE CALL
133 ;;R^"864.1:","864.11:1",1,"E"
134 ;;D^FT^OCXFDFT
135 ;;R^"864.1:","864.11:2",.01,"E"
136 ;;D^QUERY
137 ;;R^"864.1:","864.11:2",1,"E"
138 ;;D^Enter a free text string
139 ;;R^"864.1:","864.11:3",.01,"E"
140 ;;D^FREE TEXT MAXIMUM LENGTH
141 ;;R^"864.1:","864.11:3",1,"E"
142 ;;D^240
143 ;;R^"864.1:","864.11:4",.01,"E"
144 ;;D^HELP MESSAGE
145 ;;R^"864.1:","864.11:4",1,"E"
146 ;;D^Enter a free text string. Do not use control characters. |FTMM HELP|
147 ;;R^"864.1:","864.11:5",.01,"E"
148 ;;D^LOOP QUERY
149 ;;R^"864.1:","864.11:5",1,"E"
150 ;;D^Enter another free text string
151 ;;R^"864.1:","864.11:6",.01,"E"
152 ;;D^REPEAT THE QUERY
153 ;;R^"864.1:","864.11:6",1,"E"
154 ;;D^0
155 ;;EOR^
156 ;;KEY^864.1:^GENERIC
157 ;;R^"864.1:",.01,"E"
158 ;;D^GENERIC
159 ;;R^"864.1:",.02,"E"
160 ;;D^GENERIC
161 ;;R^"864.1:","864.11:11",.01,"E"
162 ;;D^MANDATORY MESSAGE
163 ;;R^"864.1:","864.11:11",1,"E"
164 ;;D^This answer is mandatory. Enter a response or press '^' to exit.
165 ;;R^"864.1:","864.11:12",.01,"E"
166 ;;D^TERMINATOR
167 ;;R^"864.1:","864.11:12",1,"E"
168 ;;D^:
169 ;;R^"864.1:","864.11:13",.01,"E"
170 ;;D^LOOP QUERY
171 ;;R^"864.1:","864.11:13",1,"E"
172 ;;D^Enter another value
173 ;;R^"864.1:","864.11:7",.01,"E"
174 ;;D^VALUE CALL
175 ;;R^"864.1:","864.11:7",1,"E"
176 ;;D^GEN^OCXFDMOM
177 ;;R^"864.1:","864.11:8",.01,"E"
178 ;;D^QUERY
179 ;;R^"864.1:","864.11:8",1,"E"
180 ;;D^Enter a value
181 ;;R^"864.1:","864.11:9",.01,"E"
182 ;;D^HELP MESSAGE
183 ;;R^"864.1:","864.11:9",1,"E"
184 ;;D^
185 ;;EOR^
186 ;;KEY^864.1:^NUMERIC
187 ;;R^"864.1:",.01,"E"
188 ;;D^NUMERIC
189 ;;R^"864.1:",.02,"E"
190 ;;D^NUMERIC
191 ;;R^"864.1:",2,"E"
192 ;;D^GENERIC
193 ;;R^"864.1:","864.11:1",.01,"E"
194 ;;D^VALUE CALL
195 ;;R^"864.1:","864.11:1",1,"E"
196 ;;D^NU^OCXFDNU
197 ;;R^"864.1:","864.11:2",.01,"E"
198 ;;D^QUERY
199 ;;R^"864.1:","864.11:2",1,"E"
200 ;;D^Enter a number
201 ;;R^"864.1:","864.11:3",.01,"E"
202 ;;D^LOOP QUERY
203 ;;R^"864.1:","864.11:3",1,"E"
204 ;;D^Enter another number
205 ;;R^"864.1:","864.11:4",.01,"E"
206 ;;D^REPEAT THE QUERY
207 ;;R^"864.1:","864.11:4",1,"E"
208 ;;D^0
209 ;;EOR^
210 ;;EOF^OCXS(864.1)^1
211 ;;SOF^863.7 OCX MDD PUBLIC FUNCTION
212 ;;KEY^863.7:^GCC BOOLEAN LOGICAL FALSE
213 ;;R^"863.7:",.01,"E"
214 ;;D^GCC BOOLEAN LOGICAL FALSE
215 ;;R^"863.7:",.02,"E"
216 ;;D^EXTRINSIC FUNCTION
217 ;;R^"863.7:",3,"E"
218 ;;D^FALSE^OCXF23
219 ;;R^"863.7:","863.74:1",.01,"E"
220 ;;D^PRIMARY DATA FIELD
221 ;;R^"863.7:","863.74:1",1.1,"E"
222 ;;D^1
223 ;;EOR^
224 ;;KEY^863.7:^GCC BOOLEAN LOGICAL TRUE
225 ;;R^"863.7:",.01,"E"
226 ;;D^GCC BOOLEAN LOGICAL TRUE
227 ;;R^"863.7:",.02,"E"
228 ;;D^EXTRINSIC FUNCTION
229 ;;R^"863.7:",3,"E"
230 ;;D^TRUE^OCXF23
231 ;;R^"863.7:","863.74:1",.01,"E"
232 ;;D^PRIMARY DATA FIELD
233 ;;R^"863.7:","863.74:1",1.1,"E"
234 ;;D^1
235 ;;EOR^
236 ;;KEY^863.7:^GCC DATE/TIME AFTER
237 ;;R^"863.7:",.01,"E"
238 ;;D^GCC DATE/TIME AFTER
239 ;;R^"863.7:",.02,"E"
240 ;;D^EXTRINSIC FUNCTION
241 ;;R^"863.7:",3,"E"
242 ;;D^AFTER^OCXF21
243 ;;R^"863.7:","863.74:1",.01,"E"
244 ;;D^PRIMARY DATA FIELD
245 ;;R^"863.7:","863.74:1",1.1,"E"
246 ;;D^1
247 ;;R^"863.7:","863.74:2",.01,"E"
248 ;;D^COMPARISON VALUE
249 ;;R^"863.7:","863.74:2",1.1,"E"
250 ;;D^2
251 ;;EOR^
252 ;;KEY^863.7:^GCC FREE TEXT CONTAINS ELEMENT IN SET
253 ;;R^"863.7:",.01,"E"
254 ;;D^GCC FREE TEXT CONTAINS ELEMENT IN SET
255 ;;R^"863.7:",.02,"E"
256 ;;D^EXTRINSIC FUNCTION
257 ;;R^"863.7:",3,"E"
258 ;;D^CONSET^OCXF22
259 ;;R^"863.7:","863.74:1",.01,"E"
260 ;;D^PRIMARY DATA FIELD
261 ;;R^"863.7:","863.74:1",1.1,"E"
262 ;;D^1
263 ;;R^"863.7:","863.74:2",.01,"E"
264 ;;D^COMPARISON VALUE
265 ;;R^"863.7:","863.74:2",1.1,"E"
266 ;;D^2
267 ;;EOR^
268 ;;KEY^863.7:^GCC FREE TEXT EQUALS
269 ;;R^"863.7:",.01,"E"
270 ;;D^GCC FREE TEXT EQUALS
271 ;;R^"863.7:",.02,"E"
272 ;;D^EXTRINSIC FUNCTION
273 ;;R^"863.7:",3,"E"
274 ;;D^AEQ^OCXF22
275 ;;R^"863.7:","863.74:1",.01,"E"
276 ;;D^PRIMARY DATA FIELD
277 ;;R^"863.7:","863.74:1",1.1,"E"
278 ;;D^1
279 ;;R^"863.7:","863.74:2",.01,"E"
280 ;;D^COMPARISON VALUE
281 ;;R^"863.7:","863.74:2",1.1,"E"
282 ;;D^2
283 ;;EOR^
284 ;;KEY^863.7:^GCC FREE TEXT NOT EQUALS
285 ;;R^"863.7:",.01,"E"
286 ;;D^GCC FREE TEXT NOT EQUALS
287 ;;R^"863.7:",.02,"E"
288 ;;D^EXTRINSIC FUNCTION
289 ;;R^"863.7:",3,"E"
290 ;;D^NAEQ^OCXF22
291 ;;R^"863.7:","863.74:1",.01,"E"
292 ;;D^PRIMARY DATA FIELD
293 ;;R^"863.7:","863.74:1",1.1,"E"
294 ;;D^1
295 ;;R^"863.7:","863.74:2",.01,"E"
296 ;;D^COMPARISON VALUE
297 ;;R^"863.7:","863.74:2",1.1,"E"
298 ;;D^2
299 ;;EOR^
300 ;;KEY^863.7:^GCC FREE TEXT STARTS WITH
301 ;;R^"863.7:",.01,"E"
302 ;;D^GCC FREE TEXT STARTS WITH
303 ;;R^"863.7:",.02,"E"
304 ;;D^EXTRINSIC FUNCTION
305 ;;R^"863.7:",3,"E"
306 ;;D^START^OCXF22
307 ;;R^"863.7:","863.74:1",.01,"E"
308 ;;D^PRIMARY DATA FIELD
309 ;;R^"863.7:","863.74:1",1.1,"E"
310 ;;D^1
311 ;;R^"863.7:","863.74:2",.01,"E"
312 ;;D^COMPARISON VALUE
313 ;;R^"863.7:","863.74:2",1.1,"E"
314 ;;D^2
315 ;;EOR^
316 ;;KEY^863.7:^GCC NUMERIC GREATER THAN
317 ;;R^"863.7:",.01,"E"
318 ;;D^GCC NUMERIC GREATER THAN
319 ;;R^"863.7:",.02,"E"
320 ;;D^EXTRINSIC FUNCTION
321 ;;R^"863.7:",3,"E"
322 ;;D^GRT^OCXF20
323 ;;R^"863.7:","863.74:1",.01,"E"
324 ;1;
325 ;
Note: See TracBrowser for help on using the repository browser.