The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_proc varchar2(72) := g_package||'update_wci_account';
procedure update_wci_account
(p_validate in boolean default false
,p_effective_date in date
,p_account_id in number
,p_object_version_number in out nocopy number
,p_name in varchar2 default hr_api.g_varchar2
,p_account_number in varchar2 default hr_api.g_varchar2
,p_location_id in number default hr_api.g_number
,p_comments in varchar2 default hr_api.g_varchar2
) is
--
-- Declare cursors and local variables
--
l_proc varchar2(72) := g_package||'update_wci_account';
select business_group_id, carrier_id
from pay_wci_accounts
where account_id = p_account_id;
savepoint update_wci_account;
pay_wci_accounts_bk2.update_wci_account_b
(p_effective_date => l_effective_date
,p_account_id => p_account_id
,p_object_version_number => p_object_version_number
,p_business_group_id => l_business_group_id
,p_carrier_id => l_carrier_id
,p_name => p_name
,p_account_number => p_account_number
,p_location_id => p_location_id
,p_comments => p_comments
);
(p_module_name => 'update_wci_account'
,p_hook_type => 'BP'
);
pay_wci_accounts_bk2.update_wci_account_a
(p_effective_date => l_effective_date
,p_account_id => p_account_id
,p_object_version_number => p_object_version_number
,p_business_group_id => l_business_group_id
,p_carrier_id => l_carrier_id
,p_name => p_name
,p_account_number => p_account_number
,p_location_id => p_location_id
,p_comments => p_comments
);
(p_module_name => 'update_wci_account'
,p_hook_type => 'AP'
);
rollback to update_wci_account;
end update_wci_account;
procedure delete_wci_account
(p_validate in boolean default false
,p_account_id in number
,p_object_version_number in number
) is
--
-- Declare cursors and local variables
--
l_proc varchar2(72) := g_package||'delete_wci_account';
select business_group_id
from pay_wci_accounts
where account_id = p_account_id;
savepoint delete_wci_account;
pay_wci_accounts_bk3.delete_wci_account_b
(p_account_id => p_account_id
,p_business_group_id => l_business_group_id
,p_object_version_number => p_object_version_number
);
(p_module_name => 'delete_wci_account'
,p_hook_type => 'BP'
);
pay_wci_accounts_bk3.delete_wci_account_a
(p_account_id => p_account_id
,p_business_group_id => l_business_group_id
,p_object_version_number => p_object_version_number
);
(p_module_name => 'delete_wci_account'
,p_hook_type => 'AP'
);
rollback to delete_wci_account;
rollback to delete_wci_account;
end delete_wci_account;