Changeset 438 for ccr/trunk/p/LA7VOBX1.m

Timestamp:

Apr 28, 2009, 10:37:09 PM (15 years ago)

Author:

George Lilly

Message:

changes to lab extract

File:

• ccr/trunk/p/LA7VOBX1.m (modified) (2 diffs)

ccr/trunk/p/LA7VOBX1.m

@@ -1 @@
-LA7VOBX1 ;DALOI/JMC - LAB OBX Segment message builder (CH subscript) cont'd; 04/14/09
+LA7VOBX1 ;DALOI/JMC - LAB OBX Segment message builder (CH subscript) cont'd; 04/21/09
  ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61,63**;Sep 27, 1994
  ; JMC - mods to check for IHS V LAB file
@@ -19 +19 @@
  I LA7X]"","BO"'[LA7X Q
  I LA7X="",'$$OKTOSND^LA7VHLU1(LRSS,LRSB,+$P($P(LA7VAL,"^",3),"!",5)) Q
- ;
- ; If no result NLT or LOINC try to determine from file #60
- S LA7X=$P(LA7VAL,"^",3)
-  ; Check for no LOINC in 63 and LOINC found in V LAB file.
- I $P(LA7X,"!",3)="",$D(^TMP("C0C-VLAB",$J,2,LRDFN,LRSS,LRIDT,LRSB)) S $P(LA7X,"!",3)=$P(^TMP("C0C-VLAB",$J,2,LRDFN,LRSS,LRIDT,LRSB),"^")
         ;
- I $P(LA7X,"!",2)=""!($P(LA7X,"!",3)="") S $P(LA7VAL,"^",3)=$$DEFCODE^LA7VHLU5(LRSS,LRSB,LA7X,$P(LA76304(0),"^",5))
- ; No result NLT code - log error
+        ; If no result NLT or LOINC try to determine from file #60
+        S LA7X=$P(LA7VAL,"^",3)
+        ; WV check for IHS - NLT/LN codes from V LAB file
+        I $D(^AUPNVLAB) D TMPCHK^C0CLA7Q
+        ;
+        I $P(LA7X,"!",2)=""!($P(LA7X,"!",3)="") S $P(LA7VAL,"^",3)=$$DEFCODE^LA7VHLU5(LRSS,LRSB,LA7X,$P(LA76304(0),"^",5))
+        ; No result NLT code - log error
  I $P($P(LA7VAL,"^",3),"!",2)="" D
  . N LA7X