[Home] [Help]
125: and paa.primary_flag = 'Y';
126:
127: begin
128:
129: hr_utility.set_location('Entering:'|| l_proc, 10);
130:
131: --
132: -- Initialise all out parameters to zero.
133: --
141: --
142: l_effective_year := to_date('01/01/'||
143: to_char(p_effective_date,'YYYY'), 'DD/MM/YYYY');
144:
145: hr_utility.set_location(l_proc, 20);
146:
147: --
148: -- Get the running totals for this element type for this person.
149: -- Both the year to dates and running totals are collected in the
165:
166: if l_hours_or_days = 'H'
167: and l_increasing_or_decreasing = 'D' then
168:
169: hr_utility.set_location(l_proc, 25);
170:
171: p_running_total_hours := p_running_total_hours - l_absence_hours;
172:
173: --
180:
181: elsif l_hours_or_days = 'H'
182: and l_increasing_or_decreasing = 'I' then
183:
184: hr_utility.set_location(l_proc, 30);
185:
186: p_running_total_hours := p_running_total_hours + l_absence_hours;
187:
188: --
195:
196: elsif l_hours_or_days is null
197: and l_increasing_or_decreasing = 'I' then
198:
199: hr_utility.set_location(l_proc, 35);
200:
201: p_running_total_hours := p_running_total_hours + l_absence_hours;
202: p_running_total_days := p_running_total_days + l_absence_days;
203:
212:
213: elsif l_hours_or_days = 'D'
214: and l_increasing_or_decreasing = 'D' then
215:
216: hr_utility.set_location(l_proc, 40);
217:
218: p_running_total_days := p_running_total_days - l_absence_days;
219:
220: --
227:
228: elsif l_hours_or_days = 'D'
229: and l_increasing_or_decreasing = 'I' then
230:
231: hr_utility.set_location(l_proc, 45);
232:
233: p_running_total_days := p_running_total_days + l_absence_days;
234:
235: --
242:
243: elsif l_hours_or_days is null
244: and l_increasing_or_decreasing = 'D' then
245:
246: hr_utility.set_location(l_proc, 50);
247:
248: p_running_total_hours := p_running_total_hours - l_absence_hours;
249: p_running_total_days := p_running_total_days - l_absence_days;
250:
261:
262: end loop;
263: close c_get_running_totals;
264:
265: hr_utility.set_location(l_proc, 55);
266:
267: --
268: -- Is this absence type in hours or days?
269: --
270: open c_get_hours_or_days;
271: fetch c_get_hours_or_days into l_hours_or_days;
272: close c_get_hours_or_days;
273:
274: hr_utility.set_location(l_proc, 60);
275:
276: --
277: -- Add any upload elements to the balance. Upload elements
278: -- are elements linked to the absence type but do not
295: -- Add to the running total balance.
296: --
297: if l_hours_or_days = 'D' then
298:
299: hr_utility.set_location(l_proc, 65);
300: p_running_total_days := p_running_total_days + l_screen_entry_value;
301:
302: elsif l_hours_or_days = 'H' then
303:
300: p_running_total_days := p_running_total_days + l_screen_entry_value;
301:
302: elsif l_hours_or_days = 'H' then
303:
304: hr_utility.set_location(l_proc, 70);
305: p_running_total_hours := p_running_total_hours + l_screen_entry_value;
306:
307: end if;
308:
312: if to_char(l_effective_start_date, 'YYYY') = to_char(p_effective_date, 'YYYY')
313: and to_char(l_effective_end_date, 'YYYY') = to_char(p_effective_date, 'YYYY')
314: then
315:
316: hr_utility.set_location(l_proc, 75);
317:
318: if l_hours_or_days = 'D' then
319: p_year_to_date_days := p_year_to_date_days + l_screen_entry_value;
320:
326: end if;
327:
328: end loop;
329:
330: hr_utility.set_location(l_proc, 80);
331: --
332: -- Null out any irrelevant balances.
333: --
334: if l_hours_or_days = 'D' then
346: p_year_to_date_days := null;
347:
348: end if;
349:
350: hr_utility.set_location('Leaving:'|| l_proc, 85);
351:
352: end get_running_totals;
353: --
354: -- ---------------------------------------------------------------------------
443: --
444:
445: begin
446:
447: hr_utility.set_location('Entering:'|| l_proc, 10);
448:
449: --
450: -- Check that the person exists and that they have a valid period of
451: -- service for the entire absence duration.
468:
469: close c_per_valid_for_absence;
470:
471: --
472: hr_utility.set_location('Leaving:'|| l_proc, 20);
473:
474: end per_valid_for_absence;
475: --
476: -- ---------------------------------------------------------------------------
512: --
513:
514: begin
515:
516: hr_utility.set_location('Entering:'|| l_proc, 10);
517:
518: --
519: -- Calculate the total time in minutes between the start time
520: -- and the end time.
522: open c_get_time_duration;
523: fetch c_get_time_duration into l_time_duration;
524: close c_get_time_duration;
525:
526: hr_utility.set_location(' Leaving:'|| l_proc, 20);
527:
528: return l_time_duration;
529:
530: end convert_to_minutes;
560: l_proc varchar2(72) := g_package||'chk_time_format';
561: --
562:
563: begin
564: hr_utility.set_location('Entering:'|| l_proc, 10);
565: --
566:
567: if p_time is not null then
568: if not (substr(p_time,1,2) between '00' and '23'
574: end if;
575: end if;
576:
577: --
578: hr_utility.set_location(' Leaving:'|| l_proc, 50);
579: end chk_time_format;
580: --
581: -- +-------------------------------------------------------------------------+
582: -- |-----------------< good_time_format >-------------------------|
693: --
694: e_bad_time_format EXCEPTION;
695: --
696: BEGIN
697: hr_utility.set_location('Entering '||g_package||'.calc_sch_based_dur',10);
698: p_duration := 0;
699: l_time_start := p_time_start;
700: l_time_end := p_time_end;
701: --
842: --
843: END IF;
844: END IF;
845: --
846: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',20);
847: EXCEPTION
848: --
849: WHEN e_bad_time_format THEN
850: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',30);
846: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',20);
847: EXCEPTION
848: --
849: WHEN e_bad_time_format THEN
850: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',30);
851: hr_utility.set_location(SQLERRM,35);
852: RAISE;
853: --
854: WHEN OTHERS THEN
847: EXCEPTION
848: --
849: WHEN e_bad_time_format THEN
850: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',30);
851: hr_utility.set_location(SQLERRM,35);
852: RAISE;
853: --
854: WHEN OTHERS THEN
855: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',40);
851: hr_utility.set_location(SQLERRM,35);
852: RAISE;
853: --
854: WHEN OTHERS THEN
855: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',40);
856: hr_utility.set_location(SQLERRM,45);
857: RAISE;
858: --
859: END calc_sch_based_dur;
852: RAISE;
853: --
854: WHEN OTHERS THEN
855: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',40);
856: hr_utility.set_location(SQLERRM,45);
857: RAISE;
858: --
859: END calc_sch_based_dur;
860: --
982: l_use_formula boolean;
983:
984: begin
985:
986: hr_utility.set_location('Entering Old:'|| l_proc, 10);
987: per_abs_bus.calculate_absence_duration
988: (p_absence_attendance_id => p_absence_attendance_id
989: ,p_absence_attendance_type_id => p_absence_attendance_type_id
990: ,p_business_group_id => p_business_group_id
1009: p_absence_hours := l_absence_hours;
1010: p_absence_days := l_absence_days;
1011: p_use_formula :=l_use_formula;
1012:
1013: hr_utility.set_location('leaving old:'|| l_proc, 10);
1014: end;
1015: -- ---------------------------------------------------------------------------
1016: -- |-----------------< calculate_absence_duration -new>-------------------------|
1017: -- ---------------------------------------------------------------------------
1144:
1145: --
1146: begin
1147:
1148: hr_utility.set_location('Entering:'|| l_proc, 10);
1149: --
1150: -- Only proceed with validation if :
1151: -- a) The current g_old_rec is current and
1152: -- b) The date values have changed
1170: = nvl(p_absence_hours, hr_api.g_number)) then
1171: return;
1172: end if;
1173:
1174: hr_utility.set_location(l_proc, 15);
1175:
1176: --
1177: -- See if a Fast Formula exists. Here the Fast Formula names
1178: -- are hard-coded. Fast Formulas with these exact names can
1204: l_sch_based_dur_found := FALSE;
1205: --
1206: IF l_sch_based_dur = 'Y' THEN
1207: --
1208: hr_utility.set_location(l_proc, 16);
1209: p_use_formula := TRUE; -- set to display
1210: --
1211: calc_sch_based_dur (p_days_or_hours => l_hours_or_days,
1212: p_date_start => p_date_start,
1221: --
1222: l_sch_based_dur_found := TRUE;
1223: --
1224: IF l_hours_or_days = 'H' THEN
1225: hr_utility.set_location(l_proc, 17);
1226: p_absence_hours := l_absence_duration;
1227: ELSIF l_hours_or_days = 'D' THEN
1228: hr_utility.set_location(l_proc, 18);
1229: p_absence_days := l_absence_duration;
1224: IF l_hours_or_days = 'H' THEN
1225: hr_utility.set_location(l_proc, 17);
1226: p_absence_hours := l_absence_duration;
1227: ELSIF l_hours_or_days = 'D' THEN
1228: hr_utility.set_location(l_proc, 18);
1229: p_absence_days := l_absence_duration;
1230: ELSE
1231: hr_utility.set_location(l_proc, 19);
1232: l_sch_based_dur_found := FALSE;
1227: ELSIF l_hours_or_days = 'D' THEN
1228: hr_utility.set_location(l_proc, 18);
1229: p_absence_days := l_absence_duration;
1230: ELSE
1231: hr_utility.set_location(l_proc, 19);
1232: l_sch_based_dur_found := FALSE;
1233: END IF;
1234: --
1235: END IF;
1237: END IF; -- sch_based_dur is 'Y'
1238:
1239: IF l_sch_based_dur <> 'Y' OR (l_sch_based_dur = 'Y' AND NOT l_sch_based_dur_found) THEN
1240: --
1241: hr_utility.set_location(l_proc, 20);
1242:
1243: begin
1244: --
1245: -- Look for a customer-defined formula
1259: -- a legislative formula.
1260: --
1261: begin
1262:
1263: hr_utility.set_location(l_proc, 25);
1264:
1265: select ff.formula_id
1266: into l_formula_id
1267: from ff_formulas_f ff
1278: -- If none of the two above then select the core formula
1279: --
1280: begin
1281:
1282: hr_utility.set_location(l_proc, 30);
1283:
1284: select ff.formula_id
1285: into l_formula_id
1286: from ff_formulas_f ff
1301: end;
1302: end;
1303: end;
1304:
1305: hr_utility.set_location(l_proc, 35);
1306:
1307: if l_formula_id is not null then
1308: --
1309: -- An absence duration Fast Formula should be used so the
1310: -- formula is called. First, the formula is initialised.
1311: --
1312: p_use_formula := TRUE;
1313:
1314: hr_utility.set_location(l_proc, 40);
1315:
1316: --
1317: ff_exec.reset_caches; -- bug fix 9337533 to clear the cache..
1318:
1323: ,p_effective_date => p_effective_date
1324: ,p_inputs => l_inputs
1325: ,p_outputs => l_outputs);
1326:
1327: hr_utility.set_location(l_proc, 45);
1328:
1329: --
1330: -- Assign the inputs.
1331: --
1376: end if;
1377:
1378: end loop;
1379:
1380: hr_utility.set_location(l_proc, 50);
1381:
1382: --
1383: -- Run the formula.
1384: --
1383: -- Run the formula.
1384: --
1385: ff_exec.run_formula(l_inputs, l_outputs);
1386:
1387: hr_utility.set_location(l_proc, 55);
1388:
1389: --
1390: -- Assign the outputs.
1391: --
1423: end if;
1424:
1425: end loop;
1426:
1427: hr_utility.set_location(l_proc, 60);
1428: hr_utility.trace('l_user_message: '||l_user_message);
1429: hr_utility.trace('l_invalid_message: '||l_invalid_message);
1430:
1431:
1424:
1425: end loop;
1426:
1427: hr_utility.set_location(l_proc, 60);
1428: hr_utility.trace('l_user_message: '||l_user_message);
1429: hr_utility.trace('l_invalid_message: '||l_invalid_message);
1430:
1431:
1432: /*Added for the bug 6790565 - starts here*/
1425: end loop;
1426:
1427: hr_utility.set_location(l_proc, 60);
1428: hr_utility.trace('l_user_message: '||l_user_message);
1429: hr_utility.trace('l_invalid_message: '||l_invalid_message);
1430:
1431:
1432: /*Added for the bug 6790565 - starts here*/
1433: -- Displays the error message text if text is given
1451: -- raise the error back to the user.
1452: --
1453: if l_user_message = 'Y' then
1454: -- Start of fix 3553741
1455: hr_utility.set_message(801,'HR_ELE_ENTRY_FORMULA_HINT');
1456: /*Added for the bug 6790565 - starts here*/
1457: -- hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message);
1458: hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message_txt);
1459: /*Added for the bug 6790565 - ends here*/
1453: if l_user_message = 'Y' then
1454: -- Start of fix 3553741
1455: hr_utility.set_message(801,'HR_ELE_ENTRY_FORMULA_HINT');
1456: /*Added for the bug 6790565 - starts here*/
1457: -- hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message);
1458: hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message_txt);
1459: /*Added for the bug 6790565 - ends here*/
1460: hr_utility.raise_error;
1461: -- End of fix 3553741
1454: -- Start of fix 3553741
1455: hr_utility.set_message(801,'HR_ELE_ENTRY_FORMULA_HINT');
1456: /*Added for the bug 6790565 - starts here*/
1457: -- hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message);
1458: hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message_txt);
1459: /*Added for the bug 6790565 - ends here*/
1460: hr_utility.raise_error;
1461: -- End of fix 3553741
1462: end if;
1456: /*Added for the bug 6790565 - starts here*/
1457: -- hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message);
1458: hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message_txt);
1459: /*Added for the bug 6790565 - ends here*/
1460: hr_utility.raise_error;
1461: -- End of fix 3553741
1462: end if;
1463:
1464: hr_utility.set_location(l_proc, 63);
1460: hr_utility.raise_error;
1461: -- End of fix 3553741
1462: end if;
1463:
1464: hr_utility.set_location(l_proc, 63);
1465:
1466: else
1467: --
1468: -- No formula could be located so we calculate based on the
1469: -- standard hours of the assignment or business group.
1470: --
1471: p_use_formula := FALSE;
1472:
1473: hr_utility.set_location(l_proc, 65);
1474:
1475: --
1476: -- Get the default start and end times. First check the assignment, then
1477: -- the business group. If neither of these, assume 24 hours a day.
1495: ,p_format => 'TIMES');
1496:
1497: -- end #2734822
1498:
1499: hr_utility.set_location(l_proc, 70);
1500:
1501: --
1502: -- Calculate the number of minutes in each day.
1503: --
1579: --
1580: -- The leave timings are out off the standard timings.
1581: -- So use 24 hours rule to calculate the first day and last day minutes.
1582: --
1583: hr_utility.set_location(l_proc, 72);
1584: l_first_day_minutes := convert_to_minutes(nvl(p_time_start,
1585: l_normal_time_start),
1586: '24:00');
1587: l_last_day_minutes := convert_to_minutes('00:00', nvl(p_time_end,
1608: --3075512 changes end
1609: end if;
1610: --2943479 changes end
1611:
1612: hr_utility.trace('Normal Day Minutes: ' || to_char(l_normal_day_minutes));
1613: hr_utility.trace('First Day Minutes: ' || to_char(l_first_day_minutes));
1614: hr_utility.trace('Last Day Minutes: ' || to_char(l_last_day_minutes));
1615: hr_utility.trace('Same Day Minutes: ' || to_char(l_same_day_minutes));
1616:
1609: end if;
1610: --2943479 changes end
1611:
1612: hr_utility.trace('Normal Day Minutes: ' || to_char(l_normal_day_minutes));
1613: hr_utility.trace('First Day Minutes: ' || to_char(l_first_day_minutes));
1614: hr_utility.trace('Last Day Minutes: ' || to_char(l_last_day_minutes));
1615: hr_utility.trace('Same Day Minutes: ' || to_char(l_same_day_minutes));
1616:
1617: hr_utility.set_location(l_proc, 75);
1610: --2943479 changes end
1611:
1612: hr_utility.trace('Normal Day Minutes: ' || to_char(l_normal_day_minutes));
1613: hr_utility.trace('First Day Minutes: ' || to_char(l_first_day_minutes));
1614: hr_utility.trace('Last Day Minutes: ' || to_char(l_last_day_minutes));
1615: hr_utility.trace('Same Day Minutes: ' || to_char(l_same_day_minutes));
1616:
1617: hr_utility.set_location(l_proc, 75);
1618:
1611:
1612: hr_utility.trace('Normal Day Minutes: ' || to_char(l_normal_day_minutes));
1613: hr_utility.trace('First Day Minutes: ' || to_char(l_first_day_minutes));
1614: hr_utility.trace('Last Day Minutes: ' || to_char(l_last_day_minutes));
1615: hr_utility.trace('Same Day Minutes: ' || to_char(l_same_day_minutes));
1616:
1617: hr_utility.set_location(l_proc, 75);
1618:
1619: --
1613: hr_utility.trace('First Day Minutes: ' || to_char(l_first_day_minutes));
1614: hr_utility.trace('Last Day Minutes: ' || to_char(l_last_day_minutes));
1615: hr_utility.trace('Same Day Minutes: ' || to_char(l_same_day_minutes));
1616:
1617: hr_utility.set_location(l_proc, 75);
1618:
1619: --
1620: -- Calculate the absence days.
1621: --
1620: -- Calculate the absence days.
1621: --
1622: l_absence_days := (p_date_end - p_date_start) + 1;
1623:
1624: hr_utility.trace('Absence Days: ' || to_char(l_absence_days));
1625:
1626: --
1627: -- Calculate the absence hours.
1628: --
1646: ((l_absence_days - 2) * l_normal_day_minutes)) / 60;
1647:
1648: end if;
1649:
1650: hr_utility.set_location(l_proc, 80);
1651:
1652: --
1653: -- Check that the absence hours are not less than zero. This could
1654: -- happen if the entered start time is after the normal start time or
1690: end if;
1691:
1692: END IF; -- Schedule based calculation not used
1693:
1694: hr_utility.set_location(' Leaving:'|| l_proc, 85);
1695:
1696: exception
1697:
1698: when wrong_parameters then
1699: --
1700: -- The inputs / outputs of the Fast Formula are incorrect
1701: -- so raise an error.
1702: --
1703: hr_utility.set_location(l_proc, 90);
1704:
1705: hr_utility.set_message(800,'HR_34964_BAD_FF_DEFINITION');
1706: hr_utility.raise_error;
1707:
1701: -- so raise an error.
1702: --
1703: hr_utility.set_location(l_proc, 90);
1704:
1705: hr_utility.set_message(800,'HR_34964_BAD_FF_DEFINITION');
1706: hr_utility.raise_error;
1707:
1708: end calculate_absence_duration;
1709: --
1702: --
1703: hr_utility.set_location(l_proc, 90);
1704:
1705: hr_utility.set_message(800,'HR_34964_BAD_FF_DEFINITION');
1706: hr_utility.raise_error;
1707:
1708: end calculate_absence_duration;
1709: --
1710: -- ---------------------------------------------------------------------------
1752: --
1753:
1754: begin
1755:
1756: hr_utility.set_location('Entering:'|| l_proc, 10);
1757: --
1758: hr_api.mandatory_arg_error
1759: (p_api_name => l_proc
1760: ,p_argument => 'p_person_id'
1804: fnd_message.raise_error;
1805:
1806: end if;
1807:
1808: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1809:
1810: end chk_person_id;
1811: --
1812: -- ---------------------------------------------------------------------------
1873:
1874: --
1875: begin
1876:
1877: hr_utility.set_location('Entering:'|| l_proc, 10);
1878: --
1879: --
1880: -- Check mandatory parameters have been set
1881: --
1905: = nvl(p_date_end, hr_api.g_date)) then
1906: return;
1907: end if;
1908:
1909: hr_utility.set_location(l_proc, 15);
1910:
1911: --
1912: -- Check that all the dates are within the effective dates of the
1913: -- absence type.
1921: end if;
1922:
1923: close c_absence_within_type_dates;
1924:
1925: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1926:
1927: end chk_absence_attendance_type_id;
1928: --
1929: -- ---------------------------------------------------------------------------
1993: and hrl.enabled_flag = 'Y';
1994: --
1995: begin
1996:
1997: hr_utility.set_location('Entering:'|| l_proc, 10);
1998:
1999: if p_abs_attendance_reason_id is null then
2000: return;
2001: end if;
2023: --
2024: end if;
2025: close csr_valid_abs_reason;
2026:
2027: hr_utility.set_location(' Leaving:'|| l_proc, 20);
2028:
2029: end chk_abs_attendance_reason_id;
2030: --
2031: -- ---------------------------------------------------------------------------
2141:
2142:
2143: begin
2144:
2145: hr_utility.set_location('Entering: old'|| l_proc, 5);
2146:
2147: --
2148: chk_absence_period
2149: (p_absence_attendance_id => p_absence_attendance_id
2178: ,p_dur_overwritten_warning => p_dur_overwritten_warning);
2179:
2180:
2181:
2182: hr_utility.set_location('Leaving old:'|| l_proc, 5);
2183: end;
2184: -- ---------------------------------------------------------------------------
2185: -- |-----------------< chk_absence_period -new >---------------------------------|
2186: -- ---------------------------------------------------------------------------
2383:
2384:
2385: begin
2386:
2387: hr_utility.set_location('Entering:'|| l_proc, 5);
2388:
2389: --
2390: -- Only proceed with validation if :
2391: -- a) The current g_old_rec is current and
2438: l_increasing_or_decreasing,
2439: l_absence_overlap_flag;
2440: close c_get_absence_type_info;
2441:
2442: hr_utility.set_location(l_proc, 10);
2443:
2444: --
2445: -- Check the time formats
2446: --
2457: fnd_message.set_name('PER','HR_289294_ABS_SD_NOT_ENTERED');
2458: fnd_message.raise_error;
2459: end if;
2460:
2461: hr_utility.set_location(l_proc, 15);
2462:
2463: --
2464: -- Check that the end dates are after the start dates. If they are the same
2465: -- day, check that the end time is after the start time.
2483: fnd_message.raise_error;
2484:
2485: end if;
2486:
2487: hr_utility.set_location(l_proc, 20);
2488:
2489: --
2490: -- Check that times have / have not been entered depending on the
2491: -- UOM of the absence type.
2527: end if;
2528:
2529: end if;
2530:
2531: hr_utility.set_location(l_proc, 25);
2532:
2533: --
2534: -- If the end date is entered, the duration in days and / or hours
2535: -- must be entered. This can be calculated automatically in some
2560: ,p_absence_days => l_absence_days
2561: ,p_absence_hours => l_absence_hours
2562: ,p_use_formula => l_use_formula);
2563:
2564: hr_utility.trace ('Calc dys: '||to_char(l_absence_days));
2565: hr_utility.trace ('Calc hrs: '||to_char(l_absence_hours));
2566:
2567: --
2568: -- The absence duration is only set if the results returned are
2561: ,p_absence_hours => l_absence_hours
2562: ,p_use_formula => l_use_formula);
2563:
2564: hr_utility.trace ('Calc dys: '||to_char(l_absence_days));
2565: hr_utility.trace ('Calc hrs: '||to_char(l_absence_hours));
2566:
2567: --
2568: -- The absence duration is only set if the results returned are
2569: -- from the Fast Formula and the durations are null or
2572: -- Bug 14659075
2573: l_auto_overwrite :=
2574: nvl(fnd_profile.value('PER_ABSENCE_DURATION_AUTO_OVERWRITE'),'X');
2575:
2576: hr_utility.set_location(l_proc, 30);
2577:
2578: If (l_use_formula)
2579: and ((l_auto_overwrite = 'Y') or
2580: (p_absence_days is null and p_absence_hours is null)) then
2584: -- hours are populated and if no UOM is set, both days and hours
2585: -- are set.
2586: --
2587:
2588: hr_utility.trace ('Use Formula = TRUE');
2589:
2590: p_absence_days := l_absence_days;
2591: p_absence_hours := l_absence_hours;
2592: p_dur_overwritten_warning := TRUE;
2592: p_dur_overwritten_warning := TRUE;
2593:
2594: end if;
2595:
2596: hr_utility.set_location(l_proc, 35);
2597:
2598: -- Bug 14659075
2599: IF l_auto_overwrite ='N' THEN
2600:
2597:
2598: -- Bug 14659075
2599: IF l_auto_overwrite ='N' THEN
2600:
2601: hr_utility.set_location('per_abs_shd.g_absence_days '||per_abs_shd.g_absence_days, 36);
2602: hr_utility.set_location('per_abs_shd.g_absence_hours '||per_abs_shd.g_absence_hours, 36);
2603:
2604: p_absence_days :=per_abs_shd.g_absence_days;
2605: p_absence_hours:=per_abs_shd.g_absence_hours;
2598: -- Bug 14659075
2599: IF l_auto_overwrite ='N' THEN
2600:
2601: hr_utility.set_location('per_abs_shd.g_absence_days '||per_abs_shd.g_absence_days, 36);
2602: hr_utility.set_location('per_abs_shd.g_absence_hours '||per_abs_shd.g_absence_hours, 36);
2603:
2604: p_absence_days :=per_abs_shd.g_absence_days;
2605: p_absence_hours:=per_abs_shd.g_absence_hours;
2606: p_dur_overwritten_warning := TRUE;
2658: end if;
2659:
2660: end if;
2661:
2662: hr_utility.set_location(l_proc, 40);
2663:
2664: -- fix for the bug 8492746 starts here
2665:
2666: l_dur_ent_hours := nvl(p_absence_hours,l_absence_hours);
2670: if (l_dur_ent_hours > l_dur_calc_hours)
2671: then
2672:
2673: fnd_message.set_name('PER','PER_449852_ABS_HOUR_DUR');
2674: hr_utility.set_message_token('START', p_date_start);
2675: hr_utility.set_message_token('END', p_date_end);
2676: fnd_message.raise_error;
2677:
2678: end if;
2671: then
2672:
2673: fnd_message.set_name('PER','PER_449852_ABS_HOUR_DUR');
2674: hr_utility.set_message_token('START', p_date_start);
2675: hr_utility.set_message_token('END', p_date_end);
2676: fnd_message.raise_error;
2677:
2678: end if;
2679:
2694: fnd_message.raise_error;
2695: */
2696: end if;
2697:
2698: hr_utility.set_location(l_proc, 45);
2699:
2700: --
2701: -- Check if the absence duration in days differs from
2702: -- the amount of time absent.
2741: fnd_message.raise_error;*/
2742:
2743: end if;
2744:
2745: hr_utility.set_location(l_proc, 50);
2746:
2747: --
2748: -- Check if this absence exceeds the net entitlement on any of the
2749: -- employee's accrual plans. First the assignment id and plan id(s)
2788: close csr_legislation;
2789:
2790: if l_legislation_code = 'AU'
2791: then
2792: hr_utility.set_location('APAC code - '||l_proc,52);
2793: l_net_entitlement := hr_au_holidays.get_net_accrual
2794: (p_assignment_id => l_assignment_id
2795: ,p_payroll_id => l_payroll_id
2796: ,p_business_group_id => p_business_group_id
2798: ,p_calculation_date => nvl(p_date_start, p_effective_date)
2799: );
2800: elsif l_legislation_code = 'NZ'
2801: then
2802: hr_utility.set_location(l_proc,53);
2803: l_net_entitlement := hr_nz_holidays.get_net_accrual
2804: (p_assignment_id => l_assignment_id
2805: ,p_payroll_id => l_payroll_id
2806: ,p_business_group_id => p_business_group_id
2808: ,p_calculation_date => nvl(p_date_start, p_effective_date)
2809: );
2810:
2811: else
2812: hr_utility.set_location('APAC code - '||l_proc,54);
2813: -- ********** existing code wrapped by if statement from bug 2729784 *************
2814: per_accrual_calc_functions.get_net_accrual
2815: (p_assignment_id => l_assignment_id
2816: ,p_plan_id => l_accrual_plan_id
2824: ,p_net_entitlement => l_net_entitlement);
2825: -- ********** end existing code ***************
2826:
2827: end if;
2828: hr_utility.trace('Ent = '||to_char(l_net_entitlement));
2829:
2830: -- ****************** End Bug 2729784 *********************
2831:
2832:
2866:
2867: when others then
2868:
2869: l_message_text := fnd_message.get;
2870: hr_utility.trace('Unable to execute the PTO formula. '||l_message_text);
2871:
2872: end;
2873:
2874: if (l_accrual_msg) then
2890: end if;
2891:
2892: end if;
2893:
2894: hr_utility.set_location(l_proc, 55);
2895:
2896: --
2897: -- Get the running totals and check that the values do not
2898: -- decrease to less than zero.
2933: p_exceeds_run_total_warning := TRUE;
2934: end if;
2935: -- code change for 7688779 ends here
2936:
2937: hr_utility.set_location(l_proc, 57);
2938:
2939: end if;
2940:
2941: hr_utility.set_location(l_proc, 60);
2937: hr_utility.set_location(l_proc, 57);
2938:
2939: end if;
2940:
2941: hr_utility.set_location(l_proc, 60);
2942:
2943: --
2944: -- Check if this absence overlaps another absence for the same person.
2945: --
2946: -- Fix for the Bug11902652
2947:
2948: for i in c_abs_overlap_another
2949: loop
2950: hr_utility.trace('check_abs_overlap i.end_time:'||i.end_time);
2951:
2952: if nvl(p_time_start,'00:00') <= i.end_time
2953: OR i.start_time <= p_time_start
2954: then
2964:
2965: end loop;
2966: -- Fix for the Bug11902652
2967:
2968: hr_utility.set_location(l_proc, 65);
2969:
2970: --
2971: -- Check if this is a sickness absence that starts the day after another
2972: -- sickness absence for this person.
2982:
2983: end if;
2984:
2985: --
2986: hr_utility.set_location('Leaving:'|| l_proc, 70);
2987:
2988: end chk_absence_period;
2989: --
2990: -- ---------------------------------------------------------------------------
3032: --
3033:
3034: begin
3035:
3036: hr_utility.set_location('Entering:'|| l_proc, 10);
3037: --
3038: hr_api.mandatory_arg_error
3039: (p_api_name => l_proc
3040: ,p_argument => 'p_business_group_id'
3084: end if;
3085:
3086: end if;
3087:
3088: hr_utility.set_location(' Leaving:'|| l_proc, 20);
3089:
3090: end chk_replacement_person_id;
3091: --
3092: --
3135: --
3136:
3137: begin
3138:
3139: hr_utility.set_location('Entering:'|| l_proc, 10);
3140: --
3141: hr_api.mandatory_arg_error
3142: (p_api_name => l_proc
3143: ,p_argument => 'p_business_group_id'
3187: end if;
3188:
3189: end if;
3190:
3191: hr_utility.set_location(' Leaving:'|| l_proc, 20);
3192:
3193: end chk_authorising_person_id;
3194: --
3195: -- ---------------------------------------------------------------------------
3215: l_proc varchar2(72) := g_package||'set_security_group_id';
3216: --
3217: begin
3218: --
3219: hr_utility.set_location('Entering:'|| l_proc, 10);
3220: --
3221: -- Ensure that all the mandatory parameter are not null
3222: --
3223: hr_api.mandatory_arg_error
3246: hr_api.set_security_group_id
3247: (p_security_group_id => l_security_group_id
3248: );
3249: --
3250: hr_utility.set_location(' Leaving:'|| l_proc, 20);
3251: --
3252: end set_security_group_id;
3253: --
3254: -- ---------------------------------------------------------------------------
3275: l_proc varchar2(72) := g_package||'return_legislation_code';
3276: --
3277: Begin
3278: --
3279: hr_utility.set_location('Entering:'|| l_proc, 10);
3280: --
3281: -- Ensure that all the mandatory parameter are not null
3282: --
3283: hr_api.mandatory_arg_error
3293: -- call to this function. Just return the value in the global
3294: -- variable.
3295: --
3296: l_legislation_code := per_abs_bus.g_legislation_code;
3297: hr_utility.set_location(l_proc, 20);
3298: else
3299: --
3300: -- The ID is different to the last call to this function
3301: -- or this is the first call to this function.
3310: close csr_leg_code;
3311: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
3312: fnd_message.raise_error;
3313: end if;
3314: hr_utility.set_location(l_proc,30);
3315: --
3316: -- Set the global variables so the values are
3317: -- available for the next call to this function.
3318: --
3319: close csr_leg_code;
3320: per_abs_bus.g_absence_attendance_id:= p_absence_attendance_id;
3321: per_abs_bus.g_legislation_code := l_legislation_code;
3322: end if;
3323: hr_utility.set_location(' Leaving:'|| l_proc, 40);
3324: return l_legislation_code;
3325: end return_legislation_code;
3326: --
3327: -- ----------------------------------------------------------------------------
3359: --
3360: l_proc varchar2(72) := g_package || 'chk_ddf';
3361: --
3362: begin
3363: hr_utility.set_location('Entering:'||l_proc,10);
3364: --
3365: if ((p_rec.absence_attendance_id is not null) and (
3366: nvl(per_abs_shd.g_old_rec.abs_information_category, hr_api.g_varchar2) <>
3367: nvl(p_rec.abs_information_category, hr_api.g_varchar2) or
3498: ,p_attribute30_value => p_rec.abs_information30
3499: );
3500: end if;
3501: --
3502: hr_utility.set_location(' Leaving:'||l_proc,20);
3503: end chk_ddf;
3504: --
3505: -- ----------------------------------------------------------------------------
3506: -- |------------------------------< chk_df >----------------------------------|
3537: --
3538: l_proc varchar2(72) := g_package || 'chk_df';
3539: --
3540: begin
3541: hr_utility.set_location('Entering:'||l_proc,10);
3542: --
3543: if ((p_rec.absence_attendance_id is not null) and (
3544: nvl(per_abs_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
3545: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
3636: ,p_attribute20_value => p_rec.attribute20
3637: );
3638: end if;
3639: --
3640: hr_utility.set_location(' Leaving:'||l_proc,20);
3641: end chk_df;
3642: --
3643: -- ----------------------------------------------------------------------------
3644: -- |-----------------------< chk_non_updateable_args >------------------------|
3690: fnd_message.set_token('STEP ', '5');
3691: fnd_message.raise_error;
3692: END IF;
3693: --
3694: hr_utility.set_location(l_proc, 2);
3695: if nvl(p_rec.absence_attendance_id,hr_api.g_number) <>
3696: per_abs_shd.g_old_rec.absence_attendance_id then
3697: l_argument := 'absence_attendance_id';
3698: raise l_error;
3697: l_argument := 'absence_attendance_id';
3698: raise l_error;
3699: end if;
3700: --
3701: hr_utility.set_location(l_proc, 3);
3702: if nvl(p_rec.business_group_id, hr_api.g_number) <>
3703: per_abs_shd.g_old_rec.business_group_id then
3704: l_argument := 'business_group_id';
3705: raise l_error;
3704: l_argument := 'business_group_id';
3705: raise l_error;
3706: end if;
3707: --
3708: hr_utility.set_location(l_proc, 4);
3709: if nvl(p_rec.person_id, hr_api.g_number) <>
3710: per_abs_shd.g_old_rec.person_id then
3711: l_argument := 'person_id';
3712: raise l_error;
3711: l_argument := 'person_id';
3712: raise l_error;
3713: end if;
3714: --
3715: hr_utility.set_location(l_proc, 5);
3716: if nvl(p_rec.absence_attendance_type_id,hr_api.g_number) <>
3717: per_abs_shd.g_old_rec.absence_attendance_type_id then
3718: l_argument := 'absence_attendance_type_id';
3719: raise l_error;
3718: l_argument := 'absence_attendance_type_id';
3719: raise l_error;
3720: end if;
3721: --
3722: hr_utility.set_location(l_proc, 6);
3723: if nvl(p_rec.occurrence,hr_api.g_number) <>
3724: per_abs_shd.g_old_rec.occurrence then
3725: l_argument := 'occurrence';
3726: raise l_error;
3764:
3765: --
3766: Begin
3767:
3768: hr_utility.set_location('Entering:'||l_proc, 5);
3769:
3770: --
3771: -- Assign the durations to the global variables.
3772: --
3784: -- Check the business group id.
3785: --
3786: hr_api.validate_bus_grp_id(p_rec.business_group_id);
3787:
3788: hr_utility.set_location(l_proc, 10);
3789:
3790: ----Check the gender of the person in case of maternity leave bug# 6505054
3791:
3792: open c_absence_cat(p_rec.absence_attendance_type_id);
3907: ,p_date_start => p_rec.date_start
3908: ,p_date_end => p_rec.date_end);
3909:
3910:
3911: hr_utility.set_location(l_proc, 24);
3912: --
3913: per_abs_bus.chk_ddf(p_rec);
3914: --
3915: per_abs_bus.chk_df(p_rec);
3913: per_abs_bus.chk_ddf(p_rec);
3914: --
3915: per_abs_bus.chk_df(p_rec);
3916: --
3917: hr_utility.set_location(' Leaving:'||l_proc, 10);
3918: End insert_validate;
3919: --
3920: -- ----------------------------------------------------------------------------
3921: -- |---------------------------< update_validate >----------------------------|
3936: l_effective_date date; -- Added for bug 3371960.
3937: --
3938: Begin
3939:
3940: hr_utility.set_location('Entering:'||l_proc, 5);
3941: --
3942: -- Fix for bug 3371960 starts here.
3943: -- Use l_effective_date in different chk proceudre.
3944: --
3957: (p_effective_date => p_effective_date
3958: ,p_rec => p_rec
3959: );
3960: --
3961: hr_utility.set_location(l_proc, 14);
3962:
3963: --
3964: -- Check person ID. This procedure is called during update_validate
3965: -- because the person must be valid for the entire absence period
4069: ,p_date_start => p_rec.date_start
4070: ,p_date_end => p_rec.date_end);
4071:
4072:
4073: hr_utility.set_location(l_proc, 24);
4074: --
4075: per_abs_bus.chk_ddf(p_rec);
4076: --
4077: per_abs_bus.chk_df(p_rec);
4075: per_abs_bus.chk_ddf(p_rec);
4076: --
4077: per_abs_bus.chk_df(p_rec);
4078: --
4079: hr_utility.set_location(' Leaving:'||l_proc, 10);
4080: End update_validate;
4081: --
4082: -- ----------------------------------------------------------------------------
4083: -- |---------------------------< delete_validate >----------------------------|
4088: --
4089: l_proc varchar2(72) := g_package||'delete_validate';
4090: --
4091: Begin
4092: hr_utility.set_location('Entering:'||l_proc, 5);
4093: --
4094: -- Call all supporting business operations
4095: --
4096: hr_utility.set_location(' Leaving:'||l_proc, 10);
4092: hr_utility.set_location('Entering:'||l_proc, 5);
4093: --
4094: -- Call all supporting business operations
4095: --
4096: hr_utility.set_location(' Leaving:'||l_proc, 10);
4097: End delete_validate;
4098: --
4099: end per_abs_bus;