MBAD1PST ;HPE/ART MHPRO Patch 1 Post Install ;09/12/2016
;;1.0;MHPRO;**1**;;Build 1
;
QUIT
;
;Public, Supported ICRs
; #10141 - XPDUTL - Public APIs for KIDS
;
;Subscription ICR
;>>>>>>>>>>>>>>>>>>>>>>>>>>> SUBSCRIPTION NEEDS TO BE APPROVED <<<<<<<<<<<<<<<<<<<<<<<<<
; ICR 4677 - Application Proxy (XUSAP) - subscription, also use of app proxy requires VA DBA approval, ICR team approval
;
EN ;Main Entry Point
;
;Create MHPRO Application Proxy User
DO ADDPROXY
;
QUIT
;
ADDPROXY ;Create MHPRO Application Proxy User
;User needs XUMGR security key for this to work
;
NEW MHOPT,MHRTN
SET MHOPT("MBAD APP PROXY BROKER MENU")=1
SET MHRTN=$$CREATE^XUSAP("MBAD,APPLICATION PROXY","",.MHOPT)
IF MHRTN DO QUIT
. DO BMES^XPDUTL(" o MBAD,APPLICATION PROXY user was created.")
IF +MHRTN=0 DO
. DO BMES^XPDUTL(" o MBAD,APPLICATION PROXY user already exists.")
ELSE DO
. DO BMES^XPDUTL(" o Error creating MBAD,APPLICATION PROXY user ")
QUIT
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMBAD1PST 997 printed Sep 23, 2025@19:50:42 Page 2
MBAD1PST ;HPE/ART MHPRO Patch 1 Post Install ;09/12/2016
+1 ;;1.0;MHPRO;**1**;;Build 1
+2 ;
+3 QUIT
+4 ;
+5 ;Public, Supported ICRs
+6 ; #10141 - XPDUTL - Public APIs for KIDS
+7 ;
+8 ;Subscription ICR
+9 ;>>>>>>>>>>>>>>>>>>>>>>>>>>> SUBSCRIPTION NEEDS TO BE APPROVED <<<<<<<<<<<<<<<<<<<<<<<<<
+10 ; ICR 4677 - Application Proxy (XUSAP) - subscription, also use of app proxy requires VA DBA approval, ICR team approval
+11 ;
EN ;Main Entry Point
+1 ;
+2 ;Create MHPRO Application Proxy User
+3 DO ADDPROXY
+4 ;
+5 QUIT
+6 ;
ADDPROXY ;Create MHPRO Application Proxy User
+1 ;User needs XUMGR security key for this to work
+2 ;
+3 NEW MHOPT,MHRTN
+4 SET MHOPT("MBAD APP PROXY BROKER MENU")=1
+5 SET MHRTN=$$CREATE^XUSAP("MBAD,APPLICATION PROXY","",.MHOPT)
+6 IF MHRTN
Begin DoDot:1
+7 DO BMES^XPDUTL(" o MBAD,APPLICATION PROXY user was created.")
End DoDot:1
QUIT
+8 IF +MHRTN=0
Begin DoDot:1
+9 DO BMES^XPDUTL(" o MBAD,APPLICATION PROXY user already exists.")
End DoDot:1
+10 IF '$TEST
Begin DoDot:1
+11 DO BMES^XPDUTL(" o Error creating MBAD,APPLICATION PROXY user ")
End DoDot:1
+12 QUIT
+13 ;
