Index: qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.KID =================================================================== --- qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.KID (revision 1582) +++ qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.KID (revision 1582) @@ -0,0 +1,3364 @@ +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** Index: qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.TXT =================================================================== --- qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.TXT (revision 1582) +++ qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.TXT (revision 1582) @@ -0,0 +1,469 @@ +DHCP Patch Display Page: 1 +============================================================================= +Run Date: OCT 23, 2012 Designation: C0Q*1*6 TEST v +Package : QUALITY MEASURES Priority : MANDATORY +Version : 1 Status : UNDER DEVELOPMENT +============================================================================= + +Subject: Support for Model Measure Sets + +Category: ROUTINE + INPUT TEMPLATE + ENHANCEMENT + +Description: +=========== + +$TXT Created by MANAGER,SYSTEM at BETA.VISTA-OFFICE.ORG (KIDS) on Tuesday, 10/2 +3/12 at 13:11 + + Source, Copyright, & Licensing: + =============================== + This patch to WorldVistA 2.0 was produced in a WV 3/09 Environment by George +Lily on 23 October 2012 and released through VISTA Forum. + + (C) Geroge Lilly 2012 + Licensed under Package License: AGPL v3. + + http://www.gnu.org/licenses/agpl-3.0.html + + Functionality: + ============== + This patch adds support for using model Measurement Sets for creating a new +Measurement Sets based on the model Measurement Sets. Usage instructions will +be found at the end of this patch message. + + Support Tickets: + + + Package Elements: + ================= + UP SEND DATA USER + DATE SEC. COMES SITE RSLV OVER +FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE +------------------------------------------------------------------------------- + +1130580001.401C0Q PARAMETER YES NO NO NO +Partial DD: subDD: 1130580001.401fld: 6.1 + fld: 6.2 + +INPUT TEMPLATE: ACTION: + C0Q EDIT OUPATIENT PARMS FILE #1130580001.401SEND TO SITE + +ROUTINE: ACTION: + C0QMU12 SEND TO SITE + C0QMU123 SEND TO SITE + Test Sites: + =========== + + + Compliance: + =========== + This software complies with the VA MUMPS Programming Standards and + Conventions (version 3 April 2007), with the following exception: + + C0QMU12 * * 591 Lines, 20662 Bytes, Checksum: B351357107 + S - Routine exceeds SACC maximum size of 20000 (20662). + S - Routine code exceeds SACC maximum size of 15000 (16922). + + + This software has not been tested for 508 compliance. + + 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*6): + + 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*6" at the INSTALL NAME prompt. As part of the + Environment Check routine, the message below will display + b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of + Install? NO//' answer NO + c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? + NO//' answer NO + d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, + and Protocols? NO//' answer NO + +Install Transcript: +Select OPTION NAME: XPD MAIN Kernel Installation & Distribution System + +Select Kernel Installation & Distribution System Option: INStallation + +Select Installation Option: 1 Load a Distribution +Enter a Host File: C0Q*1.0*6 + +KIDS Distribution saved on Oct 22, 2012@17:41:17 +Comment: FRDGHJKLFGHJKL + +This Distribution contains Transport Globals for the following Package(s): + C0Q*1.0*6 +Distribution OK! + +Want to Continue with Load? YES// +Loading Distribution... + + C0Q*1.0*6 +Use INSTALL NAME: C0Q*1.0*6 to install this Distribution. + +Select Installation Option: 6 Install Package(s) +Select INSTALL NAME: C0Q*1.0*6 Loaded from Distribution Loaded from Di +stribution 10/23/12@11:46:32 + => FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17 + +This Distribution was loaded on Oct 23, 2012@11:46:32 with header of + FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17 + It consisted of the following Install(s): + C0Q*1.0*6 + + Checking C0Q*1.0*6 for overlap with VOE 1.0 ... OK + No overlap found + + Checking C0Q*1.0*6 for overlap with VOE 1.1 ... OK + No overlap found + + Checking C0Q*1.0*6 for overlap with NO HOME 1.0 ... OK + No overlap found + +Checking Install for Package C0Q*1.0*6 + +Install Questions for C0Q*1.0*6 + +Incoming Files: + + 1130580001.401C0Q PARAMETER (Partial Definition) +Note: You already have the 'C0Q PARAMETER' File. + +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// 0;P-OTHER;80;9999 TELNET + + Install Started for C0Q*1.0*6 : + Oct 23, 2012@11:46:53 + +Build Distribution Date: Oct 22, 2012 + + Installing Routines:... + Oct 23, 2012@11:46:53 + + Installing Data Dictionaries: .. + Oct 23, 2012@11:46:54 + + Installing PACKAGE COMPONENTS: + + Installing INPUT TEMPLATE.. + Oct 23, 2012@11:46:54 + + Updating Routine file...... + + Updating KIDS files....... + + C0Q*1.0*6 Installed. + Oct 23, 2012@11:46:54 + + Not a VA primary domain + + NO Install Message sent + +Select Installation Option: +---------------------------- + +Usage instructions: +=================== +1. Create two measure sets, one for Performance Measures, and one for Quality +Measures. If you have ones already created for other clinics, you can use them. +It's okay for them to have filter lists, as these will be deleted by the +software when the measure set is being copied. + +2. Attach these measure sets to an Outpatient Parameter in the fields: MODEL +PERFORMANCE MEASURE SET and MODEL QUALITY MEASURE SET. NB: The purpose of +these fields is to generate the a measure set to use in the fields EP MU +MEASUREMENT SET and EP QUALITY MEASUREMENT SET, respectively. If you have these +filled out, the Model fields will have no effect. + +3. Run the option EP UPDATE MU MEASURES. This create new measure sets based on +the model measure sets and attach the appropriate filter lists. + +Miscellaneous remarks: If a model set is replaced and the option to update is +reran, the behavior is not to delete the old created measure set but rather to +merge the contents of the new model set into the old created measure set. I am +not sure if this is the desirable behavior, but that is how it currently works. + +Transcript: +Select QUALITY MEASUREMENT MENU Option: ? + + COPY OVER PATIENT LISTS + ED-1 COMPUTATION + ED-2 COMPUTATION + EP UPDATE MU MEASURES + INP UPDATE MU MEASURES + PQRI MENU ... + PQRI PRINT XML + PRINT C0Q MEASURES + QRDA MENU ... + SETUP QUALITY REPORTING ... + +Enter ?? for more options, ??? for brief descriptions, ?OPTION for help text. + +Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES + +Select C0Q MEASUREMENT SET NAME: DR OFF + 1 DR OFFICE PERFORMANCE MEASURES + 2 DR OFFICE QUALITY MEASURES +CHOOSE 1-2: 1 DR OFFICE PERFORMANCE MEASURES + +DEVICE: HOME// TELNET +C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1 +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +-------------------------------------------------------------------------------- + +CPOE 3 0 0.00 + +PROBLEMS 3 3 100.00 + +ALLERGIES 3 3 100.00 + +Select C0Q MEASUREMENT SET NAME: DR OFF + 1 DR OFFICE PERFORMANCE MEASURES + 2 DR OFFICE QUALITY MEASURES +CHOOSE 1-2: 2 DR OFFICE QUALITY MEASURES + +DEVICE: HOME// TELNET +C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1 +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +-------------------------------------------------------------------------------- + +NQF0013 Hypertension: 0 0 0.00 +Blood Pressure +Measurement + +NQF0028A Tobacco Use 0 0 0.00 +Assessment + +NQF0028B Tobacco Use 0 0 0.00 +Assessment and Cessation +Intervention + +Select C0Q MEASUREMENT SET NAME: + +Select QUALITY MEASUREMENT MENU Option: SETUP QUALITY REPORTING + +Select SETUP QUALITY REPORTING Option: EP EDIT PARMS + +Select C0Q PARAMETER NAME: ACME CLINIC #1 + Are you adding 'ACME CLINIC #1' as a new C0Q PARAMETER (the 2ND)? No// Y + (Yes) +NAME: ACME CLINIC #1// +MEASUREMENT PERIOD KEY: MU12 +PARAMETER TYPE: OU OUTPATIENT +EP MU MEASUREMENT SET: +EP QUALITY MEASUREMENT SET: +Select CLINIC: ACME CLINIC #1 + Are you adding 'ACME CLINIC #1' as a new CLINIC (the 1ST for this C0Q PARAMET +ER)? No// Y (Yes) +Select CLINIC: +PATIENT LIST LABEL: +Select SUBSCRIBER: +MODEL PERFORMANCE MEASURE SET: DR,P DR OFFICE PERFORMANCE MEASURES +MODEL QUALITY MEASURE SET: DR,Q DR OFFICE QUALITY MEASURES + +Select C0Q PARAMETER NAME: + +Select SETUP QUALITY REPORTING Option: + +Select QUALITY MEASUREMENT MENU Option: EP UPDATE MU MEASURES +Jan 04, 2008@19:14:59 +Jan 02, 2008@18:40:58 +Nov 26, 2005@13:10:24 +Nov 26, 2005@14:12:42 +Nov 25, 2005@20:31:13 +Aug 02, 2005@08:40:36 +Aug 01, 2005@15:08:49 +Aug 01, 2005@15:21:18 +Jul 29, 2005@11:44:36 +Jul 29, 2005@11:53:15 +Jul 29, 2005@12:04:45 +Jul 28, 2005@12:20:20 +Jul 28, 2005@16:16:03 +Jul 27, 2005@11:21:04 +Jul 27, 2005@11:24:55 +Jul 27, 2005@11:41:40 +Jul 27, 2005@11:47:38 +Jul 27, 2005@11:49:41 +Jul 27, 2005@11:50:26 +Jul 27, 2005@15:45:45 +Jul 25, 2005@08:37:24 +Jul 24, 2005@11:01:55 +Jul 24, 2005@14:22:11 +Jul 24, 2005@16:22:29 +Jul 24, 2005@17:17:01 +Jul 24, 2005@17:33:39 +Jul 23, 2005@16:14:54 +Jul 23, 2005@17:17:08 +Jul 23, 2005@17:24:01 +Jul 22, 2005@10:49:29 +Jul 22, 2005@16:46:52 +Jul 21, 2005@08:56:56 +Jul 21, 2005@12:10:54 +Jul 21, 2005@15:39:22 +Jul 21, 2005@15:39:29 +Jul 20, 2005@10:07:46 +Jul 20, 2005@10:44:03 +Jul 19, 2005@07:41:49 +Jul 19, 2005@08:52:13 +Jul 19, 2005@11:32:14 +Jul 19, 2005@11:36:08 +Jul 19, 2005@13:35:12 +Jul 19, 2005@15:43:18 +Jul 19, 2005@15:54:48 +Jul 18, 2005@17:57:49 +Jul 15, 2005@16:00 +Jul 08, 2005@13:03 +Jul 01, 2005@14:37:23 +Oct 23, 2012@12:02 +CREATING MU12-EP-ACME CLINIC #1-PatientC0QFDA(1130580001.2011,"1,13,",3)=0 +C0QFDA(1130580001.2011,"2,13,",3)=100 +C0QFDA(1130580001.2011,"3,13,",3)=100 +C0QFDA(1130580001.2011,"1,14,",3)=0 +C0QFDA(1130580001.2011,"2,14,",3)=0 +C0QFDA(1130580001.2011,"3,14,",3)=0 +C0QFDA(1130580001.2011,"1,15,",1.1)=0 +C0QFDA(1130580001.2011,"1,15,",2.1)=1 +C0QFDA(1130580001.20112,"+1,1,15,",.01)=3 +C0QFDA(1130580001.2011,"1,15,",3)=0 +C0QFDA(1130580001.2011,"2,15,",1.1)=1 +C0QFDA(1130580001.20111,"+1,2,15,",.01)=3 +C0QFDA(1130580001.2011,"2,15,",2.1)=1 +C0QFDA(1130580001.20112,"+1,2,15,",.01)=3 +C0QFDA(1130580001.2011,"2,15,",3)=100 +C0QFDA(1130580001.2011,"3,15,",1.1)=1 +C0QFDA(1130580001.20111,"+1,3,15,",.01)=3 +C0QFDA(1130580001.2011,"3,15,",2.1)=1 +C0QFDA(1130580001.20112,"+1,3,15,",.01)=3 +C0QFDA(1130580001.2011,"3,15,",3)=100 +C0QFDA(1130580001.2011,"1,16,",1.1)=0 +C0QFDA(1130580001.2011,"1,16,",2.1)=0 +C0QFDA(1130580001.2011,"1,16,",3)=0 +C0QFDA(1130580001.2011,"2,16,",1.1)=0 +C0QFDA(1130580001.2011,"2,16,",2.1)=0 +C0QFDA(1130580001.2011,"2,16,",3)=0 +C0QFDA(1130580001.2011,"3,16,",1.1)=0 +C0QFDA(1130580001.2011,"3,16,",2.1)=0 +C0QFDA(1130580001.2011,"3,16,",3)=0 + +Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES + +Select C0Q MEASUREMENT SET NAME: ACME + 1 ACME CLINIC #1 PR + 2 ACME CLINIC #1 QM +CHOOSE 1-2: 1 ACME CLINIC #1 PR + +DEVICE: HOME// TELNET +C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1 +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +-------------------------------------------------------------------------------- + +CPOE 1 0 0.00 + +PROBLEMS 1 1 100.00 + +ALLERGIES 1 1 100.00 + +Select C0Q MEASUREMENT SET NAME: ACME + 1 ACME CLINIC #1 PR + 2 ACME CLINIC #1 QM +CHOOSE 1-2: 2 ACME CLINIC #1 QM + +DEVICE: HOME// TELNET +C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1 +MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE +-------------------------------------------------------------------------------- + +NQF0013 Hypertension: 0 0 0.00 +Blood Pressure +Measurement + +NQF0028A Tobacco Use 0 0 0.00 +Assessment + +NQF0028B Tobacco Use 0 0 0.00 +Assessment and Cessation +Intervention + + + +Routine Information: +==================== + + +The second line of each of these routines now looks like: + ;;1.0;QUALITY MEASURES;**[Patch List]**;May 21, 2012;Build 2 + +The checksums below are new checksums, and + can be checked with CHECK1^XTSUMBLD. + +Routine Name: C0QMU12 + Before: n/a After:B351357107 **1,5,6** +Routine Name: C0QMU123 + Before: n/a After: B4208272 **6** + +Routine list of preceding patches: 5 + + +============================================================================= +User Information: + Entered By : HABIEL,SAM Date Entered : OCT 23,2012 + Completed By: Date Completed: + Released By : Date Released : +============================================================================= +