EAS1125P ;ALB/BJR - EAS*1.0*125 PRE-INSTALL ; 11/25/14 1:50pm
;;1.0;ENROLLMENT APPLICATION SYSTEM;**125**;MAR 15,2001;Build 4
;
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[HEAS1125P 587 printed Oct 16, 2024@17:53:57 Page 2
EAS1125P ;ALB/BJR - EAS*1.0*125 PRE-INSTALL ; 11/25/14 1:50pm
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**125**;MAR 15,2001;Build 4
+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
