Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGGTRA.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGGTRA.m
r628 r636 1 1 MAGGTRA ;WOIFO/GEK - RPC Call to list Patient's Rad/Nuc Exams, Reports ; [ 06/20/2001 08:57 ] 2 ;;3.0;IMAGING;**59**;Nov 27, 2007;Build 20 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 2 ;;3.0;IMAGING;;Mar 01, 2002 4 3 ;; +---------------------------------------------------------------+ 5 4 ;; | Property of the US Government. | … … 9 8 ;; | Development Office of the Department of Veterans Affairs, | 10 9 ;; | telephone (301) 734-0100. | 10 ;; | | 11 11 ;; | The Food and Drug Administration classifies this software as | 12 12 ;; | a medical device. As such, it may not be changed in any way. | … … 40 40 ; MAGIEN is Image File IEN ^MAG(2005,IEN 41 41 ; 42 N Y,I,CT,MAGERR ,DIQUIET43 N RADFN,RADTI,RACNI,RANME,RASSN,RADATE,RADTE,RACN,RAPRC,RARPT,RAST ,MAGGP42 N Y,I,CT,MAGERR 43 N RADFN,RADTI,RACNI,RANME,RASSN,RADATE,RADTE,RACN,RAPRC,RARPT,RAST 44 44 IF $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGGTERR" 45 45 E S X="ERR^MAGGTERR",@^%ZOSF("TRAP") … … 72 72 ; DONE. 73 73 S MAGRY="1^Image pointer filed successfully" 74 D LINKDT^MAGGTU6(.X,MAGIEN)75 74 Q
Note:
See TracChangeset
for help on using the changeset viewer.