Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DI222P23

DI222P23.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. EN ; clean up ^DIC(subDD,"%MSC") nodes
  1. N X,C
  1. S (X,C)=0
  1. F S X=$O(^DIC(X)) Q:'X I '$D(^DIC(X,0)),$D(^("%MSC")) K ^DIC(X,"%MSC") S C=C+1
  1. D BMES^XPDUTL("Number of %MSC nodes removed: "_C)
  1. Q