The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_dml(
p_rec in out nocopy pay_exa_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_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 update_dml;
procedure pre_update(
p_rec in pay_exa_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'pre_update';
end pre_update;
procedure post_update(
p_rec in pay_exa_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'post_update';
end post_update;
pay_exa_bus.update_validate(p_rec);
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);
SELECT pea.object_version_number
FROM PAY_EXTERNAL_ACCOUNTS pea
WHERE pea.external_account_id = p_external_account_id
;
p_dml_mode => 'UPDATE',
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 => l_rec.segment1,
p_segment2 => l_rec.segment2,
p_segment3 => l_rec.segment3,
p_segment4 => l_rec.segment4,
p_segment5 => l_rec.segment5,
p_segment6 => l_rec.segment6,
p_segment7 => l_rec.segment7,
p_segment8 => l_rec.segment8,
p_segment9 => l_rec.segment9,
p_segment10 => l_rec.segment10,
p_segment11 => l_rec.segment11,
p_segment12 => l_rec.segment12,
p_segment13 => l_rec.segment13,
p_segment14 => l_rec.segment14,
p_segment15 => l_rec.segment15,
p_segment16 => l_rec.segment16,
p_segment17 => l_rec.segment17,
p_segment18 => l_rec.segment18,
p_segment19 => l_rec.segment19,
p_segment20 => l_rec.segment20,
p_segment21 => l_rec.segment21,
p_segment22 => l_rec.segment22,
p_segment23 => l_rec.segment23,
p_segment24 => l_rec.segment24,
p_segment25 => l_rec.segment25,
p_segment26 => l_rec.segment26,
p_segment27 => l_rec.segment27,
p_segment28 => l_rec.segment28,
p_segment29 => l_rec.segment29,
p_segment30 => l_rec.segment30,
p_concat_segments_in => p_concat_segments,
--
-- OUT parameter,
-- l_rec.external_account_id may have a new value
--
p_ccid => l_rec.external_account_id,
p_concat_segments_out => l_concat_segments_out
);