source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI01R.m@ 1754

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

initial load of FOIAVistA 6/30/08 version

File size: 5.2 KB
Line 
1OCXDI01R ;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 ^OCXDI01S
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:^LAB COLL D/T
25 ;;R^"863.4:",.01,"E"
26 ;;D^LAB COLL D/T
27 ;;R^"863.4:","863.41:1",.01,"E"
28 ;;D^DATA TYPE
29 ;;R^"863.4:","863.41:1",1,"E"
30 ;;D^DATE/TIME
31 ;;EOR^
32 ;;KEY^863.4:^LAB RESULT
33 ;;R^"863.4:",.01,"E"
34 ;;D^LAB RESULT
35 ;;R^"863.4:","863.41:1",.01,"E"
36 ;;D^DATA TYPE
37 ;;R^"863.4:","863.41:1",1,"E"
38 ;;D^FREE TEXT
39 ;;EOR^
40 ;;KEY^863.4:^LAB SPECIMEN
41 ;;R^"863.4:",.01,"E"
42 ;;D^LAB SPECIMEN
43 ;;R^"863.4:","863.41:1",.01,"E"
44 ;;D^DATA TYPE
45 ;;R^"863.4:","863.41:1",1,"E"
46 ;;D^FREE TEXT
47 ;;EOR^
48 ;;KEY^863.4:^LAB TEST NAME
49 ;;R^"863.4:",.01,"E"
50 ;;D^LAB TEST NAME
51 ;;R^"863.4:","863.41:1",.01,"E"
52 ;;D^DATA TYPE
53 ;;R^"863.4:","863.41:1",1,"E"
54 ;;D^FREE TEXT
55 ;;EOR^
56 ;;KEY^863.4:^RADIOLOGY PROCEDURE
57 ;;R^"863.4:",.01,"E"
58 ;;D^RADIOLOGY PROCEDURE
59 ;;R^"863.4:","863.41:1",.01,"E"
60 ;;D^DATA TYPE
61 ;;R^"863.4:","863.41:1",1,"E"
62 ;;D^FREE TEXT
63 ;;EOR^
64 ;;KEY^863.4:^ORDER STATUS
65 ;;R^"863.4:",.01,"E"
66 ;;D^ORDER STATUS
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:^REQUEST STATUS
73 ;;R^"863.4:",.01,"E"
74 ;;D^REQUEST STATUS
75 ;;R^"863.4:","863.41:1",.01,"E"
76 ;;D^DATA TYPE
77 ;;R^"863.4:","863.41:1",1,"E"
78 ;;D^FREE TEXT
79 ;;EOR^
80 ;;KEY^863.4:^HL7 LOCAL OI TEXT
81 ;;R^"863.4:",.01,"E"
82 ;;D^HL7 LOCAL OI TEXT
83 ;;R^"863.4:","863.41:1",.01,"E"
84 ;;D^DATA TYPE
85 ;;R^"863.4:","863.41:1",1,"E"
86 ;;D^FREE TEXT
87 ;;EOR^
88 ;;KEY^863.4:^MOVEMENT TYPE
89 ;;R^"863.4:",.01,"E"
90 ;;D^MOVEMENT TYPE
91 ;;R^"863.4:","863.41:1",.01,"E"
92 ;;D^DATA TYPE
93 ;;R^"863.4:","863.41:1",1,"E"
94 ;;D^FREE TEXT
95 ;;EOR^
96 ;;KEY^863.4:^MOVEMENT DATE
97 ;;R^"863.4:",.01,"E"
98 ;;D^MOVEMENT DATE
99 ;;R^"863.4:","863.41:1",.01,"E"
100 ;;D^DATA TYPE
101 ;;R^"863.4:","863.41:1",1,"E"
102 ;;D^DATE/TIME
103 ;;EOR^
104 ;;KEY^863.4:^ORDER FLAGGED
105 ;;R^"863.4:",.01,"E"
106 ;;D^ORDER FLAGGED
107 ;;R^"863.4:","863.41:1",.01,"E"
108 ;;D^DATA TYPE
109 ;;R^"863.4:","863.41:1",1,"E"
110 ;;D^BOOLEAN
111 ;;EOR^
112 ;;KEY^863.4:^ORDER REQ CHART SIG
113 ;;R^"863.4:",.01,"E"
114 ;;D^ORDER REQ CHART SIG
115 ;;R^"863.4:","863.41:1",.01,"E"
116 ;;D^DATA TYPE
117 ;;R^"863.4:","863.41:1",1,"E"
118 ;;D^BOOLEAN
119 ;;EOR^
120 ;;KEY^863.4:^SERVICE ORD. REQ. SIG.
121 ;;R^"863.4:",.01,"E"
122 ;;D^SERVICE ORD. REQ. SIG.
123 ;;R^"863.4:","863.41:1",.01,"E"
124 ;;D^DATA TYPE
125 ;;R^"863.4:","863.41:1",1,"E"
126 ;;D^BOOLEAN
127 ;;EOR^
128 ;;KEY^863.4:^ORDER REQ. CO-SIG.
129 ;;R^"863.4:",.01,"E"
130 ;;D^ORDER REQ. CO-SIG.
131 ;;R^"863.4:","863.41:1",.01,"E"
132 ;;D^DATA TYPE
133 ;;R^"863.4:","863.41:1",1,"E"
134 ;;D^BOOLEAN
135 ;;EOR^
136 ;;KEY^863.4:^ORDER REQ. ELEC. SIG.
137 ;;R^"863.4:",.01,"E"
138 ;;D^ORDER REQ. ELEC. SIG.
139 ;;R^"863.4:","863.41:1",.01,"E"
140 ;;D^DATA TYPE
141 ;;R^"863.4:","863.41:1",1,"E"
142 ;;D^BOOLEAN
143 ;;EOR^
144 ;;KEY^863.4:^ORDER RESULT READY FLAG
145 ;;R^"863.4:",.01,"E"
146 ;;D^ORDER RESULT READY FLAG
147 ;;R^"863.4:","863.41:1",.01,"E"
148 ;;D^DATA TYPE
149 ;;R^"863.4:","863.41:1",1,"E"
150 ;;D^BOOLEAN
151 ;;EOR^
152 ;;KEY^863.4:^OBSERVATION VALUE
153 ;;R^"863.4:",.01,"E"
154 ;;D^OBSERVATION VALUE
155 ;;R^"863.4:","863.41:1",.01,"E"
156 ;;D^DATA TYPE
157 ;;R^"863.4:","863.41:1",1,"E"
158 ;;D^FREE TEXT
159 ;;EOR^
160 ;;KEY^863.4:^ORDER NUMBER
161 ;;R^"863.4:",.01,"E"
162 ;;D^ORDER NUMBER
163 ;;R^"863.4:","863.41:1",.01,"E"
164 ;;D^DATA TYPE
165 ;;R^"863.4:","863.41:1",1,"E"
166 ;;D^NUMERIC
167 ;;EOR^
168 ;;KEY^863.4:^ORDERABLE ITEM
169 ;;R^"863.4:",.01,"E"
170 ;;D^ORDERABLE ITEM
171 ;;R^"863.4:","863.41:1",.01,"E"
172 ;;D^DATA TYPE
173 ;;R^"863.4:","863.41:1",1,"E"
174 ;;D^FREE TEXT
175 ;;EOR^
176 ;;KEY^863.4:^IEN
177 ;;R^"863.4:",.01,"E"
178 ;;D^IEN
179 ;;R^"863.4:","863.41:1",.01,"E"
180 ;;D^DATA TYPE
181 ;;R^"863.4:","863.41:1",1,"E"
182 ;;D^NUMERIC
183 ;;EOR^
184 ;;KEY^863.4:^ORDERABLE ITEM IEN
185 ;;R^"863.4:",.01,"E"
186 ;;D^ORDERABLE ITEM IEN
187 ;;R^"863.4:","863.41:1",.01,"E"
188 ;;D^DATA TYPE
189 ;;R^"863.4:","863.41:1",1,"E"
190 ;;D^NUMERIC
191 ;;EOR^
192 ;;KEY^863.4:^FILLER
193 ;;R^"863.4:",.01,"E"
194 ;;D^FILLER
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:^ORDER MODE
201 ;;R^"863.4:",.01,"E"
202 ;;D^ORDER MODE
203 ;;R^"863.4:","863.41:1",.01,"E"
204 ;;D^DATA TYPE
205 ;;R^"863.4:","863.41:1",1,"E"
206 ;;D^FREE TEXT
207 ;;EOR^
208 ;;KEY^863.4:^NATIONAL ID
209 ;;R^"863.4:",.01,"E"
210 ;;D^NATIONAL ID
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:^NATIONAL ID TEXT
217 ;;R^"863.4:",.01,"E"
218 ;;D^NATIONAL ID TEXT
219 ;;R^"863.4:","863.41:1",.01,"E"
220 ;;D^DATA TYPE
221 ;;R^"863.4:","863.41:1",1,"E"
222 ;;D^FREE TEXT
223 ;;EOR^
224 ;;KEY^863.4:^CODING SYSTEM
225 ;;R^"863.4:",.01,"E"
226 ;;D^CODING SYSTEM
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:^LOCAL ID
233 ;;R^"863.4:",.01,"E"
234 ;;D^LOCAL ID
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:^LOCAL TEXT
241 ;;R^"863.4:",.01,"E"
242 ;;D^LOCAL TEXT
243 ;;R^"863.4:","863.41:1",.01,"E"
244 ;;D^DATA TYPE
245 ;;R^"863.4:","863.41:1",1,"E"
246 ;;D^FREE TEXT
247 ;;EOR^
248 ;;KEY^863.4:^LOCAL CODING SYSTEM
249 ;1;
250 ;
Note: See TracBrowser for help on using the repository browser.