Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGGTPT1.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/MAGGTPT1.m
r628 r636 1 1 MAGGTPT1 ;WOIFO/GEK - Delphi-Broker calls for patient lookup and information ; [ 06/20/2001 08:57 ] 2 ;;3.0;IMAGING;**16,8,92 ,46,59**;Nov 27, 2007;Build 202 ;;3.0;IMAGING;**16,8,92**;Jan 10, 2007;Build 1 3 3 ;; Per VHA Directive 2004-038, this routine should not be modified. 4 4 ;; +---------------------------------------------------------------+ … … 23 23 ; MAGRY is the Array to return. 24 24 ; ZY is parameter sent by calling app (Delphi) 25 ; FILE NUM ^ NUM TO RETURN ^ TEXT TO MATCH ^^ SCREEN ($P 5-99)25 ; NUM TO RETURN ^ TEXT TO MATCH ^ ^ ^ SCREEN ($P 5-99) 26 26 N $ETRAP,$ESTACK S $ETRAP="D ERRA^MAGGTERR" 27 27 ;
Note:
See TracChangeset
for help on using the changeset viewer.