KIDS Distribution saved on Oct 23, 2012@13:24:04 Support for Model Measure Sets **KIDS**:C0Q*1.0*6^ **INSTALL NAME** C0Q*1.0*6 "BLD",7920,0) C0Q*1.0*6^QUALITY MEASURES^0^3121023^y "BLD",7920,1,0) ^^422^422^3121023^ "BLD",7920,1,1,0) Source, Copyright, & Licensing: "BLD",7920,1,2,0) =============================== "BLD",7920,1,3,0) This patch to WorldVistA 2.0 was produced in a WV 3/09 Environment by George "BLD",7920,1,4,0) Lily on 23 October 2012 and released through VISTA Forum. "BLD",7920,1,5,0) "BLD",7920,1,6,0) (C) Geroge Lilly 2012 "BLD",7920,1,7,0) Licensed under Package License: AGPL v3. "BLD",7920,1,8,0) "BLD",7920,1,9,0) http://www.gnu.org/licenses/agpl-3.0.html "BLD",7920,1,10,0) "BLD",7920,1,11,0) Functionality: "BLD",7920,1,12,0) ============== "BLD",7920,1,13,0) This patch adds support for using model Measurement Sets for creating a new "BLD",7920,1,14,0) Measurement Sets based on the model Measurement Sets. Usage instructions will "BLD",7920,1,15,0) be found at the end of this patch message. "BLD",7920,1,16,0) "BLD",7920,1,17,0) Support Tickets: "BLD",7920,1,18,0) "BLD",7920,1,19,0) "BLD",7920,1,20,0) Package Elements: "BLD",7920,1,21,0) ================= "BLD",7920,1,22,0) UP SEND DATA USER "BLD",7920,1,23,0) DATE SEC. COMES SITE RSLV OVER "BLD",7920,1,24,0) FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE "BLD",7920,1,25,0) ------------------------------------------------------------------------------- "BLD",7920,1,26,0) "BLD",7920,1,27,0) 1130580001.401C0Q PARAMETER YES NO NO NO "BLD",7920,1,28,0) Partial DD: subDD: 1130580001.401fld: 6.1 "BLD",7920,1,29,0) fld: 6.2 "BLD",7920,1,30,0) "BLD",7920,1,31,0) INPUT TEMPLATE: ACTION: "BLD",7920,1,32,0) C0Q EDIT OUPATIENT PARMS FILE #1130580001.401SEND TO SITE "BLD",7920,1,33,0) "BLD",7920,1,34,0) ROUTINE: ACTION: "BLD",7920,1,35,0) C0QMU12 SEND TO SITE "BLD",7920,1,36,0) C0QMU123 SEND TO SITE "BLD",7920,1,37,0) Test Sites: "BLD",7920,1,38,0) =========== "BLD",7920,1,39,0) "BLD",7920,1,40,0) "BLD",7920,1,41,0) Compliance: "BLD",7920,1,42,0) =========== "BLD",7920,1,43,0) This software complies with the VA MUMPS Programming Standards and "BLD",7920,1,44,0) Conventions (version 3 April 2007), with the following exception: "BLD",7920,1,45,0) "BLD",7920,1,46,0) C0QMU12 * * 591 Lines, 20662 Bytes, Checksum: B351357107 "BLD",7920,1,47,0) S - Routine exceeds SACC maximum size of 20000 (20662). "BLD",7920,1,48,0) S - Routine code exceeds SACC maximum size of 15000 (16922). "BLD",7920,1,49,0) "BLD",7920,1,50,0) "BLD",7920,1,51,0) This software has not been tested for 508 compliance. "BLD",7920,1,52,0) "BLD",7920,1,53,0) Installation Instructions: "BLD",7920,1,54,0) ========================== "BLD",7920,1,55,0) Install Time - less than 1 minute "BLD",7920,1,56,0) "BLD",7920,1,57,0) 1. LOAD TRANSPORT GLOBAL "BLD",7920,1,58,0) "BLD",7920,1,59,0) Choose the PackMan message containing this patch and invoke the "BLD",7920,1,60,0) INSTALL/CHECK MESSAGE PackMan option to unload the build. "BLD",7920,1,61,0) "BLD",7920,1,62,0) 2. START UP KIDS "BLD",7920,1,63,0) "BLD",7920,1,64,0) Start up the Kernel Installation and Distribution System Menu "BLD",7920,1,65,0) [XPD MAIN]: "BLD",7920,1,66,0) "BLD",7920,1,67,0) Edits and Distribution ... "BLD",7920,1,68,0) Utilities ... "BLD",7920,1,69,0) Installation ... "BLD",7920,1,70,0) "BLD",7920,1,71,0) Select Kernel Installation & Distribution System Option: INStallation "BLD",7920,1,72,0) --- "BLD",7920,1,73,0) Load a Distribution "BLD",7920,1,74,0) Print Transport Global "BLD",7920,1,75,0) Compare Transport Global to Current System "BLD",7920,1,76,0) Verify Checksums in Transport Global "BLD",7920,1,77,0) Install Package(s) "BLD",7920,1,78,0) Restart Install of Package(s) "BLD",7920,1,79,0) Unload a Distribution "BLD",7920,1,80,0) Backup a Transport Global "BLD",7920,1,81,0) "BLD",7920,1,82,0) Select Installation Option: "BLD",7920,1,83,0) "BLD",7920,1,84,0) 3. Select Installation Option: "BLD",7920,1,85,0) "BLD",7920,1,86,0) NOTE: The following are OPTIONAL - (When prompted for the INSTALL "BLD",7920,1,87,0) NAME, enter C0Q*1.0*6): "BLD",7920,1,88,0) "BLD",7920,1,89,0) a. Backup a Transport Global - This option will create a backup "BLD",7920,1,90,0) message of any routines exported with this patch. It will not "BLD",7920,1,91,0) backup any other changes such as DD's or templates. "BLD",7920,1,92,0) b. Compare Transport Global to Current System - This option will "BLD",7920,1,93,0) allow you to view all changes that will be made when this patch "BLD",7920,1,94,0) is installed. It compares all components of this patch "BLD",7920,1,95,0) (routines, DD's, templates, etc.). "BLD",7920,1,96,0) c. Verify Checksums in Transport Global - This option will allow "BLD",7920,1,97,0) you to ensure the integrity of the routines that are in the "BLD",7920,1,98,0) transport global. "BLD",7920,1,99,0) "BLD",7920,1,100,0) 4. Select Installation Option: Install Package(s) "BLD",7920,1,101,0) "BLD",7920,1,102,0) **This is the step to start the installation of this KIDS patch: "BLD",7920,1,103,0) "BLD",7920,1,104,0) a. Choose the Install Package(s) option to start the patch install "BLD",7920,1,105,0) and enter "C0Q*1.0*6" at the INSTALL NAME prompt. As part of the "BLD",7920,1,106,0) Environment Check routine, the message below will display "BLD",7920,1,107,0) b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of "BLD",7920,1,108,0) Install? NO//' answer NO "BLD",7920,1,109,0) c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? "BLD",7920,1,110,0) NO//' answer NO "BLD",7920,1,111,0) d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, "BLD",7920,1,112,0) and Protocols? NO//' answer NO "BLD",7920,1,113,0) "BLD",7920,1,114,0) Install Transcript: "BLD",7920,1,115,0) Select OPTION NAME: XPD MAIN Kernel Installation & Distribution System "BLD",7920,1,116,0) "BLD",7920,1,117,0) Select Kernel Installation & Distribution System Option: INStallation "BLD",7920,1,118,0) "BLD",7920,1,119,0) Select Installation Option: 1 Load a Distribution "BLD",7920,1,120,0) Enter a Host File: C0Q*1.0*6 "BLD",7920,1,121,0) "BLD",7920,1,122,0) KIDS Distribution saved on Oct 22, 2012@17:41:17 "BLD",7920,1,123,0) Comment: FRDGHJKLFGHJKL "BLD",7920,1,124,0) "BLD",7920,1,125,0) This Distribution contains Transport Globals for the following Package(s): "BLD",7920,1,126,0) C0Q*1.0*6 "BLD",7920,1,127,0) Distribution OK! "BLD",7920,1,128,0) "BLD",7920,1,129,0) Want to Continue with Load? YES// "BLD",7920,1,130,0) Loading Distribution... "BLD",7920,1,131,0) "BLD",7920,1,132,0) C0Q*1.0*6 "BLD",7920,1,133,0) Use INSTALL NAME: C0Q*1.0*6 to install this Distribution. "BLD",7920,1,134,0) "BLD",7920,1,135,0) Select Installation Option: 6 Install Package(s) "BLD",7920,1,136,0) Select INSTALL NAME: C0Q*1.0*6 Loaded from Distribution Loaded from Di "BLD",7920,1,137,0) stribution 10/23/12@11:46:32 "BLD",7920,1,138,0) => FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17 "BLD",7920,1,139,0) "BLD",7920,1,140,0) This Distribution was loaded on Oct 23, 2012@11:46:32 with header of "BLD",7920,1,141,0) FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17 "BLD",7920,1,142,0) It consisted of the following Install(s): "BLD",7920,1,143,0) C0Q*1.0*6 "BLD",7920,1,144,0) "BLD",7920,1,145,0) Checking C0Q*1.0*6 for overlap with VOE 1.0 ... OK "BLD",7920,1,146,0) No overlap found "BLD",7920,1,147,0) "BLD",7920,1,148,0) Checking C0Q*1.0*6 for overlap with VOE 1.1 ... OK "BLD",7920,1,149,0) No overlap found "BLD",7920,1,150,0) "BLD",7920,1,151,0) Checking C0Q*1.0*6 for overlap with NO HOME 1.0 ... OK "BLD",7920,1,152,0) No overlap found "BLD",7920,1,153,0) "BLD",7920,1,154,0) Checking Install for Package C0Q*1.0*6 "BLD",7920,1,155,0) "BLD",7920,1,156,0) Install Questions for C0Q*1.0*6 "BLD",7920,1,157,0) "BLD",7920,1,158,0) Incoming Files: "BLD",7920,1,159,0) "BLD",7920,1,160,0) 1130580001.401C0Q PARAMETER (Partial Definition) "BLD",7920,1,161,0) Note: You already have the 'C0Q PARAMETER' File. "BLD",7920,1,162,0) "BLD",7920,1,163,0) Want KIDS to INHIBIT LOGONs during the install? NO// "BLD",7920,1,164,0) Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// "BLD",7920,1,165,0) "BLD",7920,1,166,0) Enter the Device you want to print the Install messages. "BLD",7920,1,167,0) You can queue the install by enter a 'Q' at the device prompt. "BLD",7920,1,168,0) Enter a '^' to abort the install. "BLD",7920,1,169,0) "BLD",7920,1,170,0) DEVICE: HOME// 0;P-OTHER;80;9999 TELNET "BLD",7920,1,171,0) "BLD",7920,1,172,0) Install Started for C0Q*1.0*6 : "BLD",7920,1,173,0) Oct 23, 2012@11:46:53 "BLD",7920,1,174,0) "BLD",7920,1,175,0) Build Distribution Date: Oct 22, 2012 "BLD",7920,1,176,0) "BLD",7920,1,177,0) Installing Routines:... "BLD",7920,1,178,0) Oct 23, 2012@11:46:53 "BLD",7920,1,179,0) "BLD",7920,1,180,0) Installing Data Dictionaries: .. "BLD",7920,1,181,0) Oct 23, 2012@11:46:54 "BLD",7920,1,182,0) "BLD",7920,1,183,0) Installing PACKAGE COMPONENTS: "BLD",7920,1,184,0) "BLD",7920,1,185,0) Installing INPUT TEMPLATE.. "BLD",7920,1,186,0) Oct 23, 2012@11:46:54 "BLD",7920,1,187,0) "BLD",7920,1,188,0) Updating Routine file...... "BLD",7920,1,189,0) "BLD",7920,1,190,0) Updating KIDS files....... "BLD",7920,1,191,0) "BLD",7920,1,192,0) C0Q*1.0*6 Installed. "BLD",7920,1,193,0) Oct 23, 2012@11:46:54 "BLD",7920,1,194,0) "BLD",7920,1,195,0) Not a VA primary domain "BLD",7920,1,196,0) "BLD",7920,1,197,0) NO Install Message sent "BLD",7920,1,198,0) "BLD",7920,1,199,0) Select Installation Option: "BLD",7920,1,200,0) ---------------------------- "BLD",7920,1,201,0) "BLD",7920,1,202,0) Usage instructions: "BLD",7920,1,203,0) =================== "BLD",7920,1,204,0) 1. Create two measure sets, one for Performance Measures, and one for Quality "BLD",7920,1,205,0) Measures. If you have ones already created for other clinics, you can use them. "BLD",7920,1,206,0) It's okay for them to have filter lists, as these will be deleted by the "BLD",7920,1,207,0) software when the measure set is being copied. "BLD",7920,1,208,0) "BLD",7920,1,209,0) 2. Attach these measure sets to an Outpatient Parameter in the fields: MODEL "BLD",7920,1,210,0) PERFORMANCE MEASURE SET and MODEL QUALITY MEASURE SET. NB: The purpose of "BLD",7920,1,211,0) these fields is to generate the a measure set to use in the fields EP MU "BLD",7920,1,212,0) MEASUREMENT SET and EP QUALITY MEASUREMENT SET, respectively. If you have these "BLD",7920,1,213,0) filled out, the Model fields will have no effect. "BLD",7920,1,214,0) "BLD",7920,1,215,0) 3. Run the option EP UPDATE MU MEASURES. This create new measure sets based on "BLD",7920,1,216,0) the model measure sets and attach the appropriate filter lists. "BLD",7920,1,217,0) "BLD",7920,1,218,0) Miscellaneous remarks: If a model set is replaced and the option to update is "BLD",7920,1,219,0) reran, the behavior is not to delete the old created measure set but rather to "BLD",7920,1,220,0) merge the contents of the new model set into the old created measure set. I am "BLD",7920,1,221,0) not sure if this is the desirable behavior, but that is how it currently works. "BLD",7920,1,222,0) "BLD",7920,1,223,0) Transcript: "BLD",7920,1,224,0) Select QUALITY MEASUREMENT MENU Option: ? "BLD",7920,1,225,0) "BLD",7920,1,226,0) COPY OVER PATIENT LISTS "BLD",7920,1,227,0) ED-1 COMPUTATION "BLD",7920,1,228,0) ED-2 COMPUTATION "BLD",7920,1,229,0) EP UPDATE MU MEASURES "BLD",7920,1,230,0) INP UPDATE MU MEASURES "BLD",7920,1,231,0) PQRI MENU ... "BLD",7920,1,232,0) PQRI PRINT XML "BLD",7920,1,233,0) PRINT C0Q MEASURES "BLD",7920,1,234,0) QRDA MENU ... "BLD",7920,1,235,0) SETUP QUALITY REPORTING ... "BLD",7920,1,236,0) "BLD",7920,1,237,0) Enter ?? for more options, ??? for brief descriptions, ?OPTION for help text. "BLD",7920,1,238,0) "BLD",7920,1,239,0) Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES "BLD",7920,1,240,0) "BLD",7920,1,241,0) Select C0Q MEASUREMENT SET NAME: DR OFF "BLD",7920,1,242,0) 1 DR OFFICE PERFORMANCE MEASURES "BLD",7920,1,243,0) 2 DR OFFICE QUALITY MEASURES "BLD",7920,1,244,0) CHOOSE 1-2: 1 DR OFFICE PERFORMANCE MEASURES "BLD",7920,1,245,0) "BLD",7920,1,246,0) DEVICE: HOME// TELNET "BLD",7920,1,247,0) C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1 "BLD",7920,1,248,0) MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE "BLD",7920,1,249,0) -------------------------------------------------------------------------------- "BLD",7920,1,250,0) "BLD",7920,1,251,0) CPOE 3 0 0.00 "BLD",7920,1,252,0) "BLD",7920,1,253,0) PROBLEMS 3 3 100.00 "BLD",7920,1,254,0) "BLD",7920,1,255,0) ALLERGIES 3 3 100.00 "BLD",7920,1,256,0) "BLD",7920,1,257,0) Select C0Q MEASUREMENT SET NAME: DR OFF "BLD",7920,1,258,0) 1 DR OFFICE PERFORMANCE MEASURES "BLD",7920,1,259,0) 2 DR OFFICE QUALITY MEASURES "BLD",7920,1,260,0) CHOOSE 1-2: 2 DR OFFICE QUALITY MEASURES "BLD",7920,1,261,0) "BLD",7920,1,262,0) DEVICE: HOME// TELNET "BLD",7920,1,263,0) C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1 "BLD",7920,1,264,0) MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE "BLD",7920,1,265,0) -------------------------------------------------------------------------------- "BLD",7920,1,266,0) "BLD",7920,1,267,0) NQF0013 Hypertension: 0 0 0.00 "BLD",7920,1,268,0) Blood Pressure "BLD",7920,1,269,0) Measurement "BLD",7920,1,270,0) "BLD",7920,1,271,0) NQF0028A Tobacco Use 0 0 0.00 "BLD",7920,1,272,0) Assessment "BLD",7920,1,273,0) "BLD",7920,1,274,0) NQF0028B Tobacco Use 0 0 0.00 "BLD",7920,1,275,0) Assessment and Cessation "BLD",7920,1,276,0) Intervention "BLD",7920,1,277,0) "BLD",7920,1,278,0) Select C0Q MEASUREMENT SET NAME: "BLD",7920,1,279,0) "BLD",7920,1,280,0) Select QUALITY MEASUREMENT MENU Option: SETUP QUALITY REPORTING "BLD",7920,1,281,0) "BLD",7920,1,282,0) Select SETUP QUALITY REPORTING Option: EP EDIT PARMS "BLD",7920,1,283,0) "BLD",7920,1,284,0) Select C0Q PARAMETER NAME: ACME CLINIC #1 "BLD",7920,1,285,0) Are you adding 'ACME CLINIC #1' as a new C0Q PARAMETER (the 2ND)? No// Y "BLD",7920,1,286,0) (Yes) "BLD",7920,1,287,0) NAME: ACME CLINIC #1// "BLD",7920,1,288,0) MEASUREMENT PERIOD KEY: MU12 "BLD",7920,1,289,0) PARAMETER TYPE: OU OUTPATIENT "BLD",7920,1,290,0) EP MU MEASUREMENT SET: "BLD",7920,1,291,0) EP QUALITY MEASUREMENT SET: "BLD",7920,1,292,0) Select CLINIC: ACME CLINIC #1 "BLD",7920,1,293,0) Are you adding 'ACME CLINIC #1' as a new CLINIC (the 1ST for this C0Q PARAMET "BLD",7920,1,294,0) ER)? No// Y (Yes) "BLD",7920,1,295,0) Select CLINIC: "BLD",7920,1,296,0) PATIENT LIST LABEL: "BLD",7920,1,297,0) Select SUBSCRIBER: "BLD",7920,1,298,0) MODEL PERFORMANCE MEASURE SET: DR,P DR OFFICE PERFORMANCE MEASURES "BLD",7920,1,299,0) MODEL QUALITY MEASURE SET: DR,Q DR OFFICE QUALITY MEASURES "BLD",7920,1,300,0) "BLD",7920,1,301,0) Select C0Q PARAMETER NAME: "BLD",7920,1,302,0) "BLD",7920,1,303,0) Select SETUP QUALITY REPORTING Option: "BLD",7920,1,304,0) "BLD",7920,1,305,0) Select QUALITY MEASUREMENT MENU Option: EP UPDATE MU MEASURES "BLD",7920,1,306,0) Jan 04, 2008@19:14:59 "BLD",7920,1,307,0) Jan 02, 2008@18:40:58 "BLD",7920,1,308,0) Nov 26, 2005@13:10:24 "BLD",7920,1,309,0) Nov 26, 2005@14:12:42 "BLD",7920,1,310,0) Nov 25, 2005@20:31:13 "BLD",7920,1,311,0) Aug 02, 2005@08:40:36 "BLD",7920,1,312,0) Aug 01, 2005@15:08:49 "BLD",7920,1,313,0) Aug 01, 2005@15:21:18 "BLD",7920,1,314,0) Jul 29, 2005@11:44:36 "BLD",7920,1,315,0) Jul 29, 2005@11:53:15 "BLD",7920,1,316,0) Jul 29, 2005@12:04:45 "BLD",7920,1,317,0) Jul 28, 2005@12:20:20 "BLD",7920,1,318,0) Jul 28, 2005@16:16:03 "BLD",7920,1,319,0) Jul 27, 2005@11:21:04 "BLD",7920,1,320,0) Jul 27, 2005@11:24:55 "BLD",7920,1,321,0) Jul 27, 2005@11:41:40 "BLD",7920,1,322,0) Jul 27, 2005@11:47:38 "BLD",7920,1,323,0) Jul 27, 2005@11:49:41 "BLD",7920,1,324,0) Jul 27, 2005@11:50:26 "BLD",7920,1,325,0) Jul 27, 2005@15:45:45 "BLD",7920,1,326,0) Jul 25, 2005@08:37:24 "BLD",7920,1,327,0) Jul 24, 2005@11:01:55 "BLD",7920,1,328,0) Jul 24, 2005@14:22:11 "BLD",7920,1,329,0) Jul 24, 2005@16:22:29 "BLD",7920,1,330,0) Jul 24, 2005@17:17:01 "BLD",7920,1,331,0) Jul 24, 2005@17:33:39 "BLD",7920,1,332,0) Jul 23, 2005@16:14:54 "BLD",7920,1,333,0) Jul 23, 2005@17:17:08 "BLD",7920,1,334,0) Jul 23, 2005@17:24:01 "BLD",7920,1,335,0) Jul 22, 2005@10:49:29 "BLD",7920,1,336,0) Jul 22, 2005@16:46:52 "BLD",7920,1,337,0) Jul 21, 2005@08:56:56 "BLD",7920,1,338,0) Jul 21, 2005@12:10:54 "BLD",7920,1,339,0) Jul 21, 2005@15:39:22 "BLD",7920,1,340,0) Jul 21, 2005@15:39:29 "BLD",7920,1,341,0) Jul 20, 2005@10:07:46 "BLD",7920,1,342,0) Jul 20, 2005@10:44:03 "BLD",7920,1,343,0) Jul 19, 2005@07:41:49 "BLD",7920,1,344,0) Jul 19, 2005@08:52:13 "BLD",7920,1,345,0) Jul 19, 2005@11:32:14 "BLD",7920,1,346,0) Jul 19, 2005@11:36:08 "BLD",7920,1,347,0) Jul 19, 2005@13:35:12 "BLD",7920,1,348,0) Jul 19, 2005@15:43:18 "BLD",7920,1,349,0) Jul 19, 2005@15:54:48 "BLD",7920,1,350,0) Jul 18, 2005@17:57:49 "BLD",7920,1,351,0) Jul 15, 2005@16:00 "BLD",7920,1,352,0) Jul 08, 2005@13:03 "BLD",7920,1,353,0) Jul 01, 2005@14:37:23 "BLD",7920,1,354,0) Oct 23, 2012@12:02 "BLD",7920,1,355,0) CREATING MU12-EP-ACME CLINIC #1-PatientC0QFDA(1130580001.2011,"1,13,",3)=0 "BLD",7920,1,356,0) C0QFDA(1130580001.2011,"2,13,",3)=100 "BLD",7920,1,357,0) C0QFDA(1130580001.2011,"3,13,",3)=100 "BLD",7920,1,358,0) C0QFDA(1130580001.2011,"1,14,",3)=0 "BLD",7920,1,359,0) C0QFDA(1130580001.2011,"2,14,",3)=0 "BLD",7920,1,360,0) C0QFDA(1130580001.2011,"3,14,",3)=0 "BLD",7920,1,361,0) C0QFDA(1130580001.2011,"1,15,",1.1)=0 "BLD",7920,1,362,0) C0QFDA(1130580001.2011,"1,15,",2.1)=1 "BLD",7920,1,363,0) C0QFDA(1130580001.20112,"+1,1,15,",.01)=3 "BLD",7920,1,364,0) C0QFDA(1130580001.2011,"1,15,",3)=0 "BLD",7920,1,365,0) C0QFDA(1130580001.2011,"2,15,",1.1)=1 "BLD",7920,1,366,0) C0QFDA(1130580001.20111,"+1,2,15,",.01)=3 "BLD",7920,1,367,0) C0QFDA(1130580001.2011,"2,15,",2.1)=1 "BLD",7920,1,368,0) C0QFDA(1130580001.20112,"+1,2,15,",.01)=3 "BLD",7920,1,369,0) C0QFDA(1130580001.2011,"2,15,",3)=100 "BLD",7920,1,370,0) C0QFDA(1130580001.2011,"3,15,",1.1)=1 "BLD",7920,1,371,0) C0QFDA(1130580001.20111,"+1,3,15,",.01)=3 "BLD",7920,1,372,0) C0QFDA(1130580001.2011,"3,15,",2.1)=1 "BLD",7920,1,373,0) C0QFDA(1130580001.20112,"+1,3,15,",.01)=3 "BLD",7920,1,374,0) C0QFDA(1130580001.2011,"3,15,",3)=100 "BLD",7920,1,375,0) C0QFDA(1130580001.2011,"1,16,",1.1)=0 "BLD",7920,1,376,0) C0QFDA(1130580001.2011,"1,16,",2.1)=0 "BLD",7920,1,377,0) C0QFDA(1130580001.2011,"1,16,",3)=0 "BLD",7920,1,378,0) C0QFDA(1130580001.2011,"2,16,",1.1)=0 "BLD",7920,1,379,0) C0QFDA(1130580001.2011,"2,16,",2.1)=0 "BLD",7920,1,380,0) C0QFDA(1130580001.2011,"2,16,",3)=0 "BLD",7920,1,381,0) C0QFDA(1130580001.2011,"3,16,",1.1)=0 "BLD",7920,1,382,0) C0QFDA(1130580001.2011,"3,16,",2.1)=0 "BLD",7920,1,383,0) C0QFDA(1130580001.2011,"3,16,",3)=0 "BLD",7920,1,384,0) "BLD",7920,1,385,0) Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES "BLD",7920,1,386,0) "BLD",7920,1,387,0) Select C0Q MEASUREMENT SET NAME: ACME "BLD",7920,1,388,0) 1 ACME CLINIC #1 PR "BLD",7920,1,389,0) 2 ACME CLINIC #1 QM "BLD",7920,1,390,0) CHOOSE 1-2: 1 ACME CLINIC #1 PR "BLD",7920,1,391,0) "BLD",7920,1,392,0) DEVICE: HOME// TELNET "BLD",7920,1,393,0) C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1 "BLD",7920,1,394,0) MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE "BLD",7920,1,395,0) -------------------------------------------------------------------------------- "BLD",7920,1,396,0) "BLD",7920,1,397,0) CPOE 1 0 0.00 "BLD",7920,1,398,0) "BLD",7920,1,399,0) PROBLEMS 1 1 100.00 "BLD",7920,1,400,0) "BLD",7920,1,401,0) ALLERGIES 1 1 100.00 "BLD",7920,1,402,0) "BLD",7920,1,403,0) Select C0Q MEASUREMENT SET NAME: ACME "BLD",7920,1,404,0) 1 ACME CLINIC #1 PR "BLD",7920,1,405,0) 2 ACME CLINIC #1 QM "BLD",7920,1,406,0) CHOOSE 1-2: 2 ACME CLINIC #1 QM "BLD",7920,1,407,0) "BLD",7920,1,408,0) DEVICE: HOME// TELNET "BLD",7920,1,409,0) C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1 "BLD",7920,1,410,0) MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE "BLD",7920,1,411,0) -------------------------------------------------------------------------------- "BLD",7920,1,412,0) "BLD",7920,1,413,0) NQF0013 Hypertension: 0 0 0.00 "BLD",7920,1,414,0) Blood Pressure "BLD",7920,1,415,0) Measurement "BLD",7920,1,416,0) "BLD",7920,1,417,0) NQF0028A Tobacco Use 0 0 0.00 "BLD",7920,1,418,0) Assessment "BLD",7920,1,419,0) "BLD",7920,1,420,0) NQF0028B Tobacco Use 0 0 0.00 "BLD",7920,1,421,0) Assessment and Cessation "BLD",7920,1,422,0) Intervention "BLD",7920,4,0) ^9.64PA^1130580001.401^1 "BLD",7920,4,1130580001.401,0) 1130580001.401 "BLD",7920,4,1130580001.401,2,0) ^9.641^1130580001.401^1 "BLD",7920,4,1130580001.401,2,1130580001.401,0) C0Q PARAMETER (File-top level) "BLD",7920,4,1130580001.401,2,1130580001.401,1,0) ^9.6411^6.2^2 "BLD",7920,4,1130580001.401,2,1130580001.401,1,6.1,0) MODEL PERFORMANCE MEASURE SET "BLD",7920,4,1130580001.401,2,1130580001.401,1,6.2,0) MODEL QUALITY MEASURE SET "BLD",7920,4,1130580001.401,222) y^n^p^^^^n^^n "BLD",7920,4,1130580001.401,224) "BLD",7920,4,"APDD",1130580001.401,1130580001.401) "BLD",7920,4,"APDD",1130580001.401,1130580001.401,6.1) "BLD",7920,4,"APDD",1130580001.401,1130580001.401,6.2) "BLD",7920,4,"B",1130580001.401,1130580001.401) "BLD",7920,6.3) 3 "BLD",7920,"KRN",0) ^9.67PA^779.2^20 "BLD",7920,"KRN",.4,0) .4 "BLD",7920,"KRN",.401,0) .401 "BLD",7920,"KRN",.402,0) .402 "BLD",7920,"KRN",.402,"NM",0) ^9.68A^1^1 "BLD",7920,"KRN",.402,"NM",1,0) C0Q EDIT OUPATIENT PARMS FILE #1130580001.401^1130580001.401^0 "BLD",7920,"KRN",.402,"NM","B","C0Q EDIT OUPATIENT PARMS FILE #1130580001.401",1) "BLD",7920,"KRN",.403,0) .403 "BLD",7920,"KRN",.5,0) .5 "BLD",7920,"KRN",.84,0) .84 "BLD",7920,"KRN",3.6,0) 3.6 "BLD",7920,"KRN",3.8,0) 3.8 "BLD",7920,"KRN",9.2,0) 9.2 "BLD",7920,"KRN",9.8,0) 9.8 "BLD",7920,"KRN",9.8,"NM",0) ^9.68A^2^2 "BLD",7920,"KRN",9.8,"NM",1,0) C0QMU12^^0^B351357107 "BLD",7920,"KRN",9.8,"NM",2,0) C0QMU123^^0^B4208272 "BLD",7920,"KRN",9.8,"NM","B","C0QMU12",1) "BLD",7920,"KRN",9.8,"NM","B","C0QMU123",2) "BLD",7920,"KRN",19,0) 19 "BLD",7920,"KRN",19.1,0) 19.1 "BLD",7920,"KRN",101,0) 101 "BLD",7920,"KRN",409.61,0) 409.61 "BLD",7920,"KRN",771,0) 771 "BLD",7920,"KRN",779.2,0) 779.2 "BLD",7920,"KRN",870,0) 870 "BLD",7920,"KRN",8989.51,0) 8989.51 "BLD",7920,"KRN",8989.52,0) 8989.52 "BLD",7920,"KRN",8994,0) 8994 "BLD",7920,"KRN","B",.4,.4) "BLD",7920,"KRN","B",.401,.401) "BLD",7920,"KRN","B",.402,.402) "BLD",7920,"KRN","B",.403,.403) "BLD",7920,"KRN","B",.5,.5) "BLD",7920,"KRN","B",.84,.84) "BLD",7920,"KRN","B",3.6,3.6) "BLD",7920,"KRN","B",3.8,3.8) "BLD",7920,"KRN","B",9.2,9.2) "BLD",7920,"KRN","B",9.8,9.8) "BLD",7920,"KRN","B",19,19) "BLD",7920,"KRN","B",19.1,19.1) "BLD",7920,"KRN","B",101,101) "BLD",7920,"KRN","B",409.61,409.61) "BLD",7920,"KRN","B",771,771) "BLD",7920,"KRN","B",779.2,779.2) "BLD",7920,"KRN","B",870,870) "BLD",7920,"KRN","B",8989.51,8989.51) "BLD",7920,"KRN","B",8989.52,8989.52) "BLD",7920,"KRN","B",8994,8994) "BLD",7920,"QUES",0) ^9.62^^ "BLD",7920,"REQB",0) ^9.611^^ "FIA",1130580001.401) C0Q PARAMETER "FIA",1130580001.401,0) ^C0Q(401, "FIA",1130580001.401,0,0) 1130580001.401 "FIA",1130580001.401,0,1) y^n^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,6.1) "FIA",1130580001.401,1130580001.401,6.2) "KRN",.402,1734,-1) 0^1 "KRN",.402,1734,0) C0Q EDIT OUPATIENT PARMS^3121019.1511^@^1130580001.401^^@^3121022 "KRN",.402,1734,"DIAB",1,1,1130580001.4013,0) ALL "KRN",.402,1734,"DIAB",1,1,1130580001.411,0) ALL "KRN",.402,1734,"DR",1,1130580001.401) .01;.02;.03;2;2.1;2.2;2.3;3;6.1;6.2; "KRN",.402,1734,"DR",2,1130580001.4013) .01:.02 "KRN",.402,1734,"DR",2,1130580001.411) .01 "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 "PKG",214,-1) 1^1 "PKG",214,0) QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures "PKG",214,20,0) ^9.402P^^ "PKG",214,22,0) ^9.49I^1^1 "PKG",214,22,1,0) 1.0^3120731^3121002^8 "PKG",214,22,1,"PAH",1,0) 6^3121023 "PKG",214,22,1,"PAH",1,1,0) ^^422^422^3121023 "PKG",214,22,1,"PAH",1,1,1,0) Source, Copyright, & Licensing: "PKG",214,22,1,"PAH",1,1,2,0) =============================== "PKG",214,22,1,"PAH",1,1,3,0) This patch to WorldVistA 2.0 was produced in a WV 3/09 Environment by George "PKG",214,22,1,"PAH",1,1,4,0) Lily on 23 October 2012 and released through VISTA Forum. "PKG",214,22,1,"PAH",1,1,5,0) "PKG",214,22,1,"PAH",1,1,6,0) (C) Geroge Lilly 2012 "PKG",214,22,1,"PAH",1,1,7,0) Licensed under Package License: AGPL v3. "PKG",214,22,1,"PAH",1,1,8,0) "PKG",214,22,1,"PAH",1,1,9,0) http://www.gnu.org/licenses/agpl-3.0.html "PKG",214,22,1,"PAH",1,1,10,0) "PKG",214,22,1,"PAH",1,1,11,0) Functionality: "PKG",214,22,1,"PAH",1,1,12,0) ============== "PKG",214,22,1,"PAH",1,1,13,0) This patch adds support for using model Measurement Sets for creating a new "PKG",214,22,1,"PAH",1,1,14,0) Measurement Sets based on the model Measurement Sets. Usage instructions will "PKG",214,22,1,"PAH",1,1,15,0) be found at the end of this patch message. "PKG",214,22,1,"PAH",1,1,16,0) "PKG",214,22,1,"PAH",1,1,17,0) Support Tickets: "PKG",214,22,1,"PAH",1,1,18,0) "PKG",214,22,1,"PAH",1,1,19,0) "PKG",214,22,1,"PAH",1,1,20,0) Package Elements: "PKG",214,22,1,"PAH",1,1,21,0) ================= "PKG",214,22,1,"PAH",1,1,22,0) UP SEND DATA USER "PKG",214,22,1,"PAH",1,1,23,0) DATE SEC. COMES SITE RSLV OVER "PKG",214,22,1,"PAH",1,1,24,0) FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE "PKG",214,22,1,"PAH",1,1,25,0) ------------------------------------------------------------------------------- "PKG",214,22,1,"PAH",1,1,26,0) "PKG",214,22,1,"PAH",1,1,27,0) 1130580001.401C0Q PARAMETER YES NO NO NO "PKG",214,22,1,"PAH",1,1,28,0) Partial DD: subDD: 1130580001.401fld: 6.1 "PKG",214,22,1,"PAH",1,1,29,0) fld: 6.2 "PKG",214,22,1,"PAH",1,1,30,0) "PKG",214,22,1,"PAH",1,1,31,0) INPUT TEMPLATE: ACTION: "PKG",214,22,1,"PAH",1,1,32,0) C0Q EDIT OUPATIENT PARMS FILE #1130580001.401SEND TO SITE "PKG",214,22,1,"PAH",1,1,33,0) "PKG",214,22,1,"PAH",1,1,34,0) ROUTINE: ACTION: "PKG",214,22,1,"PAH",1,1,35,0) C0QMU12 SEND TO SITE "PKG",214,22,1,"PAH",1,1,36,0) C0QMU123 SEND TO SITE "PKG",214,22,1,"PAH",1,1,37,0) Test Sites: "PKG",214,22,1,"PAH",1,1,38,0) =========== "PKG",214,22,1,"PAH",1,1,39,0) "PKG",214,22,1,"PAH",1,1,40,0) "PKG",214,22,1,"PAH",1,1,41,0) Compliance: "PKG",214,22,1,"PAH",1,1,42,0) =========== "PKG",214,22,1,"PAH",1,1,43,0) This software complies with the VA MUMPS Programming Standards and "PKG",214,22,1,"PAH",1,1,44,0) Conventions (version 3 April 2007), with the following exception: "PKG",214,22,1,"PAH",1,1,45,0) "PKG",214,22,1,"PAH",1,1,46,0) C0QMU12 * * 591 Lines, 20662 Bytes, Checksum: B351357107 "PKG",214,22,1,"PAH",1,1,47,0) S - Routine exceeds SACC maximum size of 20000 (20662). "PKG",214,22,1,"PAH",1,1,48,0) S - Routine code exceeds SACC maximum size of 15000 (16922). "PKG",214,22,1,"PAH",1,1,49,0) "PKG",214,22,1,"PAH",1,1,50,0) "PKG",214,22,1,"PAH",1,1,51,0) This software has not been tested for 508 compliance. "PKG",214,22,1,"PAH",1,1,52,0) "PKG",214,22,1,"PAH",1,1,53,0) Installation Instructions: "PKG",214,22,1,"PAH",1,1,54,0) ========================== "PKG",214,22,1,"PAH",1,1,55,0) Install Time - less than 1 minute "PKG",214,22,1,"PAH",1,1,56,0) "PKG",214,22,1,"PAH",1,1,57,0) 1. LOAD TRANSPORT GLOBAL "PKG",214,22,1,"PAH",1,1,58,0) "PKG",214,22,1,"PAH",1,1,59,0) Choose the PackMan message containing this patch and invoke the "PKG",214,22,1,"PAH",1,1,60,0) INSTALL/CHECK MESSAGE PackMan option to unload the build. "PKG",214,22,1,"PAH",1,1,61,0) "PKG",214,22,1,"PAH",1,1,62,0) 2. START UP KIDS "PKG",214,22,1,"PAH",1,1,63,0) "PKG",214,22,1,"PAH",1,1,64,0) Start up the Kernel Installation and Distribution System Menu "PKG",214,22,1,"PAH",1,1,65,0) [XPD MAIN]: "PKG",214,22,1,"PAH",1,1,66,0) "PKG",214,22,1,"PAH",1,1,67,0) Edits and Distribution ... "PKG",214,22,1,"PAH",1,1,68,0) Utilities ... "PKG",214,22,1,"PAH",1,1,69,0) Installation ... "PKG",214,22,1,"PAH",1,1,70,0) "PKG",214,22,1,"PAH",1,1,71,0) Select Kernel Installation & Distribution System Option: INStallation "PKG",214,22,1,"PAH",1,1,72,0) --- "PKG",214,22,1,"PAH",1,1,73,0) Load a Distribution "PKG",214,22,1,"PAH",1,1,74,0) Print Transport Global "PKG",214,22,1,"PAH",1,1,75,0) Compare Transport Global to Current System "PKG",214,22,1,"PAH",1,1,76,0) Verify Checksums in Transport Global "PKG",214,22,1,"PAH",1,1,77,0) Install Package(s) "PKG",214,22,1,"PAH",1,1,78,0) Restart Install of Package(s) "PKG",214,22,1,"PAH",1,1,79,0) Unload a Distribution "PKG",214,22,1,"PAH",1,1,80,0) Backup a Transport Global "PKG",214,22,1,"PAH",1,1,81,0) "PKG",214,22,1,"PAH",1,1,82,0) Select Installation Option: "PKG",214,22,1,"PAH",1,1,83,0) "PKG",214,22,1,"PAH",1,1,84,0) 3. Select Installation Option: "PKG",214,22,1,"PAH",1,1,85,0) "PKG",214,22,1,"PAH",1,1,86,0) NOTE: The following are OPTIONAL - (When prompted for the INSTALL "PKG",214,22,1,"PAH",1,1,87,0) NAME, enter C0Q*1.0*6): "PKG",214,22,1,"PAH",1,1,88,0) "PKG",214,22,1,"PAH",1,1,89,0) a. Backup a Transport Global - This option will create a backup "PKG",214,22,1,"PAH",1,1,90,0) message of any routines exported with this patch. It will not "PKG",214,22,1,"PAH",1,1,91,0) backup any other changes such as DD's or templates. "PKG",214,22,1,"PAH",1,1,92,0) b. Compare Transport Global to Current System - This option will "PKG",214,22,1,"PAH",1,1,93,0) allow you to view all changes that will be made when this patch "PKG",214,22,1,"PAH",1,1,94,0) is installed. It compares all components of this patch "PKG",214,22,1,"PAH",1,1,95,0) (routines, DD's, templates, etc.). "PKG",214,22,1,"PAH",1,1,96,0) c. Verify Checksums in Transport Global - This option will allow "PKG",214,22,1,"PAH",1,1,97,0) you to ensure the integrity of the routines that are in the "PKG",214,22,1,"PAH",1,1,98,0) transport global. "PKG",214,22,1,"PAH",1,1,99,0) "PKG",214,22,1,"PAH",1,1,100,0) 4. Select Installation Option: Install Package(s) "PKG",214,22,1,"PAH",1,1,101,0) "PKG",214,22,1,"PAH",1,1,102,0) **This is the step to start the installation of this KIDS patch: "PKG",214,22,1,"PAH",1,1,103,0) "PKG",214,22,1,"PAH",1,1,104,0) a. Choose the Install Package(s) option to start the patch install "PKG",214,22,1,"PAH",1,1,105,0) and enter "C0Q*1.0*6" at the INSTALL NAME prompt. As part of the "PKG",214,22,1,"PAH",1,1,106,0) Environment Check routine, the message below will display "PKG",214,22,1,"PAH",1,1,107,0) b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of "PKG",214,22,1,"PAH",1,1,108,0) Install? NO//' answer NO "PKG",214,22,1,"PAH",1,1,109,0) c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? "PKG",214,22,1,"PAH",1,1,110,0) NO//' answer NO "PKG",214,22,1,"PAH",1,1,111,0) d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, "PKG",214,22,1,"PAH",1,1,112,0) and Protocols? NO//' answer NO "PKG",214,22,1,"PAH",1,1,113,0) "PKG",214,22,1,"PAH",1,1,114,0) Install Transcript: "PKG",214,22,1,"PAH",1,1,115,0) Select OPTION NAME: XPD MAIN Kernel Installation & Distribution System "PKG",214,22,1,"PAH",1,1,116,0) "PKG",214,22,1,"PAH",1,1,117,0) Select Kernel Installation & Distribution System Option: INStallation "PKG",214,22,1,"PAH",1,1,118,0) "PKG",214,22,1,"PAH",1,1,119,0) Select Installation Option: 1 Load a Distribution "PKG",214,22,1,"PAH",1,1,120,0) Enter a Host File: C0Q*1.0*6 "PKG",214,22,1,"PAH",1,1,121,0) "PKG",214,22,1,"PAH",1,1,122,0) KIDS Distribution saved on Oct 22, 2012@17:41:17 "PKG",214,22,1,"PAH",1,1,123,0) Comment: FRDGHJKLFGHJKL "PKG",214,22,1,"PAH",1,1,124,0) "PKG",214,22,1,"PAH",1,1,125,0) This Distribution contains Transport Globals for the following Package(s): "PKG",214,22,1,"PAH",1,1,126,0) C0Q*1.0*6 "PKG",214,22,1,"PAH",1,1,127,0) Distribution OK! "PKG",214,22,1,"PAH",1,1,128,0) "PKG",214,22,1,"PAH",1,1,129,0) Want to Continue with Load? YES// "PKG",214,22,1,"PAH",1,1,130,0) Loading Distribution... "PKG",214,22,1,"PAH",1,1,131,0) "PKG",214,22,1,"PAH",1,1,132,0) C0Q*1.0*6 "PKG",214,22,1,"PAH",1,1,133,0) Use INSTALL NAME: C0Q*1.0*6 to install this Distribution. "PKG",214,22,1,"PAH",1,1,134,0) "PKG",214,22,1,"PAH",1,1,135,0) Select Installation Option: 6 Install Package(s) "PKG",214,22,1,"PAH",1,1,136,0) Select INSTALL NAME: C0Q*1.0*6 Loaded from Distribution Loaded from Di "PKG",214,22,1,"PAH",1,1,137,0) stribution 10/23/12@11:46:32 "PKG",214,22,1,"PAH",1,1,138,0) => FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17 "PKG",214,22,1,"PAH",1,1,139,0) "PKG",214,22,1,"PAH",1,1,140,0) This Distribution was loaded on Oct 23, 2012@11:46:32 with header of "PKG",214,22,1,"PAH",1,1,141,0) FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17 "PKG",214,22,1,"PAH",1,1,142,0) It consisted of the following Install(s): "PKG",214,22,1,"PAH",1,1,143,0) C0Q*1.0*6 "PKG",214,22,1,"PAH",1,1,144,0) "PKG",214,22,1,"PAH",1,1,145,0) Checking C0Q*1.0*6 for overlap with VOE 1.0 ... OK "PKG",214,22,1,"PAH",1,1,146,0) No overlap found "PKG",214,22,1,"PAH",1,1,147,0) "PKG",214,22,1,"PAH",1,1,148,0) Checking C0Q*1.0*6 for overlap with VOE 1.1 ... OK "PKG",214,22,1,"PAH",1,1,149,0) No overlap found "PKG",214,22,1,"PAH",1,1,150,0) "PKG",214,22,1,"PAH",1,1,151,0) Checking C0Q*1.0*6 for overlap with NO HOME 1.0 ... OK "PKG",214,22,1,"PAH",1,1,152,0) No overlap found "PKG",214,22,1,"PAH",1,1,153,0) "PKG",214,22,1,"PAH",1,1,154,0) Checking Install for Package C0Q*1.0*6 "PKG",214,22,1,"PAH",1,1,155,0) "PKG",214,22,1,"PAH",1,1,156,0) Install Questions for C0Q*1.0*6 "PKG",214,22,1,"PAH",1,1,157,0) "PKG",214,22,1,"PAH",1,1,158,0) Incoming Files: "PKG",214,22,1,"PAH",1,1,159,0) "PKG",214,22,1,"PAH",1,1,160,0) 1130580001.401C0Q PARAMETER (Partial Definition) "PKG",214,22,1,"PAH",1,1,161,0) Note: You already have the 'C0Q PARAMETER' File. "PKG",214,22,1,"PAH",1,1,162,0) "PKG",214,22,1,"PAH",1,1,163,0) Want KIDS to INHIBIT LOGONs during the install? NO// "PKG",214,22,1,"PAH",1,1,164,0) Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO// "PKG",214,22,1,"PAH",1,1,165,0) "PKG",214,22,1,"PAH",1,1,166,0) Enter the Device you want to print the Install messages. "PKG",214,22,1,"PAH",1,1,167,0) You can queue the install by enter a 'Q' at the device prompt. "PKG",214,22,1,"PAH",1,1,168,0) Enter a '^' to abort the install. "PKG",214,22,1,"PAH",1,1,169,0) "PKG",214,22,1,"PAH",1,1,170,0) DEVICE: HOME// 0;P-OTHER;80;9999 TELNET "PKG",214,22,1,"PAH",1,1,171,0) "PKG",214,22,1,"PAH",1,1,172,0) Install Started for C0Q*1.0*6 : "PKG",214,22,1,"PAH",1,1,173,0) Oct 23, 2012@11:46:53 "PKG",214,22,1,"PAH",1,1,174,0) "PKG",214,22,1,"PAH",1,1,175,0) Build Distribution Date: Oct 22, 2012 "PKG",214,22,1,"PAH",1,1,176,0) "PKG",214,22,1,"PAH",1,1,177,0) Installing Routines:... "PKG",214,22,1,"PAH",1,1,178,0) Oct 23, 2012@11:46:53 "PKG",214,22,1,"PAH",1,1,179,0) "PKG",214,22,1,"PAH",1,1,180,0) Installing Data Dictionaries: .. "PKG",214,22,1,"PAH",1,1,181,0) Oct 23, 2012@11:46:54 "PKG",214,22,1,"PAH",1,1,182,0) "PKG",214,22,1,"PAH",1,1,183,0) Installing PACKAGE COMPONENTS: "PKG",214,22,1,"PAH",1,1,184,0) "PKG",214,22,1,"PAH",1,1,185,0) Installing INPUT TEMPLATE.. "PKG",214,22,1,"PAH",1,1,186,0) Oct 23, 2012@11:46:54 "PKG",214,22,1,"PAH",1,1,187,0) "PKG",214,22,1,"PAH",1,1,188,0) Updating Routine file...... "PKG",214,22,1,"PAH",1,1,189,0) "PKG",214,22,1,"PAH",1,1,190,0) Updating KIDS files....... "PKG",214,22,1,"PAH",1,1,191,0) "PKG",214,22,1,"PAH",1,1,192,0) C0Q*1.0*6 Installed. "PKG",214,22,1,"PAH",1,1,193,0) Oct 23, 2012@11:46:54 "PKG",214,22,1,"PAH",1,1,194,0) "PKG",214,22,1,"PAH",1,1,195,0) Not a VA primary domain "PKG",214,22,1,"PAH",1,1,196,0) "PKG",214,22,1,"PAH",1,1,197,0) NO Install Message sent "PKG",214,22,1,"PAH",1,1,198,0) "PKG",214,22,1,"PAH",1,1,199,0) Select Installation Option: "PKG",214,22,1,"PAH",1,1,200,0) ---------------------------- "PKG",214,22,1,"PAH",1,1,201,0) "PKG",214,22,1,"PAH",1,1,202,0) Usage instructions: "PKG",214,22,1,"PAH",1,1,203,0) =================== "PKG",214,22,1,"PAH",1,1,204,0) 1. Create two measure sets, one for Performance Measures, and one for Quality "PKG",214,22,1,"PAH",1,1,205,0) Measures. If you have ones already created for other clinics, you can use them. "PKG",214,22,1,"PAH",1,1,206,0) It's okay for them to have filter lists, as these will be deleted by the "PKG",214,22,1,"PAH",1,1,207,0) software when the measure set is being copied. "PKG",214,22,1,"PAH",1,1,208,0) "PKG",214,22,1,"PAH",1,1,209,0) 2. Attach these measure sets to an Outpatient Parameter in the fields: MODEL "PKG",214,22,1,"PAH",1,1,210,0) PERFORMANCE MEASURE SET and MODEL QUALITY MEASURE SET. NB: The purpose of "PKG",214,22,1,"PAH",1,1,211,0) these fields is to generate the a measure set to use in the fields EP MU "PKG",214,22,1,"PAH",1,1,212,0) MEASUREMENT SET and EP QUALITY MEASUREMENT SET, respectively. If you have these "PKG",214,22,1,"PAH",1,1,213,0) filled out, the Model fields will have no effect. "PKG",214,22,1,"PAH",1,1,214,0) "PKG",214,22,1,"PAH",1,1,215,0) 3. Run the option EP UPDATE MU MEASURES. This create new measure sets based on "PKG",214,22,1,"PAH",1,1,216,0) the model measure sets and attach the appropriate filter lists. "PKG",214,22,1,"PAH",1,1,217,0) "PKG",214,22,1,"PAH",1,1,218,0) Miscellaneous remarks: If a model set is replaced and the option to update is "PKG",214,22,1,"PAH",1,1,219,0) reran, the behavior is not to delete the old created measure set but rather to "PKG",214,22,1,"PAH",1,1,220,0) merge the contents of the new model set into the old created measure set. I am "PKG",214,22,1,"PAH",1,1,221,0) not sure if this is the desirable behavior, but that is how it currently works. "PKG",214,22,1,"PAH",1,1,222,0) "PKG",214,22,1,"PAH",1,1,223,0) Transcript: "PKG",214,22,1,"PAH",1,1,224,0) Select QUALITY MEASUREMENT MENU Option: ? "PKG",214,22,1,"PAH",1,1,225,0) "PKG",214,22,1,"PAH",1,1,226,0) COPY OVER PATIENT LISTS "PKG",214,22,1,"PAH",1,1,227,0) ED-1 COMPUTATION "PKG",214,22,1,"PAH",1,1,228,0) ED-2 COMPUTATION "PKG",214,22,1,"PAH",1,1,229,0) EP UPDATE MU MEASURES "PKG",214,22,1,"PAH",1,1,230,0) INP UPDATE MU MEASURES "PKG",214,22,1,"PAH",1,1,231,0) PQRI MENU ... "PKG",214,22,1,"PAH",1,1,232,0) PQRI PRINT XML "PKG",214,22,1,"PAH",1,1,233,0) PRINT C0Q MEASURES "PKG",214,22,1,"PAH",1,1,234,0) QRDA MENU ... "PKG",214,22,1,"PAH",1,1,235,0) SETUP QUALITY REPORTING ... "PKG",214,22,1,"PAH",1,1,236,0) "PKG",214,22,1,"PAH",1,1,237,0) Enter ?? for more options, ??? for brief descriptions, ?OPTION for help text. "PKG",214,22,1,"PAH",1,1,238,0) "PKG",214,22,1,"PAH",1,1,239,0) Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES "PKG",214,22,1,"PAH",1,1,240,0) "PKG",214,22,1,"PAH",1,1,241,0) Select C0Q MEASUREMENT SET NAME: DR OFF "PKG",214,22,1,"PAH",1,1,242,0) 1 DR OFFICE PERFORMANCE MEASURES "PKG",214,22,1,"PAH",1,1,243,0) 2 DR OFFICE QUALITY MEASURES "PKG",214,22,1,"PAH",1,1,244,0) CHOOSE 1-2: 1 DR OFFICE PERFORMANCE MEASURES "PKG",214,22,1,"PAH",1,1,245,0) "PKG",214,22,1,"PAH",1,1,246,0) DEVICE: HOME// TELNET "PKG",214,22,1,"PAH",1,1,247,0) C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1 "PKG",214,22,1,"PAH",1,1,248,0) MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE "PKG",214,22,1,"PAH",1,1,249,0) -------------------------------------------------------------------------------- "PKG",214,22,1,"PAH",1,1,250,0) "PKG",214,22,1,"PAH",1,1,251,0) CPOE 3 0 0.00 "PKG",214,22,1,"PAH",1,1,252,0) "PKG",214,22,1,"PAH",1,1,253,0) PROBLEMS 3 3 100.00 "PKG",214,22,1,"PAH",1,1,254,0) "PKG",214,22,1,"PAH",1,1,255,0) ALLERGIES 3 3 100.00 "PKG",214,22,1,"PAH",1,1,256,0) "PKG",214,22,1,"PAH",1,1,257,0) Select C0Q MEASUREMENT SET NAME: DR OFF "PKG",214,22,1,"PAH",1,1,258,0) 1 DR OFFICE PERFORMANCE MEASURES "PKG",214,22,1,"PAH",1,1,259,0) 2 DR OFFICE QUALITY MEASURES "PKG",214,22,1,"PAH",1,1,260,0) CHOOSE 1-2: 2 DR OFFICE QUALITY MEASURES "PKG",214,22,1,"PAH",1,1,261,0) "PKG",214,22,1,"PAH",1,1,262,0) DEVICE: HOME// TELNET "PKG",214,22,1,"PAH",1,1,263,0) C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1 "PKG",214,22,1,"PAH",1,1,264,0) MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE "PKG",214,22,1,"PAH",1,1,265,0) -------------------------------------------------------------------------------- "PKG",214,22,1,"PAH",1,1,266,0) "PKG",214,22,1,"PAH",1,1,267,0) NQF0013 Hypertension: 0 0 0.00 "PKG",214,22,1,"PAH",1,1,268,0) Blood Pressure "PKG",214,22,1,"PAH",1,1,269,0) Measurement "PKG",214,22,1,"PAH",1,1,270,0) "PKG",214,22,1,"PAH",1,1,271,0) NQF0028A Tobacco Use 0 0 0.00 "PKG",214,22,1,"PAH",1,1,272,0) Assessment "PKG",214,22,1,"PAH",1,1,273,0) "PKG",214,22,1,"PAH",1,1,274,0) NQF0028B Tobacco Use 0 0 0.00 "PKG",214,22,1,"PAH",1,1,275,0) Assessment and Cessation "PKG",214,22,1,"PAH",1,1,276,0) Intervention "PKG",214,22,1,"PAH",1,1,277,0) "PKG",214,22,1,"PAH",1,1,278,0) Select C0Q MEASUREMENT SET NAME: "PKG",214,22,1,"PAH",1,1,279,0) "PKG",214,22,1,"PAH",1,1,280,0) Select QUALITY MEASUREMENT MENU Option: SETUP QUALITY REPORTING "PKG",214,22,1,"PAH",1,1,281,0) "PKG",214,22,1,"PAH",1,1,282,0) Select SETUP QUALITY REPORTING Option: EP EDIT PARMS "PKG",214,22,1,"PAH",1,1,283,0) "PKG",214,22,1,"PAH",1,1,284,0) Select C0Q PARAMETER NAME: ACME CLINIC #1 "PKG",214,22,1,"PAH",1,1,285,0) Are you adding 'ACME CLINIC #1' as a new C0Q PARAMETER (the 2ND)? No// Y "PKG",214,22,1,"PAH",1,1,286,0) (Yes) "PKG",214,22,1,"PAH",1,1,287,0) NAME: ACME CLINIC #1// "PKG",214,22,1,"PAH",1,1,288,0) MEASUREMENT PERIOD KEY: MU12 "PKG",214,22,1,"PAH",1,1,289,0) PARAMETER TYPE: OU OUTPATIENT "PKG",214,22,1,"PAH",1,1,290,0) EP MU MEASUREMENT SET: "PKG",214,22,1,"PAH",1,1,291,0) EP QUALITY MEASUREMENT SET: "PKG",214,22,1,"PAH",1,1,292,0) Select CLINIC: ACME CLINIC #1 "PKG",214,22,1,"PAH",1,1,293,0) Are you adding 'ACME CLINIC #1' as a new CLINIC (the 1ST for this C0Q PARAMET "PKG",214,22,1,"PAH",1,1,294,0) ER)? No// Y (Yes) "PKG",214,22,1,"PAH",1,1,295,0) Select CLINIC: "PKG",214,22,1,"PAH",1,1,296,0) PATIENT LIST LABEL: "PKG",214,22,1,"PAH",1,1,297,0) Select SUBSCRIBER: "PKG",214,22,1,"PAH",1,1,298,0) MODEL PERFORMANCE MEASURE SET: DR,P DR OFFICE PERFORMANCE MEASURES "PKG",214,22,1,"PAH",1,1,299,0) MODEL QUALITY MEASURE SET: DR,Q DR OFFICE QUALITY MEASURES "PKG",214,22,1,"PAH",1,1,300,0) "PKG",214,22,1,"PAH",1,1,301,0) Select C0Q PARAMETER NAME: "PKG",214,22,1,"PAH",1,1,302,0) "PKG",214,22,1,"PAH",1,1,303,0) Select SETUP QUALITY REPORTING Option: "PKG",214,22,1,"PAH",1,1,304,0) "PKG",214,22,1,"PAH",1,1,305,0) Select QUALITY MEASUREMENT MENU Option: EP UPDATE MU MEASURES "PKG",214,22,1,"PAH",1,1,306,0) Jan 04, 2008@19:14:59 "PKG",214,22,1,"PAH",1,1,307,0) Jan 02, 2008@18:40:58 "PKG",214,22,1,"PAH",1,1,308,0) Nov 26, 2005@13:10:24 "PKG",214,22,1,"PAH",1,1,309,0) Nov 26, 2005@14:12:42 "PKG",214,22,1,"PAH",1,1,310,0) Nov 25, 2005@20:31:13 "PKG",214,22,1,"PAH",1,1,311,0) Aug 02, 2005@08:40:36 "PKG",214,22,1,"PAH",1,1,312,0) Aug 01, 2005@15:08:49 "PKG",214,22,1,"PAH",1,1,313,0) Aug 01, 2005@15:21:18 "PKG",214,22,1,"PAH",1,1,314,0) Jul 29, 2005@11:44:36 "PKG",214,22,1,"PAH",1,1,315,0) Jul 29, 2005@11:53:15 "PKG",214,22,1,"PAH",1,1,316,0) Jul 29, 2005@12:04:45 "PKG",214,22,1,"PAH",1,1,317,0) Jul 28, 2005@12:20:20 "PKG",214,22,1,"PAH",1,1,318,0) Jul 28, 2005@16:16:03 "PKG",214,22,1,"PAH",1,1,319,0) Jul 27, 2005@11:21:04 "PKG",214,22,1,"PAH",1,1,320,0) Jul 27, 2005@11:24:55 "PKG",214,22,1,"PAH",1,1,321,0) Jul 27, 2005@11:41:40 "PKG",214,22,1,"PAH",1,1,322,0) Jul 27, 2005@11:47:38 "PKG",214,22,1,"PAH",1,1,323,0) Jul 27, 2005@11:49:41 "PKG",214,22,1,"PAH",1,1,324,0) Jul 27, 2005@11:50:26 "PKG",214,22,1,"PAH",1,1,325,0) Jul 27, 2005@15:45:45 "PKG",214,22,1,"PAH",1,1,326,0) Jul 25, 2005@08:37:24 "PKG",214,22,1,"PAH",1,1,327,0) Jul 24, 2005@11:01:55 "PKG",214,22,1,"PAH",1,1,328,0) Jul 24, 2005@14:22:11 "PKG",214,22,1,"PAH",1,1,329,0) Jul 24, 2005@16:22:29 "PKG",214,22,1,"PAH",1,1,330,0) Jul 24, 2005@17:17:01 "PKG",214,22,1,"PAH",1,1,331,0) Jul 24, 2005@17:33:39 "PKG",214,22,1,"PAH",1,1,332,0) Jul 23, 2005@16:14:54 "PKG",214,22,1,"PAH",1,1,333,0) Jul 23, 2005@17:17:08 "PKG",214,22,1,"PAH",1,1,334,0) Jul 23, 2005@17:24:01 "PKG",214,22,1,"PAH",1,1,335,0) Jul 22, 2005@10:49:29 "PKG",214,22,1,"PAH",1,1,336,0) Jul 22, 2005@16:46:52 "PKG",214,22,1,"PAH",1,1,337,0) Jul 21, 2005@08:56:56 "PKG",214,22,1,"PAH",1,1,338,0) Jul 21, 2005@12:10:54 "PKG",214,22,1,"PAH",1,1,339,0) Jul 21, 2005@15:39:22 "PKG",214,22,1,"PAH",1,1,340,0) Jul 21, 2005@15:39:29 "PKG",214,22,1,"PAH",1,1,341,0) Jul 20, 2005@10:07:46 "PKG",214,22,1,"PAH",1,1,342,0) Jul 20, 2005@10:44:03 "PKG",214,22,1,"PAH",1,1,343,0) Jul 19, 2005@07:41:49 "PKG",214,22,1,"PAH",1,1,344,0) Jul 19, 2005@08:52:13 "PKG",214,22,1,"PAH",1,1,345,0) Jul 19, 2005@11:32:14 "PKG",214,22,1,"PAH",1,1,346,0) Jul 19, 2005@11:36:08 "PKG",214,22,1,"PAH",1,1,347,0) Jul 19, 2005@13:35:12 "PKG",214,22,1,"PAH",1,1,348,0) Jul 19, 2005@15:43:18 "PKG",214,22,1,"PAH",1,1,349,0) Jul 19, 2005@15:54:48 "PKG",214,22,1,"PAH",1,1,350,0) Jul 18, 2005@17:57:49 "PKG",214,22,1,"PAH",1,1,351,0) Jul 15, 2005@16:00 "PKG",214,22,1,"PAH",1,1,352,0) Jul 08, 2005@13:03 "PKG",214,22,1,"PAH",1,1,353,0) Jul 01, 2005@14:37:23 "PKG",214,22,1,"PAH",1,1,354,0) Oct 23, 2012@12:02 "PKG",214,22,1,"PAH",1,1,355,0) CREATING MU12-EP-ACME CLINIC #1-PatientC0QFDA(1130580001.2011,"1,13,",3)=0 "PKG",214,22,1,"PAH",1,1,356,0) C0QFDA(1130580001.2011,"2,13,",3)=100 "PKG",214,22,1,"PAH",1,1,357,0) C0QFDA(1130580001.2011,"3,13,",3)=100 "PKG",214,22,1,"PAH",1,1,358,0) C0QFDA(1130580001.2011,"1,14,",3)=0 "PKG",214,22,1,"PAH",1,1,359,0) C0QFDA(1130580001.2011,"2,14,",3)=0 "PKG",214,22,1,"PAH",1,1,360,0) C0QFDA(1130580001.2011,"3,14,",3)=0 "PKG",214,22,1,"PAH",1,1,361,0) C0QFDA(1130580001.2011,"1,15,",1.1)=0 "PKG",214,22,1,"PAH",1,1,362,0) C0QFDA(1130580001.2011,"1,15,",2.1)=1 "PKG",214,22,1,"PAH",1,1,363,0) C0QFDA(1130580001.20112,"+1,1,15,",.01)=3 "PKG",214,22,1,"PAH",1,1,364,0) C0QFDA(1130580001.2011,"1,15,",3)=0 "PKG",214,22,1,"PAH",1,1,365,0) C0QFDA(1130580001.2011,"2,15,",1.1)=1 "PKG",214,22,1,"PAH",1,1,366,0) C0QFDA(1130580001.20111,"+1,2,15,",.01)=3 "PKG",214,22,1,"PAH",1,1,367,0) C0QFDA(1130580001.2011,"2,15,",2.1)=1 "PKG",214,22,1,"PAH",1,1,368,0) C0QFDA(1130580001.20112,"+1,2,15,",.01)=3 "PKG",214,22,1,"PAH",1,1,369,0) C0QFDA(1130580001.2011,"2,15,",3)=100 "PKG",214,22,1,"PAH",1,1,370,0) C0QFDA(1130580001.2011,"3,15,",1.1)=1 "PKG",214,22,1,"PAH",1,1,371,0) C0QFDA(1130580001.20111,"+1,3,15,",.01)=3 "PKG",214,22,1,"PAH",1,1,372,0) C0QFDA(1130580001.2011,"3,15,",2.1)=1 "PKG",214,22,1,"PAH",1,1,373,0) C0QFDA(1130580001.20112,"+1,3,15,",.01)=3 "PKG",214,22,1,"PAH",1,1,374,0) C0QFDA(1130580001.2011,"3,15,",3)=100 "PKG",214,22,1,"PAH",1,1,375,0) C0QFDA(1130580001.2011,"1,16,",1.1)=0 "PKG",214,22,1,"PAH",1,1,376,0) C0QFDA(1130580001.2011,"1,16,",2.1)=0 "PKG",214,22,1,"PAH",1,1,377,0) C0QFDA(1130580001.2011,"1,16,",3)=0 "PKG",214,22,1,"PAH",1,1,378,0) C0QFDA(1130580001.2011,"2,16,",1.1)=0 "PKG",214,22,1,"PAH",1,1,379,0) C0QFDA(1130580001.2011,"2,16,",2.1)=0 "PKG",214,22,1,"PAH",1,1,380,0) C0QFDA(1130580001.2011,"2,16,",3)=0 "PKG",214,22,1,"PAH",1,1,381,0) C0QFDA(1130580001.2011,"3,16,",1.1)=0 "PKG",214,22,1,"PAH",1,1,382,0) C0QFDA(1130580001.2011,"3,16,",2.1)=0 "PKG",214,22,1,"PAH",1,1,383,0) C0QFDA(1130580001.2011,"3,16,",3)=0 "PKG",214,22,1,"PAH",1,1,384,0) "PKG",214,22,1,"PAH",1,1,385,0) Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES "PKG",214,22,1,"PAH",1,1,386,0) "PKG",214,22,1,"PAH",1,1,387,0) Select C0Q MEASUREMENT SET NAME: ACME "PKG",214,22,1,"PAH",1,1,388,0) 1 ACME CLINIC #1 PR "PKG",214,22,1,"PAH",1,1,389,0) 2 ACME CLINIC #1 QM "PKG",214,22,1,"PAH",1,1,390,0) CHOOSE 1-2: 1 ACME CLINIC #1 PR "PKG",214,22,1,"PAH",1,1,391,0) "PKG",214,22,1,"PAH",1,1,392,0) DEVICE: HOME// TELNET "PKG",214,22,1,"PAH",1,1,393,0) C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1 "PKG",214,22,1,"PAH",1,1,394,0) MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE "PKG",214,22,1,"PAH",1,1,395,0) -------------------------------------------------------------------------------- "PKG",214,22,1,"PAH",1,1,396,0) "PKG",214,22,1,"PAH",1,1,397,0) CPOE 1 0 0.00 "PKG",214,22,1,"PAH",1,1,398,0) "PKG",214,22,1,"PAH",1,1,399,0) PROBLEMS 1 1 100.00 "PKG",214,22,1,"PAH",1,1,400,0) "PKG",214,22,1,"PAH",1,1,401,0) ALLERGIES 1 1 100.00 "PKG",214,22,1,"PAH",1,1,402,0) "PKG",214,22,1,"PAH",1,1,403,0) Select C0Q MEASUREMENT SET NAME: ACME "PKG",214,22,1,"PAH",1,1,404,0) 1 ACME CLINIC #1 PR "PKG",214,22,1,"PAH",1,1,405,0) 2 ACME CLINIC #1 QM "PKG",214,22,1,"PAH",1,1,406,0) CHOOSE 1-2: 2 ACME CLINIC #1 QM "PKG",214,22,1,"PAH",1,1,407,0) "PKG",214,22,1,"PAH",1,1,408,0) DEVICE: HOME// TELNET "PKG",214,22,1,"PAH",1,1,409,0) C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1 "PKG",214,22,1,"PAH",1,1,410,0) MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE "PKG",214,22,1,"PAH",1,1,411,0) -------------------------------------------------------------------------------- "PKG",214,22,1,"PAH",1,1,412,0) "PKG",214,22,1,"PAH",1,1,413,0) NQF0013 Hypertension: 0 0 0.00 "PKG",214,22,1,"PAH",1,1,414,0) Blood Pressure "PKG",214,22,1,"PAH",1,1,415,0) Measurement "PKG",214,22,1,"PAH",1,1,416,0) "PKG",214,22,1,"PAH",1,1,417,0) NQF0028A Tobacco Use 0 0 0.00 "PKG",214,22,1,"PAH",1,1,418,0) Assessment "PKG",214,22,1,"PAH",1,1,419,0) "PKG",214,22,1,"PAH",1,1,420,0) NQF0028B Tobacco Use 0 0 0.00 "PKG",214,22,1,"PAH",1,1,421,0) Assessment and Cessation "PKG",214,22,1,"PAH",1,1,422,0) Intervention "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") NO "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") 2 "RTN","C0QMU12") 0^1^B351357107 "RTN","C0QMU12",1,0) C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/22/12 4:29pm "RTN","C0QMU12",2,0) ;;1.0;QUALITY MEASURES;**1,5,6**;May 21, 2012;Build 3 "RTN","C0QMU12",3,0) ; "RTN","C0QMU12",4,0) ;2011 Zach Gonzales - Licensed under the terms of the GNU "RTN","C0QMU12",5,0) ;General Public License See attached copy of the License. "RTN","C0QMU12",6,0) ; "RTN","C0QMU12",7,0) ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED "RTN","C0QMU12",8,0) ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL "RTN","C0QMU12",9,0) ; "RTN","C0QMU12",10,0) C0QPFN() Q 1130580001.401 ; PARAMETER FILE "RTN","C0QMU12",11,0) C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE "RTN","C0QMU12",12,0) C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT SET FILE "RTN","C0QMU12",13,0) C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE "RTN","C0QMU12",14,0) INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS "RTN","C0QMU12",15,0) ; ZARY IS PASSED BY NAME "RTN","C0QMU12",16,0) ; ZTYP IS "INP" OR "EP" "RTN","C0QMU12",17,0) N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT "RTN","C0QMU12",18,0) ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS "RTN","C0QMU12",19,0) K @ZARY ; CLEAR RETURN ARRAY "RTN","C0QMU12",20,0) N ZIEN,ZCNT,ZX "RTN","C0QMU12",21,0) I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE "RTN","C0QMU12",22,0) . W !,"ERROR, NO PARAMETERS AVAILABLE" "RTN","C0QMU12",23,0) S ZIEN="" "RTN","C0QMU12",24,0) S ZCNT=0 "RTN","C0QMU12",25,0) F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ; "RTN","C0QMU12",26,0) . S ZCNT=ZCNT+1 "RTN","C0QMU12",27,0) . S @ZARY@(ZCNT,"IEN")=ZIEN "RTN","C0QMU12",28,0) . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02) "RTN","C0QMU12",29,0) . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03) "RTN","C0QMU12",30,0) . ; "RTN","C0QMU12",31,0) . ; Inpatient "RTN","C0QMU12",32,0) . S (ZX,@ZARY@(ZCNT,"InpatientMeasurementSet"))=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I") "RTN","C0QMU12",33,0) . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") "RTN","C0QMU12",34,0) . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") "RTN","C0QMU12",35,0) . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I") "RTN","C0QMU12",36,0) . ; "RTN","C0QMU12",37,0) . ; Outpatient "RTN","C0QMU12",38,0) . S (ZX,@ZARY@(ZCNT,"EPMeasurementSet"))=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I") "RTN","C0QMU12",39,0) . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I") "RTN","C0QMU12",40,0) . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I") "RTN","C0QMU12",41,0) . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I") "RTN","C0QMU12",42,0) . S @ZARY@(ZCNT,"EPModelPerfSet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",6.1,"I") "RTN","C0QMU12",43,0) . S @ZARY@(ZCNT,"EPModelQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",6.2,"I") "RTN","C0QMU12",44,0) . ; "RTN","C0QMU12",45,0) . D CLEAN^DILF "RTN","C0QMU12",46,0) . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I") "RTN","C0QMU12",47,0) . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST "RTN","C0QMU12",48,0) . . W !,"ERROR READING CLINIC PARAMETER LIST" "RTN","C0QMU12",49,0) . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J) "RTN","C0QMU12",50,0) ; "RTN","C0QMU12",51,0) Q "RTN","C0QMU12",52,0) ; "RTN","C0QMU12",53,0) BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create "RTN","C0QMU12",54,0) ; patient lists "RTN","C0QMU12",55,0) ;N GRSLT ; ARRAY FOR RESULTS "RTN","C0QMU12",56,0) I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array "RTN","C0QMU12",57,0) I '$D(C0QPR) S C0QPR=0 ;default don't print out results "RTN","C0QMU12",58,0) I '$D(C0QPL) S C0QPL=1 ;default do create patient lists "RTN","C0QMU12",59,0) S ZYR="MU12-" "RTN","C0QMU12",60,0) D INITCLST ; initialize C0QLIST "RTN","C0QMU12",61,0) N G1 ; ONE SET OF VALUES - RNF1 FORMAT "RTN","C0QMU12",62,0) N C0QPARM "RTN","C0QMU12",63,0) D INIT("C0QPARM","INP") ; initialize inpatient parms "RTN","C0QMU12",64,0) I $O(C0QPARM(""))="" D Q ; no parms for inpatient "RTN","C0QMU12",65,0) . W !,"No inpatient parameters" "RTN","C0QMU12",66,0) N ZDIV S ZDIV="" "RTN","C0QMU12",67,0) F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division "RTN","C0QMU12",68,0) . D ALL ; all currently admitted patients in the hospital "RTN","C0QMU12",69,0) . D DIS ; all patients discharged since the reporting period began "RTN","C0QMU12",70,0) . I C0QSS D ZWRITE^C0QUTIL("GRSLT") "RTN","C0QMU12",71,0) . ;D ICUPAT ; GENERATE ICU PATIENT LIST "RTN","C0QMU12",72,0) . I C0QPL D ; "RTN","C0QMU12",73,0) . . D FILE ; FILE THE PATIENT LISTS "RTN","C0QMU12",74,0) . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; "RTN","C0QMU12",75,0) . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; "RTN","C0QMU12",76,0) . K C0QLIST "RTN","C0QMU12",77,0) Q "RTN","C0QMU12",78,0) ; "RTN","C0QMU12",79,0) INITCLST ; initialize C0QLIST "RTN","C0QMU12",80,0) ; INITIALIZE LISTS "RTN","C0QMU12",81,0) ; this is done so that if there are no matching patients, the patient list "RTN","C0QMU12",82,0) ; will be zeroed out "RTN","C0QMU12",83,0) ; K C0QLIST - VEN/SMH - Oops, we kill the previous lists!!! "RTN","C0QMU12",84,0) S C0QLIST(ZYR_"HasDemographics")="" "RTN","C0QMU12",85,0) S C0QLIST(ZYR_"Patient")="" ; VEN/SMH - Is this needed? Not used in EP. "RTN","C0QMU12",86,0) S C0QLIST(ZYR_"HasProblem")="" "RTN","C0QMU12",87,0) S C0QLIST(ZYR_"HasAllergy")="" "RTN","C0QMU12",88,0) S C0QLIST(ZYR_"HasMed")="" "RTN","C0QMU12",89,0) S C0QLIST(ZYR_"HasERX")="" ; VEN/SMH C0Q*1*5 "RTN","C0QMU12",90,0) S C0QLIST(ZYR_"HasMedRecon")="" ; VEN/SMH C0Q*1*5 "RTN","C0QMU12",91,0) S C0QLIST(ZYR_"HasVitalSigns")="" "RTN","C0QMU12",92,0) S C0QLIST(ZYR_"HasMedOrders")="" "RTN","C0QMU12",93,0) S C0QLIST(ZYR_"HasSmokingStatus")="" "RTN","C0QMU12",94,0) S C0QLIST(ZYR_"ALL-PATIENTS")="" ; VEN/SMH C0Q*1*5 "RTN","C0QMU12",95,0) Q "RTN","C0QMU12",96,0) ; "RTN","C0QMU12",97,0) ALL ;retrieve active inpatients "RTN","C0QMU12",98,0) N WARD S WARD="" "RTN","C0QMU12",99,0) F D Q:WARD="" "RTN","C0QMU12",100,0) . S WARD=$O(^DIC(42,"B",WARD)) ;ward name "RTN","C0QMU12",101,0) . Q:WARD="" "RTN","C0QMU12",102,0) . N WIEN S WIEN="" "RTN","C0QMU12",103,0) . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN "RTN","C0QMU12",104,0) . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name "RTN","C0QMU12",105,0) . . N DFN,RB S DFN="" "RTN","C0QMU12",106,0) . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward "RTN","C0QMU12",107,0) . . . D DEMO^C0QMU122 "RTN","C0QMU12",108,0) . . . D PROBLEM "RTN","C0QMU12",109,0) . . . D ALLERGY "RTN","C0QMU12",110,0) . . . D MEDS4 "RTN","C0QMU12",111,0) . . . D RECON2 "RTN","C0QMU12",112,0) . . . D ADVDIR "RTN","C0QMU12",113,0) . . . D SMOKING "RTN","C0QMU12",114,0) . . . D VITALS "RTN","C0QMU12",115,0) . . . D VTE1 "RTN","C0QMU12",116,0) . . . D COD "RTN","C0QMU12",117,0) . . . D EDTIME "RTN","C0QMU12",118,0) . . . I C0QPR D PRINT^C0QMU121 "RTN","C0QMU12",119,0) . . . I C0QSS D SS^C0QMU121 "RTN","C0QMU12",120,0) . . . I C0QPL D PATLIST^C0QMU121 "RTN","C0QMU12",121,0) Q "RTN","C0QMU12",122,0) ; "RTN","C0QMU12",123,0) PROBLEM ; PATIENT PROBLEMS "RTN","C0QMU12",124,0) D LIST^ORQQPL(.PROBL,DFN,"A") "RTN","C0QMU12",125,0) S PBCNT="" "RTN","C0QMU12",126,0) F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D "RTN","C0QMU12",127,0) . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description "RTN","C0QMU12",128,0) I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)="" "RTN","C0QMU12",129,0) E S C0QLIST(ZYR_"HasProblem",DFN)="" "RTN","C0QMU12",130,0) K PROBL "RTN","C0QMU12",131,0) Q "RTN","C0QMU12",132,0) ; "RTN","C0QMU12",133,0) ALLERGY ; ALLERGY LIST "RTN","C0QMU12",134,0) ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL "RTN","C0QMU12",135,0) D LIST^ORQQAL(.ALRGYL,DFN) "RTN","C0QMU12",136,0) S ALCNT="" "RTN","C0QMU12",137,0) F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D "RTN","C0QMU12",138,0) . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description "RTN","C0QMU12",139,0) I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)="" "RTN","C0QMU12",140,0) E S C0QLIST(ZYR_"HasAllergy",DFN)="" "RTN","C0QMU12",141,0) K ALRGYL "RTN","C0QMU12",142,0) Q "RTN","C0QMU12",143,0) ; "RTN","C0QMU12",144,0) MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS "RTN","C0QMU12",145,0) ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4 "RTN","C0QMU12",146,0) N BEG,END "RTN","C0QMU12",147,0) S BEG=$$DT^C0QUTIL("JULY 3,2011") "RTN","C0QMU12",148,0) S END=$$DT^C0QUTIL("NOW") "RTN","C0QMU12",149,0) D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400 "RTN","C0QMU12",150,0) N C0QMEDS "RTN","C0QMU12",151,0) M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL "RTN","C0QMU12",152,0) N FOUND "RTN","C0QMU12",153,0) N ZI "RTN","C0QMU12",154,0) I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS "RTN","C0QMU12",155,0) . S C0QLIST(ZYR_"NoMed",DFN)="" "RTN","C0QMU12",156,0) E D ; HAS MEDS "RTN","C0QMU12",157,0) . S C0QLIST(ZYR_"HasMed",DFN)="" "RTN","C0QMU12",158,0) S ZI="" S FOUND=0 "RTN","C0QMU12",159,0) F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED "RTN","C0QMU12",160,0) . N ZM "RTN","C0QMU12",161,0) . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION "RTN","C0QMU12",162,0) . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE "RTN","C0QMU12",163,0) . . S FOUND=1 "RTN","C0QMU12",164,0) I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE "RTN","C0QMU12",165,0) E S C0QLIST(ZYR_"NoMedOrders",DFN)="" "RTN","C0QMU12",166,0) Q "RTN","C0QMU12",167,0) ; "RTN","C0QMU12",168,0) RECON ; MEDICATIONS RECONCILIATION "RTN","C0QMU12",169,0) ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL "RTN","C0QMU12",170,0) ; "RTN","C0QMU12",171,0) I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; "RTN","C0QMU12",172,0) . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient "RTN","C0QMU12",173,0) N HASRECON S HASRECON=0 "RTN","C0QMU12",174,0) N GT,G "RTN","C0QMU12",175,0) S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")="" "RTN","C0QMU12",176,0) S GT(5,"HasMedRecon","Medication Reconcilation Complete")="" "RTN","C0QMU12",177,0) I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON "RTN","C0QMU12",178,0) . S HASRECON=1 "RTN","C0QMU12",179,0) ;N ZT "RTN","C0QMU12",180,0) ;S ZT="MEDICATION RECONCILIATION COMPLET" "RTN","C0QMU12",181,0) ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ; "RTN","C0QMU12",182,0) ;. S HASRECON=1 "RTN","C0QMU12",183,0) ;E D ; "RTN","C0QMU12",184,0) ;. S ZT="Medication Reconcilation Complete" "RTN","C0QMU12",185,0) ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ; "RTN","C0QMU12",186,0) ;. . S HASRECON=1 "RTN","C0QMU12",187,0) ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1 "RTN","C0QMU12",188,0) I HASRECON D ; "RTN","C0QMU12",189,0) . S C0QLIST(ZYR_"HasMedRecon",DFN)="" "RTN","C0QMU12",190,0) E S C0QLIST(ZYR_"NoMedRecon",DFN)="" "RTN","C0QMU12",191,0) Q "RTN","C0QMU12",192,0) ; "RTN","C0QMU12",193,0) RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION "RTN","C0QMU12",194,0) I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ; "RTN","C0QMU12",195,0) . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient "RTN","C0QMU12",196,0) I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ; "RTN","C0QMU12",197,0) . S C0QLIST(ZYR_"HasMedRecon",DFN)="" "RTN","C0QMU12",198,0) E S C0QLIST(ZYR_"NoMedRecon",DFN)="" "RTN","C0QMU12",199,0) Q "RTN","C0QMU12",200,0) ; "RTN","C0QMU12",201,0) ERX ; FOR EP, WE LOOK AT ERX MEDS "RTN","C0QMU12",202,0) N ZI S ZI="" "RTN","C0QMU12",203,0) N ZERX S ZERX=$NA(^PS(55,DFN,"NVA")) "RTN","C0QMU12",204,0) F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ; "RTN","C0QMU12",205,0) . ;B "RTN","C0QMU12",206,0) . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ; "RTN","C0QMU12",207,0) . . S C0QLIST(ZYR_"HasMed",DFN)="" "RTN","C0QMU12",208,0) . . S C0QLIST(ZYR_"HasMedOrders",DFN)="" "RTN","C0QMU12",209,0) . . S C0QLIST(ZYR_"HasERX",DFN)="" "RTN","C0QMU12",210,0) . . S C0QLIST(ZYR_"HasMedRecon",DFN)="" "RTN","C0QMU12",211,0) . E D ; "RTN","C0QMU12",212,0) . . S C0QLIST(ZYR_"NoMed",DFN)="" "RTN","C0QMU12",213,0) . . S C0QLIST(ZYR_"NoMedOrders",DFN)="" "RTN","C0QMU12",214,0) . . S C0QLIST(ZYR_"NoERX",DFN)="" "RTN","C0QMU12",215,0) . . S C0QLIST(ZYR_"NoMedRecon",DFN)="" "RTN","C0QMU12",216,0) Q "RTN","C0QMU12",217,0) ; "RTN","C0QMU12",218,0) ADVDIR ; ADVANCE DIRECTIVE "RTN","C0QMU12",219,0) ; "RTN","C0QMU12",220,0) I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER "RTN","C0QMU12",221,0) . S C0QLIST(ZYR_"Over65",DFN)="" "RTN","C0QMU12",222,0) . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ; "RTN","C0QMU12",223,0) . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)="" "RTN","C0QMU12",224,0) . E D ; "RTN","C0QMU12",225,0) . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)="" "RTN","C0QMU12",226,0) Q "RTN","C0QMU12",227,0) ; "RTN","C0QMU12",228,0) SMOKING G SMOKING^C0QMU121 "RTN","C0QMU12",229,0) VITALS ; "RTN","C0QMU12",230,0) ; "RTN","C0QMU12",231,0) N C0QSDT,C0QEDT "RTN","C0QMU12",232,0) D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE "RTN","C0QMU12",233,0) D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY "RTN","C0QMU12",234,0) S C0QEDT=C0QEDT+.999999 ; Move to the end of the day! VEN/SMH C0Q*1*5 "RTN","C0QMU12",235,0) D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS "RTN","C0QMU12",236,0) I $D(VITRSLT) D ;ZWR VITRSLT B ; "RTN","C0QMU12",237,0) . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)="" "RTN","C0QMU12",238,0) . E S C0QLIST(ZYR_"HasVitalSigns",DFN)="" "RTN","C0QMU12",239,0) Q "RTN","C0QMU12",240,0) ; "RTN","C0QMU12",241,0) VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL "RTN","C0QMU12",242,0) ; "RTN","C0QMU12",243,0) I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ; "RTN","C0QMU12",244,0) . S C0QLIST(ZYR_"HasVTE24",DFN)="" "RTN","C0QMU12",245,0) E S C0QLIST(ZYR_"NoVTE24",DFN)="" "RTN","C0QMU12",246,0) Q "RTN","C0QMU12",247,0) ; "RTN","C0QMU12",248,0) ; "RTN","C0QMU12",249,0) ; "RTN","C0QMU12",250,0) COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE "RTN","C0QMU12",251,0) I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ; "RTN","C0QMU12",252,0) . S C0QLIST(ZYR_"CauseOfDeath",DFN)="" "RTN","C0QMU12",253,0) Q "RTN","C0QMU12",254,0) ; "RTN","C0QMU12",255,0) EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS "RTN","C0QMU12",256,0) N FOUND "RTN","C0QMU12",257,0) S FOUND=0 "RTN","C0QMU12",258,0) I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1 "RTN","C0QMU12",259,0) I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0 "RTN","C0QMU12",260,0) I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0 "RTN","C0QMU12",261,0) I FOUND D ; "RTN","C0QMU12",262,0) . S C0QLIST(ZYR_"HasEDtime",DFN)="" "RTN","C0QMU12",263,0) E S C0QLIST(ZYR_"NoEDtime",DFN)="" "RTN","C0QMU12",264,0) Q "RTN","C0QMU12",265,0) ; "RTN","C0QMU12",266,0) ICUPAT ; CREATE LIST OF ICU PATIENTS "RTN","C0QMU12",267,0) N ZICU "RTN","C0QMU12",268,0) S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION "RTN","C0QMU12",269,0) N ZI,ZJ,ZP "RTN","C0QMU12",270,0) S ZI="" "RTN","C0QMU12",271,0) F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE "RTN","C0QMU12",272,0) . S ZJ="" "RTN","C0QMU12",273,0) . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT "RTN","C0QMU12",274,0) . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN "RTN","C0QMU12",275,0) . . S C0QLIST(ZYR_"ICUPatient",ZP)="" "RTN","C0QMU12",276,0) Q "RTN","C0QMU12",277,0) ; "RTN","C0QMU12",278,0) FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED "RTN","C0QMU12",279,0) ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING "RTN","C0QMU12",280,0) K C0QLIST "RTN","C0QMU12",281,0) N ZPAT "RTN","C0QMU12",282,0) S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted "RTN","C0QMU12",283,0) ; during the reporting period. used to filter other lists "RTN","C0QMU12",284,0) ; "RTN","C0QMU12",285,0) ; filter ICU patients against ZPAT "RTN","C0QMU12",286,0) N GN,GO,GF "RTN","C0QMU12",287,0) S GN=ZPAT "RTN","C0QMU12",288,0) S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient "RTN","C0QMU12",289,0) S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination "RTN","C0QMU12",290,0) D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation "RTN","C0QMU12",291,0) ; "RTN","C0QMU12",292,0) ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE "RTN","C0QMU12",293,0) ; "RTN","C0QMU12",294,0) S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period "RTN","C0QMU12",295,0) S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR "RTN","C0QMU12",296,0) S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL "RTN","C0QMU12",297,0) D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation "RTN","C0QMU12",298,0) ; "RTN","C0QMU12",299,0) S GN=ZPAT "RTN","C0QMU12",300,0) S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR "RTN","C0QMU12",301,0) S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL "RTN","C0QMU12",302,0) D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation "RTN","C0QMU12",303,0) ; "RTN","C0QMU12",304,0) S GN=ZPAT "RTN","C0QMU12",305,0) S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR "RTN","C0QMU12",306,0) S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL "RTN","C0QMU12",307,0) D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation "RTN","C0QMU12",308,0) ; "RTN","C0QMU12",309,0) S GN=ZPAT "RTN","C0QMU12",310,0) S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR "RTN","C0QMU12",311,0) S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL "RTN","C0QMU12",312,0) D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation "RTN","C0QMU12",313,0) ; "RTN","C0QMU12",314,0) D FILE ; FILE ALL THE PATIENT LISTS "RTN","C0QMU12",315,0) D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set "RTN","C0QMU12",316,0) Q "RTN","C0QMU12",317,0) ; "RTN","C0QMU12",318,0) ED1 ; "RTN","C0QMU12",319,0) S ZYR="MU12-" "RTN","C0QMU12",320,0) D DOTIME^C0QMU121("ED DEPARTURE TIME") "RTN","C0QMU12",321,0) Q "RTN","C0QMU12",322,0) ; "RTN","C0QMU12",323,0) ED2 ; "RTN","C0QMU12",324,0) S ZYR="MU12-" "RTN","C0QMU12",325,0) D DOTIME2^C0QMU121("TIME DECISION TO ADMIT MADE") "RTN","C0QMU12",326,0) Q "RTN","C0QMU12",327,0) ; "RTN","C0QMU12",328,0) RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST "RTN","C0QMU12",329,0) ; WHOSE NAME IS ZLST "RTN","C0QMU12",330,0) N ZIEN,ZN "RTN","C0QMU12",331,0) S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list "RTN","C0QMU12",332,0) S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST "RTN","C0QMU12",333,0) Q ZN "RTN","C0QMU12",334,0) ; "RTN","C0QMU12",335,0) PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH "RTN","C0QMU12",336,0) ; THE ATTRIBUTE ZATTR "RTN","C0QMU12",337,0) N ZIEN,ZN "RTN","C0QMU12",338,0) S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list "RTN","C0QMU12",339,0) S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST "RTN","C0QMU12",340,0) Q ZN "RTN","C0QMU12",341,0) ; "RTN","C0QMU12",342,0) INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST "RTN","C0QMU12",343,0) N ZL,ZR "RTN","C0QMU12",344,0) S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE "RTN","C0QMU12",345,0) I ZL="" Q 0 ; LIST DOES NOT EXIST "RTN","C0QMU12",346,0) S ZR=0 ; ASSUME NOT IN LIST "RTN","C0QMU12",347,0) I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST "RTN","C0QMU12",348,0) Q ZR "RTN","C0QMU12",349,0) ; "RTN","C0QMU12",350,0) LOCPAT(PREFIX,LOC) ;retrieve active outpatients "RTN","C0QMU12",351,0) ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)="" "RTN","C0QMU12",352,0) ; LOC IS HOSPITAL LOCATION "RTN","C0QMU12",353,0) ; Initially, make an empty list (C0Q*1.0*6) "RTN","C0QMU12",354,0) S C0QLIST(PREFIX_"Patient")="" "RTN","C0QMU12",355,0) S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION "RTN","C0QMU12",356,0) I ULOC="" D Q ; OOPS "RTN","C0QMU12",357,0) . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC "RTN","C0QMU12",358,0) S IDTE=9999999-DTE ; INVERSE DATE "RTN","C0QMU12",359,0) N ZI "RTN","C0QMU12",360,0) S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE "RTN","C0QMU12",361,0) F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE "RTN","C0QMU12",362,0) . N C0QDATE S C0QDATE=9999999-$P(ZI,".")_"."_$P(ZI,".",2) ; VEN/SMH *5 "RTN","C0QMU12",363,0) . W !,$$FMTE^XLFDT(C0QDATE) ; VEN/SMH *5 "RTN","C0QMU12",364,0) . I ZI="" Q ; "RTN","C0QMU12",365,0) . N ZJ S ZJ="" "RTN","C0QMU12",366,0) . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT "RTN","C0QMU12",367,0) . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT "RTN","C0QMU12",368,0) . . S C0QLIST(PREFIX_"Patient",DFN)="" "RTN","C0QMU12",369,0) Q "RTN","C0QMU12",370,0) ; "RTN","C0QMU12",371,0) EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS "RTN","C0QMU12",372,0) ; "RTN","C0QMU12",373,0) S DTE=3111000 "RTN","C0QMU12",374,0) S MUYR=ZYR "RTN","C0QMU12",375,0) N ZC,ZN "RTN","C0QMU12",376,0) S ZN=0 "RTN","C0QMU12",377,0) N ZI S ZI=0 "RTN","C0QMU12",378,0) F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION "RTN","C0QMU12",379,0) . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC "RTN","C0QMU12",380,0) . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC "RTN","C0QMU12",381,0) . S ZCIEN=ZI ; IEN OF CLINIC "RTN","C0QMU12",382,0) . S ZN=ZN+1 ; COUNT OF CLINICS "RTN","C0QMU12",383,0) . S PRE=MUYR_"-EP-"_ZC_"-" "RTN","C0QMU12",384,0) . D LOCPAT(PRE,ZC) "RTN","C0QMU12",385,0) W !,"NUMBER OF CLINICS: ",ZN "RTN","C0QMU12",386,0) D FILE ; CREATE ALL THE EP PATIENT LISTS "RTN","C0QMU12",387,0) Q "RTN","C0QMU12",388,0) ; "RTN","C0QMU12",389,0) DOEP ; DO EP COMPUTATIONS "RTN","C0QMU12",390,0) S ZYR="MU12-" "RTN","C0QMU12",391,0) N C0QPARM,C0QCLNC "RTN","C0QMU12",392,0) D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS "RTN","C0QMU12",393,0) K C0QLIST ; CLEAR THE LIST "RTN","C0QMU12",394,0) N ZI S ZI="" "RTN","C0QMU12",395,0) F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP "RTN","C0QMU12",396,0) . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period "RTN","C0QMU12",397,0) . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this "RTN","C0QMU12",398,0) . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now "RTN","C0QMU12",399,0) . S PRE=ZYR_"EP-"_C0QCLNC_"-" "RTN","C0QMU12",400,0) . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS "RTN","C0QMU12",401,0) . I $D(DEBUG) D ZWRITE^C0QUTIL("C0QLIST") "RTN","C0QMU12",402,0) . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient") "RTN","C0QMU12",403,0) . ; update parameter list with filter list (1.0*6) "RTN","C0QMU12",404,0) . S C0QPARM(ZI,"FilterListName")=PRE_"Patient" "RTN","C0QMU12",405,0) S DFN="" "RTN","C0QMU12",406,0) S ZYR=ZYR_"EP-" "RTN","C0QMU12",407,0) D INITCLST ; VEN/SMH - Initialize Empty Lists just in case we don't have "RTN","C0QMU12",408,0) ; any. C0Q*1*5 "RTN","C0QMU12",409,0) F S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT "RTN","C0QMU12",410,0) . D DEMO^C0QMU122 "RTN","C0QMU12",411,0) . D PROBLEM "RTN","C0QMU12",412,0) . D ALLERGY "RTN","C0QMU12",413,0) . ;D MEDS "RTN","C0QMU12",414,0) . D ERX "RTN","C0QMU12",415,0) . D SMOKING "RTN","C0QMU12",416,0) . D VITALS "RTN","C0QMU12",417,0) D FILE ; FILE THE PATIENT LISTS "RTN","C0QMU12",418,0) ; "RTN","C0QMU12",419,0) ; Now process eRx MU measures for these patients "RTN","C0QMU12",420,0) ; Check for eRx template and code first; if they exist, run the code "RTN","C0QMU12",421,0) I $D(^C0PX("B","GETMEDS6")),$L($T(SOAP^C0PWS2)) DO "RTN","C0QMU12",422,0) . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; "RTN","C0QMU12",423,0) . D EN^C0QMUERX($$PATLN^C0QMU12(ZYR_"HasERX")) ; Pass the eRx patient list "RTN","C0QMU12",424,0) ; "RTN","C0QMU12",425,0) N ZI S ZI="" "RTN","C0QMU12",426,0) F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; "RTN","C0QMU12",427,0) . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data; "RTN","C0QMU12",428,0) . I 'C0QPARM(ZI,"EPMeasurementSet"),C0QPARM(ZI,"EPModelPerfSet") D "RTN","C0QMU12",429,0) . . N C0QCLNC S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) "RTN","C0QMU12",430,0) . . N FLN S FLN=C0QPARM(ZI,"FilterListName") "RTN","C0QMU12",431,0) . . ; "RTN","C0QMU12",432,0) . . ; 1. BUILD New Measure Set from Model Performance Measure Set "RTN","C0QMU12",433,0) . . ; Get IEN back of the newly created measure set. "RTN","C0QMU12",434,0) . . N MSIEN ; Measure Set IEN that gets created "RTN","C0QMU12",435,0) . . S MSIEN=$$CLONE^C0QMU123(C0QPARM(ZI,"EPModelPerfSet"),C0QCLNC,0,FLN) "RTN","C0QMU12",436,0) . . ; "RTN","C0QMU12",437,0) . . ; 2. File Measure Set "RTN","C0QMU12",438,0) . . N C0QFDA S C0QFDA($$C0QPFN(),C0QPARM(ZI,"IEN")_",",2)=MSIEN "RTN","C0QMU12",439,0) . . N C0QERR "RTN","C0QMU12",440,0) . . D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR)) "RTN","C0QMU12",441,0) . . I $D(C0QERR) S $EC=",U1," "RTN","C0QMU12",442,0) . . ; "RTN","C0QMU12",443,0) . . ; 3. Set this IEN to be the one in EPMeasurementSet "RTN","C0QMU12",444,0) . . S C0QPARM(ZI,"EPMeasurementSet")=MSIEN "RTN","C0QMU12",445,0) . . ; DONE "RTN","C0QMU12",446,0) . . ; "RTN","C0QMU12",447,0) . I 'C0QPARM(ZI,"EPQualitySet"),C0QPARM(ZI,"EPModelQualitySet") D "RTN","C0QMU12",448,0) . . N C0QCLNC S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) "RTN","C0QMU12",449,0) . . N FLN S FLN=C0QPARM(ZI,"FilterListName") "RTN","C0QMU12",450,0) . . ; "RTN","C0QMU12",451,0) . . ; 1. BUILD New Measure Set from Model Performance Measure Set "RTN","C0QMU12",452,0) . . ; Get IEN back of the newly created measure set. "RTN","C0QMU12",453,0) . . N MSIEN ; Measure Set IEN that gets created "RTN","C0QMU12",454,0) . . S MSIEN=$$CLONE^C0QMU123(C0QPARM(ZI,"EPModelQualitySet"),C0QCLNC,1,FLN) "RTN","C0QMU12",455,0) . . ; "RTN","C0QMU12",456,0) . . ; 2. File Measure Set "RTN","C0QMU12",457,0) . . N C0QFDA S C0QFDA($$C0QPFN(),C0QPARM(ZI,"IEN")_",",2.1)=MSIEN "RTN","C0QMU12",458,0) . . N C0QERR "RTN","C0QMU12",459,0) . . D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR)) "RTN","C0QMU12",460,0) . . I $D(C0QERR) S $EC=",U1," "RTN","C0QMU12",461,0) . . ; "RTN","C0QMU12",462,0) . . ; 3. Set this IEN to be the one in EPMeasurementSet "RTN","C0QMU12",463,0) . . S C0QPARM(ZI,"EPQualitySet")=MSIEN "RTN","C0QMU12",464,0) . . ; DONE "RTN","C0QMU12",465,0) . ; "RTN","C0QMU12",466,0) . ; Quit if we still don't have measurement sets "RTN","C0QMU12",467,0) . I 'C0QPARM(ZI,"EPMeasurementSet")&('C0QPARM(ZI,"EPQualitySet")) QUIT "RTN","C0QMU12",468,0) . ; "RTN","C0QMU12",469,0) . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPMeasurementSet")) ; UPDATE THE MU MEASUREMENT SET "RTN","C0QMU12",470,0) . ; VEN/SMH -- Quality Set missing for Outpatient -- adding "RTN","C0QMU12",471,0) . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPQualitySet")) ; C0Q*1*5 "RTN","C0QMU12",472,0) Q "RTN","C0QMU12",473,0) ; "RTN","C0QMU12",474,0) DIS ; "RTN","C0QMU12",475,0) N DFN,DTE,EXDTE S DTE="" "RTN","C0QMU12",476,0) F D Q:DTE="" "RTN","C0QMU12",477,0) . S DTE=$O(^DGPM("B",DTE)) "RTN","C0QMU12",478,0) . Q:'DTE "RTN","C0QMU12",479,0) . ;Q:$P(DTE,".")<3110703 "RTN","C0QMU12",480,0) . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012 "RTN","C0QMU12",481,0) . S EXDTE=$$FMTE^XLFDT(DTE) "RTN","C0QMU12",482,0) . N PTFM S PTFM="" "RTN","C0QMU12",483,0) . D "RTN","C0QMU12",484,0) . . S PTFM=$O(^DGPM("B",DTE,PTFM)) "RTN","C0QMU12",485,0) . . Q:'PTFM "RTN","C0QMU12",486,0) . . S DFN=$P(^DGPM(PTFM,0),U,3) "RTN","C0QMU12",487,0) . . S C0QLIST(ZYR_"Patient",DFN)="" "RTN","C0QMU12",488,0) . . D DEMO^C0QMU122 "RTN","C0QMU12",489,0) . . D PROBLEM "RTN","C0QMU12",490,0) . . D ALLERGY "RTN","C0QMU12",491,0) . . D MEDS4 "RTN","C0QMU12",492,0) . . D RECON2 "RTN","C0QMU12",493,0) . . D ADVDIR "RTN","C0QMU12",494,0) . . D SMOKING "RTN","C0QMU12",495,0) . . D VITALS "RTN","C0QMU12",496,0) . . ;D:$P(DTE,".")>3110912 VTE1 "RTN","C0QMU12",497,0) . . D VTE1 "RTN","C0QMU12",498,0) . . D COD "RTN","C0QMU12",499,0) . . D EDTIME "RTN","C0QMU12",500,0) . . I C0QPR D PRINT^C0QMU121 "RTN","C0QMU12",501,0) . . I C0QSS D SS^C0QMU121 "RTN","C0QMU12",502,0) . . I C0QPL D PATLIST^C0QMU121 "RTN","C0QMU12",503,0) Q "RTN","C0QMU12",504,0) ; "RTN","C0QMU12",505,0) C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE "RTN","C0QMU12",506,0) C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE "RTN","C0QMU12",507,0) FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST "RTN","C0QMU12",508,0) ; "RTN","C0QMU12",509,0) I '$D(C0QLIST) Q ; "RTN","C0QMU12",510,0) N LFN S LFN=$$C0QALFN() "RTN","C0QMU12",511,0) N ZI,ZN "RTN","C0QMU12",512,0) S ZI="" "RTN","C0QMU12",513,0) F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ; "RTN","C0QMU12",514,0) . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) "RTN","C0QMU12",515,0) . I ZN="" D ; LIST NOT FOUND, CREATE IT "RTN","C0QMU12",516,0) . . K C0QFDA "RTN","C0QMU12",517,0) . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE "RTN","C0QMU12",518,0) . . S C0QFDA(FN,"+1,",.01)=ZI "RTN","C0QMU12",519,0) . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE "RTN","C0QMU12",520,0) . . W !,"CREATING ",ZI "RTN","C0QMU12",521,0) . . D UPDIE ; ADD THE RECORD "RTN","C0QMU12",522,0) . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN "RTN","C0QMU12",523,0) . ;I ZN="" D Q ; OOPS "RTN","C0QMU12",524,0) . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI "RTN","C0QMU12",525,0) . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN "RTN","C0QMU12",526,0) . N C0QNEW,C0QOLD,C0QRSLT "RTN","C0QMU12",527,0) . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST "RTN","C0QMU12",528,0) . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST "RTN","C0QMU12",529,0) . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW "RTN","C0QMU12",530,0) . N ZJ,ZK "RTN","C0QMU12",531,0) . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST "RTN","C0QMU12",532,0) . K C0QFDA "RTN","C0QMU12",533,0) . S ZJ="" "RTN","C0QMU12",534,0) . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY "RTN","C0QMU12",535,0) . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE "RTN","C0QMU12",536,0) . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN "RTN","C0QMU12",537,0) . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE" "RTN","C0QMU12",538,0) . . . S $EC=",U1130580001," ; smh - instead of a BREAK "RTN","C0QMU12",539,0) . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@" "RTN","C0QMU12",540,0) . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS "RTN","C0QMU12",541,0) . ; SECOND, PROCESS THE ADDITIONS "RTN","C0QMU12",542,0) . K C0QFDA "RTN","C0QMU12",543,0) . S ZJ="" S ZK=1 "RTN","C0QMU12",544,0) . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0 "RTN","C0QMU12",545,0) . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ "RTN","C0QMU12",546,0) . . S ZK=ZK+1 "RTN","C0QMU12",547,0) . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS "RTN","C0QMU12",548,0) ;. Q "RTN","C0QMU12",549,0) ;. K C0QFDA "RTN","C0QMU12",550,0) ;. N ZJ,ZC "RTN","C0QMU12",551,0) ;. S ZJ="" S ZC=1 "RTN","C0QMU12",552,0) ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST "RTN","C0QMU12",553,0) ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ "RTN","C0QMU12",554,0) ;. . S ZC=ZC+1 "RTN","C0QMU12",555,0) ;. D UPDIE "RTN","C0QMU12",556,0) ;. W !,"FOUND:"_ZI "RTN","C0QMU12",557,0) Q "RTN","C0QMU12",558,0) ; "RTN","C0QMU12",559,0) KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE "RTN","C0QMU12",560,0) ; "RTN","C0QMU12",561,0) N C0QFDA,ZFN,LIST,ATTR "RTN","C0QMU12",562,0) S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE "RTN","C0QMU12",563,0) D CLEAN^DILF "RTN","C0QMU12",564,0) S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME "RTN","C0QMU12",565,0) S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE "RTN","C0QMU12",566,0) D CLEAN^DILF "RTN","C0QMU12",567,0) K ZERR "RTN","C0QMU12",568,0) S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE "RTN","C0QMU12",569,0) D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE "RTN","C0QMU12",570,0) I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED "RTN","C0QMU12",571,0) ;. W "ERROR",! "RTN","C0QMU12",572,0) ;. ZWR ZERR "RTN","C0QMU12",573,0) ;. B "RTN","C0QMU12",574,0) K C0QFDA "RTN","C0QMU12",575,0) S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD "RTN","C0QMU12",576,0) S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE "RTN","C0QMU12",577,0) D UPDIE ; CREATE THE SUBFILE "RTN","C0QMU12",578,0) N ZR ; NEW IEN FOR THE RECORD "RTN","C0QMU12",579,0) S ZR=$O(^C0Q(301,"CATTR",ATTR,"")) "RTN","C0QMU12",580,0) ; "RTN","C0QMU12",581,0) Q ZR "RTN","C0QMU12",582,0) ; "RTN","C0QMU12",583,0) UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS "RTN","C0QMU12",584,0) K ZERR "RTN","C0QMU12",585,0) D CLEAN^DILF "RTN","C0QMU12",586,0) D UPDATE^DIE("","C0QFDA","","ZERR") "RTN","C0QMU12",587,0) I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED "RTN","C0QMU12",588,0) K C0QFDA "RTN","C0QMU12",589,0) Q "RTN","C0QMU12",590,0) ; "RTN","C0QMU12",591,0) END ;end of C0QPRML; "RTN","C0QMU123") 0^2^B4208272 "RTN","C0QMU123",1,0) C0QMU123 ; VEN/SMH - Clone a Measure Set and give a new name and filter. ; 10/23/12 1:07pm "RTN","C0QMU123",2,0) ;;1.0;QUALITY MEASURES;**6**;;Build 3 "RTN","C0QMU123",3,0) ; (C) George Lilly. Licensed under AGPL. "RTN","C0QMU123",4,0) QUIT "RTN","C0QMU123",5,0) ; "RTN","C0QMU123",6,0) CLONE(MSIEN,CLNNM,ISQM,FLNAME) ; Private $$ ; Clone a measure set into a new one "RTN","C0QMU123",7,0) ; Input: "RTN","C0QMU123",8,0) ; 1. Measurement Set IEN to clone "RTN","C0QMU123",9,0) ; 2. Clinic Name for which this Measurement Set would apply (FT) "RTN","C0QMU123",10,0) ; 3. Boolean: Is Quality Measure? "RTN","C0QMU123",11,0) ; 4. Filter List Name "RTN","C0QMU123",12,0) ; "RTN","C0QMU123",13,0) ; Output: "RTN","C0QMU123",14,0) ; IEN of Created measure set. "RTN","C0QMU123",15,0) ; "RTN","C0QMU123",16,0) ; Get data from Model Set "RTN","C0QMU123",17,0) N C0QIENS S C0QIENS=MSIEN_"," ; Input to GETS call "RTN","C0QMU123",18,0) N C0QOUT,C0QERR ; Output Variables in GETS call. "RTN","C0QMU123",19,0) D GETS^DIQ(1130580001.201,C0QIENS,"**","",$NA(C0QOUT),$NA(C0QERR)) "RTN","C0QMU123",20,0) ; "RTN","C0QMU123",21,0) I $D(C0QERR) S $EC=",U1," ; Crash in case of error. Shouldn't happen. "RTN","C0QMU123",22,0) ; "RTN","C0QMU123",23,0) ; Deal with D0 stuff first. "RTN","C0QMU123",24,0) ; Merge D0 level into a new FDA array. "RTN","C0QMU123",25,0) N C0QNEW ; New FDA "RTN","C0QMU123",26,0) M C0QNEW(1130580001.201,"?+1,")=C0QOUT(1130580001.201,C0QIENS) "RTN","C0QMU123",27,0) ; "RTN","C0QMU123",28,0) ; Change .01 "RTN","C0QMU123",29,0) ; NOTE: Field name is 30 characters. But HL is max 30 chars too! "RTN","C0QMU123",30,0) ; So we have to truncate it. "RTN","C0QMU123",31,0) ; If Is Quality Measure, Use QM, otherwise, use Performance Report. "RTN","C0QMU123",32,0) S C0QNEW(1130580001.201,"?+1,",.01)=$E(CLNNM,1,27)_" "_$S(ISQM:"QM",1:"PR") "RTN","C0QMU123",33,0) ; "RTN","C0QMU123",34,0) ; Deal with D1 level "RTN","C0QMU123",35,0) N I S I=0 ; Looper "RTN","C0QMU123",36,0) N CNT S CNT=1 ; IENS counter ; Will become 2 and larger. Not to collide with the initial 1. "RTN","C0QMU123",37,0) ; "RTN","C0QMU123",38,0) ; For each record in D1 level "RTN","C0QMU123",39,0) F S I=$O(C0QOUT(1130580001.2011,I)) Q:'I D "RTN","C0QMU123",40,0) . S CNT=CNT+1 "RTN","C0QMU123",41,0) . ; Grab the Measure field "RTN","C0QMU123",42,0) . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",.01)=C0QOUT(1130580001.2011,I,.01) "RTN","C0QMU123",43,0) . ; "RTN","C0QMU123",44,0) . ; Put the Filter lists on "RTN","C0QMU123",45,0) . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",1.2)=FLNAME "RTN","C0QMU123",46,0) . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",2.2)=FLNAME "RTN","C0QMU123",47,0) ; "RTN","C0QMU123",48,0) ; File Data. "RTN","C0QMU123",49,0) N C0QIEN,C0QERR ; Returned IEN, Error array "RTN","C0QMU123",50,0) D UPDATE^DIE("E",$NA(C0QNEW),$NA(C0QIEN),$NA(C0QERR)) "RTN","C0QMU123",51,0) I $D(C0QERR) S $EC=",U1," "RTN","C0QMU123",52,0) ; "RTN","C0QMU123",53,0) Q C0QIEN(1) ; Quit with IEN for ?+1. "RTN","C0QMU123",54,0) ; "RTN","C0QMU123",55,0) ; SAM(1130580001.201,"17,",.01)="DR OFFICE QM REPORT" "RTN","C0QMU123",56,0) ; SAM(1130580001.201,"17,",.02)="AUG 1,2012" "RTN","C0QMU123",57,0) ; SAM(1130580001.201,"17,",.03)="OCT 31,2012" "RTN","C0QMU123",58,0) ; SAM(1130580001.201,"17,",.04)="" "RTN","C0QMU123",59,0) ; SAM(1130580001.201,"17,",.05)="" "RTN","C0QMU123",60,0) ; SAM(1130580001.201,"17,",.2)="" "RTN","C0QMU123",61,0) ; SAM(1130580001.201,"17,",.3)="" "RTN","C0QMU123",62,0) ; SAM(1130580001.201,"17,",.4)="" "RTN","C0QMU123",63,0) ; SAM(1130580001.2011,"1,17,",.01)="MU EP NQF 0013" "RTN","C0QMU123",64,0) ; SAM(1130580001.2011,"1,17,",1.1)=1 "RTN","C0QMU123",65,0) ; SAM(1130580001.2011,"1,17,",1.2)="MU12-EP-DR OFFICE-Patient" "RTN","C0QMU123",66,0) ; SAM(1130580001.2011,"1,17,",2.1)=1 "RTN","C0QMU123",67,0) ; SAM(1130580001.2011,"1,17,",2.2)="MU12-EP-DR OFFICE-Patient" "RTN","C0QMU123",68,0) ; SAM(1130580001.2011,"1,17,",3)=100 "RTN","C0QMU123",69,0) ; SAM(1130580001.2011,"2,17,",.01)="MU EP NQF 0028A" "RTN","C0QMU123",70,0) ; SAM(1130580001.2011,"2,17,",1.1)=0 "RTN","C0QMU123",71,0) ; SAM(1130580001.2011,"2,17,",1.2)="MU12-EP-DR OFFICE-Patient" "RTN","C0QMU123",72,0) ; SAM(1130580001.2011,"2,17,",2.1)=1 "RTN","C0QMU123",73,0) ; SAM(1130580001.2011,"2,17,",2.2)="MU12-EP-DR OFFICE-Patient" "RTN","C0QMU123",74,0) ; SAM(1130580001.2011,"2,17,",3)=0 "RTN","C0QMU123",75,0) ; SAM(1130580001.2011,"3,17,",.01)="MU EP NQF 0028B" "RTN","C0QMU123",76,0) ; SAM(1130580001.2011,"3,17,",1.1)=0 "RTN","C0QMU123",77,0) ; SAM(1130580001.2011,"3,17,",1.2)="MU12-EP-DR OFFICE-Patient" "RTN","C0QMU123",78,0) ; SAM(1130580001.2011,"3,17,",2.1)=1 "RTN","C0QMU123",79,0) ; SAM(1130580001.2011,"3,17,",2.2)="MU12-EP-DR OFFICE-Patient" "RTN","C0QMU123",80,0) ; SAM(1130580001.2011,"3,17,",3)=0 "RTN","C0QMU123",81,0) ; SAM(1130580001.2011,"4,17,",.01)="MU EP NQF 0421" "RTN","C0QMU123",82,0) ; SAM(1130580001.2011,"4,17,",1.1)=1 "RTN","C0QMU123",83,0) ; SAM(1130580001.2011,"4,17,",1.2)="MU12-EP-DR OFFICE-Patient" "RTN","C0QMU123",84,0) ; SAM(1130580001.2011,"4,17,",2.1)=1 "RTN","C0QMU123",85,0) ; SAM(1130580001.2011,"4,17,",2.2)="MU12-EP-DR OFFICE-Patient" "RTN","C0QMU123",86,0) ; SAM(1130580001.2011,"4,17,",3)=100 "RTN","C0QMU123",87,0) ; SAM(1130580001.20111,"1,1,17,",.01)="MOUSE,MICKEY" "RTN","C0QMU123",88,0) ; SAM(1130580001.20111,"1,4,17,",.01)="MOUSE,MICKEY" "RTN","C0QMU123",89,0) ; SAM(1130580001.20112,"1,1,17,",.01)="MOUSE,MICKEY" "RTN","C0QMU123",90,0) ; SAM(1130580001.20112,"1,2,17,",.01)="MOUSE,MICKEY" "RTN","C0QMU123",91,0) ; SAM(1130580001.20112,"1,3,17,",.01)="MOUSE,MICKEY" "RTN","C0QMU123",92,0) ; SAM(1130580001.20112,"1,4,17,",.01)="MOUSE,MICKEY" "RTN","C0QMU123",93,0) ; "VER") 8.0^22.0 "^DD",1130580001.401,1130580001.401,6.1,0) MODEL PERFORMANCE MEASURE SET^P1130580001.201'^C0Q(201,^6;1^Q "^DD",1130580001.401,1130580001.401,6.1,3) Enter a measure set to base created measure sets on "^DD",1130580001.401,1130580001.401,6.1,21,0) ^^4^4^3121022^ "^DD",1130580001.401,1130580001.401,6.1,21,1,0) Entering a selection here lets the software know that you want to create "^DD",1130580001.401,1130580001.401,6.1,21,2,0) a new Measure Set based on another measure set. The Measure Set's name "^DD",1130580001.401,1130580001.401,6.1,21,3,0) will be CLINIC NAME + PR, where the clinic name is truncated "^DD",1130580001.401,1130580001.401,6.1,21,4,0) to 27 characters, and where PR stands for Performance Report. "^DD",1130580001.401,1130580001.401,6.1,"DT") 3121022 "^DD",1130580001.401,1130580001.401,6.2,0) MODEL QUALITY MEASURE SET^P1130580001.201'^C0Q(201,^6;2^Q "^DD",1130580001.401,1130580001.401,6.2,3) Enter a measure set to base created measure sets on "^DD",1130580001.401,1130580001.401,6.2,21,0) ^^4^4^3121022^ "^DD",1130580001.401,1130580001.401,6.2,21,1,0) Entering a selection here lets the software know that you want to create "^DD",1130580001.401,1130580001.401,6.2,21,2,0) a new Measure Set based on another measure set. The Measure Set's name "^DD",1130580001.401,1130580001.401,6.2,21,3,0) will be CLINIC NAME + QM, where the clinic name is truncated "^DD",1130580001.401,1130580001.401,6.2,21,4,0) to 27 characters, and where QM stands for Quality Measures. "^DD",1130580001.401,1130580001.401,6.2,"DT") 3121022 **END** **END**