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

Timestamp:

Apr 14, 2009, 10:57:24 AM (15 years ago)

Author:

George Lilly

Message:

rollback of Lab for RPMS code

File:

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

ccr/trunk/p/LA7VOBX1.m

@@ -1 @@
-LA7VOBX1 ;DALOI/JMC - LAB OBX Segment message builder (CH subscript) cont'd ;Apr 8, 2009
- ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61,63,64,71**;Sep 27, 1994
+LA7VOBX1 ;DALOI/JMC - LAB OBX Segment message builder (CH subscript) cont'd; 04/13/09
+ ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61,63**;Sep 27, 1994
  ; JMC - mods to check for IHS V LAB file
  ;
@@ -6 +6 @@
  ; Called by LA7VOBX
  ;
- N LA76304,LA7ALT,LA7DIV,LA7I,LA7RS,LA7X,LA7Y,X
+ N LA76304,LA7ALT,LA7DIV,LA7I,LA7X,LA7Y,X
  ;
  ; "CH" subscript requires a dataname
@@ -13 +13 @@
  ; get result node from LR global.
  S LA76304(0)=$G(^LR(LRDFN,LRSS,LRIDT,0))
- S LA7RS=$P(LRSB,"^",2),LRSB=$P(LRSB,"^")
  S LA7VAL=$G(^LR(LRDFN,LRSS,LRIDT,LRSB))
- ; If previous results have been corrected then send corrected status
- I LA7RS="",$P(LA7VAL,"^",10)=2 S LA7RS="C"
  ;
  ; Check if test is OK to send - (O)utput or (B)oth
  S LA7X=$P(LA7VAL,"^",12)
  I LA7X]"","BO"'[LA7X Q
- I LA7X="",'$$OKTOSND^LA7VHLU1(LRSS,LRSB,+$P($P(LA7VAL,"^",3),"!",7)) 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),"^")
- ;
+  ; Check for no LOINC in 63 and LOINC found in V LAB file.
+ I $P(LA7X,"!",3)="",$D(^TMP("LA7-VLAB",$J,2,LRDFN,LRSS,LRIDT,LRSB)) S $P(LA7X,"!",3)=$P(^TMP("LA7-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
@@ -71 +67 @@
  ;
  ; Value type
- ; If result is "cancel" or "comment" then data type is ST - string data
- S LA7X=$S("canccomment"[$P(LA7VAL,"^"):1,1:0)
- I LA7X S LA7OBX(2)="ST"
- E  S LA7OBX(2)=$$OBX2^LA7VOBX(63.04,LRSB)
+ S LA7OBX(2)=$$OBX2^LA7VOBX(63.04,LRSB)
  ;
  ; Observation identifer
@@ -83 +76 @@
  ;
  ; Test value
- ; If DoD and "canc" then report "PL Cancelled" per Lab Interop ICD.
- S LA7X=$P(LA7VAL,"^")
- I LA7X'="canc",$$GET1^DID(63.04,LRSB,"","TYPE","","LA7ERR")="SET" D
- . S LA7X=$$EXTERNAL^DILFD(63.04,LRSB,"",LA7X)
- . I LA7X="" S LA7X=$P(LA7VAL,"^")
- I $G(LA7NVAF)=1,LA7X="canc" S LA7X="PL Cancelled"
- S LA7OBX(5)=$$OBX5^LA7VOBX(LA7X,LA7OBX(2),LA7FS,LA7ECH)
+ S LA7OBX(5)=$$OBX5^LA7VOBX($P(LA7VAL,"^"),LA7OBX(2),LA7FS,LA7ECH)
  ;
- ; Units
- S LA7X=$P(LA7VAL,"^",5)
+ ; Units - remove leading and trailing spaces
+ S LA7X=$P(LA7VAL,"^",5),LA7X=$$TRIM^XLFSTR(LA7X,"LR"," ")
  S LA7OBX(6)=$$OBX6^LA7VOBX($P(LA7X,"!",7),"",LA7FS,LA7ECH)
  ;
@@ -99 +86 @@
  ;
  ; Abnormal flags
- S LA7OBX(8)=$$OBX8^LA7VOBX($P(LA7VAL,"^",2))
+ S LA7OBX(8)=$$OBX8^LA7VOBX($P(LA7VAL,U,2))
  ;
  ; "P"artial or "F"inal results
- S LA7X=$S("canccommentpending"[$P(LA7VAL,"^"):$P(LA7VAL,"^"),1:"F")
- I LA7RS="C" S LA7X=LA7RS
- S LA7OBX(11)=$$OBX11^LA7VOBX(LA7X)
+ S LA7OBX(11)=$$OBX11^LA7VOBX($S("canccommentpending"[$P(LA7VAL,"^"):$P(LA7VAL,"^"),1:"F"))
  ;
  ; Observation date/time - collection date/time per HL7 standard