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 ---[H[J[2J[HDI222P24 417 printed Nov 22, 2024@17:54:22 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
