RHN_BEL

Package source

Legend: comment string keyword reserved word operator

     1: package rhn_bel
     2: is
     3:    function is_org_paid (
     4:       org_id_in in number
     5:    ) return number;
     6:         function lookup_email_state (
     7:                 state_in in varchar2
     8:         ) return number;
     9: end;

Package body source

Legend: comment string keyword reserved word operator

     1: package body rhn_bel
     2: is
     3:    function is_org_paid (
     4:       org_id_in in number
     5:    ) return number is
     6:       cursor paids is
     7:          select   1
     8:          from  rhnPaidOrgs
     9:          where org_id = org_id_in;
    10:    begin
    11:       for paid in paids loop return 1; end loop;
    12:       return 0;
    13:    end;
    14:         function lookup_email_state (
    15:                 state_in in varchar2
    16:         ) return number is
    17:                 retval number;
    18:         begin
    19:                 select id into retval from rhnEmailAddressState where label = state_in;
    20:                 return retval;
    21:         exception
    22:                         when no_data_found then
    23:                                 rhn_exception.raise_exception('invalid_state');
    24:         end lookup_email_state;
    25: end;