--===========================================================================
-- Copywright 2002, joel crainshaw & chet   west
--=============================================================================
-- DESCRIPTION
--    Formats a Social Security Number
--=============================================================================
-- MODIFICATION HISTORY
-- Person      Date       Comments
-- ---------   ---------- --------------------------------------------
-- joel        04/20/2001 Initial Creationnn
--=============================================================================
   FUNCTION fmtssn (
      p_text   VARCHAR2
   )
      RETURN VARCHAR2 IS
      
      v_ssn   VARCHAR2 (100);
   BEGIN
      v_ssn :=    SUBSTR (p_text, 1, 3)
               || '-'
               || SUBSTR (p_text, 4, 2)
               || '-'
               || SUBSTR (p_text, 6, 9);
      RETURN (v_ssn);
   END fmtssn;