Index: qrda/C0Q/trunk/p/C0Q1P2.m
===================================================================
--- qrda/C0Q/trunk/p/C0Q1P2.m	(revision 1484)
+++ qrda/C0Q/trunk/p/C0Q1P2.m	(revision 1484)
@@ -0,0 +1,115 @@
+C0Q1P2 ; VEN/SMH - Kids utilities for C0Q 1.0 patch 1 ; 7/13/12 4:13pm
+ ;;1.0;QUALITY MEASURES;*1*;July 13, 2112;
+ ; Licensed under package license. See Documentation
+ ;
+ ; PEPs: PRE, TRAN, POST
+ ;
+PRE ; Unified Pre; PEP
+ D PREREM
+ QUIT
+TRAN ; Unified Tran; PEP
+ QUIT
+POST ; Unified Post; PEP
+ D POSTREM
+ QUIT
+ ;
+ ; Rest of entry points are private
+ ; 
+ ; 
+ARRAY(MODE,ARRAY)	;List of exchange entries used by delete and install
+	;
+	N LN S LN=1
+	;
+	; NQF 0024-alt-core_wt-kids
+	S ARRAY(LN,1)="MU NQF0024 BMI_MK"
+	I MODE S ARRAY(LN,2)="07/06/2011@15:11:46"
+	S LN=LN+1
+	;
+	; NQF 0013-core-HTN
+	S ARRAY(LN,1)="MU NQF0013 HTN_MK"
+	I MODE S ARRAY(LN,2)="07/06/2011@15:08:53"
+	S LN=LN+1
+	;
+	; NQF 0028a-core-tobacco-access
+	; NQF 0028b-core-tobaocc-intervention
+	; Both are in the first; dialog is in the second.
+	S ARRAY(LN,1)="MU NQF0028 TOBACCO_MK"
+	I MODE S ARRAY(LN,2)="07/06/2011@15:14:49"
+	S LN=LN+1
+	S ARRAY(LN,1)="MU NQF0028AB MANAGEMENT DI"
+	I MODE S ARRAY(LN,2)="06/08/2011@16:50:31"
+	S LN=LN+1
+	;
+	; NQF 0041-alt-core-flu
+	S ARRAY(LN,1)="MU NQF0041 FLU_MK"
+	I MODE S ARRAY(LN,2)="07/06/2011@15:26:59"
+	S LN=LN+1
+	Q
+	;
+	;===============================================================
+DELEI	;If the Exchange File entry already exists delete it.
+	N ARRAY,IC,IND,LIST,LUVALUE,NUM
+	D ARRAY(1,.ARRAY)
+	S IC=0
+	F  S IC=$O(ARRAY(IC)) Q:'IC  D
+	.S LUVALUE(1)=ARRAY(IC,1)
+	.D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
+	.I '$D(LIST) Q
+	.S NUM=$P(LIST("DILIST",0),U,1)
+	.I NUM'=0 D
+	..F IND=1:1:NUM D
+	... N DA,DIK
+	... S DIK="^PXD(811.8,"
+	... S DA=LIST("DILIST",2,IND)
+	... D ^DIK
+	Q
+	;
+	;===============================================================
+EXFINC(Y)	;Return a 1 if the Exchange file entry is in the list to
+	;include in the build. This is used in the build to determine which
+	;entries to include.
+	N ARRAY,FOUND,IEN,IC,LUVALUE
+	D ARRAY(1,.ARRAY)
+	S FOUND=0
+	S IC=0
+	F  S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND)  D
+	. M LUVALUE=ARRAY(IC)
+	. S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
+	. I IEN=Y S FOUND=1 Q
+	Q FOUND
+	;
+PREREM	;
+	D DELEI
+	Q
+POSTREM	;
+	D SMEXINS
+	Q
+	;===============================================================
+SMEXINS	;Silent mode install.
+	N ARRAY,IC,IEN,LUVALUE,PXRMINST
+	S PXRMINST=1
+	D ARRAY(1,.ARRAY)
+	S IC=0
+	F  S IC=$O(ARRAY(IC)) Q:'IC  D
+	.M LUVALUE=ARRAY(IC)
+	.S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
+	.I IEN'=0 D
+	.. N TEXT
+	.. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1)
+	.. E  S TEXT="Installing reminder exchange entry "_LUVALUE(1)
+	.. D BMES^XPDUTL(TEXT)
+	.. D INSTALL^PXRMEXSI(IEN,"I",1)
+	Q
+	;
+CRPL(PLNAME,C0QERR) ; Private ; $$ ; Create Patient List
+ ; Input: PLNAME: By Value: Patient List Name
+ ;        C0QERR: By Ref:   Error Array
+ ; Output: IEN of Patient List, or -1 for error
+ N C0QFDA,C0QIENS ; FDA, return IEN
+ S C0QFDA(810.5,"?+1,",.01)=PLNAME ; Patient List Name
+ S C0QFDA(810.5,"?+1,",.07)="`"_DUZ    ; Creator
+ S C0QFDA(810.5,"?+1,",.08)="PUB"  ; Type: Public
+ S C0QFDA(810.5,"?+1,",100)="L"    ; Class: Local
+ D UPDATE^DIE("E",$NA(C0QFDA),$NA(C0QIENS),$NA(C0QERR)) ; External Flag
+ I $G(C0QIENS(1)) QUIT C0QIENS(1)
+ E  QUIT -1
Index: qrda/C0Q/trunk/p/C0QKIDS.m
===================================================================
--- qrda/C0Q/trunk/p/C0QKIDS.m	(revision 1465)
+++ qrda/C0Q/trunk/p/C0QKIDS.m	(revision 1484)
@@ -1,3 +1,3 @@
-C0QKIDS	; VEN/SMH - Kids Utilities for transporting C0Q data ; 7/3/12 8:38am
+C0QKIDS	; VEN/SMH - Kids Utilities for transporting C0Q data ; 7/13/12 11:49am
 	;;1.0;C0Q;;May 21, 2012;Build 47
 	; Licensed under package license. See Documentation.
