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

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

@@ -1 +1 @@
 MAGJUPD1 ;WOIFO/JHC VistARad Update Exam Status ; 29 Jul 2003  10:02 AM
- ;;3.0;IMAGING;**16,22,18,76**;Jun 22, 2007;Build 19
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;3.0;IMAGING;**16,22,18**;Mar 07, 2006
  ;; +---------------------------------------------------------------+
  ;; | Property of the US Government.                                |
@@ -45 +44 @@
  K MAGGRY S MAGGRY=$NA(^TMP($J,MAGLST)) K @MAGGRY  ; assign MAGGRY value
  S DIQUIET=1 D DT^DICRW
- S TIMESTMP=$$NOW^XLFDT()
+ D NOW^%DTC S TIMESTMP=%
  S UPDFLAG=$P(PARAMS,U),RADFN=$P(PARAMS,U,2),RADTI=$P(PARAMS,U,3),RACNI=$P(PARAMS,U,4),RARPT=$P(PARAMS,U,5),UPDPSKEY=+$P(PARAMS,U,6)
  S REPLY="0^4~Closing case with"_$S(UPDFLAG:"",1:" NO")_" Status Update"