Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGQBUT1.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/MAGQBUT1.m
r628 r636 1 1 MAGQBUT1 ;WOIFO/RP; Utilities for Background [ 03/25/2001 11:20 ] 2 ;;3.0;IMAGING;**7,8,20,81**;May 17, 2007 3 ;; Per VHA Directive 2004-038, this routine should not be modified. 2 ;;3.0;IMAGING;**7,8,20**;Apr 12, 2006 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. | … … 180 180 F INC=FROM:1:TO D 181 181 . I ('$D(^MAG(2005,INC,0))&('$D(^MAG(2005.1,INC,0)))) Q 182 . I ($ $PLACE^MAGBAPI(+$P($G(^MAG(2005,INC,100)),U,3))'=PLACE)&($$PLACE^MAGBAPI(+$P($G(^MAG(2005.1,INC,100)),U,3)'=PLACE)) Q182 . I ($P($G(^MAG(2005,INC,100)),U,3)'=INST)&($P($G(^MAG(2005.1,INC,100)),U,3)'=INST) Q 183 183 . I ($P($G(^MAG(2005,INC,0)),"^",2)="")&($P($G(^MAG(2005.1,INC,0)),"^",2)="") Q ;No full filename attribute 184 184 . I (+$P($G(^MAG(2005,INC,1,0)),"^",4)>0)!(+$P($G(^MAG(2005.1,INC,1,0)),"^",4)>0) Q ;GROUP PARENT
Note:
See TracChangeset
for help on using the changeset viewer.