9: l_action_chk VARCHAR2(1) := 'N';
10: begin
11: SELECT 'Y'
12: INTO l_action_chk
13: FROM sys.dual
14: WHERE exists
15: (SELECT null
16: FROM pay_payroll_actions pac,
17: pay_assignment_actions act
1776: --
1777: cursor future_exists
1778: is
1779: select '1'
1780: from sys.dual
1781: where exists (
1782: select 'future assignment exists'
1783: from per_people_f ppf
1784: where ppf.person_id = p_person_id
2033: end if;
2034: begin
2035: select 'Y'
2036: into l_warn
2037: from dual
2038: where exists
2039: (select null
2040: from pay_element_entries_f ee,
2041: pay_element_links_f el,
2067: order by effective_start_date asc;
2068: --
2069: cursor csr_per_exists(c_person_id number, c_effective_date date) is
2070: select 'Y'
2071: from dual
2072: where exists(
2073: select 1
2074: from per_all_people_f per
2075: where per.person_id = c_person_id
2352: --
2353: -- Fix for bug 3390731 ends here.
2354: --
2355: select per_person_type_usages_s.nextval into l_ptu_nextval
2356: from sys.dual;
2357: l_object_version_number := 1;
2358: --
2359: insert into per_person_type_usages_f(
2360: PERSON_TYPE_USAGE_ID,