XU8P327.m

XU8P327 ;ISC-SF/GB-DELETE BOGUS PERSON CLASS RECORDS ;09/19/2003  13:12

 ;;8.0;KERNEL;**327**;Jul 10, 1995

 Q

POST ; Delete bogus PERSON CLASS records from file 200

 ; ^VA(200,duz,"USC1",-1,0)="^^3030824"

 N I,J

 S I=0

 F  S I=$O(^VA(200,I)) Q:'I  D

 . S J=""

 . F  S J=$O(^VA(200,I,"USC1",J)) Q:J'<0  K ^(J,0)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XU8P327   325     printed  Apr 09, 2024@21:08:04                                                                                                                                                                                                      Page 2

XU8P327   ;ISC-SF/GB-DELETE BOGUS PERSON CLASS RECORDS ;09/19/2003  13:12

 +1       ;;8.0;KERNEL;**327**;Jul 10, 1995

 +2        QUIT 

POST      ; Delete bogus PERSON CLASS records from file 200

 +1       ; ^VA(200,duz,"USC1",-1,0)="^^3030824"

 +2        NEW I,J

 +3        SET I=0

 +4        FOR 

               SET I=$ORDER(^VA(200,I))

               if 'I

                   QUIT 

               Begin DoDot:1

 +5                SET J=""

 +6                FOR 

                       SET J=$ORDER(^VA(200,I,"USC1",J))

                       if J'<0

                           QUIT 

                       KILL ^(J,0)

               End DoDot:1

 +7        QUIT