人民币小写转大写 oracle函数

function fn_getupperrmb(money IN number)
    return varchar2 is
  TYPE MAPPING IS TABLE OF VARCHAR2(6) INDEX BY BINARY_INTEGER;
  UPPERDW MAPPING;
  DW MAPPING;
  STRYUAN VARCHAR2(100);
  STRFEN VARCHAR2(100);
  STR_RES VARCHAR2(100);
  LENYUAN NUMBER;
  J NUMBER;
  WS NUMBER;--位数
  SZ VARCHAR2(3);--数字
  YUAN_RES VARCHAR2(100);
  FEN_RES VARCHAR2(100);
begin
  If money Is Null Then
    Return Null;
  End If;
  UPPERDW(0) := '零';
  UPPERDW(1) := '壹';
  UPPERDW(2) := '贰';
  UPPERDW(3) := '叁';
  UPPERDW(4) := '肆';
  UPPERDW(5) := '伍';
  UPPERDW(6) := '陆';
  UPPERDW(7) := '柒';
  UPPERDW(8) := '捌';
  UPPERDW(9) := '玖';
  DW(-2) := '分';
  DW(-1) := '角';
  DW(1) := &#