Changeset 446


Ignore:
Timestamp:
May 6, 2009, 12:36:14 PM (12 years ago)
Author:
George Lilly
Message:

update to lab extract for RPMS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/labRPMS/C0CLA7Q.m

    r445 r446  
    1 C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;Apr 21, 2009
     1C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;May 4, 2009
    22        ;;n.n;;****;
    33        ;
     
    5454        . S C0CDA=$QS(C0CROOT,4)
    5555        . I $D(^TMP("C0C-VLAB",$J,1,C0CDA)) Q  ; Already checked during scan of file #63
     56        . I $P($G(^AUPNVLAB(C0CDA,11)),"^",8)=1 Q  ; Source is LAB DATA file - skip
    5657        . D VCHK1
    5758        ;
     
    7677        S (C0CTEST,C0CTEST(64),C0CPTEST,C0CPTEST(64),C0CLN)=""
    7778        ;
    78         ; ^AUPNVLAB("ALR1",5380,3080307.211055,"EKT 0307 48",188,5427202)=""
     79        ; ^AUPNVLAB("ALR1",5380,"EKT 0307 48",173,3080307.211055,5427197)=""
    7980        ;
    8081        S C0C60=""
     
    8283        . D FINDDT
    8384        . I C0CDA<1 Q
     85        . I $P($G(^AUPNVLAB(C0CDA,11)),"^",8)'=1 Q  ; Source is not LAB DATA file - skip
    8486        . S C0CLN=$P($G(^AUPNVLAB(C0CDA,11)),"^",13)
    8587        . S C0CPDA=$P($G(^AUPNVLAB(C0CDA,12)),"^",8)
     
    125127        N C0CVLAB,I
    126128        ;
    127         F I=0,12 S C0CVLAB(I)=^AUPNVLAB(C0CDA,I)
     129        F I=0,12 S C0CVLAB(I)=$G(^AUPNVLAB(C0CDA,I))
    128130        ;
    129131        ; JMC 04/13/09 - Store anything for now that meets date criteria.
Note: See TracChangeset for help on using the changeset viewer.