Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MAGGTUX5

MAGGTUX5.m

Go to the documentation of this file.
  1. MAGGTUX5 ;WIOFO/BT - Imaging utility to run in post install ; 01 Mar 2012 4:05 pM
  1. ;;3.0;IMAGING;**119**;Mar 19, 2002;Build 4396;Apr 19, 2013
  1. ;; Per VHA Directive 2004-038, this routine should not be modified.
  1. ;; +---------------------------------------------------------------+
  1. ;; | Property of the US Government. |
  1. ;; | No permission to copy or redistribute this software is given. |
  1. ;; | Use of unreleased versions of this software requires the user |
  1. ;; | to execute a written test agreement with the VistA Imaging |
  1. ;; | Development Office of the Department of Veterans Affairs, |
  1. ;; | telephone (301) 734-0100. |
  1. ;; | The Food and Drug Administration classifies this software as |
  1. ;; | a medical device. As such, it may not be changed in any way. |
  1. ;; | Modifications to this software may result in an adulterated |
  1. ;; | medical device under 21CFR820, the use of which is considered |
  1. ;; | to be a violation of US Federal Statutes. |
  1. ;; +---------------------------------------------------------------+
  1. ;;
  1. Q
  1. ;
  1. UPD20051() ; Updates IMAGE AUDIT file (#2005.1)
  1. ; Returns 0 for success
  1. ; and -39^Taskman has not scheduled the task for failure
  1. N MAGDESC,MOTH,MAGRES,MSG,MAGRC
  1. S MAGDESC="Patch 119: Build ""P"" Index in IMAGE AUDIT file (#2005.1)"
  1. S MOTH("ZTDTH")=$H
  1. S MAGRES=$$NODEV^XUTMDEVQ("NDXCP^MAGGTUX5",MAGDESC,"MAGDESC",.MOTH)
  1. I MAGRES<0 S MAGRC=$$ERROR^MAGUERR(-39) Q MAGRC ; return
  1. ;--- Display the confirmation message
  1. K MSG
  1. S MSG(1)="It will build ""P"" Index in IMAGE AUDIT file (#2005.1)"
  1. D BMES^MAGKIDS("Task #"_MAGRES_" has been executed.",.MSG)
  1. Q 0
  1. ;
  1. NDXCP ;BUILDS NEW INDEX IN FILE #2005.1 - ^MAG(2005.1,"P",PACSUID,D0)
  1. N MAGFILE
  1. N PACSUID
  1. N MAGIEN
  1. ;
  1. S MAGFILE=2005.1
  1. ;--- Process the file
  1. S MAGIEN=0
  1. F S MAGIEN=$O(^MAG(MAGFILE,MAGIEN)) Q:'MAGIEN D
  1. . S PACSUID=$P($G(^MAG(MAGFILE,MAGIEN,"PACS")),U)
  1. . Q:PACSUID=""
  1. . S ^MAG(MAGFILE,"P",PACSUID,MAGIEN)=""
  1. . Q
  1. Q