MAGGTUX5 ;WIOFO/BT - Imaging utility to run in post install ; 01 Mar 2012 4:05 pM
;;3.0;IMAGING;**119**;Mar 19, 2002;Build 4396;Apr 19, 2013
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
;; | No permission to copy or redistribute this software is given. |
;; | Use of unreleased versions of this software requires the user |
;; | to execute a written test agreement with the VistA Imaging |
;; | Development Office of the Department of Veterans Affairs, |
;; | telephone (301) 734-0100. |
;; | The Food and Drug Administration classifies this software as |
;; | a medical device. As such, it may not be changed in any way. |
;; | Modifications to this software may result in an adulterated |
;; | medical device under 21CFR820, the use of which is considered |
;; | to be a violation of US Federal Statutes. |
;; +---------------------------------------------------------------+
;;
Q
;
UPD20051() ; Updates IMAGE AUDIT file (#2005.1)
; Returns 0 for success
; and -39^Taskman has not scheduled the task for failure
N MAGDESC,MOTH,MAGRES,MSG,MAGRC
S MAGDESC="Patch 119: Build ""P"" Index in IMAGE AUDIT file (#2005.1)"
S MOTH("ZTDTH")=$H
S MAGRES=$$NODEV^XUTMDEVQ("NDXCP^MAGGTUX5",MAGDESC,"MAGDESC",.MOTH)
I MAGRES<0 S MAGRC=$$ERROR^MAGUERR(-39) Q MAGRC ; return
;--- Display the confirmation message
K MSG
S MSG(1)="It will build ""P"" Index in IMAGE AUDIT file (#2005.1)"
D BMES^MAGKIDS("Task #"_MAGRES_" has been executed.",.MSG)
Q 0
;
NDXCP ;BUILDS NEW INDEX IN FILE #2005.1 - ^MAG(2005.1,"P",PACSUID,D0)
N MAGFILE
N PACSUID
N MAGIEN
;
S MAGFILE=2005.1
;--- Process the file
S MAGIEN=0
F S MAGIEN=$O(^MAG(MAGFILE,MAGIEN)) Q:'MAGIEN D
. S PACSUID=$P($G(^MAG(MAGFILE,MAGIEN,"PACS")),U)
. Q:PACSUID=""
. S ^MAG(MAGFILE,"P",PACSUID,MAGIEN)=""
. Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGGTUX5 2072 printed Dec 13, 2024@02:03:40 Page 2
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
+2 ;; Per VHA Directive 2004-038, this routine should not be modified.
+3 ;; +---------------------------------------------------------------+
+4 ;; | Property of the US Government. |
+5 ;; | No permission to copy or redistribute this software is given. |
+6 ;; | Use of unreleased versions of this software requires the user |
+7 ;; | to execute a written test agreement with the VistA Imaging |
+8 ;; | Development Office of the Department of Veterans Affairs, |
+9 ;; | telephone (301) 734-0100. |
+10 ;; | The Food and Drug Administration classifies this software as |
+11 ;; | a medical device. As such, it may not be changed in any way. |
+12 ;; | Modifications to this software may result in an adulterated |
+13 ;; | medical device under 21CFR820, the use of which is considered |
+14 ;; | to be a violation of US Federal Statutes. |
+15 ;; +---------------------------------------------------------------+
+16 ;;
+17 QUIT
+18 ;
UPD20051() ; Updates IMAGE AUDIT file (#2005.1)
+1 ; Returns 0 for success
+2 ; and -39^Taskman has not scheduled the task for failure
+3 NEW MAGDESC,MOTH,MAGRES,MSG,MAGRC
+4 SET MAGDESC="Patch 119: Build ""P"" Index in IMAGE AUDIT file (#2005.1)"
+5 SET MOTH("ZTDTH")=$HOROLOG
+6 SET MAGRES=$$NODEV^XUTMDEVQ("NDXCP^MAGGTUX5",MAGDESC,"MAGDESC",.MOTH)
+7 ; return
IF MAGRES<0
SET MAGRC=$$ERROR^MAGUERR(-39)
QUIT MAGRC
+8 ;--- Display the confirmation message
+9 KILL MSG
+10 SET MSG(1)="It will build ""P"" Index in IMAGE AUDIT file (#2005.1)"
+11 DO BMES^MAGKIDS("Task #"_MAGRES_" has been executed.",.MSG)
+12 QUIT 0
+13 ;
NDXCP ;BUILDS NEW INDEX IN FILE #2005.1 - ^MAG(2005.1,"P",PACSUID,D0)
+1 NEW MAGFILE
+2 NEW PACSUID
+3 NEW MAGIEN
+4 ;
+5 SET MAGFILE=2005.1
+6 ;--- Process the file
+7 SET MAGIEN=0
+8 FOR
SET MAGIEN=$ORDER(^MAG(MAGFILE,MAGIEN))
if 'MAGIEN
QUIT
Begin DoDot:1
+9 SET PACSUID=$PIECE($GET(^MAG(MAGFILE,MAGIEN,"PACS")),U)
+10 if PACSUID=""
QUIT
+11 SET ^MAG(MAGFILE,"P",PACSUID,MAGIEN)=""
+12 QUIT
End DoDot:1
+13 QUIT
