Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGJMN1.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 )
• IMAGING-MAG-ZMAG/MAGJMN1.m (modified) (3 diffs)

FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGJMN1.m

@@ -1 +1 @@
 MAGJMN1 ;WIRMFO/JHC VRad Maint functions ; 29 Jul 2003  4:02 PM
- ;;3.0;IMAGING;**16,9,22,18,65,76**;Jun 22, 2007;Build 19
+ ;;3.0;IMAGING;**16,9,22,18,65**;Jul 27, 2006;Build 28
  ;;Per VHA Directive 2004-038, this routine should not be modified.
  ;; +---------------------------------------------------------------+
@@ -31 +31 @@
  D ENSRCH
  D BLDDEF(MAGIEN)
- S $P(^MAG(2006.631,MAGIEN,0),U,5)=$$NOW^XLFDT()
+ D NOW^%DTC S $P(^MAG(2006.631,MAGIEN,0),U,5)=%
  W !!,"List Definition complete!" R X:2
  G SVRLIST
@@ -115 +115 @@
  . S STR=STR_$S(STR="":"",1:U)_X
  S ^MAG(2006.631,LSTID,"DEF",2)=STR
- S $P(^MAG(2006.631,LSTID,"DEF",0),U)=$$NOW^XLFDT()
+ D NOW^%DTC S $P(^MAG(2006.631,LSTID,"DEF",0),U)=%
  Q
  ;