/*Устанавливает АРМ обработчик для всех объектов по перечню*/
update DEFENCE_OBJECT set
MAIN_HANDLER = номерАРМ
where DEFENCE_OBJECT.CODE_OBJECT =
(
  select LIST_OBJECTS.CODE_OBJECT
  from LIST_OBJECTS, list_objects_param
  where list_objects.list_index = list_objects_param.list_index
  and list_objects_param.list_name = 'имя перечня'
);