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

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

@@ -1 +1 @@
 LR7OGMM ;SLC/STAFF- Interim report rpc memo micro ;5/20/97  18:52
- ;;5.2;LAB SERVICE;**187,312,364**;Sep 27, 1994;Build 3
+ ;;5.2;LAB SERVICE;**187,312**;Sep 27, 1994
  ;
 MI(LRDFN,IDT,MICROSUB,ALL,OUTCNT,FORMAT,DONE) ; from LR7OGM
- N MISUB,OK,ZERO,INEXACT,DISPDATE,XDT
+ N MISUB,OK
  I '$D(^LR(LRDFN,"MI",IDT)) Q
  S OK=ALL
@@ -9 +9 @@
  I 'OK Q
  I $G(FORMAT) D
- .S XDT=9999999-IDT
- .S ^TMP("LR7OGX",$J,"OUTPUT",OUTCNT)="^MI^"_XDT D
- ..; determine if collection time is "inexact" and put the 
- ..; collection day/time that is to be displayed in piece 10
- ..S ZERO=$G(^LR(LRDFN,"MI",IDT,0)) Q:ZERO=""
- ..S INEXACT=$P(ZERO,U,2)
- ..S DISPDATE=$S(INEXACT:XDT\1,1:XDT)
- ..S $P(^TMP("LR7OGX",$J,"OUTPUT",OUTCNT),U,10)=DISPDATE
+ .S ^TMP("LR7OGX",$J,"OUTPUT",OUTCNT)="^MI^"_(9999999-IDT)
  .S OUTCNT=OUTCNT+1
  .S DONE=1