Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGGTU71.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/MAGGTU71.m
r628 r636 1 1 MAGGTU71 ;WOIFO/GEK - Silent calls for Queing functions from GUI, cont ; [ 06/20/2001 08:57 ] 2 ;;3.0;IMAGING;**46 ,59**;Nov 27, 2007;Build 203 ;; Per VHA Directive 2004-038, this routine should not be modified.2 ;;3.0;IMAGING;**46**;16-February-2007;;Build 1023 3 ;; Per VHA Directive 2004-038, this routine should not be modified. 4 4 ;; +---------------------------------------------------------------+ 5 5 ;; | Property of the US Government. | … … 17 17 ;; 18 18 Q 19 ABSJB(MAGRY, DATA) ;RPC [MAG ABSJB] SET ABSTRACT AND/OR JUKEBOX QUEUES19 ABSJB(MAGRY,MAGIN) ;RPC [MAG ABSJB] SET ABSTRACT AND/OR JUKEBOX QUEUES 20 20 ; 21 ; DATA21 ; MAGIN 22 22 ; DESCRIPTION: '^' delimited String: 23 23 ; Piece 1 = the IEN of the image that needs an abstract created. … … 31 31 N $ETRAP,$ESTACK S $ETRAP="D ERR^"_$T(+0) 32 32 S MAGRY="0^ERROR: Setting Queue for Abstract or JukeBox copy" 33 S MAGIENAB=+$P( DATA,"^",1),MAGIENJB=+$P(DATA,"^",2)33 S MAGIENAB=+$P(MAGIN,"^",1),MAGIENJB=+$P(MAGIN,"^",2) 34 34 I MAGIENAB Q:((+$P($G(^MAG(2005,MAGIENAB,0)),U,11))!(+$P($G(^MAG(2005,MAGIENAB,0)),U,12))) "0^Image integrity" 35 35 I MAGIENJB Q:((+$P($G(^MAG(2005,MAGIENJB,0)),U,11))!(+$P($G(^MAG(2005,MAGIENJB,0)),U,12))) "0^Image integrity"
Note:
See TracChangeset
for help on using the changeset viewer.