IBY770EC ;EDE/WCJ - ENV CHECK FOR IB*2.0*770 ;
;;2.0;INTEGRATED BILLING;**770**;21-MAR-94;Build 119
;;Per VA Directive 6402, this routine should not be modified.
;
;
; ICR#2120 ; $$KCHK^XUSRB(): Check If User Holds Security Key
EN ;Entry Point
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 AUTHORIZER, IB ACC"
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[HIBY770EC 791 printed May 25, 2026@12:40:34 Page 2
IBY770EC ;EDE/WCJ - ENV CHECK FOR IB*2.0*770 ;
+1 ;;2.0;INTEGRATED BILLING;**770**;21-MAR-94;Build 119
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;
+5 ; ICR#2120 ; $$KCHK^XUSRB(): Check If User Holds Security Key
EN ;Entry Point
+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 AUTHORIZER, IB ACC"
+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
