Changeset 114 for ccr

Timestamp:

Aug 29, 2008, 2:40:24 PM (16 years ago)

Author:

George Lilly

Message:

Fix to date format if minutes or seconds are not in record

File:

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

ccr/trunk/p/CCRUTIL.m

@@ -36 +36 @@
           ; If H, MM and S are empty, it means that the FM date didn't supply the time.
           ; In this case, set H, MM and S to "00"
-          S:('$L(H)&'$L(MM)&'$L(S)) (H,MM,S)="00"
+          ; S:('$L(H)&'$L(MM)&'$L(S)) (H,MM,S)="00" ; IF ONLY SOME ARE MISSING?
+          S:'$L(H) H="00"
+          S:'$L(MM) MM="00"
+          S:'$L(S) S="00"
           S UTC=Y_"-"_M_"-"_D_"T"_H_":"_MM_$S(S="":":00",1:":"_S)_OFF ; Skip's code to fix hanging colon if no seconds
           I $L($G(FORMAT)),FORMAT="DT" Q UTC ; Date with time.