请问，有没有把16进指字符串转成number的函数（Oracle9i）？

自己写函数转化,下面是一个例子: 
create or replace FUNCTION hextodec (hexnum in char) RETURN number IS  
x number;  
digits number;  
result number := 0;  
current_digit char(1);  
current_digit_dec number;  BEGIN  
digits := length(hexnum);  
for x in 1..digits loop  
current_digit := upper(SUBSTR(hexnum, x, 1));  
if current_digit in ('A','B','C','D','E','F') then  
current_digit_dec := ascii(current_digit) - ascii('A') + 10;  
else  
current_digit_dec := to_number(current_digit);  
end if;  
result := (result * 16) + current_digit_dec;  
end loop;  
return result;  
END;