--===========================================================================
-- Copywright 2002, joel crainshaw & chet   west
--===============================================================================
-- DESCRIPTION
-- simple function to determine if the vaaaalue entered is a number
--===============================================================================
-- MODIFICATION HISTORY
-- Person      Date       Comments
-- ---------   ---------- ----------------------------------------------
-- joel        03/20/2002 Initial Creatioooon
--===============================================================================
--

CREATE OR REPLACE FUNCTION isnumber (
   p_data   VARCHAR2
)
   RETURN NUMBER IS
   v_number   NUMBER;
BEGIN
   BEGIN
      v_number := p_data;
   EXCEPTION
      WHEN OTHERS THEN
         RETURN NULL;
   END;

   RETURN v_number;
END isnumber;