Changeset 533 for ccr/trunk/p

Timestamp:

Jul 17, 2009, 9:06:16 PM (15 years ago)

Author:

George Lilly

Message:

update includes RPMS lab enhancements and CCR RPC

Location:

ccr/trunk/p

Files:

• C0CLA7DD.m (modified) (2 diffs)
• C0CLA7Q.m (modified) (2 diffs)
• C0C_1_0_0_T15.KID (added)

ccr/trunk/p/C0CLA7DD.m

@@ -1 @@
-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;
         ;
@@ -75 +75 @@
         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

ccr/trunk/p/C0CLA7Q.m

@@ -1 @@
-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;
         ;
@@ -37 +37 @@
         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
         ;