rem {{ -----------------------------------------------------------------------+
rem File:        $RCSfile: jrisutil.jps $
rem Author:      $Author: plorrime $
rem Date:        $Date: 1998/07/28 15:25:45 $
rem Version:     $Revision: 40.2 $
rem Status:      $State: Exp $
rem Locked_by:   $Locker:  $
rem Project:     The Oracle Common Repository
rem Description: System utilities - must be executed against repos schema
rem Notes:
rem RealAuth:    Karl McHorton
rem IncepDate:   16th March 1998
rem Copyright:   (c) Oracle Corporation 1998. All Rights Reserved.
rem Tagline:     -- Oracle Repository: Managing *all* your data --
rem --------------------------------------------------------------------------+
rem Log of Changes
rem --------------------------------------------------------------------------+

prompt Package Header: jr_system_util
create or replace package jr_system_util is

   subtype ivid      is number;
   subtype branch_id is number;

   -- Generate IVIDs
   function get_new_ivid return ivid;
   pragma restrict_references(get_new_ivid, WNDS);

   function get_new_branch_id return branch_id ;
   pragma restrict_references(get_new_branch_id, WNDS);
   
   -- Get current values of IDs for current session
   function get_current_ivid return ivid;
   pragma restrict_references(get_current_ivid, WNDS);
   
   function get_current_branch_id return branch_id ;
   pragma restrict_references(get_current_branch_id, WNDS);

end jr_system_util;
/

rem
rem ---------------------------------------------------------------------------+
rem }} end of file
rem ---------------------------------------------------------------------------+