create or replace package pkg_nkw_sys
timestamp '2006-07-07:10:10:10'
is
   ------------------------------------------------------------------
   -- 2006 DataPRO Developers - m@urelio
   ------------------------------------------------------------------
   -- Version: 2.0.2
   ------------------------------------------------------------------
   -- Collections, Records, Variables, Constants, Exceptions, Cursors
   ------------------------------------------------------------------
   type tab_type is table of varchar2(30) index by binary_integer;
   gt_type  tab_type;
   type rec_user is record(user# sys.user$.user#%TYPE,
                           name  sys.user$.name%TYPE);
   type tab_user is table of rec_user index by binary_integer;
   gt_users  tab_user;
   --------------------------------------------------------------------
   -- GET_NKID
   --------------------------------------------------------------------
   function get_nkid
      return sys.user$.user#%TYPE;
      pragma restrict_references(get_nkid, WNDS, WNPS);
   --------------------------------------------------------------------
   -- GET_USERS
   --------------------------------------------------------------------
   procedure get_users(ft_users in out gt_users%TYPE);
   --------------------------------------------------------------------
   -- GET_SCHEMAID
   --------------------------------------------------------------------
   function get_schemaid(fv_user in sys.user$.user#%TYPE)
      return sys.user$.name%TYPE;
      pragma restrict_references(get_schemaid, WNDS, WNPS);
   function get_schemaid(fv_user in sys.user$.name%TYPE)
      return sys.user$.user#%TYPE;
      pragma restrict_references(get_schemaid, WNDS, WNPS);
   --------------------------------------------------------------------
   -- GET_OBJECT_ID
   --------------------------------------------------------------------
   function get_object_id(fv_object in sys.obj$.obj#%TYPE)
      return sys.obj$.name%TYPE;
   function get_object_id(fv_object in sys.obj$.name%TYPE)
      return sys.obj$.obj#%TYPE;
   --------------------------------------------------------------------
   -- GET_OBJECT_TYPE
   --------------------------------------------------------------------
   function get_object_type(fv_object in sys.obj$.obj#%TYPE)
      return sys.obj$.name%TYPE;
   function get_object_type(fv_object in sys.obj$.name%TYPE)
      return sys.obj$.obj#%TYPE;
   --------------------------------------------------------------------
   -- GET_COLUMN_ID
   --------------------------------------------------------------------
   function get_column_id(fv_object in sys.obj$.name%TYPE,
                          fv_column in sys.col$.col#%TYPE)
      return sys.col$.name%TYPE;
   function get_column_id(fv_object in sys.obj$.name%TYPE,
                          fv_column in sys.col$.name%TYPE)
      return sys.col$.col#%TYPE;
   --------------------------------------------------------------------
   -- IS_TABLE
   --------------------------------------------------------------------
   function is_table(fv_object in sys.obj$.name%TYPE)
      return boolean;
   --------------------------------------------------------------------
   -- IS_COLUMN
   --------------------------------------------------------------------
   function is_column(fv_object in sys.obj$.name%TYPE,
                      fv_column in sys.col$.name%TYPE)
      return boolean;
end pkg_nkw_sys;
/
show errors