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")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53P874 745 printed Dec 13, 2024@02:40:17 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
