create or replace package pkg_nkw_grv
timestamp '2006-07-07:10:10:10'
is
   ------------------------------------------------------------------
   -- 2006 DataPRO Developers - m@urelio
   ------------------------------------------------------------------
   -- Version: 2.0.2
   ------------------------------------------------------------------
   -- Collections, Records, Variables, Constants, Exceptions, Cursors
   ------------------------------------------------------------------
   type rec_privileges is record (username	dba_users.username%TYPE,
				  object_id	user_objects.object_id%TYPE,
				  object_name	user_objects.object_name%TYPE,
				  object_type	user_objects.object_type%TYPE,
				  execute_flag	varchar2(1) := 'N',
				  select_flag	varchar2(1) := 'N',
				  insert_flag	varchar2(1) := 'N',
				  update_flag	varchar2(1) := 'N',
				  delete_flag	varchar2(1) := 'N');
   type tab_privileges is table of rec_privileges index by binary_integer;
   gr_privileges  rec_privileges;
   gt_privileges  tab_privileges;
   --------------------------------------------------------------------
   -- GET_PRIVILEGE
   --------------------------------------------------------------------
   function get_privilege(fv_user#	in sys.user$.user#%TYPE,
			  fv_obj#	in sys.obj$.obj#%TYPE,
			  fv_privilege# in sys.objauth$.privilege#%TYPE)
      return varchar2;
   pragma restrict_references(get_privilege, WNDS, WNPS);
   --------------------------------------------------------------------
   -- GET_USERS_PRIVILEGES
   --------------------------------------------------------------------
   procedure get_users_privileges(fv_object	in     user_objects.object_name%TYPE,
				  fv_type	in     user_objects.object_type%TYPE,
				  ft_privileges in out gt_privileges%TYPE);
   --------------------------------------------------------------------
   -- GET_PACKAGES_PRIVILEGES
   --------------------------------------------------------------------
   procedure get_packages_privileges(fv_username   in	  dba_users.username%TYPE,
				     ft_privileges in out gt_privileges%TYPE);
   --------------------------------------------------------------------
   -- GET_PROCEDURES_PRIVILEGES
   --------------------------------------------------------------------
   procedure get_procedures_privileges(fv_username   in     dba_users.username%TYPE,
				       ft_privileges in out gt_privileges%TYPE);
   --------------------------------------------------------------------
   -- GET_FUNCTIONS_PRIVILEGES
   --------------------------------------------------------------------
   procedure get_functions_privileges(fv_username   in	   dba_users.username%TYPE,
				      ft_privileges in out gt_privileges%TYPE);
   --------------------------------------------------------------------
   -- GET_TABLES_PRIVILEGES
   --------------------------------------------------------------------
   procedure get_tables_privileges(fv_username	 in	dba_users.username%TYPE,
				   ft_privileges in out gt_privileges%TYPE);
   --------------------------------------------------------------------
   -- GET_VIEWS_PRIVILEGES
   --------------------------------------------------------------------
   procedure get_views_privileges(fv_username	in     dba_users.username%TYPE,
				  ft_privileges in out gt_privileges%TYPE);
   --------------------------------------------------------------------
   -- SET_PRIVILEGES
   --------------------------------------------------------------------
   procedure set_privileges(ft_privileges in gt_privileges%TYPE);
end pkg_nkw_grv;