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 ---[H[J[2J[HXU8P327 325 printed Nov 22, 2024@17:17:21 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
