oracle 数字转人民币大写函数

oralce中用于将数据转换为人民币大写的函数..

function to_rmbdx(i_money in varchar2) return varchar2 is

  i       number;
  j       number;
  l       number;
  fs1     varchar2(20);
  fs2     varchar2(20);
  fs3     varchar2(30);
  s       varchar2(40);
  s1      varchar2(40);
  s2      varchar2(100);
  zero    number;
  pos     number;
  h       number;
  t       number(5, 4);
  l_money varchar2(20);
begin
  if i_money is null or instr(i_money, '.') >= 18 then
    return '';
  end if;
  if substr(i_money, 1, 1) = '-' then
    l_money := substr(i_money, 2, length(i_money) - 1);
  else
    l_money := i_money;
  end if;
  zero := 0;
  pos  := 0;
  fs1  := '零壹贰叁肆伍陆柒捌玖';
  fs2  := '仟佰拾万仟佰拾元';
  fs3  := &#