Changeset 51 for ccr/trunk/p/CCRUTIL.m

Timestamp:

Jul 7, 2008, 9:51:27 AM (16 years ago)

Author:

Christopher Edwards

Message:

Added Providers to Vitals section
Fixed hanging : in CCRUTIL (thanks to Skip for more optimized code)
Fixed GPLCCR to write correct time

File:

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

ccr/trunk/p/CCRUTIL.m

@@ -21 +21 @@
           ; In this case, set H, MM and S to "00"
           S:('$L(H)&'$L(MM)&'$L(S)) (H,MM,S)="00"
-          I S="" S UTC=Y_"-"_M_"-"_D_"T"_H_":"_MM_OFF
-          E  S UTC=Y_"-"_M_"-"_D_"T"_H_":"_MM_":"_S_OFF
+          S UTC=Y_"-"_M_"-"_D_"T"_H_":"_MM_$S(S="":"",1:":"_S)_OFF ; Skip's code to fix hanging colon if no seconds
           I $L($G(FORMAT)),FORMAT="DT" Q UTC ; Date with time.
           E  Q $P(UTC,"T")