PSO7P774 ;ALB/RBD - patch 774 post-install ; 1/7/2025 1:15pm
;;7.0;OUTPATIENT PHARMACY;**774**;DEC 1997;Build 15
;
; ICR #4677 = $$CREATE^XUSAP (API for Application Proxy)
; ICR #10141 = BMES^XPDUTL & MES^XPDUTL
;
; Application Proxy name = "PSOAUTORELEASE,PROXY USER"
;
Q
;
EN ; Entry point in the (Patch - PSO*7.0*774)
D BMSG("Starting Post-Install")
D PROXY
D MSG("Post-Install Complete")
Q
;
PROXY ; Create an Application Proxy for PSO Auto Release Proxy User
N X
S X=$$CREATE^XUSAP("PSOAUTORELEASE,PROXY USER","",) ; Integration Agreement #4677
;
I +X=0 D Q
.D BMSG(" Application Proxy User - 'PSOAUTORELEASE,PROXY USER'")
.D MSG(" already exists in the NEW PERSON file (#200)"),MSG("")
;
I +X=-1 D Q
.D BMSG(" Application Proxy User - 'PSOAUTORELEASE,PROXY USER'")
.D MSG(" Unsuccessful; could not create Application Proxy User")
.D MSG(" OR error in call to UPDATE^DIE"),MSG("")
;
D BMSG(" ********************************************************************")
D MSG(" ** Application Proxy User - 'PSOAUTORELEASE,PROXY USER' = created **")
D MSG(" ********************************************************************")
D MSG("")
Q
;
; A message is also recorded in INSTALL file
; (#9.7) entry for the installation.
;
; Output a message.
MSG(MSG) ; Integration Agreement #10141
D MES^XPDUTL(MSG)
Q
;
; Output a message with a blank line added.
BMSG(MSG) ; Integration Agreement #10141
D BMES^XPDUTL(MSG)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO7P774 1525 printed Sep 23, 2025@20:00:15 Page 2
PSO7P774 ;ALB/RBD - patch 774 post-install ; 1/7/2025 1:15pm
+1 ;;7.0;OUTPATIENT PHARMACY;**774**;DEC 1997;Build 15
+2 ;
+3 ; ICR #4677 = $$CREATE^XUSAP (API for Application Proxy)
+4 ; ICR #10141 = BMES^XPDUTL & MES^XPDUTL
+5 ;
+6 ; Application Proxy name = "PSOAUTORELEASE,PROXY USER"
+7 ;
+8 QUIT
+9 ;
EN ; Entry point in the (Patch - PSO*7.0*774)
+1 DO BMSG("Starting Post-Install")
+2 DO PROXY
+3 DO MSG("Post-Install Complete")
+4 QUIT
+5 ;
PROXY ; Create an Application Proxy for PSO Auto Release Proxy User
+1 NEW X
+2 ; Integration Agreement #4677
SET X=$$CREATE^XUSAP("PSOAUTORELEASE,PROXY USER","",)
+3 ;
+4 IF +X=0
Begin DoDot:1
+5 DO BMSG(" Application Proxy User - 'PSOAUTORELEASE,PROXY USER'")
+6 DO MSG(" already exists in the NEW PERSON file (#200)")
DO MSG("")
End DoDot:1
QUIT
+7 ;
+8 IF +X=-1
Begin DoDot:1
+9 DO BMSG(" Application Proxy User - 'PSOAUTORELEASE,PROXY USER'")
+10 DO MSG(" Unsuccessful; could not create Application Proxy User")
+11 DO MSG(" OR error in call to UPDATE^DIE")
DO MSG("")
End DoDot:1
QUIT
+12 ;
+13 DO BMSG(" ********************************************************************")
+14 DO MSG(" ** Application Proxy User - 'PSOAUTORELEASE,PROXY USER' = created **")
+15 DO MSG(" ********************************************************************")
+16 DO MSG("")
+17 QUIT
+18 ;
+19 ; A message is also recorded in INSTALL file
+20 ; (#9.7) entry for the installation.
+21 ;
+22 ; Output a message.
MSG(MSG) ; Integration Agreement #10141
+1 DO MES^XPDUTL(MSG)
+2 QUIT
+3 ;
+4 ; Output a message with a blank line added.
BMSG(MSG) ; Integration Agreement #10141
+1 DO BMES^XPDUTL(MSG)
+2 QUIT
+3 ;
