40-db-query-dispatcher-procs.tcl