- 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 Mar 13, 2025@21:11:07 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 ;
