XU8P314 ;BP-OAK/BDT - CLEAN UP BAD "CUR" X-REF; [8/19/03 9:35am]
;;8.0;KERNEL;**314**; Jul 10, 1995
;
N I,J S I=0
F S I=$O(^XUSEC(0,"CUR",I)) Q:I'>0 D
. S J=0 F S J=$O(^XUSEC(0,"CUR",I,J)) Q:'J>0 D
. . K:'$D(^XUSEC(0,J,0)) ^XUSEC(0,"CUR",I,J)
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P314 268 printed Dec 13, 2024@02:07:09 Page 2
XU8P314 ;BP-OAK/BDT - CLEAN UP BAD "CUR" X-REF; [8/19/03 9:35am]
+1 ;;8.0;KERNEL;**314**; Jul 10, 1995
+2 ;
+3 NEW I,J
SET I=0
+4 FOR
SET I=$ORDER(^XUSEC(0,"CUR",I))
if I'>0
QUIT
Begin DoDot:1
+5 SET J=0
FOR
SET J=$ORDER(^XUSEC(0,"CUR",I,J))
if 'J>0
QUIT
Begin DoDot:2
+6 if '$DATA(^XUSEC(0,J,0))
KILL ^XUSEC(0,"CUR",I,J)
End DoDot:2
End DoDot:1
+7 ;
+8 QUIT
