YSTIME (167) FUNCTION (.5)
Name
Value
NAME
YSTIME
MUMPS CODE
I $P(X,".",2) S X=$E($P(X,".",2)_"0000",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_":"_$E(X#100+100,2,3)_" "_$E("AP",%+1)_"M"
