update includes RPMS lab enhancements and CCR RPC

p/C0CLA7DD.m

@@ -1,4 +1,4 @@
-C0CLA7DD	;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine; ;14 Jun 2009
+C0CLA7DD	;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine; ;6 Jul 2009
 	;;1.0;C0C;;May 19, 2009;
 	;
 	; Tasked by C0C post-install routine C0CENV to create C0C cross-references on V LAB file.
@@ -74,7 +74,7 @@ ALR1	; Installation of ALR1 cross-reference
 	S C0CXR("VAL",4)=1201
 	S C0CXR("VAL",4,"SUBSCRIPT")=4
 	S C0CXR("VAL",4,"COLLATION")="F"
-	D CREIXN^DDMOD(.C0CXR,COCFLAG,.C0CRES,"C0COUT")
+	D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
 	;
 	Q
 	;

p/C0CLA7Q.m

@@ -1,4 +1,4 @@
-C0CLA7Q	;WV/JMC - CCD/CCR Lab HL7 Query Utility ;May 31, 2009
+C0CLA7Q	;WV/JMC - CCD/CCR Lab HL7 Query Utility ;Jul 6, 2009
 	;;1.0;C0C;;May 19, 2009;
 	;
 	;
@@ -36,8 +36,8 @@ VCHECK	; If V LAB file present then check for lab results that are only in this
 	S LA7SC=$G(C0CSC)
 	I $T(SCLIST^LA7QRY2)'="" D
 	. N TMP
-	. S LA7SCSRC=$G(C0CSC)
-	. S TMP=$$SCLIST^LA7QRY2(LA7SCSRC)
+	. S LA7SCRC=$G(C0CSC)
+	. S TMP=$$SCLIST^LA7QRY2(LA7SCRC)
 	. S LA7SC=TMP
 	;
 	I LA7SC'="*" D CHKSC^LA7QRY1