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

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

initial load of WorldVistAEHR

File size: 5.2 KB
Line 
1OCXDI01Q ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:30
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5S ;
6 ;
7 D DOT^OCXDIAG
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("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
13 ;
14 G ^OCXDI01R
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;KEY^863.4:^DATE OF BIRTH
21 ;;R^"863.4:",.01,"E"
22 ;;D^DATE OF BIRTH
23 ;;R^"863.4:","863.41:1",.01,"E"
24 ;;D^QUERY
25 ;;R^"863.4:","863.41:1",1,"E"
26 ;;D^Enter DOB
27 ;;R^"863.4:","863.41:13",.01,"E"
28 ;;D^DATA TYPE
29 ;;R^"863.4:","863.41:13",1,"E"
30 ;;D^DATE/TIME
31 ;;R^"863.4:","863.41:3",.01,"E"
32 ;;D^HELP MESSAGE
33 ;;R^"863.4:","863.41:3",1,"E"
34 ;;D^Enter the date of birth in any convenient format; e.g., MM/DD/YY
35 ;;R^"863.4:","863.41:5",.01,"E"
36 ;;D^DATE EXACT
37 ;;R^"863.4:","863.41:5",1,"E"
38 ;;D^X
39 ;;R^"863.4:","863.41:7",.01,"E"
40 ;;D^DATE LIMIT
41 ;;R^"863.4:","863.41:7",1,"E"
42 ;;D^-T
43 ;;R^"863.4:","863.41:8",.01,"E"
44 ;;D^DATE MINIMUM
45 ;;R^"863.4:","863.41:8",1,"E"
46 ;;D^1850101
47 ;;R^"863.4:","863.41:9",.01,"E"
48 ;;D^DATE MAXIMUM
49 ;;R^"863.4:","863.41:9",1,"E"
50 ;;D^T
51 ;;EOR^
52 ;;KEY^863.4:^BLOOD TYPE
53 ;;R^"863.4:",.01,"E"
54 ;;D^BLOOD TYPE
55 ;;EOR^
56 ;;KEY^863.4:^DATE OF VISIT
57 ;;R^"863.4:",.01,"E"
58 ;;D^DATE OF VISIT
59 ;;EOR^
60 ;;KEY^863.4:^TYPE OF VISIT
61 ;;R^"863.4:",.01,"E"
62 ;;D^TYPE OF VISIT
63 ;;EOR^
64 ;;KEY^863.4:^SERVICE CATEGORY
65 ;;R^"863.4:",.01,"E"
66 ;;D^SERVICE CATEGORY
67 ;;R^"863.4:","863.41:1",.01,"E"
68 ;;D^DATA TYPE
69 ;;R^"863.4:","863.41:1",1,"E"
70 ;;D^FREE TEXT
71 ;;EOR^
72 ;;KEY^863.4:^SOCIAL SECURITY NUMBER
73 ;;R^"863.4:",.01,"E"
74 ;;D^SOCIAL SECURITY NUMBER
75 ;;EOR^
76 ;;KEY^863.4:^CITY
77 ;;R^"863.4:",.01,"E"
78 ;;D^CITY
79 ;;EOR^
80 ;;KEY^863.4:^AGE
81 ;;R^"863.4:",.01,"E"
82 ;;D^AGE
83 ;;R^"863.4:","863.41:2",.01,"E"
84 ;;D^HELP MESSAGE
85 ;;R^"863.4:","863.41:2",1,"E"
86 ;;D^Enter an age.
87 ;;R^"863.4:","863.41:3",.01,"E"
88 ;;D^NUMERIC MINIMUM
89 ;;R^"863.4:","863.41:3",1,"E"
90 ;;D^0
91 ;;R^"863.4:","863.41:4",.01,"E"
92 ;;D^NUMERIC MAXIMUM
93 ;;R^"863.4:","863.41:4",1,"E"
94 ;;D^150
95 ;;R^"863.4:","863.41:5",.01,"E"
96 ;;D^NUMERIC DECIMAL PLACES
97 ;;R^"863.4:","863.41:5",1,"E"
98 ;;D^0
99 ;;R^"863.4:","863.41:6",.01,"E"
100 ;;D^DATA TYPE
101 ;;R^"863.4:","863.41:6",1,"E"
102 ;;D^NUMERIC
103 ;;EOR^
104 ;;KEY^863.4:^GENERIC NAME
105 ;;R^"863.4:",.01,"E"
106 ;;D^GENERIC NAME
107 ;;R^"863.4:",.02,"E"
108 ;;D^GNAME
109 ;;R^"863.4:","863.41:1",.01,"E"
110 ;;D^QUERY
111 ;;R^"863.4:","863.41:1",1,"E"
112 ;;D^Enter generic name
113 ;;R^"863.4:","863.41:2",.01,"E"
114 ;;D^HELP MESSAGE
115 ;;R^"863.4:","863.41:2",1,"E"
116 ;;D^Enter the name of your choice. |FTMM HELP|
117 ;;R^"863.4:","863.41:3",.01,"E"
118 ;;D^DATA TYPE
119 ;;R^"863.4:","863.41:3",1,"E"
120 ;;D^FREE TEXT
121 ;;EOR^
122 ;;KEY^863.4:^HL7 FILLER
123 ;;R^"863.4:",.01,"E"
124 ;;D^HL7 FILLER
125 ;;R^"863.4:",.02,"E"
126 ;;D^HL7FILLR
127 ;;R^"863.4:","863.41:1",.01,"E"
128 ;;D^DATA TYPE
129 ;;R^"863.4:","863.41:1",1,"E"
130 ;;D^FREE TEXT
131 ;;EOR^
132 ;;KEY^863.4:^HL7 CONTROL CODE
133 ;;R^"863.4:",.01,"E"
134 ;;D^HL7 CONTROL CODE
135 ;;R^"863.4:",.02,"E"
136 ;;D^HL7CCODE
137 ;;R^"863.4:","863.41:1",.01,"E"
138 ;;D^DATA TYPE
139 ;;R^"863.4:","863.41:1",1,"E"
140 ;;D^FREE TEXT
141 ;;EOR^
142 ;;KEY^863.4:^HL7 ORDERING PROVIDER
143 ;;R^"863.4:",.01,"E"
144 ;;D^HL7 ORDERING PROVIDER
145 ;;R^"863.4:",.02,"E"
146 ;;D^HL7ORDPROV
147 ;;R^"863.4:","863.41:1",.01,"E"
148 ;;D^DATA TYPE
149 ;;R^"863.4:","863.41:1",1,"E"
150 ;;D^FREE TEXT
151 ;;R^"863.4:","863.41:3",.01,"E"
152 ;;D^FILEMAN FILE NUMBER
153 ;;R^"863.4:","863.41:3",1,"E"
154 ;;D^200
155 ;;EOR^
156 ;;KEY^863.4:^HL7 STATUS
157 ;;R^"863.4:",.01,"E"
158 ;;D^HL7 STATUS
159 ;;R^"863.4:",.02,"E"
160 ;;D^HL7STAT
161 ;;R^"863.4:","863.41:1",.01,"E"
162 ;;D^DATA TYPE
163 ;;R^"863.4:","863.41:1",1,"E"
164 ;;D^FREE TEXT
165 ;;EOR^
166 ;;KEY^863.4:^HL7 ORDER START D/T
167 ;;R^"863.4:",.01,"E"
168 ;;D^HL7 ORDER START D/T
169 ;;R^"863.4:",.02,"E"
170 ;;D^HL7STDATE
171 ;;R^"863.4:","863.41:1",.01,"E"
172 ;;D^DATA TYPE
173 ;;R^"863.4:","863.41:1",1,"E"
174 ;;D^DATE/TIME
175 ;;EOR^
176 ;;KEY^863.4:^ORDER PRIORITY
177 ;;R^"863.4:",.01,"E"
178 ;;D^ORDER PRIORITY
179 ;;R^"863.4:","863.41:1",.01,"E"
180 ;;D^DATA TYPE
181 ;;R^"863.4:","863.41:1",1,"E"
182 ;;D^FREE TEXT
183 ;;EOR^
184 ;;KEY^863.4:^RESULT STATUS
185 ;;R^"863.4:",.01,"E"
186 ;;D^RESULT STATUS
187 ;;R^"863.4:","863.41:1",.01,"E"
188 ;;D^DATA TYPE
189 ;;R^"863.4:","863.41:1",1,"E"
190 ;;D^FREE TEXT
191 ;;EOR^
192 ;;KEY^863.4:^ABNORM FLAG
193 ;;R^"863.4:",.01,"E"
194 ;;D^ABNORM FLAG
195 ;;R^"863.4:","863.41:1",.01,"E"
196 ;;D^DATA TYPE
197 ;;R^"863.4:","863.41:1",1,"E"
198 ;;D^FREE TEXT
199 ;;EOR^
200 ;;KEY^863.4:^START DATE
201 ;;R^"863.4:",.01,"E"
202 ;;D^START DATE
203 ;;R^"863.4:","863.41:1",.01,"E"
204 ;;D^DATA TYPE
205 ;;R^"863.4:","863.41:1",1,"E"
206 ;;D^DATE/TIME
207 ;;EOR^
208 ;;KEY^863.4:^LAB LOCAL OI
209 ;;R^"863.4:",.01,"E"
210 ;;D^LAB LOCAL OI
211 ;;R^"863.4:","863.41:1",.01,"E"
212 ;;D^DATA TYPE
213 ;;R^"863.4:","863.41:1",1,"E"
214 ;;D^FREE TEXT
215 ;;EOR^
216 ;;KEY^863.4:^ORD PLACE DT
217 ;;R^"863.4:",.01,"E"
218 ;;D^ORD PLACE DT
219 ;;R^"863.4:","863.41:1",.01,"E"
220 ;;D^DATA TYPE
221 ;;R^"863.4:","863.41:1",1,"E"
222 ;;D^DATE/TIME
223 ;;EOR^
224 ;;KEY^863.4:^EXAM/ORDER ID
225 ;;R^"863.4:",.01,"E"
226 ;;D^EXAM/ORDER ID
227 ;;R^"863.4:","863.41:1",.01,"E"
228 ;;D^DATA TYPE
229 ;;R^"863.4:","863.41:1",1,"E"
230 ;;D^FREE TEXT
231 ;;EOR^
232 ;;KEY^863.4:^COMMENT
233 ;;R^"863.4:",.01,"E"
234 ;;D^COMMENT
235 ;;R^"863.4:","863.41:1",.01,"E"
236 ;;D^DATA TYPE
237 ;;R^"863.4:","863.41:1",1,"E"
238 ;;D^FREE TEXT
239 ;;EOR^
240 ;;KEY^863.4:^CONSULT/REQUEST NAME
241 ;;R^"863.4:",.01,"E"
242 ;;D^CONSULT/REQUEST NAME
243 ;;R^"863.4:","863.41:1",.01,"E"
244 ;1;
245 ;
Note: See TracBrowser for help on using the repository browser.