oracle 金额大写转换

FUNCTION convert_money(input_number NUMBER) RETURN VARCHAR2 IS
  i     PLS_INTEGER;
  snum  VARCHAR2(20) := ltrim(REPLACE(to_char(abs(input_number), '9999999999999990.99'), '.'));
  len   PLS_INTEGER := length(snum);
  sch   VARCHAR2(30) := '零壹贰叁肆伍陆柒捌玖';
  sjin  VARCHAR2(60) := '分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟';
  srmb  VARCHAR2(200) := '';
  num   PLS_INTEGER;
  s_num PLS_INTEGER := 0; --'0'起始位置
  e_num PLS_INTEGER := 0; --'0'结束位置
BEGIN
  IF input_number IS NULL THEN
    RETURN NULL;
  END IF;
  FOR i IN 1 .. len LOOP
    num := to_number(substr(snum, i, 1));
    IF num <> 0 THEN
      --非'0'时处理：
      IF s_num = 0 THEN
        srmb := srmb || substr(sch, num + 1, 1) || substr(sjin, len - i + 1, 1); --前面字符非'0', 正常联接...
      ELSE
        srmb := srmb || --否则：
                CASE
                  WHEN s_num = e_num THE