When divisor is equal to 0 (zero)

/*Use this function when divisor is equal to 0 (zero)*/
CREATE OR REPLACE FUNCTION f_valid_devisor (p_number IN NUMBER)
   RETURN NUMBER
IS
   RESULT   NUMBER;
BEGIN
   IF NVL (p_number, 0) = 0
   THEN
      RESULT := 1;
   ELSE
      RESULT := p_number;
   END IF;

   RETURN (RESULT);
END;
/