- 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 Feb 18, 2025@23:40:52 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 ;