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

MAGIP111.m

Go to the documentation of this file.
  1. MAGIP111 ;WOIFO/JSL - Post Install routine to add RA entry
  1. ;;3.0;IMAGING;**111**;28-September-2009;;Build 1461
  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. ;***** POST-INSTALL CODE
  1. POS ;
  1. D ADD
  1. ;--- Send the install notification via e-mail
  1. D INS^MAGQBUT4($G(XPDNM,"MAG*3.0*111 BSE"),DUZ,$$NOW^XLFDT,$G(XPDA))
  1. Q
  1. ;+++++ ADD 'REMOTE APPLICATION' ENTRY
  1. ADD ;Create Imaging entries in 8994.5 REMOTE APPLICATION if they do not exist
  1. N A,ACODE,DA,DD,DO,DIC,DIE,DR,ENTRY,OPTN,PORT,RPC,X,Y
  1. W !,"I will check if Imaging entries are in the REMOTE APPLICATION file. . ."
  1. ;Set the new entry
  1. S DIC="^XWB(8994.5,",X="ERROR^MAGIP111",@^%ZOSF("TRAP")
  1. F A=1:1 S X=$P($T(API+A),";",3) Q:'$L(X) D
  1. . S DA=$$FIND1^DIC(8994.5,,,X,"B") Q:DA ;chk if already exist
  1. . S DIC(0)="O",ACODE=$$EN^ROUTINE(X)
  1. . K DD,D0 D FILE^DICN
  1. . S ENTRY=+Y I 'ENTRY W !,"Can't add new entry "_X G ERROR
  1. . S DR=".02///"_$P($T(API+A),";",4)_";.03///"_ACODE_";1///S"
  1. . S PORT=-1
  1. . S DR(2,8994.51)=".02////"_PORT ;sub file
  1. . S DA=ENTRY,DIE="^XWB(8994.5," D ^DIE W "*"
  1. . Q
  1. ; Add new RPC - MAG BROKER SECURITY into MAG WINDOWS & VISARAD WINDOWS
  1. S DA=$$FIND1^DIC(8994,,,"MAG BROKER SECURITY","B") ;RPC - BSE TOKEN
  1. I DA F OPTN="MAG WINDOWS","MAGJ VISTARAD WINDOWS" D
  1. . D ADDRPC^MAGQBUT4("MAG BROKER SECURITY",OPTN) W "*"
  1. . Q
  1. Q
  1. ERROR ;Trap Errors
  1. W !,$ZE,!,"Please check the error log for details",!
  1. Q
  1. API ;
  1. ;;VISTA IMAGING DISPLAY;MAG WINDOWS;
  1. ;;VISTA IMAGING TELEREADER;MAG WINDOWS;
  1. ;;VISTA IMAGING VIX;MAG WINDOWS;
  1. ;;VISTA IMAGING VISTARAD;MAGJ VISTARAD WINDOWS;
  1. Q