DG53721P.m

DG53721P ;ALB/MHG - post-install for DG*5.3*721

 ;;5.3;Registration;**721**;Aug 13, 1993;Build 3

EN ;

 ;recompile input templates

 N X,Y,DMAX,MESS

 S X="DGPMX6"

 S Y=$$FIND1^DIC(.402,"","MX","DGPM SPECIALTY TRANSFER")

 I Y<0 S MESS="Error in re-compiling DGPM SPECIALTY TRANSFER input template." D MESS Q

 S DMAX=8000

 D EN^DIEZ

 S MESS="DGPM SPECIALTY TRANSFER input template has been re-compiled."

 D MESS

 Q

 ;

MESS ;

 D MES^XPDUTL("")

 D BMES^XPDUTL(MESS)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53721P   481     printed  Nov 22, 2024@17:48:29                                                                                                                                                                                                     Page 2

DG53721P  ;ALB/MHG - post-install for DG*5.3*721

 +1       ;;5.3;Registration;**721**;Aug 13, 1993;Build 3

EN        ;

 +1       ;recompile input templates

 +2        NEW X,Y,DMAX,MESS

 +3        SET X="DGPMX6"

 +4        SET Y=$$FIND1^DIC(.402,"","MX","DGPM SPECIALTY TRANSFER")

 +5        IF Y<0

               SET MESS="Error in re-compiling DGPM SPECIALTY TRANSFER input template."

               DO MESS

               QUIT 

 +6        SET DMAX=8000

 +7        DO EN^DIEZ

 +8        SET MESS="DGPM SPECIALTY TRANSFER input template has been re-compiled."

 +9        DO MESS

 +10       QUIT 

 +11      ;

MESS      ;

 +1        DO MES^XPDUTL("")

 +2        DO BMES^XPDUTL(MESS)

 +3        QUIT