create or replace function fio_case( -- падежная форма ФИО for Oracle 10g+;
-- hexcept,hexcept@gmail.com;
 p_fio in varchar2,   -- ФИО
 p_padzh in varchar2, -- падеж: 'р'|'Р'|'2'-родительный,'д'|'Д'|'3'-дательный,
                      -- 'в'|'В'|'4'-винительный,'т'|'Т'|'5'-творительный,
                      -- 'п'|'П'|'6'-предложный
 p_fio_fmt in varchar2:='ФИО', -- формат ФИО: 'Алексей Немов'->'ИФ',
                               -- 'Ольга Львовна Гидова-Бережная'->'ИОФ'
 p_sex in varchar2:=null -- пол: 'ж'|'Ж'|'м'|'М'
 ) return varchar2 deterministic
 is
 l_pdzh_chr varchar2(4);
 l_pdzh pls_integer;
 l_sex varchar2(4):=substr(trim(lower(p_sex)),1,1);
 l_tailchr varchar2(4);
 l_nmlen number(4,0);
 l_name_s varchar2(2000):=null;
 l_name_n varchar2(2000):=null;
 l_fio varchar2(2000):=null;
 l_fname varchar2(2000):=null;
 l_mname varchar2(2000):=null;
 l_fullname varchar2(2000):=ltrim(rtrim(p_fio,' -'),' -');
 l_pos pls_integer;
 l_fio_fmt varchar2(10):=nvl(upper(substr(ltrim(p_fio_fmt),1,3)),'ФИО');
 l_ch varchar2(1):=chr(7); -- замена символа '.'
--
 function term( s in varchar2,t in varchar2 ) return boolean is
 begin
  if nvl(length(s),0)<nvl(length(t),0) then return false;
  elsif substr(lower(s),-length(t))=lower(t) then return true;
  end if;
  return false;
 end;
--
 procedure chng(s in out varchar2,p in pls_integer,n in number,
  pr in varchar2,pd in varchar2,pv in varchar2,pt in varchar2,pp in varchar2) is
 begin
  if length(s)>1 then
   s:=substr(s,1,length(s)-n)||
    case when substr(s,-1)=upper(substr(s,-1)) then
     upper(case p when 2 then pr when 3 then pd when 4 then pv
      when 5 then pt when 6 then pp end)
    else
     lower(case p when 2 then pr when 3 then pd when 4 then pv
      when 5 then pt when 6 then pp end)
    end;
   end if;
 end;
--
begin -- fio_case()
 if soundex(p_fio) is not null then return l_fullname; end if; -- latin
 l_pdzh_chr:=upper(substr(p_padzh,1,1)); -- падеж
 l_pdzh:=case l_pdzh_chr
  when 'И' then 1 when 'Р' then 2 when 'Д' then 3
  when 'В' then 4 when 'Т' then 5 when 'П' then 6 else 0 end;
 if l_pdzh=0 and ltrim(l_pdzh_chr,'0123456789') is null then
  l_pdzh:=nvl(to_number(l_pdzh_chr),0);
 end if;
 if l_pdzh not between 2 and 6 then return p_fio; end if;
-- формат ФИО:
 if l_fio_fmt is null or length(l_fio_fmt)>3
  or ltrim(l_fio_fmt,'ФИО') is not null or instr(l_fio_fmt,'Ф',1,2)>0
  or instr(l_fio_fmt,'И',1,2)>0 or instr(l_fio_fmt,'О',1,2)>0
 then return p_fio;
 end if;
-- ФИО:
 l_fullname:=
  trim(replace(replace(case when instr(l_fullname,'  ')>0
  then regexp_replace(l_fullname,' +',' ') else l_fullname
  end,' -','-'),'- ','-'));
 if l_fullname is null then return p_fio;
 elsif instr(l_fullname,'.')>0 then -- случай 'Иван И.Якин'
  l_fullname:=regexp_replace(l_fullname,'(\w)\.(\w)','\1'||l_ch||' \2');
 end if;
