--============================================================================
-- Copywright 2005, steve taylor & chet west
--=============================================================================
-- DESCRIPTION
--	simple function to look for "symbols"  from a string;
--	returns 0 = ALL ALPHA
--	returns 1 = NON ALPHA EXIST
--=============================================================================
-- MODIFICATION HISTORY
-- Person      Date       Comments
-- ---------   ---------- --------------------------------------------
-- steve       12/14/2005 Initial Creatioon
--=============================================================================

CREATE OR REPLACE FUNCTION is_alpha(NAME VARCHAR2)
   RETURN INTEGER AS
   len                           INTEGER := 0;
   i                             INTEGER;
   asciivar                      INTEGER;
   charvar                       VARCHAR(30);
BEGIN
   SELECT LENGTH(NAME)
     INTO len
     FROM DUAL;

   i := 1;

   WHILE(i < len + 1) LOOP
      SELECT ASCII(SUBSTR(NAME, i, i)),
             SUBSTR(NAME, i, i)
        INTO asciivar,
             charvar
        FROM DUAL;

      IF ((charvar <> '-') AND((asciivar < 65) OR(asciivar > 122))) AND((charvar <> '''') AND(i <> 2)) THEN
         RETURN 0;
      END IF;

      i := i + 1;
   END LOOP;

   RETURN 1;
END;