source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI01U.m@ 1397

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

initial load of FOIAVistA 6/30/08 version
File size: 5.2 KB
Line 
1OCXDI01U ;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 ^OCXDI01V
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;D^DATA TYPE
21 ;;R^"863.4:","863.41:1",1,"E"
22 ;;D^FREE TEXT
23 ;;EOR^
24 ;;KEY^863.4:^CREATININE FLAG
25 ;;R^"863.4:",.01,"E"
26 ;;D^CREATININE FLAG
27 ;;R^"863.4:","863.41:1",.01,"E"
28 ;;D^DATA TYPE
29 ;;R^"863.4:","863.41:1",1,"E"
30 ;;D^BOOLEAN
31 ;;EOR^
32 ;;KEY^863.4:^WBC 13 DAYS
33 ;;R^"863.4:",.01,"E"
34 ;;D^WBC 13 DAYS
35 ;;EOR^
36 ;;KEY^863.4:^WBC W/IN 13 DAYS
37 ;;R^"863.4:",.01,"E"
38 ;;D^WBC W/IN 13 DAYS
39 ;;R^"863.4:","863.41:1",.01,"E"
40 ;;D^DATA TYPE
41 ;;R^"863.4:","863.41:1",1,"E"
42 ;;D^BOOLEAN
43 ;;EOR^
44 ;;KEY^863.4:^RECENT WBC RESULT
45 ;;R^"863.4:",.01,"E"
46 ;;D^RECENT WBC RESULT
47 ;;R^"863.4:","863.41:1",.01,"E"
48 ;;D^DATA TYPE
49 ;;R^"863.4:","863.41:1",1,"E"
50 ;;D^FREE TEXT
51 ;;EOR^
52 ;;KEY^863.4:^BARIUM ORDER STATUS
53 ;;R^"863.4:",.01,"E"
54 ;;D^BARIUM ORDER STATUS
55 ;;R^"863.4:","863.41:1",.01,"E"
56 ;;D^DATA TYPE
57 ;;R^"863.4:","863.41:1",1,"E"
58 ;;D^FREE TEXT
59 ;;EOR^
60 ;;KEY^863.4:^CHOLECYSTOGRAM ORDER STATUS
61 ;;R^"863.4:",.01,"E"
62 ;;D^CHOLECYSTOGRAM ORDER STATUS
63 ;;R^"863.4:","863.41:1",.01,"E"
64 ;;D^DATA TYPE
65 ;;R^"863.4:","863.41:1",1,"E"
66 ;;D^FREE TEXT
67 ;;EOR^
68 ;;KEY^863.4:^POLYPHARMACY
69 ;;R^"863.4:",.01,"E"
70 ;;D^POLYPHARMACY
71 ;;R^"863.4:","863.41:1",.01,"E"
72 ;;D^DATA TYPE
73 ;;R^"863.4:","863.41:1",1,"E"
74 ;;D^BOOLEAN
75 ;;EOR^
76 ;;KEY^863.4:^GLUCOPHAGE CREATININE
77 ;;R^"863.4:",.01,"E"
78 ;;D^GLUCOPHAGE CREATININE
79 ;;R^"863.4:","863.41:1",.01,"E"
80 ;;D^DATA TYPE
81 ;;R^"863.4:","863.41:1",1,"E"
82 ;;D^BOOLEAN
83 ;;EOR^
84 ;;KEY^863.4:^GLUCO-CREATININE FLAG
85 ;;R^"863.4:",.01,"E"
86 ;;D^GLUCO-CREATININE FLAG
87 ;;R^"863.4:","863.41:1",.01,"E"
88 ;;D^DATA TYPE
89 ;;R^"863.4:","863.41:1",1,"E"
90 ;;D^BOOLEAN
91 ;;EOR^
92 ;;KEY^863.4:^GLUCO-CREATININE TEXT
93 ;;R^"863.4:",.01,"E"
94 ;;D^GLUCO-CREATININE TEXT
95 ;;R^"863.4:","863.41:1",.01,"E"
96 ;;D^DATA TYPE
97 ;;R^"863.4:","863.41:1",1,"E"
98 ;;D^FREE TEXT
99 ;;EOR^
100 ;;KEY^863.4:^GLUCO-CREATININE RESULT
101 ;;R^"863.4:",.01,"E"
102 ;;D^GLUCO-CREATININE RESULT
103 ;;R^"863.4:","863.41:1",.01,"E"
104 ;;D^DATA TYPE
105 ;;R^"863.4:","863.41:1",1,"E"
106 ;;D^NUMERIC
107 ;;EOR^
108 ;;KEY^863.4:^GLUCO_CREATININE DAYS
109 ;;R^"863.4:",.01,"E"
110 ;;D^GLUCO_CREATININE DAYS
111 ;;R^"863.4:","863.41:1",.01,"E"
112 ;;D^DATA TYPE
113 ;;R^"863.4:","863.41:1",1,"E"
114 ;;D^NUMERIC
115 ;;EOR^
116 ;;KEY^863.4:^WBC W/IN 6 DAYS
117 ;;R^"863.4:",.01,"E"
118 ;;D^WBC W/IN 6 DAYS
119 ;;R^"863.4:","863.41:1",.01,"E"
120 ;;D^DATA TYPE
121 ;;R^"863.4:","863.41:1",1,"E"
122 ;;D^BOOLEAN
123 ;;EOR^
124 ;;KEY^863.4:^ANC W/IN 6 DAYS
125 ;;R^"863.4:",.01,"E"
126 ;;D^ANC W/IN 6 DAYS
127 ;;R^"863.4:","863.41:1",.01,"E"
128 ;;D^DATA TYPE
129 ;;R^"863.4:","863.41:1",1,"E"
130 ;;D^BOOLEAN
131 ;;EOR^
132 ;;KEY^863.4:^RECENT ANC
133 ;;R^"863.4:",.01,"E"
134 ;;D^RECENT ANC
135 ;;R^"863.4:","863.41:1",.01,"E"
136 ;;D^DATA TYPE
137 ;;R^"863.4:","863.41:1",1,"E"
138 ;;D^FREE TEXT
139 ;;EOR^
140 ;;KEY^863.4:^CLOZAPINE LABS W/IN 6 DAYS
141 ;;R^"863.4:",.01,"E"
142 ;;D^CLOZAPINE LABS W/IN 6 DAYS
143 ;;R^"863.4:","863.41:1",.01,"E"
144 ;;D^DATA TYPE
145 ;;R^"863.4:","863.41:1",1,"E"
146 ;;D^BOOLEAN
147 ;;EOR^
148 ;;KEY^863.4:^CLOZAPINE LAB RESULTS
149 ;;R^"863.4:",.01,"E"
150 ;;D^CLOZAPINE LAB RESULTS
151 ;;R^"863.4:","863.41:1",.01,"E"
152 ;;D^DATA TYPE
153 ;;R^"863.4:","863.41:1",1,"E"
154 ;;D^FREE TEXT
155 ;;EOR^
156 ;;KEY^863.4:^DISPENSE DRUG
157 ;;R^"863.4:",.01,"E"
158 ;;D^DISPENSE DRUG
159 ;;R^"863.4:","863.41:1",.01,"E"
160 ;;D^DATA TYPE
161 ;;R^"863.4:","863.41:1",1,"E"
162 ;;D^FREE TEXT
163 ;;EOR^
164 ;;KEY^863.4:^CLOZAPINE MED
165 ;;R^"863.4:",.01,"E"
166 ;;D^CLOZAPINE MED
167 ;;R^"863.4:","863.41:1",.01,"E"
168 ;;D^DATA TYPE
169 ;;R^"863.4:","863.41:1",1,"E"
170 ;;D^BOOLEAN
171 ;;EOR^
172 ;;KEY^863.4:^QUERY MODE
173 ;;R^"863.4:",.01,"E"
174 ;;D^QUERY MODE
175 ;;R^"863.4:","863.41:1",.01,"E"
176 ;;D^DATA TYPE
177 ;;R^"863.4:","863.41:1",1,"E"
178 ;;D^FREE TEXT
179 ;;EOR^
180 ;;KEY^863.4:^QUERY DATA
181 ;;R^"863.4:",.01,"E"
182 ;;D^QUERY DATA
183 ;;R^"863.4:","863.41:1",.01,"E"
184 ;;D^DATA TYPE
185 ;;R^"863.4:","863.41:1",1,"E"
186 ;;D^FREE TEXT
187 ;;EOR^
188 ;;KEY^863.4:^WBC W/IN 7 DAYS
189 ;;R^"863.4:",.01,"E"
190 ;;D^WBC W/IN 7 DAYS
191 ;;R^"863.4:","863.41:1",.01,"E"
192 ;;D^DATA TYPE
193 ;;R^"863.4:","863.41:1",1,"E"
194 ;;D^BOOLEAN
195 ;;EOR^
196 ;;KEY^863.4:^CLOZAPINE ANC W/IN 7 FLAG
197 ;;R^"863.4:",.01,"E"
198 ;;D^CLOZAPINE ANC W/IN 7 FLAG
199 ;;R^"863.4:","863.41:1",.01,"E"
200 ;;D^DATA TYPE
201 ;;R^"863.4:","863.41:1",1,"E"
202 ;;D^BOOLEAN
203 ;;EOR^
204 ;;KEY^863.4:^CLOZAPINE ANC W/IN 7 RESULT
205 ;;R^"863.4:",.01,"E"
206 ;;D^CLOZAPINE ANC W/IN 7 RESULT
207 ;;R^"863.4:","863.41:1",.01,"E"
208 ;;D^DATA TYPE
209 ;;R^"863.4:","863.41:1",1,"E"
210 ;;D^NUMERIC
211 ;;EOR^
212 ;;KEY^863.4:^CLOZAPINE WBC W/IN 7 FLAG
213 ;;R^"863.4:",.01,"E"
214 ;;D^CLOZAPINE WBC W/IN 7 FLAG
215 ;;R^"863.4:","863.41:1",.01,"E"
216 ;;D^DATA TYPE
217 ;;R^"863.4:","863.41:1",1,"E"
218 ;;D^BOOLEAN
219 ;;EOR^
220 ;;KEY^863.4:^CLOZAPINE WBC W/IN 7 RESULT
221 ;;R^"863.4:",.01,"E"
222 ;;D^CLOZAPINE WBC W/IN 7 RESULT
223 ;;R^"863.4:","863.41:1",.01,"E"
224 ;;D^DATA TYPE
225 ;;R^"863.4:","863.41:1",1,"E"
226 ;;D^NUMERIC
227 ;;EOR^
228 ;;EOF^OCXS(863.4)^1
229 ;;SOF^863.2 OCX MDD SUBJECT
230 ;;KEY^863.2:^PATIENT
231 ;;R^"863.2:",.01,"E"
232 ;;D^PATIENT
233 ;;R^"863.2:","863.21:1",.01,"E"
234 ;;D^FILE
235 ;;R^"863.2:","863.21:1",1,"E"
236 ;;D^2
237 ;;EOR^
238 ;;KEY^863.2:^VISIT
239 ;1;
240 ;
Note: See TracBrowser for help on using the repository browser.