PLSQL将字符串转换成驼峰格式

CREATE OR REPLACE FUNCTION formatetf(p_text in varchar2) return varchar2 is
/**
 * dms2020环境，yachao.wu create ，不需要迁移到正式环境
 */
 l_replace_text varchar2(2);
 l_upper_letter varchar2(1);
 l_new_text     varchar2(240);
begin
  if instr(p_text,'_') > 0 then
    l_replace_text :=  substrb(p_text, instr(p_text,'_',1),2)  ;
    l_upper_letter := upper(substrb(l_replace_text,2,1));
    l_new_text     := replace(p_text,l_replace_text,l_upper_letter);
    l_new_text     := formatetf(l_new_text) ;
    return l_new_text;
  else
    return p_text;
  end if ;
end ;