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

WEBG021P.m

Go to the documentation of this file.
  1. WEBG021P ; SLC/PWC - WEBG*3*21 Post Init Routine; July 17 2024@12:00 PM
  1. ;;3.0;WEB VISTA REMOTE ACCESS MANAGEMENT;**21**;Apr 06, 2021;Build 3
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. ; File #19.05 updates - Covered by Supported ICR# 10075
  1. ;
  1. Q
  1. ;
  1. POST ; Post-Installation Process
  1. ;
  1. ;;; Update OPTION (#19) file
  1. ;
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL(">>> Updating the WEBG WEBVRAM GUI option.")
  1. D MES^XPDUTL("")
  1. ;
  1. ; Verify that the WEBG WEBVRAM GUI option exists
  1. ;
  1. N ADDERR,OPTIEN,RPCNAME,UPERR
  1. S OPTIEN=$O(^DIC(19,"B","WEBG WEBVRAM GUI",0))
  1. I 'OPTIEN D Q
  1. . D MES^XPDUTL("")
  1. . D MES^XPDUTL("** There has been an issue identifying the WEBG WEBVRAM GUI Option.")
  1. . D MES^XPDUTL(" This patch may need to be re-installed at a later time.")
  1. ;
  1. ; Attempt to add RPC(s) to WEBG WEBVRAM GUI option
  1. ;
  1. S UPERR=0
  1. F RPCNAME="PSO EPCS PSDRPH FILER" D ADDRPC(.ADDERR,OPTIEN,RPCNAME) I ADDERR S UPERR=1
  1. ;
  1. I UPERR D Q
  1. . D MES^XPDUTL("")
  1. . D MES^XPDUTL("")
  1. . D MES^XPDUTL(" *** The issues referenced above need to be addressed. ***")
  1. ;
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL(">>> Updates to the WEBG WEBVRAM GUI have completed successfully. <<<")
  1. ;
  1. ADDRPC(ADDERR,OPTIEN,RPCNAME) ;Add RPC(s) to the WEBG WEBVRAM GUI Option
  1. N FDA,FDAERR,RPCIEN
  1. S ADDERR=0
  1. ;
  1. ; Verify that the RPC is valid
  1. ;
  1. I '$D(^XWB(8994,"B",RPCNAME)) D Q
  1. . S ADDERR=1
  1. . D MES^XPDUTL("")
  1. . D MES^XPDUTL("** RPC "_RPCNAME_" does not exist and cannot be added")
  1. . D MES^XPDUTL(" to the WEBG WEBVRAM GUI Option.")
  1. ;
  1. S RPCIEN=$O(^XWB(8994,"B",RPCNAME,0))
  1. I 'RPCIEN D Q
  1. . S ADDERR=1
  1. . D MES^XPDUTL("")
  1. . D MES^XPDUTL("** There has been an issue identifying the "_RPCNAME_" RPC.")
  1. . D MES^XPDUTL(" This patch may need to be re-installed at a later time.")
  1. ;
  1. ; Attempt to register the RPC to the WEBG WEBVRAM GUI context
  1. ;
  1. I $D(^DIC(19,OPTIEN,"RPC","B",RPCIEN)) D Q
  1. . D MES^XPDUTL("")
  1. . D MES^XPDUTL("** RPC "_RPCNAME_" is already registered to WEBG WEBVRAM GUI.")
  1. ;
  1. S ADDERR=0
  1. S FDA(19.05,"+1,"_OPTIEN_",",.01)=RPCIEN
  1. D UPDATE^DIE(,"FDA",,"FDAERR") K FDA
  1. ;
  1. I $D(FDAERR) D Q
  1. . S ADDERR=1
  1. . D MES^XPDUTL("")
  1. . D MES^XPDUTL("** There was an issue adding RPC "_RPCNAME_" to")
  1. . D MES^XPDUTL(" WEBG WEBVRAM GUI context. It may need to be added manually.")
  1. ;
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL(">> RPC "_RPCNAME_" has been successfully registered to WEBG WEBVRAM GUI.")
  1. Q