The following lines contain the word 'select', 'insert', 'update' or 'delete':
cursor c1 is select pay_consolidation_sets_s.nextval
from sys.dual;
cursor csr_name is select null
from pay_consolidation_sets cs
WHERE UPPER(CS.CONSOLIDATION_SET_NAME) =
UPPER(P_CONSOLIDATION_SET_NAME)
AND CS.business_group_id + 0 =
P_BUSINESS_GROUP_ID
AND (P_ROWID IS NULL
OR (P_ROWID IS NOT NULL AND
P_ROWID <> rowidtochar(CS.ROWID)));
procedure check_delete(p_business_group_id in number,
p_consolidation_set_id in number) is
--
cursor csr_pay is select null
FROM PAY_PAYROLLS_F PAY
WHERE PAY.business_group_id + 0 = P_BUSINESS_GROUP_ID
AND PAY.CONSOLIDATION_SET_ID = P_CONSOLIDATION_SET_ID;
cursor csr_payact is select null
FROM PAY_PAYROLL_ACTIONS PAC
WHERE PAC.business_group_id + 0 = P_BUSINESS_GROUP_ID
AND PAC.CONSOLIDATION_SET_ID = P_CONSOLIDATION_SET_ID;
end check_delete;