PKG_NKW_AUD.SPB
Source Package Body
Auditoria de manipulações
create or replace package body pkg_nkw_aud
timestamp '2006-07-07:10:10:10'
is
------------------------------------------------------------------
-- 2006 DataPRO Developers - m@urelio
------------------------------------------------------------------
-- Version: 2.0.2
------------------------------------------------------------------
-- Collections, Records, Variables, Constants, Exceptions, Cursors
------------------------------------------------------------------
------------------------------------------------------------------
----------------------- Private Section --------------------------
------------------------------------------------------------------
------------------------------------------------------------------
------------------------ Public Section --------------------------
------------------------------------------------------------------
------------------------------------------------------------------
-- GET_AUDID
------------------------------------------------------------------
function get_audid(fv_dec in integer := null)
return pkg_nkw_env.gv_char%TYPE
is
lv_scope constant pkg_nkw_env.gv_char%TYPE := 'PKG_NKW_AUD.GET_AUDID';
retval varchar2(32);
begin
retval := pkg_nkw_std.dec2hex(pkg_nkw_obj.get_sequence('seq_nkw_audid'));
return retval;
exception
when others then raise;
end get_audid;
end pkg_nkw_aud;
|