The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure insert_dml(
p_rec in out nocopy pay_exa_shd.g_rec_type,
p_business_group_id in number
) is
--
l_proc varchar2(72) := g_package||'insert_dml';
hr_utility.trace('| doing update on combination table');
UPDATE PAY_EXTERNAL_ACCOUNTS
SET territory_code = p_rec.territory_code
WHERE external_account_id = p_rec.external_account_id
;
UPDATE PAY_EXTERNAL_ACCOUNTS
SET prenote_date = p_rec.prenote_date
WHERE external_account_id = p_rec.external_account_id
;
UPDATE PAY_EXTERNAL_ACCOUNTS
SET object_version_number = nvl(object_version_number, 0) + 1
WHERE external_account_id = p_rec.external_account_id
;
end insert_dml;
procedure pre_insert(
p_rec in out nocopy pay_exa_shd.g_rec_type
,p_business_group_id in number
) is
--
l_proc varchar2(72) := g_package||'pre_insert';
End pre_insert;
procedure post_insert(
p_rec in pay_exa_shd.g_rec_type
,p_business_group_id in number
) is
--
l_proc varchar2(72) := g_package||'post_insert';
end post_insert;
pay_exa_bus.insert_validate(p_rec, p_business_group_id);
pre_insert(p_rec, p_business_group_id);
insert_dml(p_rec, p_business_group_id);
post_insert(p_rec, p_business_group_id);
SELECT pea.object_version_number
FROM PAY_EXTERNAL_ACCOUNTS pea
WHERE pea.external_account_id = p_external_account_id
;
p_dml_mode => 'INSERT',
p_business_group_id => p_business_group_id,
p_appl_short_name => 'PAY',
p_territory_code => p_territory_code,
p_flex_code => 'BANK',
p_segment1 => p_segment1,
p_segment2 => p_segment2,
p_segment3 => p_segment3,
p_segment4 => p_segment4,
p_segment5 => p_segment5,
p_segment6 => p_segment6,
p_segment7 => p_segment7,
p_segment8 => p_segment8,
p_segment9 => p_segment9,
p_segment10 => p_segment10,
p_segment11 => p_segment11,
p_segment12 => p_segment12,
p_segment13 => p_segment13,
p_segment14 => p_segment14,
p_segment15 => p_segment15,
p_segment16 => p_segment16,
p_segment17 => p_segment17,
p_segment18 => p_segment18,
p_segment19 => p_segment19,
p_segment20 => p_segment20,
p_segment21 => p_segment21,
p_segment22 => p_segment22,
p_segment23 => p_segment23,
p_segment24 => p_segment24,
p_segment25 => p_segment25,
p_segment26 => p_segment26,
p_segment27 => p_segment27,
p_segment28 => p_segment28,
p_segment29 => p_segment29,
p_segment30 => p_segment30,
p_concat_segments_in => p_concat_segments,
p_ccid => l_external_account_id,
p_concat_segments_out => l_concat_segments_out
);