source: qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.KID@ 1589

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

Final (for now) patch 4 for C0Q.
File size: 98.0 KB
Line 
1KIDS Distribution saved on Aug 24, 2012@13:01:24
2INPATIENT CMS QRDA GENERATION SUPPORT
3**KIDS**:C0Q*1.0*4^
4
5**INSTALL NAME**
6C0Q*1.0*4
7"BLD",7936,0)
8C0Q*1.0*4^QUALITY MEASURES^0^3120824^y
9"BLD",7936,1,0)
10^^250^250^3120824^
11"BLD",7936,1,1,0)
12 Source, Copyright, & Licensing:
13"BLD",7936,1,2,0)
14 ===============================
15"BLD",7936,1,3,0)
16 This patch to WorldVistA 2.0 was produced in Dew Drop
17"BLD",7936,1,4,0)
18 by George Lily on 24 August 2012 and released through VISTA Forum.
19"BLD",7936,1,5,0)
20
21"BLD",7936,1,6,0)
22 (C) 2012 George Lilly
23"BLD",7936,1,7,0)
24 Licensed under GPL 2.
25"BLD",7936,1,8,0)
26
27"BLD",7936,1,9,0)
28 Functionality:
29"BLD",7936,1,10,0)
30 ==============
31"BLD",7936,1,11,0)
32 This patch adds the ability to generate modified CCRs
33"BLD",7936,1,12,0)
34 containing a QUALITY measure section that looks like
35"BLD",7936,1,13,0)
36 this:
37"BLD",7936,1,14,0)
38 <QUALITY>
39"BLD",7936,1,15,0)
40 <MEASURE_SET>
41"BLD",7936,1,16,0)
42 <ID>1.3.6.1.4.1.33895.1.1.31.1.2.1</ID>
43"BLD",7936,1,17,0)
44 <MEASURES>
45"BLD",7936,1,18,0)
46 <MEASURE>1.3.6.1.4.1.33895.1.2.16001.1.2.2</MEASURE>
47"BLD",7936,1,19,0)
48 <MEASURE>1.3.6.1.4.1.33895.1.2.16002.1.2.2</MEASURE>
49"BLD",7936,1,20,0)
50 <MEASURE>1.3.6.1.4.1.33895.1.2.16004.1.2.2</MEASURE>
51"BLD",7936,1,21,0)
52 <MEASURE>1.3.6.1.4.1.33895.1.2.16008.1.2.2</MEASURE>
53"BLD",7936,1,22,0)
54 </MEASURES>
55"BLD",7936,1,23,0)
56 </MEASURE_SET>
57"BLD",7936,1,24,0)
58 </QUALITY>
59"BLD",7936,1,25,0)
60
61"BLD",7936,1,26,0)
62 This enables you to create a QRDA document in the C32 format to submit to CMS
63"BLD",7936,1,27,0)
64 containing these measures. The C32 document will be generated by an XSLT
65"BLD",7936,1,28,0)
66 transform from the CCR document.
67"BLD",7936,1,29,0)
68
69"BLD",7936,1,30,0)
70 The driving force behind the creation of this patch, as well as the
71"BLD",7936,1,31,0)
72 documentation of the actual QRDA documents to send to CMS can be found here:
73"BLD",7936,1,32,0)
74 http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier3&cid=1228772217179
75"BLD",7936,1,33,0)
76
77"BLD",7936,1,34,0)
78 Specifically, this sentence:
79"BLD",7936,1,35,0)
80 "One part of meeting the requirements for Stage I Meaningful Use may include
81"BLD",7936,1,36,0)
82 submitting Clinical Quality Measures (CQMs) electronically using the QRDA
83"BLD",7936,1,37,0)
84 Category I file format."
85"BLD",7936,1,38,0)
86
87"BLD",7936,1,39,0)
88 Package Elements:
89"BLD",7936,1,40,0)
90 =================
91"BLD",7936,1,41,0)
92PACKAGE: C0Q*1.0*4 Aug 24, 2012 12:02 pm PAGE 1
93"BLD",7936,1,42,0)
94-------------------------------------------------------------------------------
95"BLD",7936,1,43,0)
96TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES
97"BLD",7936,1,44,0)
98NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO
99"BLD",7936,1,45,0)
100
101"BLD",7936,1,46,0)
102DESCRIPTION:
103"BLD",7936,1,47,0)
104QRDA Support.
105"BLD",7936,1,48,0)
106
107"BLD",7936,1,49,0)
108ENVIRONMENT CHECK: DELETE ENV ROUTINE:
109"BLD",7936,1,50,0)
110 PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE:
111"BLD",7936,1,51,0)
112POST-INIT ROUTINE: DELETE POST-INIT ROUTINE:
113"BLD",7936,1,52,0)
114PRE-TRANSPORT RTN: TRAN^C0Q1P4
115"BLD",7936,1,53,0)
116
117"BLD",7936,1,54,0)
118 UP SEND DATA USER
119"BLD",7936,1,55,0)
120 DATE SEC. COMES SITE RSLV OVER
121"BLD",7936,1,56,0)
122FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE
123"BLD",7936,1,57,0)
124-------------------------------------------------------------------------------
125"BLD",7936,1,58,0)
126
127"BLD",7936,1,59,0)
1281130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO
129"BLD",7936,1,60,0)
130
131"BLD",7936,1,61,0)
1321130580001.201C0Q MEASUREMENT SET YES YES YES OVER YES NO
133"BLD",7936,1,62,0)
134
135"BLD",7936,1,63,0)
1361130580001.401C0Q PARAMETER YES YES NO NO
137"BLD",7936,1,64,0)
138Partial DD: subDD: 1130580001.401fld: 5.1
139"BLD",7936,1,65,0)
140 fld: 5.2
141"BLD",7936,1,66,0)
142 fld: 5.3
143"BLD",7936,1,67,0)
144
145"BLD",7936,1,68,0)
146INPUT TEMPLATE: ACTION:
147"BLD",7936,1,69,0)
148 C0Q EDIT INPATIENT PARMS FILE #1130580001.401SEND TO SITE
149"BLD",7936,1,70,0)
150 C0Q EDIT MEASURE SET FILE #1130580001.201 SEND TO SITE
151"BLD",7936,1,71,0)
152
153"BLD",7936,1,72,0)
154ROUTINE: ACTION:
155"BLD",7936,1,73,0)
156 C0QQRDA SEND TO SITE
157"BLD",7936,1,74,0)
158
159"BLD",7936,1,75,0)
160OPTION: ACTION:
161"BLD",7936,1,76,0)
162 C0Q EXPORT INPATIENT QRDA CCRS SEND TO SITE
163"BLD",7936,1,77,0)
164 C0Q QRDA MENU SEND TO SITE
165"BLD",7936,1,78,0)
166 C0Q QUALITY MEASUREMENT MENU USE AS LINK FOR MENU ITEMS
167"BLD",7936,1,79,0)
168
169"BLD",7936,1,80,0)
170INSTALL QUESTIONS:
171"BLD",7936,1,81,0)
172
173"BLD",7936,1,82,0)
174 Default Rebuild Menu Trees Upon Completion of Install: YES
175"BLD",7936,1,83,0)
176 Default INHIBIT LOGONs during the install: NO
177"BLD",7936,1,84,0)
178 Default DISABLE Scheduled Options, Menu Options, and Protocols: NO
179"BLD",7936,1,85,0)
180
181"BLD",7936,1,86,0)
182REQUIRED BUILDS: ACTION:
183"BLD",7936,1,87,0)
184 CCD/CCR GENERATION UTILITIES 1.2 Don't install, leave global
185"BLD",7936,1,88,0)
186 QUALITY MEASURES 1.0 Don't install, leave global
187"BLD",7936,1,89,0)
188
189"BLD",7936,1,90,0)
190 Summary of Changes to package:
191"BLD",7936,1,91,0)
192 - Population of QRDA TEMPLATE ROOT field in all of the C0Q QUALITY MEASUREs
193"BLD",7936,1,92,0)
194 for Inpatients, as follows:
195"BLD",7936,1,93,0)
196
197"BLD",7936,1,94,0)
198NAME QRDA TEMPLATE ROOT NUMERATOR RULE SET
199"BLD",7936,1,95,0)
200----------------------------------------------------------------------------------
201"BLD",7936,1,96,0)
202
203"BLD",7936,1,97,0)
204MU HOS NQF 0495 2.16.840.1.113883.3.249.11.14.2.1.2.2 MU ED-1 NUMER RS
205"BLD",7936,1,98,0)
206MU HOS NQF 0497 2.16.840.1.113883.3.249.11.14.3.1.2.2 MU ED-2 NUMER RS
207"BLD",7936,1,99,0)
208
209"BLD",7936,1,100,0)
210MU HOS NQF 0435 1.3.6.1.4.1.33895.1.2.16001.1.2.2 MU STK-2 NUMER RS
211"BLD",7936,1,101,0)
212MU HOS NQF 0436 1.3.6.1.4.1.33895.1.2.16002.1.2.2 MU STK-3 NUMER RS
213"BLD",7936,1,102,0)
214MU HOS NQF 0437 1.3.6.1.4.1.33895.1.2.16003.1.2.2 MU STK-4 NUMER RS
215"BLD",7936,1,103,0)
216MU HOS NQF 0438 1.3.6.1.4.1.33895.1.2.16004.1.2.2 MU STK-5 NUMER RS
217"BLD",7936,1,104,0)
218MU HOS NQF 0439 1.3.6.1.4.1.33895.1.2.16005.1.2.2 MU STK-6 NUMER RS
219"BLD",7936,1,105,0)
220MU HOS NQF 0440 1.3.6.1.4.1.33895.1.2.16007.1.2.2 MU STK-8 NUMER RS
221"BLD",7936,1,106,0)
222MU HOS NQF 0441 1.3.6.1.4.1.33895.1.2.16008.1.2.2 MU STK-10 NUMER RS
223"BLD",7936,1,107,0)
224
225"BLD",7936,1,108,0)
226MU HOS NQF 0371 1.3.6.1.4.1.33895.1.2.15971.1.2.2 MU VTE-1 NUMER RS
227"BLD",7936,1,109,0)
228MU HOS NQF 0372 1.3.6.1.4.1.33895.1.2.15972.1.2.2 MU VTE-2 NUMER RS
229"BLD",7936,1,110,0)
230MU HOS NQF 0373 1.3.6.1.4.1.33895.1.2.15973.1.2.2 MU VTE-3 NUMER RS
231"BLD",7936,1,111,0)
232MU HOS NQF 0374 1.3.6.1.4.1.33895.1.2.15974.1.2.2 MU VTE-4 NUMER RS
233"BLD",7936,1,112,0)
234MU HOS NQF 0375 1.3.6.1.4.1.33895.1.2.15975.1.2.2 MU VTE-5 NUMER RS
235"BLD",7936,1,113,0)
236MU HOS NQF 0376 1.3.6.1.4.1.33895.1.2.15976.1.2.2 MU VTE-6 NUMER RS
237"BLD",7936,1,114,0)
238
239"BLD",7936,1,115,0)
240 - Change of C0Q MEASUREMENT file name to C0Q MEASUREMENT SET
241"BLD",7936,1,116,0)
242 - Addition of QRDA TEMPLATE ROOT field to C0Q MEASUREMENT SET
243"BLD",7936,1,117,0)
244 - Creation of three Measurement Sets in the C0Q MEASUREMENT SET as follows:
245"BLD",7936,1,118,0)
246NAME: ED CMS REPORTING MEASURES
247"BLD",7936,1,119,0)
248 QRDA TEMPLATE ROOT: 2.16.840.1.113883.3.249.11.14.1.1.1
249"BLD",7936,1,120,0)
250 BEGIN DATE: JAN 1,2012 END DATE: DEC 13,2012
251"BLD",7936,1,121,0)
252MEASURE: MU HOS NQF 0495
253"BLD",7936,1,122,0)
254MEASURE: MU HOS NQF 0497
255"BLD",7936,1,123,0)
256 MU YEAR KEY: MU12
257"BLD",7936,1,124,0)
258
259"BLD",7936,1,125,0)
260NAME: STK CMS REPORTING MEASURES
261"BLD",7936,1,126,0)
262 QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.31.1.2.1
263"BLD",7936,1,127,0)
264 BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012
265"BLD",7936,1,128,0)
266MEASURE: MU HOS NQF 0435
267"BLD",7936,1,129,0)
268MEASURE: MU HOS NQF 0436
269"BLD",7936,1,130,0)
270MEASURE: MU HOS NQF 0437
271"BLD",7936,1,131,0)
272MEASURE: MU HOS NQF 0438
273"BLD",7936,1,132,0)
274MEASURE: MU HOS NQF 0439
275"BLD",7936,1,133,0)
276MEASURE: MU HOS NQF 0440
277"BLD",7936,1,134,0)
278MEASURE: MU HOS NQF 0441
279"BLD",7936,1,135,0)
280 MU YEAR KEY: MU12
281"BLD",7936,1,136,0)
282
283"BLD",7936,1,137,0)
284NAME: VTE CMS REPORTING MEASURES
285"BLD",7936,1,138,0)
286 QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.32.1.2.1
287"BLD",7936,1,139,0)
288 BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012
289"BLD",7936,1,140,0)
290MEASURE: MU HOS NQF 0371
291"BLD",7936,1,141,0)
292MEASURE: MU HOS NQF 0372
293"BLD",7936,1,142,0)
294MEASURE: MU HOS NQF 0373
295"BLD",7936,1,143,0)
296MEASURE: MU HOS NQF 0374
297"BLD",7936,1,144,0)
298MEASURE: MU HOS NQF 0375
299"BLD",7936,1,145,0)
300MEASURE: MU HOS NQF 0376
301"BLD",7936,1,146,0)
302 MU YEAR KEY: MU12
303"BLD",7936,1,147,0)
304
305"BLD",7936,1,148,0)
306 - Creation of supporting fields in the C0Q PARAMETER file to drive generation
307"BLD",7936,1,149,0)
308 of the QRDA documents.
309"BLD",7936,1,150,0)
310 - VTE CMS MEASUREMENT SET
311"BLD",7936,1,151,0)
312 - STK CMS MEASUREMENT SET
313"BLD",7936,1,152,0)
314 - ED CMS MEASUREMENT SET
315"BLD",7936,1,153,0)
316
317"BLD",7936,1,154,0)
318 - Modification of existing input templates to support the new fields created.
319"BLD",7936,1,155,0)
320 C0Q EDIT INPATIENT PARMS FILE #1130580001.401
321"BLD",7936,1,156,0)
322 C0Q EDIT MEASURE SET FILE #1130580001.201
323"BLD",7936,1,157,0)
324
325"BLD",7936,1,158,0)
326 - Routine C0QQRDA to drive the generation of the QRDA documents.
327"BLD",7936,1,159,0)
328
329"BLD",7936,1,160,0)
330 - Menu option to call EN^C0QQRDA:
331"BLD",7936,1,161,0)
332 -> C0Q QUALITY MEASUREMENT MENU
333"BLD",7936,1,162,0)
334 Parent: C0Q QRDA MENU
335"BLD",7936,1,163,0)
336
337"BLD",7936,1,164,0)
338 Routine Versioning:
339"BLD",7936,1,165,0)
340
341"BLD",7936,1,166,0)
342 The second line of each of these routines now looks like:
343"BLD",7936,1,167,0)
344 ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28
345"BLD",7936,1,168,0)
346
347"BLD",7936,1,169,0)
348
349"BLD",7936,1,170,0)
350 The following checksums can be checked with CHECK1^XTSUMBLD:
351"BLD",7936,1,171,0)
352
353"BLD",7936,1,172,0)
354 Routine Before After Patch List
355"BLD",7936,1,173,0)
356 ------- ----------- ------------ ---------------------------------
357"BLD",7936,1,174,0)
358 C0QQRDA 89943644 **4**
359"BLD",7936,1,175,0)
360
361"BLD",7936,1,176,0)
362 Documentation:
363"BLD",7936,1,177,0)
364 ==============
365"BLD",7936,1,178,0)
366 None at this moment.
367"BLD",7936,1,179,0)
368
369"BLD",7936,1,180,0)
370 Test Sites:
371"BLD",7936,1,181,0)
372 ===========
373"BLD",7936,1,182,0)
374 None at this moment.
375"BLD",7936,1,183,0)
376
377"BLD",7936,1,184,0)
378 Compliance:
379"BLD",7936,1,185,0)
380 ===========
381"BLD",7936,1,186,0)
382 This software complies with the VA MUMPS Programming Standards and
383"BLD",7936,1,187,0)
384 Conventions (version 3 April 2007).
385"BLD",7936,1,188,0)
386
387"BLD",7936,1,189,0)
388 Installation Instructions:
389"BLD",7936,1,190,0)
390 ==========================
391"BLD",7936,1,191,0)
392 Install Time - less than 1 minute
393"BLD",7936,1,192,0)
394
395"BLD",7936,1,193,0)
396 1. LOAD TRANSPORT GLOBAL
397"BLD",7936,1,194,0)
398
399"BLD",7936,1,195,0)
400 Choose the PackMan message containing this patch and invoke the
401"BLD",7936,1,196,0)
402 INSTALL/CHECK MESSAGE PackMan option to unload the build.
403"BLD",7936,1,197,0)
404
405"BLD",7936,1,198,0)
406 2. START UP KIDS
407"BLD",7936,1,199,0)
408
409"BLD",7936,1,200,0)
410 Start up the Kernel Installation and Distribution System Menu
411"BLD",7936,1,201,0)
412 [XPD MAIN]:
413"BLD",7936,1,202,0)
414
415"BLD",7936,1,203,0)
416 Edits and Distribution ...
417"BLD",7936,1,204,0)
418 Utilities ...
419"BLD",7936,1,205,0)
420 Installation ...
421"BLD",7936,1,206,0)
422
423"BLD",7936,1,207,0)
424 Select Kernel Installation & Distribution System Option: INStallation
425"BLD",7936,1,208,0)
426 ---
427"BLD",7936,1,209,0)
428 Load a Distribution
429"BLD",7936,1,210,0)
430 Print Transport Global
431"BLD",7936,1,211,0)
432 Compare Transport Global to Current System
433"BLD",7936,1,212,0)
434 Verify Checksums in Transport Global
435"BLD",7936,1,213,0)
436 Install Package(s)
437"BLD",7936,1,214,0)
438 Restart Install of Package(s)
439"BLD",7936,1,215,0)
440 Unload a Distribution
441"BLD",7936,1,216,0)
442 Backup a Transport Global
443"BLD",7936,1,217,0)
444
445"BLD",7936,1,218,0)
446 Select Installation Option:
447"BLD",7936,1,219,0)
448
449"BLD",7936,1,220,0)
450 3. Select Installation Option:
451"BLD",7936,1,221,0)
452
453"BLD",7936,1,222,0)
454 NOTE: The following are OPTIONAL - (When prompted for the INSTALL
455"BLD",7936,1,223,0)
456 NAME, enter C0Q*1.0*4):
457"BLD",7936,1,224,0)
458
459"BLD",7936,1,225,0)
460 a. Backup a Transport Global - This option will create a backup
461"BLD",7936,1,226,0)
462 message of any routines exported with this patch. It will not
463"BLD",7936,1,227,0)
464 backup any other changes such as DD's or templates.
465"BLD",7936,1,228,0)
466 b. Compare Transport Global to Current System - This option will
467"BLD",7936,1,229,0)
468 allow you to view all changes that will be made when this patch
469"BLD",7936,1,230,0)
470 is installed. It compares all components of this patch
471"BLD",7936,1,231,0)
472 (routines, DD's, templates, etc.).
473"BLD",7936,1,232,0)
474 c. Verify Checksums in Transport Global - This option will allow
475"BLD",7936,1,233,0)
476 you to ensure the integrity of the routines that are in the
477"BLD",7936,1,234,0)
478 transport global.
479"BLD",7936,1,235,0)
480
481"BLD",7936,1,236,0)
482 4. Select Installation Option: Install Package(s)
483"BLD",7936,1,237,0)
484
485"BLD",7936,1,238,0)
486 **This is the step to start the installation of this KIDS patch:
487"BLD",7936,1,239,0)
488
489"BLD",7936,1,240,0)
490 a. Choose the Install Package(s) option to start the patch install
491"BLD",7936,1,241,0)
492 and enter "C0Q*1.0*4" at the INSTALL NAME prompt.
493"BLD",7936,1,242,0)
494 b. When asked, 'Shall I write over your C0Q MEASUREMENTS File? YES//'
495"BLD",7936,1,243,0)
496 Answer YES. The file is just renamed, that's why KIDS asks you to
497"BLD",7936,1,244,0)
498 overwrite it.
499"BLD",7936,1,245,0)
500 c. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of
501"BLD",7936,1,246,0)
502 Install? YES//' answer YES
503"BLD",7936,1,247,0)
504 d. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
505"BLD",7936,1,248,0)
506 NO//' answer NO
507"BLD",7936,1,249,0)
508 e. When prompted 'Want to DISABLE Scheduled Options, Menu Options,
509"BLD",7936,1,250,0)
510 and Protocols? NO//' answer NO
511"BLD",7936,4,0)
512^9.64PA^1130580001.401^3
513"BLD",7936,4,1130580001.101,0)
5141130580001.101
515"BLD",7936,4,1130580001.101,222)
516y^y^f^^y^C0Q 1P0*4 QM TRANSPORT LIST^y^o^n
517"BLD",7936,4,1130580001.101,224)
518
519"BLD",7936,4,1130580001.201,0)
5201130580001.201
521"BLD",7936,4,1130580001.201,222)
522y^y^f^^y^C0Q 1P0*4 MS^y^o^n
523"BLD",7936,4,1130580001.401,0)
5241130580001.401
525"BLD",7936,4,1130580001.401,2,0)
526^9.641^1130580001.401^1
527"BLD",7936,4,1130580001.401,2,1130580001.401,0)
528C0Q PARAMETER (File-top level)
529"BLD",7936,4,1130580001.401,2,1130580001.401,1,0)
530^9.6411^5.3^3
531"BLD",7936,4,1130580001.401,2,1130580001.401,1,5.1,0)
532VTE CMS MEASUREMENT SET
533"BLD",7936,4,1130580001.401,2,1130580001.401,1,5.2,0)
534STK CMS MEASUREMENT SET
535"BLD",7936,4,1130580001.401,2,1130580001.401,1,5.3,0)
536ED CMS MEASUREMENT SET
537"BLD",7936,4,1130580001.401,222)
538y^y^p^^^^n^^n
539"BLD",7936,4,1130580001.401,224)
540
541"BLD",7936,4,"APDD",1130580001.401,1130580001.401)
542
543"BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.1)
544
545"BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.2)
546
547"BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.3)
548
549"BLD",7936,4,"B",1130580001.101,1130580001.101)
550
551"BLD",7936,4,"B",1130580001.201,1130580001.201)
552
553"BLD",7936,4,"B",1130580001.401,1130580001.401)
554
555"BLD",7936,6.3)
55628
557"BLD",7936,"KRN",0)
558^9.67PA^779.2^20
559"BLD",7936,"KRN",.4,0)
560.4
561"BLD",7936,"KRN",.401,0)
562.401
563"BLD",7936,"KRN",.402,0)
564.402
565"BLD",7936,"KRN",.402,"NM",0)
566^9.68A^2^2
567"BLD",7936,"KRN",.402,"NM",1,0)
568C0Q EDIT INPATIENT PARMS FILE #1130580001.401^1130580001.401^0
569"BLD",7936,"KRN",.402,"NM",2,0)
570C0Q EDIT MEASURE SET FILE #1130580001.201^1130580001.201^0
571"BLD",7936,"KRN",.402,"NM","B","C0Q EDIT INPATIENT PARMS FILE #1130580001.401",1)
572
573"BLD",7936,"KRN",.402,"NM","B","C0Q EDIT MEASURE SET FILE #1130580001.201",2)
574
575"BLD",7936,"KRN",.403,0)
576.403
577"BLD",7936,"KRN",.5,0)
578.5
579"BLD",7936,"KRN",.84,0)
580.84
581"BLD",7936,"KRN",3.6,0)
5823.6
583"BLD",7936,"KRN",3.8,0)
5843.8
585"BLD",7936,"KRN",9.2,0)
5869.2
587"BLD",7936,"KRN",9.8,0)
5889.8
589"BLD",7936,"KRN",9.8,"NM",0)
590^9.68A^1^1
591"BLD",7936,"KRN",9.8,"NM",1,0)
592C0QQRDA^^0^B89943644
593"BLD",7936,"KRN",9.8,"NM","B","C0QQRDA",1)
594
595"BLD",7936,"KRN",19,0)
59619
597"BLD",7936,"KRN",19,"NM",0)
598^9.68A^3^3
599"BLD",7936,"KRN",19,"NM",1,0)
600C0Q QRDA MENU^^0
601"BLD",7936,"KRN",19,"NM",2,0)
602C0Q EXPORT INPATIENT QRDA CCRS^^0
603"BLD",7936,"KRN",19,"NM",3,0)
604C0Q QUALITY MEASUREMENT MENU^^2
605"BLD",7936,"KRN",19,"NM","B","C0Q EXPORT INPATIENT QRDA CCRS",2)
606
607"BLD",7936,"KRN",19,"NM","B","C0Q QRDA MENU",1)
608
609"BLD",7936,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",3)
610
611"BLD",7936,"KRN",19.1,0)
61219.1
613"BLD",7936,"KRN",101,0)
614101
615"BLD",7936,"KRN",409.61,0)
616409.61
617"BLD",7936,"KRN",771,0)
618771
619"BLD",7936,"KRN",779.2,0)
620779.2
621"BLD",7936,"KRN",870,0)
622870
623"BLD",7936,"KRN",8989.51,0)
6248989.51
625"BLD",7936,"KRN",8989.52,0)
6268989.52
627"BLD",7936,"KRN",8994,0)
6288994
629"BLD",7936,"KRN","B",.4,.4)
630
631"BLD",7936,"KRN","B",.401,.401)
632
633"BLD",7936,"KRN","B",.402,.402)
634
635"BLD",7936,"KRN","B",.403,.403)
636
637"BLD",7936,"KRN","B",.5,.5)
638
639"BLD",7936,"KRN","B",.84,.84)
640
641"BLD",7936,"KRN","B",3.6,3.6)
642
643"BLD",7936,"KRN","B",3.8,3.8)
644
645"BLD",7936,"KRN","B",9.2,9.2)
646
647"BLD",7936,"KRN","B",9.8,9.8)
648
649"BLD",7936,"KRN","B",19,19)
650
651"BLD",7936,"KRN","B",19.1,19.1)
652
653"BLD",7936,"KRN","B",101,101)
654
655"BLD",7936,"KRN","B",409.61,409.61)
656
657"BLD",7936,"KRN","B",771,771)
658
659"BLD",7936,"KRN","B",779.2,779.2)
660
661"BLD",7936,"KRN","B",870,870)
662
663"BLD",7936,"KRN","B",8989.51,8989.51)
664
665"BLD",7936,"KRN","B",8989.52,8989.52)
666
667"BLD",7936,"KRN","B",8994,8994)
668
669"BLD",7936,"PRET")
670TRAN^C0Q1P4
671"BLD",7936,"QDEF")
672^^^^NO^^^^YES^^NO
673"BLD",7936,"QUES",0)
674^9.62^^
675"BLD",7936,"REQB",0)
676^9.611^2^2
677"BLD",7936,"REQB",1,0)
678CCD/CCR GENERATION UTILITIES 1.2^2
679"BLD",7936,"REQB",2,0)
680QUALITY MEASURES 1.0^2
681"BLD",7936,"REQB","B","CCD/CCR GENERATION UTILITIES 1.2",1)
682
683"BLD",7936,"REQB","B","QUALITY MEASURES 1.0",2)
684
685"DATA",1130580001.101,23,0)
686MU HOS NQF 0495^^^2.16.840.1.113883.3.249.11.14.2.1.2.2
687"DATA",1130580001.101,23,1)
688ED THROUGHPUT ARRIVAL TO DEPARTURE
689"DATA",1130580001.101,23,5)
690ED THROUGHPUT ARRIVAL TO DEPARTURE
691"DATA",1130580001.101,23,6,0)
692^1130580001.111^3^3^3110430^^^^
693"DATA",1130580001.101,23,6,1,0)
694Median time from emergency department arrival to time of departure from
695"DATA",1130580001.101,23,6,2,0)
696the emergency room for patients admitted to the facility from the
697"DATA",1130580001.101,23,6,3,0)
698emergency department
699"DATA",1130580001.101,23,7)
700NQF0495^^^^^^88^165
701"DATA",1130580001.101,24,0)
702MU HOS NQF 0497^^^2.16.840.1.113883.3.249.11.14.3.1.2.2
703"DATA",1130580001.101,24,1)
704ED THROUGHPUT ADMITTING DECISION TO DEPARTURE
705"DATA",1130580001.101,24,5)
706ED THROUGHPUT ADMITTING DECISION TO DEPARTURE
707"DATA",1130580001.101,24,6,0)
708^^3^3^3110430^
709"DATA",1130580001.101,24,6,1,0)
710Median time from admit decision time to time of departure from the
711"DATA",1130580001.101,24,6,2,0)
712emergency department of emergency department patients admitted to
713"DATA",1130580001.101,24,6,3,0)
714inpatient status
715"DATA",1130580001.101,24,7)
716NQF0497^^^^^^90^168
717"DATA",1130580001.101,25,0)
718MU HOS NQF 0435^^^1.3.6.1.4.1.33895.1.2.16001.1.2.2
719"DATA",1130580001.101,25,1)
720Ischemic stroke.Discharge on anti-thrombotics
721"DATA",1130580001.101,25,5)
722 Ischemic stroke.Discharge on anti-thrombotic
723"DATA",1130580001.101,25,6,0)
724^^2^2^3110430^
725"DATA",1130580001.101,25,6,1,0)
726Ischemic stroke patients prescribed antithrombotic therapy at hospital
727"DATA",1130580001.101,25,6,2,0)
728discharge
729"DATA",1130580001.101,25,7)
730NQF0435^^^^^^114^115
731"DATA",1130580001.101,26,0)
732MU HOS NQF 0436^^^1.3.6.1.4.1.33895.1.2.16002.1.2.2
733"DATA",1130580001.101,26,1)
734 Ischemic stroke.Anticoagulation for A-fib/flutter
735"DATA",1130580001.101,26,5)
736Ischemic stroke.Anticoagulation for A-fib/flutter
737"DATA",1130580001.101,26,6,0)
738^1130580001.111^2^2^3110430^^^
739"DATA",1130580001.101,26,6,1,0)
740 Ischemic stroke patients with atrial fibrillation/flutter who are
741"DATA",1130580001.101,26,6,2,0)
742prescribed anticoagulation therapy at hospital discharge
743"DATA",1130580001.101,26,7)
744NQF0436^^^^^^116^117
745"DATA",1130580001.101,27,0)
746MU HOS NQF 0437^^^1.3.6.1.4.1.33895.1.2.16003.1.2.2
747"DATA",1130580001.101,27,1)
748 Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset
749"DATA",1130580001.101,27,5)
750Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset
751"DATA",1130580001.101,27,6,0)
752^^3^3^3110430^
753"DATA",1130580001.101,27,6,1,0)
754Acute ischemic stroke patients who arrive at this hospital within 2
755"DATA",1130580001.101,27,6,2,0)
756hours of time last known well and for whom IV t-PA was initiated at this
757"DATA",1130580001.101,27,6,3,0)
758hospital within 3 hours of time last known well.
759"DATA",1130580001.101,27,7)
760NQF0437^^^^^^119^118
761"DATA",1130580001.101,28,0)
762MU HOS NQF 0438^^^1.3.6.1.4.1.33895.1.2.16004.1.2.2
763"DATA",1130580001.101,28,1)
764Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2
765"DATA",1130580001.101,28,5)
766Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2
767"DATA",1130580001.101,28,6,0)
768^^2^2^3110430^
769"DATA",1130580001.101,28,6,1,0)
770Ischemic stroke patients administered antithrombotic therapy by the
771"DATA",1130580001.101,28,6,2,0)
772end of hospital day 2.
773"DATA",1130580001.101,28,7)
774NQF0438^^^^^^120^121
775"DATA",1130580001.101,29,0)
776MU HOS NQF 0439^^^1.3.6.1.4.1.33895.1.2.16005.1.2.2
777"DATA",1130580001.101,29,1)
778Ischemic stroke.Discharge on statins
779"DATA",1130580001.101,29,5)
780Ischemic stroke.Discharge on statins
781"DATA",1130580001.101,29,6,0)
782^^3^3^3110430^
783"DATA",1130580001.101,29,6,1,0)
784Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or,
785"DATA",1130580001.101,29,6,2,0)
786who were on a lipid-lowering medication prior to hospital arrival are
787"DATA",1130580001.101,29,6,3,0)
788prescribed statin medication at hospital discharge
789"DATA",1130580001.101,29,7)
790NQF0439^^^^^^122^123
791"DATA",1130580001.101,30,0)
792MU HOS NQF 0440^^^1.3.6.1.4.1.33895.1.2.16007.1.2.2
793"DATA",1130580001.101,30,1)
794Ischemic or hemorrhagic stroke.Stroke education
795"DATA",1130580001.101,30,5)
796Ischemic or hemorrhagic stroke.Stroke education
797"DATA",1130580001.101,30,6,0)
798^^5^5^3110430^
799"DATA",1130580001.101,30,6,1,0)
800Ischemic or hemorrhagic stroke patients or their caregivers who were
801"DATA",1130580001.101,30,6,2,0)
802given educational materials during the hospital stay addressing all of the
803"DATA",1130580001.101,30,6,3,0)
804following: activation of emergency medical system, need for follow-up
805"DATA",1130580001.101,30,6,4,0)
806after discharge, medications prescribed at discharge, risk factors for
807"DATA",1130580001.101,30,6,5,0)
808stroke, and warning signs and symptoms of stroke.
809"DATA",1130580001.101,30,7)
810NQF0440^^^^^^124^125
811"DATA",1130580001.101,31,0)
812MU HOS NQF 0441^^^1.3.6.1.4.1.33895.1.2.16008.1.2.2
813"DATA",1130580001.101,31,1)
814Ischemic or hemorrhagic stroke.Rehabilitation assessment
815"DATA",1130580001.101,31,5)
816Ischemic or hemorrhagic stroke.Rehabilitation assessment
817"DATA",1130580001.101,31,6,0)
818^^2^2^3110430^
819"DATA",1130580001.101,31,6,1,0)
820Ischemic or hemorrhagic stroke patients who were assessed for
821"DATA",1130580001.101,31,6,2,0)
822rehabilitation services.
823"DATA",1130580001.101,31,7)
824NQF0441^^^^^^126^127
825"DATA",1130580001.101,32,0)
826MU HOS NQF 0371^^^1.3.6.1.4.1.33895.1.2.15971.1.2.2
827"DATA",1130580001.101,32,1)
828VTE prophylaxis within 24 hours of arrival
829"DATA",1130580001.101,32,5)
830VTE prophylaxis within 24 hours of arrival
831"DATA",1130580001.101,32,6,0)
832^^4^4^3110430^
833"DATA",1130580001.101,32,6,1,0)
834This measure assesses the number of patients who received VTE prophylaxis
835"DATA",1130580001.101,32,6,2,0)
836or have documentation why no VTE prophylaxis was given the day of or the
837"DATA",1130580001.101,32,6,3,0)
838day after hospital admission or surgery end date for surgeries that start
839"DATA",1130580001.101,32,6,4,0)
840the day of or the day after hospital admission.
841"DATA",1130580001.101,32,7)
842NQF0371^^^^^^69^67
843"DATA",1130580001.101,33,0)
844MU HOS NQF 0372^^^1.3.6.1.4.1.33895.1.2.15972.1.2.2
845"DATA",1130580001.101,33,1)
846ICU VTE prophylaxis
847"DATA",1130580001.101,33,5)
848ICU VTE prophylaxis
849"DATA",1130580001.101,33,6,0)
850^^5^5^3110430^
851"DATA",1130580001.101,33,6,1,0)
852This measure assesses the number of patients who received VTE prophylaxis
853"DATA",1130580001.101,33,6,2,0)
854or have documentation why no VTE prophylaxis was given the day of or the
855"DATA",1130580001.101,33,6,3,0)
856day after the initial admission (or transfer) to the Intensive Care Unit
857"DATA",1130580001.101,33,6,4,0)
858(ICU) or surgery end date for surgeries that start the day of or the day
859"DATA",1130580001.101,33,6,5,0)
860after ICU admission (or transfer).
861"DATA",1130580001.101,33,7)
862NQF0372^^^^^^128^71
863"DATA",1130580001.101,34,0)
864MU HOS NQF 0373^^^1.3.6.1.4.1.33895.1.2.15973.1.2.2
865"DATA",1130580001.101,34,1)
866Anticoagulation overlap therapy
867"DATA",1130580001.101,34,5)
868Anticoagulation overlap therapy
869"DATA",1130580001.101,34,6,0)
870^^8^8^3110430^
871"DATA",1130580001.101,34,6,1,0)
872This measure assesses the number of patients diagnosed with confirmed VTE
873"DATA",1130580001.101,34,6,2,0)
874who received an overlap of parenteral (intravenous [IV] or subcutaneous
875"DATA",1130580001.101,34,6,3,0)
876[subcu]) anticoagulation and warfarin therapy. For patients who received
877"DATA",1130580001.101,34,6,4,0)
878less than five days of overlap therapy, they must be discharged on both
879"DATA",1130580001.101,34,6,5,0)
880medications. Overlap therapy must be administered for at least five days
881"DATA",1130580001.101,34,6,6,0)
882with an international normalized ratio (INR) . 2 prior to discontinuation
883"DATA",1130580001.101,34,6,7,0)
884of the parenteral anticoagulation therapy or the patient must be
885"DATA",1130580001.101,34,6,8,0)
886discharged on both medications.
887"DATA",1130580001.101,34,7)
888NQF0373^^^^^^129^144
889"DATA",1130580001.101,35,0)
890MU HOS NQF 0374^^^1.3.6.1.4.1.33895.1.2.15974.1.2.2
891"DATA",1130580001.101,35,1)
892Platelet monitoring on unfractionated heparin
893"DATA",1130580001.101,35,5)
894Platelet monitoring on unfractionated heparin
895"DATA",1130580001.101,35,6,0)
896^^10^10^3110430^
897"DATA",1130580001.101,35,6,1,0)
898This measure assesses the number of patients diagnosed with confirmed VTE
899"DATA",1130580001.101,35,6,2,0)
900who received intravenous (IV) UFH therapy dosages AND had their platelet
901"DATA",1130580001.101,35,6,3,0)
902counts monitored using defined parameters such as a nomogram or
903"DATA",1130580001.101,35,6,4,0)
904protocol This measure assesses the number of patients diagnosed with
905"DATA",1130580001.101,35,6,5,0)
906confirmed VTE who received intravenous (IV) UFH therapy dosages AND had
907"DATA",1130580001.101,35,6,6,0)
908their platelet counts monitored using defined parameters such as a
909"DATA",1130580001.101,35,6,7,0)
910nomogram or protocol This measure assesses the number of patients
911"DATA",1130580001.101,35,6,8,0)
912diagnosed with confirmed VTE who received intravenous (IV) UFH therapy
913"DATA",1130580001.101,35,6,9,0)
914dosages AND had their platelet counts monitored using defined parameters
915"DATA",1130580001.101,35,6,10,0)
916such as a nomogram or protocol
917"DATA",1130580001.101,35,7)
918NQF0374^^^^^^145^146
919"DATA",1130580001.101,36,0)
920MU HOS NQF 0375^^^1.3.6.1.4.1.33895.1.2.15975.1.2.2
921"DATA",1130580001.101,36,1)
922VTE discharge instructions
923"DATA",1130580001.101,36,5)
924VTE discharge instructions
925"DATA",1130580001.101,36,6,0)
926^^11^11^3110430^
927"DATA",1130580001.101,36,6,1,0)
928This measure assesses the number of patients diagnosed with confirmed VTE
929"DATA",1130580001.101,36,6,2,0)
930that are discharged to home, to home with home health, home hospice or
931"DATA",1130580001.101,36,6,3,0)
932discharged/transferred to court/law enforcement on warfarin with written
933"DATA",1130580001.101,36,6,4,0)
934discharge instructions that address all four criteria: compliance issues,
935"DATA",1130580001.101,36,6,5,0)
936dietary advice, follow-up This measure assesses the number of patients
937"DATA",1130580001.101,36,6,6,0)
938diagnosed with confirmed VTE that are discharged to home, to home with
939"DATA",1130580001.101,36,6,7,0)
940home health, home hospice or discharged/transferred to court/law
941"DATA",1130580001.101,36,6,8,0)
942enforcement on warfarin with written discharge instructions that address
943"DATA",1130580001.101,36,6,9,0)
944all four criteria: compliance issues, dietary advice, follow-up
945"DATA",1130580001.101,36,6,10,0)
946monitoring, and information about the potential for adverse drug
947"DATA",1130580001.101,36,6,11,0)
948reactions/interactions.
949"DATA",1130580001.101,36,7)
950NQF0375^^^^^^147^156
951"DATA",1130580001.101,37,0)
952MU HOS NQF 0376^^^1.3.6.1.4.1.33895.1.2.15976.1.2.2
953"DATA",1130580001.101,37,1)
954Incidence of potentially preventable VTE
955"DATA",1130580001.101,37,5)
956Incidence of potentially preventable VTE
957"DATA",1130580001.101,37,6,0)
958^^4^4^3110430^
959"DATA",1130580001.101,37,6,1,0)
960This measure assesses the number of patients diagnosed with confirmed VTE
961"DATA",1130580001.101,37,6,2,0)
962during hospitalization (not present on arrival) who did not receive VTE
963"DATA",1130580001.101,37,6,3,0)
964prophylaxis between hospital admission and the day before the VTE
965"DATA",1130580001.101,37,6,4,0)
966diagnostic testing order date.
967"DATA",1130580001.101,37,7)
968NQF0376^^^^^^158^162
969"DATA",1130580001.201,10,0)
970VTE CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.32.1.2.1
971"DATA",1130580001.201,10,4)
972^^3120101^3121231
973"DATA",1130580001.201,10,5,0)
974^1130580001.2011P^6^6
975"DATA",1130580001.201,10,5,1,0)
97632
977"DATA",1130580001.201,10,5,2,0)
97833
979"DATA",1130580001.201,10,5,3,0)
98034
981"DATA",1130580001.201,10,5,4,0)
98235
983"DATA",1130580001.201,10,5,5,0)
98436
985"DATA",1130580001.201,10,5,6,0)
98637
987"DATA",1130580001.201,10,6)
988^
989"DATA",1130580001.201,10,7)
990MU12
991"DATA",1130580001.201,11,0)
992STK CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.31.1.2.1
993"DATA",1130580001.201,11,4)
994^^3120101^3121231
995"DATA",1130580001.201,11,5,0)
996^1130580001.2011P^7^7
997"DATA",1130580001.201,11,5,1,0)
99825
999"DATA",1130580001.201,11,5,2,0)
100026
1001"DATA",1130580001.201,11,5,3,0)
100227
1003"DATA",1130580001.201,11,5,4,0)
100428
1005"DATA",1130580001.201,11,5,5,0)
100629
1007"DATA",1130580001.201,11,5,6,0)
100830
1009"DATA",1130580001.201,11,5,7,0)
101031
1011"DATA",1130580001.201,11,6)
1012^
1013"DATA",1130580001.201,11,7)
1014MU12
1015"DATA",1130580001.201,12,0)
1016ED CMS REPORTING MEASURES^2.16.840.1.113883.3.249.11.14.1.1.1
1017"DATA",1130580001.201,12,4)
1018^^3120101^3121213
1019"DATA",1130580001.201,12,5,0)
1020^1130580001.2011P^2^2
1021"DATA",1130580001.201,12,5,1,0)
102223
1023"DATA",1130580001.201,12,5,2,0)
102424
1025"DATA",1130580001.201,12,6)
1026^
1027"DATA",1130580001.201,12,7)
1028MU12
1029"FIA",1130580001.101)
1030C0Q QUALITY MEASURE
1031"FIA",1130580001.101,0)
1032^C0Q(101,
1033"FIA",1130580001.101,0,0)
10341130580001.101I
1035"FIA",1130580001.101,0,1)
1036y^y^f^^y^C0Q 1P0*4 QM TRANSPORT LIST^y^o^n
1037"FIA",1130580001.101,0,10)
1038
1039"FIA",1130580001.101,0,11)
1040
1041"FIA",1130580001.101,0,"RLRO")
1042^DIBT(920,1)
1043"FIA",1130580001.101,0,"VR")
10441.0^C0Q
1045"FIA",1130580001.101,1130580001.101)
10460
1047"FIA",1130580001.101,1130580001.111)
10480
1049"FIA",1130580001.201)
1050C0Q MEASUREMENT SET
1051"FIA",1130580001.201,0)
1052^C0Q(201,
1053"FIA",1130580001.201,0,0)
10541130580001.201
1055"FIA",1130580001.201,0,1)
1056y^y^f^^y^C0Q 1P0*4 MS^y^o^n
1057"FIA",1130580001.201,0,10)
1058
1059"FIA",1130580001.201,0,11)
1060
1061"FIA",1130580001.201,0,"RLRO")
1062^DIBT(921,1)
1063"FIA",1130580001.201,0,"VR")
10641.0^C0Q
1065"FIA",1130580001.201,1130580001.201)
10660
1067"FIA",1130580001.201,1130580001.2011)
10680
1069"FIA",1130580001.201,1130580001.20111)
10700
1071"FIA",1130580001.201,1130580001.20112)
10720
1073"FIA",1130580001.401)
1074C0Q PARAMETER
1075"FIA",1130580001.401,0)
1076^C0Q(401,
1077"FIA",1130580001.401,0,0)
10781130580001.401
1079"FIA",1130580001.401,0,1)
1080y^y^p^^^^n^^n
1081"FIA",1130580001.401,0,10)
1082
1083"FIA",1130580001.401,0,11)
1084
1085"FIA",1130580001.401,0,"RLRO")
1086
1087"FIA",1130580001.401,0,"VR")
10881.0^C0Q
1089"FIA",1130580001.401,1130580001.401)
10901
1091"FIA",1130580001.401,1130580001.401,5.1)
1092
1093"FIA",1130580001.401,1130580001.401,5.2)
1094
1095"FIA",1130580001.401,1130580001.401,5.3)
1096
1097"FRV1",1130580001.101,"23,7",7)
1098MU ED-1 NUMER RS
1099"FRV1",1130580001.101,"23,7",7,"F")
1100;PXRM(810.4,
1101"FRV1",1130580001.101,"23,7",8)
1102MU ED-1 DENOM RS
1103"FRV1",1130580001.101,"23,7",8,"F")
1104;PXRM(810.4,
1105"FRV1",1130580001.101,"24,7",7)
1106MU ED-2 NUMER RS
1107"FRV1",1130580001.101,"24,7",7,"F")
1108;PXRM(810.4,
1109"FRV1",1130580001.101,"24,7",8)
1110MU ED-2 DENOM RS
1111"FRV1",1130580001.101,"24,7",8,"F")
1112;PXRM(810.4,
1113"FRV1",1130580001.101,"25,7",7)
1114MU STK-2 NUMER RS
1115"FRV1",1130580001.101,"25,7",7,"F")
1116;PXRM(810.4,
1117"FRV1",1130580001.101,"25,7",8)
1118MU STK-2 DENOM RS
1119"FRV1",1130580001.101,"25,7",8,"F")
1120;PXRM(810.4,
1121"FRV1",1130580001.101,"26,7",7)
1122MU STK-3 NUMER RS
1123"FRV1",1130580001.101,"26,7",7,"F")
1124;PXRM(810.4,
1125"FRV1",1130580001.101,"26,7",8)
1126MU STK-3 DENOM RS
1127"FRV1",1130580001.101,"26,7",8,"F")
1128;PXRM(810.4,
1129"FRV1",1130580001.101,"27,7",7)
1130MU STK-4 NUMER RS
1131"FRV1",1130580001.101,"27,7",7,"F")
1132;PXRM(810.4,
1133"FRV1",1130580001.101,"27,7",8)
1134MU STK-4 DENOM RS
1135"FRV1",1130580001.101,"27,7",8,"F")
1136;PXRM(810.4,
1137"FRV1",1130580001.101,"28,7",7)
1138MU STK-5 NUMER RS
1139"FRV1",1130580001.101,"28,7",7,"F")
1140;PXRM(810.4,
1141"FRV1",1130580001.101,"28,7",8)
1142MU STK-5 DENOM RS
1143"FRV1",1130580001.101,"28,7",8,"F")
1144;PXRM(810.4,
1145"FRV1",1130580001.101,"29,7",7)
1146MU STK-6 NUMER RS
1147"FRV1",1130580001.101,"29,7",7,"F")
1148;PXRM(810.4,
1149"FRV1",1130580001.101,"29,7",8)
1150MU STK-6 DENOM RS
1151"FRV1",1130580001.101,"29,7",8,"F")
1152;PXRM(810.4,
1153"FRV1",1130580001.101,"30,7",7)
1154MU STK-8 NUMER RS
1155"FRV1",1130580001.101,"30,7",7,"F")
1156;PXRM(810.4,
1157"FRV1",1130580001.101,"30,7",8)
1158MU STK-8 DENOM RS
1159"FRV1",1130580001.101,"30,7",8,"F")
1160;PXRM(810.4,
1161"FRV1",1130580001.101,"31,7",7)
1162MU STK-10 NUMER RS
1163"FRV1",1130580001.101,"31,7",7,"F")
1164;PXRM(810.4,
1165"FRV1",1130580001.101,"31,7",8)
1166MU STK-10 DENOM RS
1167"FRV1",1130580001.101,"31,7",8,"F")
1168;PXRM(810.4,
1169"FRV1",1130580001.101,"32,7",7)
1170MU VTE-1 NUMER RS
1171"FRV1",1130580001.101,"32,7",7,"F")
1172;PXRM(810.4,
1173"FRV1",1130580001.101,"32,7",8)
1174MU VTE-1 DENOM RS
1175"FRV1",1130580001.101,"32,7",8,"F")
1176;PXRM(810.4,
1177"FRV1",1130580001.101,"33,7",7)
1178MU VTE-2 NUMER RS
1179"FRV1",1130580001.101,"33,7",7,"F")
1180;PXRM(810.4,
1181"FRV1",1130580001.101,"33,7",8)
1182MU VTE-2 DENOM RS
1183"FRV1",1130580001.101,"33,7",8,"F")
1184;PXRM(810.4,
1185"FRV1",1130580001.101,"34,7",7)
1186MU VTE-3 NUMER RS
1187"FRV1",1130580001.101,"34,7",7,"F")
1188;PXRM(810.4,
1189"FRV1",1130580001.101,"34,7",8)
1190MU VTE-3 DENOM RS
1191"FRV1",1130580001.101,"34,7",8,"F")
1192;PXRM(810.4,
1193"FRV1",1130580001.101,"35,7",7)
1194MU VTE-4 NUMER RS
1195"FRV1",1130580001.101,"35,7",7,"F")
1196;PXRM(810.4,
1197"FRV1",1130580001.101,"35,7",8)
1198MU VTE-4 DENOM RS
1199"FRV1",1130580001.101,"35,7",8,"F")
1200;PXRM(810.4,
1201"FRV1",1130580001.101,"36,7",7)
1202MU VTE-5 NUMER RS
1203"FRV1",1130580001.101,"36,7",7,"F")
1204;PXRM(810.4,
1205"FRV1",1130580001.101,"36,7",8)
1206MU VTE-5 DENOM RS
1207"FRV1",1130580001.101,"36,7",8,"F")
1208;PXRM(810.4,
1209"FRV1",1130580001.101,"37,7",7)
1210MU VTE-6 NUMER RS
1211"FRV1",1130580001.101,"37,7",7,"F")
1212;PXRM(810.4,
1213"FRV1",1130580001.101,"37,7",8)
1214MU VTE-6 DENOM RS
1215"FRV1",1130580001.101,"37,7",8,"F")
1216;PXRM(810.4,
1217"FRV1K",1130580001.101,"23,7",7)
1218B
1219"FRV1K",1130580001.101,"23,7",7,1)
1220MU ED-1 NUMER RS
1221"FRV1K",1130580001.101,"23,7",8)
1222B
1223"FRV1K",1130580001.101,"23,7",8,1)
1224MU ED-1 DENOM RS
1225"FRV1K",1130580001.101,"24,7",7)
1226B
1227"FRV1K",1130580001.101,"24,7",7,1)
1228MU ED-2 NUMER RS
1229"FRV1K",1130580001.101,"24,7",8)
1230B
1231"FRV1K",1130580001.101,"24,7",8,1)
1232MU ED-2 DENOM RS
1233"FRV1K",1130580001.101,"25,7",7)
1234B
1235"FRV1K",1130580001.101,"25,7",7,1)
1236MU STK-2 NUMER RS
1237"FRV1K",1130580001.101,"25,7",8)
1238B
1239"FRV1K",1130580001.101,"25,7",8,1)
1240MU STK-2 DENOM RS
1241"FRV1K",1130580001.101,"26,7",7)
1242B
1243"FRV1K",1130580001.101,"26,7",7,1)
1244MU STK-3 NUMER RS
1245"FRV1K",1130580001.101,"26,7",8)
1246B
1247"FRV1K",1130580001.101,"26,7",8,1)
1248MU STK-3 DENOM RS
1249"FRV1K",1130580001.101,"27,7",7)
1250B
1251"FRV1K",1130580001.101,"27,7",7,1)
1252MU STK-4 NUMER RS
1253"FRV1K",1130580001.101,"27,7",8)
1254B
1255"FRV1K",1130580001.101,"27,7",8,1)
1256MU STK-4 DENOM RS
1257"FRV1K",1130580001.101,"28,7",7)
1258B
1259"FRV1K",1130580001.101,"28,7",7,1)
1260MU STK-5 NUMER RS
1261"FRV1K",1130580001.101,"28,7",8)
1262B
1263"FRV1K",1130580001.101,"28,7",8,1)
1264MU STK-5 DENOM RS
1265"FRV1K",1130580001.101,"29,7",7)
1266B
1267"FRV1K",1130580001.101,"29,7",7,1)
1268MU STK-6 NUMER RS
1269"FRV1K",1130580001.101,"29,7",8)
1270B
1271"FRV1K",1130580001.101,"29,7",8,1)
1272MU STK-6 DENOM RS
1273"FRV1K",1130580001.101,"30,7",7)
1274B
1275"FRV1K",1130580001.101,"30,7",7,1)
1276MU STK-8 NUMER RS
1277"FRV1K",1130580001.101,"30,7",8)
1278B
1279"FRV1K",1130580001.101,"30,7",8,1)
1280MU STK-8 DENOM RS
1281"FRV1K",1130580001.101,"31,7",7)
1282B
1283"FRV1K",1130580001.101,"31,7",7,1)
1284MU STK-10 NUMER RS
1285"FRV1K",1130580001.101,"31,7",8)
1286B
1287"FRV1K",1130580001.101,"31,7",8,1)
1288MU STK-10 DENOM RS
1289"FRV1K",1130580001.101,"32,7",7)
1290B
1291"FRV1K",1130580001.101,"32,7",7,1)
1292MU VTE-1 NUMER RS
1293"FRV1K",1130580001.101,"32,7",8)
1294B
1295"FRV1K",1130580001.101,"32,7",8,1)
1296MU VTE-1 DENOM RS
1297"FRV1K",1130580001.101,"33,7",7)
1298B
1299"FRV1K",1130580001.101,"33,7",7,1)
1300MU VTE-2 NUMER RS
1301"FRV1K",1130580001.101,"33,7",8)
1302B
1303"FRV1K",1130580001.101,"33,7",8,1)
1304MU VTE-2 DENOM RS
1305"FRV1K",1130580001.101,"34,7",7)
1306B
1307"FRV1K",1130580001.101,"34,7",7,1)
1308MU VTE-3 NUMER RS
1309"FRV1K",1130580001.101,"34,7",8)
1310B
1311"FRV1K",1130580001.101,"34,7",8,1)
1312MU VTE-3 DENOM RS
1313"FRV1K",1130580001.101,"35,7",7)
1314B
1315"FRV1K",1130580001.101,"35,7",7,1)
1316MU VTE-4 NUMER RS
1317"FRV1K",1130580001.101,"35,7",8)
1318B
1319"FRV1K",1130580001.101,"35,7",8,1)
1320MU VTE-4 DENOM RS
1321"FRV1K",1130580001.101,"36,7",7)
1322B
1323"FRV1K",1130580001.101,"36,7",7,1)
1324MU VTE-5 NUMER RS
1325"FRV1K",1130580001.101,"36,7",8)
1326B
1327"FRV1K",1130580001.101,"36,7",8,1)
1328MU VTE-5 DENOM RS
1329"FRV1K",1130580001.101,"37,7",7)
1330B
1331"FRV1K",1130580001.101,"37,7",7,1)
1332MU VTE-6 NUMER RS
1333"FRV1K",1130580001.101,"37,7",8)
1334B
1335"FRV1K",1130580001.101,"37,7",8,1)
1336MU VTE-6 DENOM RS
1337"IX",1130580001.101,1130580001.101,"B",0)
13381130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS
1339"IX",1130580001.101,1130580001.101,"B",1)
1340S ^C0Q(101,"B",$E(X,1,30),DA)=""
1341"IX",1130580001.101,1130580001.101,"B",2)
1342K ^C0Q(101,"B",$E(X,1,30),DA)
1343"IX",1130580001.101,1130580001.101,"B",2.5)
1344K ^C0Q(101,"B")
1345"IX",1130580001.101,1130580001.101,"B",11.1,0)
1346^.114IA^1^1
1347"IX",1130580001.101,1130580001.101,"B",11.1,1,0)
13481^F^1130580001.101^.01^30^1^F
1349"IX",1130580001.101,1130580001.101,"MU",0)
13501130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS
1351"IX",1130580001.101,1130580001.101,"MU",1)
1352S ^C0Q(101,"MU",$E(X,1,30),DA)=""
1353"IX",1130580001.101,1130580001.101,"MU",2)
1354K ^C0Q(101,"MU",$E(X,1,30),DA)
1355"IX",1130580001.101,1130580001.101,"MU",2.5)
1356K ^C0Q(101,"MU")
1357"IX",1130580001.101,1130580001.101,"MU",11.1,0)
1358^.114IA^1^1
1359"IX",1130580001.101,1130580001.101,"MU",11.1,1,0)
13601^F^1130580001.101^.3^30^1^F
1361"IX",1130580001.201,1130580001.201,"MU",0)
13621130580001.201^MU^MEANINGFUL USE YEAR KEY INDEX^R^^F^IR^I^1130580001.201^^^^^LS
1363"IX",1130580001.201,1130580001.201,"MU",1)
1364S ^C0Q(201,"MU",$E(X,1,30),DA)=""
1365"IX",1130580001.201,1130580001.201,"MU",2)
1366K ^C0Q(201,"MU",$E(X,1,30),DA)
1367"IX",1130580001.201,1130580001.201,"MU",2.5)
1368K ^C0Q(201,"MU")
1369"IX",1130580001.201,1130580001.201,"MU",11.1,0)
1370^.114IA^1^1
1371"IX",1130580001.201,1130580001.201,"MU",11.1,1,0)
13721^F^1130580001.201^.3^30^1^F
1373"KEY",1130580001.101,1130580001.101,"A",0)
13741130580001.101^A^P^733
1375"KEY",1130580001.101,1130580001.101,"A",2,0)
1376^.312IA^1^1
1377"KEY",1130580001.101,1130580001.101,"A",2,1,0)
1378.01^1130580001.101^1
1379"KEYPTR",1130580001.101,1130580001.101,"A")
13801130580001.101^B
1381"KRN",.402,1742,-1)
13820^1
1383"KRN",.402,1742,0)
1384C0Q EDIT INPATIENT PARMS^3120801.1733^@^1130580001.401^^@^3120802
1385"KRN",.402,1742,"DIAB",1,1,1130580001.4013,0)
1386ALL
1387"KRN",.402,1742,"DR",1,1130580001.401)
1388.01;.02;.03;1;1.1;5.1;5.2;5.3;3;
1389"KRN",.402,1742,"DR",2,1130580001.4013)
1390.01:.02
1391"KRN",.402,1747,-1)
13920^2
1393"KRN",.402,1747,0)
1394C0Q EDIT MEASURE SET^3120801.0011^@^1130580001.201^^@^3120801
1395"KRN",.402,1747,"DR",1,1130580001.201)
1396.01;.02;.03;.05;.3;.4;1;
1397"KRN",.402,1747,"DR",2,1130580001.2011)
1398.01;1.2;2.2;
1399"KRN",19,11027,-1)
14002^3
1401"KRN",19,11027,0)
1402C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^8^^^^^^^^y
1403"KRN",19,11027,10,0)
1404^19.01IP^20^20
1405"KRN",19,11027,10,20,0)
140611070
1407"KRN",19,11027,10,20,"^")
1408C0Q QRDA MENU
1409"KRN",19,11027,"U")
1410QUALITY MEASUREMENT MENU
1411"KRN",19,11070,-1)
14120^1
1413"KRN",19,11070,0)
1414C0Q QRDA MENU^QRDA MENU^^M^^^^^^^^QUALITY MEASURES^y
1415"KRN",19,11070,1,0)
1416^^1^1^3120801^
1417"KRN",19,11070,1,1,0)
1418Contains QRDA generation releated menu options.
1419"KRN",19,11070,10,0)
1420^19.01IP^1^1
1421"KRN",19,11070,10,1,0)
142211071
1423"KRN",19,11070,10,1,"^")
1424C0Q EXPORT INPATIENT QRDA CCRS
1425"KRN",19,11070,99)
142662670,75392
1427"KRN",19,11070,"U")
1428QRDA MENU
1429"KRN",19,11071,-1)
14300^2
1431"KRN",19,11071,0)
1432C0Q EXPORT INPATIENT QRDA CCRS^EXPORT INPATIENT QRDA MEASURES AS CCRS^^R^^^^^^^^QUALITY MEASURES^y
1433"KRN",19,11071,1,0)
1434^^2^2^3120801^
1435"KRN",19,11071,1,1,0)
1436This option updates the CMS Inpatient Reporting measures and then creates
1437"KRN",19,11071,1,2,0)
1438a CCR for each patient in these measures' denominators.
1439"KRN",19,11071,25)
1440EN^C0QQRDA
1441"KRN",19,11071,"U")
1442EXPORT INPATIENT QRDA MEASURES
1443"MBREQ")
14440
1445"ORD",7,.402)
1446.402;7;;;EDEOUT^DIFROMSO(.402,DA,"",XPDA);FPRE^DIFROMSI(.402,"",XPDA);EPRE^DIFROMSI(.402,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.402,DA,"",XPDA);DEL^DIFROMSK(.402,"",%)
1447"ORD",7,.402,0)
1448INPUT TEMPLATE
1449"ORD",18,19)
145019;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
1451"ORD",18,19,0)
1452OPTION
1453"PGL",1130580001.101,0,2,1)
1454NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q
1455"PGL",1130580001.101,0,3,2)
1456DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q
1457"PGL",1130580001.101,7,2,1.1)
1458ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q
1459"PGL",1130580001.101,7,3,2.1)
1460ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q
1461"PGL",1130580001.101,7,4,1.5)
1462NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q
1463"PGL",1130580001.101,7,5,1.51)
1464ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q
1465"PGL",1130580001.101,7,7,1.2)
1466NUMERATOR 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
1467"PGL",1130580001.101,7,8,2.2)
1468DENOMINATOR 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
1469"PGL",1130580001.101,7,9,2.5)
1470EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q
1471"PGL",1130580001.2011,4,3,1.2)
1472NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q
1473"PGL",1130580001.2011,4,4,2.2)
1474DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q
1475"PKG",212,-1)
14761^1
1477"PKG",212,0)
1478QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures
1479"PKG",212,20,0)
1480^9.402P^^
1481"PKG",212,22,0)
1482^9.49I^1^1
1483"PKG",212,22,1,0)
14841.0^3120731
1485"PKG",212,22,1,"PAH",1,0)
14864^3120824
1487"PKG",212,22,1,"PAH",1,1,0)
1488^^250^250^3120824
1489"PKG",212,22,1,"PAH",1,1,1,0)
1490 Source, Copyright, & Licensing:
1491"PKG",212,22,1,"PAH",1,1,2,0)
1492 ===============================
1493"PKG",212,22,1,"PAH",1,1,3,0)
1494 This patch to WorldVistA 2.0 was produced in Dew Drop
1495"PKG",212,22,1,"PAH",1,1,4,0)
1496 by George Lily on 24 August 2012 and released through VISTA Forum.
1497"PKG",212,22,1,"PAH",1,1,5,0)
1498
1499"PKG",212,22,1,"PAH",1,1,6,0)
1500 (C) 2012 George Lilly
1501"PKG",212,22,1,"PAH",1,1,7,0)
1502 Licensed under GPL 2.
1503"PKG",212,22,1,"PAH",1,1,8,0)
1504
1505"PKG",212,22,1,"PAH",1,1,9,0)
1506 Functionality:
1507"PKG",212,22,1,"PAH",1,1,10,0)
1508 ==============
1509"PKG",212,22,1,"PAH",1,1,11,0)
1510 This patch adds the ability to generate modified CCRs
1511"PKG",212,22,1,"PAH",1,1,12,0)
1512 containing a QUALITY measure section that looks like
1513"PKG",212,22,1,"PAH",1,1,13,0)
1514 this:
1515"PKG",212,22,1,"PAH",1,1,14,0)
1516 <QUALITY>
1517"PKG",212,22,1,"PAH",1,1,15,0)
1518 <MEASURE_SET>
1519"PKG",212,22,1,"PAH",1,1,16,0)
1520 <ID>1.3.6.1.4.1.33895.1.1.31.1.2.1</ID>
1521"PKG",212,22,1,"PAH",1,1,17,0)
1522 <MEASURES>
1523"PKG",212,22,1,"PAH",1,1,18,0)
1524 <MEASURE>1.3.6.1.4.1.33895.1.2.16001.1.2.2</MEASURE>
1525"PKG",212,22,1,"PAH",1,1,19,0)
1526 <MEASURE>1.3.6.1.4.1.33895.1.2.16002.1.2.2</MEASURE>
1527"PKG",212,22,1,"PAH",1,1,20,0)
1528 <MEASURE>1.3.6.1.4.1.33895.1.2.16004.1.2.2</MEASURE>
1529"PKG",212,22,1,"PAH",1,1,21,0)
1530 <MEASURE>1.3.6.1.4.1.33895.1.2.16008.1.2.2</MEASURE>
1531"PKG",212,22,1,"PAH",1,1,22,0)
1532 </MEASURES>
1533"PKG",212,22,1,"PAH",1,1,23,0)
1534 </MEASURE_SET>
1535"PKG",212,22,1,"PAH",1,1,24,0)
1536 </QUALITY>
1537"PKG",212,22,1,"PAH",1,1,25,0)
1538
1539"PKG",212,22,1,"PAH",1,1,26,0)
1540 This enables you to create a QRDA document in the C32 format to submit to CMS
1541"PKG",212,22,1,"PAH",1,1,27,0)
1542 containing these measures. The C32 document will be generated by an XSLT
1543"PKG",212,22,1,"PAH",1,1,28,0)
1544 transform from the CCR document.
1545"PKG",212,22,1,"PAH",1,1,29,0)
1546
1547"PKG",212,22,1,"PAH",1,1,30,0)
1548 The driving force behind the creation of this patch, as well as the
1549"PKG",212,22,1,"PAH",1,1,31,0)
1550 documentation of the actual QRDA documents to send to CMS can be found here:
1551"PKG",212,22,1,"PAH",1,1,32,0)
1552 http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier3&cid=1228772217179
1553"PKG",212,22,1,"PAH",1,1,33,0)
1554
1555"PKG",212,22,1,"PAH",1,1,34,0)
1556 Specifically, this sentence:
1557"PKG",212,22,1,"PAH",1,1,35,0)
1558 "One part of meeting the requirements for Stage I Meaningful Use may include
1559"PKG",212,22,1,"PAH",1,1,36,0)
1560 submitting Clinical Quality Measures (CQMs) electronically using the QRDA
1561"PKG",212,22,1,"PAH",1,1,37,0)
1562 Category I file format."
1563"PKG",212,22,1,"PAH",1,1,38,0)
1564
1565"PKG",212,22,1,"PAH",1,1,39,0)
1566 Package Elements:
1567"PKG",212,22,1,"PAH",1,1,40,0)
1568 =================
1569"PKG",212,22,1,"PAH",1,1,41,0)
1570PACKAGE: C0Q*1.0*4 Aug 24, 2012 12:02 pm PAGE 1
1571"PKG",212,22,1,"PAH",1,1,42,0)
1572-------------------------------------------------------------------------------
1573"PKG",212,22,1,"PAH",1,1,43,0)
1574TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES
1575"PKG",212,22,1,"PAH",1,1,44,0)
1576NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO
1577"PKG",212,22,1,"PAH",1,1,45,0)
1578
1579"PKG",212,22,1,"PAH",1,1,46,0)
1580DESCRIPTION:
1581"PKG",212,22,1,"PAH",1,1,47,0)
1582QRDA Support.
1583"PKG",212,22,1,"PAH",1,1,48,0)
1584
1585"PKG",212,22,1,"PAH",1,1,49,0)
1586ENVIRONMENT CHECK: DELETE ENV ROUTINE:
1587"PKG",212,22,1,"PAH",1,1,50,0)
1588 PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE:
1589"PKG",212,22,1,"PAH",1,1,51,0)
1590POST-INIT ROUTINE: DELETE POST-INIT ROUTINE:
1591"PKG",212,22,1,"PAH",1,1,52,0)
1592PRE-TRANSPORT RTN: TRAN^C0Q1P4
1593"PKG",212,22,1,"PAH",1,1,53,0)
1594
1595"PKG",212,22,1,"PAH",1,1,54,0)
1596 UP SEND DATA USER
1597"PKG",212,22,1,"PAH",1,1,55,0)
1598 DATE SEC. COMES SITE RSLV OVER
1599"PKG",212,22,1,"PAH",1,1,56,0)
1600FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE
1601"PKG",212,22,1,"PAH",1,1,57,0)
1602-------------------------------------------------------------------------------
1603"PKG",212,22,1,"PAH",1,1,58,0)
1604
1605"PKG",212,22,1,"PAH",1,1,59,0)
16061130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO
1607"PKG",212,22,1,"PAH",1,1,60,0)
1608
1609"PKG",212,22,1,"PAH",1,1,61,0)
16101130580001.201C0Q MEASUREMENT SET YES YES YES OVER YES NO
1611"PKG",212,22,1,"PAH",1,1,62,0)
1612
1613"PKG",212,22,1,"PAH",1,1,63,0)
16141130580001.401C0Q PARAMETER YES YES NO NO
1615"PKG",212,22,1,"PAH",1,1,64,0)
1616Partial DD: subDD: 1130580001.401fld: 5.1
1617"PKG",212,22,1,"PAH",1,1,65,0)
1618 fld: 5.2
1619"PKG",212,22,1,"PAH",1,1,66,0)
1620 fld: 5.3
1621"PKG",212,22,1,"PAH",1,1,67,0)
1622
1623"PKG",212,22,1,"PAH",1,1,68,0)
1624INPUT TEMPLATE: ACTION:
1625"PKG",212,22,1,"PAH",1,1,69,0)
1626 C0Q EDIT INPATIENT PARMS FILE #1130580001.401SEND TO SITE
1627"PKG",212,22,1,"PAH",1,1,70,0)
1628 C0Q EDIT MEASURE SET FILE #1130580001.201 SEND TO SITE
1629"PKG",212,22,1,"PAH",1,1,71,0)
1630
1631"PKG",212,22,1,"PAH",1,1,72,0)
1632ROUTINE: ACTION:
1633"PKG",212,22,1,"PAH",1,1,73,0)
1634 C0QQRDA SEND TO SITE
1635"PKG",212,22,1,"PAH",1,1,74,0)
1636
1637"PKG",212,22,1,"PAH",1,1,75,0)
1638OPTION: ACTION:
1639"PKG",212,22,1,"PAH",1,1,76,0)
1640 C0Q EXPORT INPATIENT QRDA CCRS SEND TO SITE
1641"PKG",212,22,1,"PAH",1,1,77,0)
1642 C0Q QRDA MENU SEND TO SITE
1643"PKG",212,22,1,"PAH",1,1,78,0)
1644 C0Q QUALITY MEASUREMENT MENU USE AS LINK FOR MENU ITEMS
1645"PKG",212,22,1,"PAH",1,1,79,0)
1646
1647"PKG",212,22,1,"PAH",1,1,80,0)
1648INSTALL QUESTIONS:
1649"PKG",212,22,1,"PAH",1,1,81,0)
1650
1651"PKG",212,22,1,"PAH",1,1,82,0)
1652 Default Rebuild Menu Trees Upon Completion of Install: YES
1653"PKG",212,22,1,"PAH",1,1,83,0)
1654 Default INHIBIT LOGONs during the install: NO
1655"PKG",212,22,1,"PAH",1,1,84,0)
1656 Default DISABLE Scheduled Options, Menu Options, and Protocols: NO
1657"PKG",212,22,1,"PAH",1,1,85,0)
1658
1659"PKG",212,22,1,"PAH",1,1,86,0)
1660REQUIRED BUILDS: ACTION:
1661"PKG",212,22,1,"PAH",1,1,87,0)
1662 CCD/CCR GENERATION UTILITIES 1.2 Don't install, leave global
1663"PKG",212,22,1,"PAH",1,1,88,0)
1664 QUALITY MEASURES 1.0 Don't install, leave global
1665"PKG",212,22,1,"PAH",1,1,89,0)
1666
1667"PKG",212,22,1,"PAH",1,1,90,0)
1668 Summary of Changes to package:
1669"PKG",212,22,1,"PAH",1,1,91,0)
1670 - Population of QRDA TEMPLATE ROOT field in all of the C0Q QUALITY MEASUREs
1671"PKG",212,22,1,"PAH",1,1,92,0)
1672 for Inpatients, as follows:
1673"PKG",212,22,1,"PAH",1,1,93,0)
1674
1675"PKG",212,22,1,"PAH",1,1,94,0)
1676NAME QRDA TEMPLATE ROOT NUMERATOR RULE SET
1677"PKG",212,22,1,"PAH",1,1,95,0)
1678----------------------------------------------------------------------------------
1679"PKG",212,22,1,"PAH",1,1,96,0)
1680
1681"PKG",212,22,1,"PAH",1,1,97,0)
1682MU HOS NQF 0495 2.16.840.1.113883.3.249.11.14.2.1.2.2 MU ED-1 NUMER RS
1683"PKG",212,22,1,"PAH",1,1,98,0)
1684MU HOS NQF 0497 2.16.840.1.113883.3.249.11.14.3.1.2.2 MU ED-2 NUMER RS
1685"PKG",212,22,1,"PAH",1,1,99,0)
1686
1687"PKG",212,22,1,"PAH",1,1,100,0)
1688MU HOS NQF 0435 1.3.6.1.4.1.33895.1.2.16001.1.2.2 MU STK-2 NUMER RS
1689"PKG",212,22,1,"PAH",1,1,101,0)
1690MU HOS NQF 0436 1.3.6.1.4.1.33895.1.2.16002.1.2.2 MU STK-3 NUMER RS
1691"PKG",212,22,1,"PAH",1,1,102,0)
1692MU HOS NQF 0437 1.3.6.1.4.1.33895.1.2.16003.1.2.2 MU STK-4 NUMER RS
1693"PKG",212,22,1,"PAH",1,1,103,0)
1694MU HOS NQF 0438 1.3.6.1.4.1.33895.1.2.16004.1.2.2 MU STK-5 NUMER RS
1695"PKG",212,22,1,"PAH",1,1,104,0)
1696MU HOS NQF 0439 1.3.6.1.4.1.33895.1.2.16005.1.2.2 MU STK-6 NUMER RS
1697"PKG",212,22,1,"PAH",1,1,105,0)
1698MU HOS NQF 0440 1.3.6.1.4.1.33895.1.2.16007.1.2.2 MU STK-8 NUMER RS
1699"PKG",212,22,1,"PAH",1,1,106,0)
1700MU HOS NQF 0441 1.3.6.1.4.1.33895.1.2.16008.1.2.2 MU STK-10 NUMER RS
1701"PKG",212,22,1,"PAH",1,1,107,0)
1702
1703"PKG",212,22,1,"PAH",1,1,108,0)
1704MU HOS NQF 0371 1.3.6.1.4.1.33895.1.2.15971.1.2.2 MU VTE-1 NUMER RS
1705"PKG",212,22,1,"PAH",1,1,109,0)
1706MU HOS NQF 0372 1.3.6.1.4.1.33895.1.2.15972.1.2.2 MU VTE-2 NUMER RS
1707"PKG",212,22,1,"PAH",1,1,110,0)
1708MU HOS NQF 0373 1.3.6.1.4.1.33895.1.2.15973.1.2.2 MU VTE-3 NUMER RS
1709"PKG",212,22,1,"PAH",1,1,111,0)
1710MU HOS NQF 0374 1.3.6.1.4.1.33895.1.2.15974.1.2.2 MU VTE-4 NUMER RS
1711"PKG",212,22,1,"PAH",1,1,112,0)
1712MU HOS NQF 0375 1.3.6.1.4.1.33895.1.2.15975.1.2.2 MU VTE-5 NUMER RS
1713"PKG",212,22,1,"PAH",1,1,113,0)
1714MU HOS NQF 0376 1.3.6.1.4.1.33895.1.2.15976.1.2.2 MU VTE-6 NUMER RS
1715"PKG",212,22,1,"PAH",1,1,114,0)
1716
1717"PKG",212,22,1,"PAH",1,1,115,0)
1718 - Change of C0Q MEASUREMENT file name to C0Q MEASUREMENT SET
1719"PKG",212,22,1,"PAH",1,1,116,0)
1720 - Addition of QRDA TEMPLATE ROOT field to C0Q MEASUREMENT SET
1721"PKG",212,22,1,"PAH",1,1,117,0)
1722 - Creation of three Measurement Sets in the C0Q MEASUREMENT SET as follows:
1723"PKG",212,22,1,"PAH",1,1,118,0)
1724NAME: ED CMS REPORTING MEASURES
1725"PKG",212,22,1,"PAH",1,1,119,0)
1726 QRDA TEMPLATE ROOT: 2.16.840.1.113883.3.249.11.14.1.1.1
1727"PKG",212,22,1,"PAH",1,1,120,0)
1728 BEGIN DATE: JAN 1,2012 END DATE: DEC 13,2012
1729"PKG",212,22,1,"PAH",1,1,121,0)
1730MEASURE: MU HOS NQF 0495
1731"PKG",212,22,1,"PAH",1,1,122,0)
1732MEASURE: MU HOS NQF 0497
1733"PKG",212,22,1,"PAH",1,1,123,0)
1734 MU YEAR KEY: MU12
1735"PKG",212,22,1,"PAH",1,1,124,0)
1736
1737"PKG",212,22,1,"PAH",1,1,125,0)
1738NAME: STK CMS REPORTING MEASURES
1739"PKG",212,22,1,"PAH",1,1,126,0)
1740 QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.31.1.2.1
1741"PKG",212,22,1,"PAH",1,1,127,0)
1742 BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012
1743"PKG",212,22,1,"PAH",1,1,128,0)
1744MEASURE: MU HOS NQF 0435
1745"PKG",212,22,1,"PAH",1,1,129,0)
1746MEASURE: MU HOS NQF 0436
1747"PKG",212,22,1,"PAH",1,1,130,0)
1748MEASURE: MU HOS NQF 0437
1749"PKG",212,22,1,"PAH",1,1,131,0)
1750MEASURE: MU HOS NQF 0438
1751"PKG",212,22,1,"PAH",1,1,132,0)
1752MEASURE: MU HOS NQF 0439
1753"PKG",212,22,1,"PAH",1,1,133,0)
1754MEASURE: MU HOS NQF 0440
1755"PKG",212,22,1,"PAH",1,1,134,0)
1756MEASURE: MU HOS NQF 0441
1757"PKG",212,22,1,"PAH",1,1,135,0)
1758 MU YEAR KEY: MU12
1759"PKG",212,22,1,"PAH",1,1,136,0)
1760
1761"PKG",212,22,1,"PAH",1,1,137,0)
1762NAME: VTE CMS REPORTING MEASURES
1763"PKG",212,22,1,"PAH",1,1,138,0)
1764 QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.32.1.2.1
1765"PKG",212,22,1,"PAH",1,1,139,0)
1766 BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012
1767"PKG",212,22,1,"PAH",1,1,140,0)
1768MEASURE: MU HOS NQF 0371
1769"PKG",212,22,1,"PAH",1,1,141,0)
1770MEASURE: MU HOS NQF 0372
1771"PKG",212,22,1,"PAH",1,1,142,0)
1772MEASURE: MU HOS NQF 0373
1773"PKG",212,22,1,"PAH",1,1,143,0)
1774MEASURE: MU HOS NQF 0374
1775"PKG",212,22,1,"PAH",1,1,144,0)
1776MEASURE: MU HOS NQF 0375
1777"PKG",212,22,1,"PAH",1,1,145,0)
1778MEASURE: MU HOS NQF 0376
1779"PKG",212,22,1,"PAH",1,1,146,0)
1780 MU YEAR KEY: MU12
1781"PKG",212,22,1,"PAH",1,1,147,0)
1782
1783"PKG",212,22,1,"PAH",1,1,148,0)
1784 - Creation of supporting fields in the C0Q PARAMETER file to drive generation
1785"PKG",212,22,1,"PAH",1,1,149,0)
1786 of the QRDA documents.
1787"PKG",212,22,1,"PAH",1,1,150,0)
1788 - VTE CMS MEASUREMENT SET
1789"PKG",212,22,1,"PAH",1,1,151,0)
1790 - STK CMS MEASUREMENT SET
1791"PKG",212,22,1,"PAH",1,1,152,0)
1792 - ED CMS MEASUREMENT SET
1793"PKG",212,22,1,"PAH",1,1,153,0)
1794
1795"PKG",212,22,1,"PAH",1,1,154,0)
1796 - Modification of existing input templates to support the new fields created.
1797"PKG",212,22,1,"PAH",1,1,155,0)
1798 C0Q EDIT INPATIENT PARMS FILE #1130580001.401
1799"PKG",212,22,1,"PAH",1,1,156,0)
1800 C0Q EDIT MEASURE SET FILE #1130580001.201
1801"PKG",212,22,1,"PAH",1,1,157,0)
1802
1803"PKG",212,22,1,"PAH",1,1,158,0)
1804 - Routine C0QQRDA to drive the generation of the QRDA documents.
1805"PKG",212,22,1,"PAH",1,1,159,0)
1806
1807"PKG",212,22,1,"PAH",1,1,160,0)
1808 - Menu option to call EN^C0QQRDA:
1809"PKG",212,22,1,"PAH",1,1,161,0)
1810 -> C0Q QUALITY MEASUREMENT MENU
1811"PKG",212,22,1,"PAH",1,1,162,0)
1812 Parent: C0Q QRDA MENU
1813"PKG",212,22,1,"PAH",1,1,163,0)
1814
1815"PKG",212,22,1,"PAH",1,1,164,0)
1816 Routine Versioning:
1817"PKG",212,22,1,"PAH",1,1,165,0)
1818
1819"PKG",212,22,1,"PAH",1,1,166,0)
1820 The second line of each of these routines now looks like:
1821"PKG",212,22,1,"PAH",1,1,167,0)
1822 ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28
1823"PKG",212,22,1,"PAH",1,1,168,0)
1824
1825"PKG",212,22,1,"PAH",1,1,169,0)
1826
1827"PKG",212,22,1,"PAH",1,1,170,0)
1828 The following checksums can be checked with CHECK1^XTSUMBLD:
1829"PKG",212,22,1,"PAH",1,1,171,0)
1830
1831"PKG",212,22,1,"PAH",1,1,172,0)
1832 Routine Before After Patch List
1833"PKG",212,22,1,"PAH",1,1,173,0)
1834 ------- ----------- ------------ ---------------------------------
1835"PKG",212,22,1,"PAH",1,1,174,0)
1836 C0QQRDA 89943644 **4**
1837"PKG",212,22,1,"PAH",1,1,175,0)
1838
1839"PKG",212,22,1,"PAH",1,1,176,0)
1840 Documentation:
1841"PKG",212,22,1,"PAH",1,1,177,0)
1842 ==============
1843"PKG",212,22,1,"PAH",1,1,178,0)
1844 None at this moment.
1845"PKG",212,22,1,"PAH",1,1,179,0)
1846
1847"PKG",212,22,1,"PAH",1,1,180,0)
1848 Test Sites:
1849"PKG",212,22,1,"PAH",1,1,181,0)
1850 ===========
1851"PKG",212,22,1,"PAH",1,1,182,0)
1852 None at this moment.
1853"PKG",212,22,1,"PAH",1,1,183,0)
1854
1855"PKG",212,22,1,"PAH",1,1,184,0)
1856 Compliance:
1857"PKG",212,22,1,"PAH",1,1,185,0)
1858 ===========
1859"PKG",212,22,1,"PAH",1,1,186,0)
1860 This software complies with the VA MUMPS Programming Standards and
1861"PKG",212,22,1,"PAH",1,1,187,0)
1862 Conventions (version 3 April 2007).
1863"PKG",212,22,1,"PAH",1,1,188,0)
1864
1865"PKG",212,22,1,"PAH",1,1,189,0)
1866 Installation Instructions:
1867"PKG",212,22,1,"PAH",1,1,190,0)
1868 ==========================
1869"PKG",212,22,1,"PAH",1,1,191,0)
1870 Install Time - less than 1 minute
1871"PKG",212,22,1,"PAH",1,1,192,0)
1872
1873"PKG",212,22,1,"PAH",1,1,193,0)
1874 1. LOAD TRANSPORT GLOBAL
1875"PKG",212,22,1,"PAH",1,1,194,0)
1876
1877"PKG",212,22,1,"PAH",1,1,195,0)
1878 Choose the PackMan message containing this patch and invoke the
1879"PKG",212,22,1,"PAH",1,1,196,0)
1880 INSTALL/CHECK MESSAGE PackMan option to unload the build.
1881"PKG",212,22,1,"PAH",1,1,197,0)
1882
1883"PKG",212,22,1,"PAH",1,1,198,0)
1884 2. START UP KIDS
1885"PKG",212,22,1,"PAH",1,1,199,0)
1886
1887"PKG",212,22,1,"PAH",1,1,200,0)
1888 Start up the Kernel Installation and Distribution System Menu
1889"PKG",212,22,1,"PAH",1,1,201,0)
1890 [XPD MAIN]:
1891"PKG",212,22,1,"PAH",1,1,202,0)
1892
1893"PKG",212,22,1,"PAH",1,1,203,0)
1894 Edits and Distribution ...
1895"PKG",212,22,1,"PAH",1,1,204,0)
1896 Utilities ...
1897"PKG",212,22,1,"PAH",1,1,205,0)
1898 Installation ...
1899"PKG",212,22,1,"PAH",1,1,206,0)
1900
1901"PKG",212,22,1,"PAH",1,1,207,0)
1902 Select Kernel Installation & Distribution System Option: INStallation
1903"PKG",212,22,1,"PAH",1,1,208,0)
1904 ---
1905"PKG",212,22,1,"PAH",1,1,209,0)
1906 Load a Distribution
1907"PKG",212,22,1,"PAH",1,1,210,0)
1908 Print Transport Global
1909"PKG",212,22,1,"PAH",1,1,211,0)
1910 Compare Transport Global to Current System
1911"PKG",212,22,1,"PAH",1,1,212,0)
1912 Verify Checksums in Transport Global
1913"PKG",212,22,1,"PAH",1,1,213,0)
1914 Install Package(s)
1915"PKG",212,22,1,"PAH",1,1,214,0)
1916 Restart Install of Package(s)
1917"PKG",212,22,1,"PAH",1,1,215,0)
1918 Unload a Distribution
1919"PKG",212,22,1,"PAH",1,1,216,0)
1920 Backup a Transport Global
1921"PKG",212,22,1,"PAH",1,1,217,0)
1922
1923"PKG",212,22,1,"PAH",1,1,218,0)
1924 Select Installation Option:
1925"PKG",212,22,1,"PAH",1,1,219,0)
1926
1927"PKG",212,22,1,"PAH",1,1,220,0)
1928 3. Select Installation Option:
1929"PKG",212,22,1,"PAH",1,1,221,0)
1930
1931"PKG",212,22,1,"PAH",1,1,222,0)
1932 NOTE: The following are OPTIONAL - (When prompted for the INSTALL
1933"PKG",212,22,1,"PAH",1,1,223,0)
1934 NAME, enter C0Q*1.0*4):
1935"PKG",212,22,1,"PAH",1,1,224,0)
1936
1937"PKG",212,22,1,"PAH",1,1,225,0)
1938 a. Backup a Transport Global - This option will create a backup
1939"PKG",212,22,1,"PAH",1,1,226,0)
1940 message of any routines exported with this patch. It will not
1941"PKG",212,22,1,"PAH",1,1,227,0)
1942 backup any other changes such as DD's or templates.
1943"PKG",212,22,1,"PAH",1,1,228,0)
1944 b. Compare Transport Global to Current System - This option will
1945"PKG",212,22,1,"PAH",1,1,229,0)
1946 allow you to view all changes that will be made when this patch
1947"PKG",212,22,1,"PAH",1,1,230,0)
1948 is installed. It compares all components of this patch
1949"PKG",212,22,1,"PAH",1,1,231,0)
1950 (routines, DD's, templates, etc.).
1951"PKG",212,22,1,"PAH",1,1,232,0)
1952 c. Verify Checksums in Transport Global - This option will allow
1953"PKG",212,22,1,"PAH",1,1,233,0)
1954 you to ensure the integrity of the routines that are in the
1955"PKG",212,22,1,"PAH",1,1,234,0)
1956 transport global.
1957"PKG",212,22,1,"PAH",1,1,235,0)
1958
1959"PKG",212,22,1,"PAH",1,1,236,0)
1960 4. Select Installation Option: Install Package(s)
1961"PKG",212,22,1,"PAH",1,1,237,0)
1962
1963"PKG",212,22,1,"PAH",1,1,238,0)
1964 **This is the step to start the installation of this KIDS patch:
1965"PKG",212,22,1,"PAH",1,1,239,0)
1966
1967"PKG",212,22,1,"PAH",1,1,240,0)
1968 a. Choose the Install Package(s) option to start the patch install
1969"PKG",212,22,1,"PAH",1,1,241,0)
1970 and enter "C0Q*1.0*4" at the INSTALL NAME prompt.
1971"PKG",212,22,1,"PAH",1,1,242,0)
1972 b. When asked, 'Shall I write over your C0Q MEASUREMENTS File? YES//'
1973"PKG",212,22,1,"PAH",1,1,243,0)
1974 Answer YES. The file is just renamed, that's why KIDS asks you to
1975"PKG",212,22,1,"PAH",1,1,244,0)
1976 overwrite it.
1977"PKG",212,22,1,"PAH",1,1,245,0)
1978 c. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of
1979"PKG",212,22,1,"PAH",1,1,246,0)
1980 Install? YES//' answer YES
1981"PKG",212,22,1,"PAH",1,1,247,0)
1982 d. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
1983"PKG",212,22,1,"PAH",1,1,248,0)
1984 NO//' answer NO
1985"PKG",212,22,1,"PAH",1,1,249,0)
1986 e. When prompted 'Want to DISABLE Scheduled Options, Menu Options,
1987"PKG",212,22,1,"PAH",1,1,250,0)
1988 and Protocols? NO//' answer NO
1989"QUES","XPF1",0)
1990Y
1991"QUES","XPF1","??")
1992^D REP^XPDH
1993"QUES","XPF1","A")
1994Shall I write over your |FLAG| File
1995"QUES","XPF1","B")
1996YES
1997"QUES","XPF1","M")
1998D XPF1^XPDIQ
1999"QUES","XPF2",0)
2000Y
2001"QUES","XPF2","??")
2002^D DTA^XPDH
2003"QUES","XPF2","A")
2004Want my data |FLAG| yours
2005"QUES","XPF2","B")
2006YES
2007"QUES","XPF2","M")
2008D XPF2^XPDIQ
2009"QUES","XPI1",0)
2010YO
2011"QUES","XPI1","??")
2012^D INHIBIT^XPDH
2013"QUES","XPI1","A")
2014Want KIDS to INHIBIT LOGONs during the install
2015"QUES","XPI1","B")
2016NO
2017"QUES","XPI1","M")
2018D XPI1^XPDIQ
2019"QUES","XPM1",0)
2020PO^VA(200,:EM
2021"QUES","XPM1","??")
2022^D MG^XPDH
2023"QUES","XPM1","A")
2024Enter the Coordinator for Mail Group '|FLAG|'
2025"QUES","XPM1","B")
2026
2027"QUES","XPM1","M")
2028D XPM1^XPDIQ
2029"QUES","XPO1",0)
2030Y
2031"QUES","XPO1","??")
2032^D MENU^XPDH
2033"QUES","XPO1","A")
2034Want KIDS to Rebuild Menu Trees Upon Completion of Install
2035"QUES","XPO1","B")
2036YES
2037"QUES","XPO1","M")
2038D XPO1^XPDIQ
2039"QUES","XPZ1",0)
2040Y
2041"QUES","XPZ1","??")
2042^D OPT^XPDH
2043"QUES","XPZ1","A")
2044Want to DISABLE Scheduled Options, Menu Options, and Protocols
2045"QUES","XPZ1","B")
2046NO
2047"QUES","XPZ1","M")
2048D XPZ1^XPDIQ
2049"QUES","XPZ2",0)
2050Y
2051"QUES","XPZ2","??")
2052^D RTN^XPDH
2053"QUES","XPZ2","A")
2054Want to MOVE routines to other CPUs
2055"QUES","XPZ2","B")
2056NO
2057"QUES","XPZ2","M")
2058D XPZ2^XPDIQ
2059"RTN")
20601
2061"RTN","C0QQRDA")
20620^1^B89943644
2063"RTN","C0QQRDA",1,0)
2064C0QQRDA ; GPL - Quality Reporting QRDA Processing ; 8/24/12 12:41pm
2065"RTN","C0QQRDA",2,0)
2066 ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28
2067"RTN","C0QQRDA",3,0)
2068 ;Copyright 2012 George Lilly. Licensed under the terms of the GNU
2069"RTN","C0QQRDA",4,0)
2070 ;General Public License See attached copy of the License.
2071"RTN","C0QQRDA",5,0)
2072 ;
2073"RTN","C0QQRDA",6,0)
2074 ;This program is free software; you can redistribute it and/or modify
2075"RTN","C0QQRDA",7,0)
2076 ;it under the terms of the GNU General Public License as published by
2077"RTN","C0QQRDA",8,0)
2078 ;the Free Software Foundation; either version 2 of the License, or
2079"RTN","C0QQRDA",9,0)
2080 ;(at your option) any later version.
2081"RTN","C0QQRDA",10,0)
2082 ;
2083"RTN","C0QQRDA",11,0)
2084 ;This program is distributed in the hope that it will be useful,
2085"RTN","C0QQRDA",12,0)
2086 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
2087"RTN","C0QQRDA",13,0)
2088 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2089"RTN","C0QQRDA",14,0)
2090 ;GNU General Public License for more details.
2091"RTN","C0QQRDA",15,0)
2092 ;
2093"RTN","C0QQRDA",16,0)
2094 ;You should have received a copy of the GNU General Public License along
2095"RTN","C0QQRDA",17,0)
2096 ;with this program; if not, write to the Free Software Foundation, Inc.,
2097"RTN","C0QQRDA",18,0)
2098 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
2099"RTN","C0QQRDA",19,0)
2100 ;
2101"RTN","C0QQRDA",20,0)
2102EN ; Private to this Package; Main Entry Point for this routine
2103"RTN","C0QQRDA",21,0)
2104 ; This EP is interactive or silent depending on params
2105"RTN","C0QQRDA",22,0)
2106 ;
2107"RTN","C0QQRDA",23,0)
2108 ; Check for config errors first; try to set-up.
2109"RTN","C0QQRDA",24,0)
2110 N % S %=$$CHECKPAR()
2111"RTN","C0QQRDA",25,0)
2112 I +%=1 D EN^DDIOL($P(%,U,2)) QUIT ; No inpatient pars found... QUIT
2113"RTN","C0QQRDA",26,0)
2114 ;
2115"RTN","C0QQRDA",27,0)
2116 N C0QFAIL S C0QFAIL=0
2117"RTN","C0QQRDA",28,0)
2118 I +%=2 D ; No QRDA Measure Sets... try to set it up.
2119"RTN","C0QQRDA",29,0)
2120 . D EN^DDIOL("Trying to automatically set-up measure sets in parameters")
2121"RTN","C0QQRDA",30,0)
2122 . N % S %=$$SETUPPAR($$INPPARM())
2123"RTN","C0QQRDA",31,0)
2124 . I % D EN^DDIOL("Failed to set-up..."_$P(%,U,2)) S C0QFAIL=1
2125"RTN","C0QQRDA",32,0)
2126 . E D EN^DDIOL("...Set-up complete",""),EN^DDIOL("","","!!!")
2127"RTN","C0QQRDA",33,0)
2128 ;
2129"RTN","C0QQRDA",34,0)
2130 I C0QFAIL QUIT
2131"RTN","C0QQRDA",35,0)
2132 ;
2133"RTN","C0QQRDA",36,0)
2134 ; Print Intro
2135"RTN","C0QQRDA",37,0)
2136 N %
2137"RTN","C0QQRDA",38,0)
2138 S %(1)="This program collects patients from the denominators of the measures"
2139"RTN","C0QQRDA",39,0)
2140 S %(2)="STK, VTE, and ED and outputs modified CCR files to the kernel default"
2141"RTN","C0QQRDA",40,0)
2142 S %(3)="directory (probably /tmp/)."
2143"RTN","C0QQRDA",41,0)
2144 S %(4)=""
2145"RTN","C0QQRDA",42,0)
2146 S %(5)="This will take some time to execute."
2147"RTN","C0QQRDA",43,0)
2148 S %(6)=""
2149"RTN","C0QQRDA",44,0)
2150 S %(6,"F")="!!!"
2151"RTN","C0QQRDA",45,0)
2152 ;
2153"RTN","C0QQRDA",46,0)
2154 D EN^DDIOL(.%)
2155"RTN","C0QQRDA",47,0)
2156 ;
2157"RTN","C0QQRDA",48,0)
2158 ; Ask user which measure set to run
2159"RTN","C0QQRDA",49,0)
2160 N DIR,DTOUT,DUOUT,X,Y,DIRUT,DIROUT,DA ; DIR variables
2161"RTN","C0QQRDA",50,0)
2162 S DIR(0)="SB^V:VTE;S:STK;E:ED;A:ALL"
2163"RTN","C0QQRDA",51,0)
2164 S DIR("A")="Measure to calculate"
2165"RTN","C0QQRDA",52,0)
2166 S DIR("A",1)="Which measure set would you like to produce QRDA documents for?"
2167"RTN","C0QQRDA",53,0)
2168 S DIR("A",2)="Choose to Run [V]TE Measure Set, [S]TK Measure Set, or "
2169"RTN","C0QQRDA",54,0)
2170 S DIR("A",3)="[E]D Measure Set. Or you can choose to run [A]ll of them."
2171"RTN","C0QQRDA",55,0)
2172 D ^DIR
2173"RTN","C0QQRDA",56,0)
2174 ;
2175"RTN","C0QQRDA",57,0)
2176 I $G(DTOUT)!$G(DUOUT) QUIT ; Did user hit '^' or time out?
2177"RTN","C0QQRDA",58,0)
2178 ;
2179"RTN","C0QQRDA",59,0)
2180 ; Get the Measure Set IEN which the user has seleted.
2181"RTN","C0QQRDA",60,0)
2182 ; NB: field names start with VTE, STK, or ED; so I can use the output
2183"RTN","C0QQRDA",61,0)
2184 ; of DIR directly.
2185"RTN","C0QQRDA",62,0)
2186 ;
2187"RTN","C0QQRDA",63,0)
2188 N FLD S FLD=Y(0) ; Grab full text of user choice into var "FLD" for field.
2189"RTN","C0QQRDA",64,0)
2190 N C0QMSIENS ; Measure set IENs (^ piece); (0) stores the identifier for file names
2191"RTN","C0QQRDA",65,0)
2192 ;looks like this in the end
2193"RTN","C0QQRDA",66,0)
2194 ; C0QMSIENS=1^3^5
2195"RTN","C0QQRDA",67,0)
2196 ; C0QMSIENS(0)="ED^VTE^STK"
2197"RTN","C0QQRDA",68,0)
2198 ;
2199"RTN","C0QQRDA",69,0)
2200 N INPPARM S INPPARM=$$INPPARM() ; Inpatient Parameter IEN in 401
2201"RTN","C0QQRDA",70,0)
2202 ;
2203"RTN","C0QQRDA",71,0)
2204 ; If not all, grab the measure set; else, grab all of them in ^ pieces
2205"RTN","C0QQRDA",72,0)
2206 I FLD'="ALL" D
2207"RTN","C0QQRDA",73,0)
2208 . S C0QMSIENS=$$GET1^DIQ(1130580001.401,INPPARM,FLD,"I")
2209"RTN","C0QQRDA",74,0)
2210 . S C0QMSIENS(0)=FLD
2211"RTN","C0QQRDA",75,0)
2212 ;
2213"RTN","C0QQRDA",76,0)
2214 E D
2215"RTN","C0QQRDA",77,0)
2216 . N C0QED S C0QED=$$GET1^DIQ(1130580001.401,INPPARM,"ED","I")
2217"RTN","C0QQRDA",78,0)
2218 . N C0QVTE S C0QVTE=$$GET1^DIQ(1130580001.401,INPPARM,"VTE","I")
2219"RTN","C0QQRDA",79,0)
2220 . N C0QSTK S C0QSTK=$$GET1^DIQ(1130580001.401,INPPARM,"STK","I")
2221"RTN","C0QQRDA",80,0)
2222 . S C0QMSIENS=C0QED_U_C0QVTE_U_C0QSTK
2223"RTN","C0QQRDA",81,0)
2224 . S C0QMSIENS(0)="ED"_U_"VTE"_U_"STK"
2225"RTN","C0QQRDA",82,0)
2226 ;
2227"RTN","C0QQRDA",83,0)
2228 ;
2229"RTN","C0QQRDA",84,0)
2230 S:'C0QMSIENS $EC=",U1," ; Debug.Assert that MSIEN is numeric.
2231"RTN","C0QQRDA",85,0)
2232 ;
2233"RTN","C0QQRDA",86,0)
2234 ;
2235"RTN","C0QQRDA",87,0)
2236 ; Do the work
2237"RTN","C0QQRDA",88,0)
2238 N C0QI ; Counter through the measures
2239"RTN","C0QQRDA",89,0)
2240 F C0QI=1:1:$L(C0QMSIENS,U) D
2241"RTN","C0QQRDA",90,0)
2242 . N MSIEN S MSIEN=$P(C0QMSIENS,U,C0QI) ; Measure Set IEN
2243"RTN","C0QQRDA",91,0)
2244 . N MSNAME S MSNAME=$P(C0QMSIENS(0),U,C0QI) ; Measure Set Name
2245"RTN","C0QQRDA",92,0)
2246 . N REF S REF=$NAME(^TMP("C0QQRDA",$J)) ; Global for data collection
2247"RTN","C0QQRDA",93,0)
2248 . K @REF ; Clear global
2249"RTN","C0QQRDA",94,0)
2250 . D WORK(REF,MSIEN) ; Process Measure Set, collect data in global
2251"RTN","C0QQRDA",95,0)
2252 . D PRINTXML(REF,MSNAME) ; Generate XML; output to File.
2253"RTN","C0QQRDA",96,0)
2254 . K @REF ; Clear global
2255"RTN","C0QQRDA",97,0)
2256 QUIT
2257"RTN","C0QQRDA",98,0)
2258 ;
2259"RTN","C0QQRDA",99,0)
2260 ;SILENTEN(RETURN) ; For future RPC calls...; needs to be reworked.
2261"RTN","C0QQRDA",100,0)
2262 ; N % S %=$$CHECKPAR()
2263"RTN","C0QQRDA",101,0)
2264 ; I % S RETURN(0)=% Q
2265"RTN","C0QQRDA",102,0)
2266 ;
2267"RTN","C0QQRDA",103,0)
2268 ; N DIQUIET S DIQUIET=1
2269"RTN","C0QQRDA",104,0)
2270 ; D EN
2271"RTN","C0QQRDA",105,0)
2272 ; S RETURN(0)=0
2273"RTN","C0QQRDA",106,0)
2274 ; QUIT
2275"RTN","C0QQRDA",107,0)
2276 ;
2277"RTN","C0QQRDA",108,0)
2278CHECKPAR() ; Private Proc; Check if environment is okay.
2279"RTN","C0QQRDA",109,0)
2280 ; Output: 0 or +ve^message for error
2281"RTN","C0QQRDA",110,0)
2282 ; 1 -> No Inpatient Parameters found
2283"RTN","C0QQRDA",111,0)
2284 ; 2 -> Measurement Set(s) not found.
2285"RTN","C0QQRDA",112,0)
2286 ;
2287"RTN","C0QQRDA",113,0)
2288 N INPPARM S INPPARM=$$INPPARM() ; Inpatient Parameters IEN
2289"RTN","C0QQRDA",114,0)
2290 I 'INPPARM Q 1_U_"No Inpatient Parameters found"
2291"RTN","C0QQRDA",115,0)
2292 ;
2293"RTN","C0QQRDA",116,0)
2294 ; Pointer fields to Measurement Set file, we grab the IENs
2295"RTN","C0QQRDA",117,0)
2296 N C0QED S C0QED=$$GET1^DIQ(1130580001.401,INPPARM,"ED","I")
2297"RTN","C0QQRDA",118,0)
2298 N C0QSTK S C0QSTK=$$GET1^DIQ(1130580001.401,INPPARM,"STK","I")
2299"RTN","C0QQRDA",119,0)
2300 N C0QVTE S C0QVTE=$$GET1^DIQ(1130580001.401,INPPARM,"VTE","I")
2301"RTN","C0QQRDA",120,0)
2302 ;
2303"RTN","C0QQRDA",121,0)
2304 N TXT S TXT="" ; Error text
2305"RTN","C0QQRDA",122,0)
2306 I 'C0QED S TXT=TXT_"ED,"
2307"RTN","C0QQRDA",123,0)
2308 I 'C0QSTK S TXT=TXT_"STK,"
2309"RTN","C0QQRDA",124,0)
2310 I 'C0QVTE S TXT=TXT_"VTE"
2311"RTN","C0QQRDA",125,0)
2312 I $E(TXT,$L(TXT))="," S TXT=$E(TXT,1,$L(TXT)-1) ; remove trailing comma
2313"RTN","C0QQRDA",126,0)
2314 I $L(TXT) Q 2_U_"Measure Sets missing from parameters: "_TXT
2315"RTN","C0QQRDA",127,0)
2316 ;
2317"RTN","C0QQRDA",128,0)
2318 QUIT 0 ; All okay
2319"RTN","C0QQRDA",129,0)
2320 ;
2321"RTN","C0QQRDA",130,0)
2322SETUPPAR(INPPARM) ; Private Proc; Set-up QRDA lists if Inpatient Param is found.
2323"RTN","C0QQRDA",131,0)
2324 ; Input: Inpatient Parameter IEN in C0Q(401, -> C0Q Parameters
2325"RTN","C0QQRDA",132,0)
2326 ; Output: 0 if okay or 1^error description
2327"RTN","C0QQRDA",133,0)
2328 N C0QFDA
2329"RTN","C0QQRDA",134,0)
2330 ;
2331"RTN","C0QQRDA",135,0)
2332 N VTEIEN S VTEIEN=$O(^C0Q(201,"B","VTE CMS REPORTING MEASURES",""))
2333"RTN","C0QQRDA",136,0)
2334 I 'VTEIEN QUIT 1_U_"VTE not found"
2335"RTN","C0QQRDA",137,0)
2336 N STKIEN S STKIEN=$O(^C0Q(201,"B","STK CMS REPORTING MEASURES",""))
2337"RTN","C0QQRDA",138,0)
2338 I 'STKIEN QUIT 1_U_"STK not found"
2339"RTN","C0QQRDA",139,0)
2340 N EDIEN S EDIEN=$O(^C0Q(201,"B","ED CMS REPORTING MEASURES",""))
2341"RTN","C0QQRDA",140,0)
2342 I 'EDIEN QUIT 1_U_"ED not found"
2343"RTN","C0QQRDA",141,0)
2344 ;
2345"RTN","C0QQRDA",142,0)
2346 S C0QFDA(1130580001.401,INPPARM_",",5.1)=VTEIEN
2347"RTN","C0QQRDA",143,0)
2348 S C0QFDA(1130580001.401,INPPARM_",",5.2)=STKIEN
2349"RTN","C0QQRDA",144,0)
2350 S C0QFDA(1130580001.401,INPPARM_",",5.3)=EDIEN
2351"RTN","C0QQRDA",145,0)
2352 ;
2353"RTN","C0QQRDA",146,0)
2354 N C0QERR
2355"RTN","C0QQRDA",147,0)
2356 D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR))
2357"RTN","C0QQRDA",148,0)
2358 I $D(C0QERR) Q 2_U_C0QERR("DIERR",1,"TEXT",1)
2359"RTN","C0QQRDA",149,0)
2360 Q 0
2361"RTN","C0QQRDA",150,0)
2362 ;
2363"RTN","C0QQRDA",151,0)
2364WORK(C0QREF,C0QMSIEN) ; Private Proc; Process Measure Sets; Collect the data.
2365"RTN","C0QQRDA",152,0)
2366 ; Input/Output: C0QREF -> Global for Output passed by Name
2367"RTN","C0QQRDA",153,0)
2368 ; C0QMSIEN -> (Input): Measurement Set IEN to calculate
2369"RTN","C0QQRDA",154,0)
2370 ;
2371"RTN","C0QQRDA",155,0)
2372 ; Print
2373"RTN","C0QQRDA",156,0)
2374 D EN^DDIOL(C0QMSIEN_": "_^C0Q(201,C0QMSIEN,0))
2375"RTN","C0QQRDA",157,0)
2376 D EN^DDIOL("")
2377"RTN","C0QQRDA",158,0)
2378 ;
2379"RTN","C0QQRDA",159,0)
2380 ; Calculate totals and move patients over from individual measures
2381"RTN","C0QQRDA",160,0)
2382 N A
2383"RTN","C0QQRDA",161,0)
2384 D UPDATE^C0QUPDT(.A,C0QMSIEN) ; FYI: A isn't used.
2385"RTN","C0QQRDA",162,0)
2386 ;
2387"RTN","C0QQRDA",163,0)
2388 ; Get QRDA code for Measure Set.
2389"RTN","C0QQRDA",164,0)
2390 N C0QMSQRDA S C0QMSQRDA=$$GET1^DIQ($$C0QMFN^C0QUPDT(),C0QMSIEN_",","QRDA TEMPLATE ROOT")
2391"RTN","C0QQRDA",165,0)
2392 ;
2393"RTN","C0QQRDA",166,0)
2394 N C0QI S C0QI=0 ; Fileman IEN looper
2395"RTN","C0QQRDA",167,0)
2396 F S C0QI=$O(^C0Q(201,C0QMSIEN,5,C0QI)) Q:'C0QI D ; For each measure in Measure Set
2397"RTN","C0QQRDA",168,0)
2398 . ;
2399"RTN","C0QQRDA",169,0)
2400 . ; Get QRDA code using relational jump
2401"RTN","C0QQRDA",170,0)
2402 . N C0QMEASUREQRDA S C0QMEASUREQRDA=$$GET1^DIQ($$C0QMMFN^C0QUPDT(),C0QI_","_C0QMSIEN_",",".01:QRDA TEMPLATE ROOT")
2403"RTN","C0QQRDA",171,0)
2404 . ;
2405"RTN","C0QQRDA",172,0)
2406 . ; Then collect patients in the denominator, and store in output global
2407"RTN","C0QQRDA",173,0)
2408 . N C0QP S C0QP=0
2409"RTN","C0QQRDA",174,0)
2410 . F S C0QP=$O(^C0Q(201,C0QMSIEN,5,C0QI,3,C0QP)) Q:'C0QP D ; For each patient in denominator
2411"RTN","C0QQRDA",175,0)
2412 . . N C0QDFN S C0QDFN=+^(C0QP,0)
2413"RTN","C0QQRDA",176,0)
2414 . . S @C0QREF@(C0QDFN,C0QMSQRDA,C0QMEASUREQRDA)=""
2415"RTN","C0QQRDA",177,0)
2416 QUIT
2417"RTN","C0QQRDA",178,0)
2418 ;
2419"RTN","C0QQRDA",179,0)
2420INPPARM() ; $$ Private; Get Inpatient Parameters IEN
2421"RTN","C0QQRDA",180,0)
2422 ; Output: IEN of Inpatient Parameter in C0Q PARAMETER file
2423"RTN","C0QQRDA",181,0)
2424 ;
2425"RTN","C0QQRDA",182,0)
2426 ; Browse this tree of xrefs to get the IEN of INP type (last line here).
2427"RTN","C0QQRDA",183,0)
2428 ; ^C0Q(401,"B","INPATIENT",2)=""
2429"RTN","C0QQRDA",184,0)
2430 ; ^C0Q(401,"B","OUTPATIENT",1)=""
2431"RTN","C0QQRDA",185,0)
2432 ; ^C0Q(401,"MU","MU12",1)=""
2433"RTN","C0QQRDA",186,0)
2434 ; ^C0Q(401,"MU","MU12",2)=""
2435"RTN","C0QQRDA",187,0)
2436 ; ^C0Q(401,"MUTYP","MU12","EP",1)=""
2437"RTN","C0QQRDA",188,0)
2438 ; ^C0Q(401,"MUTYP","MU12","INP",2)=""
2439"RTN","C0QQRDA",189,0)
2440 ;
2441"RTN","C0QQRDA",190,0)
2442 N MUID S MUID="" ; Looper for MU Year ID
2443"RTN","C0QQRDA",191,0)
2444 N FOUND S FOUND=0 ; Found flag to get out of loop
2445"RTN","C0QQRDA",192,0)
2446 N IEN ; Output variable
2447"RTN","C0QQRDA",193,0)
2448 F S MUID=$O(^C0Q(401,"MUTYP",MUID),-1) Q:MUID="" Q:FOUND D ; Loop backwards
2449"RTN","C0QQRDA",194,0)
2450 . N TYP S TYP="" ; Type ("EP" or "INP")
2451"RTN","C0QQRDA",195,0)
2452 . F S TYP=$O(^C0Q(401,"MUTYP",MUID,TYP)) Q:TYP="" Q:FOUND D
2453"RTN","C0QQRDA",196,0)
2454 . . I TYP="INP" S IEN=$O(^(TYP,"")),FOUND=1 Q ; If found, get IEN, quit out of loops
2455"RTN","C0QQRDA",197,0)
2456 QUIT +$G(IEN)
2457"RTN","C0QQRDA",198,0)
2458 ;
2459"RTN","C0QQRDA",199,0)
2460PRINTXML(C0QREF,C0QMNM) ; Print the XML; Private Proc
2461"RTN","C0QQRDA",200,0)
2462 ; Input: C0QREF -> Global By Name
2463"RTN","C0QQRDA",201,0)
2464 ; C0QMNM -> Measure Name -> Either VTE, STK, ED. For use in filenames.
2465"RTN","C0QQRDA",202,0)
2466 ; Output: modified CCRs are saved in /tmp/
2467"RTN","C0QQRDA",203,0)
2468 N C0QDFN,C0QMS,C0QM S (C0QDFN,C0QMS,C0QM)="" ; DFN, Measure Set, Measure loopers
2469"RTN","C0QQRDA",204,0)
2470 F S C0QDFN=$O(@C0QREF@(C0QDFN)) Q:C0QDFN="" D ; For each patient
2471"RTN","C0QQRDA",205,0)
2472 . ;
2473"RTN","C0QQRDA",206,0)
2474 . N GREEN S GREEN=$C(27)_"[1;37;42m"
2475"RTN","C0QQRDA",207,0)
2476 . N RESET S RESET=$C(27)_"[0m"
2477"RTN","C0QQRDA",208,0)
2478 . D EN^DDIOL(GREEN_"Prosessing DFN "_C0QDFN_RESET,"","!!!")
2479"RTN","C0QQRDA",209,0)
2480 . D EN^DDIOL("","","!")
2481"RTN","C0QQRDA",210,0)
2482 . ;
2483"RTN","C0QQRDA",211,0)
2484 . ; CCR Generatation is next; protected against crashes.
2485"RTN","C0QQRDA",212,0)
2486 . ; ET set to new value then restored.
2487"RTN","C0QQRDA",213,0)
2488 . N C0QCCRXML ; CCR XML
2489"RTN","C0QQRDA",214,0)
2490 . N OLDTRAP S OLDTRAP=$ET
2491"RTN","C0QQRDA",215,0)
2492 . ; ET: Rollback to this level, write the error in red , clear it, then quit
2493"RTN","C0QQRDA",216,0)
2494 . N ETTEXT S ETTEXT=$C(27)_"[1;37;41m"_$$EC^%ZOSV_$C(27)_RESET
2495"RTN","C0QQRDA",217,0)
2496 . N $ES,$ET
2497"RTN","C0QQRDA",218,0)
2498 . S $ET="W ETTEXT D ^%ZTER G ROLLDOWN^C0QQRDA"
2499"RTN","C0QQRDA",219,0)
2500 . D CCRRPC^C0CCCR(.C0QCCRXML,C0QDFN) ; Run CCR RPC.
2501"RTN","C0QQRDA",220,0)
2502 . S $ET=OLDTRAP
2503"RTN","C0QQRDA",221,0)
2504 . ;
2505"RTN","C0QQRDA",222,0)
2506 . ;
2507"RTN","C0QQRDA",223,0)
2508 . ; Quality XML Section generated by hand next...
2509"RTN","C0QQRDA",224,0)
2510 . N C0QXML ; Generated Quality XML
2511"RTN","C0QQRDA",225,0)
2512 . D XMLSTORE(.C0QXML,$$OT("QUALITY")) ; Open Tag
2513"RTN","C0QQRDA",226,0)
2514 . F S C0QMS=$O(@C0QREF@(C0QDFN,C0QMS)) Q:C0QMS="" D ; For each measure set
2515"RTN","C0QQRDA",227,0)
2516 . . D XMLSTORE(.C0QXML,$$OT("MEASURE_SET")) ; Open tag
2517"RTN","C0QQRDA",228,0)
2518 . . D XMLSTORE(.C0QXML,$$TAG("ID",C0QMS)) ; Write out set QRDA code
2519"RTN","C0QQRDA",229,0)
2520 . . D XMLSTORE(.C0QXML,$$OT("MEASURES")) ; Open tag
2521"RTN","C0QQRDA",230,0)
2522 . . F S C0QM=$O(@C0QREF@(C0QDFN,C0QMS,C0QM)) Q:C0QM="" D ; for each measure
2523"RTN","C0QQRDA",231,0)
2524 . . . D XMLSTORE(.C0QXML,$$TAG("MEASURE",C0QM)) ; Write <measure> and qrda code
2525"RTN","C0QQRDA",232,0)
2526 . . D XMLSTORE(.C0QXML,$$CT("MEASURES")) ; Close tag
2527"RTN","C0QQRDA",233,0)
2528 . . D XMLSTORE(.C0QXML,$$CT("MEASURE_SET")) ; Close tag
2529"RTN","C0QQRDA",234,0)
2530 . D XMLSTORE(.C0QXML,$$CT("QUALITY")) ; Close tag
2531"RTN","C0QQRDA",235,0)
2532 . ;
2533"RTN","C0QQRDA",236,0)
2534 . ;
2535"RTN","C0QQRDA",237,0)
2536 . ; Insert Quality XML under the root of the CCR document
2537"RTN","C0QQRDA",238,0)
2538 . D INSERT^C0CXPATH($NA(C0QCCRXML),$NA(C0QXML),"//ContinuityOfCareRecord")
2539"RTN","C0QQRDA",239,0)
2540 . ;
2541"RTN","C0QQRDA",240,0)
2542 . ;
2543"RTN","C0QQRDA",241,0)
2544 . ; Get Kernel Default Directory
2545"RTN","C0QQRDA",242,0)
2546 . N DEFDIR S DEFDIR=$$DEFDIR^%ZISH()
2547"RTN","C0QQRDA",243,0)
2548 . ;
2549"RTN","C0QQRDA",244,0)
2550 . ;
2551"RTN","C0QQRDA",245,0)
2552 . ; Write out to a file.
2553"RTN","C0QQRDA",246,0)
2554 . N FN S FN=C0QMNM_"_QRDA_CCR_DFN"_$$RJ^XLFSTR(C0QDFN,10,"0")_".XML" ; File Name
2555"RTN","C0QQRDA",247,0)
2556 . K C0QCCRXML(0) ; remove zero node; API doesn't support it.
2557"RTN","C0QQRDA",248,0)
2558 . D EN^DDIOL($$OUTPUT^C0CXPATH($NA(C0QCCRXML(1)),FN,DEFDIR))
2559"RTN","C0QQRDA",249,0)
2560 QUIT
2561"RTN","C0QQRDA",250,0)
2562 ;
2563"RTN","C0QQRDA",251,0)
2564 ; Quick XML stuff ; All Private
2565"RTN","C0QQRDA",252,0)
2566OT(STR) Q "<"_STR_">" ; $$ Open Tag
2567"RTN","C0QQRDA",253,0)
2568CT(STR) Q "</"_STR_">" ; $$ Close Tag
2569"RTN","C0QQRDA",254,0)
2570TAG(NM,CONTENT) Q "<"_NM_">"_CONTENT_"</"_NM_">" ; $$ Whole tag
2571"RTN","C0QQRDA",255,0)
2572 ;
2573"RTN","C0QQRDA",256,0)
2574XMLSTORE(REF,STR) ; Priv Proc - Store XML
2575"RTN","C0QQRDA",257,0)
2576 ; REF -> Save Array. Pass by Reference.
2577"RTN","C0QQRDA",258,0)
2578 ; STR -> What to store. Pass by Value.
2579"RTN","C0QQRDA",259,0)
2580 ; Use like this: D XMLSTORE(.STORE,"<tag>")
2581"RTN","C0QQRDA",260,0)
2582 ; Output: STORE(1)="<tag>"
2583"RTN","C0QQRDA",261,0)
2584 N L ; Number Subscript to use
2585"RTN","C0QQRDA",262,0)
2586 S L=$O(REF(" "),-1) S L=L+1 ; Get last number and increment
2587"RTN","C0QQRDA",263,0)
2588 S REF(L)=STR,REF(0)=L ; Store string in numbered sub, store last number in 0 node (not used here)
2589"RTN","C0QQRDA",264,0)
2590 QUIT
2591"RTN","C0QQRDA",265,0)
2592 ;
2593"RTN","C0QQRDA",266,0)
2594 ; Following is for formatting printed XML. L passed in Symbol Table and starts at 0.
2595"RTN","C0QQRDA",267,0)
2596L1 D WS S L=L+1 Q ; Write space and increment
2597"RTN","C0QQRDA",268,0)
2598L2 S L=L-1 D WS Q ; Decrement and Write space
2599"RTN","C0QQRDA",269,0)
2600WS X "F I=1:1:L W "" """ Q ; Write Space
2601"RTN","C0QQRDA",270,0)
2602 ; This is for rolling down the stack to the $ES level
2603"RTN","C0QQRDA",271,0)
2604ROLLDOWN S $ET="Q:$ES S $EC=""""",$EC=",U99," QUIT
2605"SEC","^DD",1130580001.101,1130580001.101,3.1,9)
2606
2607"SEC","^DIC",1130580001.101,1130580001.101,0,"AUDIT")
2608@
2609"SEC","^DIC",1130580001.101,1130580001.101,0,"DD")
2610@
2611"SEC","^DIC",1130580001.101,1130580001.101,0,"DEL")
2612@
2613"SEC","^DIC",1130580001.101,1130580001.101,0,"LAYGO")
2614@
2615"SEC","^DIC",1130580001.101,1130580001.101,0,"RD")
2616@
2617"SEC","^DIC",1130580001.101,1130580001.101,0,"WR")
2618@
2619"SEC","^DIC",1130580001.201,1130580001.201,0,"AUDIT")
2620@
2621"SEC","^DIC",1130580001.201,1130580001.201,0,"DD")
2622@
2623"SEC","^DIC",1130580001.201,1130580001.201,0,"DEL")
2624@
2625"SEC","^DIC",1130580001.201,1130580001.201,0,"LAYGO")
2626@
2627"SEC","^DIC",1130580001.201,1130580001.201,0,"RD")
2628@
2629"SEC","^DIC",1130580001.201,1130580001.201,0,"WR")
2630@
2631"VER")
26328.0^22.0
2633"^DD",1130580001.101,1130580001.101,0)
2634FIELD^^.3^18
2635"^DD",1130580001.101,1130580001.101,0,"DDA")
2636N
2637"^DD",1130580001.101,1130580001.101,0,"DT")
26383120731
2639"^DD",1130580001.101,1130580001.101,0,"ID",.7)
2640W:$D(^(5)) " ",$P(^(5),U,1)
2641"^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01)
2642
2643"^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY MEASURE")
2644
2645"^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01)
2646
2647"^DD",1130580001.101,1130580001.101,0,"VRPK")
2648C0Q
2649"^DD",1130580001.101,1130580001.101,.01,0)
2650NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
2651"^DD",1130580001.101,1130580001.101,.01,.1)
2652MEASURE NAME
2653"^DD",1130580001.101,1130580001.101,.01,1,0)
2654^.1
2655"^DD",1130580001.101,1130580001.101,.01,1,1,0)
26561130580001.101^B
2657"^DD",1130580001.101,1130580001.101,.01,1,1,1)
2658S ^C0Q(101,"B",$E(X,1,30),DA)=""
2659"^DD",1130580001.101,1130580001.101,.01,1,1,2)
2660K ^C0Q(101,"B",$E(X,1,30),DA)
2661"^DD",1130580001.101,1130580001.101,.01,3)
2662Answer must be 1-30 characters in length
2663"^DD",1130580001.101,1130580001.101,.01,"DT")
26643101012
2665"^DD",1130580001.101,1130580001.101,.3,0)
2666MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X
2667"^DD",1130580001.101,1130580001.101,.3,.1)
2668MEANINGFUL USE YEAR KEY
2669"^DD",1130580001.101,1130580001.101,.3,3)
2670Answer must be 1-30 characters in length.
2671"^DD",1130580001.101,1130580001.101,.3,"DT")
26723111201
2673"^DD",1130580001.101,1130580001.101,.5,0)
2674TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X
2675"^DD",1130580001.101,1130580001.101,.5,.1)
2676MEASURE TITLE
2677"^DD",1130580001.101,1130580001.101,.5,3)
2678Answer must be 3-240 characters in length
2679"^DD",1130580001.101,1130580001.101,.5,"DT")
26803110430
2681"^DD",1130580001.101,1130580001.101,.61,0)
2682VERY LONG DESCRIPTION^1130580001.111^^6;0
2683"^DD",1130580001.101,1130580001.101,.7,0)
2684DISPLAY NAME^F^^5;1^K:$L(X)>240!($L(X)<3) X
2685"^DD",1130580001.101,1130580001.101,.7,.1)
2686QRDA DISPLAY NAME
2687"^DD",1130580001.101,1130580001.101,.7,3)
2688Answer must be 3-240 characters in length
2689"^DD",1130580001.101,1130580001.101,.7,"DT")
26903101012
2691"^DD",1130580001.101,1130580001.101,.8,0)
2692REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X
2693"^DD",1130580001.101,1130580001.101,.8,.1)
2694REPORTING MEASURE NAME
2695"^DD",1130580001.101,1130580001.101,.8,3)
2696Answer must be 3-30 characters in length
2697"^DD",1130580001.101,1130580001.101,.8,"DT")
26983110615
2699"^DD",1130580001.101,1130580001.101,1,0)
2700NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q
2701"^DD",1130580001.101,1130580001.101,1,.1)
2702MEASURE NUMERATOR PATIENT LIST
2703"^DD",1130580001.101,1130580001.101,1,"DT")
27043101012
2705"^DD",1130580001.101,1130580001.101,1.1,0)
2706ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q
2707"^DD",1130580001.101,1130580001.101,1.1,"DT")
27083110805
2709"^DD",1130580001.101,1130580001.101,1.2,0)
2710NUMERATOR 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
2711"^DD",1130580001.101,1130580001.101,1.2,3)
2712Enter the reminder rule set to use for this measure.
2713"^DD",1130580001.101,1130580001.101,1.2,12)
2714If the type of the reminder list rule is a Rule Set.
2715"^DD",1130580001.101,1130580001.101,1.2,12.1)
2716S DIC("S")="I $P(^(0),U,3)=3"
2717"^DD",1130580001.101,1130580001.101,1.2,21,0)
2718^^5^5^3120716^
2719"^DD",1130580001.101,1130580001.101,1.2,21,1,0)
2720This is the numerator reminder rule set to use for the quality measure.
2721"^DD",1130580001.101,1130580001.101,1.2,21,2,0)
2722
2723"^DD",1130580001.101,1130580001.101,1.2,21,3,0)
2724The rule set is used to generate a patient list, which this package
2725"^DD",1130580001.101,1130580001.101,1.2,21,4,0)
2726referneces. The contents of the patient list will produce the count for
2727"^DD",1130580001.101,1130580001.101,1.2,21,5,0)
2728the measure. This count is for the numerator.
2729"^DD",1130580001.101,1130580001.101,1.2,"DT")
27303120716
2731"^DD",1130580001.101,1130580001.101,1.5,0)
2732NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q
2733"^DD",1130580001.101,1130580001.101,1.5,.1)
2734LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS
2735"^DD",1130580001.101,1130580001.101,1.5,"DT")
27363110809
2737"^DD",1130580001.101,1130580001.101,1.51,0)
2738ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q
2739"^DD",1130580001.101,1130580001.101,1.51,.1)
2740NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE
2741"^DD",1130580001.101,1130580001.101,1.51,"DT")
27423110809
2743"^DD",1130580001.101,1130580001.101,2,0)
2744DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q
2745"^DD",1130580001.101,1130580001.101,2,.1)
2746MEASURE DENOMINATOR PATIENT LIST
2747"^DD",1130580001.101,1130580001.101,2,"DT")
27483101012
2749"^DD",1130580001.101,1130580001.101,2.1,0)
2750ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q
2751"^DD",1130580001.101,1130580001.101,2.1,"DT")
27523110805
2753"^DD",1130580001.101,1130580001.101,2.2,0)
2754DENOMINATOR 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
2755"^DD",1130580001.101,1130580001.101,2.2,3)
2756Enter the reminder rule set to use for this measure.
2757"^DD",1130580001.101,1130580001.101,2.2,12)
2758If the type of the reminder list rule is a Rule Set.
2759"^DD",1130580001.101,1130580001.101,2.2,12.1)
2760S DIC("S")="I $P(^(0),U,3)=3"
2761"^DD",1130580001.101,1130580001.101,2.2,21,0)
2762^^5^5^3120716^
2763"^DD",1130580001.101,1130580001.101,2.2,21,1,0)
2764This is the denominator reminder rule set to use for the quality measure.
2765"^DD",1130580001.101,1130580001.101,2.2,21,2,0)
2766
2767"^DD",1130580001.101,1130580001.101,2.2,21,3,0)
2768The rule set is used to generate a patient list, which this package
2769"^DD",1130580001.101,1130580001.101,2.2,21,4,0)
2770referneces. The contents of the patient list will produce the count for
2771"^DD",1130580001.101,1130580001.101,2.2,21,5,0)
2772the measure. This count is for the denominator.
2773"^DD",1130580001.101,1130580001.101,2.2,"DT")
27743120716
2775"^DD",1130580001.101,1130580001.101,2.5,0)
2776EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q
2777"^DD",1130580001.101,1130580001.101,2.5,3)
2778Select a Reminder Extract Definition for this measure
2779"^DD",1130580001.101,1130580001.101,2.5,21,0)
2780^^4^4^3120726^
2781"^DD",1130580001.101,1130580001.101,2.5,21,1,0)
2782If this measure depends upon a reminder extract definition, you can add
2783"^DD",1130580001.101,1130580001.101,2.5,21,2,0)
2784this extract definition here. This will alter how the Quality Measures
2785"^DD",1130580001.101,1130580001.101,2.5,21,3,0)
2786package computes the measure to use the extract in addition and prior to
2787"^DD",1130580001.101,1130580001.101,2.5,21,4,0)
2788the rule sets.
2789"^DD",1130580001.101,1130580001.101,2.5,"DT")
27903120726
2791"^DD",1130580001.101,1130580001.101,3,0)
2792QRDA TEMPLATE ROOT^F^^0;4^K:$L(X)>120!($L(X)<3) X
2793"^DD",1130580001.101,1130580001.101,3,.1)
2794
2795"^DD",1130580001.101,1130580001.101,3,3)
2796Answer must be 3-120 characters in length
2797"^DD",1130580001.101,1130580001.101,3,21,0)
2798^^2^2^3120731^^
2799"^DD",1130580001.101,1130580001.101,3,21,1,0)
2800Measure template root for the QRDA Document. A series of . delimited
2801"^DD",1130580001.101,1130580001.101,3,21,2,0)
2802numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1
2803"^DD",1130580001.101,1130580001.101,3,"DT")
28043120731
2805"^DD",1130580001.101,1130580001.101,3.1,0)
2806QRDA MEASURE SYSTEM OID^CJ^^ ; ^S X="2.16.840.1.113883.3.249.12"
2807"^DD",1130580001.101,1130580001.101,3.1,.1)
2808QRDA SYSTEM OID (FIXED)
2809"^DD",1130580001.101,1130580001.101,3.1,9.01)
2810
2811"^DD",1130580001.101,1130580001.101,3.1,9.1)
2812S X="2.16.840.1.113883.3.249.12"
2813"^DD",1130580001.101,1130580001.101,3.1,"DT")
28143101012
2815"^DD",1130580001.101,1130580001.101,3.2,0)
2816QRDA CODE^F^^4;1^K:$L(X)>80!($L(X)<1) X
2817"^DD",1130580001.101,1130580001.101,3.2,.1)
2818QRDA MEASURE CODE
2819"^DD",1130580001.101,1130580001.101,3.2,3)
2820Answer must be 1-80 characters in length
2821"^DD",1130580001.101,1130580001.101,3.2,"DT")
28223101012
2823"^DD",1130580001.101,1130580001.111,0)
2824VERY LONG DESCRIPTION SUB-FIELD^^.01^1
2825"^DD",1130580001.101,1130580001.111,0,"DT")
28263101013
2827"^DD",1130580001.101,1130580001.111,0,"NM","VERY LONG DESCRIPTION")
2828
2829"^DD",1130580001.101,1130580001.111,0,"UP")
28301130580001.101
2831"^DD",1130580001.101,1130580001.111,.01,0)
2832VERY LONG DESCRIPTION^Wx^^0;1
2833"^DD",1130580001.101,1130580001.111,.01,.1)
2834LONGER DESCRIPTION - IF IT DOESN'T FIT IN .6
2835"^DD",1130580001.101,1130580001.111,.01,3)
2836LONGER DESCRIPTION - INSTEAD OF LONG DESCRIPTION
2837"^DD",1130580001.101,1130580001.111,.01,"DT")
28383101013
2839"^DD",1130580001.201,1130580001.201,0)
2840FIELD^^.4^9
2841"^DD",1130580001.201,1130580001.201,0,"DDA")
2842N
2843"^DD",1130580001.201,1130580001.201,0,"DT")
28443120801
2845"^DD",1130580001.201,1130580001.201,0,"IX","ADBYP",1130580001.20112,.01)
2846
2847"^DD",1130580001.201,1130580001.201,0,"IX","ANBYP",1130580001.20111,.01)
2848
2849"^DD",1130580001.201,1130580001.201,0,"IX","B",1130580001.201,.01)
2850
2851"^DD",1130580001.201,1130580001.201,0,"NM","C0Q MEASUREMENT SET")
2852
2853"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1)
2854
2855"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1.1)
2856
2857"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2)
2858
2859"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2.1)
2860
2861"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.1)
2862
2863"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.2)
2864
2865"^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.3)
2866
2867"^DD",1130580001.201,1130580001.201,.01,0)
2868NAME^RFJ30^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
2869"^DD",1130580001.201,1130580001.201,.01,.1)
2870
2871"^DD",1130580001.201,1130580001.201,.01,1,0)
2872^.1
2873"^DD",1130580001.201,1130580001.201,.01,1,1,0)
28741130580001.201^B
2875"^DD",1130580001.201,1130580001.201,.01,1,1,1)
2876S ^C0Q(201,"B",$E(X,1,30),DA)=""
2877"^DD",1130580001.201,1130580001.201,.01,1,1,2)
2878K ^C0Q(201,"B",$E(X,1,30),DA)
2879"^DD",1130580001.201,1130580001.201,.01,3)
2880Answer must be 3-30 characters in length.
2881"^DD",1130580001.201,1130580001.201,.01,21,0)
2882^^1^1^3120731^
2883"^DD",1130580001.201,1130580001.201,.01,21,1,0)
2884Measurement Set Name.
2885"^DD",1130580001.201,1130580001.201,.01,"DT")
28863120731
2887"^DD",1130580001.201,1130580001.201,.02,0)
2888BEGIN DATE^D^^4;3^S %DT="E" D ^%DT S X=Y K:X<1 X
2889"^DD",1130580001.201,1130580001.201,.02,.1)
2890MEASUREMENT BEGIN DATE
2891"^DD",1130580001.201,1130580001.201,.02,3)
2892MEASUREMENT BEGIN DATE
2893"^DD",1130580001.201,1130580001.201,.02,"DT")
28943101012
2895"^DD",1130580001.201,1130580001.201,.03,0)
2896END DATE^D^^4;4^S %DT="E" D ^%DT S X=Y K:X<1 X
2897"^DD",1130580001.201,1130580001.201,.03,.1)
2898MEASUREMENT END DATE
2899"^DD",1130580001.201,1130580001.201,.03,3)
2900MEASUREMENT END DATE
2901"^DD",1130580001.201,1130580001.201,.03,"DT")
29023101012
2903"^DD",1130580001.201,1130580001.201,.04,0)
2904DATE LAST CALCULATED^D^^6;1^S %DT="E" D ^%DT S X=Y K:X<1 X
2905"^DD",1130580001.201,1130580001.201,.04,.1)
2906DATE LAST PROCESSED
2907"^DD",1130580001.201,1130580001.201,.04,3)
2908DATE LAST PROCESSED
2909"^DD",1130580001.201,1130580001.201,.04,"DT")
29103101012
2911"^DD",1130580001.201,1130580001.201,.05,0)
2912LOCKED^S^Y:YES;N:NO;^6;2^Q
2913"^DD",1130580001.201,1130580001.201,.05,.1)
2914Y/N IS THIS RECORD SET LOCKED
2915"^DD",1130580001.201,1130580001.201,.05,3)
2916Y/N IS THIS RECORD SET LOCKED
2917"^DD",1130580001.201,1130580001.201,.05,"DT")
29183101012
2919"^DD",1130580001.201,1130580001.201,.2,0)
2920USE ALL MEASURES^S^Y:YES;N:NO;^6;3^Q
2921"^DD",1130580001.201,1130580001.201,.2,.1)
2922INCLUDE ALL MEASURES IN THIS SET?
2923"^DD",1130580001.201,1130580001.201,.2,3)
2924INCLUDE ALL MEASURES IN THIS SET?
2925"^DD",1130580001.201,1130580001.201,.2,"DT")
29263101012
2927"^DD",1130580001.201,1130580001.201,.3,0)
2928MU YEAR KEY^F^^7;1^K:$L(X)>240!($L(X)<1) X
2929"^DD",1130580001.201,1130580001.201,.3,.1)
2930MEANINGFUL USE YEAR KEY
2931"^DD",1130580001.201,1130580001.201,.3,3)
2932Answer must be 1-240 characters in length.
2933"^DD",1130580001.201,1130580001.201,.3,"DT")
29343111129
2935"^DD",1130580001.201,1130580001.201,.4,0)
2936QRDA TEMPLATE ROOT^FJ120^^0;2^K:$L(X)>120!($L(X)<3) X
2937"^DD",1130580001.201,1130580001.201,.4,3)
2938Answer must be 3-120 characters in length.
2939"^DD",1130580001.201,1130580001.201,.4,21,0)
2940^^6^6^3120731^
2941"^DD",1130580001.201,1130580001.201,.4,21,1,0)
2942Measure template root for the Measurement Set. A series of . delimited
2943"^DD",1130580001.201,1130580001.201,.4,21,2,0)
2944numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1
2945"^DD",1130580001.201,1130580001.201,.4,21,3,0)
2946
2947"^DD",1130580001.201,1130580001.201,.4,21,4,0)
2948Most measurement sets don't have that. Only measurement sets reporable as
2949"^DD",1130580001.201,1130580001.201,.4,21,5,0)
2950a group (e.g. Inpatient ED, VTE, Stroke measures) will have this filled
2951"^DD",1130580001.201,1130580001.201,.4,21,6,0)
2952out as it is reported in the QRDA document.
2953"^DD",1130580001.201,1130580001.201,.4,"DT")
29543120731
2955"^DD",1130580001.201,1130580001.201,1,0)
2956MEASURE^1130580001.2011P^^5;0
2957"^DD",1130580001.201,1130580001.2011,0)
2958MEASURE SUB-FIELD^^2.2^8
2959"^DD",1130580001.201,1130580001.2011,0,"DT")
29603120801
2961"^DD",1130580001.201,1130580001.2011,0,"IX","B",1130580001.2011,.01)
2962
2963"^DD",1130580001.201,1130580001.2011,0,"NM","MEASURE")
2964
2965"^DD",1130580001.201,1130580001.2011,0,"UP")
29661130580001.201
2967"^DD",1130580001.201,1130580001.2011,.01,0)
2968MEASURE^MP1130580001.101'^C0Q(101,^0;1^Q
2969"^DD",1130580001.201,1130580001.2011,.01,.1)
2970
2971"^DD",1130580001.201,1130580001.2011,.01,1,0)
2972^.1
2973"^DD",1130580001.201,1130580001.2011,.01,1,1,0)
29741130580001.2011^B
2975"^DD",1130580001.201,1130580001.2011,.01,1,1,1)
2976S ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)=""
2977"^DD",1130580001.201,1130580001.2011,.01,1,1,2)
2978K ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)
2979"^DD",1130580001.201,1130580001.2011,.01,3)
2980Included Quality Measures
2981"^DD",1130580001.201,1130580001.2011,.01,"DT")
29823120801
2983"^DD",1130580001.201,1130580001.2011,1,0)
2984NUMERATOR^1130580001.20111P^^1;0
2985"^DD",1130580001.201,1130580001.2011,1.1,0)
2986NUMERATOR COUNT^NJ10,0^^2;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1.N) X
2987"^DD",1130580001.201,1130580001.2011,1.1,.1)
2988NUMBER OF PATIENTS IN NUMERATOR
2989"^DD",1130580001.201,1130580001.2011,1.1,3)
2990NUMBER OF PATIENTS IN NUMERATOR
2991"^DD",1130580001.201,1130580001.2011,1.1,"DT")
29923101012
2993"^DD",1130580001.201,1130580001.2011,1.2,0)
2994NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q
2995"^DD",1130580001.201,1130580001.2011,1.2,.1)
2996FILTER LIST FOR NUMERATOR
2997"^DD",1130580001.201,1130580001.2011,1.2,"DT")
29983111129
2999"^DD",1130580001.201,1130580001.2011,2,0)
3000DENOMINATOR^1130580001.20112P^^3;0
3001"^DD",1130580001.201,1130580001.2011,2.1,0)
3002DENOMINATOR COUNT^NJ9,0^^4;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1.N) X
3003"^DD",1130580001.201,1130580001.2011,2.1,.1)
3004NUMBER OF PATIENTS IN DENOMINATOR
3005"^DD",1130580001.201,1130580001.2011,2.1,3)
3006NUMBER OF PATIENTS IN DENOMINATOR
3007"^DD",1130580001.201,1130580001.2011,2.1,"DT")
30083101012
3009"^DD",1130580001.201,1130580001.2011,2.2,0)
3010DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q
3011"^DD",1130580001.201,1130580001.2011,2.2,.1)
3012FILTER LIST FOR DENOMINATOR
3013"^DD",1130580001.201,1130580001.2011,2.2,"DT")
30143111129
3015"^DD",1130580001.201,1130580001.2011,3,0)
3016PERCENTAGE^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X
3017"^DD",1130580001.201,1130580001.2011,3,.1)
3018MEASURE PERCENTAGE
3019"^DD",1130580001.201,1130580001.2011,3,3)
3020Type a number between 0 and 100, 2 Decimal Digits
3021"^DD",1130580001.201,1130580001.2011,3,"DT")
30223110621
3023"^DD",1130580001.201,1130580001.20111,0)
3024NUMERATOR SUB-FIELD^^.01^1
3025"^DD",1130580001.201,1130580001.20111,0,"DT")
30263101012
3027"^DD",1130580001.201,1130580001.20111,0,"IX","B",1130580001.20111,.01)
3028
3029"^DD",1130580001.201,1130580001.20111,0,"NM","NUMERATOR")
3030
3031"^DD",1130580001.201,1130580001.20111,0,"UP")
30321130580001.2011
3033"^DD",1130580001.201,1130580001.20111,.01,0)
3034NUMERATOR^MP2'^DPT(^0;1^Q
3035"^DD",1130580001.201,1130580001.20111,.01,.1)
3036NUMERATOR PATIENTS
3037"^DD",1130580001.201,1130580001.20111,.01,1,0)
3038^.1
3039"^DD",1130580001.201,1130580001.20111,.01,1,1,0)
30401130580001.20111^B
3041"^DD",1130580001.201,1130580001.20111,.01,1,1,1)
3042S ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)=""
3043"^DD",1130580001.201,1130580001.20111,.01,1,1,2)
3044K ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)
3045"^DD",1130580001.201,1130580001.20111,.01,1,2,0)
30461130580001.201^ANBYP
3047"^DD",1130580001.201,1130580001.20111,.01,1,2,1)
3048S ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)=""
3049"^DD",1130580001.201,1130580001.20111,.01,1,2,2)
3050K ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)
3051"^DD",1130580001.201,1130580001.20111,.01,1,2,"DT")
30523101014
3053"^DD",1130580001.201,1130580001.20111,.01,3)
3054NUMERATOR PATIENTS
3055"^DD",1130580001.201,1130580001.20111,.01,"DT")
30563101014
3057"^DD",1130580001.201,1130580001.20112,0)
3058DENOMINATOR SUB-FIELD^^.01^1
3059"^DD",1130580001.201,1130580001.20112,0,"DT")
30603101012
3061"^DD",1130580001.201,1130580001.20112,0,"IX","B",1130580001.20112,.01)
3062
3063"^DD",1130580001.201,1130580001.20112,0,"NM","DENOMINATOR")
3064
3065"^DD",1130580001.201,1130580001.20112,0,"UP")
30661130580001.2011
3067"^DD",1130580001.201,1130580001.20112,.01,0)
3068DENOMINATOR^MP2'^DPT(^0;1^Q
3069"^DD",1130580001.201,1130580001.20112,.01,.1)
3070DENOMINATOR PATIENTS
3071"^DD",1130580001.201,1130580001.20112,.01,1,0)
3072^.1
3073"^DD",1130580001.201,1130580001.20112,.01,1,1,0)
30741130580001.20112^B
3075"^DD",1130580001.201,1130580001.20112,.01,1,1,1)
3076S ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)=""
3077"^DD",1130580001.201,1130580001.20112,.01,1,1,2)
3078K ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)
3079"^DD",1130580001.201,1130580001.20112,.01,1,2,0)
30801130580001.201^ADBYP
3081"^DD",1130580001.201,1130580001.20112,.01,1,2,1)
3082S ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)=""
3083"^DD",1130580001.201,1130580001.20112,.01,1,2,2)
3084K ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)
3085"^DD",1130580001.201,1130580001.20112,.01,1,2,"DT")
30863101014
3087"^DD",1130580001.201,1130580001.20112,.01,3)
3088DENOMINATOR PATIENTS
3089"^DD",1130580001.201,1130580001.20112,.01,"DT")
30903101014
3091"^DD",1130580001.401,1130580001.401,5.1,0)
3092VTE CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;1^Q
3093"^DD",1130580001.401,1130580001.401,5.1,3)
3094Enter VTE Measure Set to use for Inpatient CMS QRDA Reporting
3095"^DD",1130580001.401,1130580001.401,5.1,21,0)
3096^^3^3^3120801^^^
3097"^DD",1130580001.401,1130580001.401,5.1,21,1,0)
3098This field holds the VTE measure set for reporting information to the
3099"^DD",1130580001.401,1130580001.401,5.1,21,2,0)
3100Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR)
3101"^DD",1130580001.401,1130580001.401,5.1,21,3,0)
31022012 EHR incentive pilot.
3103"^DD",1130580001.401,1130580001.401,5.1,23,0)
3104^^3^3^3120801^
3105"^DD",1130580001.401,1130580001.401,5.1,23,1,0)
3106See
3107"^DD",1130580001.401,1130580001.401,5.1,23,2,0)
3108http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%
3109"^DD",1130580001.401,1130580001.401,5.1,23,3,0)
31102FQnetTier3&cid=1228772217179
3111"^DD",1130580001.401,1130580001.401,5.1,"DT")
31123120801
3113"^DD",1130580001.401,1130580001.401,5.2,0)
3114STK CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;2^Q
3115"^DD",1130580001.401,1130580001.401,5.2,3)
3116Enter STK Measure Set to use for Inpatient CMS QRDA Reporting
3117"^DD",1130580001.401,1130580001.401,5.2,21,0)
3118^^3^3^3120801^
3119"^DD",1130580001.401,1130580001.401,5.2,21,1,0)
3120This field holds the STK measure set for reporting information to the
3121"^DD",1130580001.401,1130580001.401,5.2,21,2,0)
3122Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR)
3123"^DD",1130580001.401,1130580001.401,5.2,21,3,0)
31242012 EHR incentive pilot.
3125"^DD",1130580001.401,1130580001.401,5.2,23,0)
3126^^3^3^3120801^
3127"^DD",1130580001.401,1130580001.401,5.2,23,1,0)
3128See
3129"^DD",1130580001.401,1130580001.401,5.2,23,2,0)
3130http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%
3131"^DD",1130580001.401,1130580001.401,5.2,23,3,0)
31322FQnetTier3&cid=1228772217179
3133"^DD",1130580001.401,1130580001.401,5.2,"DT")
31343120801
3135"^DD",1130580001.401,1130580001.401,5.3,0)
3136ED CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;3^Q
3137"^DD",1130580001.401,1130580001.401,5.3,3)
3138Enter ED Measure Set to use for Inpatient CMS QRDA Reporting
3139"^DD",1130580001.401,1130580001.401,5.3,21,0)
3140^^3^3^3120801^
3141"^DD",1130580001.401,1130580001.401,5.3,21,1,0)
3142This field holds the ED measure set for reporting information to the
3143"^DD",1130580001.401,1130580001.401,5.3,21,2,0)
3144Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR)
3145"^DD",1130580001.401,1130580001.401,5.3,21,3,0)
31462012 EHR incentive pilot.
3147"^DD",1130580001.401,1130580001.401,5.3,23,0)
3148^^3^3^3120801^
3149"^DD",1130580001.401,1130580001.401,5.3,23,1,0)
3150See
3151"^DD",1130580001.401,1130580001.401,5.3,23,2,0)
3152http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%
3153"^DD",1130580001.401,1130580001.401,5.3,23,3,0)
31542FQnetTier3&cid=1228772217179
3155"^DD",1130580001.401,1130580001.401,5.3,"DT")
31563120801
3157"^DIC",1130580001.101,1130580001.101,0)
3158C0Q QUALITY MEASURE^1130580001.101
3159"^DIC",1130580001.101,1130580001.101,0,"GL")
3160^C0Q(101,
3161"^DIC",1130580001.101,"B","C0Q QUALITY MEASURE",1130580001.101)
3162
3163"^DIC",1130580001.201,1130580001.201,0)
3164C0Q MEASUREMENT SET^1130580001.201
3165"^DIC",1130580001.201,1130580001.201,0,"GL")
3166^C0Q(201,
3167"^DIC",1130580001.201,1130580001.201,"%",0)
3168^1.005^^
3169"^DIC",1130580001.201,1130580001.201,"%D",0)
3170^^3^3^3120731^
3171"^DIC",1130580001.201,1130580001.201,"%D",1,0)
3172This file contains the groupings of Measurements found in the Quality
3173"^DIC",1130580001.201,1130580001.201,"%D",2,0)
3174Measures file. It is tied to the parameters file as the set of
3175"^DIC",1130580001.201,1130580001.201,"%D",3,0)
3176measurements to report for a site.
3177"^DIC",1130580001.201,"B","C0Q MEASUREMENT SET",1130580001.201)
3178
3179**END**
3180**END**
Note: See TracBrowser for help on using the repository browser.