EAS1170P ;DEV/BJR - EAS*1.0*170 PRE-INSTALL ;10/13/17 10:46am
;;1.0;ENROLLMENT APPLICATION SYSTEM;**170**;MAR 15,2001;Build 6
;
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[HEAS1170P 587 printed Nov 22, 2024@17:03:23 Page 2
EAS1170P ;DEV/BJR - EAS*1.0*170 PRE-INSTALL ;10/13/17 10:46am
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**170**;MAR 15,2001;Build 6
+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
