PSO467PI.m

PSO467PI ;ALB/BWF - patch 467 pre-install ; 10/09/2016 10:43am

 ;;7.0;OUTPATIENT PHARMACY;**467**;DEC 1997;Build 153

 ;

PRE ;

 I '$D(^XUSEC("XUMGR",DUZ)) D

 .D EN^DDIOL("The user installing this patch must hold the 'XUMGR' security key.")

 .D EN^DDIOL("Install Aborted. Please have someone who holds the 'XUMGR' security")

 .D EN^DDIOL("install this patch.") S XPDABORT=1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSO467PI   384     printed  Apr 09, 2024@21:29:27                                                                                                                                                                                                     Page 2

PSO467PI  ;ALB/BWF - patch 467 pre-install ; 10/09/2016 10:43am

 +1       ;;7.0;OUTPATIENT PHARMACY;**467**;DEC 1997;Build 153

 +2       ;

PRE       ;

 +1        IF '$DATA(^XUSEC("XUMGR",DUZ))

               Begin DoDot:1

 +2                DO EN^DDIOL("The user installing this patch must hold the 'XUMGR' security key.")

 +3                DO EN^DDIOL("Install Aborted. Please have someone who holds the 'XUMGR' security")

 +4                DO EN^DDIOL("install this patch.")

                   SET XPDABORT=1

               End DoDot:1

 +5        QUIT