[Home] [Help]
1: PACKAGE BODY PER_PERIODS_OF_SERVICE_PKG_V2 AS
2: /* $Header: pepds02t.pkb 120.1 2006/05/08 08:44:47 lsilveir noship $ */
3: --
4: -- flemonni
5: -- hire date changes bug # 625423
30: IS
31: --
32: l_date DATE;
33: l_proc VARCHAR2 (100) :=
34: 'per_periods_of_service_pkg_v2.Get_Max_Last_Process_date';
35: --
36: CURSOR cur_get_max_date (p_person_id NUMBER)
37: IS
38: SELECT max(final_process_date)
136: l_record Age_dates;
137: l_min NUMBER;
138: l_max NUMBER;
139: l_proc VARCHAR2 (100) :=
140: 'per_periods_of_service_pkg_v2.Get_Person_Age_Min_Max_Dates';
141: --
142: CURSOR csr_dob
143: ( p_person_id per_all_people_f.person_id%TYPE
144: , p_session_date DATE)
190: )
191: RETURN date
192: IS
193: l_date DATE := null;
194: l_proc VARCHAR2 (100) := 'per_periods_of_service_pkg_v2.Get_atd';
195: --
196: CURSOR csr_atd
197: ( p_person_id per_all_people_f.person_id%type
198: , p_final_process_date date)
220: RETURN DATE
221: IS
222: l_date DATE;
223: l_proc VARCHAR2 (100) :=
224: 'per_periods_of_service_pkg_v2.Get_Current_PDS_Start_Date';
225: --
226: CURSOR csr_pds_start_date
227: (p_person_id per_all_people_f.person_id%TYPE)
228: IS
268: RETURN date
269: IS
270: l_date DATE := NULL;
271: l_proc VARCHAR2 (100) :=
272: 'per_periods_of_service_pkg_v2.Get_Max_Asg_Hire_Date';
273: --
274: CURSOR Get_Max_Asg_Hire_Date
275: ( p_person_id per_all_people_f.person_id%TYPE
276: , p_check_date date)
297: RETURN date
298: IS
299: l_date DATE := NULL;
300: l_proc VARCHAR2 (100) :=
301: 'per_periods_of_service_pkg_v2.Get_Min_Asg_Hire_Date';
302: --
303: CURSOR Get_Min_Asg_Hire_Date
304: ( p_person_id per_all_people_f.person_id%TYPE
305: , p_check_date date)
327: RETURN DATE
328: IS
329: l_date DATE;
330: l_proc VARCHAR2 (100) :=
331: 'per_periods_of_service_pkg_v2.Get_Min_Person_End_Date';
332: --
333: CURSOR csr_get_end_date
334: ( p_person_id per_all_people_f.person_id%TYPE
335: , p_date_from DATE
359: RETURN DATE
360: IS
361: l_date DATE;
362: l_proc VARCHAR2 (100) :=
363: 'per_periods_of_service_pkg_v2.Get_Max_Person_Start_Date';
364: --
365: CURSOR csr_get_start_date
366: ( p_person_id per_all_people_f.person_id%TYPE
367: , p_date_from DATE
391: IS
392: l_boolean BOOLEAN;
393: l_effective_start_date DATE;
394: l_proc VARCHAR2 (100) :=
395: 'per_periods_of_service_pkg_v2.
396: Is_Back_to_Back_Allowed';
397: --
398: CURSOR csr_person_type_change
399: ( p_person_id per_all_people_f.person_id%TYPE
439: l_count NUMBER;
440: l_person_type_id NUMBER;
441: l_pt_changes_exist BOOLEAN := FALSE;
442: l_proc VARCHAR2 (100) :=
443: 'per_periods_of_service_pkg_v2.Set_Date_Using_FPD';
444: --
445: -- + 2
446: -- there must be at least an ex_empp_ record but no other changes
447: --
515: RETURN DATE
516: IS
517: l_date DATE;
518: l_proc VARCHAR2 (100) :=
519: 'per_periods_of_service_pkg_v2.Get_Min_Asg_Accepted';
520: --
521: CURSOR csr_Get_Accepted_Asg
522: (p_person_id per_all_people_f.person_id%TYPE)
523: IS
564: l_min_years NUMBER;
565: l_max_years NUMBER;
566: l_fail_step NUMBER;
567: l_proc VARCHAR2 (100) :=
568: 'per_periods_of_service_pkg_v2.Get_valid_hire_dates';
569: BEGIN
570: hr_utility.set_location('Entering ' || l_proc, 10);
571: --
572: -- nb: hd = hire date
950: l_fpd DATE;
951: l_atd DATE;
952: l_boolean BOOLEAN;
953: l_proc VARCHAR2 (100) :=
954: 'per_periods_of_service_pkg_v2.IsBackToBackContract';
955: --
956: BEGIN
957: hr_utility.set_location('Entering ' || l_proc, 10);
958: l_fpd := Get_Max_Last_process_Date (p_person_id);
975: RETURN FALSE;
976: END IF;
977: END IsBackToBackContract;
978: --
979: END PER_PERIODS_OF_SERVICE_PKG_V2;