- 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 ---[H[J[2J[HDI222P23 325 printed Jan 18, 2025@03:45:24 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