@@ -6,5 +6,4 @@
 	;
 PRE ; Unified Pre; PEP
-	D PREREM
 	QUIT
 TRAN	; Unified Transport; PEP
@@ -16,5 +15,4 @@
 	D POST101
 	D POST201
-	D POSTREM
 	QUIT
 	;
@@ -108,75 +106,2 @@
 	; Code below taken from PXRMP15I
 	;===============================================================
-ARRAY(MODE,ARRAY)	;List of exchange entries used by delete and install
-	;
-	S ARRAY(1,1)="MU NQF0024 BMI_MK"
-	I MODE S ARRAY(1,2)="07/06/2011@15:11:46"
-	Q
-	;
-	;===============================================================
-DELEI	;If the Exchange File entry already exists delete it.
-	N ARRAY,IC,IND,LIST,LUVALUE,NUM
-	D ARRAY(1,.ARRAY)
-	S IC=0
-	F  S IC=$O(ARRAY(IC)) Q:'IC  D
-	.S LUVALUE(1)=ARRAY(IC,1)
-	.D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
-	.I '$D(LIST) Q
-	.S NUM=$P(LIST("DILIST",0),U,1)
-	.I NUM'=0 D
-	..F IND=1:1:NUM D
-	... N DA,DIK
-	... S DIK="^PXD(811.8,"
-	... S DA=LIST("DILIST",2,IND)
-	... D ^DIK
-	Q
-	;
-	;===============================================================
-EXFINC(Y)	;Return a 1 if the Exchange file entry is in the list to
-	;include in the build. This is used in the build to determine which
-	;entries to include.
-	N ARRAY,FOUND,IEN,IC,LUVALUE
-	D ARRAY(1,.ARRAY)
-	S FOUND=0
-	S IC=0
-	F  S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND)  D
-	. M LUVALUE=ARRAY(IC)
-	. S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
-	. I IEN=Y S FOUND=1 Q
-	Q FOUND
-	;
-PREREM	;
-	D DELEI
-	Q
-POSTREM	;
-	D SMEXINS
-	Q
-	;===============================================================
-SMEXINS	;Silent mode install.
-	N ARRAY,IC,IEN,LUVALUE,PXRMINST
-	S PXRMINST=1
-	D ARRAY(1,.ARRAY)
-	S IC=0
-	F  S IC=$O(ARRAY(IC)) Q:'IC  D
-	.M LUVALUE=ARRAY(IC)
-	.S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
-	.I IEN'=0 D
-	.. N TEXT
-	.. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1)
-	.. E  S TEXT="Installing reminder "_LUVALUE(1)
-	.. D BMES^XPDUTL(TEXT)
-	.. D INSTALL^PXRMEXSI(IEN,"I",1)
-	Q
-	;
-CRPL(PLNAME,C0QERR) ; Private ; $$ ; Create Patient List
- ; Input: PLNAME: By Value: Patient List Name
- ;        C0QERR: By Ref:   Error Array
- ; Output: IEN of Patient List, or -1 for error
- N C0QFDA,C0QIENS ; FDA, return IEN
- S C0QFDA(810.5,"?+1,",.01)=PLNAME ; Patient List Name
- S C0QFDA(810.5,"?+1,",.07)="`"_DUZ    ; Creator
- S C0QFDA(810.5,"?+1,",.08)="PUB"  ; Type: Public
- S C0QFDA(810.5,"?+1,",100)="L"    ; Class: Local
- D UPDATE^DIE("E",$NA(C0QFDA),$NA(C0QIENS),$NA(C0QERR)) ; External Flag
- I $G(C0QIENS(1)) QUIT C0QIENS(1)
- E  QUIT -1
Index: qrda/C0Q/trunk/p/C0QP1.m
===================================================================
--- qrda/C0Q/trunk/p/C0QP1.m	(revision 1484)
+++ qrda/C0Q/trunk/p/C0QP1.m	(revision 1484)
@@ -0,0 +1,9 @@
+C0QP1 ; VEN/SMH - Inits for Patch 1 ; 6/13/12 4:27pm
+	;;1.0;C0Q;;May 21, 2012;Build 44
+	;
+POST ; Post-Install hook for Patch 1; PEP
+	; Fire off the new x-refs for entries in the parameter file
+	N C0QI S C0QI=0 ; Walk through starting with number 1
+	F  S C0QI=$O(^C0Q(401,C0QI)) Q:'C0QI  D
+	. N DA,DIK S DIK="^C0Q(401,",DIK(1)="2^AMMS",DA=C0QI D EN^DIK
+	. N DA,DIK S DIK="^C0Q(401,",DIK(1)="2.1^AQMS",DA=C0QI D EN^DIK