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

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

@@ -1 +1 @@
 LR7OGMG ;DALOI/STAFF- Interim report rpc memo grid ;July 19, 2006
- ;;5.2;LAB SERVICE;**187,230,286,290,331,364**;Sep 27, 1994;Build 3
+ ;;5.2;LAB SERVICE;**187,230,286,290,331**;Sep 27, 1994;Build 7
  ;
 GRID(OUTCNT) ; from LR7OGMC
  N ACC,AGE,CDT,CMNT,DATA,DOC,FLAG,IDT,INTP,LINE,LRCW,LRX,MPLS,PLS,PORDER,PRNTCODE,RANGE,SEX,SPEC,SUB,TCNT,TESTNAME,TESTNUM
- N UNITS,VALUE,X,ZERO,INEXACT,DISPDATE
+ N UNITS,VALUE,X,ZERO
  ; the variables AGE, SEX, LRCW, and X are used withing the lab's print codes and ref ranges
  K ^TMP("LRMPLS",$J)
@@ -13 +13 @@
  I '$P(ZERO,U,3) Q
  S SPEC=+$P(ZERO,U,5)
- S INEXACT=$P(ZERO,U,2),DISPDATE=$S(INEXACT:CDT\1,1:CDT)
  S DOC=$$NAME^LR7OGMP(+$P(ZERO,U,10))
  S ACC=$P(ZERO,U,6)
  S $P(^TMP("LR7OGX",$J,"OUTPUT",1),U,4,6)=SPEC_U_$P($G(^LAB(61,SPEC,0)),U)_U_ACC_U_DOC
- S $P(^TMP("LR7OGX",$J,"OUTPUT",1),U,10)=DISPDATE
  S (TCNT,MPLS,PORDER,PLS)=0
  S PLS=$O(^TMP("LRPLS",$J,0))