MAGIP81 ;Post init routine to queue site activity at install.
;;3.0;IMAGING;**81**;May 17, 2007
;; 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. |
;; +---------------------------------------------------------------+
;;
PRE ;
; Remove RPC so that it installs cleanly
D RMRPC("MAGQ VOK")
Q
POST ;
D BMES^XPDUTL("Updating MAG WINDOWS: "_$$FMTE^XLFDT($$NOW^XLFDT))
D ADDRPC^MAGQBUT4("MAGQ VOK","MAG WINDOWS")
D INS^MAGQBUT4(XPDNM,DUZ,$$NOW^XLFDT,XPDA)
Q
RMRPC(NAME) ; Removing an RPC in order to revise
N MW,RPC,MWE,DIERR
S MW=$$FIND1^DIC(19,"","X","MAG WINDOWS","","","")
D CLEAN^DILF
Q:'MW
S RPC=$$FIND1^DIC(8994,"","X",NAME,"","","")
D CLEAN^DILF
Q:'RPC
S MWE=$$FIND1^DIC(19.05,","_MW_",","X",NAME,"","","")
D CLEAN^DILF
Q:'MWE
S DA=MWE,DA(1)=MW,DIK="^DIC(19,"_DA(1)_",""RPC"","
D ^DIK
K DA,DIK
S DA=RPC,DIK="^XWB(8994,"
D ^DIK
K DA,DIK
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGIP81 1772 printed Sep 23, 2025@19:42:27 Page 2
MAGIP81 ;Post init routine to queue site activity at install.
+1 ;;3.0;IMAGING;**81**;May 17, 2007
+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 |
+12 ;; | in any way. Modifications to this software may result in an |
+13 ;; | adulterated medical device under 21CFR820, the use of which |
+14 ;; | is considered to be a violation of US Federal Statutes. |
+15 ;; +---------------------------------------------------------------+
+16 ;;
PRE ;
+1 ; Remove RPC so that it installs cleanly
+2 DO RMRPC("MAGQ VOK")
+3 QUIT
POST ;
+1 DO BMES^XPDUTL("Updating MAG WINDOWS: "_$$FMTE^XLFDT($$NOW^XLFDT))
+2 DO ADDRPC^MAGQBUT4("MAGQ VOK","MAG WINDOWS")
+3 DO INS^MAGQBUT4(XPDNM,DUZ,$$NOW^XLFDT,XPDA)
+4 QUIT
RMRPC(NAME) ; Removing an RPC in order to revise
+1 NEW MW,RPC,MWE,DIERR
+2 SET MW=$$FIND1^DIC(19,"","X","MAG WINDOWS","","","")
+3 DO CLEAN^DILF
+4 if 'MW
QUIT
+5 SET RPC=$$FIND1^DIC(8994,"","X",NAME,"","","")
+6 DO CLEAN^DILF
+7 if 'RPC
QUIT
+8 SET MWE=$$FIND1^DIC(19.05,","_MW_",","X",NAME,"","","")
+9 DO CLEAN^DILF
+10 if 'MWE
QUIT
+11 SET DA=MWE
SET DA(1)=MW
SET DIK="^DIC(19,"_DA(1)_",""RPC"","
+12 DO ^DIK
+13 KILL DA,DIK
+14 SET DA=RPC
SET DIK="^XWB(8994,"
+15 DO ^DIK
+16 KILL DA,DIK
+17 QUIT
+18 ;
