- 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 Jan 18, 2025@02:54:26 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