DG53232I.m

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 ---DG53232I   760     printed  Apr 09, 2024@21:54:45                                                                                                                                                                                                     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