alias ctimems { if (!$var(%ctimems.ticks,0) || !$var(%ctimems.ctime,0) || (!$isid)) { var %ctime = $calc($ctime + 1), %ticks while (%ctime > $ctime) %ticks = $ticks set -e %ctimems.ticks %ticks set -e %ctimems.ctime $ctime } return $left($calc(%ctimems.ctime + (($ticks - %ctimems.ticks) / 1000) + .0001),-1) }
alias timestampms { var %tsfmt = $timestampfmt if (s isin %tsfmt) { %tsfmt = $replacex(%tsfmt,ss,ss.xxx,s,s.xxx) var %ct = $ctimems return $replacex($asctime(%ct,%tsfmt),.xxx,$right(%ct,4)) } else return $timestamp }