The following lines contain the word 'select', 'insert', 'update' or 'delete':
select min(opmu.effective_start_date)
into v_next_opmu_start_date
from pay_org_pay_method_usages_f opmu
where opmu.payroll_id = p_payroll_id
and opmu.org_payment_method_id = p_org_payment_method_id
and opmu.effective_end_date >= p_session_date
and opmu.org_pay_method_usage_id <> nvl(p_org_pay_method_usage_id,0);
select max(prl.effective_end_date)
into v_max_payroll_end_date
from pay_all_payrolls_f prl
where prl.payroll_id = p_payroll_id;
select max(opm.effective_end_date)
into v_max_opm_end_date
from pay_org_payment_methods_f opm
where opm.org_payment_method_id = p_org_payment_method_id;
procedure validate_delete_opmu
(
p_payroll_id number,
p_org_payment_method_id number,
p_effective_start_date date,
p_effective_end_date date,
p_dt_delete_mode varchar2,
p_validation_start_date date,
p_validation_end_date date
) is
--
cursor csr_dflt_pay_meth
(
p_payroll_id number,
p_org_payment_method_id number,
p_validation_start_date date,
p_validation_end_date date
) is
select prl.payroll_id
from pay_all_payrolls_f prl
where prl.payroll_id = p_payroll_id
and prl.default_payment_method_id = p_org_payment_method_id
and prl.effective_start_date <= p_validation_end_date
and prl.effective_end_date >= p_validation_start_date;
select ppm.personal_payment_method_id
from per_all_assignments_f asg,
pay_personal_payment_methods_f ppm
where asg.payroll_id = p_payroll_id
and ppm.assignment_id = asg.assignment_id
and ppm.org_payment_method_id = p_org_payment_method_id
and ppm.effective_start_date <= asg.effective_end_date
and ppm.effective_end_date >= asg.effective_start_date
and ppm.effective_start_date <= p_validation_end_date
and ppm.effective_end_date >= p_validation_start_date;
select pp.pre_payment_id
from pay_payroll_actions pa,
pay_assignment_actions aa,
pay_pre_payments pp
where pa.payroll_id = p_payroll_id
and aa.payroll_action_id = pa.payroll_action_id
and pp.assignment_action_id = aa.assignment_action_id
and pp.org_payment_method_id = p_org_payment_method_id
and pa.action_type in ('P', 'U')
and pa.effective_date between p_validation_start_date
and p_validation_end_date;
if p_dt_delete_mode in ('ZAP','DELETE') then
--
-- DT code sets the validation dates to the start and end of time when
-- doing a ZAP. This would result in a check over a too wide range of
-- dates so the actual start and end dates of the record being removed are
-- used NB. as the opmu cannot be updated there will only be one record.
if p_dt_delete_mode = 'ZAP' then
v_validation_start_date := p_effective_start_date;
end validate_delete_opmu;
PROCEDURE Insert_Row(X_Rowid IN OUT nocopy VARCHAR2,
X_Org_Pay_Method_Usage_Id IN OUT nocopy NUMBER,
X_Effective_Start_Date DATE,
X_Effective_End_Date IN OUT nocopy DATE,
X_Payroll_Id NUMBER,
X_Org_Payment_Method_Id NUMBER) IS
--
CURSOR C IS SELECT rowid FROM pay_org_pay_method_usages_f
WHERE org_pay_method_usage_id = X_Org_Pay_Method_Usage_Id;
CURSOR C2 IS SELECT pay_org_pay_method_usages_s.nextval
FROM dual;
INSERT INTO pay_org_pay_method_usages_f
(org_pay_method_usage_id,
effective_start_date,
effective_end_date,
payroll_id,
org_payment_method_id)
VALUES
(X_Org_Pay_Method_Usage_Id,
X_Effective_Start_Date,
X_Effective_End_Date,
X_Payroll_Id,
X_Org_Payment_Method_Id);
'pay_org_pay_meth_usages_f_pkg.insert_row');
END Insert_Row;
CURSOR C IS SELECT * FROM pay_org_pay_method_usages_f
WHERE rowid = X_Rowid FOR UPDATE of Org_Pay_Method_Usage_Id
NOWAIT;
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Org_Pay_Method_Usage_Id NUMBER,
X_Effective_Start_Date DATE,
X_Effective_End_Date DATE,
X_Payroll_Id NUMBER,
X_Org_Payment_Method_Id NUMBER) IS
--
BEGIN
--
UPDATE pay_org_pay_method_usages_f
SET org_pay_method_usage_id = X_Org_Pay_Method_Usage_Id,
effective_start_date = X_Effective_Start_Date,
effective_end_date = X_Effective_End_Date,
payroll_id = X_Payroll_Id,
org_payment_method_id = X_Org_Payment_Method_Id
WHERE rowid = X_rowid;
'pay_org_pay_meth_usages_f_pkg.update_row');
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
--
BEGIN
--
DELETE FROM pay_org_pay_method_usages_f
WHERE rowid = X_Rowid;
'pay_org_pay_meth_usages_f_pkg.delete_row');
END Delete_Row;