Changeset 1336 for ccr/trunk/p/C0CVOBX1.m

Timestamp:

Jan 4, 2012, 9:39:08 PM (13 years ago)

Author:

George Lilly

Message:

removed tabs

File:

• ccr/trunk/p/C0CVOBX1.m (modified) (1 diff)

ccr/trunk/p/C0CVOBX1.m

@@ -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)
-        ; 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
+ ;
+ ; 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