declare
  TYPE TuneRec is record (condition varchar2(200), classcode varchar2(200));
  TYPE TunesTable is table of TuneRec index by binary_integer;
  tunes TunesTable;
  idx binary_integer;
  plsql_block varchar2(500);
  real_condition varchar2(500);
  res number;
begin
    --таблица правил классификации, размер реальной таблицы - пару тысяч записей    
    --в condition до 100 разных параметров [PAR*] в разных комбинациях
    with c
    as
    (
        select rownum id, t.*
        from
        (
        select 1 prioritet, '''[PAR1]'' = ''F'' and ''[PAR2]'' like ''mos%''' condition, 'A' classcode from dual
        union
        select 2 , '''[PAR1]'' = ''F'' and ''[PAR2]'' like ''san%''', 'B' from dual
        union
        select 3 , '''[PAR2]'' like ''%burg%''', 'C' from dual
        union
        select 4 , '1=1', 'Z' from dual
        ) t
     )
    select c.condition, c.classcode
    BULK COLLECT INTO tunes
    from c
    order by c.prioritet;
    
    --запрос по классифицируемым сущностям, в реальном запросе - сотни тысяч записей
    for q in (
      select 'F' p1, 'moscow' p2 from dual
      union
      select 'F', 'sankt petersburg' from dual
      union
      select 'B', 'ekaterinburg' from dual
      union
      select 'B', 'novosibirsk' from dual
    ) loop
      dbms_output.put_line(q.p1||' '||q.p2);
      idx := tunes.first;
      while idx is not null
      loop
        --dbms_output.put_line(tunes(idx).condition);
        real_condition := replace(tunes(idx).condition,'[PAR1]', q.p1);
        real_condition := replace(real_condition,'[PAR2]', q.p2);
        --replace [PAR3], replace [PAR4]...
        --dbms_output.put_line(real_condition);
        
        plsql_block := 'SELECT case when '||real_condition||' then 1 else 0 end from dual';
        --dbms_output.put_line(plsql_block);
        EXECUTE IMMEDIATE plsql_block into res;
        --dbms_output.put_line('res='||to_char(res));
        if res = 1 then
          dbms_output.put_line('classcode='||tunes(idx).classcode);
          exit;
        end if;
        
        idx := tunes.next(idx);
      end loop;
    end loop;
end;