Index: /qrda/C0Q/trunk/p/C0Q1P5.m
===================================================================
--- /qrda/C0Q/trunk/p/C0Q1P5.m	(revision 1577)
+++ /qrda/C0Q/trunk/p/C0Q1P5.m	(revision 1577)
@@ -0,0 +1,18 @@
+C0Q1P5	; VEN/SMH - KIDS not transporting Security Codes; workaround. ; 10/17/12 12:12pm
+	;;1.0;QUALITY MEASURES;**5**;Oct 17, 2012
+	;;
+	; PEPs: TRAN, POST
+	;
+	; ZEXCEPT: XPDGREF
+TRAN	; Pre-transport hook
+	M @XPDGREF@(1130580001.101)=^DIC(1130580001.101)
+	M @XPDGREF@(1130580001.201)=^DIC(1130580001.201)
+	M @XPDGREF@(1130580001.401)=^DIC(1130580001.401)
+	QUIT
+	;
+	; ZEXCEPT: XPDGREF
+POST	; Post-install hook
+	M ^DIC(1130580001.101)=@XPDGREF@(1130580001.101)
+	M ^DIC(1130580001.201)=@XPDGREF@(1130580001.201)
+	M ^DIC(1130580001.401)=@XPDGREF@(1130580001.401)
+	QUIT
Index: /qrda/C0Q/trunk/p/C0QMU12.m
===================================================================
--- /qrda/C0Q/trunk/p/C0QMU12.m	(revision 1576)
+++ /qrda/C0Q/trunk/p/C0QMU12.m	(revision 1577)
@@ -1,4 +1,4 @@
-C0QMU12	;JJOH/ZAG/GPL - Patient Reminder List ; 10/10/12 11:28am
-	;;1.0;QUALITY MEASURES;**1**;May 21, 2012;Build 32
+C0QMU12	;JJOH/ZAG/GPL - Patient Reminder List ; 10/17/12 12:52pm
+	;;1.0;QUALITY MEASURES;**1,5**;May 21, 2012;Build 32
 	;
 	;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU
@@ -67,6 +67,6 @@
 	. I C0QPL D  ;
 	. . D FILE ; FILE THE PATIENT LISTS
-	. . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; 
-	. . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; 
+	. . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ;
+	. . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ;
 	. K C0QLIST
 	Q
@@ -76,5 +76,5 @@
 	; this is done so that if there are no matching patients, the patient list
 	; will be zeroed out
-	K C0QLIST
+	; K C0QLIST - VEN/SMH - Oops, we kill the previous lists!!!
 	S C0QLIST(ZYR_"HasDemographics")=""
 	S C0QLIST(ZYR_"Patient")="" ; VEN/SMH - Is this needed? Not used in EP.
@@ -87,4 +87,5 @@
 	S C0QLIST(ZYR_"HasMedOrders")=""
 	S C0QLIST(ZYR_"HasSmokingStatus")=""
+	S C0QLIST(ZYR_"ALL-PATIENTS")="" ; VEN/SMH C0Q*1*5
 	Q
 	;
@@ -124,5 +125,5 @@
 	K PROBL
 	Q
-	; 
+	;
 ALLERGY	; ALLERGY LIST
 	; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL
@@ -162,5 +163,5 @@
 RECON	; MEDICATIONS RECONCILIATION
 	; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL
-	; 
+	;
 	I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D  ;
 	. S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient
@@ -240,4 +241,6 @@
 	Q
 	;
+	;
+	;
 COD	; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE
 	I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D  ;
@@ -251,5 +254,5 @@
 	I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0
 	I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0
-	I FOUND D  ; 
+	I FOUND D  ;
 	. S C0QLIST(ZYR_"HasEDtime",DFN)=""
 	E  S C0QLIST(ZYR_"NoEDtime",DFN)=""
@@ -281,5 +284,5 @@
 	S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination
 	D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
-	; 
+	;
 	; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE
 	;
@@ -404,5 +407,5 @@
 	. D VITALS
 	D FILE ; FILE THE PATIENT LISTS
-	; 
+	;
 	; Now process eRx MU measures for these patients
 	; Check for eRx template and code first; if they exist, run the code
Index: /qrda/C0Q/trunk/p/C0QUPDT.m
===================================================================
--- /qrda/C0Q/trunk/p/C0QUPDT.m	(revision 1576)
+++ /qrda/C0Q/trunk/p/C0QUPDT.m	(revision 1577)
@@ -1,4 +1,4 @@
-C0QUPDT	; GPL - Quality Reporting List Update Routines ; 10/10/12 11:36am
-	;;1.0;C0Q;**1**;May 21, 2012;Build 32
+C0QUPDT	; GPL - Quality Reporting List Update Routines ; 10/17/12 12:09pm
+	;;1.0;QUALITY MEASURES;**1,5**;May 21, 2012;Build 32
 	;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.