Changeset 121 for ccr/trunk/p/GPLCCD.m

Timestamp:

Aug 30, 2008, 1:29:46 PM (16 years ago)

Author:

George Lilly

Message:

XINDEX fixes, and generalized Date sort utility for Vitals SORTDT^CCRUTIL

File:

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

ccr/trunk/p/GPLCCD.m

@@ -205 +205 @@
     . . ;  TO GET RID OF DUPLICATES
     S I="" ; GOING TO $O THROUGH THE HASH
-    F J=0:0 D  Q:$O(K(I))=""
+    F J=0:0 D  Q:$O(K(I))=""  ;
     . S I=$O(K(I)) ; WALK THROUGH THE HASH OF ACTORS
     . S $P(L,U,1)=I ; FIRST PIECE IS THE OBJECT ID