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

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

@@ -1 +1 @@
 MAGGTMC1 ;WOIFO/GEK - RPC Calls for Imaging/Medicine procedures ; [ 06/20/2001 08:57 ]
- ;;3.0;IMAGING;**59**;Nov 27, 2007;Build 20
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;3.0;IMAGING;;Mar 01, 2002
  ;; +---------------------------------------------------------------+
  ;; | Property of the US Government.                                |
@@ -28 +27 @@
  IF $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGGTERR"
  E  S X="ERR^MAGGTERR",@^%ZOSF("TRAP")
- N I,J,K,X,Y,Z,TIME,PSIEN,DFN,MAGPTR,MAGMCIEN,MCFILE,MAGOK,MAGERR,PROCSTUB
+ N I,J,K,X,Y,Z,TIME,PSIEN,DFN,MAGPTR,MAGMCIEN,MCFILE,MAGOK,MAGERR
  ;
  S X=$P(DATA,U,1),%DT="TS" D ^%DT S TIME=Y
@@ -55 +54 @@
  S I="" F  S I=$O(MAGPTR(I)) Q:I=""  D
  . S $P(^MAG(2005,I,2),U,6,8)=MAGPTR(I)
- . D LINKDT^MAGGTU6(.X,I)
  S MAGRY=MAGOK
  Q
@@ -64 +62 @@
  ;  DATA is    null  ^ PSIEN ^ DFN ^ MCIEN ^ null
  ; 
- N TMCFILE,TPSIEN,TDFN,TMCIEN,RETX
+ N TMCFILE,TPSIEN,TDFN,TMCIEN
  S TPSIEN=+$P(DATA,U,2)
  S TDFN=+$P(DATA,U,3)