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

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

@@ -1 +1 @@
 MAGLOG ;WOIFO/RED,SRR,MLH - Log image access ; [ 06/20/2001 08:57 ]
- ;;3.0;IMAGING;**17,8,20,59**;Nov 27, 2007;Build 20
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;3.0;IMAGING;**17,8,20**;Apr 12, 2006
  ;; +---------------------------------------------------------------+
  ;; | Property of the US Government.                                |
@@ -39 +38 @@
  I $D(MAGAD) S ^MAG(2006.95,MAGC,100)=MAGAD
  S ^MAG(2006.95,"B",MAGC,MAGC)=""
- D ACCESS(MAGO) ; This should be here.  Can now search 2006.95 from "Last Access Date" to "Capture Date" to
- ; get all Actions logged. We Don't have to search entire Image File.
  I $G(MAGJOB("SESSION")) S ^MAG(2006.95,"AS",+$G(MAGJOB("SESSION")),MAGC)=""
  Q
 ACCESS(MAGO) ; Update Field "Last Access Date" in Image File.
- Q:'$G(MAGO)
  I '$D(^MAG(2005,MAGO,0)) D  Q
  . I $D(^MAG(2005.1,MAGO,0)) S $P(^MAG(2005.1,MAGO,0),"^",9)=$$NOW^XLFDT