RCP455E ;TAS/CJE - ePayment Lockbox Post-Installation Processing ;4 Oct 2018 10:29:18
;;4.5;Accounts Receivable;**455**;Oct 4, 2018;Build 19
;Per VA Directive 6402, this routine should not be modified.
EN ; Environmental Check
K XPDQUIT
I $$KCHK^XUSRB("XUMGR",+DUZ) Q ; installer has the key and everything is cool
;
; ABORT! ABORT! ABORT!
S XPDQUIT=2 ; Do not install this transport global but leave it in ^XTMP. >S XPDQUIT=2
W !,"Don't be alarmed but something went awry...",!
W !,"You need SECURITY KEY - XUMGR to successfully install this patch"
W !,"which creates Proxy User RCDPETAS,APPLICATION PROXY"
W !,"Please get the required key or find the closest person that has it"
W !,"and ask for assistance.",!
N DIR
S DIR(0)="E"
D ^DIR
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCP455E 778 printed Sep 17, 2026@20:32:43 Page 2
RCP455E ;TAS/CJE - ePayment Lockbox Post-Installation Processing ;4 Oct 2018 10:29:18
+1 ;;4.5;Accounts Receivable;**455**;Oct 4, 2018;Build 19
+2 ;Per VA Directive 6402, this routine should not be modified.
EN ; Environmental Check
+1 KILL XPDQUIT
+2 ; installer has the key and everything is cool
IF $$KCHK^XUSRB("XUMGR",+DUZ)
QUIT
+3 ;
+4 ; ABORT! ABORT! ABORT!
+5 ; Do not install this transport global but leave it in ^XTMP. >S XPDQUIT=2
SET XPDQUIT=2
+6 WRITE !,"Don't be alarmed but something went awry...",!
+7 WRITE !,"You need SECURITY KEY - XUMGR to successfully install this patch"
+8 WRITE !,"which creates Proxy User RCDPETAS,APPLICATION PROXY"
+9 WRITE !,"Please get the required key or find the closest person that has it"
+10 WRITE !,"and ask for assistance.",!
+11 NEW DIR
+12 SET DIR(0)="E"
+13 DO ^DIR
+14 QUIT
