diff --git a/p/CCRUTIL.m b/p/CCRUTIL.m index 14549dc..5cfbcf9 100644 --- a/p/CCRUTIL.m +++ b/p/CCRUTIL.m @@ -21,6 +21,6 @@ FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrins ; In this case, set H, MM and S to "00" S:('$L(H)&'$L(MM)&'$L(S)) (H,MM,S)="00" S UTC=Y_"-"_M_"-"_D_"T"_H_":"_MM_":"_S_OFF - I $L(FORMAT),FORMAT="DT" Q UTC ; Date with time. + I $L($G(FORMAT)),FORMAT="DT" Q UTC ; Date with time. E Q $P(UTC,"T") ;