- 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 Feb 18, 2025@23:30:07 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