-- To Delete OAB User Hook
declare
l_api_hook_call_id number;
l_object_version_number number;
begin
--
select api_hook_call_id
, object_version_number
into l_api_hook_call_id
, l_object_version_number
from hr_api_hook_calls
where call_package='XX_OAB_USER_HOOK_PKG'
and call_procedure='CREATE_PRTT_ENRT_RESULT_A';
--
hr_api_hook_call_api.delete_api_hook_call(false,l_api_hook_call_id,l_object_version_number);
--
dbms_output.put_line('Delete User Hook '||sqlcode||'-'||sqlerrm);
--
exception when others then
dbms_output.put_line('Error Deleting User Hook '||sqlcode||' - '||sqlerrm);
end;
declare
ln_api_module_id number;
begin
--
begin
select api_module_id
into ln_api_module_id
from hr_api_hooks
where hook_package like '%BEN_PRTT_ENRT_RESULT_BK1%'
and api_hook_type='AP';
--
dbms_output.put_line('VALID API MODULE ID '||ln_api_module_id);
--
exception when others then
ln_api_module_id := 0;
dbms_output.put_line(' NOT A VALID API HOOK ID '||ln_api_module_id);
end;
if ln_api_module_id <> 0 then
--
-- Create all hook package body source code for one API module
--
hr_api_user_hooks_utility.create_hooks_one_module(ln_api_module_id);
--
-- Build the report text
--
hr_api_user_hooks_utility.write_one_errors_report(ln_api_module_id);
--
dbms_output.put_line('User Hook Pre-Process Registration Success');
--
else
--
dbms_output.put_line('User Hook Pre-Process Registration Failed');
--
end if;
--
end;
--To Register the usershook
declare
ln_api_hook_id hr_api_hooks.api_hook_id%type;
ln_api_hook_call_id number;
ln_object_version_number number;
begin
--
begin
select api_hook_id
into ln_api_hook_id
from hr_api_hooks
where hook_package like '%BEN_PRTT_ENRT_RESULT_BK1%'
and api_hook_type='AP';
--
dbms_output.put_line('VALID API HOOK ID '||ln_api_hook_id);
--
exception when others then
ln_api_hook_id := 0;
dbms_output.put_line(' NOT A VALID API HOOK ID '||ln_api_hook_id);
end;
--
hr_api_hook_call_api.create_api_hook_call
(p_validate => false,
p_effective_date => trunc(sysdate),
p_api_hook_id => ln_api_hook_id, --1390,
p_api_hook_call_type => 'PP',
p_sequence => 3000,
p_enabled_flag => 'Y',
p_call_package => 'XXS_OAB_USER_HOOK_PKG',
p_call_procedure => 'CREATE_PRTT_ENRT_RESULT_A',
p_api_hook_call_id => ln_api_hook_call_id,
p_object_version_number => ln_object_version_number);
--
dbms_output.put_line('p_api_hook_call_id '||ln_api_hook_call_id);
dbms_output.put_line('p_object_version_number '||ln_object_version_number);
--
commit;
--
exception when others then
dbms_output.put_line('API Excepiton '||sqlcode||sqlerrm);
end;
declare
ln_api_module_id number;
begin
--
begin
select api_module_id
into ln_api_module_id
from hr_api_hooks
where hook_package like '%BEN_PRTT_ENRT_RESULT_BK1%'
and api_hook_type='AP';
--
dbms_output.put_line('VALID API MODULE ID '||ln_api_module_id);
--
exception when others then
ln_api_module_id := 0;
dbms_output.put_line(' NOT A VALID API HOOK ID '||ln_api_module_id);
end;
if ln_api_module_id <> 0 then
--
-- Create all hook package body source code for one API module
--
hr_api_user_hooks_utility.create_hooks_one_module(ln_api_module_id);
--
-- Build the report text
--
hr_api_user_hooks_utility.write_one_errors_report(ln_api_module_id);
--
dbms_output.put_line('User Hook Pre-Processor Registration Success');
--
else
--
dbms_output.put_line('User Hook Pre-Processor Registration Failed');
--
end if;
--
end;
l_api_hook_call_id number;
l_object_version_number number;
begin
--
select api_hook_call_id
, object_version_number
into l_api_hook_call_id
, l_object_version_number
from hr_api_hook_calls
where call_package='XX_OAB_USER_HOOK_PKG'
and call_procedure='CREATE_PRTT_ENRT_RESULT_A';
--
hr_api_hook_call_api.delete_api_hook_call(false,l_api_hook_call_id,l_object_version_number);
--
dbms_output.put_line('Delete User Hook '||sqlcode||'-'||sqlerrm);
--
exception when others then
dbms_output.put_line('Error Deleting User Hook '||sqlcode||' - '||sqlerrm);
end;
declare
ln_api_module_id number;
begin
--
begin
select api_module_id
into ln_api_module_id
from hr_api_hooks
where hook_package like '%BEN_PRTT_ENRT_RESULT_BK1%'
and api_hook_type='AP';
--
dbms_output.put_line('VALID API MODULE ID '||ln_api_module_id);
--
exception when others then
ln_api_module_id := 0;
dbms_output.put_line(' NOT A VALID API HOOK ID '||ln_api_module_id);
end;
if ln_api_module_id <> 0 then
--
-- Create all hook package body source code for one API module
--
hr_api_user_hooks_utility.create_hooks_one_module(ln_api_module_id);
--
-- Build the report text
--
hr_api_user_hooks_utility.write_one_errors_report(ln_api_module_id);
--
dbms_output.put_line('User Hook Pre-Process Registration Success');
--
else
--
dbms_output.put_line('User Hook Pre-Process Registration Failed');
--
end if;
--
end;
--To Register the usershook
declare
ln_api_hook_id hr_api_hooks.api_hook_id%type;
ln_api_hook_call_id number;
ln_object_version_number number;
begin
--
begin
select api_hook_id
into ln_api_hook_id
from hr_api_hooks
where hook_package like '%BEN_PRTT_ENRT_RESULT_BK1%'
and api_hook_type='AP';
--
dbms_output.put_line('VALID API HOOK ID '||ln_api_hook_id);
--
exception when others then
ln_api_hook_id := 0;
dbms_output.put_line(' NOT A VALID API HOOK ID '||ln_api_hook_id);
end;
--
hr_api_hook_call_api.create_api_hook_call
(p_validate => false,
p_effective_date => trunc(sysdate),
p_api_hook_id => ln_api_hook_id, --1390,
p_api_hook_call_type => 'PP',
p_sequence => 3000,
p_enabled_flag => 'Y',
p_call_package => 'XXS_OAB_USER_HOOK_PKG',
p_call_procedure => 'CREATE_PRTT_ENRT_RESULT_A',
p_api_hook_call_id => ln_api_hook_call_id,
p_object_version_number => ln_object_version_number);
--
dbms_output.put_line('p_api_hook_call_id '||ln_api_hook_call_id);
dbms_output.put_line('p_object_version_number '||ln_object_version_number);
--
commit;
--
exception when others then
dbms_output.put_line('API Excepiton '||sqlcode||sqlerrm);
end;
declare
ln_api_module_id number;
begin
--
begin
select api_module_id
into ln_api_module_id
from hr_api_hooks
where hook_package like '%BEN_PRTT_ENRT_RESULT_BK1%'
and api_hook_type='AP';
--
dbms_output.put_line('VALID API MODULE ID '||ln_api_module_id);
--
exception when others then
ln_api_module_id := 0;
dbms_output.put_line(' NOT A VALID API HOOK ID '||ln_api_module_id);
end;
if ln_api_module_id <> 0 then
--
-- Create all hook package body source code for one API module
--
hr_api_user_hooks_utility.create_hooks_one_module(ln_api_module_id);
--
-- Build the report text
--
hr_api_user_hooks_utility.write_one_errors_report(ln_api_module_id);
--
dbms_output.put_line('User Hook Pre-Processor Registration Success');
--
else
--
dbms_output.put_line('User Hook Pre-Processor Registration Failed');
--
end if;
--
end;
