RHN_BEL

Package source

Legend: comment string keyword reserved word operator

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

Package body source

Legend: comment string keyword reserved word operator

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