The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_last_updated_by number,
p_last_update_login number,
p_created_by number) is
l_payment_base_value number;
update_reconciled_payment(p_payment_id,
p_trx_amount,
l_payment_base_value,
p_trx_type,
p_cleared_date,
'C');
update_reconciled_payment(p_payment_id,
p_trx_amount,
l_payment_base_value,
p_trx_type,
p_cleared_date,
'C');
update_reconciled_payment(p_payment_id,
p_trx_amount,
l_payment_base_value,
p_trx_type,
p_cleared_date,
'C');
update_reconciled_payment(p_payment_id,
null,
null,
p_trx_type,
null,
'E');
procedure update_reconciled_payment(p_payment_id number,
p_trx_amount number,
p_base_trx_amount number,
p_trx_type varchar2,
p_cleared_date date,
p_payment_status varchar2) is
l_cleared_base_amount number;
hr_utility.set_location('pay_ce_reconciliation_pkg.update_reconciled_payment', 10);
insert into pay_ce_reconciled_payments(
reconciled_payment_id,
assignment_action_id,
trx_type,
cleared_amount,
cleared_date,
status_code,
cleared_base_amount)
values(
pay_ce_reconciled_payments_s.nextval,
p_payment_id,
p_trx_type,
p_trx_amount,
p_cleared_date,
p_payment_status,
p_base_trx_amount);
end update_reconciled_payment;
select
reconciled_payment_id
from
pay_ce_reconciled_payments
where
assignment_action_id = p_payment_id;
delete from pay_ce_reconciled_payments
where reconciled_payment_id = l_reconciled_payment_id;
select
null
from
pay_ce_reconciled_payments
where
assignment_action_id = p_payment_id
and status_code = 'C';
select PA.effective_date,
OP.payment_type_id,
PP.org_payment_method_id,
PP.personal_payment_method_id,
PP.PRE_PAYMENT_ID,
AA.payroll_action_id
into l_effective_date,
l_payment_type_id,
l_org_payment_method_id,
l_personal_payment_method_id,
l_pre_payment_id,
l_payroll_action_id
from pay_payroll_actions PA,
pay_assignment_actions AA,
-- pay_action_interlocks INT,
pay_pre_payments PP,
pay_org_payment_methods_f OP
where PA.payroll_action_id = AA.payroll_action_id
and AA.assignment_action_id = p_assignment_action_id
-- and AA.assignment_action_id = INT.locking_action_id
-- and PP.assignment_action_id = INT.locked_action_id
and PP.pre_payment_id = AA.pre_payment_id
and PP.org_payment_method_id = OP.org_payment_method_id
and PA.effective_date between OP.effective_start_date
and OP.effective_end_date ;
select pyt.reconciliation_function
from pay_payment_types pyt
where pyt.payment_type_id = p_payment_type_id
and pyt.reconciliation_function is not null;
select pay_ce_support_pkg.bank_segment_value(
ppm.external_account_id,
p_info_type,
nvl(ppt.TERRITORY_CODE,pbg.legislation_code))
from per_business_groups_perf pbg,
pay_payment_types ppt,
pay_personal_payment_methods_f ppm
where ppm.personal_payment_method_id = p_personal_payment_method_id
and p_effective_date between ppm.effective_start_date
and ppm.effective_end_date
and ppt.payment_type_id = p_payment_type_id
and ppm.business_group_id = pbg.business_group_id;
select substr('||l_function_name||'(:p_effective_date,
:p_identifier_name,
:p_payroll_action_id,
:p_payment_type_id,
:p_org_payment_method_id,
:p_personal_payment_method_id,
:p_assignment_action_id,
:p_pre_payment_id,
:p_delimiter_string),1,255)
into :identifier_value
from dual;