Changeset 120 for ccr/trunk/p

Timestamp:

Aug 30, 2008, 8:48:44 AM (16 years ago)

Author:

George Lilly

Message:

Vitals now sorted in reverse date and time order

Location:

ccr/trunk/p

Files:

• CCRUTIL.m (modified) (1 diff)
• GPLVITAL.m (modified) (1 diff)

ccr/trunk/p/CCRUTIL.m

@@ -32 +32 @@
           S H=$E(DATE,9,10)
           I $L(H)=1 S H="0"_H
-          I $L(H)=1 S H="0"_H
           S MM=$E(DATE,11,12)
           I $L(MM)=1 S MM="0"_MM

ccr/trunk/p/GPLVITAL.m

@@ -207 +207 @@
           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)) ; NEXT DATE
+          . S ZD=$O(VSRT(ZD),-1) ; 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))=""  ; LOOP THROUGH ALL TIMES
-          . . . S ZT=$O(VSRT(ZD,ZT)) ; NEXT TIME
+          . . F ZJ=0:0 D  Q:$O(VSRT(ZD,ZT),-1)=""  ; LOOP THROUGH ALL TIMES
+          . . . S ZT=$O(VSRT(ZD,ZT),-1) ; NEXT TIME
           . . . S ZZCNT=ZZCNT+1 ; INCREMENT COUNTER
           . . . S V1(ZZCNT)=VSRT(ZD,ZT) ; PULL OUT THE INDEX