pl/sql function example

create or replace

function MY_INITCAP(p_string varchar2) return varchar2 is

   l_string varchar2(1000) := p_string;

begin

   if regexp_like(l_string,'(Mac[A-Z]|Mc[A-Z])') then

      null;

   elsif l_string like '''%' then

      null;

   else

      l_string := initcap(l_string);

   if l_string like '_''S%' then

      null;

   else

      l_string := replace(l_string,'''S','''s');

   end if;

   end if;

   return l_string;

 end;

 /