- EAS1098P ;ALB/LBD - EAS*1.0*98 PRE-INSTALL ; 11/10/09 4:37pm
- ;;1.0;ENROLLMENT APPLICATION SYSTEM;**98**;MAR 15,2001;Build 3
- EN ; Display a message to inform the user that there will be a slight
- ; delay when installing the patch.
- ;
- N MESS
- S MESS(1)="PRE-INSTALLATION PROCESSING"
- S MESS(2)="---------------------------"
- S MESS(3)="This installation will take some time due to the large size of the file."
- S MESS(4)="Please be patient and allow the process to complete. Thank you!"
- S MESS(5)=""
- D BMES^XPDUTL(.MESS)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEAS1098P 540 printed Jan 18, 2025@02:54:15 Page 2
- EAS1098P ;ALB/LBD - EAS*1.0*98 PRE-INSTALL ; 11/10/09 4:37pm
- +1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**98**;MAR 15,2001;Build 3
- EN ; Display a message to inform the user that there will be a slight
- +1 ; delay when installing the patch.
- +2 ;
- +3 NEW MESS
- +4 SET MESS(1)="PRE-INSTALLATION PROCESSING"
- +5 SET MESS(2)="---------------------------"
- +6 SET MESS(3)="This installation will take some time due to the large size of the file."
- +7 SET MESS(4)="Please be patient and allow the process to complete. Thank you!"
- +8 SET MESS(5)=""
- +9 DO BMES^XPDUTL(.MESS)
- +10 QUIT