Index: qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.KID
===================================================================
--- qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.KID (revision 1521)
+++ qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.KID (revision 1521)
@@ -0,0 +1,3180 @@
+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**
Index: qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.TXT
===================================================================
--- qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.TXT (revision 1521)
+++ qrda/C0Q/trunk/kids/C0Q-1_SEQ-003_PAT-004.TXT (revision 1521)
@@ -0,0 +1,474 @@
+ Source, Copyright, & Licensing:
+ ===============================
+ This patch to WorldVistA 2.0 was produced in Dew Drop
+ by George Lily on 24 August 2012 and released through VISTA Forum.
+
+ (C) 2012 George Lilly
+ Licensed under GPL 2.
+
+ Functionality:
+ ==============
+ This patch adds the ability to generate modified CCRs
+ containing a QUALITY measure section that looks like
+ this:
+
+
+ 1.3.6.1.4.1.33895.1.1.31.1.2.1
+
+ 1.3.6.1.4.1.33895.1.2.16001.1.2.2
+ 1.3.6.1.4.1.33895.1.2.16002.1.2.2
+ 1.3.6.1.4.1.33895.1.2.16004.1.2.2
+ 1.3.6.1.4.1.33895.1.2.16008.1.2.2
+
+
+
+
+ This enables you to create a QRDA document in the C32 format to submit to CMS
+ containing these measures. The C32 document will be generated by an XSLT
+ transform from the CCR document.
+
+ The driving force behind the creation of this patch, as well as the
+ documentation of the actual QRDA documents to send to CMS can be found here:
+ http://qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier3&cid=1228772217179
+
+ Specifically, this sentence:
+ "One part of meeting the requirements for Stage I Meaningful Use may include
+ submitting Clinical Quality Measures (CQMs) electronically using the QRDA
+ Category I file format."
+
+ Package Elements:
+ =================
+PACKAGE: C0Q*1.0*4 Aug 24, 2012 12:02 pm PAGE 1
+-------------------------------------------------------------------------------
+TYPE: SINGLE PACKAGE TRACK NATIONALLY: YES
+NATIONAL PACKAGE: QUALITY MEASURES ALPHA/BETA TESTING: NO
+
+DESCRIPTION:
+QRDA Support.
+
+ENVIRONMENT CHECK: DELETE ENV ROUTINE:
+ PRE-INIT ROUTINE: DELETE PRE-INIT ROUTINE:
+POST-INIT ROUTINE: DELETE POST-INIT ROUTINE:
+PRE-TRANSPORT RTN: TRAN^C0Q1P4
+
+ UP SEND DATA USER
+ DATE SEC. COMES SITE RSLV OVER
+FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE
+-------------------------------------------------------------------------------
+
+1130580001.101C0Q QUALITY MEASURE YES YES YES OVER YES NO
+
+1130580001.201C0Q MEASUREMENT SET YES YES YES OVER YES NO
+
+1130580001.401C0Q PARAMETER YES YES NO NO
+Partial DD: subDD: 1130580001.401fld: 5.1
+ fld: 5.2
+ fld: 5.3
+
+INPUT TEMPLATE: ACTION:
+ C0Q EDIT INPATIENT PARMS FILE #1130580001.401SEND TO SITE
+ C0Q EDIT MEASURE SET FILE #1130580001.201 SEND TO SITE
+
+ROUTINE: ACTION:
+ C0QQRDA SEND TO SITE
+
+OPTION: ACTION:
+ C0Q EXPORT INPATIENT QRDA CCRS SEND TO SITE
+ C0Q QRDA MENU SEND TO SITE
+ C0Q QUALITY MEASUREMENT MENU USE AS LINK FOR MENU ITEMS
+
+INSTALL QUESTIONS:
+
+ Default Rebuild Menu Trees Upon Completion of Install: YES
+ Default INHIBIT LOGONs during the install: NO
+ Default DISABLE Scheduled Options, Menu Options, and Protocols: NO
+
+REQUIRED BUILDS: ACTION:
+ CCD/CCR GENERATION UTILITIES 1.2 Don't install, leave global
+ QUALITY MEASURES 1.0 Don't install, leave global
+
+ Summary of Changes to package:
+ - Population of QRDA TEMPLATE ROOT field in all of the C0Q QUALITY MEASUREs
+ for Inpatients, as follows:
+
+NAME QRDA TEMPLATE ROOT NUMERATOR RULE SET
+----------------------------------------------------------------------------------
+
+MU HOS NQF 0495 2.16.840.1.113883.3.249.11.14.2.1.2.2 MU ED-1 NUMER RS
+MU HOS NQF 0497 2.16.840.1.113883.3.249.11.14.3.1.2.2 MU ED-2 NUMER RS
+
+MU HOS NQF 0435 1.3.6.1.4.1.33895.1.2.16001.1.2.2 MU STK-2 NUMER RS
+MU HOS NQF 0436 1.3.6.1.4.1.33895.1.2.16002.1.2.2 MU STK-3 NUMER RS
+MU HOS NQF 0437 1.3.6.1.4.1.33895.1.2.16003.1.2.2 MU STK-4 NUMER RS
+MU HOS NQF 0438 1.3.6.1.4.1.33895.1.2.16004.1.2.2 MU STK-5 NUMER RS
+MU HOS NQF 0439 1.3.6.1.4.1.33895.1.2.16005.1.2.2 MU STK-6 NUMER RS
+MU HOS NQF 0440 1.3.6.1.4.1.33895.1.2.16007.1.2.2 MU STK-8 NUMER RS
+MU HOS NQF 0441 1.3.6.1.4.1.33895.1.2.16008.1.2.2 MU STK-10 NUMER RS
+
+MU HOS NQF 0371 1.3.6.1.4.1.33895.1.2.15971.1.2.2 MU VTE-1 NUMER RS
+MU HOS NQF 0372 1.3.6.1.4.1.33895.1.2.15972.1.2.2 MU VTE-2 NUMER RS
+MU HOS NQF 0373 1.3.6.1.4.1.33895.1.2.15973.1.2.2 MU VTE-3 NUMER RS
+MU HOS NQF 0374 1.3.6.1.4.1.33895.1.2.15974.1.2.2 MU VTE-4 NUMER RS
+MU HOS NQF 0375 1.3.6.1.4.1.33895.1.2.15975.1.2.2 MU VTE-5 NUMER RS
+MU HOS NQF 0376 1.3.6.1.4.1.33895.1.2.15976.1.2.2 MU VTE-6 NUMER RS
+
+ - Change of C0Q MEASUREMENT file name to C0Q MEASUREMENT SET
+ - Addition of QRDA TEMPLATE ROOT field to C0Q MEASUREMENT SET
+ - Creation of three Measurement Sets in the C0Q MEASUREMENT SET as follows:
+NAME: ED CMS REPORTING MEASURES
+ QRDA TEMPLATE ROOT: 2.16.840.1.113883.3.249.11.14.1.1.1
+ BEGIN DATE: JAN 1,2012 END DATE: DEC 13,2012
+MEASURE: MU HOS NQF 0495
+MEASURE: MU HOS NQF 0497
+ MU YEAR KEY: MU12
+
+NAME: STK CMS REPORTING MEASURES
+ QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.31.1.2.1
+ BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012
+MEASURE: MU HOS NQF 0435
+MEASURE: MU HOS NQF 0436
+MEASURE: MU HOS NQF 0437
+MEASURE: MU HOS NQF 0438
+MEASURE: MU HOS NQF 0439
+MEASURE: MU HOS NQF 0440
+MEASURE: MU HOS NQF 0441
+ MU YEAR KEY: MU12
+
+NAME: VTE CMS REPORTING MEASURES
+ QRDA TEMPLATE ROOT: 1.3.6.1.4.1.33895.1.1.32.1.2.1
+ BEGIN DATE: JAN 1,2012 END DATE: DEC 31,2012
+MEASURE: MU HOS NQF 0371
+MEASURE: MU HOS NQF 0372
+MEASURE: MU HOS NQF 0373
+MEASURE: MU HOS NQF 0374
+MEASURE: MU HOS NQF 0375
+MEASURE: MU HOS NQF 0376
+ MU YEAR KEY: MU12
+
+ - Creation of supporting fields in the C0Q PARAMETER file to drive generation
+ of the QRDA documents.
+ - VTE CMS MEASUREMENT SET
+ - STK CMS MEASUREMENT SET
+ - ED CMS MEASUREMENT SET
+
+ - Modification of existing input templates to support the new fields created.
+ C0Q EDIT INPATIENT PARMS FILE #1130580001.401
+ C0Q EDIT MEASURE SET FILE #1130580001.201
+
+ - Routine C0QQRDA to drive the generation of the QRDA documents.
+
+ - Menu option to call EN^C0QQRDA:
+ -> C0Q QUALITY MEASUREMENT MENU
+ Parent: C0Q QRDA MENU
+
+ Routine Versioning:
+
+ The second line of each of these routines now looks like:
+ ;;1.0;QUALITY MEASURES;**4**;May 21, 2012;Build 28
+
+
+ The following checksums can be checked with CHECK1^XTSUMBLD:
+
+ Routine Before After Patch List
+ ------- ----------- ------------ ---------------------------------
+ C0QQRDA 89943644 **4**
+
+ Documentation:
+ ==============
+ None at this moment.
+
+ Test Sites:
+ ===========
+ None at this moment.
+
+ Compliance:
+ ===========
+ This software complies with the VA MUMPS Programming Standards and
+ Conventions (version 3 April 2007).
+
+ Installation Instructions:
+ ==========================
+ Install Time - less than 1 minute
+
+ 1. LOAD TRANSPORT GLOBAL
+
+ Choose the PackMan message containing this patch and invoke the
+ INSTALL/CHECK MESSAGE PackMan option to unload the build.
+
+ 2. START UP KIDS
+
+ Start up the Kernel Installation and Distribution System Menu
+ [XPD MAIN]:
+
+ Edits and Distribution ...
+ Utilities ...
+ Installation ...
+
+ Select Kernel Installation & Distribution System Option: INStallation
+ ---
+ Load a Distribution
+ Print Transport Global
+ Compare Transport Global to Current System
+ Verify Checksums in Transport Global
+ Install Package(s)
+ Restart Install of Package(s)
+ Unload a Distribution
+ Backup a Transport Global
+
+ Select Installation Option:
+
+ 3. Select Installation Option:
+
+ NOTE: The following are OPTIONAL - (When prompted for the INSTALL
+ NAME, enter C0Q*1.0*4):
+
+ a. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DD's or templates.
+ b. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this patch
+ is installed. It compares all components of this patch
+ (routines, DD's, templates, etc.).
+ c. Verify Checksums in Transport Global - This option will allow
+ you to ensure the integrity of the routines that are in the
+ transport global.
+
+ 4. Select Installation Option: Install Package(s)
+
+ **This is the step to start the installation of this KIDS patch:
+
+ a. Choose the Install Package(s) option to start the patch install
+ and enter "C0Q*1.0*4" at the INSTALL NAME prompt.
+ b. When asked, 'Shall I write over your C0Q MEASUREMENTS File? YES//'
+ Answer YES. The file is just renamed, that's why KIDS asks you to
+ overwrite it.
+ c. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of
+ Install? YES//' answer YES
+ d. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
+ NO//' answer NO
+ e. When prompted 'Want to DISABLE Scheduled Options, Menu Options,
+ and Protocols? NO//' answer NO
+
+ Installation Example:
+Select Installation Option: 6 Install Package(s)
+Select INSTALL NAME: C0Q*1.0*4 Loaded from Distribution Loaded from D
+istribution 8/24/12@10:05
+ => INPATIENT CMS QRDA GENERATION SUPPORT ;Created on Aug 02, 2012@10:40:
+
+This Distribution was loaded on Aug 24, 2012@10:05 with header of
+ INPATIENT CMS QRDA GENERATION SUPPORT ;Created on Aug 02, 2012@10:40:23
+ It consisted of the following Install(s):
+ C0Q*1.0*4
+
+ Checking C0Q*1.0*4 for overlap with VOE 1.0 .... OK
+ No overlap found
+
+
+ Checking C0Q*1.0*4 for overlap with VOE 1.1 .... OK
+ No overlap found
+
+
+ Checking C0Q*1.0*4 for overlap with NO HOME 1.0 .... OK
+ No overlap found
+
+Checking Install for Package C0Q*1.0*4
+
+Install Questions for C0Q*1.0*4
+
+Incoming Files:
+
+
+ 1130580001.101C0Q QUALITY MEASURE (including data)
+Note: You already have the 'C0Q QUALITY MEASURE' File.
+I will OVERWRITE your data with mine.
+
+
+ 1130580001.201C0Q MEASUREMENT SET (including data)
+*BUT YOU ALREADY HAVE 'C0Q MEASUREMENTS' AS FILE #1130580001.201!
+Shall I write over your C0Q MEASUREMENTS File? YES//
+I will OVERWRITE your data with mine.
+
+
+ 1130580001.401C0Q PARAMETER (Partial Definition)
+Note: You already have the 'C0Q PARAMETER' File.
+
+Want KIDS to Rebuild Menu Trees Upon Completion of Install? YES//
+
+
+Want KIDS to INHIBIT LOGONs during the install? NO//
+Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO//
+
+Enter the Device you want to print the Install messages.
+You can queue the install by enter a 'Q' at the device prompt.
+Enter a '^' to abort the install.
+
+DEVICE: HOME// PHOME HOME PRINTER
+
+
+ Install Started for C0Q*1.0*4 :
+ Aug 24, 2012@10:08:54
+
+Build Distribution Date: Aug 02, 2012
+
+ Installing Routines:..
+ Aug 24, 2012@10:08:54
+
+ Installing Data Dictionaries: ....
+ Aug 24, 2012@10:08:55
+
+ Installing Data:
+ Aug 24, 2012@10:08:55
+
+ Installing PACKAGE COMPONENTS:
+
+ Installing INPUT TEMPLATE...
+
+ Installing OPTION....
+ Aug 24, 2012@10:08:55
+
+ Updating Routine file......
+
+ Updating KIDS files.......
+
+ C0Q*1.0*4 Installed.
+ Aug 24, 2012@10:08:55
+
+ Not a VA primary domain
+
+ NO Install Message sent
+
+ Call MENU rebuild
+
+Starting Menu Rebuild: Aug 24, 2012@10:08:57
+
+Collecting primary menus in the New Person file...
+
+ Primary menus found in the New Person file
+ ------------------------------------------
+
+OPTION NAME MENU TEXT # OF LAST LAST
+ USERS USED BUILT
+
+EVE Systems Manager Menu 25 08/24/12 08/06/12
+XUCORE Core Applications 3 08/14/12 08/06/12
+XUSERTOOLS User's Toolbox 3 06/28/11 08/06/12
+XMUSER MailMan Menu 1 06/03/11 08/06/12
+DG REGISTRATION MENURegistration Menu 1 06/21/11 08/06/12
+DGZ REGISTRATION MENU
+ EHR Registration Menu 39 07/09/12 08/06/12
+XUZEVE STARTUP FUNCTIONS 1 11/16/05 08/06/12
+
+Building secondary menu trees....
+
+Merging.... done.
+
+Menu Rebuild Complete: Aug 24, 2012@10:09:01
+
+Brief Usage Instructions:
+====================================
+Before running the QRDA option, you need to set-up your inpatient parameters.
+You need AT LEAST a Parameter Name, an MU Year, and a Parameter Type in order
+for the software to pick up the parameter's presence. If you already have it
+set-up, you don't need to perform this step. Please note that the software does
+a reverse $Order through the MU years and will only pick the latest one.
+
+---
+Select SETUP QUALITY REPORTING Option: INP EDIT PARMS
+
+Select C0Q PARAMETER NAME: ?
+ to exit:
+ You may enter a new C0Q PARAMETER, if you wish
+ NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH
+ PUNCTUATION
+
+Select C0Q PARAMETER NAME: INPATIENT
+ Are you adding 'INPATIENT' as a new C0Q PARAMETER (the 1ST)? No// Y (Yes)
+NAME: INPATIENT//
+MEASUREMENT PERIOD KEY: MU12
+PARAMETER TYPE: INP INPATIENT
+INP MU MEASUREMENT SET:
+INP QUALITY MEASUREMENT SET:
+VTE CMS MEASUREMENT SET:
+STK CMS MEASUREMENT SET:
+ED CMS MEASUREMENT SET:
+Select SUBSCRIBER:
+---
+
+Next, the you can invoke the menu option as follows, but you may not get any
+CCRs to generate. The option will run EN^C0QQRDA which will look up the
+installed measure sets and try to set-up your parameters correctly. If you
+re-named the installed measure sets, this step will fail and you will need to
+populate them manually in the parameters.
+
+---
+Select QUALITY MEASUREMENT MENU Option: QRDA MENU
+
+Select QRDA MENU Option: EXPORT INPATIENT QRDA MEASURES AS CCRS
+Trying to automatically set-up measure sets in parameters
+...Set-up complete
+
+
+
+This program collects patients from the denominators of the measures
+STK, VTE, and ED and outputs modified CCR files to the kernel default
+directory (probably /tmp/).
+
+This will take some time to execute.
+
+
+
+Which measure set would you like to produce QRDA documents for?
+Choose to Run [V]TE Measure Set, [S]TK Measure Set, or
+[E]D Measure Set. Or you can choose to run [A]ll of them.
+Measure to calculate: (V/S/E/A): VTE
+10: VTE CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.32.1.2.1
+---
+
+The patient list to generate the CCRs is ultimately taken from the Patient
+Lists pointed to from the C0Q QUALITY MEASURE file for each of the measures
+being processed in the VTE, ED, or STK Measure Set. At this point of package
+development, you must run these measures manually in the reminders package and
+then populate the Numerator Patient List field and the Denominator Patient List
+field for each of these measures. The software per CMS regs picks up the
+patients in the denominator once the measure set is processed.
+
+A successful execution looks like this:
+---
+Select QRDA MENU Option: EXPORT INPATIENT QRDA MEASURES AS CCRS
+This program collects patients from the denominators of the measures
+STK, VTE, and ED and outputs modified CCR files to the kernel default
+directory (probably /tmp/).
+
+This will take some time to execute.
+
+
+
+Which measure set would you like to produce QRDA documents for?
+Choose to Run [V]TE Measure Set, [S]TK Measure Set, or
+[E]D Measure Set. Or you can choose to run [A]ll of them.
+Measure to calculate: (V/S/E/A): V
+10: VTE CMS REPORTING MEASURES^1.3.6.1.4.1.33895.1.1.32.1.2.1C0QFDA(1130580001.2
+011,"6,10,",3)=33
+
+Prosessing DFN 97
+RUNNING D EXTRACT^C0CPROBS(IXML,DFN,OXML)
+NULL RESULT FROM LIST^ORQQPL3
+RUNNING D EXTRACT^C0CALERT(IXML,DFN,OXML)
+RUNNING D EXTRACT^C0CMED(IXML,DFN,OXML)
+RUNNING D MAP^C0CIMMU(IXML,DFN,OXML)
+NULL RESULT FROM IMMUN^PXRHS03
+RUNNING D EXTRACT^C0CVITAL(IXML,DFN,OXML)
+VITALS START: T LIMIT: T-360
+RUNNING D MAP^C0CLABS(IXML,DFN,OXML)
+I MAPPED
+VARS:^TMP("C0CCCR",9097,"RESULTS")
+DFN:97
+LAB LOOKUP FAILED, NO SSN
+RUNNING D EXTRACT^C0CPROC(IXML,DFN,OXML)
+RUNNING D EXTRACT^C0CENC(IXML,DFN,OXML)
+PROCESSING:PATIENT 97
+PROCESSING:PROVIDER 8
+PROCESSING:SYSTEM 1
+
+1^WROTE FILE: VTE_QRDA_CCR_DFN0000000097.XML TO /tmp/
+---