Routine: DG53P874

DG53P874 ;OAK/ELZ - POST-INIT FOR DG*5.3*874 ;9/17/2013

 ;;5.3;Registration;**874**;Aug 13, 1993;Build 2

 ; -- this post install routine will clean up the files associated

 ;    with old VIC cards.

 ; DBIA2172,DBIA10141,DBIA10014

POST D MES^XPDUTL("  Starting post-install of DG*5.3*874")

 N DGC,DGP,DGX,DIU

 D MES^XPDUTL("   - Deleting obsolete files.")

 S XPDIDTOT=2,DGC=0

 F DGX=39.6,39.7 D

 . S DGP=$G(DILOCKTM,3)

 . D MES^XPDUTL("    - Deleting obsolete file #"_DGX_", Waiting for hardware "_DGP_" seconds...")

 . S DIU=DGX,DIU(0)="EDT"

 . D EN^DIU2

 . S DGC=DGC+1

 . D UPDATE^XPDID(DGC)

 . H DGP  ; need to pause so we don't hit the globals too hard

 D MES^XPDUTL("  Finished post-install of DG*5.3*874")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53P874   745     printed  Apr 09, 2024@21:52:13                                                                                                                                                                                                     Page 2

DG53P874  ;OAK/ELZ - POST-INIT FOR DG*5.3*874 ;9/17/2013

 +1       ;;5.3;Registration;**874**;Aug 13, 1993;Build 2

 +2       ;

 +3       ; -- this post install routine will clean up the files associated

 +4       ;    with old VIC cards.

 +5       ; DBIA2172,DBIA10141,DBIA10014

 +6       ;

POST       DO MES^XPDUTL("  Starting post-install of DG*5.3*874")

 +1        NEW DGC,DGP,DGX,DIU

 +2        DO MES^XPDUTL("   - Deleting obsolete files.")

 +3        SET XPDIDTOT=2

           SET DGC=0

 +4        FOR DGX=39.6,39.7

               Begin DoDot:1

 +5                SET DGP=$GET(DILOCKTM,3)

 +6                DO MES^XPDUTL("    - Deleting obsolete file #"_DGX_", Waiting for hardware "_DGP_" seconds...")

 +7                SET DIU=DGX

                   SET DIU(0)="EDT"

 +8                DO EN^DIU2

 +9                SET DGC=DGC+1

 +10               DO UPDATE^XPDID(DGC)

 +11      ; need to pause so we don't hit the globals too hard

                   HANG DGP

               End DoDot:1

 +12      ;

 +13       DO MES^XPDUTL("  Finished post-install of DG*5.3*874")

 +14       QUIT

DG53P874.m