DGPST786 ;ALB/RC - POST-INSTALL DG*5.3*786 ; 1/22/09 12:33pm
;;5.3;Registration;**786**;Aug 13, 1993;Build 21
Q
EN ;Post-install entry point
N DGX,Y
F DGX="PST" D
.S Y=$$NEWCP^XPDUTL(DGX,DGX_"^DGPST786")
.I 'Y D BMES^XPDUTL("ERROR creating "_DGX_" checkpoint.")
Q
PST ;Post Install
D REINDEX
D RECOMP
Q
REINDEX ;Reindex File 38.5.
N DIK
S DIK="^DGIN(38.5,",DIK(1)=".01"
D BMES^XPDUTL("Re-indexing the INCONSISTENT DATA file (#38.5).")
D ENALL^DIK
Q
RECOMP ;Recompile Input Templates
N X,Y,DMAX
D BMES^XPDUTL("Re-compiling input templates")
S X="DGX5F"
S Y=$$FIND1^DIC(.402,"","MX","DG501F")
S DMAX=$$ROUSIZE^DILF
I Y<0 D BMES^XPDUTL("Error re-compiling DG501F input template")
D EN^DIEZ
S X="DGPMX6"
S Y=$$FIND1^DIC(.402,"","MX","DGPM SPECIALTY TRANSFER")
I Y<0 D BMES^XPDUTL("Error re-compiling DGPM SPECIALTY TRANSFER input template")
S DMAX=$$ROUSIZE^DILF
D EN^DIEZ
D BMES^XPDUTL("Input templates have been re-compiled.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPST786 990 printed Dec 13, 2024@02:51:12 Page 2
DGPST786 ;ALB/RC - POST-INSTALL DG*5.3*786 ; 1/22/09 12:33pm
+1 ;;5.3;Registration;**786**;Aug 13, 1993;Build 21
+2 QUIT
EN ;Post-install entry point
+1 NEW DGX,Y
+2 FOR DGX="PST"
Begin DoDot:1
+3 SET Y=$$NEWCP^XPDUTL(DGX,DGX_"^DGPST786")
+4 IF 'Y
DO BMES^XPDUTL("ERROR creating "_DGX_" checkpoint.")
End DoDot:1
+5 QUIT
PST ;Post Install
+1 DO REINDEX
+2 DO RECOMP
+3 QUIT
REINDEX ;Reindex File 38.5.
+1 NEW DIK
+2 SET DIK="^DGIN(38.5,"
SET DIK(1)=".01"
+3 DO BMES^XPDUTL("Re-indexing the INCONSISTENT DATA file (#38.5).")
+4 DO ENALL^DIK
+5 QUIT
RECOMP ;Recompile Input Templates
+1 NEW X,Y,DMAX
+2 DO BMES^XPDUTL("Re-compiling input templates")
+3 SET X="DGX5F"
+4 SET Y=$$FIND1^DIC(.402,"","MX","DG501F")
+5 SET DMAX=$$ROUSIZE^DILF
+6 IF Y<0
DO BMES^XPDUTL("Error re-compiling DG501F input template")
+7 DO EN^DIEZ
+8 SET X="DGPMX6"
+9 SET Y=$$FIND1^DIC(.402,"","MX","DGPM SPECIALTY TRANSFER")
+10 IF Y<0
DO BMES^XPDUTL("Error re-compiling DGPM SPECIALTY TRANSFER input template")
+11 SET DMAX=$$ROUSIZE^DILF
+12 DO EN^DIEZ
+13 DO BMES^XPDUTL("Input templates have been re-compiled.")
+14 QUIT
