Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: XU8P314

XU8P314.m

Go to the documentation of this file.

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P314   268     printed  Apr 09, 2024@21:06:44                                                                                                                                                                                                      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