KIDS Distribution saved on Aug 24, 2012@13:01:24 INPATIENT CMS QRDA GENERATION SUPPORT **KIDS**:C0Q*1.0*4^ **INSTALL NAME** C0Q*1.0*4 "BLD",7936,0) C0Q*1.0*4^QUALITY MEASURES^0^3120824^y "BLD",7936,1,0) ^^250^250^3120824^ "BLD",7936,1,1,0) Source, Copyright, & Licensing: "BLD",7936,1,2,0) =============================== "BLD",7936,1,3,0) This patch to WorldVistA 2.0 was produced in Dew Drop "BLD",7936,1,4,0) by George Lily on 24 August 2012 and released through VISTA Forum. "BLD",7936,1,5,0) "BLD",7936,1,6,0) (C) 2012 George Lilly "BLD",7936,1,7,0) Licensed under GPL 2. "BLD",7936,1,8,0) "BLD",7936,1,9,0) Functionality: "BLD",7936,1,10,0) ============== "BLD",7936,1,11,0) This patch adds the ability to generate modified CCRs "BLD",7936,1,12,0) containing a QUALITY measure section that looks like "BLD",7936,1,13,0) this: "BLD",7936,1,14,0) "BLD",7936,1,15,0) "BLD",7936,1,16,0) 1.3.6.1.4.1.33895.1.1.31.1.2.1 "BLD",7936,1,17,0) "BLD",7936,1,18,0) 1.3.6.1.4.1.33895.1.2.16001.1.2.2 "BLD",7936,1,19,0) 1.3.6.1.4.1.33895.1.2.16002.1.2.2 "BLD",7936,1,20,0) 1.3.6.1.4.1.33895.1.2.16004.1.2.2 "BLD",7936,1,21,0) 1.3.6.1.4.1.33895.1.2.16008.1.2.2 "BLD",7936,1,22,0) "BLD",7936,1,23,0) "BLD",7936,1,24,0) "BLD",7936,1,25,0) "BLD",7936,1,26,0) This enables you to create a QRDA document in the C32 format to submit to CMS "BLD",7936,1,27,0) containing these measures. The C32 document will be generated by an XSLT "BLD",7936,1,28,0) transform from the CCR document. "BLD",7936,1,29,0) "BLD",7936,1,30,0) The driving force behind the creation of this patch, as well as the "BLD",7936,1,31,0) documentation of the actual QRDA documents to send to CMS can be found here: "BLD",7936,1,32,0) http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier3&cid=1228772217179 "BLD",7936,1,33,0) "BLD",7936,1,34,0) Specifically, this sentence: "BLD",7936,1,35,0) "One part of meeting the requirements for Stage I Meaningful Use may include "BLD",7936,1,36,0) submitting Clinical Quality Measures (CQMs) electronically using the QRDA "BLD",7936,1,37,0) Category I file format." "BLD",7936,1,38,0) "BLD",7936,1,39,0) Package Elements: "BLD",7936,1,40,0) ================= "BLD",7936,1,41,0) PACKAGE: C0Q*1.0*4 Aug 24, 2012 12:02 pm PAGE 1 "BLD",7936,1,42,0) ------------------------------------------------------------------------------- "BLD",7936,1,43,0) TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES "BLD",7936,1,44,0) NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO "BLD",7936,1,45,0) "BLD",7936,1,46,0) DESCRIPTION: "BLD",7936,1,47,0) QRDA Support. "BLD",7936,1,48,0) "BLD",7936,1,49,0) ENVIRONMENT CHECK: DELETE ENV ROUTINE: "BLD",7936,1,50,0) PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: "BLD",7936,1,51,0) POST-INIT ROUTINE: DELETE POST-INIT ROUTINE: "BLD",7936,1,52,0) PRE-TRANSPORT RTN: TRAN^C0Q1P4 "BLD",7936,1,53,0) "BLD",7936,1,54,0) UP SEND DATA USER "BLD",7936,1,55,0) DATE SEC. COMES SITE RSLV OVER "BLD",7936,1,56,0) FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE "BLD",7936,1,57,0) ------------------------------------------------------------------------------- "BLD",7936,1,58,0) "BLD",7936,1,59,0) 1130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO "BLD",7936,1,60,0) "BLD",7936,1,61,0) 1130580001.201C0Q MEASUREMENT SET YES YES YES OVER YES NO "BLD",7936,1,62,0) "BLD",7936,1,63,0) 1130580001.401C0Q PARAMETER YES YES NO NO "BLD",7936,1,64,0) Partial DD: subDD: 1130580001.401fld: 5.1 "BLD",7936,1,65,0) fld: 5.2 "BLD",7936,1,66,0) fld: 5.3 "BLD",7936,1,67,0) "BLD",7936,1,68,0) INPUT TEMPLATE: ACTION: "BLD",7936,1,69,0) C0Q EDIT INPATIENT PARMS FILE #1130580001.401SEND TO SITE "BLD",7936,1,70,0) C0Q EDIT MEASURE SET FILE #1130580001.201 SEND TO SITE "BLD",7936,1,71,0) "BLD",7936,1,72,0) ROUTINE: ACTION: "BLD",7936,1,73,0) C0QQRDA SEND TO SITE "BLD",7936,1,74,0) "BLD",7936,1,75,0) OPTION: ACTION: "BLD",7936,1,76,0) C0Q EXPORT INPATIENT QRDA CCRS SEND TO SITE "BLD",7936,1,77,0) C0Q QRDA MENU SEND TO SITE "BLD",7936,1,78,0) C0Q QUALITY MEASUREMENT MENU USE AS LINK FOR MENU ITEMS "BLD",7936,1,79,0) "BLD",7936,1,80,0) INSTALL QUESTIONS: "BLD",7936,1,81,0) "BLD",7936,1,82,0) Default Rebuild Menu Trees Upon Completion of Install: YES "BLD",7936,1,83,0) Default INHIBIT LOGONs during the install: NO "BLD",7936,1,84,0) Default DISABLE Scheduled Options, Menu Options, and Protocols: NO "BLD",7936,1,85,0) "BLD",7936,1,86,0) REQUIRED BUILDS: ACTION: "BLD",7936,1,87,0) CCD/CCR GENERATION UTILITIES 1.2 Don't install, leave global "BLD",7936,1,88,0) QUALITY MEASURES 1.0 Don't install, leave global "BLD",7936,1,89,0) "BLD",7936,1,90,0) Summary of Changes to package: "BLD",7936,1,91,0) - Population of QRDA TEMPLATE ROOT field in all of the C0Q QUALITY MEASUREs "BLD",7936,1,92,0) for Inpatients, as follows: "BLD",7936,1,93,0) "BLD",7936,1,94,0) NAME QRDA TEMPLATE ROOT NUMERATOR RULE SET "BLD",7936,1,95,0) ---------------------------------------------------------------------------------- "BLD",7936,1,96,0) "BLD",7936,1,97,0) MU HOS NQF 0495 2.16.840.1.113883.3.249.11.14.2.1.2.2 MU ED-1 NUMER RS "BLD",7936,1,98,0) MU HOS NQF 0497 2.16.840.1.113883.3.249.11.14.3.1.2.2 MU ED-2 NUMER RS "BLD",7936,1,99,0) "BLD",7936,1,100,0) MU HOS NQF 0435 1.3.6.1.4.1.33895.1.2.16001.1.2.2 MU STK-2 NUMER RS "BLD",7936,1,101,0) MU HOS NQF 0436 1.3.6.1.4.1.33895.1.2.16002.1.2.2 MU STK-3 NUMER RS "BLD",7936,1,102,0) MU HOS NQF 0437 1.3.6.1.4.1.33895.1.2.16003.1.2.2 MU STK-4 NUMER RS "BLD",7936,1,103,0) MU HOS NQF 0438 1.3.6.1.4.1.33895.1.2.16004.1.2.2 MU STK-5 NUMER RS "BLD",7936,1,104,0) MU HOS NQF 0439 1.3.6.1.4.1.33895.1.2.16005.1.2.2 MU STK-6 NUMER RS "BLD",7936,1,105,0) MU HOS NQF 0440 1.3.6.1.4.1.33895.1.2.16007.1.2.2 MU STK-8 NUMER RS "BLD",7936,1,106,0) MU HOS NQF 0441 1.3.6.1.4.1.33895.1.2.16008.1.2.2 MU STK-10 NUMER RS "BLD",7936,1,107,0) "BLD",7936,1,108,0) MU HOS NQF 0371 1.3.6.1.4.1.33895.1.2.15971.1.2.2 MU VTE-1 NUMER RS "BLD",7936,1,109,0) MU HOS NQF 0372 1.3.6.1.4.1.33895.1.2.15972.1.2.2 MU VTE-2 NUMER RS "BLD",7936,1,110,0) MU HOS NQF 0373 1.3.6.1.4.1.33895.1.2.15973.1.2.2 MU VTE-3 NUMER RS "BLD",7936,1,111,0) MU HOS NQF 0374 1.3.6.1.4.1.33895.1.2.15974.1.2.2 MU VTE-4 NUMER RS "BLD",7936,1,112,0) MU HOS NQF 0375 1.3.6.1.4.1.33895.1.2.15975.1.2.2 MU VTE-5 NUMER RS "BLD",7936,1,113,0) MU HOS NQF 0376 1.3.6.1.4.1.33895.1.2.15976.1.2.2 MU VTE-6 NUMER RS "BLD",7936,1,114,0) "BLD",7936,1,115,0) - Change of C0Q MEASUREMENT file name to C0Q MEASUREMENT SET "BLD",7936,1,116,0) - Addition of QRDA TEMPLATE ROOT field to C0Q MEASUREMENT SET "BLD",7936,1,117,0) - Creation of three Measurement Sets in the C0Q MEASUREMENT SET as follows: "BLD",7936,1,118,0) NAME: ED CMS REPORTING MEASURES "BLD",7936,1,119,0) QRDA TEMPLATE ROOT: 2.16.840.1.113883.3.249.11.14.1.1.1 "BLD",7936,1,120,0) BEGIN DATE: JAN 1,2012 END DATE: DEC 13,2012 "BLD",7936,1,121,0) MEASURE: MU HOS NQF 0495 "BLD",7936,1,122,0) MEASURE: MU HOS NQF 0497 "BLD",7936,1,123,0) MU YEAR KEY: MU12 "BLD",7936,1,124,0) "BLD",7936,1,125,0) NAME: STK CMS REPORTING MEASURES "BLD",7936,1,126,0) QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.31.1.2.1 "BLD",7936,1,127,0) BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 "BLD",7936,1,128,0) MEASURE: MU HOS NQF 0435 "BLD",7936,1,129,0) MEASURE: MU HOS NQF 0436 "BLD",7936,1,130,0) MEASURE: MU HOS NQF 0437 "BLD",7936,1,131,0) MEASURE: MU HOS NQF 0438 "BLD",7936,1,132,0) MEASURE: MU HOS NQF 0439 "BLD",7936,1,133,0) MEASURE: MU HOS NQF 0440 "BLD",7936,1,134,0) MEASURE: MU HOS NQF 0441 "BLD",7936,1,135,0) MU YEAR KEY: MU12 "BLD",7936,1,136,0) "BLD",7936,1,137,0) NAME: VTE CMS REPORTING MEASURES "BLD",7936,1,138,0) QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.32.1.2.1 "BLD",7936,1,139,0) BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 "BLD",7936,1,140,0) MEASURE: MU HOS NQF 0371 "BLD",7936,1,141,0) MEASURE: MU HOS NQF 0372 "BLD",7936,1,142,0) MEASURE: MU HOS NQF 0373 "BLD",7936,1,143,0) MEASURE: MU HOS NQF 0374 "BLD",7936,1,144,0) MEASURE: MU HOS NQF 0375 "BLD",7936,1,145,0) MEASURE: MU HOS NQF 0376 "BLD",7936,1,146,0) MU YEAR KEY: MU12 "BLD",7936,1,147,0) "BLD",7936,1,148,0) - Creation of supporting fields in the C0Q PARAMETER file to drive generation "BLD",7936,1,149,0) of the QRDA documents. "BLD",7936,1,150,0) - VTE CMS MEASUREMENT SET "BLD",7936,1,151,0) - STK CMS MEASUREMENT SET "BLD",7936,1,152,0) - ED CMS MEASUREMENT SET "BLD",7936,1,153,0) "BLD",7936,1,154,0) - Modification of existing input templates to support the new fields created. "BLD",7936,1,155,0) C0Q EDIT INPATIENT PARMS FILE #1130580001.401 "BLD",7936,1,156,0) C0Q EDIT MEASURE SET FILE #1130580001.201 "BLD",7936,1,157,0) "BLD",7936,1,158,0) - Routine C0QQRDA to drive the generation of the QRDA documents. "BLD",7936,1,159,0) "BLD",7936,1,160,0) - Menu option to call EN^C0QQRDA: "BLD",7936,1,161,0) -> C0Q QUALITY MEASUREMENT MENU "BLD",7936,1,162,0) Parent: C0Q QRDA MENU "BLD",7936,1,163,0) "BLD",7936,1,164,0) Routine Versioning: "BLD",7936,1,165,0) "BLD",7936,1,166,0) The second line of each of these routines now looks like: "BLD",7936,1,167,0) ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28 "BLD",7936,1,168,0) "BLD",7936,1,169,0) "BLD",7936,1,170,0) The following checksums can be checked with CHECK1^XTSUMBLD: "BLD",7936,1,171,0) "BLD",7936,1,172,0) Routine Before After Patch List "BLD",7936,1,173,0) ------- ----------- ------------ --------------------------------- "BLD",7936,1,174,0) C0QQRDA 89943644 **4** "BLD",7936,1,175,0) "BLD",7936,1,176,0) Documentation: "BLD",7936,1,177,0) ============== "BLD",7936,1,178,0) None at this moment. "BLD",7936,1,179,0) "BLD",7936,1,180,0) Test Sites: "BLD",7936,1,181,0) =========== "BLD",7936,1,182,0) None at this moment. "BLD",7936,1,183,0) "BLD",7936,1,184,0) Compliance: "BLD",7936,1,185,0) =========== "BLD",7936,1,186,0) This software complies with the VA MUMPS Programming Standards and "BLD",7936,1,187,0) Conventions (version 3 April 2007). "BLD",7936,1,188,0) "BLD",7936,1,189,0) Installation Instructions: "BLD",7936,1,190,0) ========================== "BLD",7936,1,191,0) Install Time - less than 1 minute "BLD",7936,1,192,0) "BLD",7936,1,193,0) 1. LOAD TRANSPORT GLOBAL "BLD",7936,1,194,0) "BLD",7936,1,195,0) Choose the PackMan message containing this patch and invoke the "BLD",7936,1,196,0) INSTALL/CHECK MESSAGE PackMan option to unload the build. "BLD",7936,1,197,0) "BLD",7936,1,198,0) 2. START UP KIDS "BLD",7936,1,199,0) "BLD",7936,1,200,0) Start up the Kernel Installation and Distribution System Menu "BLD",7936,1,201,0) [XPD MAIN]: "BLD",7936,1,202,0) "BLD",7936,1,203,0) Edits and Distribution ... "BLD",7936,1,204,0) Utilities ... "BLD",7936,1,205,0) Installation ... "BLD",7936,1,206,0) "BLD",7936,1,207,0) Select Kernel Installation & Distribution System Option: INStallation "BLD",7936,1,208,0) --- "BLD",7936,1,209,0) Load a Distribution "BLD",7936,1,210,0) Print Transport Global "BLD",7936,1,211,0) Compare Transport Global to Current System "BLD",7936,1,212,0) Verify Checksums in Transport Global "BLD",7936,1,213,0) Install Package(s) "BLD",7936,1,214,0) Restart Install of Package(s) "BLD",7936,1,215,0) Unload a Distribution "BLD",7936,1,216,0) Backup a Transport Global "BLD",7936,1,217,0) "BLD",7936,1,218,0) Select Installation Option: "BLD",7936,1,219,0) "BLD",7936,1,220,0) 3. Select Installation Option: "BLD",7936,1,221,0) "BLD",7936,1,222,0) NOTE: The following are OPTIONAL - (When prompted for the INSTALL "BLD",7936,1,223,0) NAME, enter C0Q*1.0*4): "BLD",7936,1,224,0) "BLD",7936,1,225,0) a. Backup a Transport Global - This option will create a backup "BLD",7936,1,226,0) message of any routines exported with this patch. It will not "BLD",7936,1,227,0) backup any other changes such as DD's or templates. "BLD",7936,1,228,0) b. Compare Transport Global to Current System - This option will "BLD",7936,1,229,0) allow you to view all changes that will be made when this patch "BLD",7936,1,230,0) is installed. It compares all components of this patch "BLD",7936,1,231,0) (routines, DD's, templates, etc.). "BLD",7936,1,232,0) c. Verify Checksums in Transport Global - This option will allow "BLD",7936,1,233,0) you to ensure the integrity of the routines that are in the "BLD",7936,1,234,0) transport global. "BLD",7936,1,235,0) "BLD",7936,1,236,0) 4. Select Installation Option: Install Package(s) "BLD",7936,1,237,0) "BLD",7936,1,238,0) **This is the step to start the installation of this KIDS patch: "BLD",7936,1,239,0) "BLD",7936,1,240,0) a. Choose the Install Package(s) option to start the patch install "BLD",7936,1,241,0) and enter "C0Q*1.0*4" at the INSTALL NAME prompt. "BLD",7936,1,242,0) b. When asked, 'Shall I write over your C0Q MEASUREMENTS File? YES//' "BLD",7936,1,243,0) Answer YES. The file is just renamed, that's why KIDS asks you to "BLD",7936,1,244,0) overwrite it. "BLD",7936,1,245,0) c. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of "BLD",7936,1,246,0) Install? YES//' answer YES "BLD",7936,1,247,0) d. When prompted 'Want KIDS to INHIBIT LOGONs during the install? "BLD",7936,1,248,0) NO//' answer NO "BLD",7936,1,249,0) e. When prompted 'Want to DISABLE Scheduled Options, Menu Options, "BLD",7936,1,250,0) and Protocols? NO//' answer NO "BLD",7936,4,0) ^9.64PA^1130580001.401^3 "BLD",7936,4,1130580001.101,0) 1130580001.101 "BLD",7936,4,1130580001.101,222) y^y^f^^y^C0Q 1P0*4 QM TRANSPORT LIST^y^o^n "BLD",7936,4,1130580001.101,224) "BLD",7936,4,1130580001.201,0) 1130580001.201 "BLD",7936,4,1130580001.201,222) y^y^f^^y^C0Q 1P0*4 MS^y^o^n "BLD",7936,4,1130580001.401,0) 1130580001.401 "BLD",7936,4,1130580001.401,2,0) ^9.641^1130580001.401^1 "BLD",7936,4,1130580001.401,2,1130580001.401,0) C0Q PARAMETER (File-top level) "BLD",7936,4,1130580001.401,2,1130580001.401,1,0) ^9.6411^5.3^3 "BLD",7936,4,1130580001.401,2,1130580001.401,1,5.1,0) VTE CMS MEASUREMENT SET "BLD",7936,4,1130580001.401,2,1130580001.401,1,5.2,0) STK CMS MEASUREMENT SET "BLD",7936,4,1130580001.401,2,1130580001.401,1,5.3,0) ED CMS MEASUREMENT SET "BLD",7936,4,1130580001.401,222) y^y^p^^^^n^^n "BLD",7936,4,1130580001.401,224) "BLD",7936,4,"APDD",1130580001.401,1130580001.401) "BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.1) "BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.2) "BLD",7936,4,"APDD",1130580001.401,1130580001.401,5.3) "BLD",7936,4,"B",1130580001.101,1130580001.101) "BLD",7936,4,"B",1130580001.201,1130580001.201) "BLD",7936,4,"B",1130580001.401,1130580001.401) "BLD",7936,6.3) 28 "BLD",7936,"KRN",0) ^9.67PA^779.2^20 "BLD",7936,"KRN",.4,0) .4 "BLD",7936,"KRN",.401,0) .401 "BLD",7936,"KRN",.402,0) .402 "BLD",7936,"KRN",.402,"NM",0) ^9.68A^2^2 "BLD",7936,"KRN",.402,"NM",1,0) C0Q EDIT INPATIENT PARMS FILE #1130580001.401^1130580001.401^0 "BLD",7936,"KRN",.402,"NM",2,0) C0Q EDIT MEASURE SET FILE #1130580001.201^1130580001.201^0 "BLD",7936,"KRN",.402,"NM","B","C0Q EDIT INPATIENT PARMS FILE #1130580001.401",1) "BLD",7936,"KRN",.402,"NM","B","C0Q EDIT MEASURE SET FILE #1130580001.201",2) "BLD",7936,"KRN",.403,0) .403 "BLD",7936,"KRN",.5,0) .5 "BLD",7936,"KRN",.84,0) .84 "BLD",7936,"KRN",3.6,0) 3.6 "BLD",7936,"KRN",3.8,0) 3.8 "BLD",7936,"KRN",9.2,0) 9.2 "BLD",7936,"KRN",9.8,0) 9.8 "BLD",7936,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",7936,"KRN",9.8,"NM",1,0) C0QQRDA^^0^B89943644 "BLD",7936,"KRN",9.8,"NM","B","C0QQRDA",1) "BLD",7936,"KRN",19,0) 19 "BLD",7936,"KRN",19,"NM",0) ^9.68A^3^3 "BLD",7936,"KRN",19,"NM",1,0) C0Q QRDA MENU^^0 "BLD",7936,"KRN",19,"NM",2,0) C0Q EXPORT INPATIENT QRDA CCRS^^0 "BLD",7936,"KRN",19,"NM",3,0) C0Q QUALITY MEASUREMENT MENU^^2 "BLD",7936,"KRN",19,"NM","B","C0Q EXPORT INPATIENT QRDA CCRS",2) "BLD",7936,"KRN",19,"NM","B","C0Q QRDA MENU",1) "BLD",7936,"KRN",19,"NM","B","C0Q QUALITY MEASUREMENT MENU",3) "BLD",7936,"KRN",19.1,0) 19.1 "BLD",7936,"KRN",101,0) 101 "BLD",7936,"KRN",409.61,0) 409.61 "BLD",7936,"KRN",771,0) 771 "BLD",7936,"KRN",779.2,0) 779.2 "BLD",7936,"KRN",870,0) 870 "BLD",7936,"KRN",8989.51,0) 8989.51 "BLD",7936,"KRN",8989.52,0) 8989.52 "BLD",7936,"KRN",8994,0) 8994 "BLD",7936,"KRN","B",.4,.4) "BLD",7936,"KRN","B",.401,.401) "BLD",7936,"KRN","B",.402,.402) "BLD",7936,"KRN","B",.403,.403) "BLD",7936,"KRN","B",.5,.5) "BLD",7936,"KRN","B",.84,.84) "BLD",7936,"KRN","B",3.6,3.6) "BLD",7936,"KRN","B",3.8,3.8) "BLD",7936,"KRN","B",9.2,9.2) "BLD",7936,"KRN","B",9.8,9.8) "BLD",7936,"KRN","B",19,19) "BLD",7936,"KRN","B",19.1,19.1) "BLD",7936,"KRN","B",101,101) "BLD",7936,"KRN","B",409.61,409.61) "BLD",7936,"KRN","B",771,771) "BLD",7936,"KRN","B",779.2,779.2) "BLD",7936,"KRN","B",870,870) "BLD",7936,"KRN","B",8989.51,8989.51) "BLD",7936,"KRN","B",8989.52,8989.52) "BLD",7936,"KRN","B",8994,8994) "BLD",7936,"PRET") TRAN^C0Q1P4 "BLD",7936,"QDEF") ^^^^NO^^^^YES^^NO "BLD",7936,"QUES",0) ^9.62^^ "BLD",7936,"REQB",0) ^9.611^2^2 "BLD",7936,"REQB",1,0) CCD/CCR GENERATION UTILITIES 1.2^2 "BLD",7936,"REQB",2,0) QUALITY MEASURES 1.0^2 "BLD",7936,"REQB","B","CCD/CCR GENERATION UTILITIES 1.2",1) "BLD",7936,"REQB","B","QUALITY MEASURES 1.0",2) "DATA",1130580001.101,23,0) MU HOS NQF 0495^^^2.16.840.1.113883.3.249.11.14.2.1.2.2 "DATA",1130580001.101,23,1) ED THROUGHPUT ARRIVAL TO DEPARTURE "DATA",1130580001.101,23,5) ED THROUGHPUT ARRIVAL TO DEPARTURE "DATA",1130580001.101,23,6,0) ^1130580001.111^3^3^3110430^^^^ "DATA",1130580001.101,23,6,1,0) Median time from emergency department arrival to time of departure from "DATA",1130580001.101,23,6,2,0) the emergency room for patients admitted to the facility from the "DATA",1130580001.101,23,6,3,0) emergency department "DATA",1130580001.101,23,7) NQF0495^^^^^^88^165 "DATA",1130580001.101,24,0) MU HOS NQF 0497^^^2.16.840.1.113883.3.249.11.14.3.1.2.2 "DATA",1130580001.101,24,1) ED THROUGHPUT ADMITTING DECISION TO DEPARTURE "DATA",1130580001.101,24,5) ED THROUGHPUT ADMITTING DECISION TO DEPARTURE "DATA",1130580001.101,24,6,0) ^^3^3^3110430^ "DATA",1130580001.101,24,6,1,0) Median time from admit decision time to time of departure from the "DATA",1130580001.101,24,6,2,0) emergency department of emergency department patients admitted to "DATA",1130580001.101,24,6,3,0) inpatient status "DATA",1130580001.101,24,7) NQF0497^^^^^^90^168 "DATA",1130580001.101,25,0) MU HOS NQF 0435^^^1.3.6.1.4.1.33895.1.2.16001.1.2.2 "DATA",1130580001.101,25,1) Ischemic stroke.Discharge on anti-thrombotics "DATA",1130580001.101,25,5) Ischemic stroke.Discharge on anti-thrombotic "DATA",1130580001.101,25,6,0) ^^2^2^3110430^ "DATA",1130580001.101,25,6,1,0) Ischemic stroke patients prescribed antithrombotic therapy at hospital "DATA",1130580001.101,25,6,2,0) discharge "DATA",1130580001.101,25,7) NQF0435^^^^^^114^115 "DATA",1130580001.101,26,0) MU HOS NQF 0436^^^1.3.6.1.4.1.33895.1.2.16002.1.2.2 "DATA",1130580001.101,26,1) Ischemic stroke.Anticoagulation for A-fib/flutter "DATA",1130580001.101,26,5) Ischemic stroke.Anticoagulation for A-fib/flutter "DATA",1130580001.101,26,6,0) ^1130580001.111^2^2^3110430^^^ "DATA",1130580001.101,26,6,1,0) Ischemic stroke patients with atrial fibrillation/flutter who are "DATA",1130580001.101,26,6,2,0) prescribed anticoagulation therapy at hospital discharge "DATA",1130580001.101,26,7) NQF0436^^^^^^116^117 "DATA",1130580001.101,27,0) MU HOS NQF 0437^^^1.3.6.1.4.1.33895.1.2.16003.1.2.2 "DATA",1130580001.101,27,1) Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset "DATA",1130580001.101,27,5) Ischemic stroke.Thrombolytic therapy for patients arriving within 2 hours of symptom onset "DATA",1130580001.101,27,6,0) ^^3^3^3110430^ "DATA",1130580001.101,27,6,1,0) Acute ischemic stroke patients who arrive at this hospital within 2 "DATA",1130580001.101,27,6,2,0) hours of time last known well and for whom IV t-PA was initiated at this "DATA",1130580001.101,27,6,3,0) hospital within 3 hours of time last known well. "DATA",1130580001.101,27,7) NQF0437^^^^^^119^118 "DATA",1130580001.101,28,0) MU HOS NQF 0438^^^1.3.6.1.4.1.33895.1.2.16004.1.2.2 "DATA",1130580001.101,28,1) Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 "DATA",1130580001.101,28,5) Ischemic or hemorrhagic stroke.Antithrombotic therapy by day 2 "DATA",1130580001.101,28,6,0) ^^2^2^3110430^ "DATA",1130580001.101,28,6,1,0) Ischemic stroke patients administered antithrombotic therapy by the "DATA",1130580001.101,28,6,2,0) end of hospital day 2. "DATA",1130580001.101,28,7) NQF0438^^^^^^120^121 "DATA",1130580001.101,29,0) MU HOS NQF 0439^^^1.3.6.1.4.1.33895.1.2.16005.1.2.2 "DATA",1130580001.101,29,1) Ischemic stroke.Discharge on statins "DATA",1130580001.101,29,5) Ischemic stroke.Discharge on statins "DATA",1130580001.101,29,6,0) ^^3^3^3110430^ "DATA",1130580001.101,29,6,1,0) Ischemic stroke patients with LDL > 100 mg/dL, or LDL not measured, or, "DATA",1130580001.101,29,6,2,0) who were on a lipid-lowering medication prior to hospital arrival are "DATA",1130580001.101,29,6,3,0) prescribed statin medication at hospital discharge "DATA",1130580001.101,29,7) NQF0439^^^^^^122^123 "DATA",1130580001.101,30,0) MU HOS NQF 0440^^^1.3.6.1.4.1.33895.1.2.16007.1.2.2 "DATA",1130580001.101,30,1) Ischemic or hemorrhagic stroke.Stroke education "DATA",1130580001.101,30,5) Ischemic or hemorrhagic stroke.Stroke education "DATA",1130580001.101,30,6,0) ^^5^5^3110430^ "DATA",1130580001.101,30,6,1,0) Ischemic or hemorrhagic stroke patients or their caregivers who were "DATA",1130580001.101,30,6,2,0) given educational materials during the hospital stay addressing all of the "DATA",1130580001.101,30,6,3,0) following: activation of emergency medical system, need for follow-up "DATA",1130580001.101,30,6,4,0) after discharge, medications prescribed at discharge, risk factors for "DATA",1130580001.101,30,6,5,0) stroke, and warning signs and symptoms of stroke. "DATA",1130580001.101,30,7) NQF0440^^^^^^124^125 "DATA",1130580001.101,31,0) MU HOS NQF 0441^^^1.3.6.1.4.1.33895.1.2.16008.1.2.2 "DATA",1130580001.101,31,1) Ischemic or hemorrhagic stroke.Rehabilitation assessment "DATA",1130580001.101,31,5) Ischemic or hemorrhagic stroke.Rehabilitation assessment "DATA",1130580001.101,31,6,0) ^^2^2^3110430^ "DATA",1130580001.101,31,6,1,0) Ischemic or hemorrhagic stroke patients who were assessed for "DATA",1130580001.101,31,6,2,0) rehabilitation services. "DATA",1130580001.101,31,7) NQF0441^^^^^^126^127 "DATA",1130580001.101,32,0) MU HOS NQF 0371^^^1.3.6.1.4.1.33895.1.2.15971.1.2.2 "DATA",1130580001.101,32,1) VTE prophylaxis within 24 hours of arrival "DATA",1130580001.101,32,5) VTE prophylaxis within 24 hours of arrival "DATA",1130580001.101,32,6,0) ^^4^4^3110430^ "DATA",1130580001.101,32,6,1,0) This measure assesses the number of patients who received VTE prophylaxis "DATA",1130580001.101,32,6,2,0) or have documentation why no VTE prophylaxis was given the day of or the "DATA",1130580001.101,32,6,3,0) day after hospital admission or surgery end date for surgeries that start "DATA",1130580001.101,32,6,4,0) the day of or the day after hospital admission. "DATA",1130580001.101,32,7) NQF0371^^^^^^69^67 "DATA",1130580001.101,33,0) MU HOS NQF 0372^^^1.3.6.1.4.1.33895.1.2.15972.1.2.2 "DATA",1130580001.101,33,1) ICU VTE prophylaxis "DATA",1130580001.101,33,5) ICU VTE prophylaxis "DATA",1130580001.101,33,6,0) ^^5^5^3110430^ "DATA",1130580001.101,33,6,1,0) This measure assesses the number of patients who received VTE prophylaxis "DATA",1130580001.101,33,6,2,0) or have documentation why no VTE prophylaxis was given the day of or the "DATA",1130580001.101,33,6,3,0) day after the initial admission (or transfer) to the Intensive Care Unit "DATA",1130580001.101,33,6,4,0) (ICU) or surgery end date for surgeries that start the day of or the day "DATA",1130580001.101,33,6,5,0) after ICU admission (or transfer). "DATA",1130580001.101,33,7) NQF0372^^^^^^128^71 "DATA",1130580001.101,34,0) MU HOS NQF 0373^^^1.3.6.1.4.1.33895.1.2.15973.1.2.2 "DATA",1130580001.101,34,1) Anticoagulation overlap therapy "DATA",1130580001.101,34,5) Anticoagulation overlap therapy "DATA",1130580001.101,34,6,0) ^^8^8^3110430^ "DATA",1130580001.101,34,6,1,0) This measure assesses the number of patients diagnosed with confirmed VTE "DATA",1130580001.101,34,6,2,0) who received an overlap of parenteral (intravenous [IV] or subcutaneous "DATA",1130580001.101,34,6,3,0) [subcu]) anticoagulation and warfarin therapy. For patients who received "DATA",1130580001.101,34,6,4,0) less than five days of overlap therapy, they must be discharged on both "DATA",1130580001.101,34,6,5,0) medications. Overlap therapy must be administered for at least five days "DATA",1130580001.101,34,6,6,0) with an international normalized ratio (INR) . 2 prior to discontinuation "DATA",1130580001.101,34,6,7,0) of the parenteral anticoagulation therapy or the patient must be "DATA",1130580001.101,34,6,8,0) discharged on both medications. "DATA",1130580001.101,34,7) NQF0373^^^^^^129^144 "DATA",1130580001.101,35,0) MU HOS NQF 0374^^^1.3.6.1.4.1.33895.1.2.15974.1.2.2 "DATA",1130580001.101,35,1) Platelet monitoring on unfractionated heparin "DATA",1130580001.101,35,5) Platelet monitoring on unfractionated heparin "DATA",1130580001.101,35,6,0) ^^10^10^3110430^ "DATA",1130580001.101,35,6,1,0) This measure assesses the number of patients diagnosed with confirmed VTE "DATA",1130580001.101,35,6,2,0) who received intravenous (IV) UFH therapy dosages AND had their platelet "DATA",1130580001.101,35,6,3,0) counts monitored using defined parameters such as a nomogram or "DATA",1130580001.101,35,6,4,0) protocol This measure assesses the number of patients diagnosed with "DATA",1130580001.101,35,6,5,0) confirmed VTE who received intravenous (IV) UFH therapy dosages AND had "DATA",1130580001.101,35,6,6,0) their platelet counts monitored using defined parameters such as a "DATA",1130580001.101,35,6,7,0) nomogram or protocol This measure assesses the number of patients "DATA",1130580001.101,35,6,8,0) diagnosed with confirmed VTE who received intravenous (IV) UFH therapy "DATA",1130580001.101,35,6,9,0) dosages AND had their platelet counts monitored using defined parameters "DATA",1130580001.101,35,6,10,0) such as a nomogram or protocol "DATA",1130580001.101,35,7) NQF0374^^^^^^145^146 "DATA",1130580001.101,36,0) MU HOS NQF 0375^^^1.3.6.1.4.1.33895.1.2.15975.1.2.2 "DATA",1130580001.101,36,1) VTE discharge instructions "DATA",1130580001.101,36,5) VTE discharge instructions "DATA",1130580001.101,36,6,0) ^^11^11^3110430^ "DATA",1130580001.101,36,6,1,0) This measure assesses the number of patients diagnosed with confirmed VTE "DATA",1130580001.101,36,6,2,0) that are discharged to home, to home with home health, home hospice or "DATA",1130580001.101,36,6,3,0) discharged/transferred to court/law enforcement on warfarin with written "DATA",1130580001.101,36,6,4,0) discharge instructions that address all four criteria: compliance issues, "DATA",1130580001.101,36,6,5,0) dietary advice, follow-up This measure assesses the number of patients "DATA",1130580001.101,36,6,6,0) diagnosed with confirmed VTE that are discharged to home, to home with "DATA",1130580001.101,36,6,7,0) home health, home hospice or discharged/transferred to court/law "DATA",1130580001.101,36,6,8,0) enforcement on warfarin with written discharge instructions that address "DATA",1130580001.101,36,6,9,0) all four criteria: compliance issues, dietary advice, follow-up "DATA",1130580001.101,36,6,10,0) monitoring, and information about the potential for adverse drug "DATA",1130580001.101,36,6,11,0) reactions/interactions. "DATA",1130580001.101,36,7) NQF0375^^^^^^147^156 "DATA",1130580001.101,37,0) MU HOS NQF 0376^^^1.3.6.1.4.1.33895.1.2.15976.1.2.2 "DATA",1130580001.101,37,1) Incidence of potentially preventable VTE "DATA",1130580001.101,37,5) Incidence of potentially preventable VTE "DATA",1130580001.101,37,6,0) ^^4^4^3110430^ "DATA",1130580001.101,37,6,1,0) This measure assesses the number of patients diagnosed with confirmed VTE "DATA",1130580001.101,37,6,2,0) during hospitalization (not present on arrival) who did not receive VTE "DATA",1130580001.101,37,6,3,0) prophylaxis between hospital admission and the day before the VTE "DATA",1130580001.101,37,6,4,0) diagnostic testing order date. "DATA",1130580001.101,37,7) NQF0376^^^^^^158^162 "DATA",1130580001.201,10,0) VTE CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.32.1.2.1 "DATA",1130580001.201,10,4) ^^3120101^3121231 "DATA",1130580001.201,10,5,0) ^1130580001.2011P^6^6 "DATA",1130580001.201,10,5,1,0) 32 "DATA",1130580001.201,10,5,2,0) 33 "DATA",1130580001.201,10,5,3,0) 34 "DATA",1130580001.201,10,5,4,0) 35 "DATA",1130580001.201,10,5,5,0) 36 "DATA",1130580001.201,10,5,6,0) 37 "DATA",1130580001.201,10,6) ^ "DATA",1130580001.201,10,7) MU12 "DATA",1130580001.201,11,0) STK CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.31.1.2.1 "DATA",1130580001.201,11,4) ^^3120101^3121231 "DATA",1130580001.201,11,5,0) ^1130580001.2011P^7^7 "DATA",1130580001.201,11,5,1,0) 25 "DATA",1130580001.201,11,5,2,0) 26 "DATA",1130580001.201,11,5,3,0) 27 "DATA",1130580001.201,11,5,4,0) 28 "DATA",1130580001.201,11,5,5,0) 29 "DATA",1130580001.201,11,5,6,0) 30 "DATA",1130580001.201,11,5,7,0) 31 "DATA",1130580001.201,11,6) ^ "DATA",1130580001.201,11,7) MU12 "DATA",1130580001.201,12,0) ED CMS REPORTING MEASURES^2.16.840.1.113883.3.249.11.14.1.1.1 "DATA",1130580001.201,12,4) ^^3120101^3121213 "DATA",1130580001.201,12,5,0) ^1130580001.2011P^2^2 "DATA",1130580001.201,12,5,1,0) 23 "DATA",1130580001.201,12,5,2,0) 24 "DATA",1130580001.201,12,6) ^ "DATA",1130580001.201,12,7) MU12 "FIA",1130580001.101) C0Q QUALITY MEASURE "FIA",1130580001.101,0) ^C0Q(101, "FIA",1130580001.101,0,0) 1130580001.101I "FIA",1130580001.101,0,1) y^y^f^^y^C0Q 1P0*4 QM TRANSPORT LIST^y^o^n "FIA",1130580001.101,0,10) "FIA",1130580001.101,0,11) "FIA",1130580001.101,0,"RLRO") ^DIBT(920,1) "FIA",1130580001.101,0,"VR") 1.0^C0Q "FIA",1130580001.101,1130580001.101) 0 "FIA",1130580001.101,1130580001.111) 0 "FIA",1130580001.201) C0Q MEASUREMENT SET "FIA",1130580001.201,0) ^C0Q(201, "FIA",1130580001.201,0,0) 1130580001.201 "FIA",1130580001.201,0,1) y^y^f^^y^C0Q 1P0*4 MS^y^o^n "FIA",1130580001.201,0,10) "FIA",1130580001.201,0,11) "FIA",1130580001.201,0,"RLRO") ^DIBT(921,1) "FIA",1130580001.201,0,"VR") 1.0^C0Q "FIA",1130580001.201,1130580001.201) 0 "FIA",1130580001.201,1130580001.2011) 0 "FIA",1130580001.201,1130580001.20111) 0 "FIA",1130580001.201,1130580001.20112) 0 "FIA",1130580001.401) C0Q PARAMETER "FIA",1130580001.401,0) ^C0Q(401, "FIA",1130580001.401,0,0) 1130580001.401 "FIA",1130580001.401,0,1) y^y^p^^^^n^^n "FIA",1130580001.401,0,10) "FIA",1130580001.401,0,11) "FIA",1130580001.401,0,"RLRO") "FIA",1130580001.401,0,"VR") 1.0^C0Q "FIA",1130580001.401,1130580001.401) 1 "FIA",1130580001.401,1130580001.401,5.1) "FIA",1130580001.401,1130580001.401,5.2) "FIA",1130580001.401,1130580001.401,5.3) "FRV1",1130580001.101,"23,7",7) MU ED-1 NUMER RS "FRV1",1130580001.101,"23,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"23,7",8) MU ED-1 DENOM RS "FRV1",1130580001.101,"23,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"24,7",7) MU ED-2 NUMER RS "FRV1",1130580001.101,"24,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"24,7",8) MU ED-2 DENOM RS "FRV1",1130580001.101,"24,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"25,7",7) MU STK-2 NUMER RS "FRV1",1130580001.101,"25,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"25,7",8) MU STK-2 DENOM RS "FRV1",1130580001.101,"25,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"26,7",7) MU STK-3 NUMER RS "FRV1",1130580001.101,"26,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"26,7",8) MU STK-3 DENOM RS "FRV1",1130580001.101,"26,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"27,7",7) MU STK-4 NUMER RS "FRV1",1130580001.101,"27,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"27,7",8) MU STK-4 DENOM RS "FRV1",1130580001.101,"27,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"28,7",7) MU STK-5 NUMER RS "FRV1",1130580001.101,"28,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"28,7",8) MU STK-5 DENOM RS "FRV1",1130580001.101,"28,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"29,7",7) MU STK-6 NUMER RS "FRV1",1130580001.101,"29,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"29,7",8) MU STK-6 DENOM RS "FRV1",1130580001.101,"29,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"30,7",7) MU STK-8 NUMER RS "FRV1",1130580001.101,"30,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"30,7",8) MU STK-8 DENOM RS "FRV1",1130580001.101,"30,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"31,7",7) MU STK-10 NUMER RS "FRV1",1130580001.101,"31,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"31,7",8) MU STK-10 DENOM RS "FRV1",1130580001.101,"31,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"32,7",7) MU VTE-1 NUMER RS "FRV1",1130580001.101,"32,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"32,7",8) MU VTE-1 DENOM RS "FRV1",1130580001.101,"32,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"33,7",7) MU VTE-2 NUMER RS "FRV1",1130580001.101,"33,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"33,7",8) MU VTE-2 DENOM RS "FRV1",1130580001.101,"33,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"34,7",7) MU VTE-3 NUMER RS "FRV1",1130580001.101,"34,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"34,7",8) MU VTE-3 DENOM RS "FRV1",1130580001.101,"34,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"35,7",7) MU VTE-4 NUMER RS "FRV1",1130580001.101,"35,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"35,7",8) MU VTE-4 DENOM RS "FRV1",1130580001.101,"35,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"36,7",7) MU VTE-5 NUMER RS "FRV1",1130580001.101,"36,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"36,7",8) MU VTE-5 DENOM RS "FRV1",1130580001.101,"36,7",8,"F") ;PXRM(810.4, "FRV1",1130580001.101,"37,7",7) MU VTE-6 NUMER RS "FRV1",1130580001.101,"37,7",7,"F") ;PXRM(810.4, "FRV1",1130580001.101,"37,7",8) MU VTE-6 DENOM RS "FRV1",1130580001.101,"37,7",8,"F") ;PXRM(810.4, "FRV1K",1130580001.101,"23,7",7) B "FRV1K",1130580001.101,"23,7",7,1) MU ED-1 NUMER RS "FRV1K",1130580001.101,"23,7",8) B "FRV1K",1130580001.101,"23,7",8,1) MU ED-1 DENOM RS "FRV1K",1130580001.101,"24,7",7) B "FRV1K",1130580001.101,"24,7",7,1) MU ED-2 NUMER RS "FRV1K",1130580001.101,"24,7",8) B "FRV1K",1130580001.101,"24,7",8,1) MU ED-2 DENOM RS "FRV1K",1130580001.101,"25,7",7) B "FRV1K",1130580001.101,"25,7",7,1) MU STK-2 NUMER RS "FRV1K",1130580001.101,"25,7",8) B "FRV1K",1130580001.101,"25,7",8,1) MU STK-2 DENOM RS "FRV1K",1130580001.101,"26,7",7) B "FRV1K",1130580001.101,"26,7",7,1) MU STK-3 NUMER RS "FRV1K",1130580001.101,"26,7",8) B "FRV1K",1130580001.101,"26,7",8,1) MU STK-3 DENOM RS "FRV1K",1130580001.101,"27,7",7) B "FRV1K",1130580001.101,"27,7",7,1) MU STK-4 NUMER RS "FRV1K",1130580001.101,"27,7",8) B "FRV1K",1130580001.101,"27,7",8,1) MU STK-4 DENOM RS "FRV1K",1130580001.101,"28,7",7) B "FRV1K",1130580001.101,"28,7",7,1) MU STK-5 NUMER RS "FRV1K",1130580001.101,"28,7",8) B "FRV1K",1130580001.101,"28,7",8,1) MU STK-5 DENOM RS "FRV1K",1130580001.101,"29,7",7) B "FRV1K",1130580001.101,"29,7",7,1) MU STK-6 NUMER RS "FRV1K",1130580001.101,"29,7",8) B "FRV1K",1130580001.101,"29,7",8,1) MU STK-6 DENOM RS "FRV1K",1130580001.101,"30,7",7) B "FRV1K",1130580001.101,"30,7",7,1) MU STK-8 NUMER RS "FRV1K",1130580001.101,"30,7",8) B "FRV1K",1130580001.101,"30,7",8,1) MU STK-8 DENOM RS "FRV1K",1130580001.101,"31,7",7) B "FRV1K",1130580001.101,"31,7",7,1) MU STK-10 NUMER RS "FRV1K",1130580001.101,"31,7",8) B "FRV1K",1130580001.101,"31,7",8,1) MU STK-10 DENOM RS "FRV1K",1130580001.101,"32,7",7) B "FRV1K",1130580001.101,"32,7",7,1) MU VTE-1 NUMER RS "FRV1K",1130580001.101,"32,7",8) B "FRV1K",1130580001.101,"32,7",8,1) MU VTE-1 DENOM RS "FRV1K",1130580001.101,"33,7",7) B "FRV1K",1130580001.101,"33,7",7,1) MU VTE-2 NUMER RS "FRV1K",1130580001.101,"33,7",8) B "FRV1K",1130580001.101,"33,7",8,1) MU VTE-2 DENOM RS "FRV1K",1130580001.101,"34,7",7) B "FRV1K",1130580001.101,"34,7",7,1) MU VTE-3 NUMER RS "FRV1K",1130580001.101,"34,7",8) B "FRV1K",1130580001.101,"34,7",8,1) MU VTE-3 DENOM RS "FRV1K",1130580001.101,"35,7",7) B "FRV1K",1130580001.101,"35,7",7,1) MU VTE-4 NUMER RS "FRV1K",1130580001.101,"35,7",8) B "FRV1K",1130580001.101,"35,7",8,1) MU VTE-4 DENOM RS "FRV1K",1130580001.101,"36,7",7) B "FRV1K",1130580001.101,"36,7",7,1) MU VTE-5 NUMER RS "FRV1K",1130580001.101,"36,7",8) B "FRV1K",1130580001.101,"36,7",8,1) MU VTE-5 DENOM RS "FRV1K",1130580001.101,"37,7",7) B "FRV1K",1130580001.101,"37,7",7,1) MU VTE-6 NUMER RS "FRV1K",1130580001.101,"37,7",8) B "FRV1K",1130580001.101,"37,7",8,1) MU VTE-6 DENOM RS "IX",1130580001.101,1130580001.101,"B",0) 1130580001.101^B^New-Style B Index. Will be used as part of the key.^R^^F^IR^I^1130580001.101^^^^^LS "IX",1130580001.101,1130580001.101,"B",1) S ^C0Q(101,"B",$E(X,1,30),DA)="" "IX",1130580001.101,1130580001.101,"B",2) K ^C0Q(101,"B",$E(X,1,30),DA) "IX",1130580001.101,1130580001.101,"B",2.5) K ^C0Q(101,"B") "IX",1130580001.101,1130580001.101,"B",11.1,0) ^.114IA^1^1 "IX",1130580001.101,1130580001.101,"B",11.1,1,0) 1^F^1130580001.101^.01^30^1^F "IX",1130580001.101,1130580001.101,"MU",0) 1130580001.101^MU^MEANINGFUL USE YEAR KEY^R^^F^IR^I^1130580001.101^^^^^LS "IX",1130580001.101,1130580001.101,"MU",1) S ^C0Q(101,"MU",$E(X,1,30),DA)="" "IX",1130580001.101,1130580001.101,"MU",2) K ^C0Q(101,"MU",$E(X,1,30),DA) "IX",1130580001.101,1130580001.101,"MU",2.5) K ^C0Q(101,"MU") "IX",1130580001.101,1130580001.101,"MU",11.1,0) ^.114IA^1^1 "IX",1130580001.101,1130580001.101,"MU",11.1,1,0) 1^F^1130580001.101^.3^30^1^F "IX",1130580001.201,1130580001.201,"MU",0) 1130580001.201^MU^MEANINGFUL USE YEAR KEY INDEX^R^^F^IR^I^1130580001.201^^^^^LS "IX",1130580001.201,1130580001.201,"MU",1) S ^C0Q(201,"MU",$E(X,1,30),DA)="" "IX",1130580001.201,1130580001.201,"MU",2) K ^C0Q(201,"MU",$E(X,1,30),DA) "IX",1130580001.201,1130580001.201,"MU",2.5) K ^C0Q(201,"MU") "IX",1130580001.201,1130580001.201,"MU",11.1,0) ^.114IA^1^1 "IX",1130580001.201,1130580001.201,"MU",11.1,1,0) 1^F^1130580001.201^.3^30^1^F "KEY",1130580001.101,1130580001.101,"A",0) 1130580001.101^A^P^733 "KEY",1130580001.101,1130580001.101,"A",2,0) ^.312IA^1^1 "KEY",1130580001.101,1130580001.101,"A",2,1,0) .01^1130580001.101^1 "KEYPTR",1130580001.101,1130580001.101,"A") 1130580001.101^B "KRN",.402,1742,-1) 0^1 "KRN",.402,1742,0) C0Q EDIT INPATIENT PARMS^3120801.1733^@^1130580001.401^^@^3120802 "KRN",.402,1742,"DIAB",1,1,1130580001.4013,0) ALL "KRN",.402,1742,"DR",1,1130580001.401) .01;.02;.03;1;1.1;5.1;5.2;5.3;3; "KRN",.402,1742,"DR",2,1130580001.4013) .01:.02 "KRN",.402,1747,-1) 0^2 "KRN",.402,1747,0) C0Q EDIT MEASURE SET^3120801.0011^@^1130580001.201^^@^3120801 "KRN",.402,1747,"DR",1,1130580001.201) .01;.02;.03;.05;.3;.4;1; "KRN",.402,1747,"DR",2,1130580001.2011) .01;1.2;2.2; "KRN",19,11027,-1) 2^3 "KRN",19,11027,0) C0Q QUALITY MEASUREMENT MENU^QUALITY MEASUREMENT MENU^^M^8^^^^^^^^y "KRN",19,11027,10,0) ^19.01IP^20^20 "KRN",19,11027,10,20,0) 11070 "KRN",19,11027,10,20,"^") C0Q QRDA MENU "KRN",19,11027,"U") QUALITY MEASUREMENT MENU "KRN",19,11070,-1) 0^1 "KRN",19,11070,0) C0Q QRDA MENU^QRDA MENU^^M^^^^^^^^QUALITY MEASURES^y "KRN",19,11070,1,0) ^^1^1^3120801^ "KRN",19,11070,1,1,0) Contains QRDA generation releated menu options. "KRN",19,11070,10,0) ^19.01IP^1^1 "KRN",19,11070,10,1,0) 11071 "KRN",19,11070,10,1,"^") C0Q EXPORT INPATIENT QRDA CCRS "KRN",19,11070,99) 62670,75392 "KRN",19,11070,"U") QRDA MENU "KRN",19,11071,-1) 0^2 "KRN",19,11071,0) C0Q EXPORT INPATIENT QRDA CCRS^EXPORT INPATIENT QRDA MEASURES AS CCRS^^R^^^^^^^^QUALITY MEASURES^y "KRN",19,11071,1,0) ^^2^2^3120801^ "KRN",19,11071,1,1,0) This option updates the CMS Inpatient Reporting measures and then creates "KRN",19,11071,1,2,0) a CCR for each patient in these measures' denominators. "KRN",19,11071,25) EN^C0QQRDA "KRN",19,11071,"U") EXPORT INPATIENT QRDA MEASURES "MBREQ") 0 "ORD",7,.402) .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,"",%) "ORD",7,.402,0) INPUT TEMPLATE "ORD",18,19) 19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA "ORD",18,19,0) OPTION "PGL",1130580001.101,0,2,1) NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q "PGL",1130580001.101,0,3,2) DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q "PGL",1130580001.101,7,2,1.1) ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q "PGL",1130580001.101,7,3,2.1) ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q "PGL",1130580001.101,7,4,1.5) NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q "PGL",1130580001.101,7,5,1.51) ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q "PGL",1130580001.101,7,7,1.2) NUMERATOR 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 "PGL",1130580001.101,7,8,2.2) DENOMINATOR 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 "PGL",1130580001.101,7,9,2.5) EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q "PGL",1130580001.2011,4,3,1.2) NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q "PGL",1130580001.2011,4,4,2.2) DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q "PKG",212,-1) 1^1 "PKG",212,0) QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures "PKG",212,20,0) ^9.402P^^ "PKG",212,22,0) ^9.49I^1^1 "PKG",212,22,1,0) 1.0^3120731 "PKG",212,22,1,"PAH",1,0) 4^3120824 "PKG",212,22,1,"PAH",1,1,0) ^^250^250^3120824 "PKG",212,22,1,"PAH",1,1,1,0) Source, Copyright, & Licensing: "PKG",212,22,1,"PAH",1,1,2,0) =============================== "PKG",212,22,1,"PAH",1,1,3,0) This patch to WorldVistA 2.0 was produced in Dew Drop "PKG",212,22,1,"PAH",1,1,4,0) by George Lily on 24 August 2012 and released through VISTA Forum. "PKG",212,22,1,"PAH",1,1,5,0) "PKG",212,22,1,"PAH",1,1,6,0) (C) 2012 George Lilly "PKG",212,22,1,"PAH",1,1,7,0) Licensed under GPL 2. "PKG",212,22,1,"PAH",1,1,8,0) "PKG",212,22,1,"PAH",1,1,9,0) Functionality: "PKG",212,22,1,"PAH",1,1,10,0) ============== "PKG",212,22,1,"PAH",1,1,11,0) This patch adds the ability to generate modified CCRs "PKG",212,22,1,"PAH",1,1,12,0) containing a QUALITY measure section that looks like "PKG",212,22,1,"PAH",1,1,13,0) this: "PKG",212,22,1,"PAH",1,1,14,0) "PKG",212,22,1,"PAH",1,1,15,0) "PKG",212,22,1,"PAH",1,1,16,0) 1.3.6.1.4.1.33895.1.1.31.1.2.1 "PKG",212,22,1,"PAH",1,1,17,0) "PKG",212,22,1,"PAH",1,1,18,0) 1.3.6.1.4.1.33895.1.2.16001.1.2.2 "PKG",212,22,1,"PAH",1,1,19,0) 1.3.6.1.4.1.33895.1.2.16002.1.2.2 "PKG",212,22,1,"PAH",1,1,20,0) 1.3.6.1.4.1.33895.1.2.16004.1.2.2 "PKG",212,22,1,"PAH",1,1,21,0) 1.3.6.1.4.1.33895.1.2.16008.1.2.2 "PKG",212,22,1,"PAH",1,1,22,0) "PKG",212,22,1,"PAH",1,1,23,0) "PKG",212,22,1,"PAH",1,1,24,0) "PKG",212,22,1,"PAH",1,1,25,0) "PKG",212,22,1,"PAH",1,1,26,0) This enables you to create a QRDA document in the C32 format to submit to CMS "PKG",212,22,1,"PAH",1,1,27,0) containing these measures. The C32 document will be generated by an XSLT "PKG",212,22,1,"PAH",1,1,28,0) transform from the CCR document. "PKG",212,22,1,"PAH",1,1,29,0) "PKG",212,22,1,"PAH",1,1,30,0) The driving force behind the creation of this patch, as well as the "PKG",212,22,1,"PAH",1,1,31,0) documentation of the actual QRDA documents to send to CMS can be found here: "PKG",212,22,1,"PAH",1,1,32,0) http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier3&cid=1228772217179 "PKG",212,22,1,"PAH",1,1,33,0) "PKG",212,22,1,"PAH",1,1,34,0) Specifically, this sentence: "PKG",212,22,1,"PAH",1,1,35,0) "One part of meeting the requirements for Stage I Meaningful Use may include "PKG",212,22,1,"PAH",1,1,36,0) submitting Clinical Quality Measures (CQMs) electronically using the QRDA "PKG",212,22,1,"PAH",1,1,37,0) Category I file format." "PKG",212,22,1,"PAH",1,1,38,0) "PKG",212,22,1,"PAH",1,1,39,0) Package Elements: "PKG",212,22,1,"PAH",1,1,40,0) ================= "PKG",212,22,1,"PAH",1,1,41,0) PACKAGE: C0Q*1.0*4 Aug 24, 2012 12:02 pm PAGE 1 "PKG",212,22,1,"PAH",1,1,42,0) ------------------------------------------------------------------------------- "PKG",212,22,1,"PAH",1,1,43,0) TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES "PKG",212,22,1,"PAH",1,1,44,0) NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO "PKG",212,22,1,"PAH",1,1,45,0) "PKG",212,22,1,"PAH",1,1,46,0) DESCRIPTION: "PKG",212,22,1,"PAH",1,1,47,0) QRDA Support. "PKG",212,22,1,"PAH",1,1,48,0) "PKG",212,22,1,"PAH",1,1,49,0) ENVIRONMENT CHECK: DELETE ENV ROUTINE: "PKG",212,22,1,"PAH",1,1,50,0) PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE: "PKG",212,22,1,"PAH",1,1,51,0) POST-INIT ROUTINE: DELETE POST-INIT ROUTINE: "PKG",212,22,1,"PAH",1,1,52,0) PRE-TRANSPORT RTN: TRAN^C0Q1P4 "PKG",212,22,1,"PAH",1,1,53,0) "PKG",212,22,1,"PAH",1,1,54,0) UP SEND DATA USER "PKG",212,22,1,"PAH",1,1,55,0) DATE SEC. COMES SITE RSLV OVER "PKG",212,22,1,"PAH",1,1,56,0) FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE "PKG",212,22,1,"PAH",1,1,57,0) ------------------------------------------------------------------------------- "PKG",212,22,1,"PAH",1,1,58,0) "PKG",212,22,1,"PAH",1,1,59,0) 1130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO "PKG",212,22,1,"PAH",1,1,60,0) "PKG",212,22,1,"PAH",1,1,61,0) 1130580001.201C0Q MEASUREMENT SET YES YES YES OVER YES NO "PKG",212,22,1,"PAH",1,1,62,0) "PKG",212,22,1,"PAH",1,1,63,0) 1130580001.401C0Q PARAMETER YES YES NO NO "PKG",212,22,1,"PAH",1,1,64,0) Partial DD: subDD: 1130580001.401fld: 5.1 "PKG",212,22,1,"PAH",1,1,65,0) fld: 5.2 "PKG",212,22,1,"PAH",1,1,66,0) fld: 5.3 "PKG",212,22,1,"PAH",1,1,67,0) "PKG",212,22,1,"PAH",1,1,68,0) INPUT TEMPLATE: ACTION: "PKG",212,22,1,"PAH",1,1,69,0) C0Q EDIT INPATIENT PARMS FILE #1130580001.401SEND TO SITE "PKG",212,22,1,"PAH",1,1,70,0) C0Q EDIT MEASURE SET FILE #1130580001.201 SEND TO SITE "PKG",212,22,1,"PAH",1,1,71,0) "PKG",212,22,1,"PAH",1,1,72,0) ROUTINE: ACTION: "PKG",212,22,1,"PAH",1,1,73,0) C0QQRDA SEND TO SITE "PKG",212,22,1,"PAH",1,1,74,0) "PKG",212,22,1,"PAH",1,1,75,0) OPTION: ACTION: "PKG",212,22,1,"PAH",1,1,76,0) C0Q EXPORT INPATIENT QRDA CCRS SEND TO SITE "PKG",212,22,1,"PAH",1,1,77,0) C0Q QRDA MENU SEND TO SITE "PKG",212,22,1,"PAH",1,1,78,0) C0Q QUALITY MEASUREMENT MENU USE AS LINK FOR MENU ITEMS "PKG",212,22,1,"PAH",1,1,79,0) "PKG",212,22,1,"PAH",1,1,80,0) INSTALL QUESTIONS: "PKG",212,22,1,"PAH",1,1,81,0) "PKG",212,22,1,"PAH",1,1,82,0) Default Rebuild Menu Trees Upon Completion of Install: YES "PKG",212,22,1,"PAH",1,1,83,0) Default INHIBIT LOGONs during the install: NO "PKG",212,22,1,"PAH",1,1,84,0) Default DISABLE Scheduled Options, Menu Options, and Protocols: NO "PKG",212,22,1,"PAH",1,1,85,0) "PKG",212,22,1,"PAH",1,1,86,0) REQUIRED BUILDS: ACTION: "PKG",212,22,1,"PAH",1,1,87,0) CCD/CCR GENERATION UTILITIES 1.2 Don't install, leave global "PKG",212,22,1,"PAH",1,1,88,0) QUALITY MEASURES 1.0 Don't install, leave global "PKG",212,22,1,"PAH",1,1,89,0) "PKG",212,22,1,"PAH",1,1,90,0) Summary of Changes to package: "PKG",212,22,1,"PAH",1,1,91,0) - Population of QRDA TEMPLATE ROOT field in all of the C0Q QUALITY MEASUREs "PKG",212,22,1,"PAH",1,1,92,0) for Inpatients, as follows: "PKG",212,22,1,"PAH",1,1,93,0) "PKG",212,22,1,"PAH",1,1,94,0) NAME QRDA TEMPLATE ROOT NUMERATOR RULE SET "PKG",212,22,1,"PAH",1,1,95,0) ---------------------------------------------------------------------------------- "PKG",212,22,1,"PAH",1,1,96,0) "PKG",212,22,1,"PAH",1,1,97,0) MU HOS NQF 0495 2.16.840.1.113883.3.249.11.14.2.1.2.2 MU ED-1 NUMER RS "PKG",212,22,1,"PAH",1,1,98,0) MU HOS NQF 0497 2.16.840.1.113883.3.249.11.14.3.1.2.2 MU ED-2 NUMER RS "PKG",212,22,1,"PAH",1,1,99,0) "PKG",212,22,1,"PAH",1,1,100,0) MU HOS NQF 0435 1.3.6.1.4.1.33895.1.2.16001.1.2.2 MU STK-2 NUMER RS "PKG",212,22,1,"PAH",1,1,101,0) MU HOS NQF 0436 1.3.6.1.4.1.33895.1.2.16002.1.2.2 MU STK-3 NUMER RS "PKG",212,22,1,"PAH",1,1,102,0) MU HOS NQF 0437 1.3.6.1.4.1.33895.1.2.16003.1.2.2 MU STK-4 NUMER RS "PKG",212,22,1,"PAH",1,1,103,0) MU HOS NQF 0438 1.3.6.1.4.1.33895.1.2.16004.1.2.2 MU STK-5 NUMER RS "PKG",212,22,1,"PAH",1,1,104,0) MU HOS NQF 0439 1.3.6.1.4.1.33895.1.2.16005.1.2.2 MU STK-6 NUMER RS "PKG",212,22,1,"PAH",1,1,105,0) MU HOS NQF 0440 1.3.6.1.4.1.33895.1.2.16007.1.2.2 MU STK-8 NUMER RS "PKG",212,22,1,"PAH",1,1,106,0) MU HOS NQF 0441 1.3.6.1.4.1.33895.1.2.16008.1.2.2 MU STK-10 NUMER RS "PKG",212,22,1,"PAH",1,1,107,0) "PKG",212,22,1,"PAH",1,1,108,0) MU HOS NQF 0371 1.3.6.1.4.1.33895.1.2.15971.1.2.2 MU VTE-1 NUMER RS "PKG",212,22,1,"PAH",1,1,109,0) MU HOS NQF 0372 1.3.6.1.4.1.33895.1.2.15972.1.2.2 MU VTE-2 NUMER RS "PKG",212,22,1,"PAH",1,1,110,0) MU HOS NQF 0373 1.3.6.1.4.1.33895.1.2.15973.1.2.2 MU VTE-3 NUMER RS "PKG",212,22,1,"PAH",1,1,111,0) MU HOS NQF 0374 1.3.6.1.4.1.33895.1.2.15974.1.2.2 MU VTE-4 NUMER RS "PKG",212,22,1,"PAH",1,1,112,0) MU HOS NQF 0375 1.3.6.1.4.1.33895.1.2.15975.1.2.2 MU VTE-5 NUMER RS "PKG",212,22,1,"PAH",1,1,113,0) MU HOS NQF 0376 1.3.6.1.4.1.33895.1.2.15976.1.2.2 MU VTE-6 NUMER RS "PKG",212,22,1,"PAH",1,1,114,0) "PKG",212,22,1,"PAH",1,1,115,0) - Change of C0Q MEASUREMENT file name to C0Q MEASUREMENT SET "PKG",212,22,1,"PAH",1,1,116,0) - Addition of QRDA TEMPLATE ROOT field to C0Q MEASUREMENT SET "PKG",212,22,1,"PAH",1,1,117,0) - Creation of three Measurement Sets in the C0Q MEASUREMENT SET as follows: "PKG",212,22,1,"PAH",1,1,118,0) NAME: ED CMS REPORTING MEASURES "PKG",212,22,1,"PAH",1,1,119,0) QRDA TEMPLATE ROOT: 2.16.840.1.113883.3.249.11.14.1.1.1 "PKG",212,22,1,"PAH",1,1,120,0) BEGIN DATE: JAN 1,2012 END DATE: DEC 13,2012 "PKG",212,22,1,"PAH",1,1,121,0) MEASURE: MU HOS NQF 0495 "PKG",212,22,1,"PAH",1,1,122,0) MEASURE: MU HOS NQF 0497 "PKG",212,22,1,"PAH",1,1,123,0) MU YEAR KEY: MU12 "PKG",212,22,1,"PAH",1,1,124,0) "PKG",212,22,1,"PAH",1,1,125,0) NAME: STK CMS REPORTING MEASURES "PKG",212,22,1,"PAH",1,1,126,0) QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.31.1.2.1 "PKG",212,22,1,"PAH",1,1,127,0) BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 "PKG",212,22,1,"PAH",1,1,128,0) MEASURE: MU HOS NQF 0435 "PKG",212,22,1,"PAH",1,1,129,0) MEASURE: MU HOS NQF 0436 "PKG",212,22,1,"PAH",1,1,130,0) MEASURE: MU HOS NQF 0437 "PKG",212,22,1,"PAH",1,1,131,0) MEASURE: MU HOS NQF 0438 "PKG",212,22,1,"PAH",1,1,132,0) MEASURE: MU HOS NQF 0439 "PKG",212,22,1,"PAH",1,1,133,0) MEASURE: MU HOS NQF 0440 "PKG",212,22,1,"PAH",1,1,134,0) MEASURE: MU HOS NQF 0441 "PKG",212,22,1,"PAH",1,1,135,0) MU YEAR KEY: MU12 "PKG",212,22,1,"PAH",1,1,136,0) "PKG",212,22,1,"PAH",1,1,137,0) NAME: VTE CMS REPORTING MEASURES "PKG",212,22,1,"PAH",1,1,138,0) QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.32.1.2.1 "PKG",212,22,1,"PAH",1,1,139,0) BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012 "PKG",212,22,1,"PAH",1,1,140,0) MEASURE: MU HOS NQF 0371 "PKG",212,22,1,"PAH",1,1,141,0) MEASURE: MU HOS NQF 0372 "PKG",212,22,1,"PAH",1,1,142,0) MEASURE: MU HOS NQF 0373 "PKG",212,22,1,"PAH",1,1,143,0) MEASURE: MU HOS NQF 0374 "PKG",212,22,1,"PAH",1,1,144,0) MEASURE: MU HOS NQF 0375 "PKG",212,22,1,"PAH",1,1,145,0) MEASURE: MU HOS NQF 0376 "PKG",212,22,1,"PAH",1,1,146,0) MU YEAR KEY: MU12 "PKG",212,22,1,"PAH",1,1,147,0) "PKG",212,22,1,"PAH",1,1,148,0) - Creation of supporting fields in the C0Q PARAMETER file to drive generation "PKG",212,22,1,"PAH",1,1,149,0) of the QRDA documents. "PKG",212,22,1,"PAH",1,1,150,0) - VTE CMS MEASUREMENT SET "PKG",212,22,1,"PAH",1,1,151,0) - STK CMS MEASUREMENT SET "PKG",212,22,1,"PAH",1,1,152,0) - ED CMS MEASUREMENT SET "PKG",212,22,1,"PAH",1,1,153,0) "PKG",212,22,1,"PAH",1,1,154,0) - Modification of existing input templates to support the new fields created. "PKG",212,22,1,"PAH",1,1,155,0) C0Q EDIT INPATIENT PARMS FILE #1130580001.401 "PKG",212,22,1,"PAH",1,1,156,0) C0Q EDIT MEASURE SET FILE #1130580001.201 "PKG",212,22,1,"PAH",1,1,157,0) "PKG",212,22,1,"PAH",1,1,158,0) - Routine C0QQRDA to drive the generation of the QRDA documents. "PKG",212,22,1,"PAH",1,1,159,0) "PKG",212,22,1,"PAH",1,1,160,0) - Menu option to call EN^C0QQRDA: "PKG",212,22,1,"PAH",1,1,161,0) -> C0Q QUALITY MEASUREMENT MENU "PKG",212,22,1,"PAH",1,1,162,0) Parent: C0Q QRDA MENU "PKG",212,22,1,"PAH",1,1,163,0) "PKG",212,22,1,"PAH",1,1,164,0) Routine Versioning: "PKG",212,22,1,"PAH",1,1,165,0) "PKG",212,22,1,"PAH",1,1,166,0) The second line of each of these routines now looks like: "PKG",212,22,1,"PAH",1,1,167,0) ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28 "PKG",212,22,1,"PAH",1,1,168,0) "PKG",212,22,1,"PAH",1,1,169,0) "PKG",212,22,1,"PAH",1,1,170,0) The following checksums can be checked with CHECK1^XTSUMBLD: "PKG",212,22,1,"PAH",1,1,171,0) "PKG",212,22,1,"PAH",1,1,172,0) Routine Before After Patch List "PKG",212,22,1,"PAH",1,1,173,0) ------- ----------- ------------ --------------------------------- "PKG",212,22,1,"PAH",1,1,174,0) C0QQRDA 89943644 **4** "PKG",212,22,1,"PAH",1,1,175,0) "PKG",212,22,1,"PAH",1,1,176,0) Documentation: "PKG",212,22,1,"PAH",1,1,177,0) ============== "PKG",212,22,1,"PAH",1,1,178,0) None at this moment. "PKG",212,22,1,"PAH",1,1,179,0) "PKG",212,22,1,"PAH",1,1,180,0) Test Sites: "PKG",212,22,1,"PAH",1,1,181,0) =========== "PKG",212,22,1,"PAH",1,1,182,0) None at this moment. "PKG",212,22,1,"PAH",1,1,183,0) "PKG",212,22,1,"PAH",1,1,184,0) Compliance: "PKG",212,22,1,"PAH",1,1,185,0) =========== "PKG",212,22,1,"PAH",1,1,186,0) This software complies with the VA MUMPS Programming Standards and "PKG",212,22,1,"PAH",1,1,187,0) Conventions (version 3 April 2007). "PKG",212,22,1,"PAH",1,1,188,0) "PKG",212,22,1,"PAH",1,1,189,0) Installation Instructions: "PKG",212,22,1,"PAH",1,1,190,0) ========================== "PKG",212,22,1,"PAH",1,1,191,0) Install Time - less than 1 minute "PKG",212,22,1,"PAH",1,1,192,0) "PKG",212,22,1,"PAH",1,1,193,0) 1. LOAD TRANSPORT GLOBAL "PKG",212,22,1,"PAH",1,1,194,0) "PKG",212,22,1,"PAH",1,1,195,0) Choose the PackMan message containing this patch and invoke the "PKG",212,22,1,"PAH",1,1,196,0) INSTALL/CHECK MESSAGE PackMan option to unload the build. "PKG",212,22,1,"PAH",1,1,197,0) "PKG",212,22,1,"PAH",1,1,198,0) 2. START UP KIDS "PKG",212,22,1,"PAH",1,1,199,0) "PKG",212,22,1,"PAH",1,1,200,0) Start up the Kernel Installation and Distribution System Menu "PKG",212,22,1,"PAH",1,1,201,0) [XPD MAIN]: "PKG",212,22,1,"PAH",1,1,202,0) "PKG",212,22,1,"PAH",1,1,203,0) Edits and Distribution ... "PKG",212,22,1,"PAH",1,1,204,0) Utilities ... "PKG",212,22,1,"PAH",1,1,205,0) Installation ... "PKG",212,22,1,"PAH",1,1,206,0) "PKG",212,22,1,"PAH",1,1,207,0) Select Kernel Installation & Distribution System Option: INStallation "PKG",212,22,1,"PAH",1,1,208,0) --- "PKG",212,22,1,"PAH",1,1,209,0) Load a Distribution "PKG",212,22,1,"PAH",1,1,210,0) Print Transport Global "PKG",212,22,1,"PAH",1,1,211,0) Compare Transport Global to Current System "PKG",212,22,1,"PAH",1,1,212,0) Verify Checksums in Transport Global "PKG",212,22,1,"PAH",1,1,213,0) Install Package(s) "PKG",212,22,1,"PAH",1,1,214,0) Restart Install of Package(s) "PKG",212,22,1,"PAH",1,1,215,0) Unload a Distribution "PKG",212,22,1,"PAH",1,1,216,0) Backup a Transport Global "PKG",212,22,1,"PAH",1,1,217,0) "PKG",212,22,1,"PAH",1,1,218,0) Select Installation Option: "PKG",212,22,1,"PAH",1,1,219,0) "PKG",212,22,1,"PAH",1,1,220,0) 3. Select Installation Option: "PKG",212,22,1,"PAH",1,1,221,0) "PKG",212,22,1,"PAH",1,1,222,0) NOTE: The following are OPTIONAL - (When prompted for the INSTALL "PKG",212,22,1,"PAH",1,1,223,0) NAME, enter C0Q*1.0*4): "PKG",212,22,1,"PAH",1,1,224,0) "PKG",212,22,1,"PAH",1,1,225,0) a. Backup a Transport Global - This option will create a backup "PKG",212,22,1,"PAH",1,1,226,0) message of any routines exported with this patch. It will not "PKG",212,22,1,"PAH",1,1,227,0) backup any other changes such as DD's or templates. "PKG",212,22,1,"PAH",1,1,228,0) b. Compare Transport Global to Current System - This option will "PKG",212,22,1,"PAH",1,1,229,0) allow you to view all changes that will be made when this patch "PKG",212,22,1,"PAH",1,1,230,0) is installed. It compares all components of this patch "PKG",212,22,1,"PAH",1,1,231,0) (routines, DD's, templates, etc.). "PKG",212,22,1,"PAH",1,1,232,0) c. Verify Checksums in Transport Global - This option will allow "PKG",212,22,1,"PAH",1,1,233,0) you to ensure the integrity of the routines that are in the "PKG",212,22,1,"PAH",1,1,234,0) transport global. "PKG",212,22,1,"PAH",1,1,235,0) "PKG",212,22,1,"PAH",1,1,236,0) 4. Select Installation Option: Install Package(s) "PKG",212,22,1,"PAH",1,1,237,0) "PKG",212,22,1,"PAH",1,1,238,0) **This is the step to start the installation of this KIDS patch: "PKG",212,22,1,"PAH",1,1,239,0) "PKG",212,22,1,"PAH",1,1,240,0) a. Choose the Install Package(s) option to start the patch install "PKG",212,22,1,"PAH",1,1,241,0) and enter "C0Q*1.0*4" at the INSTALL NAME prompt. "PKG",212,22,1,"PAH",1,1,242,0) b. When asked, 'Shall I write over your C0Q MEASUREMENTS File? YES//' "PKG",212,22,1,"PAH",1,1,243,0) Answer YES. The file is just renamed, that's why KIDS asks you to "PKG",212,22,1,"PAH",1,1,244,0) overwrite it. "PKG",212,22,1,"PAH",1,1,245,0) c. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of "PKG",212,22,1,"PAH",1,1,246,0) Install? YES//' answer YES "PKG",212,22,1,"PAH",1,1,247,0) d. When prompted 'Want KIDS to INHIBIT LOGONs during the install? "PKG",212,22,1,"PAH",1,1,248,0) NO//' answer NO "PKG",212,22,1,"PAH",1,1,249,0) e. When prompted 'Want to DISABLE Scheduled Options, Menu Options, "PKG",212,22,1,"PAH",1,1,250,0) and Protocols? NO//' answer NO "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") YES "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","C0QQRDA") 0^1^B89943644 "RTN","C0QQRDA",1,0) C0QQRDA ; GPL - Quality Reporting QRDA Processing ; 8/24/12 12:41pm "RTN","C0QQRDA",2,0) ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28 "RTN","C0QQRDA",3,0) ;Copyright 2012 George Lilly. Licensed under the terms of the GNU "RTN","C0QQRDA",4,0) ;General Public License See attached copy of the License. "RTN","C0QQRDA",5,0) ; "RTN","C0QQRDA",6,0) ;This program is free software; you can redistribute it and/or modify "RTN","C0QQRDA",7,0) ;it under the terms of the GNU General Public License as published by "RTN","C0QQRDA",8,0) ;the Free Software Foundation; either version 2 of the License, or "RTN","C0QQRDA",9,0) ;(at your option) any later version. "RTN","C0QQRDA",10,0) ; "RTN","C0QQRDA",11,0) ;This program is distributed in the hope that it will be useful, "RTN","C0QQRDA",12,0) ;but WITHOUT ANY WARRANTY; without even the implied warranty of "RTN","C0QQRDA",13,0) ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the "RTN","C0QQRDA",14,0) ;GNU General Public License for more details. "RTN","C0QQRDA",15,0) ; "RTN","C0QQRDA",16,0) ;You should have received a copy of the GNU General Public License along "RTN","C0QQRDA",17,0) ;with this program; if not, write to the Free Software Foundation, Inc., "RTN","C0QQRDA",18,0) ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. "RTN","C0QQRDA",19,0) ; "RTN","C0QQRDA",20,0) EN ; Private to this Package; Main Entry Point for this routine "RTN","C0QQRDA",21,0) ; This EP is interactive or silent depending on params "RTN","C0QQRDA",22,0) ; "RTN","C0QQRDA",23,0) ; Check for config errors first; try to set-up. "RTN","C0QQRDA",24,0) N % S %=$$CHECKPAR() "RTN","C0QQRDA",25,0) I +%=1 D EN^DDIOL($P(%,U,2)) QUIT ; No inpatient pars found... QUIT "RTN","C0QQRDA",26,0) ; "RTN","C0QQRDA",27,0) N C0QFAIL S C0QFAIL=0 "RTN","C0QQRDA",28,0) I +%=2 D ; No QRDA Measure Sets... try to set it up. "RTN","C0QQRDA",29,0) . D EN^DDIOL("Trying to automatically set-up measure sets in parameters") "RTN","C0QQRDA",30,0) . N % S %=$$SETUPPAR($$INPPARM()) "RTN","C0QQRDA",31,0) . I % D EN^DDIOL("Failed to set-up..."_$P(%,U,2)) S C0QFAIL=1 "RTN","C0QQRDA",32,0) . E D EN^DDIOL("...Set-up complete",""),EN^DDIOL("","","!!!") "RTN","C0QQRDA",33,0) ; "RTN","C0QQRDA",34,0) I C0QFAIL QUIT "RTN","C0QQRDA",35,0) ; "RTN","C0QQRDA",36,0) ; Print Intro "RTN","C0QQRDA",37,0) N % "RTN","C0QQRDA",38,0) S %(1)="This program collects patients from the denominators of the measures" "RTN","C0QQRDA",39,0) S %(2)="STK, VTE, and ED and outputs modified CCR files to the kernel default" "RTN","C0QQRDA",40,0) S %(3)="directory (probably /tmp/)." "RTN","C0QQRDA",41,0) S %(4)="" "RTN","C0QQRDA",42,0) S %(5)="This will take some time to execute." "RTN","C0QQRDA",43,0) S %(6)="" "RTN","C0QQRDA",44,0) S %(6,"F")="!!!" "RTN","C0QQRDA",45,0) ; "RTN","C0QQRDA",46,0) D EN^DDIOL(.%) "RTN","C0QQRDA",47,0) ; "RTN","C0QQRDA",48,0) ; Ask user which measure set to run "RTN","C0QQRDA",49,0) N DIR,DTOUT,DUOUT,X,Y,DIRUT,DIROUT,DA ; DIR variables "RTN","C0QQRDA",50,0) S DIR(0)="SB^V:VTE;S:STK;E:ED;A:ALL" "RTN","C0QQRDA",51,0) S DIR("A")="Measure to calculate" "RTN","C0QQRDA",52,0) S DIR("A",1)="Which measure set would you like to produce QRDA documents for?" "RTN","C0QQRDA",53,0) S DIR("A",2)="Choose to Run [V]TE Measure Set, [S]TK Measure Set, or " "RTN","C0QQRDA",54,0) S DIR("A",3)="[E]D Measure Set. Or you can choose to run [A]ll of them." "RTN","C0QQRDA",55,0) D ^DIR "RTN","C0QQRDA",56,0) ; "RTN","C0QQRDA",57,0) I $G(DTOUT)!$G(DUOUT) QUIT ; Did user hit '^' or time out? "RTN","C0QQRDA",58,0) ; "RTN","C0QQRDA",59,0) ; Get the Measure Set IEN which the user has seleted. "RTN","C0QQRDA",60,0) ; NB: field names start with VTE, STK, or ED; so I can use the output "RTN","C0QQRDA",61,0) ; of DIR directly. "RTN","C0QQRDA",62,0) ; "RTN","C0QQRDA",63,0) N FLD S FLD=Y(0) ; Grab full text of user choice into var "FLD" for field. "RTN","C0QQRDA",64,0) N C0QMSIENS ; Measure set IENs (^ piece); (0) stores the identifier for file names "RTN","C0QQRDA",65,0) ;looks like this in the end "RTN","C0QQRDA",66,0) ; C0QMSIENS=1^3^5 "RTN","C0QQRDA",67,0) ; C0QMSIENS(0)="ED^VTE^STK" "RTN","C0QQRDA",68,0) ; "RTN","C0QQRDA",69,0) N INPPARM S INPPARM=$$INPPARM() ; Inpatient Parameter IEN in 401 "RTN","C0QQRDA",70,0) ; "RTN","C0QQRDA",71,0) ; If not all, grab the measure set; else, grab all of them in ^ pieces "RTN","C0QQRDA",72,0) I FLD'="ALL" D "RTN","C0QQRDA",73,0) . S C0QMSIENS=$$GET1^DIQ(1130580001.401,INPPARM,FLD,"I") "RTN","C0QQRDA",74,0) . S C0QMSIENS(0)=FLD "RTN","C0QQRDA",75,0) ; "RTN","C0QQRDA",76,0) E D "RTN","C0QQRDA",77,0) . N C0QED S C0QED=$$GET1^DIQ(1130580001.401,INPPARM,"ED","I") "RTN","C0QQRDA",78,0) . N C0QVTE S C0QVTE=$$GET1^DIQ(1130580001.401,INPPARM,"VTE","I") "RTN","C0QQRDA",79,0) . N C0QSTK S C0QSTK=$$GET1^DIQ(1130580001.401,INPPARM,"STK","I") "RTN","C0QQRDA",80,0) . S C0QMSIENS=C0QED_U_C0QVTE_U_C0QSTK "RTN","C0QQRDA",81,0) . S C0QMSIENS(0)="ED"_U_"VTE"_U_"STK" "RTN","C0QQRDA",82,0) ; "RTN","C0QQRDA",83,0) ; "RTN","C0QQRDA",84,0) S:'C0QMSIENS $EC=",U1," ; Debug.Assert that MSIEN is numeric. "RTN","C0QQRDA",85,0) ; "RTN","C0QQRDA",86,0) ; "RTN","C0QQRDA",87,0) ; Do the work "RTN","C0QQRDA",88,0) N C0QI ; Counter through the measures "RTN","C0QQRDA",89,0) F C0QI=1:1:$L(C0QMSIENS,U) D "RTN","C0QQRDA",90,0) . N MSIEN S MSIEN=$P(C0QMSIENS,U,C0QI) ; Measure Set IEN "RTN","C0QQRDA",91,0) . N MSNAME S MSNAME=$P(C0QMSIENS(0),U,C0QI) ; Measure Set Name "RTN","C0QQRDA",92,0) . N REF S REF=$NAME(^TMP("C0QQRDA",$J)) ; Global for data collection "RTN","C0QQRDA",93,0) . K @REF ; Clear global "RTN","C0QQRDA",94,0) . D WORK(REF,MSIEN) ; Process Measure Set, collect data in global "RTN","C0QQRDA",95,0) . D PRINTXML(REF,MSNAME) ; Generate XML; output to File. "RTN","C0QQRDA",96,0) . K @REF ; Clear global "RTN","C0QQRDA",97,0) QUIT "RTN","C0QQRDA",98,0) ; "RTN","C0QQRDA",99,0) ;SILENTEN(RETURN) ; For future RPC calls...; needs to be reworked. "RTN","C0QQRDA",100,0) ; N % S %=$$CHECKPAR() "RTN","C0QQRDA",101,0) ; I % S RETURN(0)=% Q "RTN","C0QQRDA",102,0) ; "RTN","C0QQRDA",103,0) ; N DIQUIET S DIQUIET=1 "RTN","C0QQRDA",104,0) ; D EN "RTN","C0QQRDA",105,0) ; S RETURN(0)=0 "RTN","C0QQRDA",106,0) ; QUIT "RTN","C0QQRDA",107,0) ; "RTN","C0QQRDA",108,0) CHECKPAR() ; Private Proc; Check if environment is okay. "RTN","C0QQRDA",109,0) ; Output: 0 or +ve^message for error "RTN","C0QQRDA",110,0) ; 1 -> No Inpatient Parameters found "RTN","C0QQRDA",111,0) ; 2 -> Measurement Set(s) not found. "RTN","C0QQRDA",112,0) ; "RTN","C0QQRDA",113,0) N INPPARM S INPPARM=$$INPPARM() ; Inpatient Parameters IEN "RTN","C0QQRDA",114,0) I 'INPPARM Q 1_U_"No Inpatient Parameters found" "RTN","C0QQRDA",115,0) ; "RTN","C0QQRDA",116,0) ; Pointer fields to Measurement Set file, we grab the IENs "RTN","C0QQRDA",117,0) N C0QED S C0QED=$$GET1^DIQ(1130580001.401,INPPARM,"ED","I") "RTN","C0QQRDA",118,0) N C0QSTK S C0QSTK=$$GET1^DIQ(1130580001.401,INPPARM,"STK","I") "RTN","C0QQRDA",119,0) N C0QVTE S C0QVTE=$$GET1^DIQ(1130580001.401,INPPARM,"VTE","I") "RTN","C0QQRDA",120,0) ; "RTN","C0QQRDA",121,0) N TXT S TXT="" ; Error text "RTN","C0QQRDA",122,0) I 'C0QED S TXT=TXT_"ED," "RTN","C0QQRDA",123,0) I 'C0QSTK S TXT=TXT_"STK," "RTN","C0QQRDA",124,0) I 'C0QVTE S TXT=TXT_"VTE" "RTN","C0QQRDA",125,0) I $E(TXT,$L(TXT))="," S TXT=$E(TXT,1,$L(TXT)-1) ; remove trailing comma "RTN","C0QQRDA",126,0) I $L(TXT) Q 2_U_"Measure Sets missing from parameters: "_TXT "RTN","C0QQRDA",127,0) ; "RTN","C0QQRDA",128,0) QUIT 0 ; All okay "RTN","C0QQRDA",129,0) ; "RTN","C0QQRDA",130,0) SETUPPAR(INPPARM) ; Private Proc; Set-up QRDA lists if Inpatient Param is found. "RTN","C0QQRDA",131,0) ; Input: Inpatient Parameter IEN in C0Q(401, -> C0Q Parameters "RTN","C0QQRDA",132,0) ; Output: 0 if okay or 1^error description "RTN","C0QQRDA",133,0) N C0QFDA "RTN","C0QQRDA",134,0) ; "RTN","C0QQRDA",135,0) N VTEIEN S VTEIEN=$O(^C0Q(201,"B","VTE CMS REPORTING MEASURES","")) "RTN","C0QQRDA",136,0) I 'VTEIEN QUIT 1_U_"VTE not found" "RTN","C0QQRDA",137,0) N STKIEN S STKIEN=$O(^C0Q(201,"B","STK CMS REPORTING MEASURES","")) "RTN","C0QQRDA",138,0) I 'STKIEN QUIT 1_U_"STK not found" "RTN","C0QQRDA",139,0) N EDIEN S EDIEN=$O(^C0Q(201,"B","ED CMS REPORTING MEASURES","")) "RTN","C0QQRDA",140,0) I 'EDIEN QUIT 1_U_"ED not found" "RTN","C0QQRDA",141,0) ; "RTN","C0QQRDA",142,0) S C0QFDA(1130580001.401,INPPARM_",",5.1)=VTEIEN "RTN","C0QQRDA",143,0) S C0QFDA(1130580001.401,INPPARM_",",5.2)=STKIEN "RTN","C0QQRDA",144,0) S C0QFDA(1130580001.401,INPPARM_",",5.3)=EDIEN "RTN","C0QQRDA",145,0) ; "RTN","C0QQRDA",146,0) N C0QERR "RTN","C0QQRDA",147,0) D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR)) "RTN","C0QQRDA",148,0) I $D(C0QERR) Q 2_U_C0QERR("DIERR",1,"TEXT",1) "RTN","C0QQRDA",149,0) Q 0 "RTN","C0QQRDA",150,0) ; "RTN","C0QQRDA",151,0) WORK(C0QREF,C0QMSIEN) ; Private Proc; Process Measure Sets; Collect the data. "RTN","C0QQRDA",152,0) ; Input/Output: C0QREF -> Global for Output passed by Name "RTN","C0QQRDA",153,0) ; C0QMSIEN -> (Input): Measurement Set IEN to calculate "RTN","C0QQRDA",154,0) ; "RTN","C0QQRDA",155,0) ; Print "RTN","C0QQRDA",156,0) D EN^DDIOL(C0QMSIEN_": "_^C0Q(201,C0QMSIEN,0)) "RTN","C0QQRDA",157,0) D EN^DDIOL("") "RTN","C0QQRDA",158,0) ; "RTN","C0QQRDA",159,0) ; Calculate totals and move patients over from individual measures "RTN","C0QQRDA",160,0) N A "RTN","C0QQRDA",161,0) D UPDATE^C0QUPDT(.A,C0QMSIEN) ; FYI: A isn't used. "RTN","C0QQRDA",162,0) ; "RTN","C0QQRDA",163,0) ; Get QRDA code for Measure Set. "RTN","C0QQRDA",164,0) N C0QMSQRDA S C0QMSQRDA=$$GET1^DIQ($$C0QMFN^C0QUPDT(),C0QMSIEN_",","QRDA TEMPLATE ROOT") "RTN","C0QQRDA",165,0) ; "RTN","C0QQRDA",166,0) N C0QI S C0QI=0 ; Fileman IEN looper "RTN","C0QQRDA",167,0) F S C0QI=$O(^C0Q(201,C0QMSIEN,5,C0QI)) Q:'C0QI D ; For each measure in Measure Set "RTN","C0QQRDA",168,0) . ; "RTN","C0QQRDA",169,0) . ; Get QRDA code using relational jump "RTN","C0QQRDA",170,0) . N C0QMEASUREQRDA S C0QMEASUREQRDA=$$GET1^DIQ($$C0QMMFN^C0QUPDT(),C0QI_","_C0QMSIEN_",",".01:QRDA TEMPLATE ROOT") "RTN","C0QQRDA",171,0) . ; "RTN","C0QQRDA",172,0) . ; Then collect patients in the denominator, and store in output global "RTN","C0QQRDA",173,0) . N C0QP S C0QP=0 "RTN","C0QQRDA",174,0) . F S C0QP=$O(^C0Q(201,C0QMSIEN,5,C0QI,3,C0QP)) Q:'C0QP D ; For each patient in denominator "RTN","C0QQRDA",175,0) . . N C0QDFN S C0QDFN=+^(C0QP,0) "RTN","C0QQRDA",176,0) . . S @C0QREF@(C0QDFN,C0QMSQRDA,C0QMEASUREQRDA)="" "RTN","C0QQRDA",177,0) QUIT "RTN","C0QQRDA",178,0) ; "RTN","C0QQRDA",179,0) INPPARM() ; $$ Private; Get Inpatient Parameters IEN "RTN","C0QQRDA",180,0) ; Output: IEN of Inpatient Parameter in C0Q PARAMETER file "RTN","C0QQRDA",181,0) ; "RTN","C0QQRDA",182,0) ; Browse this tree of xrefs to get the IEN of INP type (last line here). "RTN","C0QQRDA",183,0) ; ^C0Q(401,"B","INPATIENT",2)="" "RTN","C0QQRDA",184,0) ; ^C0Q(401,"B","OUTPATIENT",1)="" "RTN","C0QQRDA",185,0) ; ^C0Q(401,"MU","MU12",1)="" "RTN","C0QQRDA",186,0) ; ^C0Q(401,"MU","MU12",2)="" "RTN","C0QQRDA",187,0) ; ^C0Q(401,"MUTYP","MU12","EP",1)="" "RTN","C0QQRDA",188,0) ; ^C0Q(401,"MUTYP","MU12","INP",2)="" "RTN","C0QQRDA",189,0) ; "RTN","C0QQRDA",190,0) N MUID S MUID="" ; Looper for MU Year ID "RTN","C0QQRDA",191,0) N FOUND S FOUND=0 ; Found flag to get out of loop "RTN","C0QQRDA",192,0) N IEN ; Output variable "RTN","C0QQRDA",193,0) F S MUID=$O(^C0Q(401,"MUTYP",MUID),-1) Q:MUID="" Q:FOUND D ; Loop backwards "RTN","C0QQRDA",194,0) . N TYP S TYP="" ; Type ("EP" or "INP") "RTN","C0QQRDA",195,0) . F S TYP=$O(^C0Q(401,"MUTYP",MUID,TYP)) Q:TYP="" Q:FOUND D "RTN","C0QQRDA",196,0) . . I TYP="INP" S IEN=$O(^(TYP,"")),FOUND=1 Q ; If found, get IEN, quit out of loops "RTN","C0QQRDA",197,0) QUIT +$G(IEN) "RTN","C0QQRDA",198,0) ; "RTN","C0QQRDA",199,0) PRINTXML(C0QREF,C0QMNM) ; Print the XML; Private Proc "RTN","C0QQRDA",200,0) ; Input: C0QREF -> Global By Name "RTN","C0QQRDA",201,0) ; C0QMNM -> Measure Name -> Either VTE, STK, ED. For use in filenames. "RTN","C0QQRDA",202,0) ; Output: modified CCRs are saved in /tmp/ "RTN","C0QQRDA",203,0) N C0QDFN,C0QMS,C0QM S (C0QDFN,C0QMS,C0QM)="" ; DFN, Measure Set, Measure loopers "RTN","C0QQRDA",204,0) F S C0QDFN=$O(@C0QREF@(C0QDFN)) Q:C0QDFN="" D ; For each patient "RTN","C0QQRDA",205,0) . ; "RTN","C0QQRDA",206,0) . N GREEN S GREEN=$C(27)_"[1;37;42m" "RTN","C0QQRDA",207,0) . N RESET S RESET=$C(27)_"[0m" "RTN","C0QQRDA",208,0) . D EN^DDIOL(GREEN_"Prosessing DFN "_C0QDFN_RESET,"","!!!") "RTN","C0QQRDA",209,0) . D EN^DDIOL("","","!") "RTN","C0QQRDA",210,0) . ; "RTN","C0QQRDA",211,0) . ; CCR Generatation is next; protected against crashes. "RTN","C0QQRDA",212,0) . ; ET set to new value then restored. "RTN","C0QQRDA",213,0) . N C0QCCRXML ; CCR XML "RTN","C0QQRDA",214,0) . N OLDTRAP S OLDTRAP=$ET "RTN","C0QQRDA",215,0) . ; ET: Rollback to this level, write the error in red , clear it, then quit "RTN","C0QQRDA",216,0) . N ETTEXT S ETTEXT=$C(27)_"[1;37;41m"_$$EC^%ZOSV_$C(27)_RESET "RTN","C0QQRDA",217,0) . N $ES,$ET "RTN","C0QQRDA",218,0) . S $ET="W ETTEXT D ^%ZTER G ROLLDOWN^C0QQRDA" "RTN","C0QQRDA",219,0) . D CCRRPC^C0CCCR(.C0QCCRXML,C0QDFN) ; Run CCR RPC. "RTN","C0QQRDA",220,0) . S $ET=OLDTRAP "RTN","C0QQRDA",221,0) . ; "RTN","C0QQRDA",222,0) . ; "RTN","C0QQRDA",223,0) . ; Quality XML Section generated by hand next... "RTN","C0QQRDA",224,0) . N C0QXML ; Generated Quality XML "RTN","C0QQRDA",225,0) . D XMLSTORE(.C0QXML,$$OT("QUALITY")) ; Open Tag "RTN","C0QQRDA",226,0) . F S C0QMS=$O(@C0QREF@(C0QDFN,C0QMS)) Q:C0QMS="" D ; For each measure set "RTN","C0QQRDA",227,0) . . D XMLSTORE(.C0QXML,$$OT("MEASURE_SET")) ; Open tag "RTN","C0QQRDA",228,0) . . D XMLSTORE(.C0QXML,$$TAG("ID",C0QMS)) ; Write out set QRDA code "RTN","C0QQRDA",229,0) . . D XMLSTORE(.C0QXML,$$OT("MEASURES")) ; Open tag "RTN","C0QQRDA",230,0) . . F S C0QM=$O(@C0QREF@(C0QDFN,C0QMS,C0QM)) Q:C0QM="" D ; for each measure "RTN","C0QQRDA",231,0) . . . D XMLSTORE(.C0QXML,$$TAG("MEASURE",C0QM)) ; Write and qrda code "RTN","C0QQRDA",232,0) . . D XMLSTORE(.C0QXML,$$CT("MEASURES")) ; Close tag "RTN","C0QQRDA",233,0) . . D XMLSTORE(.C0QXML,$$CT("MEASURE_SET")) ; Close tag "RTN","C0QQRDA",234,0) . D XMLSTORE(.C0QXML,$$CT("QUALITY")) ; Close tag "RTN","C0QQRDA",235,0) . ; "RTN","C0QQRDA",236,0) . ; "RTN","C0QQRDA",237,0) . ; Insert Quality XML under the root of the CCR document "RTN","C0QQRDA",238,0) . D INSERT^C0CXPATH($NA(C0QCCRXML),$NA(C0QXML),"//ContinuityOfCareRecord") "RTN","C0QQRDA",239,0) . ; "RTN","C0QQRDA",240,0) . ; "RTN","C0QQRDA",241,0) . ; Get Kernel Default Directory "RTN","C0QQRDA",242,0) . N DEFDIR S DEFDIR=$$DEFDIR^%ZISH() "RTN","C0QQRDA",243,0) . ; "RTN","C0QQRDA",244,0) . ; "RTN","C0QQRDA",245,0) . ; Write out to a file. "RTN","C0QQRDA",246,0) . N FN S FN=C0QMNM_"_QRDA_CCR_DFN"_$$RJ^XLFSTR(C0QDFN,10,"0")_".XML" ; File Name "RTN","C0QQRDA",247,0) . K C0QCCRXML(0) ; remove zero node; API doesn't support it. "RTN","C0QQRDA",248,0) . D EN^DDIOL($$OUTPUT^C0CXPATH($NA(C0QCCRXML(1)),FN,DEFDIR)) "RTN","C0QQRDA",249,0) QUIT "RTN","C0QQRDA",250,0) ; "RTN","C0QQRDA",251,0) ; Quick XML stuff ; All Private "RTN","C0QQRDA",252,0) OT(STR) Q "<"_STR_">" ; $$ Open Tag "RTN","C0QQRDA",253,0) CT(STR) Q "" ; $$ Close Tag "RTN","C0QQRDA",254,0) TAG(NM,CONTENT) Q "<"_NM_">"_CONTENT_"" ; $$ Whole tag "RTN","C0QQRDA",255,0) ; "RTN","C0QQRDA",256,0) XMLSTORE(REF,STR) ; Priv Proc - Store XML "RTN","C0QQRDA",257,0) ; REF -> Save Array. Pass by Reference. "RTN","C0QQRDA",258,0) ; STR -> What to store. Pass by Value. "RTN","C0QQRDA",259,0) ; Use like this: D XMLSTORE(.STORE,"") "RTN","C0QQRDA",260,0) ; Output: STORE(1)="" "RTN","C0QQRDA",261,0) N L ; Number Subscript to use "RTN","C0QQRDA",262,0) S L=$O(REF(" "),-1) S L=L+1 ; Get last number and increment "RTN","C0QQRDA",263,0) S REF(L)=STR,REF(0)=L ; Store string in numbered sub, store last number in 0 node (not used here) "RTN","C0QQRDA",264,0) QUIT "RTN","C0QQRDA",265,0) ; "RTN","C0QQRDA",266,0) ; Following is for formatting printed XML. L passed in Symbol Table and starts at 0. "RTN","C0QQRDA",267,0) L1 D WS S L=L+1 Q ; Write space and increment "RTN","C0QQRDA",268,0) L2 S L=L-1 D WS Q ; Decrement and Write space "RTN","C0QQRDA",269,0) WS X "F I=1:1:L W "" """ Q ; Write Space "RTN","C0QQRDA",270,0) ; This is for rolling down the stack to the $ES level "RTN","C0QQRDA",271,0) ROLLDOWN S $ET="Q:$ES S $EC=""""",$EC=",U99," QUIT "SEC","^DD",1130580001.101,1130580001.101,3.1,9) "SEC","^DIC",1130580001.101,1130580001.101,0,"AUDIT") @ "SEC","^DIC",1130580001.101,1130580001.101,0,"DD") @ "SEC","^DIC",1130580001.101,1130580001.101,0,"DEL") @ "SEC","^DIC",1130580001.101,1130580001.101,0,"LAYGO") @ "SEC","^DIC",1130580001.101,1130580001.101,0,"RD") @ "SEC","^DIC",1130580001.101,1130580001.101,0,"WR") @ "SEC","^DIC",1130580001.201,1130580001.201,0,"AUDIT") @ "SEC","^DIC",1130580001.201,1130580001.201,0,"DD") @ "SEC","^DIC",1130580001.201,1130580001.201,0,"DEL") @ "SEC","^DIC",1130580001.201,1130580001.201,0,"LAYGO") @ "SEC","^DIC",1130580001.201,1130580001.201,0,"RD") @ "SEC","^DIC",1130580001.201,1130580001.201,0,"WR") @ "VER") 8.0^22.0 "^DD",1130580001.101,1130580001.101,0) FIELD^^.3^18 "^DD",1130580001.101,1130580001.101,0,"DDA") N "^DD",1130580001.101,1130580001.101,0,"DT") 3120731 "^DD",1130580001.101,1130580001.101,0,"ID",.7) W:$D(^(5)) " ",$P(^(5),U,1) "^DD",1130580001.101,1130580001.101,0,"IX","B",1130580001.101,.01) "^DD",1130580001.101,1130580001.101,0,"NM","C0Q QUALITY MEASURE") "^DD",1130580001.101,1130580001.101,0,"PT",1130580001.2011,.01) "^DD",1130580001.101,1130580001.101,0,"VRPK") C0Q "^DD",1130580001.101,1130580001.101,.01,0) NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X "^DD",1130580001.101,1130580001.101,.01,.1) MEASURE NAME "^DD",1130580001.101,1130580001.101,.01,1,0) ^.1 "^DD",1130580001.101,1130580001.101,.01,1,1,0) 1130580001.101^B "^DD",1130580001.101,1130580001.101,.01,1,1,1) S ^C0Q(101,"B",$E(X,1,30),DA)="" "^DD",1130580001.101,1130580001.101,.01,1,1,2) K ^C0Q(101,"B",$E(X,1,30),DA) "^DD",1130580001.101,1130580001.101,.01,3) Answer must be 1-30 characters in length "^DD",1130580001.101,1130580001.101,.01,"DT") 3101012 "^DD",1130580001.101,1130580001.101,.3,0) MU YEAR KEY^F^^7;6^K:$L(X)>30!($L(X)<1) X "^DD",1130580001.101,1130580001.101,.3,.1) MEANINGFUL USE YEAR KEY "^DD",1130580001.101,1130580001.101,.3,3) Answer must be 1-30 characters in length. "^DD",1130580001.101,1130580001.101,.3,"DT") 3111201 "^DD",1130580001.101,1130580001.101,.5,0) TITLE^F^^1;1^K:$L(X)>240!($L(X)<3) X "^DD",1130580001.101,1130580001.101,.5,.1) MEASURE TITLE "^DD",1130580001.101,1130580001.101,.5,3) Answer must be 3-240 characters in length "^DD",1130580001.101,1130580001.101,.5,"DT") 3110430 "^DD",1130580001.101,1130580001.101,.61,0) VERY LONG DESCRIPTION^1130580001.111^^6;0 "^DD",1130580001.101,1130580001.101,.7,0) DISPLAY NAME^F^^5;1^K:$L(X)>240!($L(X)<3) X "^DD",1130580001.101,1130580001.101,.7,.1) QRDA DISPLAY NAME "^DD",1130580001.101,1130580001.101,.7,3) Answer must be 3-240 characters in length "^DD",1130580001.101,1130580001.101,.7,"DT") 3101012 "^DD",1130580001.101,1130580001.101,.8,0) REPORTING NAME^F^^7;1^K:$L(X)>30!($L(X)<3) X "^DD",1130580001.101,1130580001.101,.8,.1) REPORTING MEASURE NAME "^DD",1130580001.101,1130580001.101,.8,3) Answer must be 3-30 characters in length "^DD",1130580001.101,1130580001.101,.8,"DT") 3110615 "^DD",1130580001.101,1130580001.101,1,0) NUMERATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;2^Q "^DD",1130580001.101,1130580001.101,1,.1) MEASURE NUMERATOR PATIENT LIST "^DD",1130580001.101,1130580001.101,1,"DT") 3101012 "^DD",1130580001.101,1130580001.101,1.1,0) ALTERNATIVE NUMERATOR LIST^P1130580001.301'^C0Q(301,^7;2^Q "^DD",1130580001.101,1130580001.101,1.1,"DT") 3110805 "^DD",1130580001.101,1130580001.101,1.2,0) NUMERATOR 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 "^DD",1130580001.101,1130580001.101,1.2,3) Enter the reminder rule set to use for this measure. "^DD",1130580001.101,1130580001.101,1.2,12) If the type of the reminder list rule is a Rule Set. "^DD",1130580001.101,1130580001.101,1.2,12.1) S DIC("S")="I $P(^(0),U,3)=3" "^DD",1130580001.101,1130580001.101,1.2,21,0) ^^5^5^3120716^ "^DD",1130580001.101,1130580001.101,1.2,21,1,0) This is the numerator reminder rule set to use for the quality measure. "^DD",1130580001.101,1130580001.101,1.2,21,2,0) "^DD",1130580001.101,1130580001.101,1.2,21,3,0) The rule set is used to generate a patient list, which this package "^DD",1130580001.101,1130580001.101,1.2,21,4,0) referneces. The contents of the patient list will produce the count for "^DD",1130580001.101,1130580001.101,1.2,21,5,0) the measure. This count is for the numerator. "^DD",1130580001.101,1130580001.101,1.2,"DT") 3120716 "^DD",1130580001.101,1130580001.101,1.5,0) NEGATIVE NUMERATOR LIST^P810.5'^PXRMXP(810.5,^7;4^Q "^DD",1130580001.101,1130580001.101,1.5,.1) LIST OF PATIENTS THAT DO NOT MEET THE REQUIREMENTS "^DD",1130580001.101,1130580001.101,1.5,"DT") 3110809 "^DD",1130580001.101,1130580001.101,1.51,0) ALTERNATE NEGATIVE NUM LIST^P1130580001.301'^C0Q(301,^7;5^Q "^DD",1130580001.101,1130580001.101,1.51,.1) NEGATIVE NUMERATOR LIST IN C0Q PATIENT LIST FILE "^DD",1130580001.101,1130580001.101,1.51,"DT") 3110809 "^DD",1130580001.101,1130580001.101,2,0) DENOMINATOR PATIENT LIST^P810.5'^PXRMXP(810.5,^0;3^Q "^DD",1130580001.101,1130580001.101,2,.1) MEASURE DENOMINATOR PATIENT LIST "^DD",1130580001.101,1130580001.101,2,"DT") 3101012 "^DD",1130580001.101,1130580001.101,2.1,0) ALTERNATIVE DENOMINATOR LIST^P1130580001.301'^C0Q(301,^7;3^Q "^DD",1130580001.101,1130580001.101,2.1,"DT") 3110805 "^DD",1130580001.101,1130580001.101,2.2,0) DENOMINATOR 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 "^DD",1130580001.101,1130580001.101,2.2,3) Enter the reminder rule set to use for this measure. "^DD",1130580001.101,1130580001.101,2.2,12) If the type of the reminder list rule is a Rule Set. "^DD",1130580001.101,1130580001.101,2.2,12.1) S DIC("S")="I $P(^(0),U,3)=3" "^DD",1130580001.101,1130580001.101,2.2,21,0) ^^5^5^3120716^ "^DD",1130580001.101,1130580001.101,2.2,21,1,0) This is the denominator reminder rule set to use for the quality measure. "^DD",1130580001.101,1130580001.101,2.2,21,2,0) "^DD",1130580001.101,1130580001.101,2.2,21,3,0) The rule set is used to generate a patient list, which this package "^DD",1130580001.101,1130580001.101,2.2,21,4,0) referneces. The contents of the patient list will produce the count for "^DD",1130580001.101,1130580001.101,2.2,21,5,0) the measure. This count is for the denominator. "^DD",1130580001.101,1130580001.101,2.2,"DT") 3120716 "^DD",1130580001.101,1130580001.101,2.5,0) EXTRACT DEFINITION^P810.2'^PXRM(810.2,^7;9^Q "^DD",1130580001.101,1130580001.101,2.5,3) Select a Reminder Extract Definition for this measure "^DD",1130580001.101,1130580001.101,2.5,21,0) ^^4^4^3120726^ "^DD",1130580001.101,1130580001.101,2.5,21,1,0) If this measure depends upon a reminder extract definition, you can add "^DD",1130580001.101,1130580001.101,2.5,21,2,0) this extract definition here. This will alter how the Quality Measures "^DD",1130580001.101,1130580001.101,2.5,21,3,0) package computes the measure to use the extract in addition and prior to "^DD",1130580001.101,1130580001.101,2.5,21,4,0) the rule sets. "^DD",1130580001.101,1130580001.101,2.5,"DT") 3120726 "^DD",1130580001.101,1130580001.101,3,0) QRDA TEMPLATE ROOT^F^^0;4^K:$L(X)>120!($L(X)<3) X "^DD",1130580001.101,1130580001.101,3,.1) "^DD",1130580001.101,1130580001.101,3,3) Answer must be 3-120 characters in length "^DD",1130580001.101,1130580001.101,3,21,0) ^^2^2^3120731^^ "^DD",1130580001.101,1130580001.101,3,21,1,0) Measure template root for the QRDA Document. A series of . delimited "^DD",1130580001.101,1130580001.101,3,21,2,0) numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1 "^DD",1130580001.101,1130580001.101,3,"DT") 3120731 "^DD",1130580001.101,1130580001.101,3.1,0) QRDA MEASURE SYSTEM OID^CJ^^ ; ^S X="2.16.840.1.113883.3.249.12" "^DD",1130580001.101,1130580001.101,3.1,.1) QRDA SYSTEM OID (FIXED) "^DD",1130580001.101,1130580001.101,3.1,9.01) "^DD",1130580001.101,1130580001.101,3.1,9.1) S X="2.16.840.1.113883.3.249.12" "^DD",1130580001.101,1130580001.101,3.1,"DT") 3101012 "^DD",1130580001.101,1130580001.101,3.2,0) QRDA CODE^F^^4;1^K:$L(X)>80!($L(X)<1) X "^DD",1130580001.101,1130580001.101,3.2,.1) QRDA MEASURE CODE "^DD",1130580001.101,1130580001.101,3.2,3) Answer must be 1-80 characters in length "^DD",1130580001.101,1130580001.101,3.2,"DT") 3101012 "^DD",1130580001.101,1130580001.111,0) VERY LONG DESCRIPTION SUB-FIELD^^.01^1 "^DD",1130580001.101,1130580001.111,0,"DT") 3101013 "^DD",1130580001.101,1130580001.111,0,"NM","VERY LONG DESCRIPTION") "^DD",1130580001.101,1130580001.111,0,"UP") 1130580001.101 "^DD",1130580001.101,1130580001.111,.01,0) VERY LONG DESCRIPTION^Wx^^0;1 "^DD",1130580001.101,1130580001.111,.01,.1) LONGER DESCRIPTION - IF IT DOESN'T FIT IN .6 "^DD",1130580001.101,1130580001.111,.01,3) LONGER DESCRIPTION - INSTEAD OF LONG DESCRIPTION "^DD",1130580001.101,1130580001.111,.01,"DT") 3101013 "^DD",1130580001.201,1130580001.201,0) FIELD^^.4^9 "^DD",1130580001.201,1130580001.201,0,"DDA") N "^DD",1130580001.201,1130580001.201,0,"DT") 3120801 "^DD",1130580001.201,1130580001.201,0,"IX","ADBYP",1130580001.20112,.01) "^DD",1130580001.201,1130580001.201,0,"IX","ANBYP",1130580001.20111,.01) "^DD",1130580001.201,1130580001.201,0,"IX","B",1130580001.201,.01) "^DD",1130580001.201,1130580001.201,0,"NM","C0Q MEASUREMENT SET") "^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1) "^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,1.1) "^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2) "^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,2.1) "^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.1) "^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.2) "^DD",1130580001.201,1130580001.201,0,"PT",1130580001.401,5.3) "^DD",1130580001.201,1130580001.201,.01,0) NAME^RFJ30^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X "^DD",1130580001.201,1130580001.201,.01,.1) "^DD",1130580001.201,1130580001.201,.01,1,0) ^.1 "^DD",1130580001.201,1130580001.201,.01,1,1,0) 1130580001.201^B "^DD",1130580001.201,1130580001.201,.01,1,1,1) S ^C0Q(201,"B",$E(X,1,30),DA)="" "^DD",1130580001.201,1130580001.201,.01,1,1,2) K ^C0Q(201,"B",$E(X,1,30),DA) "^DD",1130580001.201,1130580001.201,.01,3) Answer must be 3-30 characters in length. "^DD",1130580001.201,1130580001.201,.01,21,0) ^^1^1^3120731^ "^DD",1130580001.201,1130580001.201,.01,21,1,0) Measurement Set Name. "^DD",1130580001.201,1130580001.201,.01,"DT") 3120731 "^DD",1130580001.201,1130580001.201,.02,0) BEGIN DATE^D^^4;3^S %DT="E" D ^%DT S X=Y K:X<1 X "^DD",1130580001.201,1130580001.201,.02,.1) MEASUREMENT BEGIN DATE "^DD",1130580001.201,1130580001.201,.02,3) MEASUREMENT BEGIN DATE "^DD",1130580001.201,1130580001.201,.02,"DT") 3101012 "^DD",1130580001.201,1130580001.201,.03,0) END DATE^D^^4;4^S %DT="E" D ^%DT S X=Y K:X<1 X "^DD",1130580001.201,1130580001.201,.03,.1) MEASUREMENT END DATE "^DD",1130580001.201,1130580001.201,.03,3) MEASUREMENT END DATE "^DD",1130580001.201,1130580001.201,.03,"DT") 3101012 "^DD",1130580001.201,1130580001.201,.04,0) DATE LAST CALCULATED^D^^6;1^S %DT="E" D ^%DT S X=Y K:X<1 X "^DD",1130580001.201,1130580001.201,.04,.1) DATE LAST PROCESSED "^DD",1130580001.201,1130580001.201,.04,3) DATE LAST PROCESSED "^DD",1130580001.201,1130580001.201,.04,"DT") 3101012 "^DD",1130580001.201,1130580001.201,.05,0) LOCKED^S^Y:YES;N:NO;^6;2^Q "^DD",1130580001.201,1130580001.201,.05,.1) Y/N IS THIS RECORD SET LOCKED "^DD",1130580001.201,1130580001.201,.05,3) Y/N IS THIS RECORD SET LOCKED "^DD",1130580001.201,1130580001.201,.05,"DT") 3101012 "^DD",1130580001.201,1130580001.201,.2,0) USE ALL MEASURES^S^Y:YES;N:NO;^6;3^Q "^DD",1130580001.201,1130580001.201,.2,.1) INCLUDE ALL MEASURES IN THIS SET? "^DD",1130580001.201,1130580001.201,.2,3) INCLUDE ALL MEASURES IN THIS SET? "^DD",1130580001.201,1130580001.201,.2,"DT") 3101012 "^DD",1130580001.201,1130580001.201,.3,0) MU YEAR KEY^F^^7;1^K:$L(X)>240!($L(X)<1) X "^DD",1130580001.201,1130580001.201,.3,.1) MEANINGFUL USE YEAR KEY "^DD",1130580001.201,1130580001.201,.3,3) Answer must be 1-240 characters in length. "^DD",1130580001.201,1130580001.201,.3,"DT") 3111129 "^DD",1130580001.201,1130580001.201,.4,0) QRDA TEMPLATE ROOT^FJ120^^0;2^K:$L(X)>120!($L(X)<3) X "^DD",1130580001.201,1130580001.201,.4,3) Answer must be 3-120 characters in length. "^DD",1130580001.201,1130580001.201,.4,21,0) ^^6^6^3120731^ "^DD",1130580001.201,1130580001.201,.4,21,1,0) Measure template root for the Measurement Set. A series of . delimited "^DD",1130580001.201,1130580001.201,.4,21,2,0) numbers. E.g. 2.16.840.1.113883.3.249.11.14.1.1.1 "^DD",1130580001.201,1130580001.201,.4,21,3,0) "^DD",1130580001.201,1130580001.201,.4,21,4,0) Most measurement sets don't have that. Only measurement sets reporable as "^DD",1130580001.201,1130580001.201,.4,21,5,0) a group (e.g. Inpatient ED, VTE, Stroke measures) will have this filled "^DD",1130580001.201,1130580001.201,.4,21,6,0) out as it is reported in the QRDA document. "^DD",1130580001.201,1130580001.201,.4,"DT") 3120731 "^DD",1130580001.201,1130580001.201,1,0) MEASURE^1130580001.2011P^^5;0 "^DD",1130580001.201,1130580001.2011,0) MEASURE SUB-FIELD^^2.2^8 "^DD",1130580001.201,1130580001.2011,0,"DT") 3120801 "^DD",1130580001.201,1130580001.2011,0,"IX","B",1130580001.2011,.01) "^DD",1130580001.201,1130580001.2011,0,"NM","MEASURE") "^DD",1130580001.201,1130580001.2011,0,"UP") 1130580001.201 "^DD",1130580001.201,1130580001.2011,.01,0) MEASURE^MP1130580001.101'^C0Q(101,^0;1^Q "^DD",1130580001.201,1130580001.2011,.01,.1) "^DD",1130580001.201,1130580001.2011,.01,1,0) ^.1 "^DD",1130580001.201,1130580001.2011,.01,1,1,0) 1130580001.2011^B "^DD",1130580001.201,1130580001.2011,.01,1,1,1) S ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA)="" "^DD",1130580001.201,1130580001.2011,.01,1,1,2) K ^C0Q(201,DA(1),5,"B",$E(X,1,30),DA) "^DD",1130580001.201,1130580001.2011,.01,3) Included Quality Measures "^DD",1130580001.201,1130580001.2011,.01,"DT") 3120801 "^DD",1130580001.201,1130580001.2011,1,0) NUMERATOR^1130580001.20111P^^1;0 "^DD",1130580001.201,1130580001.2011,1.1,0) NUMERATOR COUNT^NJ10,0^^2;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1.N) X "^DD",1130580001.201,1130580001.2011,1.1,.1) NUMBER OF PATIENTS IN NUMERATOR "^DD",1130580001.201,1130580001.2011,1.1,3) NUMBER OF PATIENTS IN NUMERATOR "^DD",1130580001.201,1130580001.2011,1.1,"DT") 3101012 "^DD",1130580001.201,1130580001.2011,1.2,0) NUMERATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;3^Q "^DD",1130580001.201,1130580001.2011,1.2,.1) FILTER LIST FOR NUMERATOR "^DD",1130580001.201,1130580001.2011,1.2,"DT") 3111129 "^DD",1130580001.201,1130580001.2011,2,0) DENOMINATOR^1130580001.20112P^^3;0 "^DD",1130580001.201,1130580001.2011,2.1,0) DENOMINATOR COUNT^NJ9,0^^4;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1.N) X "^DD",1130580001.201,1130580001.2011,2.1,.1) NUMBER OF PATIENTS IN DENOMINATOR "^DD",1130580001.201,1130580001.2011,2.1,3) NUMBER OF PATIENTS IN DENOMINATOR "^DD",1130580001.201,1130580001.2011,2.1,"DT") 3101012 "^DD",1130580001.201,1130580001.2011,2.2,0) DENOMINATOR FILTER LIST^P1130580001.301'^C0Q(301,^4;4^Q "^DD",1130580001.201,1130580001.2011,2.2,.1) FILTER LIST FOR DENOMINATOR "^DD",1130580001.201,1130580001.2011,2.2,"DT") 3111129 "^DD",1130580001.201,1130580001.2011,3,0) PERCENTAGE^NJ6,2^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X "^DD",1130580001.201,1130580001.2011,3,.1) MEASURE PERCENTAGE "^DD",1130580001.201,1130580001.2011,3,3) Type a number between 0 and 100, 2 Decimal Digits "^DD",1130580001.201,1130580001.2011,3,"DT") 3110621 "^DD",1130580001.201,1130580001.20111,0) NUMERATOR SUB-FIELD^^.01^1 "^DD",1130580001.201,1130580001.20111,0,"DT") 3101012 "^DD",1130580001.201,1130580001.20111,0,"IX","B",1130580001.20111,.01) "^DD",1130580001.201,1130580001.20111,0,"NM","NUMERATOR") "^DD",1130580001.201,1130580001.20111,0,"UP") 1130580001.2011 "^DD",1130580001.201,1130580001.20111,.01,0) NUMERATOR^MP2'^DPT(^0;1^Q "^DD",1130580001.201,1130580001.20111,.01,.1) NUMERATOR PATIENTS "^DD",1130580001.201,1130580001.20111,.01,1,0) ^.1 "^DD",1130580001.201,1130580001.20111,.01,1,1,0) 1130580001.20111^B "^DD",1130580001.201,1130580001.20111,.01,1,1,1) S ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)="" "^DD",1130580001.201,1130580001.20111,.01,1,1,2) K ^C0Q(201,DA(2),5,DA(1),1,"B",$E(X,1,30),DA) "^DD",1130580001.201,1130580001.20111,.01,1,2,0) 1130580001.201^ANBYP "^DD",1130580001.201,1130580001.20111,.01,1,2,1) S ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA)="" "^DD",1130580001.201,1130580001.20111,.01,1,2,2) K ^C0Q(201,"ANBYP",$E(X,1,30),DA(2),DA(1),DA) "^DD",1130580001.201,1130580001.20111,.01,1,2,"DT") 3101014 "^DD",1130580001.201,1130580001.20111,.01,3) NUMERATOR PATIENTS "^DD",1130580001.201,1130580001.20111,.01,"DT") 3101014 "^DD",1130580001.201,1130580001.20112,0) DENOMINATOR SUB-FIELD^^.01^1 "^DD",1130580001.201,1130580001.20112,0,"DT") 3101012 "^DD",1130580001.201,1130580001.20112,0,"IX","B",1130580001.20112,.01) "^DD",1130580001.201,1130580001.20112,0,"NM","DENOMINATOR") "^DD",1130580001.201,1130580001.20112,0,"UP") 1130580001.2011 "^DD",1130580001.201,1130580001.20112,.01,0) DENOMINATOR^MP2'^DPT(^0;1^Q "^DD",1130580001.201,1130580001.20112,.01,.1) DENOMINATOR PATIENTS "^DD",1130580001.201,1130580001.20112,.01,1,0) ^.1 "^DD",1130580001.201,1130580001.20112,.01,1,1,0) 1130580001.20112^B "^DD",1130580001.201,1130580001.20112,.01,1,1,1) S ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA)="" "^DD",1130580001.201,1130580001.20112,.01,1,1,2) K ^C0Q(201,DA(2),5,DA(1),3,"B",$E(X,1,30),DA) "^DD",1130580001.201,1130580001.20112,.01,1,2,0) 1130580001.201^ADBYP "^DD",1130580001.201,1130580001.20112,.01,1,2,1) S ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA)="" "^DD",1130580001.201,1130580001.20112,.01,1,2,2) K ^C0Q(201,"ADBYP",$E(X,1,30),DA(2),DA(1),DA) "^DD",1130580001.201,1130580001.20112,.01,1,2,"DT") 3101014 "^DD",1130580001.201,1130580001.20112,.01,3) DENOMINATOR PATIENTS "^DD",1130580001.201,1130580001.20112,.01,"DT") 3101014 "^DD",1130580001.401,1130580001.401,5.1,0) VTE CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;1^Q "^DD",1130580001.401,1130580001.401,5.1,3) Enter VTE Measure Set to use for Inpatient CMS QRDA Reporting "^DD",1130580001.401,1130580001.401,5.1,21,0) ^^3^3^3120801^^^ "^DD",1130580001.401,1130580001.401,5.1,21,1,0) This field holds the VTE measure set for reporting information to the "^DD",1130580001.401,1130580001.401,5.1,21,2,0) Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) "^DD",1130580001.401,1130580001.401,5.1,21,3,0) 2012 EHR incentive pilot. "^DD",1130580001.401,1130580001.401,5.1,23,0) ^^3^3^3120801^ "^DD",1130580001.401,1130580001.401,5.1,23,1,0) See "^DD",1130580001.401,1130580001.401,5.1,23,2,0) http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% "^DD",1130580001.401,1130580001.401,5.1,23,3,0) 2FQnetTier3&cid=1228772217179 "^DD",1130580001.401,1130580001.401,5.1,"DT") 3120801 "^DD",1130580001.401,1130580001.401,5.2,0) STK CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;2^Q "^DD",1130580001.401,1130580001.401,5.2,3) Enter STK Measure Set to use for Inpatient CMS QRDA Reporting "^DD",1130580001.401,1130580001.401,5.2,21,0) ^^3^3^3120801^ "^DD",1130580001.401,1130580001.401,5.2,21,1,0) This field holds the STK measure set for reporting information to the "^DD",1130580001.401,1130580001.401,5.2,21,2,0) Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) "^DD",1130580001.401,1130580001.401,5.2,21,3,0) 2012 EHR incentive pilot. "^DD",1130580001.401,1130580001.401,5.2,23,0) ^^3^3^3120801^ "^DD",1130580001.401,1130580001.401,5.2,23,1,0) See "^DD",1130580001.401,1130580001.401,5.2,23,2,0) http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% "^DD",1130580001.401,1130580001.401,5.2,23,3,0) 2FQnetTier3&cid=1228772217179 "^DD",1130580001.401,1130580001.401,5.2,"DT") 3120801 "^DD",1130580001.401,1130580001.401,5.3,0) ED CMS MEASUREMENT SET^P1130580001.201'^C0Q(201,^5;3^Q "^DD",1130580001.401,1130580001.401,5.3,3) Enter ED Measure Set to use for Inpatient CMS QRDA Reporting "^DD",1130580001.401,1130580001.401,5.3,21,0) ^^3^3^3120801^ "^DD",1130580001.401,1130580001.401,5.3,21,1,0) This field holds the ED measure set for reporting information to the "^DD",1130580001.401,1130580001.401,5.3,21,2,0) Centers for Medicare & Medicaid Services (CMS) Hospital Reporting (HR) "^DD",1130580001.401,1130580001.401,5.3,21,3,0) 2012 EHR incentive pilot. "^DD",1130580001.401,1130580001.401,5.3,23,0) ^^3^3^3120801^ "^DD",1130580001.401,1130580001.401,5.3,23,1,0) See "^DD",1130580001.401,1130580001.401,5.3,23,2,0) http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage% "^DD",1130580001.401,1130580001.401,5.3,23,3,0) 2FQnetTier3&cid=1228772217179 "^DD",1130580001.401,1130580001.401,5.3,"DT") 3120801 "^DIC",1130580001.101,1130580001.101,0) C0Q QUALITY MEASURE^1130580001.101 "^DIC",1130580001.101,1130580001.101,0,"GL") ^C0Q(101, "^DIC",1130580001.101,"B","C0Q QUALITY MEASURE",1130580001.101) "^DIC",1130580001.201,1130580001.201,0) C0Q MEASUREMENT SET^1130580001.201 "^DIC",1130580001.201,1130580001.201,0,"GL") ^C0Q(201, "^DIC",1130580001.201,1130580001.201,"%",0) ^1.005^^ "^DIC",1130580001.201,1130580001.201,"%D",0) ^^3^3^3120731^ "^DIC",1130580001.201,1130580001.201,"%D",1,0) This file contains the groupings of Measurements found in the Quality "^DIC",1130580001.201,1130580001.201,"%D",2,0) Measures file. It is tied to the parameters file as the set of "^DIC",1130580001.201,1130580001.201,"%D",3,0) measurements to report for a site. "^DIC",1130580001.201,"B","C0Q MEASUREMENT SET",1130580001.201) **END** **END**