EAS1134P.m

EAS1134P ;ALB/BKG - EAS*1.0*134 PRE-INSTALL ; 11/06/15 1:50pm

 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**134**;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 ---EAS1134P   587     printed  Mar 13, 2025@20:57:49                                                                                                                                                                                                     Page 2

EAS1134P  ;ALB/BKG - EAS*1.0*134 PRE-INSTALL ; 11/06/15 1:50pm

 +1       ;;1.0;ENROLLMENT APPLICATION SYSTEM;**134**;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