Changeset 121 for ccr/trunk/p/CCRUTIL.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/CCRUTIL.m (modified) (2 diffs)

ccr/trunk/p/CCRUTIL.m

@@ -18 +18 @@
  ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
     ;
-          W "No Entry at Top!" Q
-
+          W "No Entry at Top!"
+          Q
+          ;
 FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrinsic
           ; FORMAT is Format of Date. Can be either D (Day) or DT (Date and Time)
@@ -47 +48 @@
           E  Q $P(UTC,"T")
           ;
+SORTDT(V1,V2,ORDR) ; DATE SORT ARRAY AND RETURN INDEX IN V1 AND COUNT
+               ; AS EXTRINSIC ORDR IS 1 OR -1 FOR FORWARD OR REVERSE
+               ; DATE AND TIME ORDER. DEFAULT IS FORWARD
+               ; V2 IS AN ARRAY OF DATES IN FILEMAN FORMAT
+               ; V1 IS RETURNS INDIRECT INDEXES OF V2 IN REVERSE DATE ORDER
+               ; SO V2(V1(X)) WILL RETURN THE DATES IN DATE/TIME ORDER
+               ; THE COUNT OF THE DATES IS RETURNED AS AN EXTRINSIC
+               ; BOTH V1 AND V2 ARE PASSED BY REFERENCE
+          N VSRT ; TEMP FOR HASHING DATES
+          N ZI,ZJ,ZTMP,ZCNT,ZP1,ZP2
+          S ZCNT=0 ; COUNTING NUMBER OF DATES
+          S ZTMP="" ;
+          F ZI=0:0 D  Q:$O(V2(ZTMP))=""  ; FOR EACH DATE IN THE ARRAY
+          . S ZCNT=ZCNT+1 ; INCREMENT THE COUNT
+          . S ZTMP=$O(V2(ZTMP)) ; NEXT DATE
+          . I $D(V2(ZTMP)) D  ; IF THE DATE EXISTS
+          . . S ZP1=$P(V2(ZTMP),".",1) ; THE DATE PIECE
+          . . S ZP2=$P(V2(ZTMP),".",2) ; THE TIME PIECE
+          . . S VSRT(ZP1,ZP2_"00000"_ZCNT)=ZCNT ; HASH ON DATE AND TIME
+          . . ; S VSRT($P(V2(ZTMP),U,4)_"000000"_ZCNT)=ZCNT ; PULL DATE
+          . I DEBUG W "ZTMP=",ZTMP," "
+          S V1(0)=ZCNT ; ARRAYS ARE THE SAME SIZE
+          I DEBUG ZWR V2
+          I DEBUG ZWR VSRT
+          N ZD,ZT ; DATA AND TIME ITERATORS
+          N ZDONE ; DONE FLAG
+          S (ZD,ZT)=""
+          S ZDONE=0
+          N UORDR ; ORDER TO USE 1=FORWARD -1=REVERSE
+          S UORDR=ORDR ; DIRECTION TO SORT
+          I ORDR="" S UORDR=1
+          N ZZCNT S ZZCNT=0 ; ANOTHER COUNTER
+          F ZI=0:0 D  Q:ZDONE  ; VISIT THE ARRAY IN DATE ORDER
+          . S ZD=$O(VSRT(ZD),UORDR) ; NEXT DATE
+          . I ZD="" S ZDONE=1
+          . I 'ZDONE D  ; MORE DATES
+          . . S ZT="" ; WANT FIRST TIME FOR THIS DATE
+          . . F ZJ=0:0 D  Q:$O(VSRT(ZD,ZT),UORDR)=""  ; LOOP THROUGH ALL TIMES
+          . . . S ZT=$O(VSRT(ZD,ZT),UORDR) ; NEXT TIME
+          . . . S ZZCNT=ZZCNT+1 ; INCREMENT COUNTER
+          . . . S V1(ZZCNT)=VSRT(ZD,ZT) ; PULL OUT THE INDEX
+          Q ZCNT
+          ;