Changeset 636 for FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LR7OSUM1.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• LAB_SERVICE-LR-LS/LR7OSUM1.m (modified) (2 diffs)

FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LR7OSUM1.m

@@ -1 @@
-LR7OSUM1 ;DALOI/dcm - Silent Patient cum cont. ; Mar 11, 2003
- ;;5.2;LAB SERVICE;**121,187,256,286**;Sep 27, 1994
+LR7OSUM1 ;DALOI/dcm - Silent Patient cum cont. ;10/10/07  11:51
+ ;;5.2;LAB SERVICE;**121,187,256,286**;Sep 27, 1994;Build 2
  ;
 LRIDT ; from LR7OSUM
@@ -90 +90 @@
  S ^TMP($J,LRDFN,"MISC",LRIDT,LRTNN)=$P(LRTRES,"^")_U_LRSPM_U_LRTST_U_$P(LRTRES,"^",2)_U_LRSUB_U_$P(LRTRES,"^",3,6)
  ;
- S X=$S($D(^LAB(60,LRTST,.1)):$P(^(.1),"^"),1:$P(^LAB(60,LRTST,0),"^")),^TMP("LRT",$J,X)="MISCELLANEOUS TESTS"
+ ; S X=$S($D(^LAB(60,LRTST,.1)):$P(^(.1),"^"),1:$P(^LAB(60,LRTST,0),"^")),^TMP("LRT",$J,X)="MISCELLANEOUS TESTS"
+ S TST=$P($G(^LAB(60,LRTST,.1)),"^")
+ I TST="" S TST=$P(^LAB(60,LRTST,0),"^")
+ S ^TMP("LRT",$J,TST)="MISCELLANEOUS TESTS"
  ;
  ; Grab specimen comments