Index: /ccr/trunk/p/CCRUTIL.m
===================================================================
--- /ccr/trunk/p/CCRUTIL.m	(revision 119)
+++ /ccr/trunk/p/CCRUTIL.m	(revision 120)
@@ -32,5 +32,4 @@
           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
Index: /ccr/trunk/p/GPLVITAL.m
===================================================================
--- /ccr/trunk/p/GPLVITAL.m	(revision 119)
+++ /ccr/trunk/p/GPLVITAL.m	(revision 120)
@@ -207,10 +207,10 @@
           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