DG53232I ;ALB/KCL - DG*5.3*232 Pre-Install Routine ; 20-MAY-1999
;;5.3;Registration;**232**;Aug 13, 1993
;
;
EN ; Description: This entry point will be used as a driver for
; pre-installation updates.
;
; - Delete the ENROLLMENT STATUS (#27.15) file and it's data
D DELSTAT
;
Q
;
;
DELSTAT ; This procedure will delete the ENROLLMENT STATUS (#27.15) file and
; it's data if the file exists on the system.
;
I '$D(^DD(27.15)) Q
;
D BMES^XPDUTL(">>> Deleting the ENROLLMENT STATUS (#27.15) file...")
D MES^XPDUTL(" The ENROLLMENT STATUS (#27.15) file will be re-installed")
D MES^XPDUTL(" during the installation process.")
S DIU="^DGEN(27.15,",DIU(0)="D"
D EN^DIU2
K DIU
D BMES^XPDUTL(">>> Completed.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53232I 760 printed Dec 13, 2024@02:36:47 Page 2
DG53232I ;ALB/KCL - DG*5.3*232 Pre-Install Routine ; 20-MAY-1999
+1 ;;5.3;Registration;**232**;Aug 13, 1993
+2 ;
+3 ;
EN ; Description: This entry point will be used as a driver for
+1 ; pre-installation updates.
+2 ;
+3 ; - Delete the ENROLLMENT STATUS (#27.15) file and it's data
+4 DO DELSTAT
+5 ;
+6 QUIT
+7 ;
+8 ;
DELSTAT ; This procedure will delete the ENROLLMENT STATUS (#27.15) file and
+1 ; it's data if the file exists on the system.
+2 ;
+3 IF '$DATA(^DD(27.15))
QUIT
+4 ;
+5 DO BMES^XPDUTL(">>> Deleting the ENROLLMENT STATUS (#27.15) file...")
+6 DO MES^XPDUTL(" The ENROLLMENT STATUS (#27.15) file will be re-installed")
+7 DO MES^XPDUTL(" during the installation process.")
+8 SET DIU="^DGEN(27.15,"
SET DIU(0)="D"
+9 DO EN^DIU2
+10 KILL DIU
+11 DO BMES^XPDUTL(">>> Completed.")
+12 QUIT
