XU8P314.m

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 ---XU8P314   268     printed  Feb 18, 2025@23:33:35                                                                                                                                                                                                      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