source: qrda/C0Q/trunk/kids/C0Q-1_SEQ-005_PAT-005.KID@ 1621

Last change on this file since 1621 was 1578, checked in by Sam Habiel, 12 years ago

Patch 5 KIDS and documentation

File size: 116.0 KB
Line 
1KIDS Distribution saved on Oct 18, 2012@11:20:27
2Bug Fixes for QM package
3**KIDS**:C0Q*1.0*5^
4
5**INSTALL NAME**
6C0Q*1.0*5
7"BLD",7919,0)
8C0Q*1.0*5^QUALITY MEASURES^0^3121018^y
9"BLD",7919,1,0)
10^^171^171^3121018^
11"BLD",7919,1,1,0)
12TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES
13"BLD",7919,1,2,0)
14NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO
15"BLD",7919,1,3,0)
16
17"BLD",7919,1,4,0)
18DESCRIPTION:
19"BLD",7919,1,5,0)
20============
21"BLD",7919,1,6,0)
22Written by Sam Habiel on 17 October 2012 and released through VISTA Forum.
23"BLD",7919,1,7,0)
24
25"BLD",7919,1,8,0)
26Licensed under package license (currently GPL 2.0)
27"BLD",7919,1,9,0)
28
29"BLD",7919,1,10,0)
30FUNCTIONALITY:
31"BLD",7919,1,11,0)
32==============
33"BLD",7919,1,12,0)
34This build fixes various bugs in the Quality Measurements package
35"BLD",7919,1,13,0)
36discovered during testing.
37"BLD",7919,1,14,0)
38
39"BLD",7919,1,15,0)
40 1. Empty lists are created in advance for Outpatients. Previously, they
41"BLD",7919,1,16,0)
42were not created, even though an entry point existed (INITCLST).
43"BLD",7919,1,17,0)
44
45"BLD",7919,1,18,0)
46 2. The Vitals lookup code that calls CPRS code didn't include today.
47"BLD",7919,1,19,0)
48This was fixed by adding .999999 to today's date.
49"BLD",7919,1,20,0)
50
51"BLD",7919,1,21,0)
52 3. File security (@ sign everywhere) didn't permit normal users to edit
53"BLD",7919,1,22,0)
54the file. Previous, I defeated the @ sign protection by setting DLAYGO.
55"BLD",7919,1,23,0)
56However, DLAYGO got killed by Fileman after each edit, which meant that
57"BLD",7919,1,24,0)
58you can only edit one entry at a time before heading back out and back in
59"BLD",7919,1,25,0)
60to edit another entry. After discussion with Fileman developers, the
61"BLD",7919,1,26,0)
62proper way to do this was to not to use DLAYGO but rather remove the @
63"BLD",7919,1,27,0)
64signs for Read, Write, and Laygo in the Files Definitions.
65"BLD",7919,1,28,0)
66
67"BLD",7919,1,29,0)
68 - File list where protections were changed.
69"BLD",7919,1,30,0)
70 --> C0Q MEASUREMENT SET (1130580001.201)
71"BLD",7919,1,31,0)
72 --> C0Q QUALITY MEASURE (1130580001.101)
73"BLD",7919,1,32,0)
74 --> C0Q PARAMETER (1130580001.401)
75"BLD",7919,1,33,0)
76
77"BLD",7919,1,34,0)
78 - Options which don't use DLAYGO anymore.
79"BLD",7919,1,35,0)
80 --> EDIT SUPERUSERS [C0Q EDIT SUPERUSERS]
81"BLD",7919,1,36,0)
82 --> EP EDIT PARMS [C0Q EDIT OUTPATIENT PARMS]
83"BLD",7919,1,37,0)
84 --> INP EDIT PARMS [C0Q EDIT INP PARMS]
85"BLD",7919,1,38,0)
86 --> MEASURE SET EDIT [C0Q EDIT MEASURE SET]
87"BLD",7919,1,39,0)
88 --> MU MEASURE EDIT [C0Q EDIT MU MEASURE]
89"BLD",7919,1,40,0)
90 --> QUALITY MEASURE EDIT [C0Q EDIT QUALITY MEASURE]
91"BLD",7919,1,41,0)
92
93"BLD",7919,1,42,0)
944. The Outpatient Quality Measurement Set which is specified in the
95"BLD",7919,1,43,0)
96Parameters was being completely ignored. This is fixed.
97"BLD",7919,1,44,0)
98
99"BLD",7919,1,45,0)
1005. The variable C0QNALT was not being newed in C0QUPDT. It acts as a flag
101"BLD",7919,1,46,0)
102indicating the type of measure (Performance vs Quality Measure). Since it
103"BLD",7919,1,47,0)
104was left lying around, a Quality Measure was mistakenly interpreted as a
105"BLD",7919,1,48,0)
106performance measure, giving you a result of zero, since there is no
107"BLD",7919,1,49,0)
108data for this Quality Measure.
109"BLD",7919,1,50,0)
110
111"BLD",7919,1,51,0)
1126. The option that executes the logic for Outpatients C0Q EP UPDATE MU
113"BLD",7919,1,52,0)
114MEASURES didn't display the time on the dates of the Visits being
115"BLD",7919,1,53,0)
116processed correctly. This patch fixes this.
117"BLD",7919,1,54,0)
118
119"BLD",7919,1,55,0)
120SUPPORT TICKETS:
121"BLD",7919,1,56,0)
122================
123"BLD",7919,1,57,0)
124None
125"BLD",7919,1,58,0)
126
127"BLD",7919,1,59,0)
128PACKAGE ELEMENTS:
129"BLD",7919,1,60,0)
130=================
131"BLD",7919,1,61,0)
132
133"BLD",7919,1,62,0)
134ENVIRONMENT CHECK: DELETE ENV ROUTINE:
135"BLD",7919,1,63,0)
136 PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE:
137"BLD",7919,1,64,0)
138POST-INIT ROUTINE: POST^C0Q1P5 DELETE POST-INIT ROUTINE: No
139"BLD",7919,1,65,0)
140PRE-TRANSPORT RTN: TRAN^C0Q1P5
141"BLD",7919,1,66,0)
142
143"BLD",7919,1,67,0)
144 UP SEND DATA USER
145"BLD",7919,1,68,0)
146 DATE SEC. COMES SITE RSLV OVER
147"BLD",7919,1,69,0)
148FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE
149"BLD",7919,1,70,0)
150-------------------------------------------------------------------------------
151"BLD",7919,1,71,0)
152
153"BLD",7919,1,72,0)
1541130580001.101C0Q QUALITY MEASURE YES YES NO
155"BLD",7919,1,73,0)
156
157"BLD",7919,1,74,0)
1581130580001.201C0Q MEASUREMENT SET YES YES NO
159"BLD",7919,1,75,0)
160
161"BLD",7919,1,76,0)
162 UP SEND DATA USER
163"BLD",7919,1,77,0)
164 DATE SEC. COMES SITE RSLV OVER
165"BLD",7919,1,78,0)
166FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE
167"BLD",7919,1,79,0)
168-------------------------------------------------------------------------------
169"BLD",7919,1,80,0)
170
171"BLD",7919,1,81,0)
1721130580001.401C0Q PARAMETER YES YES NO
173"BLD",7919,1,82,0)
174
175"BLD",7919,1,83,0)
176ROUTINE: ACTION:
177"BLD",7919,1,84,0)
178 C0Q1P5 SEND TO SITE
179"BLD",7919,1,85,0)
180 C0QMU12 SEND TO SITE
181"BLD",7919,1,86,0)
182 C0QUPDT SEND TO SITE
183"BLD",7919,1,87,0)
184
185"BLD",7919,1,88,0)
186OPTION: ACTION:
187"BLD",7919,1,89,0)
188 C0Q EDIT INP PARMS SEND TO SITE
189"BLD",7919,1,90,0)
190 C0Q EDIT MEASURE SET SEND TO SITE
191"BLD",7919,1,91,0)
192 C0Q EDIT MU MEASURE SEND TO SITE
193"BLD",7919,1,92,0)
194 C0Q EDIT OUTPATIENT PARMS SEND TO SITE
195"BLD",7919,1,93,0)
196 C0Q EDIT QUALITY MEASURE SEND TO SITE
197"BLD",7919,1,94,0)
198 C0Q EDIT SUPERUSERS SEND TO SITE
199"BLD",7919,1,95,0)
200
201"BLD",7919,1,96,0)
202DOCUMENTATION:
203"BLD",7919,1,97,0)
204==============
205"BLD",7919,1,98,0)
206http://www.vistapedia.com/index.php/C0Q_Quality_Reporting_1.0
207"BLD",7919,1,99,0)
208
209"BLD",7919,1,100,0)
210COMPLIANCE:
211"BLD",7919,1,101,0)
212===========
213"BLD",7919,1,102,0)
214This software complies with the VA MUMPS Programming Standards and
215"BLD",7919,1,103,0)
216 Conventions (version 3 April 2007), except for the following:
217"BLD",7919,1,104,0)
218
219"BLD",7919,1,105,0)
220 C0QMU12 * * 541 Lines, 18707 Bytes, Checksum: B280797584
221"BLD",7919,1,106,0)
222 S - Routine code exceeds SACC maximum size of 15000 (15513).
223"BLD",7919,1,107,0)
224
225"BLD",7919,1,108,0)
226Blood Bank Clearance: This software doesn't interact with the Blood Bank module.
227"BLD",7919,1,109,0)
228
229"BLD",7919,1,110,0)
230Installation Instructions:
231"BLD",7919,1,111,0)
232==========================
233"BLD",7919,1,112,0)
234Install Time - less than 1 minute.
235"BLD",7919,1,113,0)
236
237"BLD",7919,1,114,0)
238 1. LOAD TRANSPORT GLOBAL
239"BLD",7919,1,115,0)
240
241"BLD",7919,1,116,0)
242 Choose the PackMan message containing this patch and invoke the
243"BLD",7919,1,117,0)
244 INSTALL/CHECK MESSAGE PackMan option to unload the build.
245"BLD",7919,1,118,0)
246
247"BLD",7919,1,119,0)
248 2. START UP KIDS
249"BLD",7919,1,120,0)
250
251"BLD",7919,1,121,0)
252 Start up the Kernel Installation and Distribution System Menu
253"BLD",7919,1,122,0)
254 [XPD MAIN]:
255"BLD",7919,1,123,0)
256
257"BLD",7919,1,124,0)
258 Edits and Distribution ...
259"BLD",7919,1,125,0)
260 Utilities ...
261"BLD",7919,1,126,0)
262 Installation ...
263"BLD",7919,1,127,0)
264
265"BLD",7919,1,128,0)
266 Select Kernel Installation & Distribution System Option: INStallation
267"BLD",7919,1,129,0)
268 ---
269"BLD",7919,1,130,0)
270 Load a Distribution
271"BLD",7919,1,131,0)
272 Print Transport Global
273"BLD",7919,1,132,0)
274 Compare Transport Global to Current System
275"BLD",7919,1,133,0)
276 Verify Checksums in Transport Global
277"BLD",7919,1,134,0)
278 Install Package(s)
279"BLD",7919,1,135,0)
280 Restart Install of Package(s)
281"BLD",7919,1,136,0)
282 Unload a Distribution
283"BLD",7919,1,137,0)
284 Backup a Transport Global
285"BLD",7919,1,138,0)
286
287"BLD",7919,1,139,0)
288 Select Installation Option:
289"BLD",7919,1,140,0)
290
291"BLD",7919,1,141,0)
292 3. Select Installation Option:
293"BLD",7919,1,142,0)
294
295"BLD",7919,1,143,0)
296 NOTE: The following are OPTIONAL - (When prompted for the INSTALL
297"BLD",7919,1,144,0)
298 NAME, enter C0Q*1.0*5):
299"BLD",7919,1,145,0)
300
301"BLD",7919,1,146,0)
302 a. Backup a Transport Global - This option will create a backup
303"BLD",7919,1,147,0)
304 message of any routines exported with this patch. It will not
305"BLD",7919,1,148,0)
306 backup any other changes such as DD's or templates.
307"BLD",7919,1,149,0)
308 b. Compare Transport Global to Current System - This option will
309"BLD",7919,1,150,0)
310 allow you to view all changes that will be made when this patch
311"BLD",7919,1,151,0)
312 is installed. It compares all components of this patch
313"BLD",7919,1,152,0)
314 (routines, DD's, templates, etc.).
315"BLD",7919,1,153,0)
316 c. Verify Checksums in Transport Global - This option will allow
317"BLD",7919,1,154,0)
318 you to ensure the integrity of the routines that are in the
319"BLD",7919,1,155,0)
320 transport global.
321"BLD",7919,1,156,0)
322
323"BLD",7919,1,157,0)
324 4. Select Installation Option: Install Package(s)
325"BLD",7919,1,158,0)
326
327"BLD",7919,1,159,0)
328 **This is the step to start the installation of this KIDS patch:
329"BLD",7919,1,160,0)
330
331"BLD",7919,1,161,0)
332 a. Choose the Install Package(s) option to start the patch install
333"BLD",7919,1,162,0)
334 and enter "C0Q*1.0*5" at the INSTALL NAME prompt. As part of the
335"BLD",7919,1,163,0)
336 Environment Check routine, the message below will display
337"BLD",7919,1,164,0)
338 b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of
339"BLD",7919,1,165,0)
340 Install? NO//' answer NO
341"BLD",7919,1,166,0)
342 c. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
343"BLD",7919,1,167,0)
344 NO//' answer NO
345"BLD",7919,1,168,0)
346 d. When prompted 'Want to DISABLE Scheduled Options, Menu Options,
347"BLD",7919,1,169,0)
348 and Protocols? NO//' answer NO
349"BLD",7919,1,170,0)
350
351"BLD",7919,1,171,0)
352 5. Post installation: No post installation tasks are necessary.
353"BLD",7919,4,0)
354^9.64PA^1130580001.401^3
355"BLD",7919,4,1130580001.101,0)
3561130580001.101
357"BLD",7919,4,1130580001.101,222)
358y^y^f^^^^n
359"BLD",7919,4,1130580001.201,0)
3601130580001.201
361"BLD",7919,4,1130580001.201,222)
362y^y^f^^^^n
363"BLD",7919,4,1130580001.401,0)
3641130580001.401
365"BLD",7919,4,1130580001.401,222)
366y^y^f^^^^n
367"BLD",7919,4,"B",1130580001.101,1130580001.101)
368
369"BLD",7919,4,"B",1130580001.201,1130580001.201)
370
371"BLD",7919,4,"B",1130580001.401,1130580001.401)
372
373"BLD",7919,6.3)
37410
375"BLD",7919,"INI")
376
377"BLD",7919,"INIT")
378POST^C0Q1P5
379"BLD",7919,"KRN",0)
380^9.67PA^779.2^20
381"BLD",7919,"KRN",.4,0)
382.4
383"BLD",7919,"KRN",.401,0)
384.401
385"BLD",7919,"KRN",.402,0)
386.402
387"BLD",7919,"KRN",.403,0)
388.403
389"BLD",7919,"KRN",.5,0)
390.5
391"BLD",7919,"KRN",.84,0)
392.84
393"BLD",7919,"KRN",3.6,0)
3943.6
395"BLD",7919,"KRN",3.8,0)
3963.8
397"BLD",7919,"KRN",9.2,0)
3989.2
399"BLD",7919,"KRN",9.8,0)
4009.8
401"BLD",7919,"KRN",9.8,"NM",0)
402^9.68A^3^3
403"BLD",7919,"KRN",9.8,"NM",1,0)
404C0QMU12^^0^B280797584
405"BLD",7919,"KRN",9.8,"NM",2,0)
406C0QUPDT^^0^B78768309
407"BLD",7919,"KRN",9.8,"NM",3,0)
408C0Q1P5^^0^B619258
409"BLD",7919,"KRN",9.8,"NM","B","C0Q1P5",3)
410
411"BLD",7919,"KRN",9.8,"NM","B","C0QMU12",1)
412
413"BLD",7919,"KRN",9.8,"NM","B","C0QUPDT",2)
414
415"BLD",7919,"KRN",19,0)
41619
417"BLD",7919,"KRN",19,"NM",0)
418^9.68A^6^6
419"BLD",7919,"KRN",19,"NM",1,0)
420C0Q EDIT SUPERUSERS^^0
421"BLD",7919,"KRN",19,"NM",2,0)
422C0Q EDIT OUTPATIENT PARMS^^0
423"BLD",7919,"KRN",19,"NM",3,0)
424C0Q EDIT INP PARMS^^0
425"BLD",7919,"KRN",19,"NM",4,0)
426C0Q EDIT MEASURE SET^^0
427"BLD",7919,"KRN",19,"NM",5,0)
428C0Q EDIT MU MEASURE^^0
429"BLD",7919,"KRN",19,"NM",6,0)
430C0Q EDIT QUALITY MEASURE^^0
431"BLD",7919,"KRN",19,"NM","B","C0Q EDIT INP PARMS",3)
432
433"BLD",7919,"KRN",19,"NM","B","C0Q EDIT MEASURE SET",4)
434
435"BLD",7919,"KRN",19,"NM","B","C0Q EDIT MU MEASURE",5)
436
437"BLD",7919,"KRN",19,"NM","B","C0Q EDIT OUTPATIENT PARMS",2)
438
439"BLD",7919,"KRN",19,"NM","B","C0Q EDIT QUALITY MEASURE",6)
440
441"BLD",7919,"KRN",19,"NM","B","C0Q EDIT SUPERUSERS",1)
442
443"BLD",7919,"KRN",19.1,0)
44419.1
445"BLD",7919,"KRN",101,0)
446101
447"BLD",7919,"KRN",409.61,0)
448409.61
449"BLD",7919,"KRN",771,0)
450771
451"BLD",7919,"KRN",779.2,0)
452779.2
453"BLD",7919,"KRN",870,0)
454870
455"BLD",7919,"KRN",8989.51,0)
4568989.51
457"BLD",7919,"KRN",8989.52,0)
4588989.52
459"BLD",7919,"KRN",8994,0)
4608994
461"BLD",7919,"KRN","B",.4,.4)
462
463"BLD",7919,"KRN","B",.401,.401)
464
465"BLD",7919,"KRN","B",.402,.402)
466
467"BLD",7919,"KRN","B",.403,.403)
468
469"BLD",7919,"KRN","B",.5,.5)
470
471"BLD",7919,"KRN","B",.84,.84)
472
473"BLD",7919,"KRN","B",3.6,3.6)
474
475"BLD",7919,"KRN","B",3.8,3.8)
476
477"BLD",7919,"KRN","B",9.2,9.2)
478
479"BLD",7919,"KRN","B",9.8,9.8)
480
481"BLD",7919,"KRN","B",19,19)
482
483"BLD",7919,"KRN","B",19.1,19.1)
484
485"BLD",7919,"KRN","B",101,101)
486
487"BLD",7919,"KRN","B",409.61,409.61)
488
489"BLD",7919,"KRN","B",771,771)
490
491"BLD",7919,"KRN","B",779.2,779.2)
492
493"BLD",7919,"KRN","B",870,870)
494
495"BLD",7919,"KRN","B",8989.51,8989.51)
496
497"BLD",7919,"KRN","B",8989.52,8989.52)
498
499"BLD",7919,"KRN","B",8994,8994)
500
501"BLD",7919,"PRET")
502TRAN^C0Q1P5
503"BLD",7919,"QUES",0)
504^9.62^^
505"FIA",1130580001.101)
506C0Q QUALITY MEASURE
507"FIA",1130580001.101,0)
508^C0Q(101,
509"FIA",1130580001.101,0,0)
5101130580001.101I
511"FIA",1130580001.101,0,1)
512y^y^f^^^^n
513"FIA",1130580001.101,0,10)
514
515"FIA",1130580001.101,0,11)
516
517"FIA",1130580001.101,0,"RLRO")
518
519"FIA",1130580001.101,0,"VR")
5201.0^C0Q
521"FIA",1130580001.101,1130580001.101)
5220
523"FIA",1130580001.101,1130580001.111)
5240
525"FIA",1130580001.201)
526C0Q MEASUREMENT SET
527"FIA",1130580001.201,0)
528^C0Q(201,
529"FIA",1130580001.201,0,0)
5301130580001.201
531"FIA",1130580001.201,0,1)
532y^y^f^^^^n
533"FIA",1130580001.201,0,10)
534
535"FIA",1130580001.201,0,11)
536
537"FIA",1130580001.201,0,"RLRO")
538
539"FIA",1130580001.201,0,"VR")
5401.0^C0Q
541"FIA",1130580001.201,1130580001.201)
5420
543"FIA",1130580001.201,1130580001.2011)
5440
545"FIA",1130580001.201,1130580001.20111)
5460
547"FIA",1130580001.201,1130580001.20112)
5480
549"FIA",1130580001.401)
550C0Q PARAMETER
551"FIA",1130580001.401,0)
552^C0Q(401,
553"FIA",1130580001.401,0,0)
5541130580001.401
555"FIA",1130580001.401,0,1)
556y^y^f^^^^n
557"FIA",1130580001.401,0,10)
558
559"FIA",1130580001.401,0,11)
560
561"FIA",1130580001.401,0,"RLRO")
562
563"FIA",1130580001.401,0,"VR")
5641.0^C0Q
565"FIA",1130580001.401,1130580001.401)
5660
567"FIA",1130580001.401,1130580001.4013)
5680
569"FIA",1130580001.401,1130580001.411)
5700
571"INIT")
572POST^C0Q1P5
573"IX",1130580001.101,1130580001.101,"B",0)
5741130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS
575"IX",1130580001.101,1130580001.101,"B",1)
576S ^C0Q(101,"B",$E(X,1,30),DA)=""
577"IX",1130580001.101,1130580001.101,"B",2)
578K ^C0Q(101,"B",$E(X,1,30),DA)
579"IX",1130580001.101,1130580001.101,"B",2.5)
580K ^C0Q(101,"B")
581"IX",1130580001.101,1130580001.101,"B",11.1,0)
582^.114IA^1^1
583"IX",1130580001.101,1130580001.101,"B",11.1,1,0)
5841^F^1130580001.101^.01^30^1^F
585"IX",1130580001.101,1130580001.101,"MU",0)
5861130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS
587"IX",1130580001.101,1130580001.101,"MU",1)
588S ^C0Q(101,"MU",$E(X,1,30),DA)=""
589"IX",1130580001.101,1130580001.101,"MU",2)
590K ^C0Q(101,"MU",$E(X,1,30),DA)
591"IX",1130580001.101,1130580001.101,"MU",2.5)
592K ^C0Q(101,"MU")
593"IX",1130580001.101,1130580001.101,"MU",11.1,0)
594^.114IA^1^1
595"IX",1130580001.101,1130580001.101,"MU",11.1,1,0)
5961^F^1130580001.101^.3^30^1^F
597"IX",1130580001.201,1130580001.201,"MU",0)
5981130580001.201^MU^MEANINGFUL USE YEAR KEY INDEX^R^^F^IR^I^1130580001.201^^^^^LS
599"IX",1130580001.201,1130580001.201,"MU",1)
600S ^C0Q(201,"MU",$E(X,1,30),DA)=""
601"IX",1130580001.201,1130580001.201,"MU",2)
602K ^C0Q(201,"MU",$E(X,1,30),DA)
603"IX",1130580001.201,1130580001.201,"MU",2.5)
604K ^C0Q(201,"MU")
605"IX",1130580001.201,1130580001.201,"MU",11.1,0)
606^.114IA^1^1
607"IX",1130580001.201,1130580001.201,"MU",11.1,1,0)
6081^F^1130580001.201^.3^30^1^F
609"IX",1130580001.401,1130580001.401,"MU",0)
6101130580001.401^MU^REGULAR INDEX ON THE REPORTING PERIOD FIELD^R^^F^IR^I^1130580001.401^^^^^LS
611"IX",1130580001.401,1130580001.401,"MU",1)
612S ^C0Q(401,"MU",$E(X,1,30),DA)=""
613"IX",1130580001.401,1130580001.401,"MU",2)
614K ^C0Q(401,"MU",$E(X,1,30),DA)
615"IX",1130580001.401,1130580001.401,"MU",2.5)
616K ^C0Q(401,"MU")
617"IX",1130580001.401,1130580001.401,"MU",11.1,0)
618^.114IA^1^1
619"IX",1130580001.401,1130580001.401,"MU",11.1,1,0)
6201^F^1130580001.401^.02^30^1^F
621"IX",1130580001.401,1130580001.401,"MUTYP",0)
6221130580001.401^MUTYP^INDEX ON PARAMETER TYPE BY REPORTING PERIOD^R^^R^IR^I^1130580001.401^^^^^LS
623"IX",1130580001.401,1130580001.401,"MUTYP",1)
624S ^C0Q(401,"MUTYP",$E(X(1),1,30),X(2),DA)=""
625"IX",1130580001.401,1130580001.401,"MUTYP",2)
626K ^C0Q(401,"MUTYP",$E(X(1),1,30),X(2),DA)
627"IX",1130580001.401,1130580001.401,"MUTYP",2.5)
628K ^C0Q(401,"MUTYP")
629"IX",1130580001.401,1130580001.401,"MUTYP",11.1,0)
630^.114IA^2^2
631"IX",1130580001.401,1130580001.401,"MUTYP",11.1,1,0)
6321^F^1130580001.401^.02^30^1^F
633"IX",1130580001.401,1130580001.401,"MUTYP",11.1,1,3)
634
635"IX",1130580001.401,1130580001.401,"MUTYP",11.1,2,0)
6362^F^1130580001.401^.03^^2^F
637"IX",1130580001.401,1130580001.401,"MUTYP",11.1,2,3)
638
639"KEY",1130580001.101,1130580001.101,"A",0)
6401130580001.101^A^P^784
641"KEY",1130580001.101,1130580001.101,"A",2,0)
642^.312IA^1^1
643"KEY",1130580001.101,1130580001.101,"A",2,1,0)
644.01^1130580001.101^1
645"KEYPTR",1130580001.101,1130580001.101,"A")
6461130580001.101^B
647"KRN",19,11027,-1)
6480^3
649"KRN",19,11027,0)
650C0Q EDIT INP PARMS^INP EDIT PARMS^^E^^^^^^^^^y^^
651"KRN",19,11027,15)
652
653"KRN",19,11027,20)
654
655"KRN",19,11027,30)
656C0Q(401,
657"KRN",19,11027,31)
658AEMQL
659"KRN",19,11027,50)
660C0Q(401,
661"KRN",19,11027,51)
662[C0Q EDIT INPATIENT PARMS]
663"KRN",19,11027,"U")
664INP EDIT PARMS
665"KRN",19,11028,-1)
6660^2
667"KRN",19,11028,0)
668C0Q EDIT OUTPATIENT PARMS^EP EDIT PARMS^^E^^^^^^^^QUALITY MEASURES^y^^
669"KRN",19,11028,15)
670
671"KRN",19,11028,20)
672
673"KRN",19,11028,30)
674C0Q(401,
675"KRN",19,11028,31)
676AEMQL
677"KRN",19,11028,50)
678C0Q(401,
679"KRN",19,11028,51)
680[C0Q EDIT OUPATIENT PARMS]
681"KRN",19,11028,"U")
682EP EDIT PARMS
683"KRN",19,11029,-1)
6840^1
685"KRN",19,11029,0)
686C0Q EDIT SUPERUSERS^EDIT SUPERUSERS^^E^^^^^^^^^y
687"KRN",19,11029,30)
688C0Q(401,
689"KRN",19,11029,31)
690AEMQ
691"KRN",19,11029,50)
692C0Q(401,
693"KRN",19,11029,51)
694[C0Q EDIT SUPERUSERS]
695"KRN",19,11029,"U")
696EDIT SUPERUSERS
697"KRN",19,11030,-1)
6980^4
699"KRN",19,11030,0)
700C0Q EDIT MEASURE SET^MEASURE SET EDIT^^E^^^^^^^^QUALITY MEASURES^y^^
701"KRN",19,11030,15)
702
703"KRN",19,11030,20)
704
705"KRN",19,11030,30)
706C0Q(201,
707"KRN",19,11030,31)
708AEMQL
709"KRN",19,11030,50)
710C0Q(201,
711"KRN",19,11030,51)
712[C0Q EDIT MEASURE SET]
713"KRN",19,11030,"U")
714MEASURE SET EDIT
715"KRN",19,11031,-1)
7160^6
717"KRN",19,11031,0)
718C0Q EDIT QUALITY MEASURE^QUALITY MEASURE EDIT^^E^^^^^^^^^y^^
719"KRN",19,11031,15)
720
721"KRN",19,11031,20)
722
723"KRN",19,11031,30)
724C0Q(101,
725"KRN",19,11031,31)
726AEMQL
727"KRN",19,11031,50)
728C0Q(101,
729"KRN",19,11031,51)
730[C0Q EDIT QUALITY MEASURE]
731"KRN",19,11031,"U")
732QUALITY MEASURE EDIT
733"KRN",19,11032,-1)
7340^5
735"KRN",19,11032,0)
736C0Q EDIT MU MEASURE^MU MEASURE EDIT^^E^^^^^^^^QUALITY MEASURES^y^^
737"KRN",19,11032,15)
738
739"KRN",19,11032,20)
740
741"KRN",19,11032,30)
742C0Q(101,
743"KRN",19,11032,31)
744AEMQL
745"KRN",19,11032,50)
746C0Q(101,
747"KRN",19,11032,51)
748[C0Q EDIT MU MEASURE]
749"KRN",19,11032,"U")
750MU MEASURE EDIT
751"MBREQ")
7520
753"ORD",18,19)
75419;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
755"ORD",18,19,0)
756OPTION
757"PKG",214,-1)
7581^1
759"PKG",214,0)
760QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures
761"PKG",214,20,0)
762^9.402P^^
763"PKG",214,22,0)
764^9.49I^1^1
765"PKG",214,22,1,0)
7661.0^3120731^3121002^8
767"PKG",214,22,1,"PAH",1,0)
7685^3121018
769"PKG",214,22,1,"PAH",1,1,0)
770^^171^171^3121018
771"PKG",214,22,1,"PAH",1,1,1,0)
772TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES
773"PKG",214,22,1,"PAH",1,1,2,0)
774NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO
775"PKG",214,22,1,"PAH",1,1,3,0)
776
777"PKG",214,22,1,"PAH",1,1,4,0)
778DESCRIPTION:
779"PKG",214,22,1,"PAH",1,1,5,0)
780============
781"PKG",214,22,1,"PAH",1,1,6,0)
782Written by Sam Habiel on 17 October 2012 and released through VISTA Forum.
783"PKG",214,22,1,"PAH",1,1,7,0)
784
785"PKG",214,22,1,"PAH",1,1,8,0)
786Licensed under package license (currently GPL 2.0)
787"PKG",214,22,1,"PAH",1,1,9,0)
788
789"PKG",214,22,1,"PAH",1,1,10,0)
790FUNCTIONALITY:
791"PKG",214,22,1,"PAH",1,1,11,0)
792==============
793"PKG",214,22,1,"PAH",1,1,12,0)
794This build fixes various bugs in the Quality Measurements package
795"PKG",214,22,1,"PAH",1,1,13,0)
796discovered during testing.
797"PKG",214,22,1,"PAH",1,1,14,0)
798
799"PKG",214,22,1,"PAH",1,1,15,0)
800 1. Empty lists are created in advance for Outpatients. Previously, they
801"PKG",214,22,1,"PAH",1,1,16,0)
802were not created, even though an entry point existed (INITCLST).
803"PKG",214,22,1,"PAH",1,1,17,0)
804
805"PKG",214,22,1,"PAH",1,1,18,0)
806 2. The Vitals lookup code that calls CPRS code didn't include today.
807"PKG",214,22,1,"PAH",1,1,19,0)
808This was fixed by adding .999999 to today's date.
809"PKG",214,22,1,"PAH",1,1,20,0)
810
811"PKG",214,22,1,"PAH",1,1,21,0)
812 3. File security (@ sign everywhere) didn't permit normal users to edit
813"PKG",214,22,1,"PAH",1,1,22,0)
814the file. Previous, I defeated the @ sign protection by setting DLAYGO.
815"PKG",214,22,1,"PAH",1,1,23,0)
816However, DLAYGO got killed by Fileman after each edit, which meant that
817"PKG",214,22,1,"PAH",1,1,24,0)
818you can only edit one entry at a time before heading back out and back in
819"PKG",214,22,1,"PAH",1,1,25,0)
820to edit another entry. After discussion with Fileman developers, the
821"PKG",214,22,1,"PAH",1,1,26,0)
822proper way to do this was to not to use DLAYGO but rather remove the @
823"PKG",214,22,1,"PAH",1,1,27,0)
824signs for Read, Write, and Laygo in the Files Definitions.
825"PKG",214,22,1,"PAH",1,1,28,0)
826
827"PKG",214,22,1,"PAH",1,1,29,0)
828 - File list where protections were changed.
829"PKG",214,22,1,"PAH",1,1,30,0)
830 --> C0Q MEASUREMENT SET (1130580001.201)
831"PKG",214,22,1,"PAH",1,1,31,0)
832 --> C0Q QUALITY MEASURE (1130580001.101)
833"PKG",214,22,1,"PAH",1,1,32,0)
834 --> C0Q PARAMETER (1130580001.401)
835"PKG",214,22,1,"PAH",1,1,33,0)
836
837"PKG",214,22,1,"PAH",1,1,34,0)
838 - Options which don't use DLAYGO anymore.
839"PKG",214,22,1,"PAH",1,1,35,0)
840 --> EDIT SUPERUSERS [C0Q EDIT SUPERUSERS]
841"PKG",214,22,1,"PAH",1,1,36,0)
842 --> EP EDIT PARMS [C0Q EDIT OUTPATIENT PARMS]
843"PKG",214,22,1,"PAH",1,1,37,0)
844 --> INP EDIT PARMS [C0Q EDIT INP PARMS]
845"PKG",214,22,1,"PAH",1,1,38,0)
846 --> MEASURE SET EDIT [C0Q EDIT MEASURE SET]
847"PKG",214,22,1,"PAH",1,1,39,0)
848 --> MU MEASURE EDIT [C0Q EDIT MU MEASURE]
849"PKG",214,22,1,"PAH",1,1,40,0)
850 --> QUALITY MEASURE EDIT [C0Q EDIT QUALITY MEASURE]
851"PKG",214,22,1,"PAH",1,1,41,0)
852
853"PKG",214,22,1,"PAH",1,1,42,0)
8544. The Outpatient Quality Measurement Set which is specified in the
855"PKG",214,22,1,"PAH",1,1,43,0)
856Parameters was being completely ignored. This is fixed.
857"PKG",214,22,1,"PAH",1,1,44,0)
858
859"PKG",214,22,1,"PAH",1,1,45,0)
8605. The variable C0QNALT was not being newed in C0QUPDT. It acts as a flag
861"PKG",214,22,1,"PAH",1,1,46,0)
862indicating the type of measure (Performance vs Quality Measure). Since it
863"PKG",214,22,1,"PAH",1,1,47,0)
864was left lying around, a Quality Measure was mistakenly interpreted as a
865"PKG",214,22,1,"PAH",1,1,48,0)
866performance measure, giving you a result of zero, since there is no
867"PKG",214,22,1,"PAH",1,1,49,0)
868data for this Quality Measure.
869"PKG",214,22,1,"PAH",1,1,50,0)
870
871"PKG",214,22,1,"PAH",1,1,51,0)
8726. The option that executes the logic for Outpatients C0Q EP UPDATE MU
873"PKG",214,22,1,"PAH",1,1,52,0)
874MEASURES didn't display the time on the dates of the Visits being
875"PKG",214,22,1,"PAH",1,1,53,0)
876processed correctly. This patch fixes this.
877"PKG",214,22,1,"PAH",1,1,54,0)
878
879"PKG",214,22,1,"PAH",1,1,55,0)
880SUPPORT TICKETS:
881"PKG",214,22,1,"PAH",1,1,56,0)
882================
883"PKG",214,22,1,"PAH",1,1,57,0)
884None
885"PKG",214,22,1,"PAH",1,1,58,0)
886
887"PKG",214,22,1,"PAH",1,1,59,0)
888PACKAGE ELEMENTS:
889"PKG",214,22,1,"PAH",1,1,60,0)
890=================
891"PKG",214,22,1,"PAH",1,1,61,0)
892
893"PKG",214,22,1,"PAH",1,1,62,0)
894ENVIRONMENT CHECK: DELETE ENV ROUTINE:
895"PKG",214,22,1,"PAH",1,1,63,0)
896 PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE:
897"PKG",214,22,1,"PAH",1,1,64,0)
898POST-INIT ROUTINE: POST^C0Q1P5 DELETE POST-INIT ROUTINE: No
899"PKG",214,22,1,"PAH",1,1,65,0)
900PRE-TRANSPORT RTN: TRAN^C0Q1P5
901"PKG",214,22,1,"PAH",1,1,66,0)
902
903"PKG",214,22,1,"PAH",1,1,67,0)
904 UP SEND DATA USER
905"PKG",214,22,1,"PAH",1,1,68,0)
906 DATE SEC. COMES SITE RSLV OVER
907"PKG",214,22,1,"PAH",1,1,69,0)
908FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE
909"PKG",214,22,1,"PAH",1,1,70,0)
910-------------------------------------------------------------------------------
911"PKG",214,22,1,"PAH",1,1,71,0)
912
913"PKG",214,22,1,"PAH",1,1,72,0)
9141130580001.101C0Q QUALITY MEASURE YES YES NO
915"PKG",214,22,1,"PAH",1,1,73,0)
916
917"PKG",214,22,1,"PAH",1,1,74,0)
9181130580001.201C0Q MEASUREMENT SET YES YES NO
919"PKG",214,22,1,"PAH",1,1,75,0)
920
921"PKG",214,22,1,"PAH",1,1,76,0)
922 UP SEND DATA USER
923"PKG",214,22,1,"PAH",1,1,77,0)
924 DATE SEC. COMES SITE RSLV OVER
925"PKG",214,22,1,"PAH",1,1,78,0)
926FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE
927"PKG",214,22,1,"PAH",1,1,79,0)
928-------------------------------------------------------------------------------
929"PKG",214,22,1,"PAH",1,1,80,0)
930
931"PKG",214,22,1,"PAH",1,1,81,0)
9321130580001.401C0Q PARAMETER YES YES NO
933"PKG",214,22,1,"PAH",1,1,82,0)
934
935"PKG",214,22,1,"PAH",1,1,83,0)
936ROUTINE: ACTION:
937"PKG",214,22,1,"PAH",1,1,84,0)
938 C0Q1P5 SEND TO SITE
939"PKG",214,22,1,"PAH",1,1,85,0)
940 C0QMU12 SEND TO SITE
941"PKG",214,22,1,"PAH",1,1,86,0)
942 C0QUPDT SEND TO SITE
943"PKG",214,22,1,"PAH",1,1,87,0)
944
945"PKG",214,22,1,"PAH",1,1,88,0)
946OPTION: ACTION:
947"PKG",214,22,1,"PAH",1,1,89,0)
948 C0Q EDIT INP PARMS SEND TO SITE
949"PKG",214,22,1,"PAH",1,1,90,0)
950 C0Q EDIT MEASURE SET SEND TO SITE
951"PKG",214,22,1,"PAH",1,1,91,0)
952 C0Q EDIT MU MEASURE SEND TO SITE
953"PKG",214,22,1,"PAH",1,1,92,0)
954 C0Q EDIT OUTPATIENT PARMS SEND TO SITE
955"PKG",214,22,1,"PAH",1,1,93,0)
956 C0Q EDIT QUALITY MEASURE SEND TO SITE
957"PKG",214,22,1,"PAH",1,1,94,0)
958 C0Q EDIT SUPERUSERS SEND TO SITE
959"PKG",214,22,1,"PAH",1,1,95,0)
960
961"PKG",214,22,1,"PAH",1,1,96,0)
962DOCUMENTATION:
963"PKG",214,22,1,"PAH",1,1,97,0)
964==============
965"PKG",214,22,1,"PAH",1,1,98,0)
966http://www.vistapedia.com/index.php/C0Q_Quality_Reporting_1.0
967"PKG",214,22,1,"PAH",1,1,99,0)
968
969"PKG",214,22,1,"PAH",1,1,100,0)
970COMPLIANCE:
971"PKG",214,22,1,"PAH",1,1,101,0)
972===========
973"PKG",214,22,1,"PAH",1,1,102,0)
974This software complies with the VA MUMPS Programming Standards and
975"PKG",214,22,1,"PAH",1,1,103,0)
976 Conventions (version 3 April 2007), except for the following:
977"PKG",214,22,1,"PAH",1,1,104,0)
978
979"PKG",214,22,1,"PAH",1,1,105,0)
980 C0QMU12 * * 541 Lines, 18707 Bytes, Checksum: B280797584
981"PKG",214,22,1,"PAH",1,1,106,0)
982 S - Routine code exceeds SACC maximum size of 15000 (15513).
983"PKG",214,22,1,"PAH",1,1,107,0)
984
985"PKG",214,22,1,"PAH",1,1,108,0)
986Blood Bank Clearance: This software doesn't interact with the Blood Bank module.
987"PKG",214,22,1,"PAH",1,1,109,0)
988
989"PKG",214,22,1,"PAH",1,1,110,0)
990Installation Instructions:
991"PKG",214,22,1,"PAH",1,1,111,0)
992==========================
993"PKG",214,22,1,"PAH",1,1,112,0)
994Install Time - less than 1 minute.
995"PKG",214,22,1,"PAH",1,1,113,0)
996
997"PKG",214,22,1,"PAH",1,1,114,0)
998 1. LOAD TRANSPORT GLOBAL
999"PKG",214,22,1,"PAH",1,1,115,0)
1000
1001"PKG",214,22,1,"PAH",1,1,116,0)
1002 Choose the PackMan message containing this patch and invoke the
1003"PKG",214,22,1,"PAH",1,1,117,0)
1004 INSTALL/CHECK MESSAGE PackMan option to unload the build.
1005"PKG",214,22,1,"PAH",1,1,118,0)
1006
1007"PKG",214,22,1,"PAH",1,1,119,0)
1008 2. START UP KIDS
1009"PKG",214,22,1,"PAH",1,1,120,0)
1010
1011"PKG",214,22,1,"PAH",1,1,121,0)
1012 Start up the Kernel Installation and Distribution System Menu
1013"PKG",214,22,1,"PAH",1,1,122,0)
1014 [XPD MAIN]:
1015"PKG",214,22,1,"PAH",1,1,123,0)
1016
1017"PKG",214,22,1,"PAH",1,1,124,0)
1018 Edits and Distribution ...
1019"PKG",214,22,1,"PAH",1,1,125,0)
1020 Utilities ...
1021"PKG",214,22,1,"PAH",1,1,126,0)
1022 Installation ...
1023"PKG",214,22,1,"PAH",1,1,127,0)
1024
1025"PKG",214,22,1,"PAH",1,1,128,0)
1026 Select Kernel Installation & Distribution System Option: INStallation
1027"PKG",214,22,1,"PAH",1,1,129,0)
1028 ---
1029"PKG",214,22,1,"PAH",1,1,130,0)
1030 Load a Distribution
1031"PKG",214,22,1,"PAH",1,1,131,0)
1032 Print Transport Global
1033"PKG",214,22,1,"PAH",1,1,132,0)
1034 Compare Transport Global to Current System
1035"PKG",214,22,1,"PAH",1,1,133,0)
1036 Verify Checksums in Transport Global
1037"PKG",214,22,1,"PAH",1,1,134,0)
1038 Install Package(s)
1039"PKG",214,22,1,"PAH",1,1,135,0)
1040 Restart Install of Package(s)
1041"PKG",214,22,1,"PAH",1,1,136,0)
1042 Unload a Distribution
1043"PKG",214,22,1,"PAH",1,1,137,0)
1044 Backup a Transport Global
1045"PKG",214,22,1,"PAH",1,1,138,0)
1046
1047"PKG",214,22,1,"PAH",1,1,139,0)
1048 Select Installation Option:
1049"PKG",214,22,1,"PAH",1,1,140,0)
1050
1051"PKG",214,22,1,"PAH",1,1,141,0)
1052 3. Select Installation Option:
1053"PKG",214,22,1,"PAH",1,1,142,0)
1054
1055"PKG",214,22,1,"PAH",1,1,143,0)
1056 NOTE: The following are OPTIONAL - (When prompted for the INSTALL
1057"PKG",214,22,1,"PAH",1,1,144,0)
1058 NAME, enter C0Q*1.0*5):
1059"PKG",214,22,1,"PAH",1,1,145,0)
1060
1061"PKG",214,22,1,"PAH",1,1,146,0)
1062 a. Backup a Transport Global - This option will create a backup
1063"PKG",214,22,1,"PAH",1,1,147,0)
1064 message of any routines exported with this patch. It will not
1065"PKG",214,22,1,"PAH",1,1,148,0)
1066 backup any other changes such as DD's or templates.
1067"PKG",214,22,1,"PAH",1,1,149,0)
1068 b. Compare Transport Global to Current System - This option will
1069"PKG",214,22,1,"PAH",1,1,150,0)
1070 allow you to view all changes that will be made when this patch
1071"PKG",214,22,1,"PAH",1,1,151,0)
1072 is installed. It compares all components of this patch
1073"PKG",214,22,1,"PAH",1,1,152,0)
1074 (routines, DD's, templates, etc.).
1075"PKG",214,22,1,"PAH",1,1,153,0)
1076 c. Verify Checksums in Transport Global - This option will allow
1077"PKG",214,22,1,"PAH",1,1,154,0)
1078 you to ensure the integrity of the routines that are in the
1079"PKG",214,22,1,"PAH",1,1,155,0)
1080 transport global.
1081"PKG",214,22,1,"PAH",1,1,156,0)
1082
1083"PKG",214,22,1,"PAH",1,1,157,0)
1084 4. Select Installation Option: Install Package(s)
1085"PKG",214,22,1,"PAH",1,1,158,0)
1086
1087"PKG",214,22,1,"PAH",1,1,159,0)
1088 **This is the step to start the installation of this KIDS patch:
1089"PKG",214,22,1,"PAH",1,1,160,0)
1090
1091"PKG",214,22,1,"PAH",1,1,161,0)
1092 a. Choose the Install Package(s) option to start the patch install
1093"PKG",214,22,1,"PAH",1,1,162,0)
1094 and enter "C0Q*1.0*5" at the INSTALL NAME prompt. As part of the
1095"PKG",214,22,1,"PAH",1,1,163,0)
1096 Environment Check routine, the message below will display
1097"PKG",214,22,1,"PAH",1,1,164,0)
1098 b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of
1099"PKG",214,22,1,"PAH",1,1,165,0)
1100 Install? NO//' answer NO
1101"PKG",214,22,1,"PAH",1,1,166,0)
1102 c. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
1103"PKG",214,22,1,"PAH",1,1,167,0)
1104 NO//' answer NO
1105"PKG",214,22,1,"PAH",1,1,168,0)
1106 d. When prompted 'Want to DISABLE Scheduled Options, Menu Options,
1107"PKG",214,22,1,"PAH",1,1,169,0)
1108 and Protocols? NO//' answer NO
1109"PKG",214,22,1,"PAH",1,1,170,0)
1110
1111"PKG",214,22,1,"PAH",1,1,171,0)
1112 5. Post installation: No post installation tasks are necessary.
1113"QUES","XPF1",0)
1114Y
1115"QUES","XPF1","??")
1116^D REP^XPDH
1117"QUES","XPF1","A")
1118Shall I write over your |FLAG| File
1119"QUES","XPF1","B")
1120YES
1121"QUES","XPF1","M")
1122D XPF1^XPDIQ
1123"QUES","XPF2",0)
1124Y
1125"QUES","XPF2","??")
1126^D DTA^XPDH
1127"QUES","XPF2","A")
1128Want my data |FLAG| yours
1129"QUES","XPF2","B")
1130YES
1131"QUES","XPF2","M")
1132D XPF2^XPDIQ
1133"QUES","XPI1",0)
1134YO
1135"QUES","XPI1","??")
1136^D INHIBIT^XPDH
1137"QUES","XPI1","A")
1138Want KIDS to INHIBIT LOGONs during the install
1139"QUES","XPI1","B")
1140NO
1141"QUES","XPI1","M")
1142D XPI1^XPDIQ
1143"QUES","XPM1",0)
1144PO^VA(200,:EM
1145"QUES","XPM1","??")
1146^D MG^XPDH
1147"QUES","XPM1","A")
1148Enter the Coordinator for Mail Group '|FLAG|'
1149"QUES","XPM1","B")
1150
1151"QUES","XPM1","M")
1152D XPM1^XPDIQ
1153"QUES","XPO1",0)
1154Y
1155"QUES","XPO1","??")
1156^D MENU^XPDH
1157"QUES","XPO1","A")
1158Want KIDS to Rebuild Menu Trees Upon Completion of Install
1159"QUES","XPO1","B")
1160NO
1161"QUES","XPO1","M")
1162D XPO1^XPDIQ
1163"QUES","XPZ1",0)
1164Y
1165"QUES","XPZ1","??")
1166^D OPT^XPDH
1167"QUES","XPZ1","A")
1168Want to DISABLE Scheduled Options, Menu Options, and Protocols
1169"QUES","XPZ1","B")
1170NO
1171"QUES","XPZ1","M")
1172D XPZ1^XPDIQ
1173"QUES","XPZ2",0)
1174Y
1175"QUES","XPZ2","??")
1176^D RTN^XPDH
1177"QUES","XPZ2","A")
1178Want to MOVE routines to other CPUs
1179"QUES","XPZ2","B")
1180NO
1181"QUES","XPZ2","M")
1182D XPZ2^XPDIQ
1183"RTN")
11843
1185"RTN","C0Q1P5")
11860^3^B619258
1187"RTN","C0Q1P5",1,0)
1188C0Q1P5 ; VEN/SMH - KIDS not transporting Security Codes; workaround. ; 10/17/12 12:12pm
1189"RTN","C0Q1P5",2,0)
1190 ;;1.0;QUALITY MEASURES;**5**;Oct 17, 2012;Build 10
1191"RTN","C0Q1P5",3,0)
1192 ;;
1193"RTN","C0Q1P5",4,0)
1194 ; PEPs: TRAN, POST
1195"RTN","C0Q1P5",5,0)
1196 ;
1197"RTN","C0Q1P5",6,0)
1198 ; ZEXCEPT: XPDGREF
1199"RTN","C0Q1P5",7,0)
1200TRAN ; Pre-transport hook
1201"RTN","C0Q1P5",8,0)
1202 M @XPDGREF@(1130580001.101)=^DIC(1130580001.101)
1203"RTN","C0Q1P5",9,0)
1204 M @XPDGREF@(1130580001.201)=^DIC(1130580001.201)
1205"RTN","C0Q1P5",10,0)
1206 M @XPDGREF@(1130580001.401)=^DIC(1130580001.401)
1207"RTN","C0Q1P5",11,0)
1208 QUIT
1209"RTN","C0Q1P5",12,0)
1210 ;
1211"RTN","C0Q1P5",13,0)
1212 ; ZEXCEPT: XPDGREF
1213"RTN","C0Q1P5",14,0)
1214POST ; Post-install hook
1215"RTN","C0Q1P5",15,0)
1216 M ^DIC(1130580001.101)=@XPDGREF@(1130580001.101)
1217"RTN","C0Q1P5",16,0)
1218 M ^DIC(1130580001.201)=@XPDGREF@(1130580001.201)
1219"RTN","C0Q1P5",17,0)
1220 M ^DIC(1130580001.401)=@XPDGREF@(1130580001.401)
1221"RTN","C0Q1P5",18,0)
1222 QUIT
1223"RTN","C0QMU12")
12240^1^B280797584
1225"RTN","C0QMU12",1,0)
1226C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/17/12 12:52pm
1227"RTN","C0QMU12",2,0)
1228 ;;1.0;QUALITY MEASURES;**1,5**;May 21, 2012;Build 10
1229"RTN","C0QMU12",3,0)
1230 ;
1231"RTN","C0QMU12",4,0)
1232 ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU
1233"RTN","C0QMU12",5,0)
1234 ;General Public License See attached copy of the License.
1235"RTN","C0QMU12",6,0)
1236 ;
1237"RTN","C0QMU12",7,0)
1238 ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED
1239"RTN","C0QMU12",8,0)
1240 ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL
1241"RTN","C0QMU12",9,0)
1242 ;
1243"RTN","C0QMU12",10,0)
1244C0QPFN() Q 1130580001.401 ; PARAMETER FILE
1245"RTN","C0QMU12",11,0)
1246C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE
1247"RTN","C0QMU12",12,0)
1248C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE
1249"RTN","C0QMU12",13,0)
1250C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE
1251"RTN","C0QMU12",14,0)
1252INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS
1253"RTN","C0QMU12",15,0)
1254 ; ZARY IS PASSED BY NAME
1255"RTN","C0QMU12",16,0)
1256 ; ZTYP IS "INP" OR "EP"
1257"RTN","C0QMU12",17,0)
1258 N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT
1259"RTN","C0QMU12",18,0)
1260 ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS
1261"RTN","C0QMU12",19,0)
1262 K @ZARY ; CLEAR RETURN ARRAY
1263"RTN","C0QMU12",20,0)
1264 N ZIEN,ZCNT,ZX
1265"RTN","C0QMU12",21,0)
1266 I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE
1267"RTN","C0QMU12",22,0)
1268 . W !,"ERROR, NO PARAMETERS AVAILABLE"
1269"RTN","C0QMU12",23,0)
1270 S ZIEN=""
1271"RTN","C0QMU12",24,0)
1272 S ZCNT=0
1273"RTN","C0QMU12",25,0)
1274 F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ;
1275"RTN","C0QMU12",26,0)
1276 . S ZCNT=ZCNT+1
1277"RTN","C0QMU12",27,0)
1278 . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02)
1279"RTN","C0QMU12",28,0)
1280 . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03)
1281"RTN","C0QMU12",29,0)
1282 . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I")
1283"RTN","C0QMU12",30,0)
1284 . S @ZARY@(ZCNT,"InpatientMeasurementSet")=ZX
1285"RTN","C0QMU12",31,0)
1286 . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I")
1287"RTN","C0QMU12",32,0)
1288 . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I")
1289"RTN","C0QMU12",33,0)
1290 . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I")
1291"RTN","C0QMU12",34,0)
1292 . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I")
1293"RTN","C0QMU12",35,0)
1294 . S @ZARY@(ZCNT,"EPMeasurementSet")=ZX
1295"RTN","C0QMU12",36,0)
1296 . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I")
1297"RTN","C0QMU12",37,0)
1298 . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I")
1299"RTN","C0QMU12",38,0)
1300 . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I")
1301"RTN","C0QMU12",39,0)
1302 . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I")
1303"RTN","C0QMU12",40,0)
1304 . D CLEAN^DILF
1305"RTN","C0QMU12",41,0)
1306 . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I")
1307"RTN","C0QMU12",42,0)
1308 . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST
1309"RTN","C0QMU12",43,0)
1310 . . W !,"ERROR READING CLINIC PARAMETER LIST"
1311"RTN","C0QMU12",44,0)
1312 . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J)
1313"RTN","C0QMU12",45,0)
1314 ;
1315"RTN","C0QMU12",46,0)
1316 Q
1317"RTN","C0QMU12",47,0)
1318 ;
1319"RTN","C0QMU12",48,0)
1320BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create
1321"RTN","C0QMU12",49,0)
1322 ; patient lists
1323"RTN","C0QMU12",50,0)
1324 ;N GRSLT ; ARRAY FOR RESULTS
1325"RTN","C0QMU12",51,0)
1326 I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array
1327"RTN","C0QMU12",52,0)
1328 I '$D(C0QPR) S C0QPR=0 ;default don't print out results
1329"RTN","C0QMU12",53,0)
1330 I '$D(C0QPL) S C0QPL=1 ;default do create patient lists
1331"RTN","C0QMU12",54,0)
1332 S ZYR="MU12-"
1333"RTN","C0QMU12",55,0)
1334 D INITCLST ; initialize C0QLIST
1335"RTN","C0QMU12",56,0)
1336 N G1 ; ONE SET OF VALUES - RNF1 FORMAT
1337"RTN","C0QMU12",57,0)
1338 N C0QPARM
1339"RTN","C0QMU12",58,0)
1340 D INIT("C0QPARM","INP") ; initialize inpatient parms
1341"RTN","C0QMU12",59,0)
1342 I $O(C0QPARM(""))="" D Q ; no parms for inpatient
1343"RTN","C0QMU12",60,0)
1344 . W !,"No inpatient parameters"
1345"RTN","C0QMU12",61,0)
1346 N ZDIV S ZDIV=""
1347"RTN","C0QMU12",62,0)
1348 F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division
1349"RTN","C0QMU12",63,0)
1350 . D ALL ; all currently admitted patients in the hospital
1351"RTN","C0QMU12",64,0)
1352 . D DIS ; all patients discharged since the reporting period began
1353"RTN","C0QMU12",65,0)
1354 . I C0QSS D ZWRITE^C0QUTIL("GRSLT")
1355"RTN","C0QMU12",66,0)
1356 . ;D ICUPAT ; GENERATE ICU PATIENT LIST
1357"RTN","C0QMU12",67,0)
1358 . I C0QPL D ;
1359"RTN","C0QMU12",68,0)
1360 . . D FILE ; FILE THE PATIENT LISTS
1361"RTN","C0QMU12",69,0)
1362 . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ;
1363"RTN","C0QMU12",70,0)
1364 . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ;
1365"RTN","C0QMU12",71,0)
1366 . K C0QLIST
1367"RTN","C0QMU12",72,0)
1368 Q
1369"RTN","C0QMU12",73,0)
1370 ;
1371"RTN","C0QMU12",74,0)
1372INITCLST ; initialize C0QLIST
1373"RTN","C0QMU12",75,0)
1374 ; INITIALIZE LISTS
1375"RTN","C0QMU12",76,0)
1376 ; this is done so that if there are no matching patients, the patient list
1377"RTN","C0QMU12",77,0)
1378 ; will be zeroed out
1379"RTN","C0QMU12",78,0)
1380 ; K C0QLIST - VEN/SMH - Oops, we kill the previous lists!!!
1381"RTN","C0QMU12",79,0)
1382 S C0QLIST(ZYR_"HasDemographics")=""
1383"RTN","C0QMU12",80,0)
1384 S C0QLIST(ZYR_"Patient")="" ; VEN/SMH - Is this needed? Not used in EP.
1385"RTN","C0QMU12",81,0)
1386 S C0QLIST(ZYR_"HasProblem")=""
1387"RTN","C0QMU12",82,0)
1388 S C0QLIST(ZYR_"HasAllergy")=""
1389"RTN","C0QMU12",83,0)
1390 S C0QLIST(ZYR_"HasMed")=""
1391"RTN","C0QMU12",84,0)
1392 S C0QLIST(ZYR_"HasERX")="" ; VEN/SMH C0Q*1*5
1393"RTN","C0QMU12",85,0)
1394 S C0QLIST(ZYR_"HasMedRecon")="" ; VEN/SMH C0Q*1*5
1395"RTN","C0QMU12",86,0)
1396 S C0QLIST(ZYR_"HasVitalSigns")=""
1397"RTN","C0QMU12",87,0)
1398 S C0QLIST(ZYR_"HasMedOrders")=""
1399"RTN","C0QMU12",88,0)
1400 S C0QLIST(ZYR_"HasSmokingStatus")=""
1401"RTN","C0QMU12",89,0)
1402 S C0QLIST(ZYR_"ALL-PATIENTS")="" ; VEN/SMH C0Q*1*5
1403"RTN","C0QMU12",90,0)
1404 Q
1405"RTN","C0QMU12",91,0)
1406 ;
1407"RTN","C0QMU12",92,0)
1408ALL ;retrieve active inpatients
1409"RTN","C0QMU12",93,0)
1410 N WARD S WARD=""
1411"RTN","C0QMU12",94,0)
1412 F D Q:WARD=""
1413"RTN","C0QMU12",95,0)
1414 . S WARD=$O(^DIC(42,"B",WARD)) ;ward name
1415"RTN","C0QMU12",96,0)
1416 . Q:WARD=""
1417"RTN","C0QMU12",97,0)
1418 . N WIEN S WIEN=""
1419"RTN","C0QMU12",98,0)
1420 . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN
1421"RTN","C0QMU12",99,0)
1422 . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name
1423"RTN","C0QMU12",100,0)
1424 . . N DFN,RB S DFN=""
1425"RTN","C0QMU12",101,0)
1426 . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward
1427"RTN","C0QMU12",102,0)
1428 . . . D DEMO^C0QMU122
1429"RTN","C0QMU12",103,0)
1430 . . . D PROBLEM
1431"RTN","C0QMU12",104,0)
1432 . . . D ALLERGY
1433"RTN","C0QMU12",105,0)
1434 . . . D MEDS4
1435"RTN","C0QMU12",106,0)
1436 . . . D RECON2
1437"RTN","C0QMU12",107,0)
1438 . . . D ADVDIR
1439"RTN","C0QMU12",108,0)
1440 . . . D SMOKING
1441"RTN","C0QMU12",109,0)
1442 . . . D VITALS
1443"RTN","C0QMU12",110,0)
1444 . . . D VTE1
1445"RTN","C0QMU12",111,0)
1446 . . . D COD
1447"RTN","C0QMU12",112,0)
1448 . . . D EDTIME
1449"RTN","C0QMU12",113,0)
1450 . . . I C0QPR D PRINT^C0QMU121
1451"RTN","C0QMU12",114,0)
1452 . . . I C0QSS D SS^C0QMU121
1453"RTN","C0QMU12",115,0)
1454 . . . I C0QPL D PATLIST^C0QMU121
1455"RTN","C0QMU12",116,0)
1456 Q
1457"RTN","C0QMU12",117,0)
1458 ;
1459"RTN","C0QMU12",118,0)
1460PROBLEM ; PATIENT PROBLEMS
1461"RTN","C0QMU12",119,0)
1462 D LIST^ORQQPL(.PROBL,DFN,"A")
1463"RTN","C0QMU12",120,0)
1464 S PBCNT=""
1465"RTN","C0QMU12",121,0)
1466 F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D
1467"RTN","C0QMU12",122,0)
1468 . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description
1469"RTN","C0QMU12",123,0)
1470 I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)=""
1471"RTN","C0QMU12",124,0)
1472 E S C0QLIST(ZYR_"HasProblem",DFN)=""
1473"RTN","C0QMU12",125,0)
1474 K PROBL
1475"RTN","C0QMU12",126,0)
1476 Q
1477"RTN","C0QMU12",127,0)
1478 ;
1479"RTN","C0QMU12",128,0)
1480ALLERGY ; ALLERGY LIST
1481"RTN","C0QMU12",129,0)
1482 ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL
1483"RTN","C0QMU12",130,0)
1484 D LIST^ORQQAL(.ALRGYL,DFN)
1485"RTN","C0QMU12",131,0)
1486 S ALCNT=""
1487"RTN","C0QMU12",132,0)
1488 F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D
1489"RTN","C0QMU12",133,0)
1490 . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description
1491"RTN","C0QMU12",134,0)
1492 I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)=""
1493"RTN","C0QMU12",135,0)
1494 E S C0QLIST(ZYR_"HasAllergy",DFN)=""
1495"RTN","C0QMU12",136,0)
1496 K ALRGYL
1497"RTN","C0QMU12",137,0)
1498 Q
1499"RTN","C0QMU12",138,0)
1500 ;
1501"RTN","C0QMU12",139,0)
1502MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS
1503"RTN","C0QMU12",140,0)
1504 ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4
1505"RTN","C0QMU12",141,0)
1506 N BEG,END
1507"RTN","C0QMU12",142,0)
1508 S BEG=$$DT^C0QUTIL("JULY 3,2011")
1509"RTN","C0QMU12",143,0)
1510 S END=$$DT^C0QUTIL("NOW")
1511"RTN","C0QMU12",144,0)
1512 D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400
1513"RTN","C0QMU12",145,0)
1514 N C0QMEDS
1515"RTN","C0QMU12",146,0)
1516 M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL
1517"RTN","C0QMU12",147,0)
1518 N FOUND
1519"RTN","C0QMU12",148,0)
1520 N ZI
1521"RTN","C0QMU12",149,0)
1522 I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS
1523"RTN","C0QMU12",150,0)
1524 . S C0QLIST(ZYR_"NoMed",DFN)=""
1525"RTN","C0QMU12",151,0)
1526 E D ; HAS MEDS
1527"RTN","C0QMU12",152,0)
1528 . S C0QLIST(ZYR_"HasMed",DFN)=""
1529"RTN","C0QMU12",153,0)
1530 S ZI="" S FOUND=0
1531"RTN","C0QMU12",154,0)
1532 F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED
1533"RTN","C0QMU12",155,0)
1534 . N ZM
1535"RTN","C0QMU12",156,0)
1536 . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION
1537"RTN","C0QMU12",157,0)
1538 . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE
1539"RTN","C0QMU12",158,0)
1540 . . S FOUND=1
1541"RTN","C0QMU12",159,0)
1542 I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE
1543"RTN","C0QMU12",160,0)
1544 E S C0QLIST(ZYR_"NoMedOrders",DFN)=""
1545"RTN","C0QMU12",161,0)
1546 Q
1547"RTN","C0QMU12",162,0)
1548 ;
1549"RTN","C0QMU12",163,0)
1550RECON ; MEDICATIONS RECONCILIATION
1551"RTN","C0QMU12",164,0)
1552 ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL
1553"RTN","C0QMU12",165,0)
1554 ;
1555"RTN","C0QMU12",166,0)
1556 I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ;
1557"RTN","C0QMU12",167,0)
1558 . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient
1559"RTN","C0QMU12",168,0)
1560 N HASRECON S HASRECON=0
1561"RTN","C0QMU12",169,0)
1562 N GT,G
1563"RTN","C0QMU12",170,0)
1564 S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")=""
1565"RTN","C0QMU12",171,0)
1566 S GT(5,"HasMedRecon","Medication Reconcilation Complete")=""
1567"RTN","C0QMU12",172,0)
1568 I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON
1569"RTN","C0QMU12",173,0)
1570 . S HASRECON=1
1571"RTN","C0QMU12",174,0)
1572 ;N ZT
1573"RTN","C0QMU12",175,0)
1574 ;S ZT="MEDICATION RECONCILIATION COMPLET"
1575"RTN","C0QMU12",176,0)
1576 ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ;
1577"RTN","C0QMU12",177,0)
1578 ;. S HASRECON=1
1579"RTN","C0QMU12",178,0)
1580 ;E D ;
1581"RTN","C0QMU12",179,0)
1582 ;. S ZT="Medication Reconcilation Complete"
1583"RTN","C0QMU12",180,0)
1584 ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ;
1585"RTN","C0QMU12",181,0)
1586 ;. . S HASRECON=1
1587"RTN","C0QMU12",182,0)
1588 ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1
1589"RTN","C0QMU12",183,0)
1590 I HASRECON D ;
1591"RTN","C0QMU12",184,0)
1592 . S C0QLIST(ZYR_"HasMedRecon",DFN)=""
1593"RTN","C0QMU12",185,0)
1594 E S C0QLIST(ZYR_"NoMedRecon",DFN)=""
1595"RTN","C0QMU12",186,0)
1596 Q
1597"RTN","C0QMU12",187,0)
1598 ;
1599"RTN","C0QMU12",188,0)
1600RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION
1601"RTN","C0QMU12",189,0)
1602 I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ;
1603"RTN","C0QMU12",190,0)
1604 . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient
1605"RTN","C0QMU12",191,0)
1606 I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ;
1607"RTN","C0QMU12",192,0)
1608 . S C0QLIST(ZYR_"HasMedRecon",DFN)=""
1609"RTN","C0QMU12",193,0)
1610 E S C0QLIST(ZYR_"NoMedRecon",DFN)=""
1611"RTN","C0QMU12",194,0)
1612 Q
1613"RTN","C0QMU12",195,0)
1614 ;
1615"RTN","C0QMU12",196,0)
1616ERX ; FOR EP, WE LOOK AT ERX MEDS
1617"RTN","C0QMU12",197,0)
1618 N ZI S ZI=""
1619"RTN","C0QMU12",198,0)
1620 N ZERX S ZERX=$NA(^PS(55,DFN,"NVA"))
1621"RTN","C0QMU12",199,0)
1622 F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ;
1623"RTN","C0QMU12",200,0)
1624 . ;B
1625"RTN","C0QMU12",201,0)
1626 . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ;
1627"RTN","C0QMU12",202,0)
1628 . . S C0QLIST(ZYR_"HasMed",DFN)=""
1629"RTN","C0QMU12",203,0)
1630 . . S C0QLIST(ZYR_"HasMedOrders",DFN)=""
1631"RTN","C0QMU12",204,0)
1632 . . S C0QLIST(ZYR_"HasERX",DFN)=""
1633"RTN","C0QMU12",205,0)
1634 . . S C0QLIST(ZYR_"HasMedRecon",DFN)=""
1635"RTN","C0QMU12",206,0)
1636 . E D ;
1637"RTN","C0QMU12",207,0)
1638 . . S C0QLIST(ZYR_"NoMed",DFN)=""
1639"RTN","C0QMU12",208,0)
1640 . . S C0QLIST(ZYR_"NoMedOrders",DFN)=""
1641"RTN","C0QMU12",209,0)
1642 . . S C0QLIST(ZYR_"NoERX",DFN)=""
1643"RTN","C0QMU12",210,0)
1644 . . S C0QLIST(ZYR_"NoMedRecon",DFN)=""
1645"RTN","C0QMU12",211,0)
1646 Q
1647"RTN","C0QMU12",212,0)
1648 ;
1649"RTN","C0QMU12",213,0)
1650ADVDIR ; ADVANCE DIRECTIVE
1651"RTN","C0QMU12",214,0)
1652 ;
1653"RTN","C0QMU12",215,0)
1654 I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER
1655"RTN","C0QMU12",216,0)
1656 . S C0QLIST(ZYR_"Over65",DFN)=""
1657"RTN","C0QMU12",217,0)
1658 . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ;
1659"RTN","C0QMU12",218,0)
1660 . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)=""
1661"RTN","C0QMU12",219,0)
1662 . E D ;
1663"RTN","C0QMU12",220,0)
1664 . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)=""
1665"RTN","C0QMU12",221,0)
1666 Q
1667"RTN","C0QMU12",222,0)
1668 ;
1669"RTN","C0QMU12",223,0)
1670SMOKING G SMOKING^C0QMU121
1671"RTN","C0QMU12",224,0)
1672VITALS ;
1673"RTN","C0QMU12",225,0)
1674 ;
1675"RTN","C0QMU12",226,0)
1676 N C0QSDT,C0QEDT
1677"RTN","C0QMU12",227,0)
1678 D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE
1679"RTN","C0QMU12",228,0)
1680 D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY
1681"RTN","C0QMU12",229,0)
1682 S C0QEDT=C0QEDT+.999999 ; Move to the end of the day! VEN/SMH C0Q*1*5
1683"RTN","C0QMU12",230,0)
1684 D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS
1685"RTN","C0QMU12",231,0)
1686 I $D(VITRSLT) D ;ZWR VITRSLT B ;
1687"RTN","C0QMU12",232,0)
1688 . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)=""
1689"RTN","C0QMU12",233,0)
1690 . E S C0QLIST(ZYR_"HasVitalSigns",DFN)=""
1691"RTN","C0QMU12",234,0)
1692 Q
1693"RTN","C0QMU12",235,0)
1694 ;
1695"RTN","C0QMU12",236,0)
1696VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL
1697"RTN","C0QMU12",237,0)
1698 ;
1699"RTN","C0QMU12",238,0)
1700 I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ;
1701"RTN","C0QMU12",239,0)
1702 . S C0QLIST(ZYR_"HasVTE24",DFN)=""
1703"RTN","C0QMU12",240,0)
1704 E S C0QLIST(ZYR_"NoVTE24",DFN)=""
1705"RTN","C0QMU12",241,0)
1706 Q
1707"RTN","C0QMU12",242,0)
1708 ;
1709"RTN","C0QMU12",243,0)
1710 ;
1711"RTN","C0QMU12",244,0)
1712 ;
1713"RTN","C0QMU12",245,0)
1714COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE
1715"RTN","C0QMU12",246,0)
1716 I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ;
1717"RTN","C0QMU12",247,0)
1718 . S C0QLIST(ZYR_"CauseOfDeath",DFN)=""
1719"RTN","C0QMU12",248,0)
1720 Q
1721"RTN","C0QMU12",249,0)
1722 ;
1723"RTN","C0QMU12",250,0)
1724EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS
1725"RTN","C0QMU12",251,0)
1726 N FOUND
1727"RTN","C0QMU12",252,0)
1728 S FOUND=0
1729"RTN","C0QMU12",253,0)
1730 I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1
1731"RTN","C0QMU12",254,0)
1732 I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0
1733"RTN","C0QMU12",255,0)
1734 I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0
1735"RTN","C0QMU12",256,0)
1736 I FOUND D ;
1737"RTN","C0QMU12",257,0)
1738 . S C0QLIST(ZYR_"HasEDtime",DFN)=""
1739"RTN","C0QMU12",258,0)
1740 E S C0QLIST(ZYR_"NoEDtime",DFN)=""
1741"RTN","C0QMU12",259,0)
1742 Q
1743"RTN","C0QMU12",260,0)
1744 ;
1745"RTN","C0QMU12",261,0)
1746ICUPAT ; CREATE LIST OF ICU PATIENTS
1747"RTN","C0QMU12",262,0)
1748 N ZICU
1749"RTN","C0QMU12",263,0)
1750 S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION
1751"RTN","C0QMU12",264,0)
1752 N ZI,ZJ,ZP
1753"RTN","C0QMU12",265,0)
1754 S ZI=""
1755"RTN","C0QMU12",266,0)
1756 F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE
1757"RTN","C0QMU12",267,0)
1758 . S ZJ=""
1759"RTN","C0QMU12",268,0)
1760 . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT
1761"RTN","C0QMU12",269,0)
1762 . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN
1763"RTN","C0QMU12",270,0)
1764 . . S C0QLIST(ZYR_"ICUPatient",ZP)=""
1765"RTN","C0QMU12",271,0)
1766 Q
1767"RTN","C0QMU12",272,0)
1768 ;
1769"RTN","C0QMU12",273,0)
1770FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED
1771"RTN","C0QMU12",274,0)
1772 ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING
1773"RTN","C0QMU12",275,0)
1774 K C0QLIST
1775"RTN","C0QMU12",276,0)
1776 N ZPAT
1777"RTN","C0QMU12",277,0)
1778 S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted
1779"RTN","C0QMU12",278,0)
1780 ; during the reporting period. used to filter other lists
1781"RTN","C0QMU12",279,0)
1782 ;
1783"RTN","C0QMU12",280,0)
1784 ; filter ICU patients against ZPAT
1785"RTN","C0QMU12",281,0)
1786 N GN,GO,GF
1787"RTN","C0QMU12",282,0)
1788 S GN=ZPAT
1789"RTN","C0QMU12",283,0)
1790 S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient
1791"RTN","C0QMU12",284,0)
1792 S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination
1793"RTN","C0QMU12",285,0)
1794 D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
1795"RTN","C0QMU12",286,0)
1796 ;
1797"RTN","C0QMU12",287,0)
1798 ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE
1799"RTN","C0QMU12",288,0)
1800 ;
1801"RTN","C0QMU12",289,0)
1802 S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period
1803"RTN","C0QMU12",290,0)
1804 S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR
1805"RTN","C0QMU12",291,0)
1806 S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL
1807"RTN","C0QMU12",292,0)
1808 D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
1809"RTN","C0QMU12",293,0)
1810 ;
1811"RTN","C0QMU12",294,0)
1812 S GN=ZPAT
1813"RTN","C0QMU12",295,0)
1814 S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR
1815"RTN","C0QMU12",296,0)
1816 S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL
1817"RTN","C0QMU12",297,0)
1818 D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
1819"RTN","C0QMU12",298,0)
1820 ;
1821"RTN","C0QMU12",299,0)
1822 S GN=ZPAT
1823"RTN","C0QMU12",300,0)
1824 S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR
1825"RTN","C0QMU12",301,0)
1826 S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL
1827"RTN","C0QMU12",302,0)
1828 D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
1829"RTN","C0QMU12",303,0)
1830 ;
1831"RTN","C0QMU12",304,0)
1832 S GN=ZPAT
1833"RTN","C0QMU12",305,0)
1834 S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR
1835"RTN","C0QMU12",306,0)
1836 S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL
1837"RTN","C0QMU12",307,0)
1838 D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
1839"RTN","C0QMU12",308,0)
1840 ;
1841"RTN","C0QMU12",309,0)
1842 D FILE ; FILE ALL THE PATIENT LISTS
1843"RTN","C0QMU12",310,0)
1844 D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set
1845"RTN","C0QMU12",311,0)
1846 Q
1847"RTN","C0QMU12",312,0)
1848 ;
1849"RTN","C0QMU12",313,0)
1850ED1 ;
1851"RTN","C0QMU12",314,0)
1852 S ZYR="MU12-"
1853"RTN","C0QMU12",315,0)
1854 D DOTIME^C0QMU121("ED DEPARTURE TIME")
1855"RTN","C0QMU12",316,0)
1856 Q
1857"RTN","C0QMU12",317,0)
1858 ;
1859"RTN","C0QMU12",318,0)
1860ED2 ;
1861"RTN","C0QMU12",319,0)
1862 S ZYR="MU12-"
1863"RTN","C0QMU12",320,0)
1864 D DOTIME2^C0QMU121("TIME DECISION TO ADMIT MADE")
1865"RTN","C0QMU12",321,0)
1866 Q
1867"RTN","C0QMU12",322,0)
1868 ;
1869"RTN","C0QMU12",323,0)
1870RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST
1871"RTN","C0QMU12",324,0)
1872 ; WHOSE NAME IS ZLST
1873"RTN","C0QMU12",325,0)
1874 N ZIEN,ZN
1875"RTN","C0QMU12",326,0)
1876 S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list
1877"RTN","C0QMU12",327,0)
1878 S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST
1879"RTN","C0QMU12",328,0)
1880 Q ZN
1881"RTN","C0QMU12",329,0)
1882 ;
1883"RTN","C0QMU12",330,0)
1884PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH
1885"RTN","C0QMU12",331,0)
1886 ; THE ATTRIBUTE ZATTR
1887"RTN","C0QMU12",332,0)
1888 N ZIEN,ZN
1889"RTN","C0QMU12",333,0)
1890 S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list
1891"RTN","C0QMU12",334,0)
1892 S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST
1893"RTN","C0QMU12",335,0)
1894 Q ZN
1895"RTN","C0QMU12",336,0)
1896 ;
1897"RTN","C0QMU12",337,0)
1898INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST
1899"RTN","C0QMU12",338,0)
1900 N ZL,ZR
1901"RTN","C0QMU12",339,0)
1902 S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE
1903"RTN","C0QMU12",340,0)
1904 I ZL="" Q 0 ; LIST DOES NOT EXIST
1905"RTN","C0QMU12",341,0)
1906 S ZR=0 ; ASSUME NOT IN LIST
1907"RTN","C0QMU12",342,0)
1908 I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST
1909"RTN","C0QMU12",343,0)
1910 Q ZR
1911"RTN","C0QMU12",344,0)
1912 ;
1913"RTN","C0QMU12",345,0)
1914LOCPAT(PREFIX,LOC) ;retrieve active outpatients
1915"RTN","C0QMU12",346,0)
1916 ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)=""
1917"RTN","C0QMU12",347,0)
1918 ; LOC IS HOSPITAL LOCATION
1919"RTN","C0QMU12",348,0)
1920 S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION
1921"RTN","C0QMU12",349,0)
1922 I ULOC="" D Q ; OOPS
1923"RTN","C0QMU12",350,0)
1924 . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC
1925"RTN","C0QMU12",351,0)
1926 S IDTE=9999999-DTE ; INVERSE DATE
1927"RTN","C0QMU12",352,0)
1928 N ZI
1929"RTN","C0QMU12",353,0)
1930 S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE
1931"RTN","C0QMU12",354,0)
1932 F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE
1933"RTN","C0QMU12",355,0)
1934 . N C0QDATE S C0QDATE=9999999-$P(ZI,".")_"."_$P(ZI,".",2) ; VEN/SMH *5
1935"RTN","C0QMU12",356,0)
1936 . W !,$$FMTE^XLFDT(C0QDATE) ; VEN/SMH *5
1937"RTN","C0QMU12",357,0)
1938 . I ZI="" Q ;
1939"RTN","C0QMU12",358,0)
1940 . N ZJ S ZJ=""
1941"RTN","C0QMU12",359,0)
1942 . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT
1943"RTN","C0QMU12",360,0)
1944 . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT
1945"RTN","C0QMU12",361,0)
1946 . . S C0QLIST(PREFIX_"Patient",DFN)=""
1947"RTN","C0QMU12",362,0)
1948 Q
1949"RTN","C0QMU12",363,0)
1950 ;
1951"RTN","C0QMU12",364,0)
1952EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS
1953"RTN","C0QMU12",365,0)
1954 ;
1955"RTN","C0QMU12",366,0)
1956 S DTE=3111000
1957"RTN","C0QMU12",367,0)
1958 S MUYR=ZYR
1959"RTN","C0QMU12",368,0)
1960 N ZC,ZN
1961"RTN","C0QMU12",369,0)
1962 S ZN=0
1963"RTN","C0QMU12",370,0)
1964 N ZI S ZI=0
1965"RTN","C0QMU12",371,0)
1966 F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION
1967"RTN","C0QMU12",372,0)
1968 . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC
1969"RTN","C0QMU12",373,0)
1970 . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC
1971"RTN","C0QMU12",374,0)
1972 . S ZCIEN=ZI ; IEN OF CLINIC
1973"RTN","C0QMU12",375,0)
1974 . S ZN=ZN+1 ; COUNT OF CLINICS
1975"RTN","C0QMU12",376,0)
1976 . S PRE=MUYR_"-EP-"_ZC_"-"
1977"RTN","C0QMU12",377,0)
1978 . D LOCPAT(PRE,ZC)
1979"RTN","C0QMU12",378,0)
1980 W !,"NUMBER OF CLINICS: ",ZN
1981"RTN","C0QMU12",379,0)
1982 D FILE ; CREATE ALL THE EP PATIENT LISTS
1983"RTN","C0QMU12",380,0)
1984 Q
1985"RTN","C0QMU12",381,0)
1986 ;
1987"RTN","C0QMU12",382,0)
1988DOEP ; DO EP COMPUTATIONS
1989"RTN","C0QMU12",383,0)
1990 S ZYR="MU12-"
1991"RTN","C0QMU12",384,0)
1992 N C0QPARM,C0QCLNC
1993"RTN","C0QMU12",385,0)
1994 D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS
1995"RTN","C0QMU12",386,0)
1996 K C0QLIST ; CLEAR THE LIST
1997"RTN","C0QMU12",387,0)
1998 N ZI S ZI=""
1999"RTN","C0QMU12",388,0)
2000 F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP
2001"RTN","C0QMU12",389,0)
2002 . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period
2003"RTN","C0QMU12",390,0)
2004 . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this
2005"RTN","C0QMU12",391,0)
2006 . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now
2007"RTN","C0QMU12",392,0)
2008 . S PRE=ZYR_"EP-"_C0QCLNC_"-"
2009"RTN","C0QMU12",393,0)
2010 . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS
2011"RTN","C0QMU12",394,0)
2012 . I $D(DEBUG) D ZWRITE^C0QUTIL("C0QLIST")
2013"RTN","C0QMU12",395,0)
2014 . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient")
2015"RTN","C0QMU12",396,0)
2016 S DFN=""
2017"RTN","C0QMU12",397,0)
2018 S ZYR=ZYR_"EP-"
2019"RTN","C0QMU12",398,0)
2020 D INITCLST ; VEN/SMH - Initialize Empty Lists just in case we don't have
2021"RTN","C0QMU12",399,0)
2022 ; any. C0Q*1*5
2023"RTN","C0QMU12",400,0)
2024 F S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT
2025"RTN","C0QMU12",401,0)
2026 . D DEMO^C0QMU122
2027"RTN","C0QMU12",402,0)
2028 . D PROBLEM
2029"RTN","C0QMU12",403,0)
2030 . D ALLERGY
2031"RTN","C0QMU12",404,0)
2032 . ;D MEDS
2033"RTN","C0QMU12",405,0)
2034 . D ERX
2035"RTN","C0QMU12",406,0)
2036 . D SMOKING
2037"RTN","C0QMU12",407,0)
2038 . D VITALS
2039"RTN","C0QMU12",408,0)
2040 D FILE ; FILE THE PATIENT LISTS
2041"RTN","C0QMU12",409,0)
2042 ;
2043"RTN","C0QMU12",410,0)
2044 ; Now process eRx MU measures for these patients
2045"RTN","C0QMU12",411,0)
2046 ; Check for eRx template and code first; if they exist, run the code
2047"RTN","C0QMU12",412,0)
2048 I $D(^C0PX("B","GETMEDS6")),$L($T(SOAP^C0PWS2)) DO
2049"RTN","C0QMU12",413,0)
2050 . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data;
2051"RTN","C0QMU12",414,0)
2052 . D EN^C0QMUERX($$PATLN^C0QMU12(ZYR_"HasERX")) ; Pass the eRx patient list
2053"RTN","C0QMU12",415,0)
2054 ;
2055"RTN","C0QMU12",416,0)
2056 N ZI S ZI=""
2057"RTN","C0QMU12",417,0)
2058 F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ;
2059"RTN","C0QMU12",418,0)
2060 . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data;
2061"RTN","C0QMU12",419,0)
2062 . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPMeasurementSet")) ; UPDATE THE MU MEASUREMENT SET
2063"RTN","C0QMU12",420,0)
2064 . ; VEN/SMH -- Quality Set missing for Outpatient -- adding
2065"RTN","C0QMU12",421,0)
2066 . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPQualitySet")) ; C0Q*1*5
2067"RTN","C0QMU12",422,0)
2068 Q
2069"RTN","C0QMU12",423,0)
2070 ;
2071"RTN","C0QMU12",424,0)
2072DIS ;
2073"RTN","C0QMU12",425,0)
2074 N DFN,DTE,EXDTE S DTE=""
2075"RTN","C0QMU12",426,0)
2076 F D Q:DTE=""
2077"RTN","C0QMU12",427,0)
2078 . S DTE=$O(^DGPM("B",DTE))
2079"RTN","C0QMU12",428,0)
2080 . Q:'DTE
2081"RTN","C0QMU12",429,0)
2082 . ;Q:$P(DTE,".")<3110703
2083"RTN","C0QMU12",430,0)
2084 . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012
2085"RTN","C0QMU12",431,0)
2086 . S EXDTE=$$FMTE^XLFDT(DTE)
2087"RTN","C0QMU12",432,0)
2088 . N PTFM S PTFM=""
2089"RTN","C0QMU12",433,0)
2090 . D
2091"RTN","C0QMU12",434,0)
2092 . . S PTFM=$O(^DGPM("B",DTE,PTFM))
2093"RTN","C0QMU12",435,0)
2094 . . Q:'PTFM
2095"RTN","C0QMU12",436,0)
2096 . . S DFN=$P(^DGPM(PTFM,0),U,3)
2097"RTN","C0QMU12",437,0)
2098 . . S C0QLIST(ZYR_"Patient",DFN)=""
2099"RTN","C0QMU12",438,0)
2100 . . D DEMO^C0QMU122
2101"RTN","C0QMU12",439,0)
2102 . . D PROBLEM
2103"RTN","C0QMU12",440,0)
2104 . . D ALLERGY
2105"RTN","C0QMU12",441,0)
2106 . . D MEDS4
2107"RTN","C0QMU12",442,0)
2108 . . D RECON2
2109"RTN","C0QMU12",443,0)
2110 . . D ADVDIR
2111"RTN","C0QMU12",444,0)
2112 . . D SMOKING
2113"RTN","C0QMU12",445,0)
2114 . . D VITALS
2115"RTN","C0QMU12",446,0)
2116 . . ;D:$P(DTE,".")>3110912 VTE1
2117"RTN","C0QMU12",447,0)
2118 . . D VTE1
2119"RTN","C0QMU12",448,0)
2120 . . D COD
2121"RTN","C0QMU12",449,0)
2122 . . D EDTIME
2123"RTN","C0QMU12",450,0)
2124 . . I C0QPR D PRINT^C0QMU121
2125"RTN","C0QMU12",451,0)
2126 . . I C0QSS D SS^C0QMU121
2127"RTN","C0QMU12",452,0)
2128 . . I C0QPL D PATLIST^C0QMU121
2129"RTN","C0QMU12",453,0)
2130 Q
2131"RTN","C0QMU12",454,0)
2132 ;
2133"RTN","C0QMU12",455,0)
2134C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE
2135"RTN","C0QMU12",456,0)
2136C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE
2137"RTN","C0QMU12",457,0)
2138FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST
2139"RTN","C0QMU12",458,0)
2140 ;
2141"RTN","C0QMU12",459,0)
2142 I '$D(C0QLIST) Q ;
2143"RTN","C0QMU12",460,0)
2144 N LFN S LFN=$$C0QALFN()
2145"RTN","C0QMU12",461,0)
2146 N ZI,ZN
2147"RTN","C0QMU12",462,0)
2148 S ZI=""
2149"RTN","C0QMU12",463,0)
2150 F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ;
2151"RTN","C0QMU12",464,0)
2152 . S ZN=$O(^C0Q(301,"CATTR",ZI,""))
2153"RTN","C0QMU12",465,0)
2154 . I ZN="" D ; LIST NOT FOUND, CREATE IT
2155"RTN","C0QMU12",466,0)
2156 . . K C0QFDA
2157"RTN","C0QMU12",467,0)
2158 . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE
2159"RTN","C0QMU12",468,0)
2160 . . S C0QFDA(FN,"+1,",.01)=ZI
2161"RTN","C0QMU12",469,0)
2162 . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE
2163"RTN","C0QMU12",470,0)
2164 . . W !,"CREATING ",ZI
2165"RTN","C0QMU12",471,0)
2166 . . D UPDIE ; ADD THE RECORD
2167"RTN","C0QMU12",472,0)
2168 . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN
2169"RTN","C0QMU12",473,0)
2170 . ;I ZN="" D Q ; OOPS
2171"RTN","C0QMU12",474,0)
2172 . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI
2173"RTN","C0QMU12",475,0)
2174 . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN
2175"RTN","C0QMU12",476,0)
2176 . N C0QNEW,C0QOLD,C0QRSLT
2177"RTN","C0QMU12",477,0)
2178 . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST
2179"RTN","C0QMU12",478,0)
2180 . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST
2181"RTN","C0QMU12",479,0)
2182 . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW
2183"RTN","C0QMU12",480,0)
2184 . N ZJ,ZK
2185"RTN","C0QMU12",481,0)
2186 . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST
2187"RTN","C0QMU12",482,0)
2188 . K C0QFDA
2189"RTN","C0QMU12",483,0)
2190 . S ZJ=""
2191"RTN","C0QMU12",484,0)
2192 . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY
2193"RTN","C0QMU12",485,0)
2194 . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE
2195"RTN","C0QMU12",486,0)
2196 . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN
2197"RTN","C0QMU12",487,0)
2198 . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE"
2199"RTN","C0QMU12",488,0)
2200 . . . S $EC=",U1130580001," ; smh - instead of a BREAK
2201"RTN","C0QMU12",489,0)
2202 . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@"
2203"RTN","C0QMU12",490,0)
2204 . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS
2205"RTN","C0QMU12",491,0)
2206 . ; SECOND, PROCESS THE ADDITIONS
2207"RTN","C0QMU12",492,0)
2208 . K C0QFDA
2209"RTN","C0QMU12",493,0)
2210 . S ZJ="" S ZK=1
2211"RTN","C0QMU12",494,0)
2212 . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0
2213"RTN","C0QMU12",495,0)
2214 . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ
2215"RTN","C0QMU12",496,0)
2216 . . S ZK=ZK+1
2217"RTN","C0QMU12",497,0)
2218 . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS
2219"RTN","C0QMU12",498,0)
2220 ;. Q
2221"RTN","C0QMU12",499,0)
2222 ;. K C0QFDA
2223"RTN","C0QMU12",500,0)
2224 ;. N ZJ,ZC
2225"RTN","C0QMU12",501,0)
2226 ;. S ZJ="" S ZC=1
2227"RTN","C0QMU12",502,0)
2228 ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST
2229"RTN","C0QMU12",503,0)
2230 ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ
2231"RTN","C0QMU12",504,0)
2232 ;. . S ZC=ZC+1
2233"RTN","C0QMU12",505,0)
2234 ;. D UPDIE
2235"RTN","C0QMU12",506,0)
2236 ;. W !,"FOUND:"_ZI
2237"RTN","C0QMU12",507,0)
2238 Q
2239"RTN","C0QMU12",508,0)
2240 ;
2241"RTN","C0QMU12",509,0)
2242KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE
2243"RTN","C0QMU12",510,0)
2244 ;
2245"RTN","C0QMU12",511,0)
2246 N C0QFDA,ZFN,LIST,ATTR
2247"RTN","C0QMU12",512,0)
2248 S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE
2249"RTN","C0QMU12",513,0)
2250 D CLEAN^DILF
2251"RTN","C0QMU12",514,0)
2252 S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME
2253"RTN","C0QMU12",515,0)
2254 S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE
2255"RTN","C0QMU12",516,0)
2256 D CLEAN^DILF
2257"RTN","C0QMU12",517,0)
2258 K ZERR
2259"RTN","C0QMU12",518,0)
2260 S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE
2261"RTN","C0QMU12",519,0)
2262 D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE
2263"RTN","C0QMU12",520,0)
2264 I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED
2265"RTN","C0QMU12",521,0)
2266 ;. W "ERROR",!
2267"RTN","C0QMU12",522,0)
2268 ;. ZWR ZERR
2269"RTN","C0QMU12",523,0)
2270 ;. B
2271"RTN","C0QMU12",524,0)
2272 K C0QFDA
2273"RTN","C0QMU12",525,0)
2274 S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD
2275"RTN","C0QMU12",526,0)
2276 S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE
2277"RTN","C0QMU12",527,0)
2278 D UPDIE ; CREATE THE SUBFILE
2279"RTN","C0QMU12",528,0)
2280 N ZR ; NEW IEN FOR THE RECORD
2281"RTN","C0QMU12",529,0)
2282 S ZR=$O(^C0Q(301,"CATTR",ATTR,""))
2283"RTN","C0QMU12",530,0)
2284 ;
2285"RTN","C0QMU12",531,0)
2286 Q ZR
2287"RTN","C0QMU12",532,0)
2288 ;
2289"RTN","C0QMU12",533,0)
2290UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
2291"RTN","C0QMU12",534,0)
2292 K ZERR
2293"RTN","C0QMU12",535,0)
2294 D CLEAN^DILF
2295"RTN","C0QMU12",536,0)
2296 D UPDATE^DIE("","C0QFDA","","ZERR")
2297"RTN","C0QMU12",537,0)
2298 I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED
2299"RTN","C0QMU12",538,0)
2300 K C0QFDA
2301"RTN","C0QMU12",539,0)
2302 Q
2303"RTN","C0QMU12",540,0)
2304 ;
2305"RTN","C0QMU12",541,0)
2306END ;end of C0QPRML;
2307"RTN","C0QUPDT")
23080^2^B78768309
2309"RTN","C0QUPDT",1,0)
2310C0QUPDT ; GPL - Quality Reporting List Update Routines ; 10/17/12 12:09pm
2311"RTN","C0QUPDT",2,0)
2312 ;;1.0;QUALITY MEASURES;**1,5**;May 21, 2012;Build 10
2313"RTN","C0QUPDT",3,0)
2314 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU
2315"RTN","C0QUPDT",4,0)
2316 ;General Public License See attached copy of the License.
2317"RTN","C0QUPDT",5,0)
2318 ;
2319"RTN","C0QUPDT",6,0)
2320 ;This program is free software; you can redistribute it and/or modify
2321"RTN","C0QUPDT",7,0)
2322 ;it under the terms of the GNU General Public License as published by
2323"RTN","C0QUPDT",8,0)
2324 ;the Free Software Foundation; either version 2 of the License, or
2325"RTN","C0QUPDT",9,0)
2326 ;(at your option) any later version.
2327"RTN","C0QUPDT",10,0)
2328 ;
2329"RTN","C0QUPDT",11,0)
2330 ;This program is distributed in the hope that it will be useful,
2331"RTN","C0QUPDT",12,0)
2332 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
2333"RTN","C0QUPDT",13,0)
2334 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2335"RTN","C0QUPDT",14,0)
2336 ;GNU General Public License for more details.
2337"RTN","C0QUPDT",15,0)
2338 ;
2339"RTN","C0QUPDT",16,0)
2340 ;You should have received a copy of the GNU General Public License along
2341"RTN","C0QUPDT",17,0)
2342 ;with this program; if not, write to the Free Software Foundation, Inc.,
2343"RTN","C0QUPDT",18,0)
2344 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
2345"RTN","C0QUPDT",19,0)
2346 ;
2347"RTN","C0QUPDT",20,0)
2348 Q
2349"RTN","C0QUPDT",21,0)
2350 ;
2351"RTN","C0QUPDT",22,0)
2352C0QQFN() Q 1130580001.101 ; FILE NUMBER FOR C0Q QUALITY MEASURE FILE
2353"RTN","C0QUPDT",23,0)
2354C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE
2355"RTN","C0QUPDT",24,0)
2356C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE
2357"RTN","C0QUPDT",25,0)
2358C0QMMNFN() Q 1130580001.20111 ; FN FOR NUMERATOR SUBFILE
2359"RTN","C0QUPDT",26,0)
2360C0QMMDFN() Q 1130580001.20112 ; FN FOR DENOMINATOR SUBFILE
2361"RTN","C0QUPDT",27,0)
2362RLSTFN() Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE
2363"RTN","C0QUPDT",28,0)
2364RLSTPFN() Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE
2365"RTN","C0QUPDT",29,0)
2366C0QPLF() Q 1130580001.301 ; C0Q PATIENT LIST FILE
2367"RTN","C0QUPDT",30,0)
2368C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ;
2369"RTN","C0QUPDT",31,0)
2370 ;
2371"RTN","C0QUPDT",32,0)
2372UPDATE(RNT,MSET) ; UPDATE A MEASURE SET BY ADDING NEW ENTRIES TO PATIENT
2373"RTN","C0QUPDT",33,0)
2374 ; LISTS AND DELETING ENTRIES THAT ARE NO LONGER VALID. ALSO UPDATE
2375"RTN","C0QUPDT",34,0)
2376 ; NUMERATOR AND DENOMINATOR COUNTS
2377"RTN","C0QUPDT",35,0)
2378 ; MAKES HEAVY USE OF UNITY^C0QSET TO DETERMINE WHAT TO ADD AND DELETE
2379"RTN","C0QUPDT",36,0)
2380 ;
2381"RTN","C0QUPDT",37,0)
2382 ; THIS IS A REPLACEMENT FOR C0QRPC^C0QMAIN WHICH DELETES THE PATIENT
2383"RTN","C0QUPDT",38,0)
2384 ; LISTS AND RECREATES THEM, WHICH IS A LOT OF UNNECESSARY PROCESSING
2385"RTN","C0QUPDT",39,0)
2386 ;
2387"RTN","C0QUPDT",40,0)
2388 N ZI S ZI=""
2389"RTN","C0QUPDT",41,0)
2390 N C0QM ; FOR HOLDING THE MEASURES IN THE SET
2391"RTN","C0QUPDT",42,0)
2392 I $$GET1^DIQ($$C0QMFN,MSET_",",.05,"I")="Y" D Q ; IS IT LOCKED?
2393"RTN","C0QUPDT",43,0)
2394 . W !,"ERROR MEASURE SET IS LOCKED, EXITING"
2395"RTN","C0QUPDT",44,0)
2396 D LIST^DIC($$C0QMMFN,","_MSET_",",".01I;1.2I;2.2I") ; GET ALL THE MEASURES
2397"RTN","C0QUPDT",45,0)
2398 D DELIST("C0QM")
2399"RTN","C0QUPDT",46,0)
2400 N ZII S ZII=""
2401"RTN","C0QUPDT",47,0)
2402 F S ZII=$O(C0QM(ZII)) Q:ZII="" D ; FOR EACH MEASURE
2403"RTN","C0QUPDT",48,0)
2404 . ;
2405"RTN","C0QUPDT",49,0)
2406 . ; Special processing for eRx measure.
2407"RTN","C0QUPDT",50,0)
2408 . I $$GET1^DIQ(1130580001.101,+C0QM(ZII)_",",4,"I")="E" D ERXCOUNT(MSET,ZII) Q
2409"RTN","C0QUPDT",51,0)
2410 . ;
2411"RTN","C0QUPDT",52,0)
2412 . ; Otherwise, we go on
2413"RTN","C0QUPDT",53,0)
2414 . N C0QNL,C0QDL,C0QFLTN,C0QFLTD,C0QNALT ; VEN/SMH - line changed in *5
2415"RTN","C0QUPDT",54,0)
2416 . S C0QFLTN=$P(C0QM(ZII),U,3) ;IEN OF NUMERATOR FILTER LIST
2417"RTN","C0QUPDT",55,0)
2418 . S C0QFLTD=$P(C0QM(ZII),U,4) ; IEN OF DENOMINATOR FILTER LIST
2419"RTN","C0QUPDT",56,0)
2420 . S ZI=$P(C0QM(ZII),U,1) ; IEN OF THE MEASURE IN THE C0Q QUALITY MEAS FILE
2421"RTN","C0QUPDT",57,0)
2422 . ;
2423"RTN","C0QUPDT",58,0)
2424 . ; Numerator
2425"RTN","C0QUPDT",59,0)
2426 . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1,"I") ; NUMERATOR POINTER
2427"RTN","C0QUPDT",60,0)
2428 . I C0QNL="" D ; CHECK ALTERNATE LIST
2429"RTN","C0QUPDT",61,0)
2430 . . S C0QNL=$$GET1^DIQ($$C0QQFN,ZI_",",1.1,"I") ; NUMERATOR POINTER
2431"RTN","C0QUPDT",62,0)
2432 . . I C0QNL'="" S C0QNALT=1
2433"RTN","C0QUPDT",63,0)
2434 . I C0QNL="" QUIT ; No Numerator. Can't perform calculation.--smh
2435"RTN","C0QUPDT",64,0)
2436 . ;
2437"RTN","C0QUPDT",65,0)
2438 . ; Denominator
2439"RTN","C0QUPDT",66,0)
2440 . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2,"I") ; DENOMINATOR POINTER
2441"RTN","C0QUPDT",67,0)
2442 . I C0QDL="" D ; CHECK ALTERNATE LIST
2443"RTN","C0QUPDT",68,0)
2444 . . S C0QDL=$$GET1^DIQ($$C0QQFN,ZI_",",2.1,"I") ; DENOMINATOR POINTER
2445"RTN","C0QUPDT",69,0)
2446 . . I C0QDL'="" S C0QDALT=1
2447"RTN","C0QUPDT",70,0)
2448 . I C0QDL="" QUIT ; No Denominator. Can't perform calcuation.--smh
2449"RTN","C0QUPDT",71,0)
2450 . ;
2451"RTN","C0QUPDT",72,0)
2452 . ; FIRST PROCESS THE NUMERATOR
2453"RTN","C0QUPDT",73,0)
2454 . ;
2455"RTN","C0QUPDT",74,0)
2456 . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX
2457"RTN","C0QUPDT",75,0)
2458 . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR
2459"RTN","C0QUPDT",76,0)
2460 . . S C0QNEW=$NA(^C0Q(301,C0QNL,1,"B")) ; B INDEX FOR THIS LIST
2461"RTN","C0QUPDT",77,0)
2462 . E D ; USE THE REMINDER PACKAGE PATIENT LISTS
2463"RTN","C0QUPDT",78,0)
2464 . . S C0QNEW=$NA(^PXRMXP(810.5,C0QNL,30,"B")) ; REMINDER LIST PATIENTS
2465"RTN","C0QUPDT",79,0)
2466 . I C0QFLTN'="" D ; USE A NUMERATOR FILTER LIST
2467"RTN","C0QUPDT",80,0)
2468 . . N ZNEW
2469"RTN","C0QUPDT",81,0)
2470 . . S ZNEW=$NA(^C0Q(301,C0QFLTN,1,"B")) ; B INDEX OF FILTER LIST
2471"RTN","C0QUPDT",82,0)
2472 . . K C0QFLTRD
2473"RTN","C0QUPDT",83,0)
2474 . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW)
2475"RTN","C0QUPDT",84,0)
2476 . . S C0QNEW="C0QFLTRD"
2477"RTN","C0QUPDT",85,0)
2478 . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST
2479"RTN","C0QUPDT",86,0)
2480 . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,1,"B")) ; NUMERATOR LIST IN MEASURE SET
2481"RTN","C0QUPDT",87,0)
2482 . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES
2483"RTN","C0QUPDT",88,0)
2484 . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES
2485"RTN","C0QUPDT",89,0)
2486 . N C0QCNT
2487"RTN","C0QUPDT",90,0)
2488 . S C0QNCNT=$G(C0QRSLT("COUNT"))
2489"RTN","C0QUPDT",91,0)
2490 . I C0QNCNT="" D ;
2491"RTN","C0QUPDT",92,0)
2492 . . S C0QNCNT=0 ; DEFAULT COUNT IS ZERO
2493"RTN","C0QUPDT",93,0)
2494 . . N GZZ S GZZ=""
2495"RTN","C0QUPDT",94,0)
2496 . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY
2497"RTN","C0QUPDT",95,0)
2498 . . . S C0QNCNT=C0QNCNT+1
2499"RTN","C0QUPDT",96,0)
2500 . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY
2501"RTN","C0QUPDT",97,0)
2502 . . . S C0QNCNT=C0QNCNT+1
2503"RTN","C0QUPDT",98,0)
2504 . K C0QFDA ; CLEAR THE FDA
2505"RTN","C0QUPDT",99,0)
2506 . N C0QONCNT ; OLD COUNT
2507"RTN","C0QUPDT",100,0)
2508 . S C0QONCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",1.1)
2509"RTN","C0QUPDT",101,0)
2510 . I C0QNCNT'=C0QONCNT D ; COUNT HAS CHANGED
2511"RTN","C0QUPDT",102,0)
2512 . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",1.1)=C0QNCNT ; NUMERATOR COUNT
2513"RTN","C0QUPDT",103,0)
2514 . . D UPDIE ; UPDATE THE NUMERATOR COUNT
2515"RTN","C0QUPDT",104,0)
2516 . I $D(C0QRSLT) D ;B ;
2517"RTN","C0QUPDT",105,0)
2518 . . ;ZWR C0QRSLT
2519"RTN","C0QUPDT",106,0)
2520 . ; FIRST PROCESS DELETIONS
2521"RTN","C0QUPDT",107,0)
2522 . K C0QFDA ; CLEAR OUT THE FDA
2523"RTN","C0QUPDT",108,0)
2524 . N ZG,ZIEN S ZG=""
2525"RTN","C0QUPDT",109,0)
2526 . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION
2527"RTN","C0QUPDT",110,0)
2528 . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY
2529"RTN","C0QUPDT",111,0)
2530 . . I ZIEN="" D Q ; OOPS
2531"RTN","C0QUPDT",112,0)
2532 . . . W !,"ERROR DELETING ENTRY!! ",ZG
2533"RTN","C0QUPDT",113,0)
2534 . . S C0QFDA($$C0QMMNFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE
2535"RTN","C0QUPDT",114,0)
2536 . I $D(C0QFDA) D UPDIE ; PROCESS
2537"RTN","C0QUPDT",115,0)
2538 . ; SECOND, PROCESS ADDITIONS
2539"RTN","C0QUPDT",116,0)
2540 . K C0QFDA ; CLEAR OUT THE FDA
2541"RTN","C0QUPDT",117,0)
2542 . N ZG,ZC S ZG="" S ZC=1
2543"RTN","C0QUPDT",118,0)
2544 . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION
2545"RTN","C0QUPDT",119,0)
2546 . . S C0QFDA($$C0QMMNFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY
2547"RTN","C0QUPDT",120,0)
2548 . . S ZC=ZC+1
2549"RTN","C0QUPDT",121,0)
2550 . I $D(C0QFDA) D UPDIE ; PROCESS
2551"RTN","C0QUPDT",122,0)
2552 . ;
2553"RTN","C0QUPDT",123,0)
2554 . ; PROCESS THE DENOMINATOR
2555"RTN","C0QUPDT",124,0)
2556 . ;
2557"RTN","C0QUPDT",125,0)
2558 . N C0QNEW ; REFERENCE TO NEW NUMBERATOR LIST B INDEX
2559"RTN","C0QUPDT",126,0)
2560 . I $G(C0QNALT)=1 D ; USING ALTERNATE LIST FOR NUMERATOR
2561"RTN","C0QUPDT",127,0)
2562 . . S C0QNEW=$NA(^C0Q(301,C0QDL,1,"B")) ; B INDEX FOR THIS LIST
2563"RTN","C0QUPDT",128,0)
2564 . E D ; USE THE REMINDER PACKAGE PATIENT LISTS
2565"RTN","C0QUPDT",129,0)
2566 . . S C0QNEW=$NA(^PXRMXP(810.5,C0QDL,30,"B")) ; REMINDER LIST PATIENTS
2567"RTN","C0QUPDT",130,0)
2568 . I C0QFLTD'="" D ; USE A DENOMINATOR FILTER LIST
2569"RTN","C0QUPDT",131,0)
2570 . . N ZNEW
2571"RTN","C0QUPDT",132,0)
2572 . . S ZNEW=$NA(^C0Q(301,C0QFLTD,1,"B")) ; B INDEX OF FILTER LIST
2573"RTN","C0QUPDT",133,0)
2574 . . K C0QFLTRD
2575"RTN","C0QUPDT",134,0)
2576 . . D AND^C0QSET("C0QFLTRD",ZNEW,C0QNEW)
2577"RTN","C0QUPDT",135,0)
2578 . . S C0QNEW="C0QFLTRD"
2579"RTN","C0QUPDT",136,0)
2580 . N C0QOLD ; REFERENCE FOR OLD PATIENT LIST
2581"RTN","C0QUPDT",137,0)
2582 . S C0QOLD=$NA(^C0Q(201,MSET,5,ZII,3,"B")) ; DENOMINATOR LIST IN MEASURE SET
2583"RTN","C0QUPDT",138,0)
2584 . N C0QRSLT ; ARRAY FOR THE UNITY DIFFERENCES
2585"RTN","C0QUPDT",139,0)
2586 . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND THE DIFFERENCES
2587"RTN","C0QUPDT",140,0)
2588 . N C0QDCNT
2589"RTN","C0QUPDT",141,0)
2590 . S C0QDCNT=$G(C0QRSLT("COUNT"))
2591"RTN","C0QUPDT",142,0)
2592 . I C0QDCNT="" D ;
2593"RTN","C0QUPDT",143,0)
2594 . . S C0QDCNT=0 ; DEFAULT COUNT IS ZERO
2595"RTN","C0QUPDT",144,0)
2596 . . N GZZ S GZZ=""
2597"RTN","C0QUPDT",145,0)
2598 . . F S GZZ=$O(C0QRSLT(0,GZZ)) Q:GZZ="" D ; EVERY ADD ENTRY
2599"RTN","C0QUPDT",146,0)
2600 . . . S C0QDCNT=C0QDCNT+1
2601"RTN","C0QUPDT",147,0)
2602 . . F S GZZ=$O(C0QRSLT(1,GZZ)) Q:GZZ="" D ; EVERY EQUAL ENTRY
2603"RTN","C0QUPDT",148,0)
2604 . . . S C0QDCNT=C0QDCNT+1
2605"RTN","C0QUPDT",149,0)
2606 . K C0QFDA ; CLEAR THE FDA
2607"RTN","C0QUPDT",150,0)
2608 . N C0QODCNT ; OLD COUNT
2609"RTN","C0QUPDT",151,0)
2610 . S C0QODCNT=$$GET1^DIQ($$C0QMMFN(),ZII_","_MSET_",",2.1)
2611"RTN","C0QUPDT",152,0)
2612 . I C0QDCNT'=C0QODCNT D ; COUNT HAS CHANGED
2613"RTN","C0QUPDT",153,0)
2614 . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",2.1)=C0QDCNT ; DENOMINATOR COUNT
2615"RTN","C0QUPDT",154,0)
2616 . . D UPDIE ; UPDATE THE DENOMINATOR COUNT
2617"RTN","C0QUPDT",155,0)
2618 . I $D(C0QRSLT) D ;B ;
2619"RTN","C0QUPDT",156,0)
2620 . . ;ZWR C0QRSLT
2621"RTN","C0QUPDT",157,0)
2622 . I '$D(C0QRSLT) Q ; NO RESULTS TO USE
2623"RTN","C0QUPDT",158,0)
2624 . ; FIRST PROCESS DELETIONS
2625"RTN","C0QUPDT",159,0)
2626 . K C0QFDA ; CLEAR OUT THE FDA
2627"RTN","C0QUPDT",160,0)
2628 . N ZG,ZIEN S ZG=""
2629"RTN","C0QUPDT",161,0)
2630 . F S ZG=$O(C0QRSLT(2,ZG)) Q:ZG="" D ; FOR EACH DELETION
2631"RTN","C0QUPDT",162,0)
2632 . . S ZIEN=$O(@C0QOLD@(ZG,"")) ; IEN OF THE ENTRY
2633"RTN","C0QUPDT",163,0)
2634 . . I ZIEN="" D Q ; OOPS
2635"RTN","C0QUPDT",164,0)
2636 . . . W !,"ERROR DELETING ENTRY!! ",ZG
2637"RTN","C0QUPDT",165,0)
2638 . . S C0QFDA($$C0QMMDFN(),ZIEN_","_ZII_","_MSET_",",.01)="@" ; DELETE
2639"RTN","C0QUPDT",166,0)
2640 . I $D(C0QFDA) D UPDIE ; PROCESS
2641"RTN","C0QUPDT",167,0)
2642 . ; SECOND, PROCESS ADDITIONS
2643"RTN","C0QUPDT",168,0)
2644 . K C0QFDA ; CLEAR OUT THE FDA
2645"RTN","C0QUPDT",169,0)
2646 . N ZG,ZC S ZG="" S ZC=1
2647"RTN","C0QUPDT",170,0)
2648 . F S ZG=$O(C0QRSLT(0,ZG)) Q:ZG="" D ; FOR EACH ADDITION
2649"RTN","C0QUPDT",171,0)
2650 . . S C0QFDA($$C0QMMDFN(),"+"_ZC_","_ZII_","_MSET_",",.01)=ZG ; ADD THE ENTRY
2651"RTN","C0QUPDT",172,0)
2652 . . S ZC=ZC+1
2653"RTN","C0QUPDT",173,0)
2654 . I $D(C0QFDA) D UPDIE ; PROCESS
2655"RTN","C0QUPDT",174,0)
2656 . ;
2657"RTN","C0QUPDT",175,0)
2658 . ; File Percentage
2659"RTN","C0QUPDT",176,0)
2660 . N C0QPCT ; PERCENT
2661"RTN","C0QUPDT",177,0)
2662 . D ;
2663"RTN","C0QUPDT",178,0)
2664 . . I C0QDCNT>0 D ;
2665"RTN","C0QUPDT",179,0)
2666 . . . S C0QPCT=$J(100*C0QNCNT/C0QDCNT,0,0)
2667"RTN","C0QUPDT",180,0)
2668 . . E S C0QPCT=0
2669"RTN","C0QUPDT",181,0)
2670 . . K C0QFDA
2671"RTN","C0QUPDT",182,0)
2672 . . S C0QFDA($$C0QMMFN(),ZII_","_MSET_",",3)=C0QPCT ; PERCENT
2673"RTN","C0QUPDT",183,0)
2674 . . D UPDIE
2675"RTN","C0QUPDT",184,0)
2676 Q
2677"RTN","C0QUPDT",185,0)
2678 ;
2679"RTN","C0QUPDT",186,0)
2680DELIST(RTN) ; DECODES ^TMP("DILIST",$J) INTO
2681"RTN","C0QUPDT",187,0)
2682 ; @RTN@(IEN)=INTERNAL VALUE^EXTERNAL VALUE
2683"RTN","C0QUPDT",188,0)
2684 ; ADDED A B INDEX @RTN@("B",INTERNAL VALUE,IEN)=EXTERNAL VALUE
2685"RTN","C0QUPDT",189,0)
2686 N ZI,IV,EV,ZDI,ZIEN,FLTN,FLTD
2687"RTN","C0QUPDT",190,0)
2688 S ZI=""
2689"RTN","C0QUPDT",191,0)
2690 S ZDI=$NA(^TMP("DILIST",$J))
2691"RTN","C0QUPDT",192,0)
2692 K @RTN
2693"RTN","C0QUPDT",193,0)
2694 F S ZI=$O(@ZDI@(1,ZI)) Q:ZI="" D ;
2695"RTN","C0QUPDT",194,0)
2696 . S EV=@ZDI@(1,ZI) ;EXTERNAL VALUE
2697"RTN","C0QUPDT",195,0)
2698 . S IV=$G(@ZDI@("ID",ZI,.01)) ; INTERNAL VALUE
2699"RTN","C0QUPDT",196,0)
2700 . S FLTN=$G(@ZDI@("ID",ZI,1.2)) ; NUMERATOR FILTER LIST
2701"RTN","C0QUPDT",197,0)
2702 . S FLTD=$G(@ZDI@("ID",ZI,2.2)) ; DENOMINATOR FILTER LIST
2703"RTN","C0QUPDT",198,0)
2704 . S ZIEN=@ZDI@(2,ZI) ; IEN
2705"RTN","C0QUPDT",199,0)
2706 . S @RTN@(ZIEN)=IV_"^"_EV_"^"_FLTN_"^"_FLTD
2707"RTN","C0QUPDT",200,0)
2708 . ;S @RTN@("B",IV,ZIEN)=EV
2709"RTN","C0QUPDT",201,0)
2710 Q
2711"RTN","C0QUPDT",202,0)
2712 ;
2713"RTN","C0QUPDT",203,0)
2714UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
2715"RTN","C0QUPDT",204,0)
2716 K ZERR
2717"RTN","C0QUPDT",205,0)
2718 D CLEAN^DILF
2719"RTN","C0QUPDT",206,0)
2720 D ZWRITE^C0QUTIL("C0QFDA")
2721"RTN","C0QUPDT",207,0)
2722 D UPDATE^DIE("","C0QFDA","","ZERR")
2723"RTN","C0QUPDT",208,0)
2724 I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED
2725"RTN","C0QUPDT",209,0)
2726 ;. W "ERROR",!
2727"RTN","C0QUPDT",210,0)
2728 ;. ZWR ZERR
2729"RTN","C0QUPDT",211,0)
2730 ;. B
2731"RTN","C0QUPDT",212,0)
2732 K C0QFDA
2733"RTN","C0QUPDT",213,0)
2734 Q
2735"RTN","C0QUPDT",214,0)
2736 ;
2737"RTN","C0QUPDT",215,0)
2738ERXCOUNT(MSETIEN,MIEN) ; Private Proc; Get eRx and file as Numerator, Denominator, and %
2739"RTN","C0QUPDT",216,0)
2740 ; Inputs:
2741"RTN","C0QUPDT",217,0)
2742 ; MSETIEN - Measurement Set IEN - By Value
2743"RTN","C0QUPDT",218,0)
2744 ; MIEN - Measurement IEN inside the Measurement Set - By Value
2745"RTN","C0QUPDT",219,0)
2746 ;
2747"RTN","C0QUPDT",220,0)
2748 ; Optional Symtab input: C0QDEBUG to print out debug messages to STDOUT.
2749"RTN","C0QUPDT",221,0)
2750 ; ZEXCEPT: C0QDEBUG ; For Dr. Ivey's parser.
2751"RTN","C0QUPDT",222,0)
2752 ;
2753"RTN","C0QUPDT",223,0)
2754 ; No check is done to see if the caller is sending bad data. Measurement must be
2755"RTN","C0QUPDT",224,0)
2756 ; in a subfile under Measurement Set.
2757"RTN","C0QUPDT",225,0)
2758 ;
2759"RTN","C0QUPDT",226,0)
2760 W:$G(C0QDEBUG) "Processing E-Prescribing Counts",!
2761"RTN","C0QUPDT",227,0)
2762 ; Example of Data we go through in the C0Q Parameter File, so the code below
2763"RTN","C0QUPDT",228,0)
2764 ; will make sense.
2765"RTN","C0QUPDT",229,0)
2766 ; ^C0Q(401,"AMMS",2,1)=""
2767"RTN","C0QUPDT",230,0)
2768 ; ^C0Q(401,"AMMS",2,2)=""
2769"RTN","C0QUPDT",231,0)
2770 ; ^C0Q(401,"AQMS",6,2)=""
2771"RTN","C0QUPDT",232,0)
2772 ; ^C0Q(401,"B","INPATIENT",2)=""
2773"RTN","C0QUPDT",233,0)
2774 ; ^C0Q(401,"B","OUTPATIENT",1)=""
2775"RTN","C0QUPDT",234,0)
2776 ; ^C0Q(401,"MU","MU12",1)=""
2777"RTN","C0QUPDT",235,0)
2778 ; ^C0Q(401,"MU","MU12",2)=""
2779"RTN","C0QUPDT",236,0)
2780 ; ^C0Q(401,"MUTYP","MU12","EP",1)=""
2781"RTN","C0QUPDT",237,0)
2782 ; ^C0Q(401,"MUTYP","MU12","INP",2)=""
2783"RTN","C0QUPDT",238,0)
2784 ;
2785"RTN","C0QUPDT",239,0)
2786 ; Get Parameter year from the Parameters file.
2787"RTN","C0QUPDT",240,0)
2788 ; 1. Get parameter associated with this measurement set from AMMS x-ref (new in C0Q*1*1).
2789"RTN","C0QUPDT",241,0)
2790 N C0QPARAM
2791"RTN","C0QUPDT",242,0)
2792 N % S %="" F S %=$O(^C0Q(401,"AMMS",MSETIEN,%)) Q:%="" S C0QPARAM(%)=""
2793"RTN","C0QUPDT",243,0)
2794 ;
2795"RTN","C0QUPDT",244,0)
2796 ; 2. Find the year for each of those--store as value of node; IEN still subscript.
2797"RTN","C0QUPDT",245,0)
2798 N % S %="" F S %=$O(C0QPARAM(%)) Q:%="" S C0QPARAM(%)=$$GET1^DIQ(1130580001.401,%_",",.02)
2799"RTN","C0QUPDT",246,0)
2800 ;
2801"RTN","C0QUPDT",247,0)
2802 ; 3. Now make sure that this parameter that point to an Outpatient Parameters
2803"RTN","C0QUPDT",248,0)
2804 ; WARNING: CONFUSING CODE WRITTEN BY ME AHEAD
2805"RTN","C0QUPDT",249,0)
2806 ; The % loop will stop with a valid value if found; % is used in the lines immediately below
2807"RTN","C0QUPDT",250,0)
2808 N % S %="" F S %=$O(C0QPARAM(%)) Q:%="" Q:$D(^C0Q(401,"MUTYP",C0QPARAM(%),"EP",%))
2809"RTN","C0QUPDT",251,0)
2810 ;
2811"RTN","C0QUPDT",252,0)
2812 ; 4. If % has a valid IEN (there can be multiple, we take the first), then off we go.
2813"RTN","C0QUPDT",253,0)
2814 ; Otherwise, if it is back to "", we quit.
2815"RTN","C0QUPDT",254,0)
2816 N MUYEAR
2817"RTN","C0QUPDT",255,0)
2818 IF '% W "No suitable parameter found. Cannot determine Measurement Year.",! QUIT
2819"RTN","C0QUPDT",256,0)
2820 ELSE S MUYEAR=C0QPARAM(%)
2821"RTN","C0QUPDT",257,0)
2822 ;
2823"RTN","C0QUPDT",258,0)
2824 ; Now, based on the MU year, construct the patient list name that has the eRx data.
2825"RTN","C0QUPDT",259,0)
2826 N LISTNAME S LISTNAME=MUYEAR_"-"_"EP"_"-"_"HasERX"
2827"RTN","C0QUPDT",260,0)
2828 ;
2829"RTN","C0QUPDT",261,0)
2830 ; Call the API in C0QMUERX to get the counts already calculated
2831"RTN","C0QUPDT",262,0)
2832 ; Data is returned NUM/DEN
2833"RTN","C0QUPDT",263,0)
2834 N COUNTS S COUNTS=$$COUNT^C0QMUERX($$PATLN^C0QMU12(LISTNAME))
2835"RTN","C0QUPDT",264,0)
2836 ;
2837"RTN","C0QUPDT",265,0)
2838 ; File the count
2839"RTN","C0QUPDT",266,0)
2840 N NUM S NUM=$P(COUNTS,"/") ; Numerator
2841"RTN","C0QUPDT",267,0)
2842 N DEN S DEN=$P(COUNTS,"/",2) ; Denominator
2843"RTN","C0QUPDT",268,0)
2844 ;
2845"RTN","C0QUPDT",269,0)
2846 ; Prepare FDA
2847"RTN","C0QUPDT",270,0)
2848 N C0QFDA,C0QERR
2849"RTN","C0QUPDT",271,0)
2850 S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",1.1)=NUM ; Numerator
2851"RTN","C0QUPDT",272,0)
2852 S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",2.1)=DEN ; Denominator
2853"RTN","C0QUPDT",273,0)
2854 S C0QFDA($$C0QMMFN(),MIEN_","_MSETIEN_",",3)=$S(DEN=0:0,1:$J(100*NUM/DEN,0,0)) ; Percentage; avoid dividing by zero!
2855"RTN","C0QUPDT",274,0)
2856 ;
2857"RTN","C0QUPDT",275,0)
2858 ; File FDA using Filer not updater (editing existing entry only)
2859"RTN","C0QUPDT",276,0)
2860 D FILE^DIE("ET",$NAME(C0QFDA),$NAME(C0QERR)) ; Flags: External, Transaction
2861"RTN","C0QUPDT",277,0)
2862 ;
2863"RTN","C0QUPDT",278,0)
2864 ; If error, print it out
2865"RTN","C0QUPDT",279,0)
2866 I $D(C0QERR) DO
2867"RTN","C0QUPDT",280,0)
2868 . W "Error filing data",!
2869"RTN","C0QUPDT",281,0)
2870 . N % S %=$NAME(C0QERR) F S %=$Q(@%) Q:%="" W %_": "_@%,!
2871"RTN","C0QUPDT",282,0)
2872 ;
2873"RTN","C0QUPDT",283,0)
2874 QUIT
2875"SEC","^DD",1130580001.101,1130580001.101,3.1,9)
2876
2877"SEC","^DIC",1130580001.101,1130580001.101,0,"AUDIT")
2878@
2879"SEC","^DIC",1130580001.101,1130580001.101,0,"DD")
2880@
2881"SEC","^DIC",1130580001.101,1130580001.101,0,"DEL")
2882@
2883"SEC","^DIC",1130580001.101,1130580001.101,0,"LAYGO")
2884
2885"SEC","^DIC",1130580001.101,1130580001.101,0,"RD")
2886
2887"SEC","^DIC",1130580001.101,1130580001.101,0,"WR")
2888
2889"SEC","^DIC",1130580001.201,1130580001.201,0,"AUDIT")
2890@
2891"SEC","^DIC",1130580001.201,1130580001.201,0,"DD")
2892@
2893"SEC","^DIC",1130580001.201,1130580001.201,0,"DEL")
2894
2895"SEC","^DIC",1130580001.201,1130580001.201,0,"LAYGO")
2896
2897"SEC","^DIC",1130580001.201,1130580001.201,0,"RD")
2898
2899"SEC","^DIC",1130580001.201,1130580001.201,0,"WR")
2900
2901"SEC","^DIC",1130580001.401,1130580001.401,0,"AUDIT")
2902@
2903"SEC","^DIC",1130580001.401,1130580001.401,0,"DD")
2904@
2905"SEC","^DIC",1130580001.401,1130580001.401,0,"DEL")
2906
2907"SEC","^DIC",1130580001.401,1130580001.401,0,"LAYGO")
2908
2909"SEC","^DIC",1130580001.401,1130580001.401,0,"RD")
2910
2911"SEC","^DIC",1130580001.401,1130580001.401,0,"WR")
2912
2913"TEMP",1130580001.101,0)
2914C0Q QUALITY MEASURE^1130580001.101
2915"TEMP",1130580001.101,0,"AUDIT")
2916@
2917"TEMP",1130580001.101,0,"DD")
2918@
2919"TEMP",1130580001.101,0,"DEL")
2920@
2921"TEMP",1130580001.101,0,"GL")
2922^C0Q(101,
2923"TEMP",1130580001.101,0,"LAYGO")
2924
2925"TEMP",1130580001.101,0,"RD")
2926
2927"TEMP",1130580001.101,0,"WR")
2928
2929"TEMP",1130580001.101,"%",0)
2930^1.005^^
2931"TEMP",1130580001.201,0)
2932C0Q MEASUREMENT SET^1130580001.201
2933"TEMP",1130580001.201,0,"AUDIT")
2934@
2935"TEMP",1130580001.201,0,"DD")
2936@
2937"TEMP",1130580001.201,0,"DEL")
2938
2939"TEMP",1130580001.201,0,"GL")
2940^C0Q(201,
2941"TEMP",1130580001.201,0,"LAYGO")
2942
2943"TEMP",1130580001.201,0,"RD")
2944
2945"TEMP",1130580001.201,0,"WR")
2946
2947"TEMP",1130580001.201,"%",0)
2948^1.005^^0
2949"TEMP",1130580001.201,"%D",0)
2950^^3^3^3120731^
2951"TEMP",1130580001.201,"%D",1,0)
2952This file contains the groupings of Measurements found in the Quality
2953"TEMP",1130580001.201,"%D",2,0)
2954Measures file. It is tied to the parameters file as the set of
2955"TEMP",1130580001.201,"%D",3,0)
2956measurements to report for a site.
2957"TEMP",1130580001.401,0)
2958C0Q PARAMETER^1130580001.401
2959"TEMP",1130580001.401,0,"AUDIT")
2960@
2961"TEMP",1130580001.401,0,"DD")
2962@
2963"TEMP",1130580001.401,0,"DEL")
2964
2965"TEMP",1130580001.401,0,"GL")
2966^C0Q(401,
2967"TEMP",1130580001.401,0,"LAYGO")
2968
2969"TEMP",1130580001.401,0,"RD")
2970
2971"TEMP",1130580001.401,0,"WR")
2972
2973"TEMP",1130580001.401,"%",0)
2974^1.005^^0
2975"TEMP",1130580001.401,"%D",0)
2976^^7^7^3120103^
2977"TEMP",1130580001.401,"%D",1,0)
2978This parameter file was created by George Lilly 12/2011 for the C0Q
2979"TEMP",1130580001.401,"%D",2,0)
2980Meaningful Use and Quality Measurement Project funded in part by Oroville
2981"TEMP",1130580001.401,"%D",3,0)
2982Hospital. It controls the updating of Meaningful Use patient lists and
2983"TEMP",1130580001.401,"%D",4,0)
2984C0Q MEASUREMENT SETs for a specific Measurement Period. In general, this
2985"TEMP",1130580001.401,"%D",5,0)
2986file should be updated using the C0Q SETUP options because the
2987"TEMP",1130580001.401,"%D",6,0)
2988combiniation of fields in each record varies depending on the updating
2989"TEMP",1130580001.401,"%D",7,0)
2990behavior that is desired.
2991"VER")
29928.0^22.0
2993"^DD",1130580001.101,1130580001.101,0)
2994FIELD^^.3^19
2995"^DD",1130580001.101,1130580001.101,0,"DDA")
2996N
2997"^DD",1130580001.101,1130580001.101,0,"DT")
29983120731
2999"^DD",1130580001.101,1130580001.101,0,"ID",.7)
3000W:$D(^(5)) " ",$P(^(5),U,1)
3001"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01)
3002
3003"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY MEASURE")
3004
3005"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01)
3006
3007"^DD",1130580001.101,1130580001.101,0,"VRPK")
3008C0Q
3009"^DD",1130580001.101,1130580001.101,.01,0)
3010NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
3011"^DD",1130580001.101,1130580001.101,.01,.1)
3012MEASURE NAME
3013"^DD",1130580001.101,1130580001.101,.01,1,0)
3014^.1
3015"^DD",1130580001.101,1130580001.101,.01,1,1,0)
30161130580001.101^B
3017"^DD",1130580001.101,1130580001.101,.01,1,1,1)
3018S ^C0Q(101,"B",$E(X,1,30),DA)=""
3019"^DD",1130580001.101,1130580001.101,.01,1,1,2)
3020K ^C0Q(101,"B",$E(X,1,30),DA)
3021"^DD",1130580001.101,1130580001.101,.01,3)
3022Answer must be 1-30 characters in length
3023"^DD",1130580001.101,1130580001.101,.01,"DT")
30243101012
3025"^DD",1130580001.101,1130580001.101,.3,0)
3026MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X
3027"^DD",1130580001.101,1130580001.101,.3,.1)
3028MEANINGFUL USE YEAR KEY
3029"^DD",1130580001.101,1130580001.101,.3,3)
3030Answer must be 1-30 characters in length.
3031"^DD",1130580001.101,1130580001.101,.3,"DT")
30323111201
3033"^DD",1130580001.101,1130580001.101,.5,0)
3034TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X
3035"^DD",1130580001.101,1130580001.101,.5,.1)
3036MEASURE TITLE
3037"^DD",1130580001.101,1130580001.101,.5,3)
3038Answer must be 3-240 characters in length
3039"^DD",1130580001.101,1130580001.101,.5,"DT")
30403110430
3041"^DD",1130580001.101,1130580001.101,.61,0)
3042VERY LONG DESCRIPTION^1130580001.111^^6;0
3043"^DD",1130580001.101,1130580001.101,.7,0)
3044DISPLAY NAME^F^^5;1^K:$L(X)>240!($L(X)<3) X
3045"^DD",1130580001.101,1130580001.101,.7,.1)
3046QRDA DISPLAY NAME
3047"^DD",1130580001.101,1130580001.101,.7,3)
3048Answer must be 3-240 characters in length
3049"^DD",1130580001.101,1130580001.101,.7,"DT")
30503101012
3051"^DD",1130580001.101,1130580001.101,.8,0)
3052REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X
3053"^DD",1130580001.101,1130580001.101,.8,.1)
3054REPORTING MEASURE NAME
3055"^DD",1130580001.101,1130580001.101,.8,3)
3056Answer must be 3-30 characters in length
3057"^DD",1130580001.101,1130580001.101,.8,"DT")
30583110615
3059"^DD",1130580001.101,1130580001.101,1,0)
3060NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q
3061"^DD",1130580001.101,1130580001.101,1,.1)
3062MEASURE NUMERATOR PATIENT LIST
3063"^DD",1130580001.101,1130580001.101,1,"DT")
30643101012
3065"^DD",1130580001.101,1130580001.101,1.1,0)
3066ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q
3067"^DD",1130580001.101,1130580001.101,1.1,"DT")
30683110805
3069"^DD",1130580001.101,1130580001.101,1.2,0)
3070NUMERATOR RULE SET^*P810.4'^PXRM(810.4,^7;7^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
3071"^DD",1130580001.101,1130580001.101,1.2,3)
3072Enter the reminder rule set to use for this measure.
3073"^DD",1130580001.101,1130580001.101,1.2,12)
3074If the type of the reminder list rule is a Rule Set.
3075"^DD",1130580001.101,1130580001.101,1.2,12.1)
3076S DIC("S")="I $P(^(0),U,3)=3"
3077"^DD",1130580001.101,1130580001.101,1.2,21,0)
3078^^5^5^3120716^
3079"^DD",1130580001.101,1130580001.101,1.2,21,1,0)
3080This is the numerator reminder rule set to use for the quality measure.
3081"^DD",1130580001.101,1130580001.101,1.2,21,2,0)
3082
3083"^DD",1130580001.101,1130580001.101,1.2,21,3,0)
3084The rule set is used to generate a patient list, which this package
3085"^DD",1130580001.101,1130580001.101,1.2,21,4,0)
3086referneces. The contents of the patient list will produce the count for
3087"^DD",1130580001.101,1130580001.101,1.2,21,5,0)
3088the measure. This count is for the numerator.
3089"^DD",1130580001.101,1130580001.101,1.2,"DT")
30903120716
3091"^DD",1130580001.101,1130580001.101,1.5,0)
3092NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q
3093"^DD",1130580001.101,1130580001.101,1.5,.1)
3094LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS
3095"^DD",1130580001.101,1130580001.101,1.5,"DT")
30963110809
3097"^DD",1130580001.101,1130580001.101,1.51,0)
3098ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q
3099"^DD",1130580001.101,1130580001.101,1.51,.1)
3100NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE
3101"^DD",1130580001.101,1130580001.101,1.51,"DT")
31023110809
3103"^DD",1130580001.101,1130580001.101,2,0)
3104DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q
3105"^DD",1130580001.101,1130580001.101,2,.1)
3106MEASURE DENOMINATOR PATIENT LIST
3107"^DD",1130580001.101,1130580001.101,2,"DT")
31083101012
3109"^DD",1130580001.101,1130580001.101,2.1,0)
3110ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q
3111"^DD",1130580001.101,1130580001.101,2.1,"DT")
31123110805
3113"^DD",1130580001.101,1130580001.101,2.2,0)
3114DENOMINATOR RULE SET^*P810.4'^PXRM(810.4,^7;8^S DIC("S")="I $P(^(0),U,3)=3" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
3115"^DD",1130580001.101,1130580001.101,2.2,3)
3116Enter the reminder rule set to use for this measure.
3117"^DD",1130580001.101,1130580001.101,2.2,12)
3118If the type of the reminder list rule is a Rule Set.
3119"^DD",1130580001.101,1130580001.101,2.2,12.1)
3120S DIC("S")="I $P(^(0),U,3)=3"
3121"^DD",1130580001.101,1130580001.101,2.2,21,0)
3122^^5^5^3120716^
3123"^DD",1130580001.101,1130580001.101,2.2,21,1,0)
3124This is the denominator reminder rule set to use for the quality measure.
3125"^DD",1130580001.101,1130580001.101,2.2,21,2,0)
3126
3127"^DD",1130580001.101,1130580001.101,2.2,21,3,0)
3128The rule set is used to generate a patient list, which this package
3129"^DD",1130580001.101,1130580001.101,2.2,21,4,0)
3130referneces. The contents of the patient list will produce the count for
3131"^DD",1130580001.101,1130580001.101,2.2,21,5,0)
3132the measure. This count is for the denominator.
3133"^DD",1130580001.101,1130580001.101,2.2,"DT")
31343120716
3135"^DD",1130580001.101,1130580001.101,2.5,0)
3136EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q
3137"^DD",1130580001.101,1130580001.101,2.5,3)
3138Select a Reminder Extract Definition for this measure
3139"^DD",1130580001.101,1130580001.101,2.5,21,0)
3140^^4^4^3120726^
3141"^DD",1130580001.101,1130580001.101,2.5,21,1,0)
3142If this measure depends upon a reminder extract definition, you can add
3143"^DD",1130580001.101,1130580001.101,2.5,21,2,0)
3144this extract definition here. This will alter how the Quality Measures
3145"^DD",1130580001.101,1130580001.101,2.5,21,3,0)
3146package computes the measure to use the extract in addition and prior to
3147"^DD",1130580001.101,1130580001.101,2.5,21,4,0)
3148the rule sets.
3149"^DD",1130580001.101,1130580001.101,2.5,"DT")
31503120726
3151"^DD",1130580001.101,1130580001.101,3,0)
3152QRDA TEMPLATE ROOT^F^^0;4^K:$L(X)>120!($L(X)<3) X
3153"^DD",1130580001.101,1130580001.101,3,.1)
3154
3155"^DD",1130580001.101,1130580001.101,3,3)
3156Answer must be 3-120 characters in length
3157"^DD",1130580001.101,1130580001.101,3,21,0)
3158^^2^2^3120731^^
3159"^DD",1130580001.101,1130580001.101,3,21,1,0)
3160Measure template root for the QRDA Document. A series of . delimited
3161"^DD",1130580001.101,1130580001.101,3,21,2,0)
3162numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1
3163"^DD",1130580001.101,1130580001.101,3,"DT")
31643120731
3165"^DD",1130580001.101,1130580001.101,3.1,0)
3166QRDA MEASURE SYSTEM OID^CJ^^ ; ^S X="2.16.840.1.113883.3.249.12"
3167"^DD",1130580001.101,1130580001.101,3.1,.1)
3168QRDA SYSTEM OID (FIXED)
3169"^DD",1130580001.101,1130580001.101,3.1,9.01)
3170
3171"^DD",1130580001.101,1130580001.101,3.1,9.1)
3172S X="2.16.840.1.113883.3.249.12"
3173"^DD",1130580001.101,1130580001.101,3.1,"DT")
31743101012
3175"^DD",1130580001.101,1130580001.101,3.2,0)
3176QRDA CODE^F^^4;1^K:$L(X)>80!($L(X)<1) X
3177"^DD",1130580001.101,1130580001.101,3.2,.1)
3178QRDA MEASURE CODE
3179"^DD",1130580001.101,1130580001.101,3.2,3)
3180Answer must be 1-80 characters in length
3181"^DD",1130580001.101,1130580001.101,3.2,"DT")
31823101012
3183"^DD",1130580001.101,1130580001.101,4,0)
3184MEASURE TYPE^S^P:Performance;Q:Quality;E:Electronic Prescribing Performance;^0;5^Q
3185"^DD",1130580001.101,1130580001.101,4,3)
3186Enter a code P, Q or E
3187"^DD",1130580001.101,1130580001.101,4,21,0)
3188^^19^19^3120530^
3189"^DD",1130580001.101,1130580001.101,4,21,1,0)
3190This field designates the measure type. It can be P, Q or M.
3191"^DD",1130580001.101,1130580001.101,4,21,2,0)
3192
3193"^DD",1130580001.101,1130580001.101,4,21,3,0)
3194P is for Performance. Performance measures are MU measures to measure
3195"^DD",1130580001.101,1130580001.101,4,21,4,0)
3196how meaningfully used an EMR is. An example of a performance measure
3197"^DD",1130580001.101,1130580001.101,4,21,5,0)
3198is whether allergies are documented in the EMR. Performance measures
3199"^DD",1130580001.101,1130580001.101,4,21,6,0)
3200reference a Patient List created by this package.
3201"^DD",1130580001.101,1130580001.101,4,21,7,0)
3202
3203"^DD",1130580001.101,1130580001.101,4,21,8,0)
3204Q is for Quality Measures. Quality measures are MU measures to assess how
3205"^DD",1130580001.101,1130580001.101,4,21,9,0)
3206well the patients are cared for. An example of a quality measure is
3207"^DD",1130580001.101,1130580001.101,4,21,10,0)
3208whether Hemoglobin A1c Poor Control. Quality measures reference Patient
3209"^DD",1130580001.101,1130580001.101,4,21,11,0)
3210Lists in the Reminders package.
3211"^DD",1130580001.101,1130580001.101,4,21,12,0)
3212
3213"^DD",1130580001.101,1130580001.101,4,21,13,0)
3214E is for Electronic Prescribing. This is a Performance measure, except
3215"^DD",1130580001.101,1130580001.101,4,21,14,0)
3216that it is handled differently than the rest. Instead of the numerators
3217"^DD",1130580001.101,1130580001.101,4,21,15,0)
3218and denominators being lists of patients as with all the other
3219"^DD",1130580001.101,1130580001.101,4,21,16,0)
3220measurements, they are a number of prescriptions. That's why we have a
3221"^DD",1130580001.101,1130580001.101,4,21,17,0)
3222special flag for it. It references a Patient List created by this
3223"^DD",1130580001.101,1130580001.101,4,21,18,0)
3224package. The numerator and denominators are stored in subfiles for each
3225"^DD",1130580001.101,1130580001.101,4,21,19,0)
3226patient.
3227"^DD",1130580001.101,1130580001.101,4,23,0)
3228^^4^4^3120530^
3229"^DD",1130580001.101,1130580001.101,4,23,1,0)
3230As of version C0P*1.0*1, the software doesn't use this field except to
3231"^DD",1130580001.101,1130580001.101,4,23,2,0)
3232check for an electronic prescribing type (code E).
3233"^DD",1130580001.101,1130580001.101,4,23,3,0)
3234
3235"^DD",1130580001.101,1130580001.101,4,23,4,0)
3236I anticipate using this field for other purposes in the future.
3237"^DD",1130580001.101,1130580001.101,4,"DT")
32383120530
3239"^DD",1130580001.101,1130580001.111,0)
3240VERY LONG DESCRIPTION SUB-FIELD^^.01^1
3241"^DD",1130580001.101,1130580001.111,0,"DT")
32423101013
3243"^DD",1130580001.101,1130580001.111,0,"NM","VERY LONG DESCRIPTION")
3244
3245"^DD",1130580001.101,1130580001.111,0,"UP")
32461130580001.101
3247"^DD",1130580001.101,1130580001.111,.01,0)
3248VERY LONG DESCRIPTION^Wx^^0;1
3249"^DD",1130580001.101,1130580001.111,.01,.1)
3250LONGER DESCRIPTION - IF IT DOESN'T FIT IN .6
3251"^DD",1130580001.101,1130580001.111,.01,3)
3252LONGER DESCRIPTION - INSTEAD OF LONG DESCRIPTION
3253"^DD",1130580001.101,1130580001.111,.01,"DT")
32543101013
3255"^DD",1130580001.201,1130580001.201,0)
3256FIELD^^.4^9
3257"^DD",1130580001.201,1130580001.201,0,"DDA")
3258N
3259"^DD",1130580001.201,1130580001.201,0,"DT")
32603120801
3261"^DD",1130580001.201,1130580001.201,0,"IX","ADBYP",1130580001.20112,.01)
3262
3263"^DD",1130580001.201,1130580001.201,0,"IX","ANBYP",1130580001.20111,.01)
3264
3265"^DD",1130580001.201,1130580001.201,0,"IX","B",1130580001.201,.01)
3266
3267"^DD",1130580001.201,1130580001.201,0,"NM","C0Q MEASUREMENT SET")
3268
3269"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1)
3270
3271"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1.1)
3272
3273"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2)
3274
3275"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2.1)
3276
3277"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.1)
3278
3279"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.2)
3280
3281"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.3)
3282
3283"^DD",1130580001.201,1130580001.201,0,"VRPK")
3284C0Q
3285"^DD",1130580001.201,1130580001.201,.01,0)
3286NAME^RFJ30^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
3287"^DD",1130580001.201,1130580001.201,.01,.1)
3288
3289"^DD",1130580001.201,1130580001.201,.01,1,0)
3290^.1
3291"^DD",1130580001.201,1130580001.201,.01,1,1,0)
32921130580001.201^B
3293"^DD",1130580001.201,1130580001.201,.01,1,1,1)
3294S ^C0Q(201,"B",$E(X,1,30),DA)=""
3295"^DD",1130580001.201,1130580001.201,.01,1,1,2)
3296K ^C0Q(201,"B",$E(X,1,30),DA)
3297"^DD",1130580001.201,1130580001.201,.01,3)
3298Answer must be 3-30 characters in length.
3299"^DD",1130580001.201,1130580001.201,.01,21,0)
3300^^1^1^3120731^
3301"^DD",1130580001.201,1130580001.201,.01,21,1,0)
3302Measurement Set Name.
3303"^DD",1130580001.201,1130580001.201,.01,"DT")
33043120731
3305"^DD",1130580001.201,1130580001.201,.02,0)
3306BEGIN DATE^D^^4;3^S %DT="E" D ^%DT S X=Y K:X<1 X
3307"^DD",1130580001.201,1130580001.201,.02,.1)
3308MEASUREMENT BEGIN DATE
3309"^DD",1130580001.201,1130580001.201,.02,3)
3310MEASUREMENT BEGIN DATE
3311"^DD",1130580001.201,1130580001.201,.02,"DT")
33123101012
3313"^DD",1130580001.201,1130580001.201,.03,0)
3314END DATE^D^^4;4^S %DT="E" D ^%DT S X=Y K:X<1 X
3315"^DD",1130580001.201,1130580001.201,.03,.1)
3316MEASUREMENT END DATE
3317"^DD",1130580001.201,1130580001.201,.03,3)
3318MEASUREMENT END DATE
3319"^DD",1130580001.201,1130580001.201,.03,"DT")
33203101012
3321"^DD",1130580001.201,1130580001.201,.04,0)
3322DATE LAST CALCULATED^D^^6;1^S %DT="E" D ^%DT S X=Y K:X<1 X
3323"^DD",1130580001.201,1130580001.201,.04,.1)
3324DATE LAST PROCESSED
3325"^DD",1130580001.201,1130580001.201,.04,3)
3326DATE LAST PROCESSED
3327"^DD",1130580001.201,1130580001.201,.04,"DT")
33283101012
3329"^DD",1130580001.201,1130580001.201,.05,0)
3330LOCKED^S^Y:YES;N:NO;^6;2^Q
3331"^DD",1130580001.201,1130580001.201,.05,.1)
3332Y/N IS THIS RECORD SET LOCKED
3333"^DD",1130580001.201,1130580001.201,.05,3)
3334Y/N IS THIS RECORD SET LOCKED
3335"^DD",1130580001.201,1130580001.201,.05,"DT")
33363101012
3337"^DD",1130580001.201,1130580001.201,.2,0)
3338USE ALL MEASURES^S^Y:YES;N:NO;^6;3^Q
3339"^DD",1130580001.201,1130580001.201,.2,.1)
3340INCLUDE ALL MEASURES IN THIS SET?
3341"^DD",1130580001.201,1130580001.201,.2,3)
3342INCLUDE ALL MEASURES IN THIS SET?
3343"^DD",1130580001.201,1130580001.201,.2,"DT")
33443101012
3345"^DD",1130580001.201,1130580001.201,.3,0)
3346MU YEAR KEY^F^^7;1^K:$L(X)>240!($L(X)<1) X
3347"^DD",1130580001.201,1130580001.201,.3,.1)
3348MEANINGFUL USE YEAR KEY
3349"^DD",1130580001.201,1130580001.201,.3,3)
3350Answer must be 1-240 characters in length.
3351"^DD",1130580001.201,1130580001.201,.3,"DT")
33523111129
3353"^DD",1130580001.201,1130580001.201,.4,0)
3354QRDA TEMPLATE ROOT^FJ120^^0;2^K:$L(X)>120!($L(X)<3) X
3355"^DD",1130580001.201,1130580001.201,.4,3)
3356Answer must be 3-120 characters in length.
3357"^DD",1130580001.201,1130580001.201,.4,21,0)
3358^^6^6^3120731^
3359"^DD",1130580001.201,1130580001.201,.4,21,1,0)
3360Measure template root for the Measurement Set. A series of . delimited
3361"^DD",1130580001.201,1130580001.201,.4,21,2,0)
3362numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1
3363"^DD",1130580001.201,1130580001.201,.4,21,3,0)
3364
3365"^DD",1130580001.201,1130580001.201,.4,21,4,0)
3366Most measurement sets don't have that. Only measurement sets reporable as
3367"^DD",1130580001.201,1130580001.201,.4,21,5,0)
3368a group (e.g. Inpatient ED, VTE, Stroke measures) will have this filled
3369"^DD",1130580001.201,1130580001.201,.4,21,6,0)
3370out as it is reported in the QRDA document.
3371"^DD",1130580001.201,1130580001.201,.4,"DT")
33723120731
3373"^DD",1130580001.201,1130580001.201,1,0)
3374MEASURE^1130580001.2011P^^5;0
3375"^DD",1130580001.201,1130580001.2011,0)
3376MEASURE SUB-FIELD^^2.2^8
3377"^DD",1130580001.201,1130580001.2011,0,"DT")
33783120801
3379"^DD",1130580001.201,1130580001.2011,0,"IX","B",1130580001.2011,.01)
3380
3381"^DD",1130580001.201,1130580001.2011,0,"NM","MEASURE")
3382
3383"^DD",1130580001.201,1130580001.2011,0,"UP")
33841130580001.201
3385"^DD",1130580001.201,1130580001.2011,.01,0)
3386MEASURE^MP1130580001.101'^C0Q(101,^0;1^Q
3387"^DD",1130580001.201,1130580001.2011,.01,.1)
3388
3389"^DD",1130580001.201,1130580001.2011,.01,1,0)
3390^.1
3391"^DD",1130580001.201,1130580001.2011,.01,1,1,0)
33921130580001.2011^B
3393"^DD",1130580001.201,1130580001.2011,.01,1,1,1)
3394S ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)=""
3395"^DD",1130580001.201,1130580001.2011,.01,1,1,2)
3396K ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)
3397"^DD",1130580001.201,1130580001.2011,.01,3)
3398Included Quality Measures
3399"^DD",1130580001.201,1130580001.2011,.01,"DT")
34003120801
3401"^DD",1130580001.201,1130580001.2011,1,0)
3402NUMERATOR^1130580001.20111P^^1;0
3403"^DD",1130580001.201,1130580001.2011,1.1,0)
3404NUMERATOR COUNT^NJ10,0^^2;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1.N) X
3405"^DD",1130580001.201,1130580001.2011,1.1,.1)
3406NUMBER OF PATIENTS IN NUMERATOR
3407"^DD",1130580001.201,1130580001.2011,1.1,3)
3408NUMBER OF PATIENTS IN NUMERATOR
3409"^DD",1130580001.201,1130580001.2011,1.1,"DT")
34103101012
3411"^DD",1130580001.201,1130580001.2011,1.2,0)
3412NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q
3413"^DD",1130580001.201,1130580001.2011,1.2,.1)
3414FILTER LIST FOR NUMERATOR
3415"^DD",1130580001.201,1130580001.2011,1.2,"DT")
34163111129
3417"^DD",1130580001.201,1130580001.2011,2,0)
3418DENOMINATOR^1130580001.20112P^^3;0
3419"^DD",1130580001.201,1130580001.2011,2.1,0)
3420DENOMINATOR COUNT^NJ9,0^^4;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1.N) X
3421"^DD",1130580001.201,1130580001.2011,2.1,.1)
3422NUMBER OF PATIENTS IN DENOMINATOR
3423"^DD",1130580001.201,1130580001.2011,2.1,3)
3424NUMBER OF PATIENTS IN DENOMINATOR
3425"^DD",1130580001.201,1130580001.2011,2.1,"DT")
34263101012
3427"^DD",1130580001.201,1130580001.2011,2.2,0)
3428DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q
3429"^DD",1130580001.201,1130580001.2011,2.2,.1)
3430FILTER LIST FOR DENOMINATOR
3431"^DD",1130580001.201,1130580001.2011,2.2,"DT")
34323111129
3433"^DD",1130580001.201,1130580001.2011,3,0)
3434PERCENTAGE^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X
3435"^DD",1130580001.201,1130580001.2011,3,.1)
3436MEASURE PERCENTAGE
3437"^DD",1130580001.201,1130580001.2011,3,3)
3438Type a number between 0 and 100, 2 Decimal Digits
3439"^DD",1130580001.201,1130580001.2011,3,"DT")
34403110621
3441"^DD",1130580001.201,1130580001.20111,0)
3442NUMERATOR SUB-FIELD^^.01^1
3443"^DD",1130580001.201,1130580001.20111,0,"DT")
34443101012
3445"^DD",1130580001.201,1130580001.20111,0,"IX","B",1130580001.20111,.01)
3446
3447"^DD",1130580001.201,1130580001.20111,0,"NM","NUMERATOR")
3448
3449"^DD",1130580001.201,1130580001.20111,0,"UP")
34501130580001.2011
3451"^DD",1130580001.201,1130580001.20111,.01,0)
3452NUMERATOR^MP2'^DPT(^0;1^Q
3453"^DD",1130580001.201,1130580001.20111,.01,.1)
3454NUMERATOR PATIENTS
3455"^DD",1130580001.201,1130580001.20111,.01,1,0)
3456^.1
3457"^DD",1130580001.201,1130580001.20111,.01,1,1,0)
34581130580001.20111^B
3459"^DD",1130580001.201,1130580001.20111,.01,1,1,1)
3460S ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)=""
3461"^DD",1130580001.201,1130580001.20111,.01,1,1,2)
3462K ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)
3463"^DD",1130580001.201,1130580001.20111,.01,1,2,0)
34641130580001.201^ANBYP
3465"^DD",1130580001.201,1130580001.20111,.01,1,2,1)
3466S ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)=""
3467"^DD",1130580001.201,1130580001.20111,.01,1,2,2)
3468K ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)
3469"^DD",1130580001.201,1130580001.20111,.01,1,2,"DT")
34703101014
3471"^DD",1130580001.201,1130580001.20111,.01,3)
3472NUMERATOR PATIENTS
3473"^DD",1130580001.201,1130580001.20111,.01,"DT")
34743101014
3475"^DD",1130580001.201,1130580001.20112,0)
3476DENOMINATOR SUB-FIELD^^.01^1
3477"^DD",1130580001.201,1130580001.20112,0,"DT")
34783101012
3479"^DD",1130580001.201,1130580001.20112,0,"IX","B",1130580001.20112,.01)
3480
3481"^DD",1130580001.201,1130580001.20112,0,"NM","DENOMINATOR")
3482
3483"^DD",1130580001.201,1130580001.20112,0,"UP")
34841130580001.2011
3485"^DD",1130580001.201,1130580001.20112,.01,0)
3486DENOMINATOR^MP2'^DPT(^0;1^Q
3487"^DD",1130580001.201,1130580001.20112,.01,.1)
3488DENOMINATOR PATIENTS
3489"^DD",1130580001.201,1130580001.20112,.01,1,0)
3490^.1
3491"^DD",1130580001.201,1130580001.20112,.01,1,1,0)
34921130580001.20112^B
3493"^DD",1130580001.201,1130580001.20112,.01,1,1,1)
3494S ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)=""
3495"^DD",1130580001.201,1130580001.20112,.01,1,1,2)
3496K ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)
3497"^DD",1130580001.201,1130580001.20112,.01,1,2,0)
34981130580001.201^ADBYP
3499"^DD",1130580001.201,1130580001.20112,.01,1,2,1)
3500S ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)=""
3501"^DD",1130580001.201,1130580001.20112,.01,1,2,2)
3502K ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)
3503"^DD",1130580001.201,1130580001.20112,.01,1,2,"DT")
35043101014
3505"^DD",1130580001.201,1130580001.20112,.01,3)
3506DENOMINATOR PATIENTS
3507"^DD",1130580001.201,1130580001.20112,.01,"DT")
35083101014
3509"^DD",1130580001.401,1130580001.401,0)
3510FIELD^^1.015^14
3511"^DD",1130580001.401,1130580001.401,0,"DDA")
3512N
3513"^DD",1130580001.401,1130580001.401,0,"DT")
35143120207
3515"^DD",1130580001.401,1130580001.401,0,"IX","AMMS",1130580001.401,2)
3516
3517"^DD",1130580001.401,1130580001.401,0,"IX","AQMS",1130580001.401,2.1)
3518
3519"^DD",1130580001.401,1130580001.401,0,"IX","B",1130580001.401,.01)
3520
3521"^DD",1130580001.401,1130580001.401,0,"NM","C0Q PARAMETER")
3522
3523"^DD",1130580001.401,1130580001.401,0,"VRPK")
3524QUALITY MEASURES
3525"^DD",1130580001.401,1130580001.401,.01,0)
3526NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
3527"^DD",1130580001.401,1130580001.401,.01,1,0)
3528^.1
3529"^DD",1130580001.401,1130580001.401,.01,1,1,0)
35301130580001.401^B
3531"^DD",1130580001.401,1130580001.401,.01,1,1,1)
3532S ^C0Q(401,"B",$E(X,1,30),DA)=""
3533"^DD",1130580001.401,1130580001.401,.01,1,1,2)
3534K ^C0Q(401,"B",$E(X,1,30),DA)
3535"^DD",1130580001.401,1130580001.401,.01,3)
3536NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
3537"^DD",1130580001.401,1130580001.401,.02,0)
3538MEASUREMENT PERIOD KEY^F^^0;2^K:$L(X)>60!($L(X)<1) X
3539"^DD",1130580001.401,1130580001.401,.02,.1)
3540YEAR KEY FOR MEASUREMENT PERIOD IE MU12
3541"^DD",1130580001.401,1130580001.401,.02,3)
3542Answer must be 1-60 characters in length.
3543"^DD",1130580001.401,1130580001.401,.02,21,0)
3544^^3^3^3120103^
3545"^DD",1130580001.401,1130580001.401,.02,21,1,0)
3546Meaningful Use and Quality Measures are generally computed for a
3547"^DD",1130580001.401,1130580001.401,.02,21,2,0)
3548particular fiscal year. The Measurement Period Key changes every year
3549"^DD",1130580001.401,1130580001.401,.02,21,3,0)
3550when new parameters are set up to govern the computations for that year.
3551"^DD",1130580001.401,1130580001.401,.02,"DT")
35523120103
3553"^DD",1130580001.401,1130580001.401,.03,0)
3554PARAMETER TYPE^S^INP:INPATIENT;EP:OUTPATIENT;ALL:SUPERUSERS;^0;3^Q
3555"^DD",1130580001.401,1130580001.401,.03,.1)
3556C0Q PARAMETER TYPE
3557"^DD",1130580001.401,1130580001.401,.03,21,0)
3558^^6^6^3120103^
3559"^DD",1130580001.401,1130580001.401,.03,21,1,0)
3560If the current parameter record is type INP it will define the processing
3561"^DD",1130580001.401,1130580001.401,.03,21,2,0)
3562for inpatient patients. Type EP defines the processing for one group of
3563"^DD",1130580001.401,1130580001.401,.03,21,3,0)
3564oupatient patients where a group is the patients with a visit at one or
3565"^DD",1130580001.401,1130580001.401,.03,21,4,0)
3566more clinics specified in the CLINIC multiple. Type ALL is used to
3567"^DD",1130580001.401,1130580001.401,.03,21,5,0)
3568specify a set of subscribers who have access to all Measurement Sets in
3569"^DD",1130580001.401,1130580001.401,.03,21,6,0)
3570the specifies Measurement Period.
3571"^DD",1130580001.401,1130580001.401,.03,"DT")
35723120103
3573"^DD",1130580001.401,1130580001.401,1,0)
3574INP MU MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;4^Q
3575"^DD",1130580001.401,1130580001.401,1,.1)
3576INPATIENT MEANINGFUL USE MEASUREMENT SET
3577"^DD",1130580001.401,1130580001.401,1,"DT")
35783120103
3579"^DD",1130580001.401,1130580001.401,1.015,0)
3580DIVISION REPORTING^P40.8'^DG(40.8,^4;1^Q
3581"^DD",1130580001.401,1130580001.401,1.015,.1)
3582MEDICAL CENTER DIVISION FOR THIS PARAMETER
3583"^DD",1130580001.401,1130580001.401,1.015,"DT")
35843120207
3585"^DD",1130580001.401,1130580001.401,1.1,0)
3586INP QUALITY MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;5^Q
3587"^DD",1130580001.401,1130580001.401,1.1,.1)
3588INPATIENT QUALITY MEASUREMENT SET
3589"^DD",1130580001.401,1130580001.401,1.1,"DT")
35903120103
3591"^DD",1130580001.401,1130580001.401,2,0)
3592EP MU MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;6^Q
3593"^DD",1130580001.401,1130580001.401,2,.1)
3594OUTPATIENT MEANINGFUL USE MEASUREMENT SET
3595"^DD",1130580001.401,1130580001.401,2,1,0)
3596^.1
3597"^DD",1130580001.401,1130580001.401,2,1,1,0)
35981130580001.401^AMMS
3599"^DD",1130580001.401,1130580001.401,2,1,1,1)
3600S ^C0Q(401,"AMMS",$E(X,1,30),DA)=""
3601"^DD",1130580001.401,1130580001.401,2,1,1,2)
3602K ^C0Q(401,"AMMS",$E(X,1,30),DA)
3603"^DD",1130580001.401,1130580001.401,2,1,1,3)
3604USED BY THE CODE. SEE DESCRIPTION.
3605"^DD",1130580001.401,1130580001.401,2,1,1,"%D",0)
3606^.101^5^5^3120530^^^
3607"^DD",1130580001.401,1130580001.401,2,1,1,"%D",1,0)
3608Indexes the IEN of the Measurement Set. Used so that we can walk back to
3609"^DD",1130580001.401,1130580001.401,2,1,1,"%D",2,0)
3610a parameter when processing a specific IEN.
3611"^DD",1130580001.401,1130580001.401,2,1,1,"%D",3,0)
3612
3613"^DD",1130580001.401,1130580001.401,2,1,1,"%D",4,0)
3614You can get the IEN of the measurement set using
3615"^DD",1130580001.401,1130580001.401,2,1,1,"%D",5,0)
3616$O(^C0Q(401,"AMMS",MSIEN,"")).
3617"^DD",1130580001.401,1130580001.401,2,1,1,"DT")
36183120530
3619"^DD",1130580001.401,1130580001.401,2,"DT")
36203120103
3621"^DD",1130580001.401,1130580001.401,2.1,0)
3622EP QUALITY MEASUREMENT SET^P1130580001.201'^C0Q(201,^0;7^Q
3623"^DD",1130580001.401,1130580001.401,2.1,.1)
3624OUTPATIENT QUALITY MEASUREMENT SET
3625"^DD",1130580001.401,1130580001.401,2.1,1,0)
3626^.1
3627"^DD",1130580001.401,1130580001.401,2.1,1,1,0)
36281130580001.401^AQMS
3629"^DD",1130580001.401,1130580001.401,2.1,1,1,1)
3630S ^C0Q(401,"AQMS",$E(X,1,30),DA)=""
3631"^DD",1130580001.401,1130580001.401,2.1,1,1,2)
3632K ^C0Q(401,"AQMS",$E(X,1,30),DA)
3633"^DD",1130580001.401,1130580001.401,2.1,1,1,3)
3634USED BY THE CODE. SEE DESCRIPTION.
3635"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",0)
3636^^5^5^3120530^
3637"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",1,0)
3638Indexes the IEN of the Measurement Set. Used so that we can walk back to
3639"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",2,0)
3640a parameter when processing a specific IEN.
3641"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",3,0)
3642
3643"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",4,0)
3644You can get the IEN of the measurement set using
3645"^DD",1130580001.401,1130580001.401,2.1,1,1,"%D",5,0)
3646$O(^C0Q(401,"AQMS",MSIEN,"")).
3647"^DD",1130580001.401,1130580001.401,2.1,1,1,"DT")
36483120530
3649"^DD",1130580001.401,1130580001.401,2.1,"DT")
36503120103
3651"^DD",1130580001.401,1130580001.401,2.2,0)
3652CLINIC^1130580001.411P^^1;0
3653"^DD",1130580001.401,1130580001.401,2.3,0)
3654PATIENT LIST LABEL^F^^2;1^K:$L(X)>20!($L(X)<1) X
3655"^DD",1130580001.401,1130580001.401,2.3,.1)
3656MU PATIENT LIST LABEL
3657"^DD",1130580001.401,1130580001.401,2.3,3)
3658Answer must be 1-20 characters in length.
3659"^DD",1130580001.401,1130580001.401,2.3,21,0)
3660^^3^3^3120103^
3661"^DD",1130580001.401,1130580001.401,2.3,21,1,0)
3662When there is more than one clinic in this reporting group, this field is
3663"^DD",1130580001.401,1130580001.401,2.3,21,2,0)
3664used to contain a label for the patient lists. If it is not defined, the
3665"^DD",1130580001.401,1130580001.401,2.3,21,3,0)
3666name of the first clinic defined is used as the label.
3667"^DD",1130580001.401,1130580001.401,2.3,"DT")
36683120103
3669"^DD",1130580001.401,1130580001.401,3,0)
3670SUBSCRIBER^1130580001.4013P^^3;0
3671"^DD",1130580001.401,1130580001.401,5.1,0)
3672VTE CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;1^Q
3673"^DD",1130580001.401,1130580001.401,5.1,3)
3674Enter VTE Measure Set to use for Inpatient CMS QRDA Reporting
3675"^DD",1130580001.401,1130580001.401,5.1,21,0)
3676^^3^3^3120801^^^
3677"^DD",1130580001.401,1130580001.401,5.1,21,1,0)
3678This field holds the VTE measure set for reporting information to the
3679"^DD",1130580001.401,1130580001.401,5.1,21,2,0)
3680Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR)
3681"^DD",1130580001.401,1130580001.401,5.1,21,3,0)
36822012 EHR incentive pilot.
3683"^DD",1130580001.401,1130580001.401,5.1,23,0)
3684^^3^3^3120801^
3685"^DD",1130580001.401,1130580001.401,5.1,23,1,0)
3686See
3687"^DD",1130580001.401,1130580001.401,5.1,23,2,0)
3688http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%
3689"^DD",1130580001.401,1130580001.401,5.1,23,3,0)
36902FQnetTier3&cid=1228772217179
3691"^DD",1130580001.401,1130580001.401,5.1,"DT")
36923120801
3693"^DD",1130580001.401,1130580001.401,5.2,0)
3694STK CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;2^Q
3695"^DD",1130580001.401,1130580001.401,5.2,3)
3696Enter STK Measure Set to use for Inpatient CMS QRDA Reporting
3697"^DD",1130580001.401,1130580001.401,5.2,21,0)
3698^^3^3^3120801^
3699"^DD",1130580001.401,1130580001.401,5.2,21,1,0)
3700This field holds the STK measure set for reporting information to the
3701"^DD",1130580001.401,1130580001.401,5.2,21,2,0)
3702Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR)
3703"^DD",1130580001.401,1130580001.401,5.2,21,3,0)
37042012 EHR incentive pilot.
3705"^DD",1130580001.401,1130580001.401,5.2,23,0)
3706^^3^3^3120801^
3707"^DD",1130580001.401,1130580001.401,5.2,23,1,0)
3708See
3709"^DD",1130580001.401,1130580001.401,5.2,23,2,0)
3710http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%
3711"^DD",1130580001.401,1130580001.401,5.2,23,3,0)
37122FQnetTier3&cid=1228772217179
3713"^DD",1130580001.401,1130580001.401,5.2,"DT")
37143120801
3715"^DD",1130580001.401,1130580001.401,5.3,0)
3716ED CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;3^Q
3717"^DD",1130580001.401,1130580001.401,5.3,3)
3718Enter ED Measure Set to use for Inpatient CMS QRDA Reporting
3719"^DD",1130580001.401,1130580001.401,5.3,21,0)
3720^^3^3^3120801^
3721"^DD",1130580001.401,1130580001.401,5.3,21,1,0)
3722This field holds the ED measure set for reporting information to the
3723"^DD",1130580001.401,1130580001.401,5.3,21,2,0)
3724Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR)
3725"^DD",1130580001.401,1130580001.401,5.3,21,3,0)
37262012 EHR incentive pilot.
3727"^DD",1130580001.401,1130580001.401,5.3,23,0)
3728^^3^3^3120801^
3729"^DD",1130580001.401,1130580001.401,5.3,23,1,0)
3730See
3731"^DD",1130580001.401,1130580001.401,5.3,23,2,0)
3732http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%
3733"^DD",1130580001.401,1130580001.401,5.3,23,3,0)
37342FQnetTier3&cid=1228772217179
3735"^DD",1130580001.401,1130580001.401,5.3,"DT")
37363120801
3737"^DD",1130580001.401,1130580001.4013,0)
3738SUBSCRIBER SUB-FIELD^^.02^2
3739"^DD",1130580001.401,1130580001.4013,0,"DT")
37403120103
3741"^DD",1130580001.401,1130580001.4013,0,"IX","B",1130580001.4013,.01)
3742
3743"^DD",1130580001.401,1130580001.4013,0,"NM","SUBSCRIBER")
3744
3745"^DD",1130580001.401,1130580001.4013,0,"UP")
37461130580001.401
3747"^DD",1130580001.401,1130580001.4013,.01,0)
3748SUBSCRIBER^MP200'^VA(200,^0;1^Q
3749"^DD",1130580001.401,1130580001.4013,.01,.1)
3750SUBSCRIBERS TO THIS MEASUREMENT SET
3751"^DD",1130580001.401,1130580001.4013,.01,1,0)
3752^.1
3753"^DD",1130580001.401,1130580001.4013,.01,1,1,0)
37541130580001.4013^B
3755"^DD",1130580001.401,1130580001.4013,.01,1,1,1)
3756S ^C0Q(401,DA(1),3,"B",$E(X,1,30),DA)=""
3757"^DD",1130580001.401,1130580001.4013,.01,1,1,2)
3758K ^C0Q(401,DA(1),3,"B",$E(X,1,30),DA)
3759"^DD",1130580001.401,1130580001.4013,.01,"DT")
37603120103
3761"^DD",1130580001.401,1130580001.4013,.02,0)
3762DEFAULT^S^1:YES;0:NO;^0;2^Q
3763"^DD",1130580001.401,1130580001.4013,.02,.1)
3764DISPLAY AS SUBSCRIBER DEFAULT MEASUREMENT SET
3765"^DD",1130580001.401,1130580001.4013,.02,"DT")
37663120103
3767"^DD",1130580001.401,1130580001.411,0)
3768CLINIC SUB-FIELD^^.01^1
3769"^DD",1130580001.401,1130580001.411,0,"DT")
37703120103
3771"^DD",1130580001.401,1130580001.411,0,"IX","B",1130580001.411,.01)
3772
3773"^DD",1130580001.401,1130580001.411,0,"NM","CLINIC")
3774
3775"^DD",1130580001.401,1130580001.411,0,"UP")
37761130580001.401
3777"^DD",1130580001.401,1130580001.411,.01,0)
3778CLINIC^MP44'^SC(^0;1^Q
3779"^DD",1130580001.401,1130580001.411,.01,.1)
3780OUTPATIENT CLINIC
3781"^DD",1130580001.401,1130580001.411,.01,1,0)
3782^.1
3783"^DD",1130580001.401,1130580001.411,.01,1,1,0)
37841130580001.411^B
3785"^DD",1130580001.401,1130580001.411,.01,1,1,1)
3786S ^C0Q(401,DA(1),1,"B",$E(X,1,30),DA)=""
3787"^DD",1130580001.401,1130580001.411,.01,1,1,2)
3788K ^C0Q(401,DA(1),1,"B",$E(X,1,30),DA)
3789"^DD",1130580001.401,1130580001.411,.01,"DT")
37903120103
3791"^DIC",1130580001.101,1130580001.101,0)
3792C0Q QUALITY MEASURE^1130580001.101
3793"^DIC",1130580001.101,1130580001.101,0,"GL")
3794^C0Q(101,
3795"^DIC",1130580001.101,1130580001.101,"%",0)
3796^1.005^^
3797"^DIC",1130580001.101,"B","C0Q QUALITY MEASURE",1130580001.101)
3798
3799"^DIC",1130580001.201,1130580001.201,0)
3800C0Q MEASUREMENT SET^1130580001.201
3801"^DIC",1130580001.201,1130580001.201,0,"GL")
3802^C0Q(201,
3803"^DIC",1130580001.201,1130580001.201,"%",0)
3804^1.005^^0
3805"^DIC",1130580001.201,1130580001.201,"%D",0)
3806^^3^3^3120731^
3807"^DIC",1130580001.201,1130580001.201,"%D",1,0)
3808This file contains the groupings of Measurements found in the Quality
3809"^DIC",1130580001.201,1130580001.201,"%D",2,0)
3810Measures file. It is tied to the parameters file as the set of
3811"^DIC",1130580001.201,1130580001.201,"%D",3,0)
3812measurements to report for a site.
3813"^DIC",1130580001.201,"B","C0Q MEASUREMENT SET",1130580001.201)
3814
3815"^DIC",1130580001.401,1130580001.401,0)
3816C0Q PARAMETER^1130580001.401
3817"^DIC",1130580001.401,1130580001.401,0,"GL")
3818^C0Q(401,
3819"^DIC",1130580001.401,1130580001.401,"%",0)
3820^1.005^^0
3821"^DIC",1130580001.401,1130580001.401,"%D",0)
3822^^7^7^3120103^
3823"^DIC",1130580001.401,1130580001.401,"%D",1,0)
3824This parameter file was created by George Lilly 12/2011 for the C0Q
3825"^DIC",1130580001.401,1130580001.401,"%D",2,0)
3826Meaningful Use and Quality Measurement Project funded in part by Oroville
3827"^DIC",1130580001.401,1130580001.401,"%D",3,0)
3828Hospital. It controls the updating of Meaningful Use patient lists and
3829"^DIC",1130580001.401,1130580001.401,"%D",4,0)
3830C0Q MEASUREMENT SETs for a specific Measurement Period. In general, this
3831"^DIC",1130580001.401,1130580001.401,"%D",5,0)
3832file should be updated using the C0Q SETUP options because the
3833"^DIC",1130580001.401,1130580001.401,"%D",6,0)
3834combiniation of fields in each record varies depending on the updating
3835"^DIC",1130580001.401,1130580001.401,"%D",7,0)
3836behavior that is desired.
3837"^DIC",1130580001.401,"B","C0Q PARAMETER",1130580001.401)
3838
3839**END**
3840**END**
Note: See TracBrowser for help on using the repository browser.