DG53154P.m

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

 ;;5.3;Registration;**154**;Aug 13 1993

 ;

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53154P   383     printed  Nov 22, 2024@17:46:21                                                                                                                                                                                                     Page 2

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

 +1       ;;5.3;Registration;**154**;Aug 13 1993

 +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