DG53727P.m

DG53727P ;ALB/DHH - post-install for DG*5.3*727 ; 8/14/2006

 ;;5.3;Registration;**727**;Aug 13, 1993

EN ;

 ;recompile input templates

 N X,Y,DMAX,MESS

 S X="DGX5F"

 S Y=$$FIND1^DIC(.402,"","MX","DG501F")

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

 S DMAX=8000

 D EN^DIEZ

 S MESS="DG501F input template has been re-compiled."

 D MESS

 Q

 ;

MESS ;

 D MES^XPDUTL("")

 D BMES^XPDUTL(MESS)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53727P   433     printed  Apr 09, 2024@21:40:26                                                                                                                                                                                                     Page 2

DG53727P  ;ALB/DHH - post-install for DG*5.3*727 ; 8/14/2006

 +1       ;;5.3;Registration;**727**;Aug 13, 1993

EN        ;

 +1       ;recompile input templates

 +2        NEW X,Y,DMAX,MESS

 +3        SET X="DGX5F"

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

 +5        IF Y<0

               SET MESS="Error in re-compiling DG501F input template."

               DO MESS

               QUIT 

 +6        SET DMAX=8000

 +7        DO EN^DIEZ

 +8        SET MESS="DG501F input template has been re-compiled."

 +9        DO MESS

 +10       QUIT 

 +11      ;

MESS      ;

 +1        DO MES^XPDUTL("")

 +2        DO BMES^XPDUTL(MESS)

 +3        QUIT