Исключение против Raise_application_error

Question

У меня есть следующая процедура:

     procedure insert_header(p_push_date          in date,
                                p_source_serial      in varchar2,
                                p_source_start_date  in date,
                                p_source_end_date    in date
                                ) is

      id_temp number;

      begin
        -- check for errors
        if p_push_date is null
        then
          result_code := 9213;
          --raise_application_error(-RESULT_CODE, 'push_date cannot be null');
        elsif p_source_serial is null
        then
          result_code := 9333;
          --raise_application_error(-RESULT_CODE, 'source_serial cannot be null');


        end if;

        -- if there are no errors, do insert
        if result_code is null
        then
          -- fetch sequence number
          id_temp := header_seq.nextval;
          result_code:=0;

      open o_cur_results for
      select id_temp as id
      from dual;

/*insert into*/
        end if;

Commit;end;

Когда вставлен какой-то недопустимый параметр, процедура не должна отображать всплывающее окно с ошибкой.Вместо этого он должен возвращать только переменную result_code.

Может кто-нибудь показать, как это сделать?

Answer 1

/* Formatted on 4/23/2019 8:17:42 AM (QP5 v5.256.13226.35538) */
PROCEDURE insert_header (p_push_date           IN     DATE,
                         p_source_serial       IN     VARCHAR2,
                         p_source_start_date   IN     DATE,
                         p_source_end_date     IN     DATE,
                         result_code              OUT NUMBER)
IS
   id_temp   NUMBER;
BEGIN
   -- check for errors
   IF p_push_date IS NULL
   THEN
      result_code := 9213;
      RETURN;
   --raise_application_error(-RESULT_CODE, 'push_date cannot be null');
   ELSIF p_source_serial IS NULL
   THEN
      result_code := 9333;
      RETURN;
   --raise_application_error(-RESULT_CODE, 'source_serial cannot be null');
   END IF;
   -- if there are no errors, do insert
   IF result_code IS NULL
   THEN
      -- fetch sequence number
      id_temp := header_seq.NEXTVAL;
      result_code := 0;

      OPEN o_cur_results FOR SELECT id_temp AS id FROM DUAL;
   /*insert into*/
   END IF;

   COMMIT;
END;