This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.
The procedure is defined as:
proc ::nsmcp::logJobTiming {recordVar sliceStarted finished now} {
upvar 1 $recordVar record
if {![dict exists $record queuedMs]} {
return
}
if {$now eq {}} {
set now [clock milliseconds]
}
if {$sliceStarted ne {}} {
dict incr record workerMs [expr {max(0,$now-$sliceStarted)}]
}
if {$finished} {
dict set record finishedMs $now
}
if {[dict exists $record finishedMs]} {
set now [dict get $record finishedMs]
}
set wall [expr {max(0,$now-[dict get $record queuedMs])}]
set fields [list wallMs number $wall workerMs number [dict get $record workerMs] scope string background-job-excluding-model-and-browser workerTimeIsCpu boolean false]
if {[dict exists $record firstStartedMs]} {
lappend fields initialQueueMs number [expr {max(0,[dict get $record firstStartedMs]-[dict get $record queuedMs])}]
}
dict set record processingTime $fields
if {[dict exists $record progress]} {
set progress {}
foreach {key type value} [dict get $record progress] {
if {$key ne "wallMs"} {
lappend progress $key $type $value
}
}
dict set record progress [concat $progress [list wallMs number $wall]]
}
}
