[Home] [Help]
29: returned a row or not was not valid
30: because MAX ensures a row is always
31: returned. Changed the test to look for
32: a value in the return variable.
33: 15 Nov 95 N Simpson Removed hr_utility.trace from
34: linked_PIW_end_date because of pragma
35: added to header.
36: 16 Nov 95 N Simpson Renamed parameter call to
37: get_entry_details
350: procedure check_parameters is
351: --
352: begin
353: --
354: hr_utility.trace (l_proc||' p_absence_attendance_id = ' ||
355: to_char (p_absence_attendance_id));
356: --
357: hr_api.mandatory_arg_error (
358: p_api_name => l_proc,
362: end check_parameters;
363: --
364: begin
365: --
366: hr_utility.set_location('Entering:'||l_proc,1);
367: --
368: check_parameters;
369: --
370: open csr_absence_details (p_absence_attendance_id);
383: else
384: close csr_absence_details;
385: end if;
386: --
387: hr_utility.set_location('Leaving :'||l_proc,100);
388: --
389: end get_absence_details;
390: --------------------------------------------------------------------------------
391: function Standard_week_fraction (
406: and p_qualifying_days in (1,2,3,4,5,6,7));
407: --
408: begin
409: --
410: hr_utility.trace (l_proc||' p_qualifying_days = ' ||
411: to_char (p_qualifying_days));
412: --
413: hr_general.assert_condition (all_parameters_valid);
414: --
415: end check_parameters;
416: --
417: begin
418: --
419: hr_utility.set_location('Entering:'||l_proc,1);
420: --
421: check_parameters;
422: --
423: if p_qualifying_days = 1 then standard_fraction := 1;
428: elsif p_qualifying_days = 6 then standard_fraction := 0.167;
429: elsif p_qualifying_days = 7 then standard_fraction := 0.143;
430: end if;
431: --
432: hr_utility.trace (l_proc||' standard_fraction = '||to_char(standard_fraction));
433: hr_utility.set_location('Leaving :'||l_proc,100);
434: --
435: return standard_fraction;
436: --
429: elsif p_qualifying_days = 7 then standard_fraction := 0.143;
430: end if;
431: --
432: hr_utility.trace (l_proc||' standard_fraction = '||to_char(standard_fraction));
433: hr_utility.set_location('Leaving :'||l_proc,100);
434: --
435: return standard_fraction;
436: --
437: end standard_week_fraction;
515: procedure check_parameters is
516: --
517: begin
518: --
519: hr_utility.trace (l_proc||' p_effective_date = ' ||
520: to_char (p_effective_date));
521: --
522: hr_api.mandatory_arg_error (
523: p_api_name => l_proc,
527: end check_parameters;
528: --
529: begin
530: --
531: hr_utility.set_location('Entering:'||l_proc,1);
532: --
533: check_parameters;
534: --
535: if g_SSP_correction.element_type_id is null or
591: fnd_message.raise_error;
592: end if;
593: end if;
594: --
595: hr_utility.set_location('Leaving :'||l_proc,100);
596: --
597: end get_SSP_correction_element;
598: --------------------------------------------------------------------------------
599: procedure update_linked_absence_ids is
621: and transaction.locked = to_char(userenv('sessionid'));
622: --
623: begin
624: --
625: hr_utility.set_location('Entering:'||l_proc,1);
626: --
627: for new_link in csr_missing_links
628: LOOP
629: --
666: end if;
667: end if;
668: end loop;
669: --
670: hr_utility.set_location('Leaving :'||l_proc, 100);
671: --
672: end update_linked_absence_ids;
673: --------------------------------------------------------------------------------
674: --
710: p_sickness_start_date <= p_sickness_end_date and
711: p_sickness_start_date = trunc (p_sickness_start_date) and
712: p_sickness_end_date = trunc (p_sickness_end_date));
713: begin
714: hr_utility.trace(l_proc||' p_person_id = '||to_char (p_person_id));
715: hr_utility.trace(l_proc||' p_sickness_start_date = '||to_char (p_sickness_start_date));
716: hr_utility.trace(l_proc||' p_sickness_end_date = '||to_char (p_sickness_end_date));
717: hr_general.assert_condition (all_parameters_valid);
718: end check_parameters;
711: p_sickness_start_date = trunc (p_sickness_start_date) and
712: p_sickness_end_date = trunc (p_sickness_end_date));
713: begin
714: hr_utility.trace(l_proc||' p_person_id = '||to_char (p_person_id));
715: hr_utility.trace(l_proc||' p_sickness_start_date = '||to_char (p_sickness_start_date));
716: hr_utility.trace(l_proc||' p_sickness_end_date = '||to_char (p_sickness_end_date));
717: hr_general.assert_condition (all_parameters_valid);
718: end check_parameters;
719: begin
712: p_sickness_end_date = trunc (p_sickness_end_date));
713: begin
714: hr_utility.trace(l_proc||' p_person_id = '||to_char (p_person_id));
715: hr_utility.trace(l_proc||' p_sickness_start_date = '||to_char (p_sickness_start_date));
716: hr_utility.trace(l_proc||' p_sickness_end_date = '||to_char (p_sickness_end_date));
717: hr_general.assert_condition (all_parameters_valid);
718: end check_parameters;
719: begin
720: --
717: hr_general.assert_condition (all_parameters_valid);
718: end check_parameters;
719: begin
720: --
721: hr_utility.set_location('Entering:'||l_proc,1);
722: --
723: check_parameters;
724: --
725: -- If the sickness start date is null then this cannot be a sickness absence.
762: end loop;
763: end if;
764: end if;
765: --
766: hr_utility.set_location('Leaving :'||l_proc||', l_PIW_id = '||to_char (l_PIW_id),100);
767: --
768: return l_PIW_id;
769: --
770: end linked_absence_id;
772: --
773: -- Returns TRUE if the parameter absence constitutes a PIW in its own right
774: -- or if it forms part of a contiguous set of rows which together form a PIW
775: --
776: -- NB Do not add hr_utility calls in here because this function is used by
777: -- other functions which must maintain purity level WNDS, WNPS.
778: --
779: function absence_is_a_PIW(p_person_id number,
780: p_sickness_start_date date,
1021: p_absence_attendance_id is not null);
1022: --
1023: begin
1024: --
1025: hr_utility.trace (' p_person_id = '||to_char (p_person_id));
1026: hr_utility.trace (' p_linked_absence_id = '
1027: ||to_char (p_linked_absence_id));
1028: hr_utility.trace (' p_absence_attendance_id = '
1029: ||to_char (p_absence_attendance_id));
1022: --
1023: begin
1024: --
1025: hr_utility.trace (' p_person_id = '||to_char (p_person_id));
1026: hr_utility.trace (' p_linked_absence_id = '
1027: ||to_char (p_linked_absence_id));
1028: hr_utility.trace (' p_absence_attendance_id = '
1029: ||to_char (p_absence_attendance_id));
1030: hr_utility.trace (' p_new_sickness_start_date = '
1024: --
1025: hr_utility.trace (' p_person_id = '||to_char (p_person_id));
1026: hr_utility.trace (' p_linked_absence_id = '
1027: ||to_char (p_linked_absence_id));
1028: hr_utility.trace (' p_absence_attendance_id = '
1029: ||to_char (p_absence_attendance_id));
1030: hr_utility.trace (' p_new_sickness_start_date = '
1031: ||to_char (p_new_sickness_start_date));
1032: hr_utility.trace (' p_new_sickness_end_date = '
1026: hr_utility.trace (' p_linked_absence_id = '
1027: ||to_char (p_linked_absence_id));
1028: hr_utility.trace (' p_absence_attendance_id = '
1029: ||to_char (p_absence_attendance_id));
1030: hr_utility.trace (' p_new_sickness_start_date = '
1031: ||to_char (p_new_sickness_start_date));
1032: hr_utility.trace (' p_new_sickness_end_date = '
1033: ||to_char (p_new_sickness_end_date));
1034: hr_utility.trace (' p_old_sickness_end_date = '
1028: hr_utility.trace (' p_absence_attendance_id = '
1029: ||to_char (p_absence_attendance_id));
1030: hr_utility.trace (' p_new_sickness_start_date = '
1031: ||to_char (p_new_sickness_start_date));
1032: hr_utility.trace (' p_new_sickness_end_date = '
1033: ||to_char (p_new_sickness_end_date));
1034: hr_utility.trace (' p_old_sickness_end_date = '
1035: ||to_char (p_old_sickness_end_date));
1036: --
1030: hr_utility.trace (' p_new_sickness_start_date = '
1031: ||to_char (p_new_sickness_start_date));
1032: hr_utility.trace (' p_new_sickness_end_date = '
1033: ||to_char (p_new_sickness_end_date));
1034: hr_utility.trace (' p_old_sickness_end_date = '
1035: ||to_char (p_old_sickness_end_date));
1036: --
1037: hr_general.assert_condition (all_parameters_valid);
1038: --
1039: end check_parameters;
1040: --
1041: begin
1042: --
1043: hr_utility.set_location('Entering:'||l_proc,1);
1044: --
1045: check_parameters;
1046: --
1047: open csr_next_absence;
1075: else
1076: close csr_next_absence;
1077: end if;
1078: --
1079: hr_utility.set_location('Leaving :'||l_proc,100);
1080: --
1081: exception
1082: --
1083: when PIW_broken then
1146: and p_linked_absence_id <> p_absence_attendance_id);
1147: --
1148: begin
1149: --
1150: hr_utility.trace (l_proc||' p_sickness_start_date = '
1151: ||to_char (p_sickness_start_date));
1152: hr_utility.trace (l_proc||' p_sickness_end_date = '
1153: ||to_char (p_sickness_end_date));
1154: hr_utility.trace (l_proc||' p_linked_absence_id = '
1148: begin
1149: --
1150: hr_utility.trace (l_proc||' p_sickness_start_date = '
1151: ||to_char (p_sickness_start_date));
1152: hr_utility.trace (l_proc||' p_sickness_end_date = '
1153: ||to_char (p_sickness_end_date));
1154: hr_utility.trace (l_proc||' p_linked_absence_id = '
1155: ||to_char (p_linked_absence_id));
1156: hr_utility.trace (l_proc||' p_absence_attendance_id = '
1150: hr_utility.trace (l_proc||' p_sickness_start_date = '
1151: ||to_char (p_sickness_start_date));
1152: hr_utility.trace (l_proc||' p_sickness_end_date = '
1153: ||to_char (p_sickness_end_date));
1154: hr_utility.trace (l_proc||' p_linked_absence_id = '
1155: ||to_char (p_linked_absence_id));
1156: hr_utility.trace (l_proc||' p_absence_attendance_id = '
1157: ||to_char (p_absence_attendance_id));
1158: --
1152: hr_utility.trace (l_proc||' p_sickness_end_date = '
1153: ||to_char (p_sickness_end_date));
1154: hr_utility.trace (l_proc||' p_linked_absence_id = '
1155: ||to_char (p_linked_absence_id));
1156: hr_utility.trace (l_proc||' p_absence_attendance_id = '
1157: ||to_char (p_absence_attendance_id));
1158: --
1159: hr_general.assert_condition (all_parameters_valid);
1160: --
1161: end check_parameters;
1162: --
1163: begin
1164: --
1165: hr_utility.set_location('Entering:'||l_proc,1);
1166: --
1167: check_parameters;
1168: --
1169: if SSP_is_installed and p_sickness_start_date is not null
1222: end if;
1223: end if;
1224: end if;
1225: --
1226: hr_utility.set_location('Leaving :'||l_proc,100);
1227: --
1228: exception
1229: when break_in_PIW then
1230: --
1233: -- result in a linked Period of Incapacity for Work (PIW) being broken. To
1234: -- get round this, you must first remove all the later sickness absences in
1235: -- the same PIW."
1236: --
1237: hr_utility.set_location('Leaving :'||l_proc||', Error',999);
1238: fnd_message.set_name ('SSP','SSP_35037_PIW_BROKEN');
1239: fnd_message.raise_error;
1240: --
1241: end check_for_break_in_linked_PIW;
1878: and p_business_group_id is not null);
1879: --
1880: begin
1881: --
1882: hr_utility.trace(' p_period_from: '||to_char(p_period_from));
1883: hr_utility.trace(' p_period_to: '||to_char(p_period_to));
1884: hr_utility.trace(' p_person_id: '||to_char(p_person_id));
1885: hr_utility.trace(' p_business_group_id: '||to_char(p_business_group_id));
1886: --
1879: --
1880: begin
1881: --
1882: hr_utility.trace(' p_period_from: '||to_char(p_period_from));
1883: hr_utility.trace(' p_period_to: '||to_char(p_period_to));
1884: hr_utility.trace(' p_person_id: '||to_char(p_person_id));
1885: hr_utility.trace(' p_business_group_id: '||to_char(p_business_group_id));
1886: --
1887: hr_general.assert_condition (all_parameters_valid);
1880: begin
1881: --
1882: hr_utility.trace(' p_period_from: '||to_char(p_period_from));
1883: hr_utility.trace(' p_period_to: '||to_char(p_period_to));
1884: hr_utility.trace(' p_person_id: '||to_char(p_person_id));
1885: hr_utility.trace(' p_business_group_id: '||to_char(p_business_group_id));
1886: --
1887: hr_general.assert_condition (all_parameters_valid);
1888: --
1881: --
1882: hr_utility.trace(' p_period_from: '||to_char(p_period_from));
1883: hr_utility.trace(' p_period_to: '||to_char(p_period_to));
1884: hr_utility.trace(' p_person_id: '||to_char(p_person_id));
1885: hr_utility.trace(' p_business_group_id: '||to_char(p_business_group_id));
1886: --
1887: hr_general.assert_condition (all_parameters_valid);
1888: --
1889: end check_parameters;
1889: end check_parameters;
1890: --
1891: begin
1892: --
1893: hr_utility.set_location('Entering:'||l_proc,1);
1894: --
1895: check_parameters;
1896: --
1897: -- Look for a personal SSP qualifying pattern.
2023: --
2024: -- Having found the purpose usage, determine the number of qualifying days
2025: -- in the period according to the appropriate calendar
2026: --
2027: hr_utility.trace('PERSON PATTERN USAGE ID: '||l_person_purpose_usage_id);
2028: hr_utility.trace('PERSON PRIMARY KEY VAL: '||l_person_primary_key_value);
2029: hr_utility.trace('BG PATTERN USAGE ID: '||l_bg_purpose_usage_id);
2030: hr_utility.trace('BG PRIMARY KEY VALUE: '||l_bg_primary_key_value);
2031: hr_utility.trace('PERIOD FROM/TO: '||p_period_from||' -> '||p_period_to);
2024: -- Having found the purpose usage, determine the number of qualifying days
2025: -- in the period according to the appropriate calendar
2026: --
2027: hr_utility.trace('PERSON PATTERN USAGE ID: '||l_person_purpose_usage_id);
2028: hr_utility.trace('PERSON PRIMARY KEY VAL: '||l_person_primary_key_value);
2029: hr_utility.trace('BG PATTERN USAGE ID: '||l_bg_purpose_usage_id);
2030: hr_utility.trace('BG PRIMARY KEY VALUE: '||l_bg_primary_key_value);
2031: hr_utility.trace('PERIOD FROM/TO: '||p_period_from||' -> '||p_period_to);
2032: --
2025: -- in the period according to the appropriate calendar
2026: --
2027: hr_utility.trace('PERSON PATTERN USAGE ID: '||l_person_purpose_usage_id);
2028: hr_utility.trace('PERSON PRIMARY KEY VAL: '||l_person_primary_key_value);
2029: hr_utility.trace('BG PATTERN USAGE ID: '||l_bg_purpose_usage_id);
2030: hr_utility.trace('BG PRIMARY KEY VALUE: '||l_bg_primary_key_value);
2031: hr_utility.trace('PERIOD FROM/TO: '||p_period_from||' -> '||p_period_to);
2032: --
2033: -- call new overloaded version of hr_calendar_pkg.total_availability
2026: --
2027: hr_utility.trace('PERSON PATTERN USAGE ID: '||l_person_purpose_usage_id);
2028: hr_utility.trace('PERSON PRIMARY KEY VAL: '||l_person_primary_key_value);
2029: hr_utility.trace('BG PATTERN USAGE ID: '||l_bg_purpose_usage_id);
2030: hr_utility.trace('BG PRIMARY KEY VALUE: '||l_bg_primary_key_value);
2031: hr_utility.trace('PERIOD FROM/TO: '||p_period_from||' -> '||p_period_to);
2032: --
2033: -- call new overloaded version of hr_calendar_pkg.total_availability
2034: --
2027: hr_utility.trace('PERSON PATTERN USAGE ID: '||l_person_purpose_usage_id);
2028: hr_utility.trace('PERSON PRIMARY KEY VAL: '||l_person_primary_key_value);
2029: hr_utility.trace('BG PATTERN USAGE ID: '||l_bg_purpose_usage_id);
2030: hr_utility.trace('BG PRIMARY KEY VALUE: '||l_bg_primary_key_value);
2031: hr_utility.trace('PERIOD FROM/TO: '||p_period_from||' -> '||p_period_to);
2032: --
2033: -- call new overloaded version of hr_calendar_pkg.total_availability
2034: --
2035: l_qualifying_days := hr_calendar_pkg.total_availability (
2041: p_period_from => p_period_from,
2042: p_period_to => p_period_to + 1,
2043: p_processing_level => p_processing_level);
2044: --
2045: hr_utility.set_location('Leaving :'||l_proc||
2046: '. Qual days: '||to_char(l_qualifying_days),100);
2047: --
2048: return l_qualifying_days;
2049: --
2049: --
2050: exception
2051: --
2052: when no_SSP_pattern then
2053: hr_utility.set_location('Leaving :'||l_proc||', Error',999);
2054: fnd_message.set_name ('SSP','SSP_35048_NO_SSP_QUAL_PATTERN');
2055: fnd_message.raise_error;
2056: --
2057: end qualifying_days_in_period;
2070: l_proc varchar2 (72) := g_package||'SSP_is_installed';
2071: --
2072: begin
2073: --
2074: hr_utility.set_location('Entering:'||l_proc,1);
2075: --
2076: if g_SSP_is_installed is null
2077: then
2078: -- We need to determine if SSP is installed.
2106:
2107: exception
2108:
2109: when too_many_rows then
2110: hr_utility.trace('Error: more than 1 row on FND_APPLICATION table for SSP');
2111:
2112: when others then
2113: raise;
2114:
2117: end if;
2118: --
2119: if g_SSP_is_installed
2120: then
2121: hr_utility.trace('SSP is installed');
2122: else
2123: hr_utility.trace('SSP is NOT installed');
2124: end if;
2125: --
2119: if g_SSP_is_installed
2120: then
2121: hr_utility.trace('SSP is installed');
2122: else
2123: hr_utility.trace('SSP is NOT installed');
2124: end if;
2125: --
2126: hr_utility.set_location('Leaving :'||l_proc,100);
2127: --
2122: else
2123: hr_utility.trace('SSP is NOT installed');
2124: end if;
2125: --
2126: hr_utility.set_location('Leaving :'||l_proc,100);
2127: --
2128: return g_SSP_is_installed;
2129: --
2130: end SSP_is_installed;
2174: and p_withhold_to = trunc (p_withhold_to)
2175: and p_withhold_from <= p_withhold_to
2176: and p_reason is not null);
2177: begin
2178: hr_utility.trace(' p_reason: ' || p_reason);
2179: hr_utility.trace(' withhold_from/to: ' ||
2180: to_char(p_withhold_from)||', '||to_char(p_withhold_to));
2181: hr_general.assert_condition (all_parameters_valid);
2182: end check_parameters;
2175: and p_withhold_from <= p_withhold_to
2176: and p_reason is not null);
2177: begin
2178: hr_utility.trace(' p_reason: ' || p_reason);
2179: hr_utility.trace(' withhold_from/to: ' ||
2180: to_char(p_withhold_from)||', '||to_char(p_withhold_to));
2181: hr_general.assert_condition (all_parameters_valid);
2182: end check_parameters;
2183: --
2181: hr_general.assert_condition (all_parameters_valid);
2182: end check_parameters;
2183: --
2184: begin
2185: hr_utility.set_location('Entering:'||l_proc,1);
2186: --
2187: check_parameters;
2188: --
2189: l_reason_id := ssp_smp_support_pkg.withholding_reason_id(
2211: --
2212: p_overridden := TRUE;
2213: end if;
2214: --
2215: hr_utility.set_location('Leaving :'||l_proc,100);
2216: --
2217: end create_stoppage;
2218: --
2219:
2238: and person_id = p_absence.person_id
2239: and sickness_start_date is not null
2240: order by sickness_end_date DESC;
2241: begin
2242: hr_utility.set_location('Entering:'||l_proc,1);
2243: --
2244: hr_utility.trace('Age at PIW start date: '||to_char(Age_at_PIW_start_date));
2245: --
2246: -- Calculate the absentee's age as at the PIW start date
2240: order by sickness_end_date DESC;
2241: begin
2242: hr_utility.set_location('Entering:'||l_proc,1);
2243: --
2244: hr_utility.trace('Age at PIW start date: '||to_char(Age_at_PIW_start_date));
2245: --
2246: -- Calculate the absentee's age as at the PIW start date
2247: --
2248: if age_at_PIW_start_date >= g_SSP_legislation.maximum_age then
2262: raise employee_too_old;
2263: end if;
2264: end if;
2265: --
2266: hr_utility.set_location('Leaving :'||l_proc,100);
2267: --
2268: end check_age;
2269: --
2270: /*--------------------------------------------------*/
2275: l_proc varchar2(72) := g_package||'check_death';
2276: l_stoppage_overridden boolean := FALSE;
2277: begin
2278: --
2279: hr_utility.set_location('Entering:'||l_proc,1);
2280: --
2281: -- Bug 2984458 to display 'Employee Died' when the employee is
2282: -- deceased
2283: if absentee.actual_termination_date is not null and
2286: p_reason => 'Employee died',
2287: p_overridden => l_stoppage_overridden);
2288: end if;
2289: --
2290: hr_utility.set_location('Leaving :'||l_proc,100);
2291: --
2292: end check_death;
2293: --
2294: /*------------------------------------------------*/
2310: and withhold_to is null;
2311: --
2312: begin
2313: --
2314: hr_utility.set_location('Entering:'||l_proc,1);
2315: --
2316: open csr_last_entitled_day;
2317: fetch csr_last_entitled_day into last_entitled_day;
2318: close csr_last_entitled_day;
2322: --
2323: last_entitled_day := least (last_entitled_day,max_PIW_end_date -1,
2324: absentee.actual_termination_date);
2325: --
2326: hr_utility.set_location('Leaving :'||l_proc,100);
2327: --
2328: end get_last_entitled_day;
2329: --
2330: /*----------------------------------------------------------------*/
2446: all_parameters_valid constant boolean
2447: :=(p_effective_date is not null and
2448: p_effective_date = trunc (p_effective_date));
2449: begin
2450: hr_utility.trace (l_proc||' p_effective_date = '||to_char (p_effective_date));
2451: --
2452: hr_general.assert_condition (all_parameters_valid);
2453: --
2454: end check_parameters;
2453: --
2454: end check_parameters;
2455: --
2456: begin
2457: hr_utility.set_location('Entering:'||l_proc,1);
2458: check_parameters;
2459: if rate_start_date is null or
2460: p_effective_date NOT between rate_start_date and rate_end_date then
2461: --
2473: if l_rate is null then
2474: raise cannot_get_SSP_rate;
2475: end if;
2476: --
2477: hr_utility.set_location('Leaving :'||l_proc,100);
2478: --
2479: return l_rate;
2480: --
2481: exception
2479: return l_rate;
2480: --
2481: exception
2482: when cannot_get_SSP_rate then
2483: hr_utility.set_location('Leaving :'||l_proc||', Error',999);
2484: fnd_message.set_name ('SSP','SSP_35079_NO_SSP_RATE');
2485: fnd_message.set_token ('EFFECTIVE_DATE',p_effective_date);
2486: fnd_message.raise_error;
2487: end SSP_rate;
2506: p_start_date = trunc(p_start_date) and
2507: p_end_date = trunc(p_end_date) and
2508: p_start_date <= p_end_date);
2509: begin
2510: hr_utility.trace (' p_start_date = '||to_char (p_start_date));
2511: hr_utility.trace (' p_end_date = '||to_char (p_end_date));
2512: hr_utility.trace (' p_PIW_id = '||to_char (p_PIW_id));
2513: hr_general.assert_condition (all_parameters_valid);
2514: end check_parameters;
2507: p_end_date = trunc(p_end_date) and
2508: p_start_date <= p_end_date);
2509: begin
2510: hr_utility.trace (' p_start_date = '||to_char (p_start_date));
2511: hr_utility.trace (' p_end_date = '||to_char (p_end_date));
2512: hr_utility.trace (' p_PIW_id = '||to_char (p_PIW_id));
2513: hr_general.assert_condition (all_parameters_valid);
2514: end check_parameters;
2515: begin
2508: p_start_date <= p_end_date);
2509: begin
2510: hr_utility.trace (' p_start_date = '||to_char (p_start_date));
2511: hr_utility.trace (' p_end_date = '||to_char (p_end_date));
2512: hr_utility.trace (' p_PIW_id = '||to_char (p_PIW_id));
2513: hr_general.assert_condition (all_parameters_valid);
2514: end check_parameters;
2515: begin
2516: hr_utility.set_location('Entering:'||l_proc,1);
2512: hr_utility.trace (' p_PIW_id = '||to_char (p_PIW_id));
2513: hr_general.assert_condition (all_parameters_valid);
2514: end check_parameters;
2515: begin
2516: hr_utility.set_location('Entering:'||l_proc,1);
2517: --
2518: check_parameters;
2519: --
2520: -- moved inside loop for bug 886707
2568: --
2569: l_this_day := l_this_day + 1;
2570: end loop;
2571: --
2572: hr_utility.trace('Stopped Days in Period:'||
2573: to_char(l_stopped_days_in_period));
2574: hr_utility.set_location('Leaving :'||l_proc,100);
2575: --
2576: return l_stopped_days_in_period;
2570: end loop;
2571: --
2572: hr_utility.trace('Stopped Days in Period:'||
2573: to_char(l_stopped_days_in_period));
2574: hr_utility.set_location('Leaving :'||l_proc,100);
2575: --
2576: return l_stopped_days_in_period;
2577: --
2578: end stopped_days;
2604: p_sickness_end_date = trunc(p_sickness_end_date) and
2605: p_pregnancy_related_illness is not null and
2606: p_pregnancy_related_illness in ('Y','N'));
2607: begin
2608: hr_utility.trace(l_proc||' p_sickness_start_date = '
2609: ||to_char (p_sickness_start_date));
2610: hr_utility.trace(l_proc||' p_sickness_end_date = '
2611: ||to_char (p_sickness_end_date));
2612: hr_utility.trace(l_proc||' p_pregnancy_related_illness = '
2606: p_pregnancy_related_illness in ('Y','N'));
2607: begin
2608: hr_utility.trace(l_proc||' p_sickness_start_date = '
2609: ||to_char (p_sickness_start_date));
2610: hr_utility.trace(l_proc||' p_sickness_end_date = '
2611: ||to_char (p_sickness_end_date));
2612: hr_utility.trace(l_proc||' p_pregnancy_related_illness = '
2613: ||p_pregnancy_related_illness);
2614: hr_general.assert_condition (all_parameters_valid);
2608: hr_utility.trace(l_proc||' p_sickness_start_date = '
2609: ||to_char (p_sickness_start_date));
2610: hr_utility.trace(l_proc||' p_sickness_end_date = '
2611: ||to_char (p_sickness_end_date));
2612: hr_utility.trace(l_proc||' p_pregnancy_related_illness = '
2613: ||p_pregnancy_related_illness);
2614: hr_general.assert_condition (all_parameters_valid);
2615: end check_parameters;
2616: begin
2613: ||p_pregnancy_related_illness);
2614: hr_general.assert_condition (all_parameters_valid);
2615: end check_parameters;
2616: begin
2617: hr_utility.set_location('Entering:'||l_proc,1);
2618: --
2619: check_parameters;
2620: --
2621: for maternity in maternity_details loop
2634: if p_pregnancy_related_illness = 'Y' and
2635: (maternity.EWC - sickness_trigger_weeks) <= p_sickness_end_date and
2636: maternity.EWC >= p_sickness_start_date then
2637: --
2638: hr_utility.trace(l_proc||'Condition 1 true');
2639: --
2640: -- the illness starts before sickness trigger weeks
2641: -- (6 weeks before 06-APR-2003, four weeks after)
2642: -- prior to the EWC
2642: -- prior to the EWC
2643: if (maternity.EWC - sickness_trigger_weeks) >=
2644: p_sickness_start_date then
2645: --
2646: hr_utility.trace(l_proc||'Condition 2 true');
2647: --
2648: -- there is no recored start_date OR
2649: -- the start date is later than
2650: -- the fourth or sixth week prior to the EWC
2658: -- sixth week prior to the EWC
2659: if maternity.due_date <
2660: fnd_date.canonical_to_date('2003/04/06 00:00:00') then
2661: --
2662: hr_utility.trace(l_proc||'Condition 3 true');
2663: --
2664: if rtrim (to_char (maternity.EWC, 'DAY')) = l_sunday then
2665: hr_utility.trace(l_proc||'Condition 4 true');
2666: maternity.MPP_start_date:=
2661: --
2662: hr_utility.trace(l_proc||'Condition 3 true');
2663: --
2664: if rtrim (to_char (maternity.EWC, 'DAY')) = l_sunday then
2665: hr_utility.trace(l_proc||'Condition 4 true');
2666: maternity.MPP_start_date:=
2667: (maternity.EWC - sickness_trigger_weeks);
2668: else
2669: --
2666: maternity.MPP_start_date:=
2667: (maternity.EWC - sickness_trigger_weeks);
2668: else
2669: --
2670: hr_utility.trace(l_proc||'Condition 4 untrue');
2671: --
2672: maternity.MPP_start_date :=
2673: next_day((maternity.EWC - sickness_trigger_weeks), l_sunday);
2674: end if;
2691: maternity.MPP_start_date := (maternity.EWC - sickness_trigger_weeks) + 1;
2692: end if;
2693: end if;
2694: --
2695: hr_utility.trace(l_proc||'About to update MPP Start Date');
2696: ssp_mat_upd.upd(p_maternity_id => maternity.maternity_id,
2697: p_MPP_start_date => maternity.MPP_start_date,
2698: p_object_version_number => maternity.object_version_number);
2699: hr_utility.trace(l_proc||'Back from updating MPP Start Date');
2695: hr_utility.trace(l_proc||'About to update MPP Start Date');
2696: ssp_mat_upd.upd(p_maternity_id => maternity.maternity_id,
2697: p_MPP_start_date => maternity.MPP_start_date,
2698: p_object_version_number => maternity.object_version_number);
2699: hr_utility.trace(l_proc||'Back from updating MPP Start Date');
2700: end if;
2701: else
2702: if maternity.due_date < fnd_date.canonical_to_date('2003/04/06 00:00:00') then
2703: --
2703: --
2704: -- Start the MPP on the first Sunday of the sickness
2705: -- as due date before 06-APR-2003
2706: --
2707: hr_utility.trace(l_proc||'Condition 2 untrue');
2708: if rtrim(to_char (p_sickness_start_date,'DAY')) = l_sunday then
2709: hr_utility.trace(l_proc||'Condition 5 true');
2710: first_sunday_of_sickness := p_sickness_start_date;
2711: else
2705: -- as due date before 06-APR-2003
2706: --
2707: hr_utility.trace(l_proc||'Condition 2 untrue');
2708: if rtrim(to_char (p_sickness_start_date,'DAY')) = l_sunday then
2709: hr_utility.trace(l_proc||'Condition 5 true');
2710: first_sunday_of_sickness := p_sickness_start_date;
2711: else
2712: hr_utility.trace(l_proc||'Condition 5 untrue');
2713: first_sunday_of_sickness := next_day(p_sickness_start_date,l_sunday);
2708: if rtrim(to_char (p_sickness_start_date,'DAY')) = l_sunday then
2709: hr_utility.trace(l_proc||'Condition 5 true');
2710: first_sunday_of_sickness := p_sickness_start_date;
2711: else
2712: hr_utility.trace(l_proc||'Condition 5 untrue');
2713: first_sunday_of_sickness := next_day(p_sickness_start_date,l_sunday);
2714: end if;
2715: --
2716: -- there is no recorded MPP start date or
2717: -- the MPP start date is later than the first Sunday
2718: if (maternity.MPP_start_date is null or
2719: maternity.MPP_start_date > first_sunday_of_sickness) then
2720: --
2721: hr_utility.trace(l_proc||'Condition 6 true');
2722: --
2723: -- Update the recorded MPP start date.
2724: --
2725: maternity.MPP_start_date := first_sunday_of_sickness;
2723: -- Update the recorded MPP start date.
2724: --
2725: maternity.MPP_start_date := first_sunday_of_sickness;
2726: --
2727: hr_utility.trace(l_proc||'About to update MPP Start Date');
2728: ssp_mat_upd.upd (p_maternity_id => maternity.maternity_id,
2729: p_MPP_start_date => maternity.MPP_start_date,
2730: p_object_version_number=> maternity.object_version_number);
2731: hr_utility.trace(l_proc||'Back from updating MPP Start Date');
2727: hr_utility.trace(l_proc||'About to update MPP Start Date');
2728: ssp_mat_upd.upd (p_maternity_id => maternity.maternity_id,
2729: p_MPP_start_date => maternity.MPP_start_date,
2730: p_object_version_number=> maternity.object_version_number);
2731: hr_utility.trace(l_proc||'Back from updating MPP Start Date');
2732: end if;
2733: else
2734: --
2735: -- Due date after 06-APR-2003, therefore MPP starts
2751: else
2752: maternity.MPP_start_date:= p_sickness_start_date + 1;
2753: end if;
2754: --
2755: hr_utility.trace(l_proc||'About to update MPP Start Date');
2756: ssp_mat_upd.upd (p_maternity_id => maternity.maternity_id,
2757: p_MPP_start_date => maternity.MPP_start_date,
2758: p_object_version_number => maternity.object_version_number);
2759: hr_utility.trace(l_proc||'Back from updating MPP Start Date');
2755: hr_utility.trace(l_proc||'About to update MPP Start Date');
2756: ssp_mat_upd.upd (p_maternity_id => maternity.maternity_id,
2757: p_MPP_start_date => maternity.MPP_start_date,
2758: p_object_version_number => maternity.object_version_number);
2759: hr_utility.trace(l_proc||'Back from updating MPP Start Date');
2760: end if;
2761: end if;
2762: end if;
2763: end if;
2764: --
2765: start_disqualifying_period := maternity.MPP_start_date;
2766: --
2767: if start_disqualifying_period is not null then
2768: hr_utility.trace(l_proc||'Condition 7 true');
2769: begin
2770: --
2771: -- The disqualifying period lasts for the period of time
2772: -- allowed by legislation for the Maternity Pay Period
2774: -- to days before deriving end date).
2775: --
2776: end_disqualifying_period := start_disqualifying_period
2777: + (l_SMP_element.Maximum_MPP * 7) -1;
2778: hr_utility.trace('start_disqualifying_period : '||
2779: fnd_date.date_to_canonical(start_disqualifying_period));
2780: hr_utility.trace('end_disqualifying_period : '||
2781: fnd_date.date_to_canonical(end_disqualifying_period));
2782: --
2776: end_disqualifying_period := start_disqualifying_period
2777: + (l_SMP_element.Maximum_MPP * 7) -1;
2778: hr_utility.trace('start_disqualifying_period : '||
2779: fnd_date.date_to_canonical(start_disqualifying_period));
2780: hr_utility.trace('end_disqualifying_period : '||
2781: fnd_date.date_to_canonical(end_disqualifying_period));
2782: --
2783: exception
2784: when attempt_to_add_to_end_of_time then
2813: end if;
2814: end if;
2815: end loop;
2816: --
2817: hr_utility.set_location('Leaving :'||l_proc,100);
2818: --
2819: end check_disqualifying_period;
2820: --
2821: procedure check_SSP1L is
2821: procedure check_SSP1L is
2822: l_proc varchar2 (72) := g_package||'check_SSP1L';
2823: begin
2824: --
2825: hr_utility.set_location('Entering:'||l_proc,1);
2826: --
2827: -- take prior employment SSP into account in total liability.
2828: if (PIW_start_date - absentee.prior_employment_SSP_paid_to)
2829: <= g_SSP_legislation.linking_period_days then
2827: -- take prior employment SSP into account in total liability.
2828: if (PIW_start_date - absentee.prior_employment_SSP_paid_to)
2829: <= g_SSP_legislation.linking_period_days then
2830: --
2831: hr_utility.trace('There is prior employment SSP');
2832: --
2833: total_SSP_weeks := absentee.prior_employment_SSP_weeks;
2834: end if;
2835: --
2832: --
2833: total_SSP_weeks := absentee.prior_employment_SSP_weeks;
2834: end if;
2835: --
2836: hr_utility.set_location('Leaving :'||l_proc,100);
2837: --
2838: end check_SSP1L;
2839: --
2840: function check_emp_too_old(p_start date,
2865: end check_emp_too_old;
2866: --
2867: begin
2868: -- Start of do_PIW_calculations
2869: hr_utility.set_location ('Entering:'||l_proc,1);
2870: --
2871: open ssp_SMP_pkg.csr_SMP_element_details(p_effective_date => PIW_start_date);
2872: fetch ssp_SMP_pkg.csr_SMP_element_details into l_SMP_element;
2873: close ssp_SMP_pkg.csr_SMP_element_details;
2889: l_max_absence_start_date := each_abs_tab.sickness_start_date;
2890: l_max_absence_end_date := each_abs_tab.sickness_end_date;
2891: l_nos_absences := l_nos_absences + 1;
2892: --
2893: hr_utility.trace('PIWl: dates: ' || to_char(l_max_absence_start_date)
2894: || ' -> ' || to_char(l_max_absence_end_date));
2895: --
2896: absence_table.t_sickness_start_date(l_nos_absences) :=
2897: each_abs_tab.sickness_start_date;
2916: absence_table.t_absence_attendance_id(each_absence);
2917: l_pregnancy_related_illness :=
2918: absence_table.t_pregnancy_related_illness(each_absence);
2919: --
2920: hr_utility.trace('In PIW Loop');
2921: hr_utility.trace(' for sickness dated: ' ||
2922: to_char(l_sickness_start_date) || ' -> ' ||
2923: to_char(l_sickness_end_date));
2924: --
2917: l_pregnancy_related_illness :=
2918: absence_table.t_pregnancy_related_illness(each_absence);
2919: --
2920: hr_utility.trace('In PIW Loop');
2921: hr_utility.trace(' for sickness dated: ' ||
2922: to_char(l_sickness_start_date) || ' -> ' ||
2923: to_char(l_sickness_end_date));
2924: --
2925: if ssp_ssp_pkg.absence_is_a_PIW (p_person_id => p_absence.person_id,
3001: else
3002: cal_end_date := ssp_smp_support_pkg.end_of_week(l_max_absence_end_date);
3003: end if;
3004: --
3005: hr_utility.trace('Calendar end date: '||to_char(cal_end_date));
3006: cal_start_date := ssp_smp_support_pkg.start_of_week(nvl(PIW_start_date, start_date));
3007: --
3008: if cal_end_date > max_cal_end_date or
3009: cal_start_date < min_cal_start_date then
3047: l_max_withheld_to := each_stoppage.withhold_to;
3048: end if;
3049: end loop;
3050: --
3051: hr_utility.trace('No of stoppages between ' ||
3052: to_char(l_min_withheld_from) ||
3053: ' and ' || to_char(l_max_withheld_to) ||
3054: ': ' || to_char(l_nos_stoppages));
3055: --
3067: N := N + 1;
3068: --
3069: -- Find number of qualifying days in the current calendar week.
3070: --
3071: hr_utility.trace('Finding qualifying days in current week...');
3072: qualifying_days := greatest (1,qualifying_days_in_period(
3073: ssp_smp_support_pkg.start_of_week(start_date),
3074: ssp_smp_support_pkg.end_of_week(start_date),
3075: p_absence.person_id,
3205: --
3206: -------------------------------------------------
3207: -- Trace the calculations for debugging purposes
3208: begin
3209: hr_utility.trace ('----------------------------');
3210: hr_utility.trace (l_proc||'Entry number ' ||to_char (N));
3211: hr_utility.trace (l_proc||' Payroll period '||to_char (new_entry.effective_start_date (N)) ||' to '
3212: ||to_char (new_entry.effective_end_date (N)));
3213: hr_utility.trace (l_proc||' from = '||to_char (new_entry.date_from (N))||' to = ' ||to_char ( new_entry.date_to (N)));
3206: -------------------------------------------------
3207: -- Trace the calculations for debugging purposes
3208: begin
3209: hr_utility.trace ('----------------------------');
3210: hr_utility.trace (l_proc||'Entry number ' ||to_char (N));
3211: hr_utility.trace (l_proc||' Payroll period '||to_char (new_entry.effective_start_date (N)) ||' to '
3212: ||to_char (new_entry.effective_end_date (N)));
3213: hr_utility.trace (l_proc||' from = '||to_char (new_entry.date_from (N))||' to = ' ||to_char ( new_entry.date_to (N)));
3214: hr_utility.trace (l_proc||' qualifying_days = '||to_char (new_entry.qualifying_days (N)));
3207: -- Trace the calculations for debugging purposes
3208: begin
3209: hr_utility.trace ('----------------------------');
3210: hr_utility.trace (l_proc||'Entry number ' ||to_char (N));
3211: hr_utility.trace (l_proc||' Payroll period '||to_char (new_entry.effective_start_date (N)) ||' to '
3212: ||to_char (new_entry.effective_end_date (N)));
3213: hr_utility.trace (l_proc||' from = '||to_char (new_entry.date_from (N))||' to = ' ||to_char ( new_entry.date_to (N)));
3214: hr_utility.trace (l_proc||' qualifying_days = '||to_char (new_entry.qualifying_days (N)));
3215: hr_utility.trace (l_proc||' SSP_weeks = '||to_char (new_entry.SSP_weeks (N)));
3209: hr_utility.trace ('----------------------------');
3210: hr_utility.trace (l_proc||'Entry number ' ||to_char (N));
3211: hr_utility.trace (l_proc||' Payroll period '||to_char (new_entry.effective_start_date (N)) ||' to '
3212: ||to_char (new_entry.effective_end_date (N)));
3213: hr_utility.trace (l_proc||' from = '||to_char (new_entry.date_from (N))||' to = ' ||to_char ( new_entry.date_to (N)));
3214: hr_utility.trace (l_proc||' qualifying_days = '||to_char (new_entry.qualifying_days (N)));
3215: hr_utility.trace (l_proc||' SSP_weeks = '||to_char (new_entry.SSP_weeks (N)));
3216: hr_utility.trace (l_proc||' SSP_days_due = '||to_char (new_entry.SSP_days_due (N)));
3217: hr_utility.trace (l_proc||' withheld_days = '||to_char (new_entry.withheld_days (N)));
3210: hr_utility.trace (l_proc||'Entry number ' ||to_char (N));
3211: hr_utility.trace (l_proc||' Payroll period '||to_char (new_entry.effective_start_date (N)) ||' to '
3212: ||to_char (new_entry.effective_end_date (N)));
3213: hr_utility.trace (l_proc||' from = '||to_char (new_entry.date_from (N))||' to = ' ||to_char ( new_entry.date_to (N)));
3214: hr_utility.trace (l_proc||' qualifying_days = '||to_char (new_entry.qualifying_days (N)));
3215: hr_utility.trace (l_proc||' SSP_weeks = '||to_char (new_entry.SSP_weeks (N)));
3216: hr_utility.trace (l_proc||' SSP_days_due = '||to_char (new_entry.SSP_days_due (N)));
3217: hr_utility.trace (l_proc||' withheld_days = '||to_char (new_entry.withheld_days (N)));
3218: hr_utility.trace (l_proc||' rate = '||to_char (new_entry.rate (N)));
3211: hr_utility.trace (l_proc||' Payroll period '||to_char (new_entry.effective_start_date (N)) ||' to '
3212: ||to_char (new_entry.effective_end_date (N)));
3213: hr_utility.trace (l_proc||' from = '||to_char (new_entry.date_from (N))||' to = ' ||to_char ( new_entry.date_to (N)));
3214: hr_utility.trace (l_proc||' qualifying_days = '||to_char (new_entry.qualifying_days (N)));
3215: hr_utility.trace (l_proc||' SSP_weeks = '||to_char (new_entry.SSP_weeks (N)));
3216: hr_utility.trace (l_proc||' SSP_days_due = '||to_char (new_entry.SSP_days_due (N)));
3217: hr_utility.trace (l_proc||' withheld_days = '||to_char (new_entry.withheld_days (N)));
3218: hr_utility.trace (l_proc||' rate = '||to_char (new_entry.rate (N)));
3219: hr_utility.trace (l_proc||' amount ' || to_char (daily_rate)
3212: ||to_char (new_entry.effective_end_date (N)));
3213: hr_utility.trace (l_proc||' from = '||to_char (new_entry.date_from (N))||' to = ' ||to_char ( new_entry.date_to (N)));
3214: hr_utility.trace (l_proc||' qualifying_days = '||to_char (new_entry.qualifying_days (N)));
3215: hr_utility.trace (l_proc||' SSP_weeks = '||to_char (new_entry.SSP_weeks (N)));
3216: hr_utility.trace (l_proc||' SSP_days_due = '||to_char (new_entry.SSP_days_due (N)));
3217: hr_utility.trace (l_proc||' withheld_days = '||to_char (new_entry.withheld_days (N)));
3218: hr_utility.trace (l_proc||' rate = '||to_char (new_entry.rate (N)));
3219: hr_utility.trace (l_proc||' amount ' || to_char (daily_rate)
3220: ||' ( ' || to_char (new_entry.SSP_days_due (N))
3213: hr_utility.trace (l_proc||' from = '||to_char (new_entry.date_from (N))||' to = ' ||to_char ( new_entry.date_to (N)));
3214: hr_utility.trace (l_proc||' qualifying_days = '||to_char (new_entry.qualifying_days (N)));
3215: hr_utility.trace (l_proc||' SSP_weeks = '||to_char (new_entry.SSP_weeks (N)));
3216: hr_utility.trace (l_proc||' SSP_days_due = '||to_char (new_entry.SSP_days_due (N)));
3217: hr_utility.trace (l_proc||' withheld_days = '||to_char (new_entry.withheld_days (N)));
3218: hr_utility.trace (l_proc||' rate = '||to_char (new_entry.rate (N)));
3219: hr_utility.trace (l_proc||' amount ' || to_char (daily_rate)
3220: ||' ( ' || to_char (new_entry.SSP_days_due (N))
3221: ||' - ' || to_char (new_entry.withheld_days (N))
3214: hr_utility.trace (l_proc||' qualifying_days = '||to_char (new_entry.qualifying_days (N)));
3215: hr_utility.trace (l_proc||' SSP_weeks = '||to_char (new_entry.SSP_weeks (N)));
3216: hr_utility.trace (l_proc||' SSP_days_due = '||to_char (new_entry.SSP_days_due (N)));
3217: hr_utility.trace (l_proc||' withheld_days = '||to_char (new_entry.withheld_days (N)));
3218: hr_utility.trace (l_proc||' rate = '||to_char (new_entry.rate (N)));
3219: hr_utility.trace (l_proc||' amount ' || to_char (daily_rate)
3220: ||' ( ' || to_char (new_entry.SSP_days_due (N))
3221: ||' - ' || to_char (new_entry.withheld_days (N))
3222: ||') = '|| to_char (new_entry.amount (N)));
3215: hr_utility.trace (l_proc||' SSP_weeks = '||to_char (new_entry.SSP_weeks (N)));
3216: hr_utility.trace (l_proc||' SSP_days_due = '||to_char (new_entry.SSP_days_due (N)));
3217: hr_utility.trace (l_proc||' withheld_days = '||to_char (new_entry.withheld_days (N)));
3218: hr_utility.trace (l_proc||' rate = '||to_char (new_entry.rate (N)));
3219: hr_utility.trace (l_proc||' amount ' || to_char (daily_rate)
3220: ||' ( ' || to_char (new_entry.SSP_days_due (N))
3221: ||' - ' || to_char (new_entry.withheld_days (N))
3222: ||') = '|| to_char (new_entry.amount (N)));
3223: hr_utility.trace (l_proc||' Total SSP weeks = '||to_char (total_ssp_weeks));
3219: hr_utility.trace (l_proc||' amount ' || to_char (daily_rate)
3220: ||' ( ' || to_char (new_entry.SSP_days_due (N))
3221: ||' - ' || to_char (new_entry.withheld_days (N))
3222: ||') = '|| to_char (new_entry.amount (N)));
3223: hr_utility.trace (l_proc||' Total SSP weeks = '||to_char (total_ssp_weeks));
3224: hr_utility.trace (l_proc||' weeks remaining = '||to_char (weeks_remaining));
3225: hr_utility.trace (l_proc||' waiting_days_left = '||to_char (waiting_days_left));
3226: hr_utility.trace (l_proc||' waiting_days_this_period = '||to_char (waiting_days_this_period));
3227: hr_utility.trace (l_proc||' Element_link_id = '||to_char (new_entry.element_link_id (N)));
3220: ||' ( ' || to_char (new_entry.SSP_days_due (N))
3221: ||' - ' || to_char (new_entry.withheld_days (N))
3222: ||') = '|| to_char (new_entry.amount (N)));
3223: hr_utility.trace (l_proc||' Total SSP weeks = '||to_char (total_ssp_weeks));
3224: hr_utility.trace (l_proc||' weeks remaining = '||to_char (weeks_remaining));
3225: hr_utility.trace (l_proc||' waiting_days_left = '||to_char (waiting_days_left));
3226: hr_utility.trace (l_proc||' waiting_days_this_period = '||to_char (waiting_days_this_period));
3227: hr_utility.trace (l_proc||' Element_link_id = '||to_char (new_entry.element_link_id (N)));
3228: hr_utility.trace (l_proc||' Assignment_id = '||to_char (new_entry.assignment_id (N)));
3221: ||' - ' || to_char (new_entry.withheld_days (N))
3222: ||') = '|| to_char (new_entry.amount (N)));
3223: hr_utility.trace (l_proc||' Total SSP weeks = '||to_char (total_ssp_weeks));
3224: hr_utility.trace (l_proc||' weeks remaining = '||to_char (weeks_remaining));
3225: hr_utility.trace (l_proc||' waiting_days_left = '||to_char (waiting_days_left));
3226: hr_utility.trace (l_proc||' waiting_days_this_period = '||to_char (waiting_days_this_period));
3227: hr_utility.trace (l_proc||' Element_link_id = '||to_char (new_entry.element_link_id (N)));
3228: hr_utility.trace (l_proc||' Assignment_id = '||to_char (new_entry.assignment_id (N)));
3229: hr_utility.trace ('----------------------------');
3222: ||') = '|| to_char (new_entry.amount (N)));
3223: hr_utility.trace (l_proc||' Total SSP weeks = '||to_char (total_ssp_weeks));
3224: hr_utility.trace (l_proc||' weeks remaining = '||to_char (weeks_remaining));
3225: hr_utility.trace (l_proc||' waiting_days_left = '||to_char (waiting_days_left));
3226: hr_utility.trace (l_proc||' waiting_days_this_period = '||to_char (waiting_days_this_period));
3227: hr_utility.trace (l_proc||' Element_link_id = '||to_char (new_entry.element_link_id (N)));
3228: hr_utility.trace (l_proc||' Assignment_id = '||to_char (new_entry.assignment_id (N)));
3229: hr_utility.trace ('----------------------------');
3230: exception
3223: hr_utility.trace (l_proc||' Total SSP weeks = '||to_char (total_ssp_weeks));
3224: hr_utility.trace (l_proc||' weeks remaining = '||to_char (weeks_remaining));
3225: hr_utility.trace (l_proc||' waiting_days_left = '||to_char (waiting_days_left));
3226: hr_utility.trace (l_proc||' waiting_days_this_period = '||to_char (waiting_days_this_period));
3227: hr_utility.trace (l_proc||' Element_link_id = '||to_char (new_entry.element_link_id (N)));
3228: hr_utility.trace (l_proc||' Assignment_id = '||to_char (new_entry.assignment_id (N)));
3229: hr_utility.trace ('----------------------------');
3230: exception
3231: when not_logged_on or program_error or storage_error then
3224: hr_utility.trace (l_proc||' weeks remaining = '||to_char (weeks_remaining));
3225: hr_utility.trace (l_proc||' waiting_days_left = '||to_char (waiting_days_left));
3226: hr_utility.trace (l_proc||' waiting_days_this_period = '||to_char (waiting_days_this_period));
3227: hr_utility.trace (l_proc||' Element_link_id = '||to_char (new_entry.element_link_id (N)));
3228: hr_utility.trace (l_proc||' Assignment_id = '||to_char (new_entry.assignment_id (N)));
3229: hr_utility.trace ('----------------------------');
3230: exception
3231: when not_logged_on or program_error or storage_error then
3232: -- a serious error must be indicated.
3225: hr_utility.trace (l_proc||' waiting_days_left = '||to_char (waiting_days_left));
3226: hr_utility.trace (l_proc||' waiting_days_this_period = '||to_char (waiting_days_this_period));
3227: hr_utility.trace (l_proc||' Element_link_id = '||to_char (new_entry.element_link_id (N)));
3228: hr_utility.trace (l_proc||' Assignment_id = '||to_char (new_entry.assignment_id (N)));
3229: hr_utility.trace ('----------------------------');
3230: exception
3231: when not_logged_on or program_error or storage_error then
3232: -- a serious error must be indicated.
3233: raise;
3234: when others then
3235: -- Do not let minor errors in debugging code stop the process
3236: null;
3237: end;
3238: hr_utility.trace ('Weeks remaining:'||to_char(weeks_remaining));
3239: hr_utility.trace (' end date :'||to_char(end_date));
3240: hr_utility.trace (' last ent day :'||to_char(last_entitled_day));
3241: --
3242: --if weeks_remaining <= 0 then --old line
3235: -- Do not let minor errors in debugging code stop the process
3236: null;
3237: end;
3238: hr_utility.trace ('Weeks remaining:'||to_char(weeks_remaining));
3239: hr_utility.trace (' end date :'||to_char(end_date));
3240: hr_utility.trace (' last ent day :'||to_char(last_entitled_day));
3241: --
3242: --if weeks_remaining <= 0 then --old line
3243: if weeks_remaining <= 0.00000000000000000000000000000000000001 then --line added for bug 6860926
3236: null;
3237: end;
3238: hr_utility.trace ('Weeks remaining:'||to_char(weeks_remaining));
3239: hr_utility.trace (' end date :'||to_char(end_date));
3240: hr_utility.trace (' last ent day :'||to_char(last_entitled_day));
3241: --
3242: --if weeks_remaining <= 0 then --old line
3243: if weeks_remaining <= 0.00000000000000000000000000000000000001 then --line added for bug 6860926
3244: raise maximum_SSP_paid;
3298: end;
3299: end if;
3300: end loop;
3301: --
3302: hr_utility.set_location('Leaving :'||l_proc,100);
3303: --
3304: exception
3305: when stoppage_invoked then
3306: --
3353: l_stoppage_overridden boolean := FALSE;
3354: l_01_October_06 date := to_date('01/10/2006','DD/MM/YYYY');
3355: l_PIW_date date;
3356: begin
3357: hr_utility.set_location('Entering:'||l_proc,1);
3358: --
3359: -- Look on the table for previously-calculated earnings figure
3360: --
3361: open csr_average_earnings;
3413: raise earnings_too_low;
3414: end if;
3415: end if;
3416: --
3417: hr_utility.set_location('Leaving :'||l_proc,100);
3418: --
3419: end check_average_earnings;
3420: --
3421: /*----------------------------------------*/
3444: l_dummy integer (1);
3445: l_stoppage_overridden boolean := FALSE;
3446: --
3447: begin
3448: hr_utility.set_location('Entering:'||l_proc,1);
3449: --
3450: /*BUG 2984577- Added code to handle linked absences.*/
3451: for each_absence in PIW loop
3452: -- Determine whether or not the user requires medical evidence of
3461: --
3462: -- Look for a sick note.
3463: open csr_evidence(each_absence.absence_attendance_id);
3464: fetch csr_evidence into l_dummy;
3465: hr_utility.set_location('Entering:'||l_dummy,5555);
3466: --
3467: -- no medical evidence was found for this absence
3468: if csr_evidence%notfound then
3469: /*BUG 2984577 Added exception */
3483: close csr_evidence;
3484: end if;
3485: end loop;
3486: --
3487: hr_utility.set_location('Leaving :'||l_proc,100);
3488: --
3489: end check_evidence;
3490: --
3491: /*--------------------------------------------------------------*/
3496: l_stoppage_overridden boolean := FALSE;
3497: l_proc varchar2 (72) := g_package||'check_service';
3498: begin
3499: --
3500: hr_utility.set_location('Entering:'||l_proc,1);
3501: -- the employment is scheduled to end
3502: -- bug 2984458 to avoid displaying 'Contract ends' when
3503: -- employee is deceased
3504: if (absentee.actual_termination_date < hr_general.end_of_time) and
3507: p_reason => 'Contract ends',
3508: p_overridden => l_stoppage_overridden);
3509: end if;
3510: --
3511: hr_utility.set_location('Leaving :'||l_proc,100);
3512: --
3513: end check_service;
3514: --
3515: /*-----------------------------------------------------------*/
3531: l_link_letter_end_date date;
3532: --
3533: begin
3534: --
3535: hr_utility.set_location('Entering:'||l_proc,1);
3536: --
3537: open csr_link_letter;
3538: fetch csr_link_letter into l_link_letter_end_date;
3539: close csr_link_letter;
3537: open csr_link_letter;
3538: fetch csr_link_letter into l_link_letter_end_date;
3539: close csr_link_letter;
3540:
3541: hr_utility.trace('Linking letter end date: '||l_link_letter_end_date);
3542: --
3543: -- check if link letter end date is after start date of current PIW
3544: if l_link_letter_end_date is not null and
3545: l_link_letter_end_date > PIW_start_date then
3549: p_reason => 'Linking letter',
3550: p_overridden => l_stoppage_overridden);
3551: end if;
3552: --
3553: hr_utility.set_location('Leaving :'||l_proc,100);
3554: --
3555: end check_linking_letter;
3556: --
3557: --
3558: begin
3559: --
3560: -- Start of Entitled_to_SSP
3561: --
3562: hr_utility.set_location('Entering:'||l_proc,1);
3563: --
3564: new_entry := empty_record;
3565: --
3566: -- SSP not installed or the absence is not sick leave
3587: p_absence.sickness_start_date,
3588: p_absence.sickness_end_date,
3589: p_absence.absence_attendance_id);
3590: --
3591: hr_utility.trace('Piw_start_date ' || to_char(PIW_start_date,'DD-MON-YYYY'));
3592: --
3593: -- The absence passed in is not a PIW
3594: if PIW_start_date is null then
3595: -- Start Bug 418895 fixing
3616: p_absence.sickness_end_date,
3617: p_absence.absence_attendance_id),
3618: hr_general.end_of_time);
3619: --
3620: hr_utility.trace('Piw_end_date ' || to_char(PIW_end_date,'DD-MON-YYYY'));
3621: --
3622: g_PIW_id := nvl(p_absence.linked_absence_id,p_absence.absence_attendance_id);
3623: --
3624: hr_utility.trace('Piw_id ' || to_char(g_PIW_id));
3620: hr_utility.trace('Piw_end_date ' || to_char(PIW_end_date,'DD-MON-YYYY'));
3621: --
3622: g_PIW_id := nvl(p_absence.linked_absence_id,p_absence.absence_attendance_id);
3623: --
3624: hr_utility.trace('Piw_id ' || to_char(g_PIW_id));
3625: --
3626: -- Get the legislative parameters for SSP
3627: --
3628: get_SSP_element (p_absence.sickness_start_date);
3661: -- Work out the amounts of SSP due in entries covering approx. one week each.
3662: --
3663: do_PIW_calculations;
3664: --
3665: hr_utility.set_location('Leaving :'||l_proc,100);
3666: --
3667: -- If we have got this far then the person is entitled to SSP
3668: -- (though stoppages may apply).
3669: --
3671: end if;
3672: exception
3673: when no_prima_facia_entitlement or employee_too_old or
3674: earnings_too_low or evidence_not_available then
3675: hr_utility.set_location('Leaving :'||l_proc||', Exception',999);
3676: --
3677: return FALSE; -- employee not entitled to SSP
3678: --
3679: end entitled_to_SSP;
3772: Y integer := 0;
3773: --
3774: begin
3775: --
3776: hr_utility.set_location('Entering:'||l_proc,1);
3777: --
3778: if PIW_start_date is not null
3779: then
3780: -- begin
3780: -- begin
3781: -- Y:=0;
3782: -- loop
3783: -- Y:=Y+1;
3784: -- hr_utility.trace('NEW ENTRY '||to_char(Y));
3785: -- hr_utility.trace(' Date From: '||to_char(new_entry.date_from(Y)));
3786: -- hr_utility.trace(' Date To : '||to_char(new_entry.date_to(Y)));
3787: -- hr_utility.trace(' Amount : '||to_char(new_entry.amount(Y)));
3788: -- hr_utility.trace(' Days Due : '||to_char(new_entry.ssp_days_due(Y)));
3781: -- Y:=0;
3782: -- loop
3783: -- Y:=Y+1;
3784: -- hr_utility.trace('NEW ENTRY '||to_char(Y));
3785: -- hr_utility.trace(' Date From: '||to_char(new_entry.date_from(Y)));
3786: -- hr_utility.trace(' Date To : '||to_char(new_entry.date_to(Y)));
3787: -- hr_utility.trace(' Amount : '||to_char(new_entry.amount(Y)));
3788: -- hr_utility.trace(' Days Due : '||to_char(new_entry.ssp_days_due(Y)));
3789: -- hr_utility.trace(' Weeks : '||to_char(new_entry.ssp_weeks(Y)));
3782: -- loop
3783: -- Y:=Y+1;
3784: -- hr_utility.trace('NEW ENTRY '||to_char(Y));
3785: -- hr_utility.trace(' Date From: '||to_char(new_entry.date_from(Y)));
3786: -- hr_utility.trace(' Date To : '||to_char(new_entry.date_to(Y)));
3787: -- hr_utility.trace(' Amount : '||to_char(new_entry.amount(Y)));
3788: -- hr_utility.trace(' Days Due : '||to_char(new_entry.ssp_days_due(Y)));
3789: -- hr_utility.trace(' Weeks : '||to_char(new_entry.ssp_weeks(Y)));
3790: -- hr_utility.trace(' Withheld : '||to_char(new_entry.withheld_days(Y)));
3783: -- Y:=Y+1;
3784: -- hr_utility.trace('NEW ENTRY '||to_char(Y));
3785: -- hr_utility.trace(' Date From: '||to_char(new_entry.date_from(Y)));
3786: -- hr_utility.trace(' Date To : '||to_char(new_entry.date_to(Y)));
3787: -- hr_utility.trace(' Amount : '||to_char(new_entry.amount(Y)));
3788: -- hr_utility.trace(' Days Due : '||to_char(new_entry.ssp_days_due(Y)));
3789: -- hr_utility.trace(' Weeks : '||to_char(new_entry.ssp_weeks(Y)));
3790: -- hr_utility.trace(' Withheld : '||to_char(new_entry.withheld_days(Y)));
3791: -- hr_utility.trace(' Rate : '||to_char(new_entry.rate(Y)));
3784: -- hr_utility.trace('NEW ENTRY '||to_char(Y));
3785: -- hr_utility.trace(' Date From: '||to_char(new_entry.date_from(Y)));
3786: -- hr_utility.trace(' Date To : '||to_char(new_entry.date_to(Y)));
3787: -- hr_utility.trace(' Amount : '||to_char(new_entry.amount(Y)));
3788: -- hr_utility.trace(' Days Due : '||to_char(new_entry.ssp_days_due(Y)));
3789: -- hr_utility.trace(' Weeks : '||to_char(new_entry.ssp_weeks(Y)));
3790: -- hr_utility.trace(' Withheld : '||to_char(new_entry.withheld_days(Y)));
3791: -- hr_utility.trace(' Rate : '||to_char(new_entry.rate(Y)));
3792: -- end loop;
3785: -- hr_utility.trace(' Date From: '||to_char(new_entry.date_from(Y)));
3786: -- hr_utility.trace(' Date To : '||to_char(new_entry.date_to(Y)));
3787: -- hr_utility.trace(' Amount : '||to_char(new_entry.amount(Y)));
3788: -- hr_utility.trace(' Days Due : '||to_char(new_entry.ssp_days_due(Y)));
3789: -- hr_utility.trace(' Weeks : '||to_char(new_entry.ssp_weeks(Y)));
3790: -- hr_utility.trace(' Withheld : '||to_char(new_entry.withheld_days(Y)));
3791: -- hr_utility.trace(' Rate : '||to_char(new_entry.rate(Y)));
3792: -- end loop;
3793: -- --
3786: -- hr_utility.trace(' Date To : '||to_char(new_entry.date_to(Y)));
3787: -- hr_utility.trace(' Amount : '||to_char(new_entry.amount(Y)));
3788: -- hr_utility.trace(' Days Due : '||to_char(new_entry.ssp_days_due(Y)));
3789: -- hr_utility.trace(' Weeks : '||to_char(new_entry.ssp_weeks(Y)));
3790: -- hr_utility.trace(' Withheld : '||to_char(new_entry.withheld_days(Y)));
3791: -- hr_utility.trace(' Rate : '||to_char(new_entry.rate(Y)));
3792: -- end loop;
3793: -- --
3794: -- exception
3787: -- hr_utility.trace(' Amount : '||to_char(new_entry.amount(Y)));
3788: -- hr_utility.trace(' Days Due : '||to_char(new_entry.ssp_days_due(Y)));
3789: -- hr_utility.trace(' Weeks : '||to_char(new_entry.ssp_weeks(Y)));
3790: -- hr_utility.trace(' Withheld : '||to_char(new_entry.withheld_days(Y)));
3791: -- hr_utility.trace(' Rate : '||to_char(new_entry.rate(Y)));
3792: -- end loop;
3793: -- --
3794: -- exception
3795: -- when no_data_found then
3802: --
3803: <
3804: for old_entry in csr_existing_entries
3805: LOOP
3806: -- hr_utility.trace('OLD ENTRY');
3807: -- hr_utility.trace(' Date From: '||to_char(old_entry.date_from));
3808: -- hr_utility.trace(' Date To : '||to_char(old_entry.date_to));
3809: -- hr_utility.trace(' Amount : '||to_char(old_entry.amount));
3810: -- hr_utility.trace(' Days Due : '||to_char(old_entry.ssp_days_due));
3803: <
3804: for old_entry in csr_existing_entries
3805: LOOP
3806: -- hr_utility.trace('OLD ENTRY');
3807: -- hr_utility.trace(' Date From: '||to_char(old_entry.date_from));
3808: -- hr_utility.trace(' Date To : '||to_char(old_entry.date_to));
3809: -- hr_utility.trace(' Amount : '||to_char(old_entry.amount));
3810: -- hr_utility.trace(' Days Due : '||to_char(old_entry.ssp_days_due));
3811: -- hr_utility.trace(' Weeks : '||to_char(old_entry.ssp_weeks));
3804: for old_entry in csr_existing_entries
3805: LOOP
3806: -- hr_utility.trace('OLD ENTRY');
3807: -- hr_utility.trace(' Date From: '||to_char(old_entry.date_from));
3808: -- hr_utility.trace(' Date To : '||to_char(old_entry.date_to));
3809: -- hr_utility.trace(' Amount : '||to_char(old_entry.amount));
3810: -- hr_utility.trace(' Days Due : '||to_char(old_entry.ssp_days_due));
3811: -- hr_utility.trace(' Weeks : '||to_char(old_entry.ssp_weeks));
3812: -- hr_utility.trace(' Withheld : '||to_char(old_entry.withheld_days));
3805: LOOP
3806: -- hr_utility.trace('OLD ENTRY');
3807: -- hr_utility.trace(' Date From: '||to_char(old_entry.date_from));
3808: -- hr_utility.trace(' Date To : '||to_char(old_entry.date_to));
3809: -- hr_utility.trace(' Amount : '||to_char(old_entry.amount));
3810: -- hr_utility.trace(' Days Due : '||to_char(old_entry.ssp_days_due));
3811: -- hr_utility.trace(' Weeks : '||to_char(old_entry.ssp_weeks));
3812: -- hr_utility.trace(' Withheld : '||to_char(old_entry.withheld_days));
3813: -- hr_utility.trace(' Rate : '||to_char(old_entry.rate));
3806: -- hr_utility.trace('OLD ENTRY');
3807: -- hr_utility.trace(' Date From: '||to_char(old_entry.date_from));
3808: -- hr_utility.trace(' Date To : '||to_char(old_entry.date_to));
3809: -- hr_utility.trace(' Amount : '||to_char(old_entry.amount));
3810: -- hr_utility.trace(' Days Due : '||to_char(old_entry.ssp_days_due));
3811: -- hr_utility.trace(' Weeks : '||to_char(old_entry.ssp_weeks));
3812: -- hr_utility.trace(' Withheld : '||to_char(old_entry.withheld_days));
3813: -- hr_utility.trace(' Rate : '||to_char(old_entry.rate));
3814: --
3807: -- hr_utility.trace(' Date From: '||to_char(old_entry.date_from));
3808: -- hr_utility.trace(' Date To : '||to_char(old_entry.date_to));
3809: -- hr_utility.trace(' Amount : '||to_char(old_entry.amount));
3810: -- hr_utility.trace(' Days Due : '||to_char(old_entry.ssp_days_due));
3811: -- hr_utility.trace(' Weeks : '||to_char(old_entry.ssp_weeks));
3812: -- hr_utility.trace(' Withheld : '||to_char(old_entry.withheld_days));
3813: -- hr_utility.trace(' Rate : '||to_char(old_entry.rate));
3814: --
3815: -- See if the existing entry exactly matches one we are going to insert.
3808: -- hr_utility.trace(' Date To : '||to_char(old_entry.date_to));
3809: -- hr_utility.trace(' Amount : '||to_char(old_entry.amount));
3810: -- hr_utility.trace(' Days Due : '||to_char(old_entry.ssp_days_due));
3811: -- hr_utility.trace(' Weeks : '||to_char(old_entry.ssp_weeks));
3812: -- hr_utility.trace(' Withheld : '||to_char(old_entry.withheld_days));
3813: -- hr_utility.trace(' Rate : '||to_char(old_entry.rate));
3814: --
3815: -- See if the existing entry exactly matches one we are going to insert.
3816: -- If it does, then we do not need to change it or insert the new one.
3809: -- hr_utility.trace(' Amount : '||to_char(old_entry.amount));
3810: -- hr_utility.trace(' Days Due : '||to_char(old_entry.ssp_days_due));
3811: -- hr_utility.trace(' Weeks : '||to_char(old_entry.ssp_weeks));
3812: -- hr_utility.trace(' Withheld : '||to_char(old_entry.withheld_days));
3813: -- hr_utility.trace(' Rate : '||to_char(old_entry.rate));
3814: --
3815: -- See if the existing entry exactly matches one we are going to insert.
3816: -- If it does, then we do not need to change it or insert the new one.
3817: -- If there is no exact match, then we must reverse the existing entry.
3871: p_assignment_id => old_entry.assignment_id,
3872: p_effective_start_date => old_entry.effective_start_date,
3873: p_effective_end_date => old_entry.effective_end_date);
3874: --
3875: hr_utility.set_location(l_proc,20);
3876: --
3877: hr_entry_api.insert_element_entry (
3878: p_effective_start_date => old_entry.effective_start_date,
3879: p_effective_end_date => old_entry.effective_end_date,
3904: p_entry_value6 => old_entry.SSP_weeks * -1,
3905: p_entry_value7 => old_entry.SSP_days_due * -1,
3906: p_entry_value8 => old_entry.qualifying_days * -1);
3907: --
3908: hr_utility.set_location(l_proc,25);
3909: else
3910: --
3911: -- Delete the unprocessed, invalid entry
3912: --
3909: else
3910: --
3911: -- Delete the unprocessed, invalid entry
3912: --
3913: hr_utility.set_location (l_proc,30);
3914: --
3915: hr_entry_api.delete_element_entry (
3916: p_dt_delete_mode => 'ZAP',
3917: p_session_date => old_entry.effective_start_date,
3916: p_dt_delete_mode => 'ZAP',
3917: p_session_date => old_entry.effective_start_date,
3918: p_element_entry_id => old_entry.element_entry_id);
3919: --
3920: hr_utility.set_location (l_proc,35);
3921: end if;
3922: end if;
3923: end loop;
3924: --
3930: --
3931: -- Now go through the new entries, inserting any which are not marked as
3932: -- having been dealt with already.
3933: --
3934: hr_utility.set_location (l_proc,4);
3935: --
3936: begin
3937: Y := 0;
3938: --
3949: -- correct, processed entry and where the stoppage days are less
3950: -- than the due days or the due days are zero (because of waiting
3951: -- days) and where the entry is for part or all of an SSP week.
3952: --
3953: hr_utility.set_location(l_proc,40);
3954: --
3955: hr_entry_api.insert_element_entry (
3956: p_effective_start_date => new_entry.effective_start_date (Y),
3957: p_effective_end_date => new_entry.effective_end_date (Y),
3982: p_entry_value6 => new_entry.SSP_weeks (Y),
3983: p_entry_value7 => new_entry.SSP_days_due (Y),
3984: p_entry_value8 => new_entry.qualifying_days (Y));
3985: --
3986: hr_utility.set_location(l_proc,45);
3987: end if;
3988: end loop;
3989: --
3990: exception
3997: end;
3998: end if;
3999: end if;
4000: --
4001: hr_utility.set_location('Leaving :'||l_proc,100);
4002: --
4003: end generate_payments;
4004: --------------------------------------------------------------------------------
4005: procedure ins_ssp_temp_affected_rows_PIW(p_absence_id in number,
4011: l_deleting_ch varchar2(1);
4012: --
4013: begin
4014: --
4015: hr_utility.set_location('Entering:'||l_proc,1);
4016: if p_deleting then
4017: l_deleting_ch := 'Y';
4018: else
4019: l_deleting_ch := 'N';
4019: l_deleting_ch := 'N';
4020: end if;
4021: --
4022: if p_absence_id is not null then
4023: hr_utility.trace('inserting record for absence '||to_char(p_absence_id)||
4024: 'deleting is '||l_deleting_ch);
4025: --
4026: insert into ssp_temp_affected_rows (PIW_id, p_deleting, locked)
4027: select p_absence_id, l_deleting_ch, userenv('sessionid')
4031: from ssp_temp_affected_rows t2
4032: where t2.PIW_id = p_absence_id);
4033: end if;
4034: --
4035: hr_utility.set_location('Leaving :'||l_proc,100);
4036: --
4037: end ins_ssp_temp_affected_rows_PIW;
4038: --------------------------------------------------------------------------------
4039: procedure SSP1L_control (
4066: and p_date_start is not null);
4067: --
4068: begin
4069: --
4070: hr_utility.trace (l_proc||' p_person_id: '||to_char(p_person_id));
4071: hr_utility.trace (l_proc||' p_date_start: ' ||to_char(p_date_start));
4072: --
4073: hr_general.assert_condition (all_parameters_valid);
4074: --
4067: --
4068: begin
4069: --
4070: hr_utility.trace (l_proc||' p_person_id: '||to_char(p_person_id));
4071: hr_utility.trace (l_proc||' p_date_start: ' ||to_char(p_date_start));
4072: --
4073: hr_general.assert_condition (all_parameters_valid);
4074: --
4075: end check_parameters;
4075: end check_parameters;
4076: --
4077: begin
4078: --
4079: hr_utility.set_location('Entering:'||l_proc,1);
4080: --
4081: check_parameters;
4082: --
4083: get_SSP_element (p_date_start);
4094: --
4095: ins_ssp_temp_affected_rows_PIW (l_PIW_ID, p_deleting => FALSE);
4096: end if;
4097: --
4098: hr_utility.set_location('Leaving :'||l_proc,100);
4099: --
4100: end SSP1L_control;
4101: --------------------------------------------------------------------------------
4102: --
4128: all_parameters_valid constant boolean :=
4129: (p_person_id is not null and
4130: p_date_of_death >= p_date_of_birth);
4131: begin
4132: hr_utility.trace (l_proc||' p_person_id = '||to_char (p_person_id));
4133: hr_utility.trace (l_proc||' p_date_of_death = '||to_char (p_date_of_death));
4134: hr_utility.trace (l_proc||' p_date_of_birth = '||to_char (p_date_of_birth));
4135: --
4136: hr_general.assert_condition (all_parameters_valid);
4129: (p_person_id is not null and
4130: p_date_of_death >= p_date_of_birth);
4131: begin
4132: hr_utility.trace (l_proc||' p_person_id = '||to_char (p_person_id));
4133: hr_utility.trace (l_proc||' p_date_of_death = '||to_char (p_date_of_death));
4134: hr_utility.trace (l_proc||' p_date_of_birth = '||to_char (p_date_of_birth));
4135: --
4136: hr_general.assert_condition (all_parameters_valid);
4137: --
4130: p_date_of_death >= p_date_of_birth);
4131: begin
4132: hr_utility.trace (l_proc||' p_person_id = '||to_char (p_person_id));
4133: hr_utility.trace (l_proc||' p_date_of_death = '||to_char (p_date_of_death));
4134: hr_utility.trace (l_proc||' p_date_of_birth = '||to_char (p_date_of_birth));
4135: --
4136: hr_general.assert_condition (all_parameters_valid);
4137: --
4138: end check_parameters;
4137: --
4138: end check_parameters;
4139: --
4140: begin
4141: hr_utility.set_location('Entering:'||l_proc,1);
4142: --
4143: check_parameters;
4144: --
4145: for l_absence in affected_PIWs LOOP
4175: --
4176: -- Call the ssp_smp_support_pkg.recalculate_ssp_and_smp directly.
4177: ssp_smp_support_pkg.recalculate_ssp_and_smp(p_deleting => FALSE);
4178: --
4179: hr_utility.set_location('Leaving :'||l_proc,100);
4180: --
4181: end person_control;
4182: --------------------------------------------------------------------------------
4183: -- If absence details are updated then we must recalculate SSP.
4196: p_sickness_start_date = trunc (p_sickness_start_date) and
4197: p_absence_attendance_id <> p_linked_absence_id);
4198: begin
4199: --
4200: hr_utility.trace (l_proc||' p_absence_attendance_id = '||to_char (p_absence_attendance_id));
4201: hr_utility.trace (l_proc||' p_linked_absence_id'||to_char (p_linked_absence_id));
4202: hr_utility.trace ('p_person_id'||to_char (p_person_id));
4203: hr_utility.trace ('p_sickness_start_date' ||to_char (p_sickness_start_date));
4204: if p_deleting then
4197: p_absence_attendance_id <> p_linked_absence_id);
4198: begin
4199: --
4200: hr_utility.trace (l_proc||' p_absence_attendance_id = '||to_char (p_absence_attendance_id));
4201: hr_utility.trace (l_proc||' p_linked_absence_id'||to_char (p_linked_absence_id));
4202: hr_utility.trace ('p_person_id'||to_char (p_person_id));
4203: hr_utility.trace ('p_sickness_start_date' ||to_char (p_sickness_start_date));
4204: if p_deleting then
4205: hr_utility.trace (l_proc||' p_deleting is TRUE');
4198: begin
4199: --
4200: hr_utility.trace (l_proc||' p_absence_attendance_id = '||to_char (p_absence_attendance_id));
4201: hr_utility.trace (l_proc||' p_linked_absence_id'||to_char (p_linked_absence_id));
4202: hr_utility.trace ('p_person_id'||to_char (p_person_id));
4203: hr_utility.trace ('p_sickness_start_date' ||to_char (p_sickness_start_date));
4204: if p_deleting then
4205: hr_utility.trace (l_proc||' p_deleting is TRUE');
4206: else
4199: --
4200: hr_utility.trace (l_proc||' p_absence_attendance_id = '||to_char (p_absence_attendance_id));
4201: hr_utility.trace (l_proc||' p_linked_absence_id'||to_char (p_linked_absence_id));
4202: hr_utility.trace ('p_person_id'||to_char (p_person_id));
4203: hr_utility.trace ('p_sickness_start_date' ||to_char (p_sickness_start_date));
4204: if p_deleting then
4205: hr_utility.trace (l_proc||' p_deleting is TRUE');
4206: else
4207: hr_utility.trace (l_proc||' p_deleting is FALSE');
4201: hr_utility.trace (l_proc||' p_linked_absence_id'||to_char (p_linked_absence_id));
4202: hr_utility.trace ('p_person_id'||to_char (p_person_id));
4203: hr_utility.trace ('p_sickness_start_date' ||to_char (p_sickness_start_date));
4204: if p_deleting then
4205: hr_utility.trace (l_proc||' p_deleting is TRUE');
4206: else
4207: hr_utility.trace (l_proc||' p_deleting is FALSE');
4208: end if;
4209: --
4203: hr_utility.trace ('p_sickness_start_date' ||to_char (p_sickness_start_date));
4204: if p_deleting then
4205: hr_utility.trace (l_proc||' p_deleting is TRUE');
4206: else
4207: hr_utility.trace (l_proc||' p_deleting is FALSE');
4208: end if;
4209: --
4210: hr_general.assert_condition (all_parameters_valid);
4211: --
4210: hr_general.assert_condition (all_parameters_valid);
4211: --
4212: end check_parameters;
4213: begin
4214: hr_utility.set_location('Entering:'||l_proc,1);
4215: --
4216: check_parameters;
4217: --
4218: if p_deleting then
4226: g_PIW_id := p_absence_attendance_id;
4227: new_entry := empty_record;
4228: PIW_start_date := p_sickness_start_date;
4229: --
4230: hr_utility.trace('Deleting parent absence, id '||to_char(g_PIW_id));
4231: --
4232: open csr_person (p_sickness_start_date, p_person_id);
4233: fetch csr_person into absentee;
4234: close csr_person;
4243: ins_ssp_temp_affected_rows_PIW (nvl(p_linked_absence_id,p_absence_attendance_id)
4244: ,p_deleting);
4245: end if;
4246: --
4247: hr_utility.set_location('Leaving :'||l_proc,100);
4248: --
4249: end absence_control;
4250: --------------------------------------------------------------------------------
4251: procedure earnings_control (
4275: and p_effective_date = trunc (p_effective_date));
4276: --
4277: begin
4278: --
4279: hr_utility.trace (l_proc||' p_person_id = '||to_char (p_person_id));
4280: hr_utility.trace (l_proc||' p_effective_date = '
4281: ||to_char (p_effective_date));
4282: --
4283: hr_general.assert_condition (all_parameters_valid);
4276: --
4277: begin
4278: --
4279: hr_utility.trace (l_proc||' p_person_id = '||to_char (p_person_id));
4280: hr_utility.trace (l_proc||' p_effective_date = '
4281: ||to_char (p_effective_date));
4282: --
4283: hr_general.assert_condition (all_parameters_valid);
4284: --
4285: end check_parameters;
4286: --
4287: begin
4288: --
4289: hr_utility.set_location('Entering:'||l_proc,1);
4290: --
4291: check_parameters;
4292: --
4293: open affected_PIW;
4295: close affected_PIW;
4296: --
4297: if g_absence.absence_attendance_id is not null
4298: then
4299: hr_utility.set_location (l_proc,10);
4300: --
4301: ins_ssp_temp_affected_rows_PIW (g_absence.absence_attendance_id,
4302: p_deleting => FALSE);
4303: end if;
4301: ins_ssp_temp_affected_rows_PIW (g_absence.absence_attendance_id,
4302: p_deleting => FALSE);
4303: end if;
4304: --
4305: hr_utility.set_location('Leaving :'||l_proc,100);
4306: --
4307: end earnings_control;
4308: --------------------------------------------------------------------------------
4309: procedure stoppage_control (p_absence_id in number) is
4313: l_proc varchar2 (72) := g_package||'stoppage_control';
4314: --
4315: begin
4316: --
4317: hr_utility.set_location('Entering:'||l_proc,1);
4318: --
4319: if p_absence_id is not null
4320: then
4321: ins_ssp_temp_affected_rows_PIW (p_absence_id, p_deleting => FALSE);
4320: then
4321: ins_ssp_temp_affected_rows_PIW (p_absence_id, p_deleting => FALSE);
4322: end if;
4323: --
4324: hr_utility.set_location('Leaving :'||l_proc,100);
4325: --
4326: end stoppage_control;
4327:
4328: --------------------------------------------------------------------------------
4333: l_proc varchar2 (72) := g_package||'medical_control';
4334: --
4335: begin
4336: --
4337: hr_utility.set_location('Entering:'||l_proc,1);
4338: --
4339: if p_absence_id is not null and g_absence_del = 'N'
4340: then
4341: ins_ssp_temp_affected_rows_PIW (p_absence_id, p_deleting => FALSE);
4342: end if;
4343:
4344: g_absence_del := 'N';
4345: --
4346: hr_utility.set_location('Leaving :'||l_proc,100);
4347: --
4348: end medical_control;
4349:
4350: --------------------------------------------------------------------------------
4363: --
4364: procedure check_parameters is
4365: all_parameters_valid constant boolean := (p_absence_attendance_id is not null);
4366: begin
4367: hr_utility.trace (l_proc||' p_absence_attendance_id = '||to_char (p_absence_attendance_id));
4368: --
4369: hr_general.assert_condition (all_parameters_valid);
4370: --
4371: end check_parameters;
4369: hr_general.assert_condition (all_parameters_valid);
4370: --
4371: end check_parameters;
4372: begin
4373: hr_utility.set_location('Entering:'||l_proc,1);
4374: --
4375: check_parameters;
4376: --
4377: get_absence_details (p_absence_attendance_id);
4384: close csr_previous_reason;
4385: --
4386: generate_payments (entitled_to_SSP (g_absence));
4387: --
4388: hr_utility.set_location('Leaving :'||l_proc,100);
4389: --
4390: end SSP_control;
4391: --------------------------------------------------------------------------------
4392: end ssp_SSP_pkg;