CREATE OR REPLACE FUNCTION VALIDA_CPF_CNPJ(
   P_VALOR     IN VARCHAR2) RETURN VARCHAR
AS
   V_CAMPO     VARCHAR2(10);
BEGIN
   IF LENGTH(P_VALOR) < 11 AND LENGTH(P_VALOR) > 14 THEN
      V_CAMPO := 'VAZ';
   ELSE
      IF LENGTH(P_VALOR) = 11 THEN
         V_CAMPO := 'CPF';
      ELSE
         V_CAMPO := 'CNPJ';
      END IF;
   END IF;

   RETURN(V_CAMPO);

END;
/