EAS1146P ;ALB/BJR - EAS*1.0*146 PRE-INSTALL ; 1/24/17 5:03pm
;;1.0;ENROLLMENT APPLICATION SYSTEM;**146**;MAR 15,2001;Build 3
;
Q
;
EN ; Display a message to inform the user that there will be a slight
; delay when installing the patch.
;
N EASMESS
N EASMESS
S EASMESS(1)="PRE-INSTALLATION PROCESSING"
S EASMESS(2)="---------------------------"
S EASMESS(3)="This installation will take some time due to the large size of the file."
S EASMESS(4)="Please be patient and allow the process to complete. Thank you!"
S EASMESS(5)=""
D BMES^XPDUTL(.EASMESS)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEAS1146P 586 printed Dec 13, 2024@01:53:11 Page 2
EAS1146P ;ALB/BJR - EAS*1.0*146 PRE-INSTALL ; 1/24/17 5:03pm
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**146**;MAR 15,2001;Build 3
+2 ;
+3 QUIT
+4 ;
EN ; Display a message to inform the user that there will be a slight
+1 ; delay when installing the patch.
+2 ;
+3 NEW EASMESS
+4 NEW EASMESS
+5 SET EASMESS(1)="PRE-INSTALLATION PROCESSING"
+6 SET EASMESS(2)="---------------------------"
+7 SET EASMESS(3)="This installation will take some time due to the large size of the file."
+8 SET EASMESS(4)="Please be patient and allow the process to complete. Thank you!"
+9 SET EASMESS(5)=""
+10 DO BMES^XPDUTL(.EASMESS)
+11 QUIT
