Как оптимизировать удаление объектов в 1С без повторных вызовов поиска ссылок?

1с 8.3 клиент-сервер обычные формы.
Требуется оптимизировать процедуру поиска и удаления помеченных на удаление объектов.
В функции МожноУдалитьСправочникСКаскадом для каждого элемента производится поиск ссылок методом НайтиПоСсылкам. Это очень долго. А эти ссылки уже есть в массиве МассивПомеченных (процедура УдалитьПомеченныеОбъекты)
// Главная процедура для регламентного задания
Процедура УдалитьПомеченныеОбъекты() Экспорт

ИмяСобытияЖурнала = «РегламентноеЗадание.УдалениеОбъектов»;

Попытка
МассивПомеченных = НайтиПомеченныеНаУдаление();
Если МассивПомеченных.Количество() = 0 Тогда
Возврат;
КонецЕсли;

МассивДляУдаления = Новый Массив;

Для Каждого Ссылка Из МассивПомеченных Цикл

// Проверяем, является ли объект элементом справочника
Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка)) Тогда

// Выполняем каскадный анализ и пометку подчиненных структур
Если МожноУдалитьСправочникСКаскадом(Ссылка, ИмяСобытияЖурнала) Тогда
МассивДляУдаления.Добавить(Ссылка);
КонецЕсли;

Иначе
// Для остальных типов (документы и т.д.) оставляем стандартное поведение
МассивДляУдаления.Добавить(Ссылка);
EndIf;

КонецЦикла;

// Финальное удаление объектов, прошедших проверку (с контролем оставшихся ссылок)
Если МассивДляУдаления.Количество() > 0 Тогда
МассивНеудаленных = Новый Массив;
УдалитьОбъекты(МассивДляУдаления, Истина, МассивНеудаленных);
КонецЕсли;

Исключение
ЗаписьЖурналаРегистрации(ИмяСобытияЖурнала, УровеньЖурналаРегистрации.Ошибка, , , ОписаниеОшибки());
КонецПопытки;

КонецПроцедуры

// Функция проверяет ссылки и каскадно помечает разрешенные зависимости
Функция МожноУдалитьСправочникСКаскадом(ГлавнаяСсылка, ИмяСобытияЖурнала)

МассивДляПоиска = Новый Массив;
МассивДляПоиска.Добавить(ГлавнаяСсылка);

// Находим все ссылки на данный элемент в базе
ТаблицаСсылок = НайтиПоСсылкам(МассивДляПоиска);

МассивПодчиненныхДляПометки = Новый Массив;
НаборыЗаписейРегистров = Новый Массив;

Для Каждого СтрокаСсылок Из ТаблицаСсылок Цикл

СсылкаНаЗависимость = СтрокаСсылок.Ссылка;
МетаданныеЗависимости = СсылкаНаЗависимость.Метаданные();

// 1. Проверяем, является ли это подчиненным справочником
Если Метаданные.Справочники.Содержит(МетаданныеЗависимости) Тогда

// Проверяем, является ли главная ссылка владельцем или родителем
ЭтоПодчиненный = (СсылкаНаЗависимость.Владелец = ГлавнаяСсылка);

Если ЭтоПодчиненный Тогда
МассивПодчиненныхДляПометки.Добавить(СсылкаНаЗависимость);
Иначе
// Ссылка найдена в обычном реквизите другого справочника — удалять нельзя
Возврат Ложь;
КонецЕсли;

// 2. Проверяем, является ли это Регистром Сведений
ИначеЕсли Метаданные.РегистрыСведений.Содержит(МетаданныеЗависимости) Тогда

// Нам подходят только регистры, где объект — Измерение.
// Проверяем имя метаданного через его тип (для РС ссылка возвращает КлючЗаписи)
ИмяРегистра = МетаданныеЗависимости.Имя;
ИмяРеквизитаИлиИзмерения = СтрокаСсылок.Метаданные.Имя;

// Проверяем, что ссылка находится именно в коллекции Измерения
Если МетаданныеЗависимости.Измерения.Найти(ИмяРеквизитаИлиИзмерения) = Неопределено Тогда
// Ссылка найдена в Ресурсе или Реквизите регистра — удалять нельзя
Возврат Ложь;
КонецЕсли;

// Создаем объект набора записей для последующего удаления очисткой
Набор = РегистрыСведений[ИмяРегистра].СоздатьНаборЗаписей();
Набор.Отбор[ИмяРеквизитаИлиИзмерения].Установить(ГлавнаяСсылка);
НаборыЗаписейРегистров.Добавить(Набор);

Иначе
// Ссылка найдена в Документе, Регистре Накопления и т.д. — удалять нельзя
Возврат Ложь;
КонецЕсли;

КонецЦикла;

// Если дошли сюда — объект окружен только разрешенными зависимостями.
// Начинаем транзакцию очистки и пометки.
НачатьТранзакцию();
Попытка

// Помечаем на удаление подчиненные справочники
Для Каждого ПодчиненныйОбъект Из МассивПодчиненныхДляПометки Цикл
ОбъектСпр = ПодчиненныйОбъект.ПолучитьОбъект();
Если ОбъектСпр <> Неопределено И Не ОбъектСпр.ПометкаУдаления Тогда
ОбъектСпр.УстановитьПометкуУдаления(Истина, Ложь); // Ложь — чтобы не запускать штатный каскад
КонецЕсли;
КонецЦикла;

// Очищаем записи регистров сведений, где объект был измерением
Для Каждого НаборЗаписей Из НаборыЗаписейРегистров Цикл
НаборЗаписей.Записать(Истина);
КонецЦикла;

ЗафиксироватьТранзакцию();
Возврат Истина;

Исключение
ОтменитьТранзакцию();
ЗаписьЖурналаРегистрации(ИмяСобытияЖурнала, УровеньЖурналаРегистрации.Предупреждение, , ,
«Ошибка каскадной пометки для » + ГлавнаяСсылка + «: » + ОписаниеОшибки());
Возврат Ложь;
КонецПопытки;

КонецФункции