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

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

@@ -1 +1 @@
 MAGJLS4 ;WIRMFO/JHC VistARad RPCs--History List ; 29 Jul 2003  10:00 AM
- ;;3.0;IMAGING;**18,76**;Jun 22, 2007;Build 19
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;3.0;IMAGING;**18**;Mar 07, 2006
  ;; +---------------------------------------------------------------+
  ;; | Property of the US Government.                                |
@@ -57 +56 @@
  ;
 HISTADD(DATA,TXDUZ,TXDIV) ; add records
- N IDATA,ILOOP,CT,NOGO,EXID,HISDAT,HISTIEN,MAGRACNT,TS
+ N IDATA,ILOOP,CT,NOGO,EXID,HISDAT,HISTIEN,MAGRACNT
  S IDATA="",CT=0,NOGO=0
  F ILOOP=0:1 S IDATA=$O(DATA(IDATA)) Q:IDATA=""  D
@@ -72 +71 @@
  S MAGRACNT=0 D ACTIVE^MAGJLS2(.MAGGRY,9996)
  S X=@MAGGRY@(0),X=+X_U_"1~"_$$HISTTL(TXDUZ,TXDIV),@MAGGRY@(0)=X
- S TS="" F I=2,0 S TS=TS_$S(TS="":"",1:U)_$$HTFM^XLFDT($H+I,0)
+ N TS S TS="" F I=2,0 S %H=$H+I D YMD^%DTC S TS=TS_$S(TS="":"",1:U)_X
  S ^XTMP("MAGJ2",0)=TS_U_"VistaRad List Compile"
  S REPLY=1
@@ -134 +133 @@
  . S HDATE=$P(XX2,U,13) D  Q:DELETED
  . . S DELETED=0,HDATE=$P(HDATE,"@")
- . . S X=HDATE,%DT="" D ^%DT K %DT
- . . I $$FMTH^XLFDT(Y,1)<($H-3) K ^XTMP("MAGJ2","HISTORY",TXDUZ,TXDIV,HISTIEN) S DELETED=1 Q
+ . . S X=HDATE,%DT="" D ^%DT S X=Y D H^%DTC K %DT
+ . . I %H<($H-3) K ^XTMP("MAGJ2","HISTORY",TXDUZ,TXDIV,HISTIEN) S DELETED=1 Q
  . ; <*> End of temp change
  . I RARPT,RADFN,RADTI,RACNI