Changeset 435 for ccr/trunk/p/C0CLA7Q.m

Timestamp:

Apr 20, 2009, 11:00:43 PM (15 years ago)

Author:

George Lilly

Message:

new LAB interface

File:

• ccr/trunk/p/C0CLA7Q.m (modified) (7 diffs)

ccr/trunk/p/C0CLA7Q.m

@@ -12 +12 @@
         ;
         ; Check and retrieve lab results from LAB DATA file (#63)
-        D GCPR^LA7QRY($G(C0CPTID),$G(C0CSDT),$G(C0CEDT),.C0CSC,.C0CSPEC,.C0CERR,$G(C0CDEST),$G(C0CHL7))
+        S C0CDEST=$$GCPR^LA7QRY($G(C0CPTID),$G(C0CSDT),$G(C0CEDT),.C0CSC,.C0CSPEC,.C0CERR,$G(C0CDEST),$G(C0CHL7))
         ;
         ; If V LAB file present then check for lab results that are only in this file
@@ -27 +27 @@
 VCHECK  ; If V LAB file present then check for lab results that are only in this file.
         ;
-        N C0CDA,C0CEND,C0CROOT,C0CVLAB,LA7PTID,LA7SCRC,LA7SPEC,TMP
+        N C0CDA,C0CEND,C0CROOT,C0CVLAB,LA7PTID,LA7SC,LA7SCRC,LA7SPEC
         ;
         S LA7PTID=C0CPTID
@@ -34 +34 @@
         ;
         ; Resolve search codes to lab datanames
-        S LA7SCSRC=$G(C0CSC)
-        S TMP=$$SCLIST^LA7QRY2(LA7SCSRC)
-        Q:$D(LA7ERR) ""
-        S LA7SC=TMP  D:LA7SC'="*" CHKSC^LA7QRY1
+        S LA7SC=$G(C0CSC)
+        I $T(SCLIST^LA7QRY2)'="" D
+        . N TMP
+        . S LA7SCSRC=$G(C0CSC)
+        . S TMP=$$SCLIST^LA7QRY2(LA7SCSRC)
+        . S LA7SC=TMP
+        ;
+        I LA7SC'="*" D CHKSC^LA7QRY1
         ;
         ; Convert specimen codes to file #61 Topography entries
@@ -43 +47 @@
         I LA7SPEC'="*"  D SPEC^LA7QRY1
         ;
-        S C0CROOT="^AUPNVLAB(""ALR4"",DFN,COCSDT)",C0CEND=0
+        S C0CROOT="^AUPNVLAB(""ALR4"",DFN,C0CSDT)",C0CEND=0
         ;
         F  S C0CROOT=$Q(@C0CROOT) Q:C0CROOT=""  D  Q:C0CEND
         . I $QS(C0CROOT,1)'="ALR4"!($QS(C0CROOT,2)'=DFN) S C0CEND=1 Q  ; Left x-ref or patient
         . I $QS(C0CROOT,3)>C0CEDT S C0CEND=1 Q  ; Exceeded end date/time
-        . S C0CDA=$QS(C0CROOT,6)
+        . S C0CDA=$QS(C0CROOT,4)
         . I $D(^TMP("C0C-VLAB",$J,1,C0CDA)) Q  ; Already checked during scan of file #63
         . D VCHK1
@@ -65 +69 @@
         ; Call from LA7QRY2
         ;
-        N DFN,C0C60,C0C63,C0CACC,C0CDA,C0CDT,C0CLN,X
+        N DFN,C0C60,C0C63,C0CACC,C0CDA,C0CDT,C0CLN,C0CPDA,C0CPTEST,C0CTEST,X
         ;
         S DFN=$P(^LR(LRDFN,0),"^",3)
@@ -78 +82 @@
         . I C0CDA<1 Q
         . S C0CLN=$P($G(^AUPNVLAB(C0CDA,11)),"^",13)
+        . S C0CPDA=$P($G(^AUPNVLAB(C0CDA,12)),"^",8)
+        . I C0CPDA="" S C0CPDA=C0CDA
+        . S C0CTEST=$P($G(^AUPNVLAB(C0CDA,0)),"^")
+        . S C0CPTEST=$P($G(^AUPNVLAB(C0CPDA,0)),"^")
         . S ^TMP("C0C-VLAB",$J,1,C0CDA)=""
-        . S ^TMP("C0C-VLAB",$J,2,LRDFN,LRSS,LRIDT,LRSB)=C0CLN_"^"_C0CDA
+        . I C0CDA'=C0CPDA S ^TMP("C0C-VLAB",$J,1,C0CPDA)=""
+        . S ^TMP("C0C-VLAB",$J,2,LRDFN,LRSS,LRIDT,LRSB)=C0CLN_"^"_C0CDA_"^"_C0CTEST_"^"_C0CPDA_"^"_C0CPTEST
         ;
         ; If LOINC found then update variable with LN code
@@ -104 +113 @@
 VSTORE  ; Store entry for building in HL7 message when parent is from V LAB file.
         ;
-        N PARENT
+        N C0CPDA,C0CPTEST
         ;
         ; Determine parent test to use for OBR segment
-        S PARENT=$P(C0CVLAB(12),"^",8)
-        I PARENT="" S PARENT=$P(C0CVLAB(0),"^")
+        S C0CPDA=$P(C0CVLAB(12),"^",8)
+        I C0CPDA="" S C0CPDA=C0CDA
         ;
-        ;                                patient ien 
-        ;                                |                 collection date/time
-        ;                                |                 |             parent test (ordered test)
-        ;                                |                 |             |      ien of entry in V LAB file
-        ;                                |                 |             |      |
-        S ^TMP("C0C-VLAB",$J,3,$P(C0CVLAB(0),"^",2),$P(C0CVLAB(12),"^"),PARENT,C0CDA)=""
+        ; Determine parent test
+        S C0CPTEST=$P($G(^AUPNVLAB(C0CPDA,0)),"^")
+        ;
+        S ^TMP("C0C-VLAB",$J,3,$P(C0CVLAB(0),"^",2),$P(C0CVLAB(12),"^"),C0CPTEST,C0CDA)=C0CPDA
         ;
         Q