DI222P24.m

DI222P24 ;OAKFO/REM - Post Install for patch 24 ; FEB 05, 2023@13:20:47

 ;;22.2;VA FileMan;**24**;Jan 05, 2016;Build 3

 ;Per VA Directive 6402, this routine should not be modified.

 ;

EN ; clean up ^DIST(1.2,IEN,0) nodes

 N NAME,IEN

 S NAME="" F  S NAME=$O(^DIST(1.2,"B",NAME)) Q:NAME=""  D 

 .S IEN=0 F  S IEN=$O(^DIST(1.2,"B",NAME,IEN)) Q:IEN=""  D 

 ..I ^DIST(1.2,IEN,0)'=NAME S ^DIST(1.2,IEN,0)=NAME

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DI222P24   417     printed  Apr 09, 2024@21:54:14                                                                                                                                                                                                     Page 2

DI222P24  ;OAKFO/REM - Post Install for patch 24 ; FEB 05, 2023@13:20:47

 +1       ;;22.2;VA FileMan;**24**;Jan 05, 2016;Build 3

 +2       ;Per VA Directive 6402, this routine should not be modified.

 +3       ;

EN        ; clean up ^DIST(1.2,IEN,0) nodes

 +1        NEW NAME,IEN

 +2        SET NAME=""

           FOR 

               SET NAME=$ORDER(^DIST(1.2,"B",NAME))

               if NAME=""

                   QUIT 

               Begin DoDot:1

 +3                SET IEN=0

                   FOR 

                       SET IEN=$ORDER(^DIST(1.2,"B",NAME,IEN))

                       if IEN=""

                           QUIT 

                       Begin DoDot:2

 +4                        IF ^DIST(1.2,IEN,0)'=NAME

                               SET ^DIST(1.2,IEN,0)=NAME

                       End DoDot:2

               End DoDot:1

 +5        QUIT