Changeset 30 for ccr/trunk/p

Timestamp:

Jul 1, 2008, 1:38:34 PM (16 years ago)

Author:

George Lilly

Message:

Got rid of multiples in the ACTOR array

File:

• ccr/trunk/p/GPLCCR.m (modified) (1 diff)

ccr/trunk/p/GPLCCR.m

@@ -84 +84 @@
         . . S J=$P($P(@AXML@(I),"<ActorID>",2),"</ActorID>",1)
         . . W "<ActorID>=>",J,!
-        . . D PUSH^GPLXPATH(ACTRTN,J)
+        . . S K(J)="" ; HASHING ACTOR TO GET RID OF MULTIPLES
+        S I="" ; GOING TO $O THROUGH THE HASH
+        F J=0:0 D  Q:$O(K(I))=""
+        . S I=$O(K(I)) ; WALK THROUGH THE HASH OF ACTORS
+        . D PUSH^GPLXPATH(ACTRTN,I) ; ADD THE ACTOR TO THE RETURN ARRAY
         Q
         ;