Коллеги, что вы думаете о данном коде?

[MikeR]

Собственно да, человек запускает перебор (чтобы более корректно было), но в других местах это вообще не требуется.
Используется конструкция

while select forupdate ... {}

что само по себе плохо, так как более корректно

while select
{
	ttsbegin;
	select forupdate 
	ttscommit;
}

То есть делаем маленькие транзакции.