[Home] [Help]
124: and paa.primary_flag = 'Y';
125:
126: begin
127:
128: hr_utility.set_location('Entering:'|| l_proc, 10);
129:
130: --
131: -- Initialise all out parameters to zero.
132: --
140: --
141: l_effective_year := to_date('01/01/'||
142: to_char(p_effective_date,'YYYY'), 'DD/MM/YYYY');
143:
144: hr_utility.set_location(l_proc, 20);
145:
146: --
147: -- Get the running totals for this element type for this person.
148: -- Both the year to dates and running totals are collected in the
164:
165: if l_hours_or_days = 'H'
166: and l_increasing_or_decreasing = 'D' then
167:
168: hr_utility.set_location(l_proc, 25);
169:
170: p_running_total_hours := p_running_total_hours - l_absence_hours;
171:
172: --
179:
180: elsif l_hours_or_days = 'H'
181: and l_increasing_or_decreasing = 'I' then
182:
183: hr_utility.set_location(l_proc, 30);
184:
185: p_running_total_hours := p_running_total_hours + l_absence_hours;
186:
187: --
194:
195: elsif l_hours_or_days is null
196: and l_increasing_or_decreasing = 'I' then
197:
198: hr_utility.set_location(l_proc, 35);
199:
200: p_running_total_hours := p_running_total_hours + l_absence_hours;
201: p_running_total_days := p_running_total_days + l_absence_days;
202:
211:
212: elsif l_hours_or_days = 'D'
213: and l_increasing_or_decreasing = 'D' then
214:
215: hr_utility.set_location(l_proc, 40);
216:
217: p_running_total_days := p_running_total_days - l_absence_days;
218:
219: --
226:
227: elsif l_hours_or_days = 'D'
228: and l_increasing_or_decreasing = 'I' then
229:
230: hr_utility.set_location(l_proc, 45);
231:
232: p_running_total_days := p_running_total_days + l_absence_days;
233:
234: --
241:
242: elsif l_hours_or_days is null
243: and l_increasing_or_decreasing = 'D' then
244:
245: hr_utility.set_location(l_proc, 50);
246:
247: p_running_total_hours := p_running_total_hours - l_absence_hours;
248: p_running_total_days := p_running_total_days - l_absence_days;
249:
260:
261: end loop;
262: close c_get_running_totals;
263:
264: hr_utility.set_location(l_proc, 55);
265:
266: --
267: -- Is this absence type in hours or days?
268: --
269: open c_get_hours_or_days;
270: fetch c_get_hours_or_days into l_hours_or_days;
271: close c_get_hours_or_days;
272:
273: hr_utility.set_location(l_proc, 60);
274:
275: --
276: -- Add any upload elements to the balance. Upload elements
277: -- are elements linked to the absence type but do not
294: -- Add to the running total balance.
295: --
296: if l_hours_or_days = 'D' then
297:
298: hr_utility.set_location(l_proc, 65);
299: p_running_total_days := p_running_total_days + l_screen_entry_value;
300:
301: elsif l_hours_or_days = 'H' then
302:
299: p_running_total_days := p_running_total_days + l_screen_entry_value;
300:
301: elsif l_hours_or_days = 'H' then
302:
303: hr_utility.set_location(l_proc, 70);
304: p_running_total_hours := p_running_total_hours + l_screen_entry_value;
305:
306: end if;
307:
311: if to_char(l_effective_start_date, 'YYYY') = to_char(p_effective_date, 'YYYY')
312: and to_char(l_effective_end_date, 'YYYY') = to_char(p_effective_date, 'YYYY')
313: then
314:
315: hr_utility.set_location(l_proc, 75);
316:
317: if l_hours_or_days = 'D' then
318: p_year_to_date_days := p_year_to_date_days + l_screen_entry_value;
319:
325: end if;
326:
327: end loop;
328:
329: hr_utility.set_location(l_proc, 80);
330: --
331: -- Null out any irrelevant balances.
332: --
333: if l_hours_or_days = 'D' then
345: p_year_to_date_days := null;
346:
347: end if;
348:
349: hr_utility.set_location('Leaving:'|| l_proc, 85);
350:
351: end get_running_totals;
352: --
353: -- ---------------------------------------------------------------------------
442: --
443:
444: begin
445:
446: hr_utility.set_location('Entering:'|| l_proc, 10);
447:
448: --
449: -- Check that the person exists and that they have a valid period of
450: -- service for the entire absence duration.
467:
468: close c_per_valid_for_absence;
469:
470: --
471: hr_utility.set_location('Leaving:'|| l_proc, 20);
472:
473: end per_valid_for_absence;
474: --
475: -- ---------------------------------------------------------------------------
511: --
512:
513: begin
514:
515: hr_utility.set_location('Entering:'|| l_proc, 10);
516:
517: --
518: -- Calculate the total time in minutes between the start time
519: -- and the end time.
521: open c_get_time_duration;
522: fetch c_get_time_duration into l_time_duration;
523: close c_get_time_duration;
524:
525: hr_utility.set_location(' Leaving:'|| l_proc, 20);
526:
527: return l_time_duration;
528:
529: end convert_to_minutes;
559: l_proc varchar2(72) := g_package||'chk_time_format';
560: --
561:
562: begin
563: hr_utility.set_location('Entering:'|| l_proc, 10);
564: --
565:
566: if p_time is not null then
567: if not (substr(p_time,1,2) between '00' and '23'
573: end if;
574: end if;
575:
576: --
577: hr_utility.set_location(' Leaving:'|| l_proc, 50);
578: end chk_time_format;
579: --
580: -- +-------------------------------------------------------------------------+
581: -- |-----------------< good_time_format >-------------------------|
692: --
693: e_bad_time_format EXCEPTION;
694: --
695: BEGIN
696: hr_utility.set_location('Entering '||g_package||'.calc_sch_based_dur',10);
697: p_duration := 0;
698: l_time_start := p_time_start;
699: l_time_end := p_time_end;
700: --
841: --
842: END IF;
843: END IF;
844: --
845: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',20);
846: EXCEPTION
847: --
848: WHEN e_bad_time_format THEN
849: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',30);
845: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',20);
846: EXCEPTION
847: --
848: WHEN e_bad_time_format THEN
849: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',30);
850: hr_utility.set_location(SQLERRM,35);
851: RAISE;
852: --
853: WHEN OTHERS THEN
846: EXCEPTION
847: --
848: WHEN e_bad_time_format THEN
849: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',30);
850: hr_utility.set_location(SQLERRM,35);
851: RAISE;
852: --
853: WHEN OTHERS THEN
854: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',40);
850: hr_utility.set_location(SQLERRM,35);
851: RAISE;
852: --
853: WHEN OTHERS THEN
854: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',40);
855: hr_utility.set_location(SQLERRM,45);
856: RAISE;
857: --
858: END calc_sch_based_dur;
851: RAISE;
852: --
853: WHEN OTHERS THEN
854: hr_utility.set_location('Leaving '||g_package||'.calc_sch_based_dur',40);
855: hr_utility.set_location(SQLERRM,45);
856: RAISE;
857: --
858: END calc_sch_based_dur;
859: --
975:
976: --
977: begin
978:
979: hr_utility.set_location('Entering:'|| l_proc, 10);
980: --
981: -- Only proceed with validation if :
982: -- a) The current g_old_rec is current and
983: -- b) The date values have changed
1001: = nvl(p_absence_hours, hr_api.g_number)) then
1002: return;
1003: end if;
1004:
1005: hr_utility.set_location(l_proc, 15);
1006:
1007: --
1008: -- See if a Fast Formula exists. Here the Fast Formula names
1009: -- are hard-coded. Fast Formulas with these exact names can
1035: l_sch_based_dur_found := FALSE;
1036: --
1037: IF l_sch_based_dur = 'Y' THEN
1038: --
1039: hr_utility.set_location(l_proc, 16);
1040: p_use_formula := TRUE; -- set to display
1041: --
1042: calc_sch_based_dur (p_days_or_hours => l_hours_or_days,
1043: p_date_start => p_date_start,
1052: --
1053: l_sch_based_dur_found := TRUE;
1054: --
1055: IF l_hours_or_days = 'H' THEN
1056: hr_utility.set_location(l_proc, 17);
1057: p_absence_hours := l_absence_duration;
1058: ELSIF l_hours_or_days = 'D' THEN
1059: hr_utility.set_location(l_proc, 18);
1060: p_absence_days := l_absence_duration;
1055: IF l_hours_or_days = 'H' THEN
1056: hr_utility.set_location(l_proc, 17);
1057: p_absence_hours := l_absence_duration;
1058: ELSIF l_hours_or_days = 'D' THEN
1059: hr_utility.set_location(l_proc, 18);
1060: p_absence_days := l_absence_duration;
1061: ELSE
1062: hr_utility.set_location(l_proc, 19);
1063: l_sch_based_dur_found := FALSE;
1058: ELSIF l_hours_or_days = 'D' THEN
1059: hr_utility.set_location(l_proc, 18);
1060: p_absence_days := l_absence_duration;
1061: ELSE
1062: hr_utility.set_location(l_proc, 19);
1063: l_sch_based_dur_found := FALSE;
1064: END IF;
1065: --
1066: END IF;
1068: END IF; -- sch_based_dur is 'Y'
1069:
1070: IF l_sch_based_dur <> 'Y' OR (l_sch_based_dur = 'Y' AND NOT l_sch_based_dur_found) THEN
1071: --
1072: hr_utility.set_location(l_proc, 20);
1073:
1074: begin
1075: --
1076: -- Look for a customer-defined formula
1090: -- a legislative formula.
1091: --
1092: begin
1093:
1094: hr_utility.set_location(l_proc, 25);
1095:
1096: select ff.formula_id
1097: into l_formula_id
1098: from ff_formulas_f ff
1109: -- If none of the two above then select the core formula
1110: --
1111: begin
1112:
1113: hr_utility.set_location(l_proc, 30);
1114:
1115: select ff.formula_id
1116: into l_formula_id
1117: from ff_formulas_f ff
1132: end;
1133: end;
1134: end;
1135:
1136: hr_utility.set_location(l_proc, 35);
1137:
1138: if l_formula_id is not null then
1139: --
1140: -- An absence duration Fast Formula should be used so the
1141: -- formula is called. First, the formula is initialised.
1142: --
1143: p_use_formula := TRUE;
1144:
1145: hr_utility.set_location(l_proc, 40);
1146:
1147: --
1148: -- Initalise the formula.
1149: --
1152: ,p_effective_date => p_effective_date
1153: ,p_inputs => l_inputs
1154: ,p_outputs => l_outputs);
1155:
1156: hr_utility.set_location(l_proc, 45);
1157:
1158: --
1159: -- Assign the inputs.
1160: --
1189: end if;
1190:
1191: end loop;
1192:
1193: hr_utility.set_location(l_proc, 50);
1194:
1195: --
1196: -- Run the formula.
1197: --
1196: -- Run the formula.
1197: --
1198: ff_exec.run_formula(l_inputs, l_outputs);
1199:
1200: hr_utility.set_location(l_proc, 55);
1201:
1202: --
1203: -- Assign the outputs.
1204: --
1236: end if;
1237:
1238: end loop;
1239:
1240: hr_utility.set_location(l_proc, 60);
1241: hr_utility.trace('l_user_message: '||l_user_message);
1242: hr_utility.trace('l_invalid_message: '||l_invalid_message);
1243:
1244:
1237:
1238: end loop;
1239:
1240: hr_utility.set_location(l_proc, 60);
1241: hr_utility.trace('l_user_message: '||l_user_message);
1242: hr_utility.trace('l_invalid_message: '||l_invalid_message);
1243:
1244:
1245: /*Added for the bug 6790565 - starts here*/
1238: end loop;
1239:
1240: hr_utility.set_location(l_proc, 60);
1241: hr_utility.trace('l_user_message: '||l_user_message);
1242: hr_utility.trace('l_invalid_message: '||l_invalid_message);
1243:
1244:
1245: /*Added for the bug 6790565 - starts here*/
1246: -- Displays the error message text if text is given
1264: -- raise the error back to the user.
1265: --
1266: if l_user_message = 'Y' then
1267: -- Start of fix 3553741
1268: hr_utility.set_message(801,'HR_ELE_ENTRY_FORMULA_HINT');
1269: /*Added for the bug 6790565 - starts here*/
1270: -- hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message);
1271: hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message_txt);
1272: /*Added for the bug 6790565 - ends here*/
1266: if l_user_message = 'Y' then
1267: -- Start of fix 3553741
1268: hr_utility.set_message(801,'HR_ELE_ENTRY_FORMULA_HINT');
1269: /*Added for the bug 6790565 - starts here*/
1270: -- hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message);
1271: hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message_txt);
1272: /*Added for the bug 6790565 - ends here*/
1273: hr_utility.raise_error;
1274: -- End of fix 3553741
1267: -- Start of fix 3553741
1268: hr_utility.set_message(801,'HR_ELE_ENTRY_FORMULA_HINT');
1269: /*Added for the bug 6790565 - starts here*/
1270: -- hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message);
1271: hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message_txt);
1272: /*Added for the bug 6790565 - ends here*/
1273: hr_utility.raise_error;
1274: -- End of fix 3553741
1275: end if;
1269: /*Added for the bug 6790565 - starts here*/
1270: -- hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message);
1271: hr_utility.set_message_token('FORMULA_TEXT', l_invalid_message_txt);
1272: /*Added for the bug 6790565 - ends here*/
1273: hr_utility.raise_error;
1274: -- End of fix 3553741
1275: end if;
1276:
1277: hr_utility.set_location(l_proc, 63);
1273: hr_utility.raise_error;
1274: -- End of fix 3553741
1275: end if;
1276:
1277: hr_utility.set_location(l_proc, 63);
1278:
1279: else
1280: --
1281: -- No formula could be located so we calculate based on the
1282: -- standard hours of the assignment or business group.
1283: --
1284: p_use_formula := FALSE;
1285:
1286: hr_utility.set_location(l_proc, 65);
1287:
1288: --
1289: -- Get the default start and end times. First check the assignment, then
1290: -- the business group. If neither of these, assume 24 hours a day.
1308: ,p_format => 'TIMES');
1309:
1310: -- end #2734822
1311:
1312: hr_utility.set_location(l_proc, 70);
1313:
1314: --
1315: -- Calculate the number of minutes in each day.
1316: --
1392: --
1393: -- The leave timings are out off the standard timings.
1394: -- So use 24 hours rule to calculate the first day and last day minutes.
1395: --
1396: hr_utility.set_location(l_proc, 72);
1397: l_first_day_minutes := convert_to_minutes(nvl(p_time_start,
1398: l_normal_time_start),
1399: '24:00');
1400: l_last_day_minutes := convert_to_minutes('00:00', nvl(p_time_end,
1421: --3075512 changes end
1422: end if;
1423: --2943479 changes end
1424:
1425: hr_utility.trace('Normal Day Minutes: ' || to_char(l_normal_day_minutes));
1426: hr_utility.trace('First Day Minutes: ' || to_char(l_first_day_minutes));
1427: hr_utility.trace('Last Day Minutes: ' || to_char(l_last_day_minutes));
1428: hr_utility.trace('Same Day Minutes: ' || to_char(l_same_day_minutes));
1429:
1422: end if;
1423: --2943479 changes end
1424:
1425: hr_utility.trace('Normal Day Minutes: ' || to_char(l_normal_day_minutes));
1426: hr_utility.trace('First Day Minutes: ' || to_char(l_first_day_minutes));
1427: hr_utility.trace('Last Day Minutes: ' || to_char(l_last_day_minutes));
1428: hr_utility.trace('Same Day Minutes: ' || to_char(l_same_day_minutes));
1429:
1430: hr_utility.set_location(l_proc, 75);
1423: --2943479 changes end
1424:
1425: hr_utility.trace('Normal Day Minutes: ' || to_char(l_normal_day_minutes));
1426: hr_utility.trace('First Day Minutes: ' || to_char(l_first_day_minutes));
1427: hr_utility.trace('Last Day Minutes: ' || to_char(l_last_day_minutes));
1428: hr_utility.trace('Same Day Minutes: ' || to_char(l_same_day_minutes));
1429:
1430: hr_utility.set_location(l_proc, 75);
1431:
1424:
1425: hr_utility.trace('Normal Day Minutes: ' || to_char(l_normal_day_minutes));
1426: hr_utility.trace('First Day Minutes: ' || to_char(l_first_day_minutes));
1427: hr_utility.trace('Last Day Minutes: ' || to_char(l_last_day_minutes));
1428: hr_utility.trace('Same Day Minutes: ' || to_char(l_same_day_minutes));
1429:
1430: hr_utility.set_location(l_proc, 75);
1431:
1432: --
1426: hr_utility.trace('First Day Minutes: ' || to_char(l_first_day_minutes));
1427: hr_utility.trace('Last Day Minutes: ' || to_char(l_last_day_minutes));
1428: hr_utility.trace('Same Day Minutes: ' || to_char(l_same_day_minutes));
1429:
1430: hr_utility.set_location(l_proc, 75);
1431:
1432: --
1433: -- Calculate the absence days.
1434: --
1433: -- Calculate the absence days.
1434: --
1435: l_absence_days := (p_date_end - p_date_start) + 1;
1436:
1437: hr_utility.trace('Absence Days: ' || to_char(l_absence_days));
1438:
1439: --
1440: -- Calculate the absence hours.
1441: --
1459: ((l_absence_days - 2) * l_normal_day_minutes)) / 60;
1460:
1461: end if;
1462:
1463: hr_utility.set_location(l_proc, 80);
1464:
1465: --
1466: -- Check that the absence hours are not less than zero. This could
1467: -- happen if the entered start time is after the normal start time or
1503: end if;
1504:
1505: END IF; -- Schedule based calculation not used
1506:
1507: hr_utility.set_location(' Leaving:'|| l_proc, 85);
1508:
1509: exception
1510:
1511: when wrong_parameters then
1512: --
1513: -- The inputs / outputs of the Fast Formula are incorrect
1514: -- so raise an error.
1515: --
1516: hr_utility.set_location(l_proc, 90);
1517:
1518: hr_utility.set_message(800,'HR_34964_BAD_FF_DEFINITION');
1519: hr_utility.raise_error;
1520:
1514: -- so raise an error.
1515: --
1516: hr_utility.set_location(l_proc, 90);
1517:
1518: hr_utility.set_message(800,'HR_34964_BAD_FF_DEFINITION');
1519: hr_utility.raise_error;
1520:
1521: end calculate_absence_duration;
1522: --
1515: --
1516: hr_utility.set_location(l_proc, 90);
1517:
1518: hr_utility.set_message(800,'HR_34964_BAD_FF_DEFINITION');
1519: hr_utility.raise_error;
1520:
1521: end calculate_absence_duration;
1522: --
1523: -- ---------------------------------------------------------------------------
1565: --
1566:
1567: begin
1568:
1569: hr_utility.set_location('Entering:'|| l_proc, 10);
1570: --
1571: hr_api.mandatory_arg_error
1572: (p_api_name => l_proc
1573: ,p_argument => 'p_person_id'
1617: fnd_message.raise_error;
1618:
1619: end if;
1620:
1621: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1622:
1623: end chk_person_id;
1624: --
1625: -- ---------------------------------------------------------------------------
1686:
1687: --
1688: begin
1689:
1690: hr_utility.set_location('Entering:'|| l_proc, 10);
1691: --
1692: --
1693: -- Check mandatory parameters have been set
1694: --
1718: = nvl(p_date_end, hr_api.g_date)) then
1719: return;
1720: end if;
1721:
1722: hr_utility.set_location(l_proc, 15);
1723:
1724: --
1725: -- Check that all the dates are within the effective dates of the
1726: -- absence type.
1734: end if;
1735:
1736: close c_absence_within_type_dates;
1737:
1738: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1739:
1740: end chk_absence_attendance_type_id;
1741: --
1742: -- ---------------------------------------------------------------------------
1806: and hrl.enabled_flag = 'Y';
1807: --
1808: begin
1809:
1810: hr_utility.set_location('Entering:'|| l_proc, 10);
1811:
1812: if p_abs_attendance_reason_id is null then
1813: return;
1814: end if;
1836: --
1837: end if;
1838: close csr_valid_abs_reason;
1839:
1840: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1841:
1842: end chk_abs_attendance_reason_id;
1843: --
1844: -- ---------------------------------------------------------------------------
2024:
2025:
2026: begin
2027:
2028: hr_utility.set_location('Entering:'|| l_proc, 5);
2029:
2030: --
2031: -- Only proceed with validation if :
2032: -- a) The current g_old_rec is current and
2079: l_increasing_or_decreasing,
2080: l_absence_overlap_flag;
2081: close c_get_absence_type_info;
2082:
2083: hr_utility.set_location(l_proc, 10);
2084:
2085: --
2086: -- Check the time formats
2087: --
2098: fnd_message.set_name('PER','HR_289294_ABS_SD_NOT_ENTERED');
2099: fnd_message.raise_error;
2100: end if;
2101:
2102: hr_utility.set_location(l_proc, 15);
2103:
2104: --
2105: -- Check that the end dates are after the start dates. If they are the same
2106: -- day, check that the end time is after the start time.
2124: fnd_message.raise_error;
2125:
2126: end if;
2127:
2128: hr_utility.set_location(l_proc, 20);
2129:
2130: --
2131: -- Check that times have / have not been entered depending on the
2132: -- UOM of the absence type.
2168: end if;
2169:
2170: end if;
2171:
2172: hr_utility.set_location(l_proc, 25);
2173:
2174: --
2175: -- If the end date is entered, the duration in days and / or hours
2176: -- must be entered. This can be calculated automatically in some
2194: ,p_absence_days => l_absence_days
2195: ,p_absence_hours => l_absence_hours
2196: ,p_use_formula => l_use_formula);
2197:
2198: hr_utility.trace ('Calc dys: '||to_char(l_absence_days));
2199: hr_utility.trace ('Calc hrs: '||to_char(l_absence_hours));
2200:
2201: --
2202: -- The absence duration is only set if the results returned are
2195: ,p_absence_hours => l_absence_hours
2196: ,p_use_formula => l_use_formula);
2197:
2198: hr_utility.trace ('Calc dys: '||to_char(l_absence_days));
2199: hr_utility.trace ('Calc hrs: '||to_char(l_absence_hours));
2200:
2201: --
2202: -- The absence duration is only set if the results returned are
2203: -- from the Fast Formula and the durations are null or
2205: --
2206: l_auto_overwrite :=
2207: nvl(fnd_profile.value('PER_ABSENCE_DURATION_AUTO_OVERWRITE'),'N');
2208:
2209: hr_utility.set_location(l_proc, 30);
2210:
2211: If (l_use_formula)
2212: and ((l_auto_overwrite = 'Y') or
2213: (p_absence_days is null and p_absence_hours is null)) then
2217: -- hours are populated and if no UOM is set, both days and hours
2218: -- are set.
2219: --
2220:
2221: hr_utility.trace ('Use Formula = TRUE');
2222:
2223: p_absence_days := l_absence_days;
2224: p_absence_hours := l_absence_hours;
2225: p_dur_overwritten_warning := TRUE;
2225: p_dur_overwritten_warning := TRUE;
2226:
2227: end if;
2228:
2229: hr_utility.set_location(l_proc, 35);
2230:
2231:
2232: --
2233: -- Check that the duration days and / or hours have been entered if the
2281: end if;
2282:
2283: end if;
2284:
2285: hr_utility.set_location(l_proc, 40);
2286:
2287: --
2288: -- Check that the dates and / or times have been entered if the duration
2289: -- has been entered.
2299: fnd_message.raise_error;
2300: */
2301: end if;
2302:
2303: hr_utility.set_location(l_proc, 45);
2304:
2305: --
2306: -- Check if the absence duration in days differs from
2307: -- the amount of time absent.
2346: fnd_message.raise_error;*/
2347:
2348: end if;
2349:
2350: hr_utility.set_location(l_proc, 50);
2351:
2352: --
2353: -- Check if this absence exceeds the net entitlement on any of the
2354: -- employee's accrual plans. First the assignment id and plan id(s)
2393: close csr_legislation;
2394:
2395: if l_legislation_code = 'AU'
2396: then
2397: hr_utility.set_location('APAC code - '||l_proc,52);
2398: l_net_entitlement := hr_au_holidays.get_net_accrual
2399: (p_assignment_id => l_assignment_id
2400: ,p_payroll_id => l_payroll_id
2401: ,p_business_group_id => p_business_group_id
2403: ,p_calculation_date => nvl(p_date_start, p_effective_date)
2404: );
2405: elsif l_legislation_code = 'NZ'
2406: then
2407: hr_utility.set_location(l_proc,53);
2408: l_net_entitlement := hr_nz_holidays.get_net_accrual
2409: (p_assignment_id => l_assignment_id
2410: ,p_payroll_id => l_payroll_id
2411: ,p_business_group_id => p_business_group_id
2413: ,p_calculation_date => nvl(p_date_start, p_effective_date)
2414: );
2415:
2416: else
2417: hr_utility.set_location('APAC code - '||l_proc,54);
2418: -- ********** existing code wrapped by if statement from bug 2729784 *************
2419: per_accrual_calc_functions.get_net_accrual
2420: (p_assignment_id => l_assignment_id
2421: ,p_plan_id => l_accrual_plan_id
2429: ,p_net_entitlement => l_net_entitlement);
2430: -- ********** end existing code ***************
2431:
2432: end if;
2433: hr_utility.trace('Ent = '||to_char(l_net_entitlement));
2434:
2435: -- ****************** End Bug 2729784 *********************
2436:
2437:
2471:
2472: when others then
2473:
2474: l_message_text := fnd_message.get;
2475: hr_utility.trace('Unable to execute the PTO formula. '||l_message_text);
2476:
2477: end;
2478:
2479: if (l_accrual_msg) then
2481: end if;
2482:
2483: end if;
2484:
2485: hr_utility.set_location(l_proc, 55);
2486:
2487: --
2488: -- Get the running totals and check that the values do not
2489: -- decrease to less than zero.
2510: then
2511:
2512: p_exceeds_run_total_warning := TRUE;
2513:
2514: hr_utility.set_location(l_proc, 57);
2515:
2516: end if;
2517:
2518: hr_utility.set_location(l_proc, 60);
2514: hr_utility.set_location(l_proc, 57);
2515:
2516: end if;
2517:
2518: hr_utility.set_location(l_proc, 60);
2519:
2520: --
2521: -- Check if this absence overlaps another absence for the same person.
2522: --
2532:
2533: end if;
2534: end if;
2535:
2536: hr_utility.set_location(l_proc, 65);
2537:
2538: --
2539: -- Check if this is a sickness absence that starts the day after another
2540: -- sickness absence for this person.
2550:
2551: end if;
2552:
2553: --
2554: hr_utility.set_location('Leaving:'|| l_proc, 70);
2555:
2556: end chk_absence_period;
2557: --
2558: -- ---------------------------------------------------------------------------
2600: --
2601:
2602: begin
2603:
2604: hr_utility.set_location('Entering:'|| l_proc, 10);
2605: --
2606: hr_api.mandatory_arg_error
2607: (p_api_name => l_proc
2608: ,p_argument => 'p_business_group_id'
2652: end if;
2653:
2654: end if;
2655:
2656: hr_utility.set_location(' Leaving:'|| l_proc, 20);
2657:
2658: end chk_replacement_person_id;
2659: --
2660: --
2703: --
2704:
2705: begin
2706:
2707: hr_utility.set_location('Entering:'|| l_proc, 10);
2708: --
2709: hr_api.mandatory_arg_error
2710: (p_api_name => l_proc
2711: ,p_argument => 'p_business_group_id'
2755: end if;
2756:
2757: end if;
2758:
2759: hr_utility.set_location(' Leaving:'|| l_proc, 20);
2760:
2761: end chk_authorising_person_id;
2762: --
2763: -- ---------------------------------------------------------------------------
2783: l_proc varchar2(72) := g_package||'set_security_group_id';
2784: --
2785: begin
2786: --
2787: hr_utility.set_location('Entering:'|| l_proc, 10);
2788: --
2789: -- Ensure that all the mandatory parameter are not null
2790: --
2791: hr_api.mandatory_arg_error
2814: hr_api.set_security_group_id
2815: (p_security_group_id => l_security_group_id
2816: );
2817: --
2818: hr_utility.set_location(' Leaving:'|| l_proc, 20);
2819: --
2820: end set_security_group_id;
2821: --
2822: -- ---------------------------------------------------------------------------
2843: l_proc varchar2(72) := g_package||'return_legislation_code';
2844: --
2845: Begin
2846: --
2847: hr_utility.set_location('Entering:'|| l_proc, 10);
2848: --
2849: -- Ensure that all the mandatory parameter are not null
2850: --
2851: hr_api.mandatory_arg_error
2861: -- call to this function. Just return the value in the global
2862: -- variable.
2863: --
2864: l_legislation_code := per_abs_bus.g_legislation_code;
2865: hr_utility.set_location(l_proc, 20);
2866: else
2867: --
2868: -- The ID is different to the last call to this function
2869: -- or this is the first call to this function.
2878: close csr_leg_code;
2879: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
2880: fnd_message.raise_error;
2881: end if;
2882: hr_utility.set_location(l_proc,30);
2883: --
2884: -- Set the global variables so the values are
2885: -- available for the next call to this function.
2886: --
2887: close csr_leg_code;
2888: per_abs_bus.g_absence_attendance_id:= p_absence_attendance_id;
2889: per_abs_bus.g_legislation_code := l_legislation_code;
2890: end if;
2891: hr_utility.set_location(' Leaving:'|| l_proc, 40);
2892: return l_legislation_code;
2893: end return_legislation_code;
2894: --
2895: -- ----------------------------------------------------------------------------
2927: --
2928: l_proc varchar2(72) := g_package || 'chk_ddf';
2929: --
2930: begin
2931: hr_utility.set_location('Entering:'||l_proc,10);
2932: --
2933: if ((p_rec.absence_attendance_id is not null) and (
2934: nvl(per_abs_shd.g_old_rec.abs_information_category, hr_api.g_varchar2) <>
2935: nvl(p_rec.abs_information_category, hr_api.g_varchar2) or
3066: ,p_attribute30_value => p_rec.abs_information30
3067: );
3068: end if;
3069: --
3070: hr_utility.set_location(' Leaving:'||l_proc,20);
3071: end chk_ddf;
3072: --
3073: -- ----------------------------------------------------------------------------
3074: -- |------------------------------< chk_df >----------------------------------|
3105: --
3106: l_proc varchar2(72) := g_package || 'chk_df';
3107: --
3108: begin
3109: hr_utility.set_location('Entering:'||l_proc,10);
3110: --
3111: if ((p_rec.absence_attendance_id is not null) and (
3112: nvl(per_abs_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
3113: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
3204: ,p_attribute20_value => p_rec.attribute20
3205: );
3206: end if;
3207: --
3208: hr_utility.set_location(' Leaving:'||l_proc,20);
3209: end chk_df;
3210: --
3211: -- ----------------------------------------------------------------------------
3212: -- |-----------------------< chk_non_updateable_args >------------------------|
3258: fnd_message.set_token('STEP ', '5');
3259: fnd_message.raise_error;
3260: END IF;
3261: --
3262: hr_utility.set_location(l_proc, 2);
3263: if nvl(p_rec.absence_attendance_id,hr_api.g_number) <>
3264: per_abs_shd.g_old_rec.absence_attendance_id then
3265: l_argument := 'absence_attendance_id';
3266: raise l_error;
3265: l_argument := 'absence_attendance_id';
3266: raise l_error;
3267: end if;
3268: --
3269: hr_utility.set_location(l_proc, 3);
3270: if nvl(p_rec.business_group_id, hr_api.g_number) <>
3271: per_abs_shd.g_old_rec.business_group_id then
3272: l_argument := 'business_group_id';
3273: raise l_error;
3272: l_argument := 'business_group_id';
3273: raise l_error;
3274: end if;
3275: --
3276: hr_utility.set_location(l_proc, 4);
3277: if nvl(p_rec.person_id, hr_api.g_number) <>
3278: per_abs_shd.g_old_rec.person_id then
3279: l_argument := 'person_id';
3280: raise l_error;
3279: l_argument := 'person_id';
3280: raise l_error;
3281: end if;
3282: --
3283: hr_utility.set_location(l_proc, 5);
3284: if nvl(p_rec.absence_attendance_type_id,hr_api.g_number) <>
3285: per_abs_shd.g_old_rec.absence_attendance_type_id then
3286: l_argument := 'absence_attendance_type_id';
3287: raise l_error;
3286: l_argument := 'absence_attendance_type_id';
3287: raise l_error;
3288: end if;
3289: --
3290: hr_utility.set_location(l_proc, 6);
3291: if nvl(p_rec.occurrence,hr_api.g_number) <>
3292: per_abs_shd.g_old_rec.occurrence then
3293: l_argument := 'occurrence';
3294: raise l_error;
3332:
3333: --
3334: Begin
3335:
3336: hr_utility.set_location('Entering:'||l_proc, 5);
3337:
3338: --
3339: -- Assign the durations to the global variables.
3340: --
3352: -- Check the business group id.
3353: --
3354: hr_api.validate_bus_grp_id(p_rec.business_group_id);
3355:
3356: hr_utility.set_location(l_proc, 10);
3357:
3358: ----Check the gender of the person in case of maternity leave bug# 6505054
3359:
3360: open c_absence_cat(p_rec.absence_attendance_type_id);
3468: ,p_date_start => p_rec.date_start
3469: ,p_date_end => p_rec.date_end);
3470:
3471:
3472: hr_utility.set_location(l_proc, 24);
3473: --
3474: per_abs_bus.chk_ddf(p_rec);
3475: --
3476: per_abs_bus.chk_df(p_rec);
3474: per_abs_bus.chk_ddf(p_rec);
3475: --
3476: per_abs_bus.chk_df(p_rec);
3477: --
3478: hr_utility.set_location(' Leaving:'||l_proc, 10);
3479: End insert_validate;
3480: --
3481: -- ----------------------------------------------------------------------------
3482: -- |---------------------------< update_validate >----------------------------|
3497: l_effective_date date; -- Added for bug 3371960.
3498: --
3499: Begin
3500:
3501: hr_utility.set_location('Entering:'||l_proc, 5);
3502: --
3503: -- Fix for bug 3371960 starts here.
3504: -- Use l_effective_date in different chk proceudre.
3505: --
3518: (p_effective_date => p_effective_date
3519: ,p_rec => p_rec
3520: );
3521: --
3522: hr_utility.set_location(l_proc, 14);
3523:
3524: --
3525: -- Check person ID. This procedure is called during update_validate
3526: -- because the person must be valid for the entire absence period
3622: ,p_date_start => p_rec.date_start
3623: ,p_date_end => p_rec.date_end);
3624:
3625:
3626: hr_utility.set_location(l_proc, 24);
3627: --
3628: per_abs_bus.chk_ddf(p_rec);
3629: --
3630: per_abs_bus.chk_df(p_rec);
3628: per_abs_bus.chk_ddf(p_rec);
3629: --
3630: per_abs_bus.chk_df(p_rec);
3631: --
3632: hr_utility.set_location(' Leaving:'||l_proc, 10);
3633: End update_validate;
3634: --
3635: -- ----------------------------------------------------------------------------
3636: -- |---------------------------< delete_validate >----------------------------|
3641: --
3642: l_proc varchar2(72) := g_package||'delete_validate';
3643: --
3644: Begin
3645: hr_utility.set_location('Entering:'||l_proc, 5);
3646: --
3647: -- Call all supporting business operations
3648: --
3649: hr_utility.set_location(' Leaving:'||l_proc, 10);
3645: hr_utility.set_location('Entering:'||l_proc, 5);
3646: --
3647: -- Call all supporting business operations
3648: --
3649: hr_utility.set_location(' Leaving:'||l_proc, 10);
3650: End delete_validate;
3651: --
3652: end per_abs_bus;