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::usageRecordJson {record} {
set fields {}
dict for {key value} $record {
if {$key eq "tokens"} {
set counters {}
dict for {name count} $value {
lappend counters $name number $count
}
lappend fields $key object $counters
} else {
lappend fields $key [expr {$key in {version timestamp} ? "number" : "string"}] $value
}
}
return [ns_json value -- [list {} object $fields]]
}
