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

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

@@ -1 +1 @@
 LR7OGG ;DALOI/STAFF- Interim report rpc grid ; Feb 9, 2005
- ;;5.2;LAB SERVICE;**187,290,364**;Sep 27, 1994;Build 3
+ ;;5.2;LAB SERVICE;**187,290**;Sep 27, 1994
  ;
 TEST ; test use only
@@ -32 +32 @@
  S ^TMP("LR7OGX",$J,"OUTPUT",1)="0^0^0^1"
  N ABCNT,ABDCNT,ABLINE,ABTCNT,ABTLINE,ADCNT,ADSEQ,AGE,ATCNT,ATSEQ,CDT,CHSUB,COMCNT,COMMENT,DATACNT,DATESEQ,DFN,EDATE,EDT,FLAG,IDT
- N LINE,LRCW,LRDFN,LRX,NUM,ONLYSPEC,OUTCNT,PNM,PRNTCODE,RESULT,SDATE,SEX,SPEC,SPECNAME,TESTNAME,TESTNUM,TESTSEQ,TESTZERO,X,ZERO,INEXACT,DISPDATE
+ N LINE,LRCW,LRDFN,LRX,NUM,ONLYSPEC,OUTCNT,PNM,PRNTCODE,RESULT,SDATE,SEX,SPEC,SPECNAME,TESTNAME,TESTNUM,TESTSEQ,TESTZERO,X,ZERO
  K ^TMP("LR7OG",$J)
  S DFN=+^TMP("LR7OGX",$J,"INPUT",1),SDATE=+$P(^(1),U,2),EDATE=+$P(^(1),U,3),ONLYSPEC=+$P(^(1),U,4)
@@ -56 +56 @@
  . S ZERO=^LR(LRDFN,"CH",IDT,0)
  . I '$P(ZERO,U,3) Q
- . S CDT=+ZERO,INEXACT=$P(ZERO,U,2),SPEC=+$P(ZERO,U,5),SPECNAME=$P($G(^LAB(61,SPEC,0)),U),COMMENT=$S($O(^LR(LRDFN,"CH",IDT,1,0)):"**",1:"")
+ . S CDT=+ZERO,SPEC=+$P(ZERO,U,5),SPECNAME=$P($G(^LAB(61,SPEC,0)),U),COMMENT=$S($O(^LR(LRDFN,"CH",IDT,1,0)):"**",1:"")
  . I ONLYSPEC,SPEC'=ONLYSPEC Q
  . S CHSUB=1
@@ -64 +64 @@
  . . . S DATESEQ=DATESEQ+1
  . . . S OUTCNT=OUTCNT+1
- . . . S DISPDATE=$S(INEXACT:CDT\1,1:CDT)
- . . . S ^TMP("LR7OGX",$J,"OUTPUT",OUTCNT)=DATESEQ_U_CDT_U_SPEC_U_SPECNAME_U_COMMENT_U_DISPDATE
+ . . . S ^TMP("LR7OGX",$J,"OUTPUT",OUTCNT)=DATESEQ_U_CDT_U_SPEC_U_SPECNAME_U_COMMENT
  . . . I COMMENT'="" D
  . . . . S COMCNT=COMCNT+1