--------------------------------------------------------------------------------
-- Формирование начала запроса для построения динамического селекта отбора записей
procedure set_create_begin_select
  (
  p_name_view           in             varchar2,                                -- Имя представления из которого получим текст запроса
  p_select              in out nocopy  varchar2                                 -- В эту переменную вернем текст
  )
is
  l_pos                                number;
begin
  -- Получаем запрос
  select vv.text
    into p_select
    from user_views vv
   where vv.view_name   = upper(p_name_view);
  --
  l_pos := instr(p_select, '-- SKIP --');
  if l_pos > 0 then
    p_select := substr(p_select, 1, l_pos - 1);
  end if;
  -- Удаляем служебную информацию
  p_select := replace(p_select, 'with read only', '') || '-- динамическое дополнение' || cnPS;
exception
  when NO_DATA_FOUND then
    p_select := null;
    raise_application_error(-20001, 'Запрос не найден!');
end;