Changeset 446 for ccr/trunk/labRPMS

Timestamp:

May 6, 2009, 12:36:14 PM (16 years ago)

Author:

George Lilly

Message:

update to lab extract for RPMS

File:

• ccr/trunk/labRPMS/C0CLA7Q.m (modified) (5 diffs)

ccr/trunk/labRPMS/C0CLA7Q.m

@@ -1 @@
-C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;Apr 21, 2009
+C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;May 4, 2009
         ;;n.n;;****;
         ;
@@ -54 +54 @@
         . S C0CDA=$QS(C0CROOT,4)
         . I $D(^TMP("C0C-VLAB",$J,1,C0CDA)) Q  ; Already checked during scan of file #63
+        . I $P($G(^AUPNVLAB(C0CDA,11)),"^",8)=1 Q  ; Source is LAB DATA file - skip
         . D VCHK1
         ;
@@ -76 +77 @@
         S (C0CTEST,C0CTEST(64),C0CPTEST,C0CPTEST(64),C0CLN)=""
         ;
-        ; ^AUPNVLAB("ALR1",5380,3080307.211055,"EKT 0307 48",188,5427202)=""
+        ; ^AUPNVLAB("ALR1",5380,"EKT 0307 48",173,3080307.211055,5427197)=""
         ;
         S C0C60=""
@@ -82 +83 @@
         . D FINDDT
         . I C0CDA<1 Q
+        . I $P($G(^AUPNVLAB(C0CDA,11)),"^",8)'=1 Q  ; Source is not LAB DATA file - skip
         . S C0CLN=$P($G(^AUPNVLAB(C0CDA,11)),"^",13)
         . S C0CPDA=$P($G(^AUPNVLAB(C0CDA,12)),"^",8)
@@ -125 +127 @@
         N C0CVLAB,I
         ;
-        F I=0,12 S C0CVLAB(I)=^AUPNVLAB(C0CDA,I)
+        F I=0,12 S C0CVLAB(I)=$G(^AUPNVLAB(C0CDA,I))
         ;
         ; JMC 04/13/09 - Store anything for now that meets date criteria.