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

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

@@ -1 @@
-LR7OGMP ;DALOI/STAFF- Interim report rpc memo print ; Mar 10, 2003
- ;;5.2;LAB SERVICE;**187,246,282,286,344**;Sep 27, 1994
+LR7OGMP ;DALOI/STAFF- Interim report rpc memo print ;10/10/07  11:52
+ ;;5.2;LAB SERVICE;**187,246,282,286,344**;Sep 27, 1994;Build 2
  ;
 PRINT(OUTCNT) ; from LR7OGMC
@@ -27 +27 @@
  .. S TESTNUM=+DATA,PRNTCODE=$P(DATA,U,5),SUB=$P(DATA,U,6),FLAG=$P(DATA,U,8),X=$P(DATA,U,7),UNITS=$P(DATA,U,9),RANGE=$P(DATA,U,10),SITE=$P(DATA,U,11)
  .. S LOW=$P(RANGE,"-"),HIGH=$P(RANGE,"-",2),THER=$P(DATA,U,12)
- .. S LINE="     "_$S($L($P(DATA,U,2))>20:$P(DATA,U,3),1:$P(DATA,U,2))
+ .. ;S LINE="     "_$S($L($P(DATA,U,2))>20:$P(DATA,U,3),1:$P(DATA,U,2))
+ .. I $L($P(DATA,U,2))>28,$P(DATA,U,3)'="" S LINE=$P(DATA,U,3)
+ .. E  S LINE=$E($P(DATA,U,2),1,28)
  .. S LINE=$$SETSTR^VALM1("",LINE,28,0)
  .. I PRNTCODE="" S LINE=LINE_$J(X,8)