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::accessIngestionProgress {token stage phase bytes batch} {
if {$token eq {}} {return}
set key nsmcp:access-writer:[ns_info server]
if {![nsv_exists $key state]} {return}
set state [nsv_get $key state]
if {![dict get $state running] || [dict get $state token] ne $token} {return}
set now [clock clicks -milliseconds]
set times [dict get $state phaseMilliseconds]
dict incr times [dict get $state phase] [expr {max(0,$now-[dict get $state phaseTicks])}]
dict set state phaseMilliseconds $times
dict set state phase $stage/$phase
dict set state phaseTicks $now
dict incr state parsedBytes $bytes
if {$phase eq "committed" && $batch ne {}} {
foreach field {records requestRecords malformedRecords oversizedRecords} {
dict incr state $field [dict get $batch $field]
}
dict incr state committedBatches
dict set state lastBatch $batch
}
nsv_set $key state $state
}
