rem {{ -----------------------------------------------------------------------+
rem File:        jrpbsutl.sql
rem Author:
rem Date:
rem Version:
rem Project:     The Oracle Common Repository
rem Description: Repos utils
rem Notes:
rem RealAuth:    Karl McHorton
rem IncepDate:   20th 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 Body: jr_system_util
create or replace package body jr_system_util is
--Package variables to hold current values
current_ivid      ivid;
current_branch_id branch_id;

  function get_new_ivid return ivid is
  begin
     current_ivid:=jr_util.get_new_irid;
     return current_ivid;
  end;

  function get_new_branch_id return branch_id is
  begin
     current_branch_id:=jr_util.get_new_irid;
     return current_branch_id;
  end;
  
  function get_current_ivid return ivid is
  begin
     return current_ivid;
  end;

  function get_current_branch_id return branch_id is
  begin
     return current_branch_id;
  end;
 

end jr_system_util;
/

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