DG53154P.m

DG53154P ;ALB/MM - POST INSTALLATION ROUTINE FOR DG*5.3*154;11/25/97

 ;;5.3;Registration;**154,1015**;Aug 13 1993;Build 21

 ;

EN ;

 ;Check for ^DD(45.52) Edit Clerk multiple

 I $D(^DD(45.52)) D  Q

 .K ^DD(45.52)

 .D BMES^XPDUTL(">>Edit Clerk multiple (#45.52) found.  Data dictionary nodes deleted.")

 .Q

 D BMES^XPDUTL(">>Edit Clerk multiple (#45.52) not found.  Nothing deleted.")

 Q

DG53154P  ;ALB/MM - POST INSTALLATION ROUTINE FOR DG*5.3*154;11/25/97

 +1       ;;5.3;Registration;**154,1015**;Aug 13 1993;Build 21

 +2       ;

EN        ;

 +1       ;Check for ^DD(45.52) Edit Clerk multiple

 +2        IF $DATA(^DD(45.52))

               Begin DoDot:1

 +3                KILL ^DD(45.52)

 +4                DO BMES^XPDUTL(">>Edit Clerk multiple (#45.52) found.  Data dictionary nodes deleted.")

 +5                QUIT 

               End DoDot:1

               QUIT 

 +6        DO BMES^XPDUTL(">>Edit Clerk multiple (#45.52) not found.  Nothing deleted.")

 +7        QUIT