DI222P23.m

DI222P23 ;OAKFO/RSD - Post Install for patch 23 ; Jul 05, 2022@13:20:47

 ;;22.2;VA FileMan;**23**;Jan 05, 2016;Build 2

 ; 

EN ; clean up ^DIC(subDD,"%MSC") nodes

 N X,C

 S (X,C)=0

 F  S X=$O(^DIC(X)) Q:'X  I '$D(^DIC(X,0)),$D(^("%MSC")) K ^DIC(X,"%MSC") S C=C+1

 D BMES^XPDUTL("Number of %MSC nodes removed: "_C)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DI222P23   325     printed  Sep 23, 2025@20:20:32                                                                                                                                                                                                     Page 2

DI222P23  ;OAKFO/RSD - Post Install for patch 23 ; Jul 05, 2022@13:20:47

 +1       ;;22.2;VA FileMan;**23**;Jan 05, 2016;Build 2

 +2       ; 

EN        ; clean up ^DIC(subDD,"%MSC") nodes

 +1        NEW X,C

 +2        SET (X,C)=0

 +3        FOR 

               SET X=$ORDER(^DIC(X))

               if 'X

                   QUIT 

               IF '$DATA(^DIC(X,0))

                   IF $DATA(^("%MSC"))

                       KILL ^DIC(X,"%MSC")

                       SET C=C+1

 +4        DO BMES^XPDUTL("Number of %MSC nodes removed: "_C)

 +5        QUIT