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

MBAD1PST.m

Go to the documentation of this file.
  1. MBAD1PST ;HPE/ART MHPRO Patch 1 Post Install ;09/12/2016
  1. ;;1.0;MHPRO;**1**;;Build 1
  1. ;
  1. QUIT
  1. ;
  1. ;Public, Supported ICRs
  1. ; #10141 - XPDUTL - Public APIs for KIDS
  1. ;
  1. ;Subscription ICR
  1. ;>>>>>>>>>>>>>>>>>>>>>>>>>>> SUBSCRIPTION NEEDS TO BE APPROVED <<<<<<<<<<<<<<<<<<<<<<<<<
  1. ; ICR 4677 - Application Proxy (XUSAP) - subscription, also use of app proxy requires VA DBA approval, ICR team approval
  1. ;
  1. EN ;Main Entry Point
  1. ;
  1. ;Create MHPRO Application Proxy User
  1. DO ADDPROXY
  1. ;
  1. QUIT
  1. ;
  1. ADDPROXY ;Create MHPRO Application Proxy User
  1. ;User needs XUMGR security key for this to work
  1. ;
  1. NEW MHOPT,MHRTN
  1. SET MHOPT("MBAD APP PROXY BROKER MENU")=1
  1. SET MHRTN=$$CREATE^XUSAP("MBAD,APPLICATION PROXY","",.MHOPT)
  1. IF MHRTN DO QUIT
  1. . DO BMES^XPDUTL(" o MBAD,APPLICATION PROXY user was created.")
  1. IF +MHRTN=0 DO
  1. . DO BMES^XPDUTL(" o MBAD,APPLICATION PROXY user already exists.")
  1. ELSE DO
  1. . DO BMES^XPDUTL(" o Error creating MBAD,APPLICATION PROXY user ")
  1. QUIT
  1. ;