判断字段是否全部为数字函数

create or replace function IsNumber(pStr Varchar2) return number is
    p_I Number;
begin
   if pStr is null then
     return 0;
   end if;
   p_I := to_Number(pStr);
   return 1;
exception
   when others then
        return 0;
end;