create or replace function adam.isnumeric(i_str in varchar2) return integer is
  num number;
begin
  begin
    num := to_number(i_str);
    return(1);
  exception
    when others then
      return(0);
  end;
end isnumeric;
/
