RHN_EXCEPTION

Package source

Legend: comment string keyword reserved word operator

     1: PACKAGE rhn_exception
     2: IS
     3:     PROCEDURE raise_exception(exception_label_in IN VARCHAR2);
     4:     procedure raise_exception_val(
     5: 	exception_label_in in varchar2,
     6:         val_in in number
     7:     );
     8:     PROCEDURE lookup_exception(exception_label_in IN VARCHAR2, exception_id_out OUT NUMBER, exception_message_out OUT VARCHAR2);
     9: END rhn_exception;

Package body source

Legend: comment string keyword reserved word operator

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