-- оглы,кызы:
 if instr(lower(l_fullname),'оглы')>0 then
  l_fullname:=regexp_replace(l_fullname,' ([оО][гГ][лЛ][ыЫ])','_\1');
  l_sex:=nvl(l_sex,'м');
 elsif instr(lower(l_fullname),'кызы')>0 then
  l_fullname:=regexp_replace(l_fullname,' ([кК][ыЫ][зЗ][ыЫ])','_\1');
  l_sex:=nvl(l_sex,'ж');
 end if;
 if instr(l_fio_fmt,'Ф')>0 then
  l_name_s:=regexp_substr(l_fullname,'[^ ]+',1,instr(l_fio_fmt,'Ф'));
 end if;
 if instr(l_fio_fmt,'И')>0 then
  l_fname:=regexp_substr(l_fullname,'[^ ]+',1,instr(l_fio_fmt,'И'));
 end if;
 if instr(l_fio_fmt,'О')>0 then
  l_mname:=regexp_substr(l_fullname,'[^ ]+',1,instr(l_fio_fmt,'О'));
 end if;

 l_nmlen:=nvl(length(l_name_s),0);
 if nvl(l_sex,'z') not in ('м','ж') then -- пол не определен,
-- пробуем определить его по отчеству:
  if upper(l_mname) like '%ИЧ' then l_sex:='м';
  elsif upper(l_mname) like '%НА' then l_sex:='ж';
-- по фамилии:
  elsif instr(',ва,на,ая,',','||substr(lower(l_name_s),-2)||',')>0 then
   l_sex:='ж';
  elsif instr(',ов,ев,ёв,ин,ев,ий,ый,',','||substr(lower(l_name_s),-2)||',')>0
  then l_sex:='м';
  else l_sex:='ж';
  end if;
 end if;
 if l_name_s is not null then  -- фамилия
