Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGQBPRG.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/MAGQBPRG.m
r628 r636 1 1 MAGQBPRG ;WOIOFO/RMP Magnetic Server Purge processes [ 06/29/2001 18:28 ] 2 ;;3.0;IMAGING;**7,3,8,20,81**;May 17, 2007 3 ;; Per VHA Directive 2004-038, this routine should not be modified. 2 ;;3.0;IMAGING;**7,3,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 | … … 54 54 ; 17 = Jukebox offline 55 55 N FILEXT,IEN,SITEID,MAGXX,MAGFILE,MAGFILE1,MAGFILE2,PACS,RIEN,ZNODE 56 N FILETYPE,CPTR,JBPTR,CPOK,BNODE,ALTPATH,NMSPC,PLACE,RDHOLD ,XX56 N FILETYPE,CPTR,JBPTR,CPOK,BNODE,ALTPATH,NMSPC,PLACE,RDHOLD 57 57 S X="ERR^MAGQBTM",@^%ZOSF("TRAP") 58 58 S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2))) … … 84 84 . E S RESULT="1^^9^^^"_IEN 85 85 . Q 86 I PLACE'=$$PLACE^MAGBAPI( +$P($G(^MAG(2005,IEN,100)),U,3)) D Q86 I PLACE'=$$PLACE^MAGBAPI($P($G(^MAG(2005,IEN,100)),U,3)) D Q 87 87 . S RESULT="-3^^15" Q ;Foreign Place 88 88 S ZNODE=^MAG(2005,IEN,0)
Note:
See TracChangeset
for help on using the changeset viewer.