RHN_EXCEPTION

Package source

Legend: comment string keyword reserved word operator

     1: PACKAGE rhn_exception
     2: IS
     3:     CURSOR exception_details(exception_label_in VARCHAR2) IS
     4:         SELECT id, label, message
     5:           FROM rhnException
     6:          WHERE label = exception_label_in;
     7:     PROCEDURE raise_exception(exception_label_in IN VARCHAR2);
     8:     procedure raise_exception_val(
     9: 	exception_label_in in varchar2,
    10:         val_in in number
    11:     );
    12:     PROCEDURE lookup_exception(exception_label_in IN VARCHAR2, exception_id_out OUT NUMBER, exception_message_out OUT VARCHAR2);
    13: END rhn_exception;

Package body source

Legend: comment string keyword reserved word operator

     1: PACKAGE BODY rhn_exception
     2: IS
     3:     PROCEDURE lookup_exception(exception_label_in IN VARCHAR2, exception_id_out OUT NUMBER, exception_message_out OUT VARCHAR2)
     4:     IS
     5:         return_string     VARCHAR2(2000);
     6:     BEGIN
     7:         FOR exc IN exception_details(exception_label_in)
     8:         LOOP
     9:             exception_id_out := exc.id;
    10:             exception_message_out := '(' || exc.label || ')' || ' - ' || exc.message;
    11:         END LOOP exception_details;
    12:         IF exception_message_out IS NULL
    13:         THEN
    14:             RAISE NO_DATA_FOUND;
    15:         END IF;
    16:     END lookup_exception;
    17:     PROCEDURE raise_exception(exception_label_in IN VARCHAR2)
    18:     IS
    19:         exception_id        NUMBER;
    20:         exception_message   VARCHAR2(2000);
    21:     BEGIN
    22:         lookup_exception(exception_label_in, exception_id, exception_message);
    23:         RAISE_APPLICATION_ERROR(exception_id, exception_message);
    24:     EXCEPTION
    25:         WHEN NO_DATA_FOUND
    26:         THEN
    27:         RAISE_APPLICATION_ERROR(-20001, 'Unable to lookup exception with label (' || exception_label_in || ')');
    28:     END raise_exception;
    29:     procedure raise_exception_val(
    30: 	exception_label_in in varchar2,
    31: 	val_in in number
    32:     ) is
    33: 	exception_id        NUMBER;
    34: 	exception_message   VARCHAR2(2000);
    35:     begin
    36: 	lookup_exception(exception_label_in, exception_id, exception_message);
    37: 	RAISE_APPLICATION_ERROR(exception_id, exception_message || ' (' || val_in || ')');
    38:     exception
    39: 	when no_data_found then
    40: 	RAISE_APPLICATION_ERROR(-20001, 'Unable to lookup exception with label (' || exception_label_in || ')');
    41:     end raise_exception_val;
    42: END rhn_exception;