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; / show errors