Changeset 636 for FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LR7OSUM6.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/LR7OSUM6.m (modified) (2 diffs)

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

@@ -1 @@
-LR7OSUM6 ;DALOI/dcm - Silent Patient cum cont. ;Mar 11, 2003
- ;;5.2;LAB SERVICE;**121,201,187,286,356**;Sep 27, 1994;Build 8
+LR7OSUM6 ;DALOI/dcm - Silent Patient cum cont. ;10/10/07  19:26
+ ;;5.2;LAB SERVICE;**121,201,187,286,356**;Sep 27, 1994;Build 2
  ;
 LRUDT(X) ;Get output date/time
@@ -43 +43 @@
  S LRSPEM=$S($L(LRSPE):$P(^LAB(61,LRSPE,0),U,1),1:"")
  G:'LRTEST COMM
- S LRNAME=$P(^LAB(60,LRTEST,.1),U,1)
+ S LRNAME=$P(^LAB(60,LRTEST,0),"^")
+ I $L(LRNAME)>13,$P($G(^LAB(60,LRTEST,.1)),"^")'="" S LRNAME=$P(^LAB(60,LRTEST,.1),"^")
+ E  S LRNAME=$E(LRNAME,1,13)
+ ; S LRNAME=$P(^LAB(60,LRTEST,.1),U,1)
  ;S:$L(LRSPE)&($D(^LAB(60,LRTEST,1,LRSPE,0))) X=^(0),@("LRLO="_$S($L($P(X,U,2)):$P(X,U,2),1:"""""")),@("LRHI="_$S($L($P(X,U,3)):$P(X,U,3),1:"""""")),LRUNT=$P(X,U,7)
  ;