[Home] [Help]
181: l_CURRENT_EMPLOYEE_FLAG varchar2(1);
182: l_CURRENT_NPW_FLAG VARCHAR2(1);
183: l_person_type VARCHAR2(10);
184: l_job_id NUMBER ; -- Added for bug 4044057
185: l_ac_termination_date per_periods_of_service.actual_termination_date%type; /*Basebug#4604614 (BaseBug#4118885) */
186:
187: -- This cursor selects all applicable task-level transaction controls
188:
189: CURSOR task_level_tc IS /*2188422*/ /*Bug# 2955795:Removed c_sys_link_func as it is not reqd*/
1827: /* Added procedure check_termination for Bug#4604614 (BaseBug#4118885) */
1828:
1829: procedure check_termination (p_person_id in per_all_people_f.person_id%type,
1830: p_ei_date in pa_expenditure_items_all.expenditure_item_date%type,
1831: x_actual_termination_date out nocopy per_periods_of_service.actual_termination_date%type) IS
1832:
1833: cursor check_periods_of_service is
1834: select null
1835: from per_periods_of_service
1831: x_actual_termination_date out nocopy per_periods_of_service.actual_termination_date%type) IS
1832:
1833: cursor check_periods_of_service is
1834: select null
1835: from per_periods_of_service
1836: where person_id = p_person_id
1837: and p_ei_date between date_start and nvl(actual_termination_date, p_ei_date);
1838:
1839: l_actual_termination_date per_periods_of_service.actual_termination_date%type := NULL;
1835: from per_periods_of_service
1836: where person_id = p_person_id
1837: and p_ei_date between date_start and nvl(actual_termination_date, p_ei_date);
1838:
1839: l_actual_termination_date per_periods_of_service.actual_termination_date%type := NULL;
1840: begin
1841:
1842: open check_periods_of_service;
1843:
1845: if check_periods_of_service%notfound then
1846: begin
1847: select actual_termination_date into l_actual_termination_date from (
1848: select actual_termination_date
1849: from per_periods_of_service
1850: where person_id = p_person_id
1851: and actual_termination_date < p_ei_date
1852: order by actual_termination_date desc)
1853: where rownum = 1;