source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY22102.m@ 1389

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

initial load of WorldVistAEHR

File size: 7.5 KB
RevLine 
[613]1ORY22102 ;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 ^ORY22103
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;D^SET CODES
21 ;;R^"863.8:","863.84:9",1,"E"
22 ;;D^T:TIME ALLOWED;R:TIME REQUIRED
23 ;;EOR^
24 ;;KEY^863.8:^DIC
25 ;;R^"863.8:",.01,"E"
26 ;;D^DIC
27 ;;R^"863.8:",.02,"E"
28 ;;D^DIC
29 ;;R^"863.8:",1,1
30 ;;D^An open reference used to specify the file in a DIC lookup
31 ;;R^"863.8:","863.84:1",.01,"E"
32 ;;D^DATA TYPE
33 ;;R^"863.8:","863.84:1",1,"E"
34 ;;D^POINTER TO A FILEMAN FILE
35 ;;R^"863.8:","863.84:2",.01,"E"
36 ;;D^DIC
37 ;;R^"863.8:","863.84:2",1,"E"
38 ;;D^1
39 ;;R^"863.8:","863.84:3",.01,"E"
40 ;;D^QUERY
41 ;;R^"863.8:","863.84:3",1,"E"
42 ;;D^Enter the name of the file you are pointing to
43 ;;EOR^
44 ;;KEY^863.8:^DIC LOOKUP INDEX STRING
45 ;;R^"863.8:",.01,"E"
46 ;;D^DIC LOOKUP INDEX STRING
47 ;;R^"863.8:",.02,"E"
48 ;;D^DICIX
49 ;;R^"863.8:",1,1
50 ;;D^Contains the names of indices to be used in a DIC lookup in a comma
51 ;;R^"863.8:",1,2
52 ;;D^delimited string.
53 ;;R^"863.8:","863.84:1",.01,"E"
54 ;;D^DATA TYPE
55 ;;R^"863.8:","863.84:1",1,"E"
56 ;;D^FREE TEXT
57 ;;R^"863.8:","863.84:2",.01,"E"
58 ;;D^QUERY
59 ;;R^"863.8:","863.84:2",1,"E"
60 ;;D^Enter a DIC lookup index string
61 ;;R^"863.8:","863.84:3",.01,"E"
62 ;;D^HELP MESSAGE
63 ;;R^"863.8:","863.84:3",1,"E"
64 ;;D^This is an '^' delimited string which contains the names of indices which are to be used in a DIC lookup; e.g., B^C^DOB.
65 ;;EOR^
66 ;;KEY^863.8:^FILE
67 ;;R^"863.8:",.01,"E"
68 ;;D^FILE
69 ;;R^"863.8:",.02,"E"
70 ;;D^FILE
71 ;;R^"863.8:",1,1
72 ;;D^The internal entry number of a file.
73 ;;R^"863.8:","863.84:6",.01,"E"
74 ;;D^QUERY
75 ;;R^"863.8:","863.84:6",1,"E"
76 ;;D^File
77 ;;R^"863.8:","863.84:7",.01,"E"
78 ;;D^DATA TYPE
79 ;;R^"863.8:","863.84:7",1,"E"
80 ;;D^POINTER TO A FILEMAN FILE
81 ;;R^"863.8:","863.84:8",.01,"E"
82 ;;D^DIC
83 ;;R^"863.8:","863.84:8",1,"E"
84 ;;D^1
85 ;;EOR^
86 ;;KEY^863.8:^FM MASK
87 ;;R^"863.8:",.01,"E"
88 ;;D^FM MASK
89 ;;R^"863.8:",.02,"E"
90 ;;D^FM MASK
91 ;;R^"863.8:",1,1
92 ;;D^Tag^routine where code is located to parse the FM DD and override the parameter value
93 ;;R^"863.8:","863.84:4",.01,"E"
94 ;;D^QUERY
95 ;;R^"863.8:","863.84:4",1,"E"
96 ;;D^Enter tag^routine where the FM MASK parser is located
97 ;;R^"863.8:","863.84:5",.01,"E"
98 ;;D^DATA TYPE
99 ;;R^"863.8:","863.84:5",1,"E"
100 ;;D^LINE TAG
101 ;;EOR^
102 ;;KEY^863.8:^FREE TEXT MAXIMUM LENGTH
103 ;;R^"863.8:",.01,"E"
104 ;;D^FREE TEXT MAXIMUM LENGTH
105 ;;R^"863.8:",.02,"E"
106 ;;D^FMAX
107 ;;R^"863.8:",1,1
108 ;;D^Maximum string length allowed
109 ;;R^"863.8:",2,"E"
110 ;;D^245
111 ;;R^"863.8:","863.84:3",.01,"E"
112 ;;D^QUERY
113 ;;R^"863.8:","863.84:3",1,"E"
114 ;;D^Maximum text string length allowed
115 ;;R^"863.8:","863.84:4",.01,"E"
116 ;;D^FM MASK
117 ;;R^"863.8:","863.84:4",1,"E"
118 ;;D^FMAX^OCXF6
119 ;;R^"863.8:","863.84:5",.01,"E"
120 ;;D^DATA TYPE
121 ;;R^"863.8:","863.84:5",1,"E"
122 ;;D^POSITIVE INTEGER
123 ;;EOR^
124 ;;KEY^863.8:^HELP FRAME MESSAGE
125 ;;R^"863.8:",.01,"E"
126 ;;D^HELP FRAME MESSAGE
127 ;;R^"863.8:",.02,"E"
128 ;;D^HF MSG
129 ;;R^"863.8:",1,1
130 ;;D^Message to the user that, in addition to the normal help text, a help
131 ;;R^"863.8:",1,2
132 ;;D^frame is available.
133 ;;R^"863.8:",2,"E"
134 ;;D^Do you want to view a more detailed help message
135 ;;R^"863.8:","863.84:1",.01,"E"
136 ;;D^DATA TYPE
137 ;;R^"863.8:","863.84:1",1,"E"
138 ;;D^FREE TEXT
139 ;;R^"863.8:","863.84:2",.01,"E"
140 ;;D^QUERY
141 ;;R^"863.8:","863.84:2",1,"E"
142 ;;D^Help frame request message
143 ;;EOR^
144 ;;KEY^863.8:^HELP MESSAGE
145 ;;R^"863.8:",.01,"E"
146 ;;D^HELP MESSAGE
147 ;;R^"863.8:",.02,"E"
148 ;;D^HELP
149 ;;R^"863.8:",1,1
150 ;;D^A text string 1-250 characters long which overrides the Fileman help
151 ;;R^"863.8:",1,2
152 ;;D^message.
153 ;;R^"863.8:","863.84:10",.01,"E"
154 ;;D^QUERY
155 ;;R^"863.8:","863.84:10",1,"E"
156 ;;D^Enter a brief help message
157 ;;R^"863.8:","863.84:8",.01,"E"
158 ;;D^DATA TYPE
159 ;;R^"863.8:","863.84:8",1,"E"
160 ;;D^FREE TEXT
161 ;;R^"863.8:","863.84:9",.01,"E"
162 ;;D^FM MASK
163 ;;R^"863.8:","863.84:9",1,"E"
164 ;;D^HELP^OCXF6
165 ;;EOR^
166 ;;KEY^863.8:^LOOP QUERY
167 ;;R^"863.8:",.01,"E"
168 ;;D^LOOP QUERY
169 ;;R^"863.8:",.02,"E"
170 ;;D^LOOP QUERY
171 ;;R^"863.8:",1,1
172 ;;D^Alternate query used when repeated answers are required
173 ;;R^"863.8:","863.84:1",.01,"E"
174 ;;D^DATA TYPE
175 ;;R^"863.8:","863.84:1",1,"E"
176 ;;D^FREE TEXT
177 ;;R^"863.8:","863.84:2",.01,"E"
178 ;;D^QUERY
179 ;;R^"863.8:","863.84:2",1,"E"
180 ;;D^Enter loop query text
181 ;;R^"863.8:","863.84:3",.01,"E"
182 ;;D^HELP MESSAGE
183 ;;R^"863.8:","863.84:3",1,"E"
184 ;;D^This is the query text for all entries after the first one
185 ;;EOR^
186 ;;KEY^863.8:^MANDATORY MESSAGE
187 ;;R^"863.8:",.01,"E"
188 ;;D^MANDATORY MESSAGE
189 ;;R^"863.8:",.02,"E"
190 ;;D^MAND MSG
191 ;;R^"863.8:",1,1
192 ;;D^Message sent to user telling him that his entry is mandatory
193 ;;R^"863.8:",2,"E"
194 ;;D^Mandatory answer. You must enter a value or '^' to exit.
195 ;;R^"863.8:","863.84:4",.01,"E"
196 ;;D^QUERY
197 ;;R^"863.8:","863.84:4",1,"E"
198 ;;D^Enter message
199 ;;R^"863.8:","863.84:5",.01,"E"
200 ;;D^DATA TYPE
201 ;;R^"863.8:","863.84:5",1,"E"
202 ;;D^FREE TEXT
203 ;;EOR^
204 ;;KEY^863.8:^OCXO DATA DRIVE SOURCE
205 ;;R^"863.8:",.01,"E"
206 ;;D^OCXO DATA DRIVE SOURCE
207 ;;EOR^
208 ;;KEY^863.8:^OCXO EXTERNAL FUNCTION CALL
209 ;;R^"863.8:",.01,"E"
210 ;;D^OCXO EXTERNAL FUNCTION CALL
211 ;;EOR^
212 ;;KEY^863.8:^OCXO FILE POINTER
213 ;;R^"863.8:",.01,"E"
214 ;;D^OCXO FILE POINTER
215 ;;EOR^
216 ;;KEY^863.8:^OCXO GENERATE CODE FUNCTION
217 ;;R^"863.8:",.01,"E"
218 ;;D^OCXO GENERATE CODE FUNCTION
219 ;;R^"863.8:",.02,"E"
220 ;;D^GEN
221 ;;EOR^
222 ;;KEY^863.8:^OCXO HL7 SEGMENT ID
223 ;;R^"863.8:",.01,"E"
224 ;;D^OCXO HL7 SEGMENT ID
225 ;;R^"863.8:",.02,"E"
226 ;;D^HL7SEGID
227 ;;EOR^
228 ;;KEY^863.8:^OCXO NULL VALUE ALLOWED
229 ;;R^"863.8:",.01,"E"
230 ;;D^OCXO NULL VALUE ALLOWED
231 ;;R^"863.8:",.02,"E"
232 ;;D^NVAL
233 ;;EOR^
234 ;;KEY^863.8:^OCXO UP-ARROW PIECE NUMBER
235 ;;R^"863.8:",.01,"E"
236 ;;D^OCXO UP-ARROW PIECE NUMBER
237 ;;EOR^
238 ;;KEY^863.8:^OCXO VARIABLE NAME
239 ;;R^"863.8:",.01,"E"
240 ;;D^OCXO VARIABLE NAME
241 ;;EOR^
242 ;;KEY^863.8:^OCXO VT-BAR PIECE NUMBER
243 ;;R^"863.8:",.01,"E"
244 ;;D^OCXO VT-BAR PIECE NUMBER
245 ;;EOR^
246 ;;KEY^863.8:^PRIMARY DATA FIELD
247 ;;R^"863.8:",.01,"E"
248 ;;D^PRIMARY DATA FIELD
249 ;;R^"863.8:",.02,"E"
250 ;;D^PDFLD
251 ;;R^"863.8:",1,1
252 ;;D^
253 ;;R^"863.8:",1,2
254 ;;D^ Primary data field in a comparison expression that
255 ;;R^"863.8:",1,3
256 ;;D^ is to be tested.
257 ;;R^"863.8:",1,4
258 ;;D^
259 ;;EOR^
260 ;;KEY^863.8:^QUERY
261 ;;R^"863.8:",.01,"E"
262 ;;D^QUERY
263 ;;R^"863.8:",.02,"E"
264 ;;D^QUERY
265 ;;R^"863.8:",1,1
266 ;;D^Used with methods that manage interactive dialogues. Equivalent to DIC("A")
267 ;;R^"863.8:","863.84:1",.01,"E"
268 ;;D^DATA TYPE
269 ;;R^"863.8:","863.84:1",1,"E"
270 ;;D^FREE TEXT
271 ;;R^"863.8:","863.84:2",.01,"E"
272 ;;D^QUERY
273 ;;R^"863.8:","863.84:2",1,"E"
274 ;;D^Enter the query (free text string)
275 ;;EOR^
276 ;;KEY^863.8:^REPEAT THE QUERY
277 ;;R^"863.8:",.01,"E"
278 ;;D^REPEAT THE QUERY
279 ;;R^"863.8:",.02,"E"
280 ;;D^LOOP
281 ;;R^"863.8:",1,1
282 ;;D^Set this = 1 to repetitively ask the user to enter a value
283 ;;R^"863.8:","863.84:1",.01,"E"
284 ;;D^DATA TYPE
285 ;;R^"863.8:","863.84:1",1,"E"
286 ;;D^YES NO
287 ;;R^"863.8:","863.84:2",.01,"E"
288 ;;D^HELP MESSAGE
289 ;;R^"863.8:","863.84:2",1,"E"
290 ;;D^Answer 'YES' if you want the user to repetitively enter a value.
291 ;;R^"863.8:","863.84:3",.01,"E"
292 ;;D^QUERY
293 ;;R^"863.8:","863.84:3",1,"E"
294 ;;D^Is the query repetitive
295 ;;EOR^
296 ;;KEY^863.8:^SET CODES
297 ;;R^"863.8:",.01,"E"
298 ;;D^SET CODES
299 ;;R^"863.8:",.02,"E"
300 ;;D^CODES
301 ;;R^"863.8:",1,1
302 ;;D^A set of codes string in FM format.
303 ;;R^"863.8:","863.84:2",.01,"E"
304 ;;D^FM MASK
305 ;;R^"863.8:","863.84:2",1,"E"
306 ;;D^SET^OCXF6
307 ;;R^"863.8:","863.84:3",.01,"E"
308 ;1;
309 ;
Note: See TracBrowser for help on using the repository browser.