Changeset 114 for ccr


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCRUTIL.m

    r69 r114  
    3636          ; If H, MM and S are empty, it means that the FM date didn't supply the time.
    3737          ; In this case, set H, MM and S to "00"
    38           S:('$L(H)&'$L(MM)&'$L(S)) (H,MM,S)="00"
     38          ; S:('$L(H)&'$L(MM)&'$L(S)) (H,MM,S)="00" ; IF ONLY SOME ARE MISSING?
     39          S:'$L(H) H="00"
     40          S:'$L(MM) MM="00"
     41          S:'$L(S) S="00"
    3942          S UTC=Y_"-"_M_"-"_D_"T"_H_":"_MM_$S(S="":":00",1:":"_S)_OFF ; Skip's code to fix hanging colon if no seconds
    4043          I $L($G(FORMAT)),FORMAT="DT" Q UTC ; Date with time.
Note: See TracChangeset for help on using the changeset viewer.