The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure insert_row
(p_branch_code in varchar2
,p_legislation_code in varchar2
,p_bank_code in varchar2
,p_branch in varchar2
,p_long_branch in varchar2 default null
,p_extra_information1 in varchar2 default null
,p_extra_information2 in varchar2 default null
,p_extra_information3 in varchar2 default null
,p_extra_information4 in varchar2 default null
,p_extra_information5 in varchar2 default null
,p_enabled_flag in varchar2 default 'Y'
,p_start_date_active in date default hr_api.g_sot
,p_end_date_active in date default hr_api.g_eot
) is
l_dummy varchar2(32);
select null
from fnd_territories
where territory_code = p_legislation_code;
insert into pay_bank_branches
(branch_code
,legislation_code
,bank_code
,branch
,long_branch
,extra_information1
,extra_information2
,extra_information3
,extra_information4
,extra_information5
,enabled_flag
,start_date_active
,end_date_active
)
values
(p_branch_code
,p_legislation_code
,p_bank_code
,p_branch
,p_long_branch
,p_extra_information1
,p_extra_information2
,p_extra_information3
,p_extra_information4
,p_extra_information5
,p_enabled_flag
,p_start_date_active
,p_end_date_active
);
end insert_row;
select *
from pay_bank_branches
where legislation_code = p_legislation_code
and branch_code = p_branch_code
for update nowait
;
procedure update_row
(p_branch_code in varchar2
,p_legislation_code in varchar2
,p_bank_code in varchar2 default hr_api.g_varchar2
,p_branch in varchar2 default hr_api.g_varchar2
,p_long_branch in varchar2 default hr_api.g_varchar2
,p_extra_information1 in varchar2 default hr_api.g_varchar2
,p_extra_information2 in varchar2 default hr_api.g_varchar2
,p_extra_information3 in varchar2 default hr_api.g_varchar2
,p_extra_information4 in varchar2 default hr_api.g_varchar2
,p_extra_information5 in varchar2 default hr_api.g_varchar2
,p_enabled_flag in varchar2 default hr_api.g_varchar2
,p_start_date_active in date default hr_api.g_date
,p_end_date_active in date default hr_api.g_date
) is
l_legislation_code pay_bank_branches.legislation_code%type;
select legislation_code
, branch_code
, bank_code
, branch
, long_branch
, extra_information1
, extra_information2
, extra_information3
, extra_information4
, extra_information5
, enabled_flag
, start_date_active
, end_date_active
from pay_bank_branches
where branch_code = p_branch_code
and legislation_code = p_legislation_code
;
hr_utility.set_location('Entering:pay_bank_branches.update_row', 0);
hr_utility.set_location('Leaving:pay_bank_branches.update_row', 10);
update pay_bank_branches
set bank_code = l_bank_code
, branch = l_branch
, long_branch = l_long_branch
, extra_information1 = l_extra_information1
, extra_information2 = l_extra_information2
, extra_information3 = l_extra_information3
, extra_information4 = l_extra_information4
, extra_information5 = l_extra_information5
, enabled_flag = l_enabled_flag
, start_date_active = l_start_date_active
, end_date_active = l_end_date_active
where branch_code = l_branch_code
and legislation_code = l_legislation_code
;
hr_utility.set_location('Leaving:pay_bank_branches.update_row', 20);
end update_row;
procedure delete_row
(p_branch_code in varchar2
,p_legislation_code in varchar2
) is
l_debug boolean := hr_utility.debug_enabled;
hr_utility.set_location('Entering:pay_bank_branches.delete_row', 0);
hr_utility.set_location('pay_bank_branches.delete_row', 10);
delete
from pay_bank_branches
where legislation_code = p_legislation_code
and branch_code = p_branch_code
;
hr_utility.set_location('Leaving:pay_bank_branches.delete_row', 20);
end delete_row;
,p_insert in boolean
) is
l_sort_code_len number := g_gb_sort_code_len;
if p_insert then
--
-- Length check.
--
if length(p_sort_code) > l_sort_code_len then
fnd_message.set_name('PAY', 'HR_51419_EXA_SORT_CODE_LENGTH');
if p_insert and
hr_api.not_exists_in_hr_lookups
(p_effective_date => trunc(sysdate)
,p_lookup_type => 'GB_BANKS'
,p_lookup_code => p_bank_code
)
then
fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
procedure insert_gb_row
(p_sort_code in out nocopy varchar2
,p_bank_code in varchar2
,p_branch in varchar2
,p_long_branch in varchar2 default null
,p_building_society_acct in out nocopy varchar2
,p_enabled_flag in varchar2 default 'Y'
,p_start_date_active in date default hr_api.g_sot
,p_end_date_active in date default hr_api.g_eot
) is
begin
validate_gb_values
(p_sort_code => p_sort_code
,p_branch => p_branch
,p_bank_code => p_bank_code
,p_insert => true
);
insert_row
(p_branch_code => p_sort_code
,p_legislation_code => 'GB'
,p_bank_code => p_bank_code
,p_branch => p_branch
,p_long_branch => p_long_branch
,p_enabled_flag => p_enabled_flag
,p_start_date_active => p_start_date_active
,p_end_date_active => p_end_date_active
);
end insert_gb_row;
procedure update_gb_row
(p_sort_code in varchar2
,p_branch in varchar2 default hr_api.g_varchar2
,p_long_branch in varchar2 default hr_api.g_varchar2
,p_building_society_acct in out nocopy varchar2
,p_enabled_flag in varchar2 default hr_api.g_varchar2
,p_start_date_active in date default hr_api.g_date
,p_end_date_active in date default hr_api.g_date
) is
l_sort_code varchar2(100);
select branch
from pay_bank_branches
where branch_code = p_sort_code
and legislation_code = 'GB'
;
,p_insert => false
);
update_row
(p_branch_code => l_sort_code
,p_legislation_code => 'GB'
,p_branch => p_branch
,p_long_branch => p_long_branch
,p_enabled_flag => p_enabled_flag
,p_start_date_active => p_start_date_active
,p_end_date_active => p_end_date_active
);
end update_gb_row;
select null
from pay_external_accounts exa
where exa.external_account_id = p_external_account_id
and exa.segment3 = p_sort_code
and exa.segment4 = p_account_number
and exa.segment5 = p_account_name
and ((exa.segment7 is null and
p_building_society_acct is null) or
(exa.segment7 = p_building_society_acct))
;
select pbb.bank_code
, pbb.branch
, pbb.enabled_flag
, pbb.start_date_active
, pbb.end_date_active
from pay_bank_branches pbb
where pbb.legislation_code = 'GB'
and pbb.branch_code = p_sort_code
;