-- сдвоенная фамилия:
  if instr(l_name_s,'-')>0 and lower(l_name_s) not like 'тер-%' then
   l_name_n:=
    substr(l_name_s,1,instr(l_name_s,'-')-1)||' '||l_fname||' '||l_mname;
   l_fio:=fio_case(l_name_n,p_padzh,'ФИО',l_sex);
   l_name_n:=substr(l_fio,1,instr(l_fio,' ')-1)||'-';
   l_name_s:=substr(l_name_s,instr(l_name_s,'-')+1);
  end if;
  l_tailchr:=lower(substr(l_name_s,-1));
  if l_sex='м' then  -- мужчины
   if nvl(instr('оеуюиэы',l_tailchr),0)=0 then
    if l_tailchr='в' then chng(l_name_s,l_pdzh,0,'а','у','а','ым','е');
    elsif l_tailchr='н' and term(l_name_s,'ин') then
     chng(l_name_s,l_pdzh,0,'а','у','а','ым','е');
    elsif l_tailchr='ц' and term(l_name_s,'ец') then
     if l_nmlen>3 and instr('аец,еец,иец,оец,уец',substr(l_name_s,-3))>0 then
      chng(l_name_s,l_pdzh,2,'йца','йцу','йца','йцем','йце');
     elsif
      l_nmlen>3
      and instr('тец,бец,вец,мец,нец,рец,сец',lower(substr(l_name_s,-3)))>0
      and instr('а,е,и,о,у,ы,э,ю,я,ё',lower(substr(l_name_s,-4,1)))>0
     then chng(l_name_s,l_pdzh,2,'ца','цу','ца','цом','це');
     elsif l_nmlen>3 and lower(substr(l_name_s,-3))='лец' then
      chng(l_name_s,l_pdzh,2,'ьца','ьцу','ьца','ьцом','ьце');
     else chng(l_name_s,l_pdzh,0,'а','у','а','ом','е');
     end if;
    elsif l_tailchr='х'
     and (term(l_name_s,'их') or term(l_name_s,'ых'))
    then chng(l_name_s,l_pdzh,0,null,null,null,null,null);
    elsif instr('б,г,д,ж,з,л,м,н,п,р,с,т,ф,х,ц,ч,ш,щ',l_tailchr)>0
    then chng(l_name_s,l_pdzh,0,'а','у','а','ом','е');
    elsif l_tailchr='я'
     and not(term(l_name_s,'ия') or term(l_name_s,'ая'))
    then chng(l_name_s,l_pdzh,1,'и','е','ю','ей','е');
    elsif l_tailchr='а'
     and not(term(l_name_s,'иа') or term(l_name_s,'уа'))
    then chng(l_name_s,l_pdzh,1,'и','е','у','ой','е');
    elsif l_tailchr='ь' then chng(l_name_s,l_pdzh,1,'я','ю','я','ем','е');
    elsif l_tailchr='к' then
     if l_nmlen>4 and term(l_name_s,'ок') then
      chng(l_name_s,l_pdzh,2,'ка','ку','ка','ком','ке');
     elsif l_nmlen>4
      and (term(l_name_s,'лек') or term(l_name_s,'рек'))
     then chng(l_name_s,l_pdzh,2,'ька','ьку','ька','ьком','ьке');
     else chng(l_name_s,l_pdzh,0,'а','у','а','ом','е');
     end if;
    elsif l_tailchr='й' then
     if l_nmlen>4 then
      if (term(l_name_s,'ский') or term(l_name_s,'цкий')) then
       chng(l_name_s,l_pdzh,2,'ого','ому','ого','им','ом');
      elsif term(l_name_s,'ой') then
       chng(l_name_s,l_pdzh,2,'ого','ому','ого','им','ом');
      elsif term(l_name_s,'ый') then
       chng(l_name_s,l_pdzh,2,'ого','ому','ого','ым','ом');
      elsif
       instr('рий,жий,лий,вий,дий,бий,гий,зий,мий,ний,пий,сий,фий,хий',
        lower(substr(l_name_s,-3)))>0
      then chng(l_name_s,l_pdzh,1,'я','ю','я','ем','и');
      elsif term(l_name_s,'ий') then
       chng(l_name_s,l_pdzh,2,'его','ему','его','им','им');
      else chng(l_name_s,l_pdzh,1,'я','ю','я','ем','е');
      end if;
     else chng(l_name_s,l_pdzh,1,'я','ю','я','ем','е');
     end if;
    end if;
   end if;
  elsif l_sex='ж' then  -- женщины
   if instr('ова,ева,ына,ина,ена',lower(substr(l_name_s,-3)))>0 then
    chng(l_name_s,l_pdzh,1,'ой','ой','у','ой','ой');
   elsif term(l_name_s,'ая') and lower(substr(l_name_s,-3,1))='ц' then
    chng(l_name_s,l_pdzh,2,'ей','ей','ую','ей','ей');
   elsif term(l_name_s,'ая') then
    chng(l_name_s,l_pdzh,2,'ой','ой','ую','ой','ой');
   elsif term(l_name_s,'ля') or term(l_name_s,'ня') then
    chng(l_name_s,l_pdzh,1,'и','е','ю','ей','е');
   elsif term(l_name_s,'а') and lower(substr(l_name_s,-2,1)) in ('д')
   then chng(l_name_s,l_pdzh,1,'ы','е','у','ой','е');
   end if;
  end if;
 end if;
 if l_fname is not null then  -- имя
  l_tailchr:=lower(substr(l_fname,-1));
  if l_sex='м' then  -- мужчины
   if nvl(instr('е,и,у',l_tailchr),0)=0 then
    if upper(l_fname)='ЛЕВ' then
     chng(l_fname,l_pdzh,2,'ьва','ьву','ьва','ьвом','ьве');
    elsif instr('б,в,г,д,з,ж,к,м,н,п,р,с,т,ф,х,ц,ч,ш,щ',l_tailchr)>0 then
     chng(l_fname,l_pdzh,0,'а','у','а','ом','е');
    elsif l_tailchr='а' then chng(l_fname,l_pdzh,1,'ы','е','у','ой','е');
    elsif l_tailchr='о' then chng(l_fname,l_pdzh,1,'а','у','а','ом','е');
    elsif l_tailchr='я' then
     if term(l_fname,'ья') then chng(l_fname,l_pdzh,1,'и','е','ю','ей','е');
     elsif term(l_fname,'ия') then
      chng(l_fname,l_pdzh,1,'и','е','ю','ей','е');
     else chng(l_fname,l_pdzh,1,'и','е','ю','ей','е');
     end if;
    elsif l_tailchr='й' then
     if term(l_fname,'ай') then chng(l_fname,l_pdzh,1,'я','ю','я','ем','е');
     else
      if term(l_fname,'ей') then
       chng(l_fname,l_pdzh,1,'я','ю','я','ем','е');
      else chng(l_fname,l_pdzh,1,'я','ю','я','ем','и');
      end if;
     end if;
    elsif l_tailchr='ь' then chng(l_fname,l_pdzh,1,'я','ю','я','ем','е');
    elsif l_tailchr='л' then
     if term(l_fname,'авел') then
      chng(l_fname,l_pdzh,2,'ла','лу','ла','лом','ле');
     else chng(l_fname,l_pdzh,0,'а','у','а','ом','е');
     end if;
    end if;
   end if;
  elsif l_sex='ж' then  -- женщины
   if l_tailchr='а' and nvl(length(l_fname),0)>1 then
    if instr('га,ха,ка,ша,ча,ща,жа',lower(substr(l_fname,-2)))>0 then
     chng(l_fname,l_pdzh,1,'и','е','у','ой','е');
    else chng(l_fname,l_pdzh,1,'ы','е','у','ой','е');
    end if;
   elsif l_tailchr='я' and nvl(length(l_fname),0)>1 then
    if term(l_fname,'ия') then
     if instr(
      'Адл,Ал,Алф,Альф,Ас,Асл,Аф,Баг,Вал,Васв,Васф,Вел,'||
      'Гал,Гаф,Гольф,Гул,Гульс,Гульф,Дал,Дан,Дар,Дел,Дил,Дилф,Дульф,Жар,'||
      'Зак,Зал,Зан,Зар,Зельф,Зил,Зулф,Зульф,Ид,Ильс,Кадр,Кал,Каф,Кем,'||
      'Лам,Лутф,Мад,Марз,Мунз,Над,Наж,Наз,Нак,Нал,Нурз,Нур,Нурс,Нюр,'||
      'Рав,Раз,Рал,Рамз,Рам,Ран,Расм,Раф,Роз,Руз,Рум,Руф,'||
      'Сав,Сад,Сал,Сан,Сар,Саф,Сол,Сур,Суф,Тал,Тасл,Тат,Ульв,'||
      'Фавз,Фак,Фал,Фанз,Фан,Фатх,Фик,Фирз,Хам,Хан,Шамг,Шамс,Элф,',
      replace(initcap(l_fname)||',','ия,',','))>0 -- Альфия,Нурия..
     then chng(l_fname,l_pdzh,1,'и','е','ю','ей','е');
     else chng(l_fname,l_pdzh,1,'и','и','ю','ей','и'); -- Мария,Юлия..
     end if;
    else chng(l_fname,l_pdzh,1,'и','е','ю','ей','е');
    end if;
   elsif l_tailchr='ь' then
    if term(l_fname,'вь') then chng(l_fname,l_pdzh,1,'и','и','ь','ью','и');
    elsif term(l_fname,'ль') and instr(
     'Айгу,Айгю,Айсе,Асе,Бактыгу,Гуза,Гузе,Гузя,Гюзе,Гюзя,'||
     'Джанаргу,Жангу,Идигу,Мавджигу,Миннегузе,Миннегу,Миргу,'||
     'Назгу,Нургу,Нико,Оразгу,Орозгу,Сапарку,Фирангю,Шахрагу,',
     replace(initcap(l_fname)||',','ль,',','))>0 -- несклоняемые Айгуль,Гузель..
    then null;
    else chng(l_fname,l_pdzh,1,'и','и','ь','ью','ье');
    end if;
   end if;
  end if;
 end if;
 if l_mname is not null then  -- отчество
  l_tailchr:=lower(substr(l_mname,-1));
  if l_sex='м' then  -- мужчины
   if l_tailchr='ч' then chng(l_mname,l_pdzh,0,'а','у','а','ем','е'); end if;
  elsif l_sex='ж' then  -- женщины
   if l_tailchr='а' and length(l_mname)<>1 then
    chng(l_mname,l_pdzh,1,'ы','е','у','ой','е');
   end if;
  end if;
 end if;
-- окончательная конкатенация:
 l_fio_fmt:=nvl(upper(substr(ltrim(p_fio_fmt),1,3)),'ФИО');
 l_fullname:=null;
 l_pos:=1;
 loop
  if l_pos>1 then l_fullname:=l_fullname||' '; end if;
  l_fullname:=l_fullname||
   case substr(l_fio_fmt,l_pos,1)
    when 'Ф' then l_name_n||l_name_s when 'И' then l_fname when 'О' then l_mname
   end;
  l_pos:=l_pos+1;
  if l_pos>nvl(length(l_fio_fmt),0) then exit; end if;
 end loop;
 return
  replace(replace(replace(replace(replace(replace(replace(nvl(ltrim(rtrim(
  l_fullname,' -'),' -'),ltrim(rtrim(case
   when instr(p_fio,'  ')>0 then regexp_replace(p_fio,' +',' ')
   else p_fio end,' -'),' -')),'  ',' '),l_ch||' ','.'),l_ch,'.'),
   '_о',' о'),'_О',' О'),'_к',' к'),'_К',' К');
end fio_case;