Неплохо но много лишнего.
function InitTrig_Hash takes nothing returns nothing
set udg_Hash = InitHashtableBJ( )
endfunction
вместо этого
globals
hastable Hash = InitHashtable()
endglobals
И очень много bj функций.
+хеш таблица вообще не нужна это всё делается в 2 триггера без хеш таблицы.