1 | KIDS Distribution saved on Jan 11, 2008@19:30:14
|
---|
2 | EDIS TRACKING FACILITY INSTALL 1.0T1
|
---|
3 | **KIDS**:EDP FACILITY 1.0^
|
---|
4 |
|
---|
5 | **INSTALL NAME**
|
---|
6 | EDP FACILITY 1.0
|
---|
7 | "BLD",6765,0)
|
---|
8 | EDP FACILITY 1.0^^0^3080111^n
|
---|
9 | "BLD",6765,1,0)
|
---|
10 | ^^4^4^3080103^
|
---|
11 | "BLD",6765,1,1,0)
|
---|
12 | This installed the options, security keys, and remote procedures that are
|
---|
13 | "BLD",6765,1,2,0)
|
---|
14 | used with the EDIS (Emergency Department Information System) web
|
---|
15 | "BLD",6765,1,3,0)
|
---|
16 | application. Most of the application runs on the EDIS server. This
|
---|
17 | "BLD",6765,1,4,0)
|
---|
18 | build installs only the components that run at a local facility.
|
---|
19 | "BLD",6765,4,0)
|
---|
20 | ^9.64PA^232^1
|
---|
21 | "BLD",6765,4,232,0)
|
---|
22 | 232
|
---|
23 | "BLD",6765,4,232,222)
|
---|
24 | y^y^f^^^^n
|
---|
25 | "BLD",6765,4,"B",232,232)
|
---|
26 |
|
---|
27 | "BLD",6765,6.3)
|
---|
28 | 10
|
---|
29 | "BLD",6765,"INIT")
|
---|
30 | EDPYPST
|
---|
31 | "BLD",6765,"KRN",0)
|
---|
32 | ^9.67PA^8989.52^19
|
---|
33 | "BLD",6765,"KRN",.4,0)
|
---|
34 | .4
|
---|
35 | "BLD",6765,"KRN",.401,0)
|
---|
36 | .401
|
---|
37 | "BLD",6765,"KRN",.402,0)
|
---|
38 | .402
|
---|
39 | "BLD",6765,"KRN",.403,0)
|
---|
40 | .403
|
---|
41 | "BLD",6765,"KRN",.5,0)
|
---|
42 | .5
|
---|
43 | "BLD",6765,"KRN",.84,0)
|
---|
44 | .84
|
---|
45 | "BLD",6765,"KRN",3.6,0)
|
---|
46 | 3.6
|
---|
47 | "BLD",6765,"KRN",3.8,0)
|
---|
48 | 3.8
|
---|
49 | "BLD",6765,"KRN",9.2,0)
|
---|
50 | 9.2
|
---|
51 | "BLD",6765,"KRN",9.8,0)
|
---|
52 | 9.8
|
---|
53 | "BLD",6765,"KRN",9.8,"NM",0)
|
---|
54 | ^9.68A^9^9
|
---|
55 | "BLD",6765,"KRN",9.8,"NM",1,0)
|
---|
56 | EDPFAA^^0^B2913485
|
---|
57 | "BLD",6765,"KRN",9.8,"NM",2,0)
|
---|
58 | EDPFLEX^^0^B795410
|
---|
59 | "BLD",6765,"KRN",9.8,"NM",3,0)
|
---|
60 | EDPFMON^^0^B17219023
|
---|
61 | "BLD",6765,"KRN",9.8,"NM",4,0)
|
---|
62 | EDPFMRG^^0^B842644
|
---|
63 | "BLD",6765,"KRN",9.8,"NM",5,0)
|
---|
64 | EDPFPER^^0^B2333867
|
---|
65 | "BLD",6765,"KRN",9.8,"NM",6,0)
|
---|
66 | EDPFPTL^^0^B2639044
|
---|
67 | "BLD",6765,"KRN",9.8,"NM",7,0)
|
---|
68 | EDPFPTS^^0^B7170775
|
---|
69 | "BLD",6765,"KRN",9.8,"NM",8,0)
|
---|
70 | EDPFRPC^^0^B1979072
|
---|
71 | "BLD",6765,"KRN",9.8,"NM",9,0)
|
---|
72 | EDPX^^0^B6480298
|
---|
73 | "BLD",6765,"KRN",9.8,"NM","B","EDPFAA",1)
|
---|
74 |
|
---|
75 | "BLD",6765,"KRN",9.8,"NM","B","EDPFLEX",2)
|
---|
76 |
|
---|
77 | "BLD",6765,"KRN",9.8,"NM","B","EDPFMON",3)
|
---|
78 |
|
---|
79 | "BLD",6765,"KRN",9.8,"NM","B","EDPFMRG",4)
|
---|
80 |
|
---|
81 | "BLD",6765,"KRN",9.8,"NM","B","EDPFPER",5)
|
---|
82 |
|
---|
83 | "BLD",6765,"KRN",9.8,"NM","B","EDPFPTL",6)
|
---|
84 |
|
---|
85 | "BLD",6765,"KRN",9.8,"NM","B","EDPFPTS",7)
|
---|
86 |
|
---|
87 | "BLD",6765,"KRN",9.8,"NM","B","EDPFRPC",8)
|
---|
88 |
|
---|
89 | "BLD",6765,"KRN",9.8,"NM","B","EDPX",9)
|
---|
90 |
|
---|
91 | "BLD",6765,"KRN",19,0)
|
---|
92 | 19
|
---|
93 | "BLD",6765,"KRN",19,"NM",0)
|
---|
94 | ^9.68A^15^15
|
---|
95 | "BLD",6765,"KRN",19,"NM",1,0)
|
---|
96 | EDPF TRACKING MENU ALL^^0
|
---|
97 | "BLD",6765,"KRN",19,"NM",2,0)
|
---|
98 | EDPF TRACKING MENU CLINICIAN^^0
|
---|
99 | "BLD",6765,"KRN",19,"NM",3,0)
|
---|
100 | EDPF TRACKING MENU SIGNIN^^0
|
---|
101 | "BLD",6765,"KRN",19,"NM",4,0)
|
---|
102 | EDPF TRACKING MENU TRIAGE^^0
|
---|
103 | "BLD",6765,"KRN",19,"NM",5,0)
|
---|
104 | EDPF TRACKING SYSTEM^^0
|
---|
105 | "BLD",6765,"KRN",19,"NM",6,0)
|
---|
106 | EDPF TRACKING VIEW BOARD^^0
|
---|
107 | "BLD",6765,"KRN",19,"NM",7,0)
|
---|
108 | EDPF TRACKING VIEW CONFIGURE^^0
|
---|
109 | "BLD",6765,"KRN",19,"NM",8,0)
|
---|
110 | EDPF TRACKING VIEW DISPOSITION^^0
|
---|
111 | "BLD",6765,"KRN",19,"NM",9,0)
|
---|
112 | EDPF TRACKING VIEW EDIT CLOSED^^0
|
---|
113 | "BLD",6765,"KRN",19,"NM",10,0)
|
---|
114 | EDPF TRACKING VIEW REPORTS^^0
|
---|
115 | "BLD",6765,"KRN",19,"NM",11,0)
|
---|
116 | EDPF TRACKING VIEW SIGNIN^^0
|
---|
117 | "BLD",6765,"KRN",19,"NM",12,0)
|
---|
118 | EDPF TRACKING VIEW STAFF^^0
|
---|
119 | "BLD",6765,"KRN",19,"NM",13,0)
|
---|
120 | EDPF TRACKING VIEW TRIAGE^^0
|
---|
121 | "BLD",6765,"KRN",19,"NM",14,0)
|
---|
122 | EDPF TRACKING VIEW UPDATE^^0
|
---|
123 | "BLD",6765,"KRN",19,"NM",15,0)
|
---|
124 | EDPFLOGLISTENER^^0
|
---|
125 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING MENU ALL",1)
|
---|
126 |
|
---|
127 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING MENU CLINICIAN",2)
|
---|
128 |
|
---|
129 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING MENU SIGNIN",3)
|
---|
130 |
|
---|
131 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING MENU TRIAGE",4)
|
---|
132 |
|
---|
133 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING SYSTEM",5)
|
---|
134 |
|
---|
135 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW BOARD",6)
|
---|
136 |
|
---|
137 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW CONFIGURE",7)
|
---|
138 |
|
---|
139 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW DISPOSITION",8)
|
---|
140 |
|
---|
141 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW EDIT CLOSED",9)
|
---|
142 |
|
---|
143 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW REPORTS",10)
|
---|
144 |
|
---|
145 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW SIGNIN",11)
|
---|
146 |
|
---|
147 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW STAFF",12)
|
---|
148 |
|
---|
149 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW TRIAGE",13)
|
---|
150 |
|
---|
151 | "BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW UPDATE",14)
|
---|
152 |
|
---|
153 | "BLD",6765,"KRN",19,"NM","B","EDPFLOGLISTENER",15)
|
---|
154 |
|
---|
155 | "BLD",6765,"KRN",19.1,0)
|
---|
156 | 19.1
|
---|
157 | "BLD",6765,"KRN",19.1,"NM",0)
|
---|
158 | ^9.68A^3^3
|
---|
159 | "BLD",6765,"KRN",19.1,"NM",1,0)
|
---|
160 | EDPR EXPORT^^0
|
---|
161 | "BLD",6765,"KRN",19.1,"NM",2,0)
|
---|
162 | EDPR PROVIDER^^0
|
---|
163 | "BLD",6765,"KRN",19.1,"NM",3,0)
|
---|
164 | EDPR XREF^^0
|
---|
165 | "BLD",6765,"KRN",19.1,"NM","B","EDPR EXPORT",1)
|
---|
166 |
|
---|
167 | "BLD",6765,"KRN",19.1,"NM","B","EDPR PROVIDER",2)
|
---|
168 |
|
---|
169 | "BLD",6765,"KRN",19.1,"NM","B","EDPR XREF",3)
|
---|
170 |
|
---|
171 | "BLD",6765,"KRN",101,0)
|
---|
172 | 101
|
---|
173 | "BLD",6765,"KRN",101,"NM",0)
|
---|
174 | ^9.68A^9^9
|
---|
175 | "BLD",6765,"KRN",101,"NM",1,0)
|
---|
176 | EDP CHECK-IN^^0
|
---|
177 | "BLD",6765,"KRN",101,"NM",2,0)
|
---|
178 | EDP MONITOR^^0
|
---|
179 | "BLD",6765,"KRN",101,"NM",3,0)
|
---|
180 | FH EVSEND OR^^2
|
---|
181 | "BLD",6765,"KRN",101,"NM",4,0)
|
---|
182 | GMRC EVSEND OR^^2
|
---|
183 | "BLD",6765,"KRN",101,"NM",5,0)
|
---|
184 | LR7O CH EVSEND OR^^2
|
---|
185 | "BLD",6765,"KRN",101,"NM",6,0)
|
---|
186 | OR EVSEND ORG^^2
|
---|
187 | "BLD",6765,"KRN",101,"NM",7,0)
|
---|
188 | PS EVSEND OR^^2
|
---|
189 | "BLD",6765,"KRN",101,"NM",8,0)
|
---|
190 | RA EVSEND OR^^2
|
---|
191 | "BLD",6765,"KRN",101,"NM",9,0)
|
---|
192 | SDAM APPOINTMENT EVENTS^^2
|
---|
193 | "BLD",6765,"KRN",101,"NM","B","EDP CHECK-IN",1)
|
---|
194 |
|
---|
195 | "BLD",6765,"KRN",101,"NM","B","EDP MONITOR",2)
|
---|
196 |
|
---|
197 | "BLD",6765,"KRN",101,"NM","B","FH EVSEND OR",3)
|
---|
198 |
|
---|
199 | "BLD",6765,"KRN",101,"NM","B","GMRC EVSEND OR",4)
|
---|
200 |
|
---|
201 | "BLD",6765,"KRN",101,"NM","B","LR7O CH EVSEND OR",5)
|
---|
202 |
|
---|
203 | "BLD",6765,"KRN",101,"NM","B","OR EVSEND ORG",6)
|
---|
204 |
|
---|
205 | "BLD",6765,"KRN",101,"NM","B","PS EVSEND OR",7)
|
---|
206 |
|
---|
207 | "BLD",6765,"KRN",101,"NM","B","RA EVSEND OR",8)
|
---|
208 |
|
---|
209 | "BLD",6765,"KRN",101,"NM","B","SDAM APPOINTMENT EVENTS",9)
|
---|
210 |
|
---|
211 | "BLD",6765,"KRN",409.61,0)
|
---|
212 | 409.61
|
---|
213 | "BLD",6765,"KRN",771,0)
|
---|
214 | 771
|
---|
215 | "BLD",6765,"KRN",870,0)
|
---|
216 | 870
|
---|
217 | "BLD",6765,"KRN",8989.51,0)
|
---|
218 | 8989.51
|
---|
219 | "BLD",6765,"KRN",8989.51,"NM",0)
|
---|
220 | ^9.68A^2^2
|
---|
221 | "BLD",6765,"KRN",8989.51,"NM",1,0)
|
---|
222 | EDPF LOCATION^^0
|
---|
223 | "BLD",6765,"KRN",8989.51,"NM",2,0)
|
---|
224 | EDPF SERVER^^0
|
---|
225 | "BLD",6765,"KRN",8989.51,"NM","B","EDPF LOCATION",1)
|
---|
226 |
|
---|
227 | "BLD",6765,"KRN",8989.51,"NM","B","EDPF SERVER",2)
|
---|
228 |
|
---|
229 | "BLD",6765,"KRN",8989.52,0)
|
---|
230 | 8989.52
|
---|
231 | "BLD",6765,"KRN",8994,0)
|
---|
232 | 8994
|
---|
233 | "BLD",6765,"KRN",8994,"NM",0)
|
---|
234 | ^9.68A^1^1
|
---|
235 | "BLD",6765,"KRN",8994,"NM",1,0)
|
---|
236 | EDPFRPC CMD^^0
|
---|
237 | "BLD",6765,"KRN",8994,"NM","B","EDPFRPC CMD",1)
|
---|
238 |
|
---|
239 | "BLD",6765,"KRN","B",.4,.4)
|
---|
240 |
|
---|
241 | "BLD",6765,"KRN","B",.401,.401)
|
---|
242 |
|
---|
243 | "BLD",6765,"KRN","B",.402,.402)
|
---|
244 |
|
---|
245 | "BLD",6765,"KRN","B",.403,.403)
|
---|
246 |
|
---|
247 | "BLD",6765,"KRN","B",.5,.5)
|
---|
248 |
|
---|
249 | "BLD",6765,"KRN","B",.84,.84)
|
---|
250 |
|
---|
251 | "BLD",6765,"KRN","B",3.6,3.6)
|
---|
252 |
|
---|
253 | "BLD",6765,"KRN","B",3.8,3.8)
|
---|
254 |
|
---|
255 | "BLD",6765,"KRN","B",9.2,9.2)
|
---|
256 |
|
---|
257 | "BLD",6765,"KRN","B",9.8,9.8)
|
---|
258 |
|
---|
259 | "BLD",6765,"KRN","B",19,19)
|
---|
260 |
|
---|
261 | "BLD",6765,"KRN","B",19.1,19.1)
|
---|
262 |
|
---|
263 | "BLD",6765,"KRN","B",101,101)
|
---|
264 |
|
---|
265 | "BLD",6765,"KRN","B",409.61,409.61)
|
---|
266 |
|
---|
267 | "BLD",6765,"KRN","B",771,771)
|
---|
268 |
|
---|
269 | "BLD",6765,"KRN","B",870,870)
|
---|
270 |
|
---|
271 | "BLD",6765,"KRN","B",8989.51,8989.51)
|
---|
272 |
|
---|
273 | "BLD",6765,"KRN","B",8989.52,8989.52)
|
---|
274 |
|
---|
275 | "BLD",6765,"KRN","B",8994,8994)
|
---|
276 |
|
---|
277 | "BLD",6765,"PRE")
|
---|
278 | EDPYCHK
|
---|
279 | "BLD",6765,"QUES",0)
|
---|
280 | ^9.62^^
|
---|
281 | "BLD",6765,"REQB",0)
|
---|
282 | ^9.611^^
|
---|
283 | "FIA",232)
|
---|
284 | ED ACTIVE LOG
|
---|
285 | "FIA",232,0)
|
---|
286 | ^EDP(232,
|
---|
287 | "FIA",232,0,0)
|
---|
288 | 232
|
---|
289 | "FIA",232,0,1)
|
---|
290 | y^y^f^^^^n
|
---|
291 | "FIA",232,0,10)
|
---|
292 |
|
---|
293 | "FIA",232,0,11)
|
---|
294 |
|
---|
295 | "FIA",232,0,"RLRO")
|
---|
296 |
|
---|
297 | "FIA",232,232)
|
---|
298 | 0
|
---|
299 | "INIT")
|
---|
300 | EDPYPST
|
---|
301 | "KRN",19,13497,-1)
|
---|
302 | 0^5
|
---|
303 | "KRN",19,13497,0)
|
---|
304 | EDPF TRACKING SYSTEM^ED Tracking System - Facility^^B^^^^^^^^
|
---|
305 | "KRN",19,13497,1,0)
|
---|
306 | ^^1^1^3071207^
|
---|
307 | "KRN",19,13497,1,1,0)
|
---|
308 | Context option for ED Tracking System RPC calls at local facility.
|
---|
309 | "KRN",19,13497,99.1)
|
---|
310 | 61001,51187
|
---|
311 | "KRN",19,13497,"RPC",0)
|
---|
312 | ^19.05P^6^1
|
---|
313 | "KRN",19,13497,"RPC",6,0)
|
---|
314 | EDPFRPC CMD
|
---|
315 | "KRN",19,13497,"U")
|
---|
316 | ED TRACKING SYSTEM - FACILITY
|
---|
317 | "KRN",19,13498,-1)
|
---|
318 | 0^11
|
---|
319 | "KRN",19,13498,0)
|
---|
320 | EDPF TRACKING VIEW SIGNIN^Sign In Patient^^M^^^^^^^^
|
---|
321 | "KRN",19,13498,10,0)
|
---|
322 | ^19.01IP^1^1
|
---|
323 | "KRN",19,13498,10,1,0)
|
---|
324 | 13497
|
---|
325 | "KRN",19,13498,10,1,"^")
|
---|
326 | EDPF TRACKING SYSTEM
|
---|
327 | "KRN",19,13498,99)
|
---|
328 | 61006,69169
|
---|
329 | "KRN",19,13498,"U")
|
---|
330 | SIGN IN PATIENT
|
---|
331 | "KRN",19,13499,-1)
|
---|
332 | 0^13
|
---|
333 | "KRN",19,13499,0)
|
---|
334 | EDPF TRACKING VIEW TRIAGE^Triage Patient^^M^^^^^^^^
|
---|
335 | "KRN",19,13499,10,0)
|
---|
336 | ^19.01IP^1^1
|
---|
337 | "KRN",19,13499,10,1,0)
|
---|
338 | 13497
|
---|
339 | "KRN",19,13499,10,1,"^")
|
---|
340 | EDPF TRACKING SYSTEM
|
---|
341 | "KRN",19,13499,99)
|
---|
342 | 61006,69210
|
---|
343 | "KRN",19,13499,"U")
|
---|
344 | TRIAGE PATIENT
|
---|
345 | "KRN",19,13500,-1)
|
---|
346 | 0^14
|
---|
347 | "KRN",19,13500,0)
|
---|
348 | EDPF TRACKING VIEW UPDATE^Update Tracking Board^^M^^^^^^^^
|
---|
349 | "KRN",19,13500,10,0)
|
---|
350 | ^19.01IP^1^1
|
---|
351 | "KRN",19,13500,10,1,0)
|
---|
352 | 13497
|
---|
353 | "KRN",19,13500,10,1,"^")
|
---|
354 | EDPF TRACKING SYSTEM
|
---|
355 | "KRN",19,13500,99)
|
---|
356 | 61006,69219
|
---|
357 | "KRN",19,13500,"U")
|
---|
358 | UPDATE TRACKING BOARD
|
---|
359 | "KRN",19,13501,-1)
|
---|
360 | 0^8
|
---|
361 | "KRN",19,13501,0)
|
---|
362 | EDPF TRACKING VIEW DISPOSITION^Disposition Patient^^M^^^^^^^^
|
---|
363 | "KRN",19,13501,10,0)
|
---|
364 | ^19.01IP^1^1
|
---|
365 | "KRN",19,13501,10,1,0)
|
---|
366 | 13497
|
---|
367 | "KRN",19,13501,10,1,"^")
|
---|
368 | EDPF TRACKING SYSTEM
|
---|
369 | "KRN",19,13501,99)
|
---|
370 | 61006,69114
|
---|
371 | "KRN",19,13501,"U")
|
---|
372 | DISPOSITION PATIENT
|
---|
373 | "KRN",19,13502,-1)
|
---|
374 | 0^9
|
---|
375 | "KRN",19,13502,0)
|
---|
376 | EDPF TRACKING VIEW EDIT CLOSED^Edit Closed Patient^^M^^^^^^^^
|
---|
377 | "KRN",19,13502,10,0)
|
---|
378 | ^19.01IP^1^1
|
---|
379 | "KRN",19,13502,10,1,0)
|
---|
380 | 13497
|
---|
381 | "KRN",19,13502,10,1,"^")
|
---|
382 | EDPF TRACKING SYSTEM
|
---|
383 | "KRN",19,13502,99)
|
---|
384 | 61006,69143
|
---|
385 | "KRN",19,13502,"U")
|
---|
386 | EDIT CLOSED PATIENT
|
---|
387 | "KRN",19,13503,-1)
|
---|
388 | 0^6
|
---|
389 | "KRN",19,13503,0)
|
---|
390 | EDPF TRACKING VIEW BOARD^Display Board^^M^^^^^^^^
|
---|
391 | "KRN",19,13503,10,0)
|
---|
392 | ^19.01IP^1^1
|
---|
393 | "KRN",19,13503,10,1,0)
|
---|
394 | 13497
|
---|
395 | "KRN",19,13503,10,1,"^")
|
---|
396 | EDPF TRACKING SYSTEM
|
---|
397 | "KRN",19,13503,99)
|
---|
398 | 61006,69081
|
---|
399 | "KRN",19,13503,"U")
|
---|
400 | DISPLAY BOARD
|
---|
401 | "KRN",19,13504,-1)
|
---|
402 | 0^10
|
---|
403 | "KRN",19,13504,0)
|
---|
404 | EDPF TRACKING VIEW REPORTS^Tracking Reports^^M^^^^^^^^
|
---|
405 | "KRN",19,13504,10,0)
|
---|
406 | ^19.01IP^1^1
|
---|
407 | "KRN",19,13504,10,1,0)
|
---|
408 | 13497
|
---|
409 | "KRN",19,13504,10,1,"^")
|
---|
410 | EDPF TRACKING SYSTEM
|
---|
411 | "KRN",19,13504,99)
|
---|
412 | 61006,69156
|
---|
413 | "KRN",19,13504,"U")
|
---|
414 | TRACKING REPORTS
|
---|
415 | "KRN",19,13505,-1)
|
---|
416 | 0^7
|
---|
417 | "KRN",19,13505,0)
|
---|
418 | EDPF TRACKING VIEW CONFIGURE^Configure Tracking Board^^M^^^^^^^^
|
---|
419 | "KRN",19,13505,10,0)
|
---|
420 | ^19.01IP^1^1
|
---|
421 | "KRN",19,13505,10,1,0)
|
---|
422 | 13497
|
---|
423 | "KRN",19,13505,10,1,"^")
|
---|
424 | EDPF TRACKING SYSTEM
|
---|
425 | "KRN",19,13505,99)
|
---|
426 | 61006,69100
|
---|
427 | "KRN",19,13505,"U")
|
---|
428 | CONFIGURE TRACKING BOARD
|
---|
429 | "KRN",19,13506,-1)
|
---|
430 | 0^12
|
---|
431 | "KRN",19,13506,0)
|
---|
432 | EDPF TRACKING VIEW STAFF^Assign Staff^^M^^^^^^^^
|
---|
433 | "KRN",19,13506,10,0)
|
---|
434 | ^19.01IP^1^1
|
---|
435 | "KRN",19,13506,10,1,0)
|
---|
436 | 13497
|
---|
437 | "KRN",19,13506,10,1,"^")
|
---|
438 | EDPF TRACKING SYSTEM
|
---|
439 | "KRN",19,13506,99)
|
---|
440 | 61006,69203
|
---|
441 | "KRN",19,13506,"U")
|
---|
442 | ASSIGN STAFF
|
---|
443 | "KRN",19,13507,-1)
|
---|
444 | 0^1
|
---|
445 | "KRN",19,13507,0)
|
---|
446 | EDPF TRACKING MENU ALL^All Tracking Views^^M^^^^^^^^
|
---|
447 | "KRN",19,13507,10,0)
|
---|
448 | ^19.01IP^9^9
|
---|
449 | "KRN",19,13507,10,1,0)
|
---|
450 | 13498^^10
|
---|
451 | "KRN",19,13507,10,1,"^")
|
---|
452 | EDPF TRACKING VIEW SIGNIN
|
---|
453 | "KRN",19,13507,10,2,0)
|
---|
454 | 13499^^20
|
---|
455 | "KRN",19,13507,10,2,"^")
|
---|
456 | EDPF TRACKING VIEW TRIAGE
|
---|
457 | "KRN",19,13507,10,3,0)
|
---|
458 | 13500^^30
|
---|
459 | "KRN",19,13507,10,3,"^")
|
---|
460 | EDPF TRACKING VIEW UPDATE
|
---|
461 | "KRN",19,13507,10,4,0)
|
---|
462 | 13501^^40
|
---|
463 | "KRN",19,13507,10,4,"^")
|
---|
464 | EDPF TRACKING VIEW DISPOSITION
|
---|
465 | "KRN",19,13507,10,5,0)
|
---|
466 | 13502^^50
|
---|
467 | "KRN",19,13507,10,5,"^")
|
---|
468 | EDPF TRACKING VIEW EDIT CLOSED
|
---|
469 | "KRN",19,13507,10,6,0)
|
---|
470 | 13503^^60
|
---|
471 | "KRN",19,13507,10,6,"^")
|
---|
472 | EDPF TRACKING VIEW BOARD
|
---|
473 | "KRN",19,13507,10,7,0)
|
---|
474 | 13506^^70
|
---|
475 | "KRN",19,13507,10,7,"^")
|
---|
476 | EDPF TRACKING VIEW STAFF
|
---|
477 | "KRN",19,13507,10,8,0)
|
---|
478 | 13504^^80
|
---|
479 | "KRN",19,13507,10,8,"^")
|
---|
480 | EDPF TRACKING VIEW REPORTS
|
---|
481 | "KRN",19,13507,10,9,0)
|
---|
482 | 13505^^90
|
---|
483 | "KRN",19,13507,10,9,"^")
|
---|
484 | EDPF TRACKING VIEW CONFIGURE
|
---|
485 | "KRN",19,13507,99)
|
---|
486 | 61006,69308
|
---|
487 | "KRN",19,13507,99.1)
|
---|
488 | 60985,48124
|
---|
489 | "KRN",19,13507,"U")
|
---|
490 | ALL TRACKING VIEWS
|
---|
491 | "KRN",19,13510,-1)
|
---|
492 | 0^15
|
---|
493 | "KRN",19,13510,0)
|
---|
494 | EDPFLOGLISTENER^Listen for changes in tracking log.^^S^^^^^^^^EMERGENCY DEPARTMENT
|
---|
495 | "KRN",19,13510,25)
|
---|
496 | EDPFMRG
|
---|
497 | "KRN",19,13510,220)
|
---|
498 | ^R^^N^Y^N
|
---|
499 | "KRN",19,13510,"U")
|
---|
500 | LISTEN FOR CHANGES IN TRACKING
|
---|
501 | "KRN",19,13511,-1)
|
---|
502 | 0^3
|
---|
503 | "KRN",19,13511,0)
|
---|
504 | EDPF TRACKING MENU SIGNIN^Sign-in Tracking Views^^^^^^^^^^
|
---|
505 | "KRN",19,13511,10,0)
|
---|
506 | ^19.01IP^2^2
|
---|
507 | "KRN",19,13511,10,1,0)
|
---|
508 | 13498^^10
|
---|
509 | "KRN",19,13511,10,1,"^")
|
---|
510 | EDPF TRACKING VIEW SIGNIN
|
---|
511 | "KRN",19,13511,10,2,0)
|
---|
512 | 13503^^20
|
---|
513 | "KRN",19,13511,10,2,"^")
|
---|
514 | EDPF TRACKING VIEW BOARD
|
---|
515 | "KRN",19,13511,99)
|
---|
516 | 61006,69828
|
---|
517 | "KRN",19,13511,"U")
|
---|
518 | SIGN-IN TRACKING VIEWS
|
---|
519 | "KRN",19,13512,-1)
|
---|
520 | 0^4
|
---|
521 | "KRN",19,13512,0)
|
---|
522 | EDPF TRACKING MENU TRIAGE^Triage Tracking Views^^^^^^^^^^
|
---|
523 | "KRN",19,13512,10,0)
|
---|
524 | ^19.01IP^2^2
|
---|
525 | "KRN",19,13512,10,1,0)
|
---|
526 | 13499^^10
|
---|
527 | "KRN",19,13512,10,1,"^")
|
---|
528 | EDPF TRACKING VIEW TRIAGE
|
---|
529 | "KRN",19,13512,10,2,0)
|
---|
530 | 13503^^20
|
---|
531 | "KRN",19,13512,10,2,"^")
|
---|
532 | EDPF TRACKING VIEW BOARD
|
---|
533 | "KRN",19,13512,99)
|
---|
534 | 61006,69855
|
---|
535 | "KRN",19,13512,"U")
|
---|
536 | TRIAGE TRACKING VIEWS
|
---|
537 | "KRN",19,13513,-1)
|
---|
538 | 0^2
|
---|
539 | "KRN",19,13513,0)
|
---|
540 | EDPF TRACKING MENU CLINICIAN^Clinician Tracking Views^^^^^^^^^^
|
---|
541 | "KRN",19,13513,10,0)
|
---|
542 | ^19.01IP^3^3
|
---|
543 | "KRN",19,13513,10,1,0)
|
---|
544 | 13500^^10
|
---|
545 | "KRN",19,13513,10,1,"^")
|
---|
546 | EDPF TRACKING VIEW UPDATE
|
---|
547 | "KRN",19,13513,10,2,0)
|
---|
548 | 13501^^20
|
---|
549 | "KRN",19,13513,10,2,"^")
|
---|
550 | EDPF TRACKING VIEW DISPOSITION
|
---|
551 | "KRN",19,13513,10,3,0)
|
---|
552 | 13503^^30
|
---|
553 | "KRN",19,13513,10,3,"^")
|
---|
554 | EDPF TRACKING VIEW BOARD
|
---|
555 | "KRN",19,13513,99)
|
---|
556 | 61006,69882
|
---|
557 | "KRN",19,13513,"U")
|
---|
558 | CLINICIAN TRACKING VIEWS
|
---|
559 | "KRN",19.1,594,-1)
|
---|
560 | 0^1
|
---|
561 | "KRN",19.1,594,0)
|
---|
562 | EDPR EXPORT^Allows CSV Export of Report
|
---|
563 | "KRN",19.1,594,1,0)
|
---|
564 | ^^2^2^3071221^
|
---|
565 | "KRN",19.1,594,1,1,0)
|
---|
566 | Allows export of report using tab delimited values for use in Excel and
|
---|
567 | "KRN",19.1,594,1,2,0)
|
---|
568 | other products.
|
---|
569 | "KRN",19.1,595,-1)
|
---|
570 | 0^2
|
---|
571 | "KRN",19.1,595,0)
|
---|
572 | EDPR PROVIDER^Allow Provider Report
|
---|
573 | "KRN",19.1,595,1,0)
|
---|
574 | ^^2^2^3071221^
|
---|
575 | "KRN",19.1,595,1,1,0)
|
---|
576 | Allows access to the provider report in the reports menu for the ED
|
---|
577 | "KRN",19.1,595,1,2,0)
|
---|
578 | package.
|
---|
579 | "KRN",19.1,596,-1)
|
---|
580 | 0^3
|
---|
581 | "KRN",19.1,596,0)
|
---|
582 | EDPR XREF^Allow Pt Xref Report
|
---|
583 | "KRN",19.1,596,1,0)
|
---|
584 | ^^2^2^3071221^
|
---|
585 | "KRN",19.1,596,1,1,0)
|
---|
586 | Allows use of the patient cross reference report in the list of reports
|
---|
587 | "KRN",19.1,596,1,2,0)
|
---|
588 | for the emergency department.
|
---|
589 | "KRN",101,1302,-1)
|
---|
590 | 2^9
|
---|
591 | "KRN",101,1302,0)
|
---|
592 | SDAM APPOINTMENT EVENTS^Appointment Event Driver^^X^10000000020^^^^^^^16
|
---|
593 | "KRN",101,1302,10,0)
|
---|
594 | ^101.01PA^20^20
|
---|
595 | "KRN",101,1302,10,20,0)
|
---|
596 | 5601^^^
|
---|
597 | "KRN",101,1302,10,20,"^")
|
---|
598 | EDP CHECK-IN
|
---|
599 | "KRN",101,2690,-1)
|
---|
600 | 2^8
|
---|
601 | "KRN",101,2690,0)
|
---|
602 | RA EVSEND OR^Radiology event sent to OE/RR^^X^10000000179^^^^^^^31
|
---|
603 | "KRN",101,2690,10,0)
|
---|
604 | ^101.01PA^4^4
|
---|
605 | "KRN",101,2690,10,4,0)
|
---|
606 | 5600^^^
|
---|
607 | "KRN",101,2690,10,4,"^")
|
---|
608 | EDP MONITOR
|
---|
609 | "KRN",101,3336,-1)
|
---|
610 | 2^5
|
---|
611 | "KRN",101,3336,0)
|
---|
612 | LR7O CH EVSEND OR^LAB => OE/RR ORDER MESSAGE EVENT^^X^10000000179^^^^^^^
|
---|
613 | "KRN",101,3336,10,0)
|
---|
614 | ^101.01PA^4^4
|
---|
615 | "KRN",101,3336,10,4,0)
|
---|
616 | 5600^^^
|
---|
617 | "KRN",101,3336,10,4,"^")
|
---|
618 | EDP MONITOR
|
---|
619 | "KRN",101,3373,-1)
|
---|
620 | 2^7
|
---|
621 | "KRN",101,3373,0)
|
---|
622 | PS EVSEND OR^Send Pharmacy orders to CPRS.^^X^10000000179^^^^^^^18
|
---|
623 | "KRN",101,3373,10,0)
|
---|
624 | ^101.01PA^6^6
|
---|
625 | "KRN",101,3373,10,6,0)
|
---|
626 | 5600^^^
|
---|
627 | "KRN",101,3373,10,6,"^")
|
---|
628 | EDP MONITOR
|
---|
629 | "KRN",101,3392,-1)
|
---|
630 | 2^4
|
---|
631 | "KRN",101,3392,0)
|
---|
632 | GMRC EVSEND OR^Consults event sent to OE/RR^^X^10000000179^^^^^^^294
|
---|
633 | "KRN",101,3392,10,0)
|
---|
634 | ^101.01PA^5^5
|
---|
635 | "KRN",101,3392,10,5,0)
|
---|
636 | 5600^^^
|
---|
637 | "KRN",101,3392,10,5,"^")
|
---|
638 | EDP MONITOR
|
---|
639 | "KRN",101,3411,-1)
|
---|
640 | 2^3
|
---|
641 | "KRN",101,3411,0)
|
---|
642 | FH EVSEND OR^FH --> OR event messages^^X^10000000179^^^^^^^
|
---|
643 | "KRN",101,3411,10,0)
|
---|
644 | ^101.01PA^3^3
|
---|
645 | "KRN",101,3411,10,3,0)
|
---|
646 | 5600^^^
|
---|
647 | "KRN",101,3411,10,3,"^")
|
---|
648 | EDP MONITOR
|
---|
649 | "KRN",101,3536,-1)
|
---|
650 | 2^6
|
---|
651 | "KRN",101,3536,0)
|
---|
652 | OR EVSEND ORG^OE/RR => GENERIC MESSAGE EVENT^^X^10000000179^^^^^^^
|
---|
653 | "KRN",101,3536,10,0)
|
---|
654 | ^101.01PA^3^3
|
---|
655 | "KRN",101,3536,10,3,0)
|
---|
656 | 5600^^^
|
---|
657 | "KRN",101,3536,10,3,"^")
|
---|
658 | EDP MONITOR
|
---|
659 | "KRN",101,5600,-1)
|
---|
660 | 0^2
|
---|
661 | "KRN",101,5600,0)
|
---|
662 | EDP MONITOR^Monitor order messages for EDP Log^^A^^^^^^^^
|
---|
663 | "KRN",101,5600,20)
|
---|
664 | D EN^EDPFMON(.XQORMSG)
|
---|
665 | "KRN",101,5600,99)
|
---|
666 | 60981,2250
|
---|
667 | "KRN",101,5601,-1)
|
---|
668 | 0^1
|
---|
669 | "KRN",101,5601,0)
|
---|
670 | EDP CHECK-IN^Monitor for ED check-in^^A^^^^^^^^
|
---|
671 | "KRN",101,5601,1,0)
|
---|
672 | ^101.06^2^2^3071228^^^
|
---|
673 | "KRN",101,5601,1,1,0)
|
---|
674 | This protocol will monitor the Scheduling event for patients being
|
---|
675 | "KRN",101,5601,1,2,0)
|
---|
676 | checked-in to the Emergency Department.
|
---|
677 | "KRN",101,5601,20)
|
---|
678 | D SDAM^EDPFMON
|
---|
679 | "KRN",101,5601,99)
|
---|
680 | 60984,42497
|
---|
681 | "KRN",8989.51,510,-1)
|
---|
682 | 0^1
|
---|
683 | "KRN",8989.51,510,0)
|
---|
684 | EDPF LOCATION^Local ED Hospital Location^0^^ED LOCATION
|
---|
685 | "KRN",8989.51,510,1)
|
---|
686 | P^44^Enter the Hospital Location that is the local Emergency Department.
|
---|
687 | "KRN",8989.51,510,3)
|
---|
688 | I $P(^(0),U,3)'="W"
|
---|
689 | "KRN",8989.51,510,20,0)
|
---|
690 | ^8989.512^2^2^3071220^
|
---|
691 | "KRN",8989.51,510,20,1,0)
|
---|
692 | This parameter holds the Hospital Location file #44 ien of the local
|
---|
693 | "KRN",8989.51,510,20,2,0)
|
---|
694 | Emergency Department.
|
---|
695 | "KRN",8989.51,510,30,0)
|
---|
696 | ^8989.513I^1^1
|
---|
697 | "KRN",8989.51,510,30,1,0)
|
---|
698 | 1^4.2
|
---|
699 | "KRN",8989.51,511,-1)
|
---|
700 | 0^2
|
---|
701 | "KRN",8989.51,511,0)
|
---|
702 | EDPF SERVER^EDIS Server^0^^Domain Address
|
---|
703 | "KRN",8989.51,511,1)
|
---|
704 | F^^Enter the domain name for the EDIS server.
|
---|
705 | "KRN",8989.51,511,30,0)
|
---|
706 | ^8989.513I^2^2
|
---|
707 | "KRN",8989.51,511,30,1,0)
|
---|
708 | 5^4.2
|
---|
709 | "KRN",8989.51,511,30,2,0)
|
---|
710 | 10^9.4
|
---|
711 | "KRN",8994,2528,-1)
|
---|
712 | 0^1
|
---|
713 | "KRN",8994,2528,0)
|
---|
714 | EDPFRPC CMD^CMD^EDPFRPC^2
|
---|
715 | "MBREQ")
|
---|
716 | 0
|
---|
717 | "ORD",3,19.1)
|
---|
718 | 19.1;3;1;;KEY^XPDTA1;;;KEYF2^XPDIA1;;KEYDEL^XPDIA1
|
---|
719 | "ORD",3,19.1,0)
|
---|
720 | SECURITY KEY
|
---|
721 | "ORD",15,101)
|
---|
722 | 101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA
|
---|
723 | "ORD",15,101,0)
|
---|
724 | PROTOCOL
|
---|
725 | "ORD",16,8994)
|
---|
726 | 8994;16;1;;;;;;;RPCDEL^XPDIA1
|
---|
727 | "ORD",16,8994,0)
|
---|
728 | REMOTE PROCEDURE
|
---|
729 | "ORD",18,19)
|
---|
730 | 19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
|
---|
731 | "ORD",18,19,0)
|
---|
732 | OPTION
|
---|
733 | "ORD",20,8989.51)
|
---|
734 | 8989.51;20;;;PAR1E1^XPDTA2;PAR1F1^XPDIA3;PAR1E1^XPDIA3;PAR1F2^XPDIA3;;PAR1DEL^XPDIA3(%)
|
---|
735 | "ORD",20,8989.51,0)
|
---|
736 | PARAMETER DEFINITION
|
---|
737 | "PRE")
|
---|
738 | EDPYCHK
|
---|
739 | "QUES","XPF1",0)
|
---|
740 | Y
|
---|
741 | "QUES","XPF1","??")
|
---|
742 | ^D REP^XPDH
|
---|
743 | "QUES","XPF1","A")
|
---|
744 | Shall I write over your |FLAG| File
|
---|
745 | "QUES","XPF1","B")
|
---|
746 | YES
|
---|
747 | "QUES","XPF1","M")
|
---|
748 | D XPF1^XPDIQ
|
---|
749 | "QUES","XPF2",0)
|
---|
750 | Y
|
---|
751 | "QUES","XPF2","??")
|
---|
752 | ^D DTA^XPDH
|
---|
753 | "QUES","XPF2","A")
|
---|
754 | Want my data |FLAG| yours
|
---|
755 | "QUES","XPF2","B")
|
---|
756 | YES
|
---|
757 | "QUES","XPF2","M")
|
---|
758 | D XPF2^XPDIQ
|
---|
759 | "QUES","XPI1",0)
|
---|
760 | YO
|
---|
761 | "QUES","XPI1","??")
|
---|
762 | ^D INHIBIT^XPDH
|
---|
763 | "QUES","XPI1","A")
|
---|
764 | Want KIDS to INHIBIT LOGONs during the install
|
---|
765 | "QUES","XPI1","B")
|
---|
766 | YES
|
---|
767 | "QUES","XPI1","M")
|
---|
768 | D XPI1^XPDIQ
|
---|
769 | "QUES","XPM1",0)
|
---|
770 | PO^VA(200,:EM
|
---|
771 | "QUES","XPM1","??")
|
---|
772 | ^D MG^XPDH
|
---|
773 | "QUES","XPM1","A")
|
---|
774 | Enter the Coordinator for Mail Group '|FLAG|'
|
---|
775 | "QUES","XPM1","B")
|
---|
776 |
|
---|
777 | "QUES","XPM1","M")
|
---|
778 | D XPM1^XPDIQ
|
---|
779 | "QUES","XPO1",0)
|
---|
780 | Y
|
---|
781 | "QUES","XPO1","??")
|
---|
782 | ^D MENU^XPDH
|
---|
783 | "QUES","XPO1","A")
|
---|
784 | Want KIDS to Rebuild Menu Trees Upon Completion of Install
|
---|
785 | "QUES","XPO1","B")
|
---|
786 | YES
|
---|
787 | "QUES","XPO1","M")
|
---|
788 | D XPO1^XPDIQ
|
---|
789 | "QUES","XPZ1",0)
|
---|
790 | Y
|
---|
791 | "QUES","XPZ1","??")
|
---|
792 | ^D OPT^XPDH
|
---|
793 | "QUES","XPZ1","A")
|
---|
794 | Want to DISABLE Scheduled Options, Menu Options, and Protocols
|
---|
795 | "QUES","XPZ1","B")
|
---|
796 | YES
|
---|
797 | "QUES","XPZ1","M")
|
---|
798 | D XPZ1^XPDIQ
|
---|
799 | "QUES","XPZ2",0)
|
---|
800 | Y
|
---|
801 | "QUES","XPZ2","??")
|
---|
802 | ^D RTN^XPDH
|
---|
803 | "QUES","XPZ2","A")
|
---|
804 | Want to MOVE routines to other CPUs
|
---|
805 | "QUES","XPZ2","B")
|
---|
806 | NO
|
---|
807 | "QUES","XPZ2","M")
|
---|
808 | D XPZ2^XPDIQ
|
---|
809 | "RTN")
|
---|
810 | 11
|
---|
811 | "RTN","EDPFAA")
|
---|
812 | 0^1^B2913485
|
---|
813 | "RTN","EDPFAA",1,0)
|
---|
814 | EDPFAA ;SLC/KCM - RPC Calls to Facility
|
---|
815 | "RTN","EDPFAA",2,0)
|
---|
816 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
|
---|
817 | "RTN","EDPFAA",3,0)
|
---|
818 | ;
|
---|
819 | "RTN","EDPFAA",4,0)
|
---|
820 | SESS ; set up session
|
---|
821 | "RTN","EDPFAA",5,0)
|
---|
822 | N X
|
---|
823 | "RTN","EDPFAA",6,0)
|
---|
824 | S X("duz")=DUZ
|
---|
825 | "RTN","EDPFAA",7,0)
|
---|
826 | S X("userNm")=$P($G(^VA(200,DUZ,0)),U)
|
---|
827 | "RTN","EDPFAA",8,0)
|
---|
828 | S X("site")=DUZ(2)
|
---|
829 | "RTN","EDPFAA",9,0)
|
---|
830 | S X("siteNm")=$$NAME^XUAF4(X("site"))
|
---|
831 | "RTN","EDPFAA",10,0)
|
---|
832 | S X("station")=$$STA^XUAF4(DUZ(2))
|
---|
833 | "RTN","EDPFAA",11,0)
|
---|
834 | S X("time")=$$NOW^XLFDT
|
---|
835 | "RTN","EDPFAA",12,0)
|
---|
836 | S X("rptExport")=($D(^XUSEC("EDPR EXPORT",DUZ))>0)
|
---|
837 | "RTN","EDPFAA",13,0)
|
---|
838 | S X("rptProvider")=($D(^XUSEC("EDPR PROVIDER",DUZ))>0)
|
---|
839 | "RTN","EDPFAA",14,0)
|
---|
840 | S X("rptXRef")=($D(^XUSEC("EDPR XREF",DUZ))>0)
|
---|
841 | "RTN","EDPFAA",15,0)
|
---|
842 | D XML^EDPX($$XMLA^EDPX("user",.X))
|
---|
843 | "RTN","EDPFAA",16,0)
|
---|
844 | Q
|
---|
845 | "RTN","EDPFAA",17,0)
|
---|
846 | ;
|
---|
847 | "RTN","EDPFAA",18,0)
|
---|
848 | VIEWS ; Return views allowed for this user
|
---|
849 | "RTN","EDPFAA",19,0)
|
---|
850 | N I,X,ID
|
---|
851 | "RTN","EDPFAA",20,0)
|
---|
852 | F I=1:1 S X=$P($T(OPTIONS+I),";",3,99) Q:X="zzzzz" D
|
---|
853 | "RTN","EDPFAA",21,0)
|
---|
854 | . I $$ACCESS^XQCHK(DUZ,$P(X,U)) D
|
---|
855 | "RTN","EDPFAA",22,0)
|
---|
856 | . . D XML^EDPX($$XMLS^EDPX("view",$P(X,U,3),$P(X,U,2)))
|
---|
857 | "RTN","EDPFAA",23,0)
|
---|
858 | Q
|
---|
859 | "RTN","EDPFAA",24,0)
|
---|
860 | OPTIONS ;; options visible in Tracking System
|
---|
861 | "RTN","EDPFAA",25,0)
|
---|
862 | ;;EDPF TRACKING VIEW SIGNIN^Sign In^1
|
---|
863 | "RTN","EDPFAA",26,0)
|
---|
864 | ;;EDPF TRACKING VIEW TRIAGE^Triage^2
|
---|
865 | "RTN","EDPFAA",27,0)
|
---|
866 | ;;EDPF TRACKING VIEW UPDATE^Update^3
|
---|
867 | "RTN","EDPFAA",28,0)
|
---|
868 | ;;EDPF TRACKING VIEW DISPOSITION^Disposition^4
|
---|
869 | "RTN","EDPFAA",29,0)
|
---|
870 | ;;EDPF TRACKING VIEW EDIT CLOSED^Edit Closed^5
|
---|
871 | "RTN","EDPFAA",30,0)
|
---|
872 | ;;EDPF TRACKING VIEW BOARD^Display Board^6
|
---|
873 | "RTN","EDPFAA",31,0)
|
---|
874 | ;;EDPF TRACKING VIEW STAFF^Assign Staff^7
|
---|
875 | "RTN","EDPFAA",32,0)
|
---|
876 | ;;EDPF TRACKING VIEW REPORTS^Reports^8
|
---|
877 | "RTN","EDPFAA",33,0)
|
---|
878 | ;;EDPF TRACKING VIEW CONFIGURE^Configure^9
|
---|
879 | "RTN","EDPFAA",34,0)
|
---|
880 | ;;zzzzz
|
---|
881 | "RTN","EDPFLEX")
|
---|
882 | 0^2^B795410
|
---|
883 | "RTN","EDPFLEX",1,0)
|
---|
884 | EDPFLEX ;SLC/KCM - Lexicon Utilities
|
---|
885 | "RTN","EDPFLEX",2,0)
|
---|
886 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
|
---|
887 | "RTN","EDPFLEX",3,0)
|
---|
888 | ;
|
---|
889 | "RTN","EDPFLEX",4,0)
|
---|
890 | ICD(TEXT) ; Return Lexicon hits for TEXT
|
---|
891 | "RTN","EDPFLEX",5,0)
|
---|
892 | N LEX,X,Y,I,CODE,NAME,ITEM
|
---|
893 | "RTN","EDPFLEX",6,0)
|
---|
894 | D CONFIG^LEXSET("GMPL","PL1",DT)
|
---|
895 | "RTN","EDPFLEX",7,0)
|
---|
896 | D LOOK^LEXA(TEXT,"GMPL",999,"",DT)
|
---|
897 | "RTN","EDPFLEX",8,0)
|
---|
898 | D XML^EDPX("<items>")
|
---|
899 | "RTN","EDPFLEX",9,0)
|
---|
900 | S I=0 F S I=$O(LEX("LIST",I)) Q:I<1 D
|
---|
901 | "RTN","EDPFLEX",10,0)
|
---|
902 | . S X=$P(LEX("LIST",I),U,2)
|
---|
903 | "RTN","EDPFLEX",11,0)
|
---|
904 | . S CODE=$P($P(X,"ICD-9-CM ",2),")") Q:'$L(CODE)
|
---|
905 | "RTN","EDPFLEX",12,0)
|
---|
906 | . S NAME=$P(X," (ICD-9-CM")
|
---|
907 | "RTN","EDPFLEX",13,0)
|
---|
908 | . S:$E(NAME,$L(NAME))="*" NAME=$E(NAME,1,$L(NAME)-2)
|
---|
909 | "RTN","EDPFLEX",14,0)
|
---|
910 | . S ITEM("icd")=CODE,ITEM("text")=NAME
|
---|
911 | "RTN","EDPFLEX",15,0)
|
---|
912 | . S Y=$$XMLA^EDPX("item",.ITEM) D XML^EDPX(Y)
|
---|
913 | "RTN","EDPFLEX",16,0)
|
---|
914 | D XML^EDPX("</items>")
|
---|
915 | "RTN","EDPFLEX",17,0)
|
---|
916 | Q
|
---|
917 | "RTN","EDPFMON")
|
---|
918 | 0^3^B17219023
|
---|
919 | "RTN","EDPFMON",1,0)
|
---|
920 | EDPFMON ;SLC/MKB - ED Monitor at facility
|
---|
921 | "RTN","EDPFMON",2,0)
|
---|
922 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
|
---|
923 | "RTN","EDPFMON",3,0)
|
---|
924 | ;
|
---|
925 | "RTN","EDPFMON",4,0)
|
---|
926 | EN(MSG) ; -- main entry point for EDP MONITOR where MSG contains HL7 msg
|
---|
927 | "RTN","EDPFMON",5,0)
|
---|
928 | N EDMSG,PKG,MSH,PID,PV1,ORC,DFN,LOG
|
---|
929 | "RTN","EDPFMON",6,0)
|
---|
930 | S EDMSG=$S($L($G(MSG)):MSG,1:"MSG") ;MSG="NAME" or MSG(#)=segment
|
---|
931 | "RTN","EDPFMON",7,0)
|
---|
932 | S MSH=0 F S MSH=$O(@EDMSG@(MSH)) Q:MSH'>0 Q:$E(@EDMSG@(MSH),1,3)="MSH"
|
---|
933 | "RTN","EDPFMON",8,0)
|
---|
934 | S PKG=$$PKG($P(@EDMSG@(MSH),"|",3)) Q:'$L(PKG) ;unknown
|
---|
935 | "RTN","EDPFMON",9,0)
|
---|
936 | S DFN=$$PID Q:DFN<1
|
---|
937 | "RTN","EDPFMON",10,0)
|
---|
938 | S LOG=+$O(^EDP(232,"C",DFN,0)) Q:LOG<1 ;not in ED
|
---|
939 | "RTN","EDPFMON",11,0)
|
---|
940 | S LOG=+$P(^EDP(232,LOG,0),U) Q:LOG<1
|
---|
941 | "RTN","EDPFMON",12,0)
|
---|
942 | S ORC=0 F S ORC=$O(@EDMSG@(+ORC)) Q:ORC'>0 I $E(@EDMSG@(ORC),1,3)="ORC" D
|
---|
943 | "RTN","EDPFMON",13,0)
|
---|
944 | . N ORDCNTRL,ORIFN,STS,RTN
|
---|
945 | "RTN","EDPFMON",14,0)
|
---|
946 | . S ORC=ORC_U_@EDMSG@(ORC),ORDCNTRL=$TR($P(ORC,"|",2),"@","P")
|
---|
947 | "RTN","EDPFMON",15,0)
|
---|
948 | . Q:'$L(ORDCNTRL)
|
---|
949 | "RTN","EDPFMON",16,0)
|
---|
950 | . S ORIFN=$P($P(ORC,"|",3),U),STS=$P(ORC,"|",6)
|
---|
951 | "RTN","EDPFMON",17,0)
|
---|
952 | . S RTN=$S("NW^OK^SN^XR"[ORDCNTRL:"NEW",1:"UPD")
|
---|
953 | "RTN","EDPFMON",18,0)
|
---|
954 | . D @RTN
|
---|
955 | "RTN","EDPFMON",19,0)
|
---|
956 | Q
|
---|
957 | "RTN","EDPFMON",20,0)
|
---|
958 | ;
|
---|
959 | "RTN","EDPFMON",21,0)
|
---|
960 | PKG(NAME) ; -- Returns package code
|
---|
961 | "RTN","EDPFMON",22,0)
|
---|
962 | I NAME="RADIOLOGY"!(NAME="IMAGING") Q "R"
|
---|
963 | "RTN","EDPFMON",23,0)
|
---|
964 | I NAME="LABORATORY" Q "L"
|
---|
965 | "RTN","EDPFMON",24,0)
|
---|
966 | I NAME="PHARMACY" Q "M"
|
---|
967 | "RTN","EDPFMON",25,0)
|
---|
968 | I NAME="CONSULTS" Q "C"
|
---|
969 | "RTN","EDPFMON",26,0)
|
---|
970 | I NAME="PROCEDURES" Q "C"
|
---|
971 | "RTN","EDPFMON",27,0)
|
---|
972 | I NAME="DIETETICS" Q "A"
|
---|
973 | "RTN","EDPFMON",28,0)
|
---|
974 | I NAME="ORDER ENTRY" Q "A"
|
---|
975 | "RTN","EDPFMON",29,0)
|
---|
976 | Q ""
|
---|
977 | "RTN","EDPFMON",30,0)
|
---|
978 | ;
|
---|
979 | "RTN","EDPFMON",31,0)
|
---|
980 | PID() ; -- Returns patient DFN from PID segment in current msg
|
---|
981 | "RTN","EDPFMON",32,0)
|
---|
982 | N I,Y,SEG S I=MSH
|
---|
983 | "RTN","EDPFMON",33,0)
|
---|
984 | F S I=$O(@EDMSG@(I)) Q:I'>0 S SEG=$E(@EDMSG@(I),1,3) Q:SEG="ORC" I SEG="PID" S Y=+$P(@EDMSG@(I),"|",4) Q
|
---|
985 | "RTN","EDPFMON",34,0)
|
---|
986 | Q Y
|
---|
987 | "RTN","EDPFMON",35,0)
|
---|
988 | ;
|
---|
989 | "RTN","EDPFMON",36,0)
|
---|
990 | NEW ; -- add new order to patient log
|
---|
991 | "RTN","EDPFMON",37,0)
|
---|
992 | N MSG,START,URG
|
---|
993 | "RTN","EDPFMON",38,0)
|
---|
994 | S START=$$VALUE^ORX8(ORIFN,"START")
|
---|
995 | "RTN","EDPFMON",39,0)
|
---|
996 | I "NOW"'[START,"TODAY"'[START Q ;others?
|
---|
997 | "RTN","EDPFMON",40,0)
|
---|
998 | S URG=$$VALUE^ORX8(ORIFN,"URGENCY",1,"E") S:'$L(URG) URG="ROUTINE"
|
---|
999 | "RTN","EDPFMON",41,0)
|
---|
1000 | S MSG(1)="command=newOrder"
|
---|
1001 | "RTN","EDPFMON",42,0)
|
---|
1002 | S MSG(2)="id="_LOG
|
---|
1003 | "RTN","EDPFMON",43,0)
|
---|
1004 | S MSG(3)="orifn="_+ORIFN
|
---|
1005 | "RTN","EDPFMON",44,0)
|
---|
1006 | S MSG(4)="pkg="_PKG
|
---|
1007 | "RTN","EDPFMON",45,0)
|
---|
1008 | S MSG(5)="sts="_"N"
|
---|
1009 | "RTN","EDPFMON",46,0)
|
---|
1010 | S MSG(6)="stat="_(URG="STAT"!(URG="ASAP"))
|
---|
1011 | "RTN","EDPFMON",47,0)
|
---|
1012 | S MSG(7)="release="_$$NOW^XLFDT
|
---|
1013 | "RTN","EDPFMON",48,0)
|
---|
1014 | D SEND(.MSG)
|
---|
1015 | "RTN","EDPFMON",49,0)
|
---|
1016 | Q
|
---|
1017 | "RTN","EDPFMON",50,0)
|
---|
1018 | ;
|
---|
1019 | "RTN","EDPFMON",51,0)
|
---|
1020 | UPD ; -- update state of order in log
|
---|
1021 | "RTN","EDPFMON",52,0)
|
---|
1022 | I ORDCNTRL="RE" D STS("C") Q
|
---|
1023 | "RTN","EDPFMON",53,0)
|
---|
1024 | I "CA^DC^OC^OD^CR^DR"[ORDCNTRL D DEL Q ;??
|
---|
1025 | "RTN","EDPFMON",54,0)
|
---|
1026 | I PKG="L",ORDCNTRL="SC" D STS("A") Q
|
---|
1027 | "RTN","EDPFMON",55,0)
|
---|
1028 | I PKG="R",ORDCNTRL="SC" D STS("A") Q
|
---|
1029 | "RTN","EDPFMON",56,0)
|
---|
1030 | I PKG="C","SC^XX"[ORDCNTRL D STS("A") Q
|
---|
1031 | "RTN","EDPFMON",57,0)
|
---|
1032 | I PKG="M" D Q
|
---|
1033 | "RTN","EDPFMON",58,0)
|
---|
1034 | . I "RO^XX^ZV"[ORDCNTRL D STS("A") Q
|
---|
1035 | "RTN","EDPFMON",59,0)
|
---|
1036 | . Q:ORDCNTRL'="SC" Q:'$L(STS)
|
---|
1037 | "RTN","EDPFMON",60,0)
|
---|
1038 | . I "DC^ZE^RP"[STS D STS("C") Q
|
---|
1039 | "RTN","EDPFMON",61,0)
|
---|
1040 | . D STS("A")
|
---|
1041 | "RTN","EDPFMON",62,0)
|
---|
1042 | I PKG="A","SC^XX"[ORDCNTRL D Q
|
---|
1043 | "RTN","EDPFMON",63,0)
|
---|
1044 | . I "DC^ZE"[STS D STS("C") Q
|
---|
1045 | "RTN","EDPFMON",64,0)
|
---|
1046 | . D STS("A")
|
---|
1047 | "RTN","EDPFMON",65,0)
|
---|
1048 | Q
|
---|
1049 | "RTN","EDPFMON",66,0)
|
---|
1050 | ;
|
---|
1051 | "RTN","EDPFMON",67,0)
|
---|
1052 | STS(DA,X) ; -- update status
|
---|
1053 | "RTN","EDPFMON",68,0)
|
---|
1054 | N MSG
|
---|
1055 | "RTN","EDPFMON",69,0)
|
---|
1056 | S MSG(1)="command=updateOrder"
|
---|
1057 | "RTN","EDPFMON",70,0)
|
---|
1058 | S MSG(2)="id="_LOG
|
---|
1059 | "RTN","EDPFMON",71,0)
|
---|
1060 | S MSG(3)="orifn="_+ORIFN
|
---|
1061 | "RTN","EDPFMON",72,0)
|
---|
1062 | S MSG(4)="sts="_X
|
---|
1063 | "RTN","EDPFMON",73,0)
|
---|
1064 | D SEND(.MSG)
|
---|
1065 | "RTN","EDPFMON",74,0)
|
---|
1066 | Q
|
---|
1067 | "RTN","EDPFMON",75,0)
|
---|
1068 | ;
|
---|
1069 | "RTN","EDPFMON",76,0)
|
---|
1070 | DEL ; -- remove order
|
---|
1071 | "RTN","EDPFMON",77,0)
|
---|
1072 | N MSG
|
---|
1073 | "RTN","EDPFMON",78,0)
|
---|
1074 | S MSG(1)="command=deleteOrder"
|
---|
1075 | "RTN","EDPFMON",79,0)
|
---|
1076 | S MSG(2)="id="_LOG
|
---|
1077 | "RTN","EDPFMON",80,0)
|
---|
1078 | S MSG(3)="orifn="_+ORIFN
|
---|
1079 | "RTN","EDPFMON",81,0)
|
---|
1080 | D SEND(.MSG)
|
---|
1081 | "RTN","EDPFMON",82,0)
|
---|
1082 | Q
|
---|
1083 | "RTN","EDPFMON",83,0)
|
---|
1084 | ;
|
---|
1085 | "RTN","EDPFMON",84,0)
|
---|
1086 | VER(ORIFN) ; -- update status when ORIFN verified
|
---|
1087 | "RTN","EDPFMON",85,0)
|
---|
1088 | N SITE,DFN,LOG,DA S ORIFN=+$G(ORIFN)
|
---|
1089 | "RTN","EDPFMON",86,0)
|
---|
1090 | S DFN=+$P($G(^OR(100,ORIFN,0)),U,2) Q:DFN<1
|
---|
1091 | "RTN","EDPFMON",87,0)
|
---|
1092 | S LOG=+$O(^EDP(232,"C",DFN,0)) Q:LOG<1 ;not in ED
|
---|
1093 | "RTN","EDPFMON",88,0)
|
---|
1094 | S LOG=+$P(^EDP(232,LOG,0),U) Q:LOG<1
|
---|
1095 | "RTN","EDPFMON",89,0)
|
---|
1096 | N MSG
|
---|
1097 | "RTN","EDPFMON",90,0)
|
---|
1098 | S MSG(1)="command=verifyOrder"
|
---|
1099 | "RTN","EDPFMON",91,0)
|
---|
1100 | S MSG(2)="id="_LOG
|
---|
1101 | "RTN","EDPFMON",92,0)
|
---|
1102 | S MSG(3)="orifn="_ORIFN
|
---|
1103 | "RTN","EDPFMON",93,0)
|
---|
1104 | D SEND(.MSG)
|
---|
1105 | "RTN","EDPFMON",94,0)
|
---|
1106 | Q
|
---|
1107 | "RTN","EDPFMON",95,0)
|
---|
1108 | ;
|
---|
1109 | "RTN","EDPFMON",96,0)
|
---|
1110 | COMP(ORIFN) ; -- update status when ORIFN completed
|
---|
1111 | "RTN","EDPFMON",97,0)
|
---|
1112 | N SITE,DFN,LOG,DA S ORIFN=+$G(ORIFN)
|
---|
1113 | "RTN","EDPFMON",98,0)
|
---|
1114 | S DFN=+$P($G(^OR(100,ORIFN,0)),U,2) Q:DFN<1
|
---|
1115 | "RTN","EDPFMON",99,0)
|
---|
1116 | S LOG=+$O(^EDP(232,"C",DFN,0)) Q:LOG<1 ;not in ED
|
---|
1117 | "RTN","EDPFMON",100,0)
|
---|
1118 | S LOG=+$P(^EDP(232,LOG,0),U) Q:LOG<1
|
---|
1119 | "RTN","EDPFMON",101,0)
|
---|
1120 | N MSG
|
---|
1121 | "RTN","EDPFMON",102,0)
|
---|
1122 | S MSG(1)="command=completeOrder"
|
---|
1123 | "RTN","EDPFMON",103,0)
|
---|
1124 | S MSG(2)="id="_LOG
|
---|
1125 | "RTN","EDPFMON",104,0)
|
---|
1126 | S MSG(3)="orifn="_ORIFN
|
---|
1127 | "RTN","EDPFMON",105,0)
|
---|
1128 | D SEND(.MSG)
|
---|
1129 | "RTN","EDPFMON",106,0)
|
---|
1130 | Q
|
---|
1131 | "RTN","EDPFMON",107,0)
|
---|
1132 | ;
|
---|
1133 | "RTN","EDPFMON",108,0)
|
---|
1134 | ; -- Monitor SDAM APPOINTMENT EVENTS for patients checking-in to ED
|
---|
1135 | "RTN","EDPFMON",109,0)
|
---|
1136 | ;
|
---|
1137 | "RTN","EDPFMON",110,0)
|
---|
1138 | SDAM ; -- send bulletin on check-in
|
---|
1139 | "RTN","EDPFMON",111,0)
|
---|
1140 | Q:$G(SDAMEVT)'=4 ;only looking for check-in events for ED
|
---|
1141 | "RTN","EDPFMON",112,0)
|
---|
1142 | Q:$P(SDATA,U,4)'=$$GET^XPAR("ALL","EDPF LOCATION")
|
---|
1143 | "RTN","EDPFMON",113,0)
|
---|
1144 | N DFN,DATE,HLOC
|
---|
1145 | "RTN","EDPFMON",114,0)
|
---|
1146 | S DFN=+$P(SDATA,U,2),DATE=+$P(SDATA,U,3),HLOC=+$P(SDATA,U,4)
|
---|
1147 | "RTN","EDPFMON",115,0)
|
---|
1148 | ; your code goes here :)
|
---|
1149 | "RTN","EDPFMON",116,0)
|
---|
1150 | N MSG
|
---|
1151 | "RTN","EDPFMON",117,0)
|
---|
1152 | S MSG(1)="command=patientCheckIn"
|
---|
1153 | "RTN","EDPFMON",118,0)
|
---|
1154 | S MSG(2)="dfn="_DFN
|
---|
1155 | "RTN","EDPFMON",119,0)
|
---|
1156 | S MSG(3)="ptNm="_$P(^DPT(DFN,0),U)
|
---|
1157 | "RTN","EDPFMON",120,0)
|
---|
1158 | S MSG(4)="ssn="_$P(^DPT(DFN,0),U,9)
|
---|
1159 | "RTN","EDPFMON",121,0)
|
---|
1160 | S MSG(5)="hloc="_HLOC
|
---|
1161 | "RTN","EDPFMON",122,0)
|
---|
1162 | S MSG(6)="site="_$$STA^XUAF4(DUZ(2))
|
---|
1163 | "RTN","EDPFMON",123,0)
|
---|
1164 | S MSG(7)="time="_$$NOW^XLFDT
|
---|
1165 | "RTN","EDPFMON",124,0)
|
---|
1166 | D SEND(.MSG)
|
---|
1167 | "RTN","EDPFMON",125,0)
|
---|
1168 | Q
|
---|
1169 | "RTN","EDPFMON",126,0)
|
---|
1170 | SEND(MSG) ; Send update message to EDIS server
|
---|
1171 | "RTN","EDPFMON",127,0)
|
---|
1172 | N DOMAIN S DOMAIN=$$GET^XPAR("ALL","EDPF SERVER",1,"Q")
|
---|
1173 | "RTN","EDPFMON",128,0)
|
---|
1174 | Q:'$L(DOMAIN)
|
---|
1175 | "RTN","EDPFMON",129,0)
|
---|
1176 | ;
|
---|
1177 | "RTN","EDPFMON",130,0)
|
---|
1178 | N XMSUB,XMY,XMTEXT,EDPMSG
|
---|
1179 | "RTN","EDPFMON",131,0)
|
---|
1180 | S XMSUB="EDIS Update Event"
|
---|
1181 | "RTN","EDPFMON",132,0)
|
---|
1182 | S XMTEXT="MSG("
|
---|
1183 | "RTN","EDPFMON",133,0)
|
---|
1184 | S XMY("S.EDPSERVER@"_DOMAIN)=""
|
---|
1185 | "RTN","EDPFMON",134,0)
|
---|
1186 | D ^XMD
|
---|
1187 | "RTN","EDPFMON",135,0)
|
---|
1188 | Q
|
---|
1189 | "RTN","EDPFMRG")
|
---|
1190 | 0^4^B842644
|
---|
1191 | "RTN","EDPFMRG",1,0)
|
---|
1192 | EDPFMRG ;SLC/KCM - Maintain facility list of active entries
|
---|
1193 | "RTN","EDPFMRG",2,0)
|
---|
1194 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
|
---|
1195 | "RTN","EDPFMRG",3,0)
|
---|
1196 | ;
|
---|
1197 | "RTN","EDPFMRG",4,0)
|
---|
1198 | INMAIL ; process incoming mail
|
---|
1199 | "RTN","EDPFMRG",5,0)
|
---|
1200 | ;
|
---|
1201 | "RTN","EDPFMRG",6,0)
|
---|
1202 | ; message formats --
|
---|
1203 | "RTN","EDPFMRG",7,0)
|
---|
1204 | ; registerLog:logEntry:dfn
|
---|
1205 | "RTN","EDPFMRG",8,0)
|
---|
1206 | ; removeLog:logEntry
|
---|
1207 | "RTN","EDPFMRG",9,0)
|
---|
1208 | ;
|
---|
1209 | "RTN","EDPFMRG",10,0)
|
---|
1210 | N I
|
---|
1211 | "RTN","EDPFMRG",11,0)
|
---|
1212 | F I=1:1 X XMREC Q:XMER<0 D
|
---|
1213 | "RTN","EDPFMRG",12,0)
|
---|
1214 | . I $P(XMRG,":")="registerLog" D REG($P(XMRG,":",2),$P(XMRG,":",3))
|
---|
1215 | "RTN","EDPFMRG",13,0)
|
---|
1216 | . I $P(XMRG,":")="removeLog" D REM($P(XMRG,":",2))
|
---|
1217 | "RTN","EDPFMRG",14,0)
|
---|
1218 | Q
|
---|
1219 | "RTN","EDPFMRG",15,0)
|
---|
1220 | REG(LOG,DFN) ; register new patient for events
|
---|
1221 | "RTN","EDPFMRG",16,0)
|
---|
1222 | N FDA,FDAIEN,DIERR,ERR
|
---|
1223 | "RTN","EDPFMRG",17,0)
|
---|
1224 | S FDA(232,"+1,",.01)=LOG
|
---|
1225 | "RTN","EDPFMRG",18,0)
|
---|
1226 | S FDA(232,"+1,",.02)=DFN
|
---|
1227 | "RTN","EDPFMRG",19,0)
|
---|
1228 | D UPDATE^DIE("","FDA","FDAIEN","ERR")
|
---|
1229 | "RTN","EDPFMRG",20,0)
|
---|
1230 | I $D(DIERR) ; send a message?
|
---|
1231 | "RTN","EDPFMRG",21,0)
|
---|
1232 | Q
|
---|
1233 | "RTN","EDPFMRG",22,0)
|
---|
1234 | REM(LOG) ; remove new patient for events
|
---|
1235 | "RTN","EDPFMRG",23,0)
|
---|
1236 | N DA,DIK
|
---|
1237 | "RTN","EDPFMRG",24,0)
|
---|
1238 | S DA=$O(^EDP(232,"B",LOG,0)) Q:'DA
|
---|
1239 | "RTN","EDPFMRG",25,0)
|
---|
1240 | S DIK="^EDP(232,"
|
---|
1241 | "RTN","EDPFMRG",26,0)
|
---|
1242 | D ^DIK
|
---|
1243 | "RTN","EDPFMRG",27,0)
|
---|
1244 | Q
|
---|
1245 | "RTN","EDPFPER")
|
---|
1246 | 0^5^B2333867
|
---|
1247 | "RTN","EDPFPER",1,0)
|
---|
1248 | EDPFPER ;SLC/KCM - Lookup Persons at Facility
|
---|
1249 | "RTN","EDPFPER",2,0)
|
---|
1250 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
|
---|
1251 | "RTN","EDPFPER",3,0)
|
---|
1252 | ;
|
---|
1253 | "RTN","EDPFPER",4,0)
|
---|
1254 | MATCH(MATCH,PTYP) ; Return a matching list of providers
|
---|
1255 | "RTN","EDPFPER",5,0)
|
---|
1256 | S MATCH=$$UP^XLFSTR(MATCH)
|
---|
1257 | "RTN","EDPFPER",6,0)
|
---|
1258 | D XML^EDPX("<personType>"_PTYP_"</personType>")
|
---|
1259 | "RTN","EDPFPER",7,0)
|
---|
1260 | I PTYP="N" D NURS
|
---|
1261 | "RTN","EDPFPER",8,0)
|
---|
1262 | I PTYP'="N" D PROV
|
---|
1263 | "RTN","EDPFPER",9,0)
|
---|
1264 | Q
|
---|
1265 | "RTN","EDPFPER",10,0)
|
---|
1266 | PROV ; match providers
|
---|
1267 | "RTN","EDPFPER",11,0)
|
---|
1268 | N NM,PRV,X0,X
|
---|
1269 | "RTN","EDPFPER",12,0)
|
---|
1270 | S NM=$O(^VA(200,"AK.PROVIDER",MATCH),-1)
|
---|
1271 | "RTN","EDPFPER",13,0)
|
---|
1272 | F S NM=$O(^VA(200,"AK.PROVIDER",NM)) Q:$E(NM,1,$L(MATCH))'=MATCH D
|
---|
1273 | "RTN","EDPFPER",14,0)
|
---|
1274 | . S PRV=0 F S PRV=$O(^VA(200,"AK.PROVIDER",NM,PRV)) Q:'PRV D
|
---|
1275 | "RTN","EDPFPER",15,0)
|
---|
1276 | . . I '$$PROVIDER^XUSER(PRV) Q
|
---|
1277 | "RTN","EDPFPER",16,0)
|
---|
1278 | . . S X0=^VA(200,PRV,0)
|
---|
1279 | "RTN","EDPFPER",17,0)
|
---|
1280 | . . S X("nm")=NM
|
---|
1281 | "RTN","EDPFPER",18,0)
|
---|
1282 | . . S X("itl")=$P(X0,U,2)
|
---|
1283 | "RTN","EDPFPER",19,0)
|
---|
1284 | . . I X("itl")="" S X("itl")=$E($P(NM,",",2))_$E(NM)
|
---|
1285 | "RTN","EDPFPER",20,0)
|
---|
1286 | . . S X("duz")=PRV
|
---|
1287 | "RTN","EDPFPER",21,0)
|
---|
1288 | . . D XML^EDPX($$XMLA^EDPX("staff",.X))
|
---|
1289 | "RTN","EDPFPER",22,0)
|
---|
1290 | Q
|
---|
1291 | "RTN","EDPFPER",23,0)
|
---|
1292 | NURS ; match nurses
|
---|
1293 | "RTN","EDPFPER",24,0)
|
---|
1294 | N NM,NRS
|
---|
1295 | "RTN","EDPFPER",25,0)
|
---|
1296 | S NM=$O(^VA(200,"B",MATCH),-1)
|
---|
1297 | "RTN","EDPFPER",26,0)
|
---|
1298 | F S NM=$O(^VA(200,"B",NM)) Q:$E(NM,1,$L(MATCH))'=MATCH D
|
---|
1299 | "RTN","EDPFPER",27,0)
|
---|
1300 | . S NRS=0 F S NRS=$O(^VA(200,"B",NM,NRS)) Q:'NRS D
|
---|
1301 | "RTN","EDPFPER",28,0)
|
---|
1302 | . . I '$D(^NURSF(210,"B",NRS)) Q
|
---|
1303 | "RTN","EDPFPER",29,0)
|
---|
1304 | . . I '$$ACTIVE^XUSER(NRS) Q
|
---|
1305 | "RTN","EDPFPER",30,0)
|
---|
1306 | . . S X0=^VA(200,NRS,0)
|
---|
1307 | "RTN","EDPFPER",31,0)
|
---|
1308 | . . S X("nm")=NM
|
---|
1309 | "RTN","EDPFPER",32,0)
|
---|
1310 | . . S X("itl")=$P(X0,U,2)
|
---|
1311 | "RTN","EDPFPER",33,0)
|
---|
1312 | . . I X("itl")="" S X("itl")=$E($P(NM,",",2))_$E(NM)
|
---|
1313 | "RTN","EDPFPER",34,0)
|
---|
1314 | . . S X("duz")=NRS
|
---|
1315 | "RTN","EDPFPER",35,0)
|
---|
1316 | . . D XML^EDPX($$XMLA^EDPX("staff",.X))
|
---|
1317 | "RTN","EDPFPER",36,0)
|
---|
1318 | Q
|
---|
1319 | "RTN","EDPFPTL")
|
---|
1320 | 0^6^B2639044
|
---|
1321 | "RTN","EDPFPTL",1,0)
|
---|
1322 | EDPFPTL ;SLC/KCM - Select Patient at Facility
|
---|
1323 | "RTN","EDPFPTL",2,0)
|
---|
1324 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
|
---|
1325 | "RTN","EDPFPTL",3,0)
|
---|
1326 | ;
|
---|
1327 | "RTN","EDPFPTL",4,0)
|
---|
1328 | MATCH(MATCH) ; return XML of matching patients
|
---|
1329 | "RTN","EDPFPTL",5,0)
|
---|
1330 | S MATCH=$$UP^XLFSTR(MATCH)
|
---|
1331 | "RTN","EDPFPTL",6,0)
|
---|
1332 | Q:MATCH=""
|
---|
1333 | "RTN","EDPFPTL",7,0)
|
---|
1334 | ;
|
---|
1335 | "RTN","EDPFPTL",8,0)
|
---|
1336 | S:+MATCH MATCH=$TR(MATCH,"-","")
|
---|
1337 | "RTN","EDPFPTL",9,0)
|
---|
1338 | ;
|
---|
1339 | "RTN","EDPFPTL",10,0)
|
---|
1340 | N LST
|
---|
1341 | "RTN","EDPFPTL",11,0)
|
---|
1342 | I MATCH?1U4N D LAST4(MATCH,.LST)
|
---|
1343 | "RTN","EDPFPTL",12,0)
|
---|
1344 | I MATCH?9N.1U D SSN(MATCH,.LST)
|
---|
1345 | "RTN","EDPFPTL",13,0)
|
---|
1346 | D LNAM(MATCH,.LST)
|
---|
1347 | "RTN","EDPFPTL",14,0)
|
---|
1348 | I LST=0 D NONE
|
---|
1349 | "RTN","EDPFPTL",15,0)
|
---|
1350 | I LST>0 D LIST(.LST)
|
---|
1351 | "RTN","EDPFPTL",16,0)
|
---|
1352 | Q
|
---|
1353 | "RTN","EDPFPTL",17,0)
|
---|
1354 | ;
|
---|
1355 | "RTN","EDPFPTL",18,0)
|
---|
1356 | NONE ; create a "no matches" list
|
---|
1357 | "RTN","EDPFPTL",19,0)
|
---|
1358 | N X
|
---|
1359 | "RTN","EDPFPTL",20,0)
|
---|
1360 | S X("name")="No matches found."
|
---|
1361 | "RTN","EDPFPTL",21,0)
|
---|
1362 | S X("ssn")="",X("dob")="",X("dfn")=0
|
---|
1363 | "RTN","EDPFPTL",22,0)
|
---|
1364 | D XML^EDPX($$XMLA^EDPX("ptlk",.X))
|
---|
1365 | "RTN","EDPFPTL",23,0)
|
---|
1366 | Q
|
---|
1367 | "RTN","EDPFPTL",24,0)
|
---|
1368 | LIST(LST) ; list names that match
|
---|
1369 | "RTN","EDPFPTL",25,0)
|
---|
1370 | N I,X,DFN
|
---|
1371 | "RTN","EDPFPTL",26,0)
|
---|
1372 | S I=0 F S I=$O(LST(I)) Q:'I D
|
---|
1373 | "RTN","EDPFPTL",27,0)
|
---|
1374 | . S DFN=LST(I)
|
---|
1375 | "RTN","EDPFPTL",28,0)
|
---|
1376 | . S X("name")=$P(^DPT(DFN,0),U)
|
---|
1377 | "RTN","EDPFPTL",29,0)
|
---|
1378 | . S X("ssn")=$$SSN^DPTLK1(DFN) ; DG249
|
---|
1379 | "RTN","EDPFPTL",30,0)
|
---|
1380 | . S X("dob")=$$DOB^DPTLK1(DFN) ; DG249
|
---|
1381 | "RTN","EDPFPTL",31,0)
|
---|
1382 | . S X("dfn")=DFN
|
---|
1383 | "RTN","EDPFPTL",32,0)
|
---|
1384 | . D XML^EDPX($$XMLA^EDPX("ptlk",.X))
|
---|
1385 | "RTN","EDPFPTL",33,0)
|
---|
1386 | Q
|
---|
1387 | "RTN","EDPFPTL",34,0)
|
---|
1388 | LAST4(X,Y) ; find matches on X9999 (BS5)
|
---|
1389 | "RTN","EDPFPTL",35,0)
|
---|
1390 | N DFN S DFN=0,Y=0
|
---|
1391 | "RTN","EDPFPTL",36,0)
|
---|
1392 | F S DFN=$O(^DPT("BS5",X,DFN)) Q:'DFN S Y=Y+1,Y(Y)=DFN
|
---|
1393 | "RTN","EDPFPTL",37,0)
|
---|
1394 | Q
|
---|
1395 | "RTN","EDPFPTL",38,0)
|
---|
1396 | SSN(X,Y) ; find matches on 999999999 (SSN)
|
---|
1397 | "RTN","EDPFPTL",39,0)
|
---|
1398 | N DFN S DFN=0,Y=0
|
---|
1399 | "RTN","EDPFPTL",40,0)
|
---|
1400 | F S DFN=$O(^DPT("SSN",X,DFN)) Q:'DFN S Y=Y+1,Y(Y)=DFN
|
---|
1401 | "RTN","EDPFPTL",41,0)
|
---|
1402 | Q
|
---|
1403 | "RTN","EDPFPTL",42,0)
|
---|
1404 | LNAM(X,Y) ; find matches on name (B)
|
---|
1405 | "RTN","EDPFPTL",43,0)
|
---|
1406 | N DFN,NAME
|
---|
1407 | "RTN","EDPFPTL",44,0)
|
---|
1408 | S NAME=$O(^DPT("B",X),-1),Y=0
|
---|
1409 | "RTN","EDPFPTL",45,0)
|
---|
1410 | F S NAME=$O(^DPT("B",NAME)) Q:$E(NAME,1,$L(X))'=X Q:NAME="" D
|
---|
1411 | "RTN","EDPFPTL",46,0)
|
---|
1412 | . S DFN=0 F S DFN=$O(^DPT("B",NAME,DFN)) Q:'DFN S Y=Y+1,Y(Y)=DFN
|
---|
1413 | "RTN","EDPFPTL",47,0)
|
---|
1414 | Q
|
---|
1415 | "RTN","EDPFPTS")
|
---|
1416 | 0^7^B7170775
|
---|
1417 | "RTN","EDPFPTS",1,0)
|
---|
1418 | EDPFPTS ;SLC/MKB - Patient look-up Utilities at Facility
|
---|
1419 | "RTN","EDPFPTS",2,0)
|
---|
1420 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
|
---|
1421 | "RTN","EDPFPTS",3,0)
|
---|
1422 | ;
|
---|
1423 | "RTN","EDPFPTS",4,0)
|
---|
1424 | SEC(DFN) ; Check for sensitive record, patient record flags
|
---|
1425 | "RTN","EDPFPTS",5,0)
|
---|
1426 | N I,N,X,Y,EDI,EDPY,SP,PRF,EDPT,EDPN,PN,EDPX
|
---|
1427 | "RTN","EDPFPTS",6,0)
|
---|
1428 | ; check for sensitive record
|
---|
1429 | "RTN","EDPFPTS",7,0)
|
---|
1430 | D PTSEC^DGSEC4(.EDPY,DFN,1) S Y=$G(EDPY(1)) ;IA #3027
|
---|
1431 | "RTN","EDPFPTS",8,0)
|
---|
1432 | S SP("value")="false",SP("mayAccess")="true" I Y>0 D
|
---|
1433 | "RTN","EDPFPTS",9,0)
|
---|
1434 | . S SP("value")="true"
|
---|
1435 | "RTN","EDPFPTS",10,0)
|
---|
1436 | . S I=2,X=$G(EDPY(2))
|
---|
1437 | "RTN","EDPFPTS",11,0)
|
---|
1438 | . F S I=$O(EDPY(I)) Q:I<1 S X=X_$C(13,10)_EDPY(I)
|
---|
1439 | "RTN","EDPFPTS",12,0)
|
---|
1440 | . S SP("text")="SENSITIVE PATIENT WARNING" ;X
|
---|
1441 | "RTN","EDPFPTS",13,0)
|
---|
1442 | . I Y>2 S SP("mayAccess")="false"
|
---|
1443 | "RTN","EDPFPTS",14,0)
|
---|
1444 | . E S SP("getAck")=$S(Y=2:"true",1:"false")
|
---|
1445 | "RTN","EDPFPTS",15,0)
|
---|
1446 | D XML^EDPX("<sensitivePatient>")
|
---|
1447 | "RTN","EDPFPTS",16,0)
|
---|
1448 | D XMLE^EDPX(.SP)
|
---|
1449 | "RTN","EDPFPTS",17,0)
|
---|
1450 | D XML^EDPX("</sensitivePatient>")
|
---|
1451 | "RTN","EDPFPTS",18,0)
|
---|
1452 | PRF ; get Patient Record Flags
|
---|
1453 | "RTN","EDPFPTS",19,0)
|
---|
1454 | K EDPY Q:$$GETACT^DGPFAPI(DFN,"EDPY")'>0
|
---|
1455 | "RTN","EDPFPTS",20,0)
|
---|
1456 | D XML^EDPX("<patientRecordFlags>")
|
---|
1457 | "RTN","EDPFPTS",21,0)
|
---|
1458 | S EDI=0 F S EDI=$O(EDPY(EDI)) Q:EDI<1 K PRF D
|
---|
1459 | "RTN","EDPFPTS",22,0)
|
---|
1460 | . S PRF("assignmentStatus")="Active"
|
---|
1461 | "RTN","EDPFPTS",23,0)
|
---|
1462 | . S PRF("assignTS")=$P($G(EDPY(EDI,"ASSIGNDT")),U)
|
---|
1463 | "RTN","EDPFPTS",24,0)
|
---|
1464 | . S PRF("approved")=$P($G(EDPY(EDI,"APPRVBY")),U,2)
|
---|
1465 | "RTN","EDPFPTS",25,0)
|
---|
1466 | . S PRF("nextReviewDT")=$P($G(EDPY(EDI,"REVIEWDT")),U)
|
---|
1467 | "RTN","EDPFPTS",26,0)
|
---|
1468 | . S PRF("name")=$P($G(EDPY(EDI,"FLAG")),U,2)
|
---|
1469 | "RTN","EDPFPTS",27,0)
|
---|
1470 | . S PRF("type")=$P($G(EDPY(EDI,"FLAGTYPE")),U,2)
|
---|
1471 | "RTN","EDPFPTS",28,0)
|
---|
1472 | . S PRF("category")=$P($G(EDPY(EDI,"CATEGORY")),U,2)
|
---|
1473 | "RTN","EDPFPTS",29,0)
|
---|
1474 | . S PRF("ownerSite")=$P($G(EDPY(EDI,"OWNER")),U,2)
|
---|
1475 | "RTN","EDPFPTS",30,0)
|
---|
1476 | . S PRF("originatingSite")=$P($G(EDPY(EDI,"ORIGSITE")),U,2)
|
---|
1477 | "RTN","EDPFPTS",31,0)
|
---|
1478 | . S X=$$XMLA^EDPX("flag",.PRF),X=$TR(X,"/") D XML^EDPX(X)
|
---|
1479 | "RTN","EDPFPTS",32,0)
|
---|
1480 | . S N=1,X=$G(EDPY(EDI,"NARR",1,0))
|
---|
1481 | "RTN","EDPFPTS",33,0)
|
---|
1482 | . F S N=$O(EDPY(EDI,"NARR",N)) Q:N<1 S X=X_$C(13,10)_$G(EDPY(EDI,"NARR",N,0))
|
---|
1483 | "RTN","EDPFPTS",34,0)
|
---|
1484 | . S X="<text>"_$$ESC^EDPX(X)_"</text>" D XML^EDPX(X)
|
---|
1485 | "RTN","EDPFPTS",35,0)
|
---|
1486 | . ;linked progress notes?
|
---|
1487 | "RTN","EDPFPTS",36,0)
|
---|
1488 | . ;D GETTITLE^TIUPRF2(.EDPT,DFN,EDI),GETNOTES^TIUPRF2(.EDPN,DFN,EDPT,1)
|
---|
1489 | "RTN","EDPFPTS",37,0)
|
---|
1490 | . I $O(EDPN(0)) D
|
---|
1491 | "RTN","EDPFPTS",38,0)
|
---|
1492 | .. D XML^EDPX("<notes>")
|
---|
1493 | "RTN","EDPFPTS",39,0)
|
---|
1494 | .. S N=0 F S N=$O(EDPN(N)) Q:N<1 K PN S X=EDPN(N) D
|
---|
1495 | "RTN","EDPFPTS",40,0)
|
---|
1496 | ... S PN("id")=+X,PN("action")=$P(X,U,2),PN("author")=$P(X,U,4)
|
---|
1497 | "RTN","EDPFPTS",41,0)
|
---|
1498 | ... S PN("noteTS")=9999999-N
|
---|
1499 | "RTN","EDPFPTS",42,0)
|
---|
1500 | ... D TGET^TIUSRVR1(.EDPX,+X)
|
---|
1501 | "RTN","EDPFPTS",43,0)
|
---|
1502 | ... S X=$$XMLA^EDPX("note",.PN),X=$TR(X,"/") D XML^EDPX(X)
|
---|
1503 | "RTN","EDPFPTS",44,0)
|
---|
1504 | ... S I=1,X=$G(@EDPX@(1))
|
---|
1505 | "RTN","EDPFPTS",45,0)
|
---|
1506 | ... F S I=$O(@EDPX@(I)) Q:I<1 S X=X_$C(13,10)_$G(@EDPX@(I))
|
---|
1507 | "RTN","EDPFPTS",46,0)
|
---|
1508 | ... S X="<text>"_$$ESC^EDPX(X)_"</text>" D XML^EDPX(X)
|
---|
1509 | "RTN","EDPFPTS",47,0)
|
---|
1510 | ... D XML^EDPX("</note>")
|
---|
1511 | "RTN","EDPFPTS",48,0)
|
---|
1512 | .. D XML^EDPX("</notes>")
|
---|
1513 | "RTN","EDPFPTS",49,0)
|
---|
1514 | . D XML^EDPX("</flag>")
|
---|
1515 | "RTN","EDPFPTS",50,0)
|
---|
1516 | D XML^EDPX("</patientRecordFlags>")
|
---|
1517 | "RTN","EDPFPTS",51,0)
|
---|
1518 | Q
|
---|
1519 | "RTN","EDPFPTS",52,0)
|
---|
1520 | ;
|
---|
1521 | "RTN","EDPFPTS",53,0)
|
---|
1522 | LOG(DFN) ; Make entry in security log for sensitive patient access
|
---|
1523 | "RTN","EDPFPTS",54,0)
|
---|
1524 | N EDPY,X
|
---|
1525 | "RTN","EDPFPTS",55,0)
|
---|
1526 | D NOTICE^DGSEC4(.EDPY,DFN) ;IA #3027
|
---|
1527 | "RTN","EDPFPTS",56,0)
|
---|
1528 | S X=$S(EDPY:"ok",1:"fail")
|
---|
1529 | "RTN","EDPFPTS",57,0)
|
---|
1530 | D XML^EDPX("<save status='"_X_"' />")
|
---|
1531 | "RTN","EDPFPTS",58,0)
|
---|
1532 | Q
|
---|
1533 | "RTN","EDPFRPC")
|
---|
1534 | 0^8^B1979072
|
---|
1535 | "RTN","EDPFRPC",1,0)
|
---|
1536 | EDPFRPC ;SLC/KCM - Facility Front Controller for ED Tracking
|
---|
1537 | "RTN","EDPFRPC",2,0)
|
---|
1538 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
|
---|
1539 | "RTN","EDPFRPC",3,0)
|
---|
1540 | ;
|
---|
1541 | "RTN","EDPFRPC",4,0)
|
---|
1542 | CMD(EDPXML,REQ) ; process command and return XML
|
---|
1543 | "RTN","EDPFRPC",5,0)
|
---|
1544 | ;
|
---|
1545 | "RTN","EDPFRPC",6,0)
|
---|
1546 | N EDPFAIL,CMD
|
---|
1547 | "RTN","EDPFRPC",7,0)
|
---|
1548 | S CMD=$G(REQ("command"))
|
---|
1549 | "RTN","EDPFRPC",8,0)
|
---|
1550 | ;
|
---|
1551 | "RTN","EDPFRPC",9,0)
|
---|
1552 | ; switch on command
|
---|
1553 | "RTN","EDPFRPC",10,0)
|
---|
1554 | ;
|
---|
1555 | "RTN","EDPFRPC",11,0)
|
---|
1556 | ; ---------------------------------
|
---|
1557 | "RTN","EDPFRPC",12,0)
|
---|
1558 | ;
|
---|
1559 | "RTN","EDPFRPC",13,0)
|
---|
1560 | ; initUser
|
---|
1561 | "RTN","EDPFRPC",14,0)
|
---|
1562 | ; return <user />
|
---|
1563 | "RTN","EDPFRPC",15,0)
|
---|
1564 | ; <view />...
|
---|
1565 | "RTN","EDPFRPC",16,0)
|
---|
1566 | I CMD="initUser" D G OUT
|
---|
1567 | "RTN","EDPFRPC",17,0)
|
---|
1568 | . D SESS^EDPFAA,VIEWS^EDPFAA
|
---|
1569 | "RTN","EDPFRPC",18,0)
|
---|
1570 | ;
|
---|
1571 | "RTN","EDPFRPC",19,0)
|
---|
1572 | ; ---------------------------------
|
---|
1573 | "RTN","EDPFRPC",20,0)
|
---|
1574 | ;
|
---|
1575 | "RTN","EDPFRPC",21,0)
|
---|
1576 | ; matchPatients
|
---|
1577 | "RTN","EDPFRPC",22,0)
|
---|
1578 | ; return <ptlk />...<ptlk />
|
---|
1579 | "RTN","EDPFRPC",23,0)
|
---|
1580 | I CMD="matchPatients" D G OUT
|
---|
1581 | "RTN","EDPFRPC",24,0)
|
---|
1582 | . D MATCH^EDPFPTL(REQ("partial"))
|
---|
1583 | "RTN","EDPFRPC",25,0)
|
---|
1584 | ;
|
---|
1585 | "RTN","EDPFRPC",26,0)
|
---|
1586 | ; ---------------------------------
|
---|
1587 | "RTN","EDPFRPC",27,0)
|
---|
1588 | ;
|
---|
1589 | "RTN","EDPFRPC",28,0)
|
---|
1590 | ; matchPersons
|
---|
1591 | "RTN","EDPFRPC",29,0)
|
---|
1592 | ; return <per />...<per />
|
---|
1593 | "RTN","EDPFRPC",30,0)
|
---|
1594 | I CMD="matchPersons" D G OUT
|
---|
1595 | "RTN","EDPFRPC",31,0)
|
---|
1596 | . D MATCH^EDPFPER(REQ("partial"),REQ("personType"))
|
---|
1597 | "RTN","EDPFRPC",32,0)
|
---|
1598 | ;
|
---|
1599 | "RTN","EDPFRPC",33,0)
|
---|
1600 | ; ---------------------------------
|
---|
1601 | "RTN","EDPFRPC",34,0)
|
---|
1602 | ;
|
---|
1603 | "RTN","EDPFRPC",35,0)
|
---|
1604 | ; getPatientRecordFlags
|
---|
1605 | "RTN","EDPFRPC",36,0)
|
---|
1606 | ; return <sensitivePatient>
|
---|
1607 | "RTN","EDPFRPC",37,0)
|
---|
1608 | ; <patientRecordFlags>
|
---|
1609 | "RTN","EDPFRPC",38,0)
|
---|
1610 | I CMD="getPatientRecordFlags" D G OUT
|
---|
1611 | "RTN","EDPFRPC",39,0)
|
---|
1612 | . D SEC^EDPFPTS(REQ("patient"))
|
---|
1613 | "RTN","EDPFRPC",40,0)
|
---|
1614 | ;
|
---|
1615 | "RTN","EDPFRPC",41,0)
|
---|
1616 | ; ---------------------------------
|
---|
1617 | "RTN","EDPFRPC",42,0)
|
---|
1618 | ;
|
---|
1619 | "RTN","EDPFRPC",43,0)
|
---|
1620 | ; saveSecurityLog
|
---|
1621 | "RTN","EDPFRPC",44,0)
|
---|
1622 | ; return <save />
|
---|
1623 | "RTN","EDPFRPC",45,0)
|
---|
1624 | I CMD="saveSecurityLog" D G OUT
|
---|
1625 | "RTN","EDPFRPC",46,0)
|
---|
1626 | . D LOG^EDPFPTS(REQ("patient"))
|
---|
1627 | "RTN","EDPFRPC",47,0)
|
---|
1628 | ;
|
---|
1629 | "RTN","EDPFRPC",48,0)
|
---|
1630 | ; ---------------------------------
|
---|
1631 | "RTN","EDPFRPC",49,0)
|
---|
1632 | ;
|
---|
1633 | "RTN","EDPFRPC",50,0)
|
---|
1634 | ;
|
---|
1635 | "RTN","EDPFRPC",51,0)
|
---|
1636 | ; getLexiconMatches
|
---|
1637 | "RTN","EDPFRPC",52,0)
|
---|
1638 | ; return <items><item />...</items>
|
---|
1639 | "RTN","EDPFRPC",53,0)
|
---|
1640 | I CMD="getLexiconMatches" D G OUT
|
---|
1641 | "RTN","EDPFRPC",54,0)
|
---|
1642 | . D ICD^EDPFLEX(REQ("text"))
|
---|
1643 | "RTN","EDPFRPC",55,0)
|
---|
1644 | ;
|
---|
1645 | "RTN","EDPFRPC",56,0)
|
---|
1646 | ; ---------------------------------
|
---|
1647 | "RTN","EDPFRPC",57,0)
|
---|
1648 | ;
|
---|
1649 | "RTN","EDPFRPC",58,0)
|
---|
1650 | ; else
|
---|
1651 | "RTN","EDPFRPC",59,0)
|
---|
1652 | D XML^EDPX("<error msg='"_$$MSG^EDPX(2300010)_"' />")
|
---|
1653 | "RTN","EDPFRPC",60,0)
|
---|
1654 | ; end switch
|
---|
1655 | "RTN","EDPFRPC",61,0)
|
---|
1656 | ;
|
---|
1657 | "RTN","EDPFRPC",62,0)
|
---|
1658 | OUT ; end switch
|
---|
1659 | "RTN","EDPFRPC",63,0)
|
---|
1660 | Q
|
---|
1661 | "RTN","EDPX")
|
---|
1662 | 0^9^B6480298
|
---|
1663 | "RTN","EDPX",1,0)
|
---|
1664 | EDPX ;SLC/KCM - Common Utilities
|
---|
1665 | "RTN","EDPX",2,0)
|
---|
1666 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
|
---|
1667 | "RTN","EDPX",3,0)
|
---|
1668 | ;
|
---|
1669 | "RTN","EDPX",4,0)
|
---|
1670 | ESC(X) ; Escape for XML transmission
|
---|
1671 | "RTN","EDPX",5,0)
|
---|
1672 | Q $ZCONVERT(X,"O","HTML")
|
---|
1673 | "RTN","EDPX",6,0)
|
---|
1674 | ;
|
---|
1675 | "RTN","EDPX",7,0)
|
---|
1676 | UES(X) ; Unescape XML
|
---|
1677 | "RTN","EDPX",8,0)
|
---|
1678 | Q $ZCONVERT(X,"I","HTML")
|
---|
1679 | "RTN","EDPX",9,0)
|
---|
1680 | ;
|
---|
1681 | "RTN","EDPX",10,0)
|
---|
1682 | UESREQ(REQ) ; Unescape HTTP post
|
---|
1683 | "RTN","EDPX",11,0)
|
---|
1684 | N I,X
|
---|
1685 | "RTN","EDPX",12,0)
|
---|
1686 | S X="" F S X=$O(REQ(X)) Q:X="" D
|
---|
1687 | "RTN","EDPX",13,0)
|
---|
1688 | . S I=0 F S I=$O(REQ(X,I)) Q:'I D
|
---|
1689 | "RTN","EDPX",14,0)
|
---|
1690 | . . S REQ(X,I)=$ZCONVERT(REQ(X,I),"I","HTML")
|
---|
1691 | "RTN","EDPX",15,0)
|
---|
1692 | Q
|
---|
1693 | "RTN","EDPX",16,0)
|
---|
1694 | VAL(X,R) ; Returns parameter value or null
|
---|
1695 | "RTN","EDPX",17,0)
|
---|
1696 | ; HTTP passes HTML-escaped values in an array as REC(param,1)
|
---|
1697 | "RTN","EDPX",18,0)
|
---|
1698 | Q $G(R(X,1))
|
---|
1699 | "RTN","EDPX",19,0)
|
---|
1700 | ;
|
---|
1701 | "RTN","EDPX",20,0)
|
---|
1702 | NVPARSE(LST,IN) ; Parses tab delimited name-value pairs into array
|
---|
1703 | "RTN","EDPX",21,0)
|
---|
1704 | N I,X,TAB,NM,VAL
|
---|
1705 | "RTN","EDPX",22,0)
|
---|
1706 | S TAB=$C(9)
|
---|
1707 | "RTN","EDPX",23,0)
|
---|
1708 | F I=1:1:$L(IN,TAB) S X=$P(IN,TAB,I),NM=$P(X,"="),VAL=$P(X,"=",2,999) S:$L(NM) LST(NM)=VAL
|
---|
1709 | "RTN","EDPX",24,0)
|
---|
1710 | Q
|
---|
1711 | "RTN","EDPX",25,0)
|
---|
1712 | XMLS(TAG,DATA,LBL) ; Return XML node as <TAG data="9" label="XXX" />
|
---|
1713 | "RTN","EDPX",26,0)
|
---|
1714 | Q "<"_TAG_" data="""_$$ESC(DATA)_""" label="""_$$ESC(LBL)_""" />"
|
---|
1715 | "RTN","EDPX",27,0)
|
---|
1716 | ;
|
---|
1717 | "RTN","EDPX",28,0)
|
---|
1718 | XMLA(TAG,ATT,END) ; Return XML node as <TAG att1="a" att2="b"... />
|
---|
1719 | "RTN","EDPX",29,0)
|
---|
1720 | N NODE S NODE="<"_TAG_" "
|
---|
1721 | "RTN","EDPX",30,0)
|
---|
1722 | N X
|
---|
1723 | "RTN","EDPX",31,0)
|
---|
1724 | S X="" F S X=$O(ATT(X)) Q:X="" I $L(ATT(X)) S NODE=NODE_X_"="""_$$ESC(ATT(X))_""" "
|
---|
1725 | "RTN","EDPX",32,0)
|
---|
1726 | S NODE=NODE_$G(END,"/")_">"
|
---|
1727 | "RTN","EDPX",33,0)
|
---|
1728 | Q NODE
|
---|
1729 | "RTN","EDPX",34,0)
|
---|
1730 | ;
|
---|
1731 | "RTN","EDPX",35,0)
|
---|
1732 | XMLE(SRC) ; Append list to XML array as elements
|
---|
1733 | "RTN","EDPX",36,0)
|
---|
1734 | N X,NODE
|
---|
1735 | "RTN","EDPX",37,0)
|
---|
1736 | S X="" F S X=$O(SRC(X)) Q:X="" D
|
---|
1737 | "RTN","EDPX",38,0)
|
---|
1738 | . S NODE="<"_X_">"_$$ESC(SRC(X))_"</"_X_">"
|
---|
1739 | "RTN","EDPX",39,0)
|
---|
1740 | . D XML(NODE)
|
---|
1741 | "RTN","EDPX",40,0)
|
---|
1742 | Q
|
---|
1743 | "RTN","EDPX",41,0)
|
---|
1744 | XML(X) ; Add a line of XML to be returned
|
---|
1745 | "RTN","EDPX",42,0)
|
---|
1746 | S EDPXML=$G(EDPXML)+1
|
---|
1747 | "RTN","EDPX",43,0)
|
---|
1748 | S EDPXML(EDPXML)=X
|
---|
1749 | "RTN","EDPX",44,0)
|
---|
1750 | Q
|
---|
1751 | "RTN","EDPX",45,0)
|
---|
1752 | CODE(X) ; Return internal value for a code
|
---|
1753 | "RTN","EDPX",46,0)
|
---|
1754 | Q $O(^EDPB(233.1,"B",X,0))
|
---|
1755 | "RTN","EDPX",47,0)
|
---|
1756 | ;
|
---|
1757 | "RTN","EDPX",48,0)
|
---|
1758 | MSG(MSG) ; Write out error message
|
---|
1759 | "RTN","EDPX",49,0)
|
---|
1760 | I MSG=1 S X="some error"
|
---|
1761 | "RTN","EDPX",50,0)
|
---|
1762 | I MSG=2300001 S X="Station Number is missing"
|
---|
1763 | "RTN","EDPX",51,0)
|
---|
1764 | I MSG=2300002 S X="Patient is already active in log"
|
---|
1765 | "RTN","EDPX",52,0)
|
---|
1766 | I MSG=2300003 S X="Unable to create lock for new record"
|
---|
1767 | "RTN","EDPX",53,0)
|
---|
1768 | I MSG=2300004 S X="Error creating new record"
|
---|
1769 | "RTN","EDPX",54,0)
|
---|
1770 | I MSG=2300005 S X="Error creating sub-record"
|
---|
1771 | "RTN","EDPX",55,0)
|
---|
1772 | I MSG=2300006 S X="Missing log record"
|
---|
1773 | "RTN","EDPX",56,0)
|
---|
1774 | I MSG=2300007 S X="Missing log IEN"
|
---|
1775 | "RTN","EDPX",57,0)
|
---|
1776 | I MSG=2300008 S X="Error updating record"
|
---|
1777 | "RTN","EDPX",58,0)
|
---|
1778 | I MSG=2300009 S X="Error updating sub-record"
|
---|
1779 | "RTN","EDPX",59,0)
|
---|
1780 | I MSG=2300010 S X="Command missing or not recognized"
|
---|
1781 | "RTN","EDPX",60,0)
|
---|
1782 | I MSG=2300011 S X="Unknown report type"
|
---|
1783 | "RTN","EDPX",61,0)
|
---|
1784 | I MSG=2300012 S X="Missing or invalid date range"
|
---|
1785 | "RTN","EDPX",62,0)
|
---|
1786 | I MSG=2300013 S X="Shift times not defined for this site"
|
---|
1787 | "RTN","EDPX",63,0)
|
---|
1788 | Q $$ESC^EDPX(X)
|
---|
1789 | "RTN","EDPYCHK")
|
---|
1790 | 0^^B1074868
|
---|
1791 | "RTN","EDPYCHK",1,0)
|
---|
1792 | EDPYCHK ;SLC/KCM - Environmental Check for facility install
|
---|
1793 | "RTN","EDPYCHK",2,0)
|
---|
1794 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
|
---|
1795 | "RTN","EDPYCHK",3,0)
|
---|
1796 | ;This routine will check to see if the user is in a production account
|
---|
1797 | "RTN","EDPYCHK",4,0)
|
---|
1798 | ;if they are then the user will not be allowed to install this
|
---|
1799 | "RTN","EDPYCHK",5,0)
|
---|
1800 | ;patch/build/bundle
|
---|
1801 | "RTN","EDPYCHK",6,0)
|
---|
1802 | ;
|
---|
1803 | "RTN","EDPYCHK",7,0)
|
---|
1804 | I $$PROD^XUPROD D
|
---|
1805 | "RTN","EDPYCHK",8,0)
|
---|
1806 | .W !,"You are attempting to install this software into your production account."
|
---|
1807 | "RTN","EDPYCHK",9,0)
|
---|
1808 | .W !,"At this time, this software is not ready for a production install."
|
---|
1809 | "RTN","EDPYCHK",10,0)
|
---|
1810 | .W !!,"Please verify the account you're attempting to install into."
|
---|
1811 | "RTN","EDPYCHK",11,0)
|
---|
1812 | .W !!,"INSTALLATION ABORTED!"
|
---|
1813 | "RTN","EDPYCHK",12,0)
|
---|
1814 | .S XPDABORT=1
|
---|
1815 | "RTN","EDPYCHK",13,0)
|
---|
1816 | Q
|
---|
1817 | "RTN","EDPYPST")
|
---|
1818 | 0^^B469700
|
---|
1819 | "RTN","EDPYPST",1,0)
|
---|
1820 | EDPYPST ;SLC/KCM - Post-init for facility install
|
---|
1821 | "RTN","EDPYPST",2,0)
|
---|
1822 | ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
|
---|
1823 | "RTN","EDPYPST",3,0)
|
---|
1824 | ;
|
---|
1825 | "RTN","EDPYPST",4,0)
|
---|
1826 | UPDSVR ; Update domain information on the central server after install
|
---|
1827 | "RTN","EDPYPST",5,0)
|
---|
1828 | D EN^XPAR("SYS","EDPF SERVER",1,"EDIS-SQA.FO-SLC.MED.VA.GOV")
|
---|
1829 | "RTN","EDPYPST",6,0)
|
---|
1830 | N MSG
|
---|
1831 | "RTN","EDPYPST",7,0)
|
---|
1832 | S MSG(1)="command=sendDomain"
|
---|
1833 | "RTN","EDPYPST",8,0)
|
---|
1834 | S MSG(2)="domain="_$$KSP^XUPARAM("WHERE")
|
---|
1835 | "RTN","EDPYPST",9,0)
|
---|
1836 | S MSG(3)="station="_$$STA^XUAF4($$KSP^XUPARAM("INST"))
|
---|
1837 | "RTN","EDPYPST",10,0)
|
---|
1838 | D SEND^EDPFMON(.MSG)
|
---|
1839 | "RTN","EDPYPST",11,0)
|
---|
1840 | Q
|
---|
1841 | "SEC","^DIC",232,232,0,"AUDIT")
|
---|
1842 | @
|
---|
1843 | "SEC","^DIC",232,232,0,"DD")
|
---|
1844 | @
|
---|
1845 | "SEC","^DIC",232,232,0,"DEL")
|
---|
1846 | @
|
---|
1847 | "SEC","^DIC",232,232,0,"LAYGO")
|
---|
1848 | @
|
---|
1849 | "SEC","^DIC",232,232,0,"RD")
|
---|
1850 | @
|
---|
1851 | "SEC","^DIC",232,232,0,"WR")
|
---|
1852 | @
|
---|
1853 | "VER")
|
---|
1854 | 8.0^22.0
|
---|
1855 | "^DD",232,232,0)
|
---|
1856 | FIELD^^.02^2
|
---|
1857 | "^DD",232,232,0,"DT")
|
---|
1858 | 3071228
|
---|
1859 | "^DD",232,232,0,"IX","B",232,.01)
|
---|
1860 |
|
---|
1861 | "^DD",232,232,0,"IX","C",232,.02)
|
---|
1862 |
|
---|
1863 | "^DD",232,232,0,"NM","ED ACTIVE LOG")
|
---|
1864 |
|
---|
1865 | "^DD",232,232,.01,0)
|
---|
1866 | LOG ENTRY^RNJ11,0^^0;1^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
|
---|
1867 | "^DD",232,232,.01,1,0)
|
---|
1868 | ^.1
|
---|
1869 | "^DD",232,232,.01,1,1,0)
|
---|
1870 | 232^B
|
---|
1871 | "^DD",232,232,.01,1,1,1)
|
---|
1872 | S ^EDP(232,"B",$E(X,1,30),DA)=""
|
---|
1873 | "^DD",232,232,.01,1,1,2)
|
---|
1874 | K ^EDP(232,"B",$E(X,1,30),DA)
|
---|
1875 | "^DD",232,232,.01,3)
|
---|
1876 | Type a Number between 1 and 99999999999, 0 Decimal Digits
|
---|
1877 | "^DD",232,232,.01,"DT")
|
---|
1878 | 3071228
|
---|
1879 | "^DD",232,232,.02,0)
|
---|
1880 | PATIENT^P2'^DPT(^0;2^Q
|
---|
1881 | "^DD",232,232,.02,1,0)
|
---|
1882 | ^.1
|
---|
1883 | "^DD",232,232,.02,1,1,0)
|
---|
1884 | 232^C
|
---|
1885 | "^DD",232,232,.02,1,1,1)
|
---|
1886 | S ^EDP(232,"C",$E(X,1,30),DA)=""
|
---|
1887 | "^DD",232,232,.02,1,1,2)
|
---|
1888 | K ^EDP(232,"C",$E(X,1,30),DA)
|
---|
1889 | "^DD",232,232,.02,1,1,"DT")
|
---|
1890 | 3071228
|
---|
1891 | "^DD",232,232,.02,"DT")
|
---|
1892 | 3071228
|
---|
1893 | "^DIC",232,232,0)
|
---|
1894 | ED ACTIVE LOG^232
|
---|
1895 | "^DIC",232,232,0,"GL")
|
---|
1896 | ^EDP(232,
|
---|
1897 | "^DIC",232,"B","ED ACTIVE LOG",232)
|
---|
1898 |
|
---|
1899 | **END**
|
---|
1900 | **END**
|
---|