Changeset 30 for ccr


Ignore:
Timestamp:
Jul 1, 2008, 1:38:34 PM (16 years ago)
Author:
George Lilly
Message:

Got rid of multiples in the ACTOR array

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLCCR.m

    r29 r30  
    8484        . . S J=$P($P(@AXML@(I),"<ActorID>",2),"</ActorID>",1)
    8585        . . W "<ActorID>=>",J,!
    86         . . D PUSH^GPLXPATH(ACTRTN,J)
     86        . . S K(J)="" ; HASHING ACTOR TO GET RID OF MULTIPLES
     87        S I="" ; GOING TO $O THROUGH THE HASH
     88        F J=0:0 D  Q:$O(K(I))=""
     89        . S I=$O(K(I)) ; WALK THROUGH THE HASH OF ACTORS
     90        . D PUSH^GPLXPATH(ACTRTN,I) ; ADD THE ACTOR TO THE RETURN ARRAY
    8791        Q
    8892        ;
Note: See TracChangeset for help on using the changeset viewer.