DGPST786.m

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 ---DGPST786   990     printed  Apr 09, 2024@21:43                                                                                                                                                                                                        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