[Home] [Help]
2: /* $Header: hxttdet.pkb 120.34.12010000.4 2008/09/24 09:50:01 sabvenug ship $ */
3: --
4: -- Global variables for package
5: -- Used for parameters received that are not changed
6: g_debug BOOLEAN := hr_utility.debug_enabled;
7: g_ep_id NUMBER;
8: g_ep_type hxt_earning_policies.fcl_earn_type%TYPE;
9: g_egt_id NUMBER;
10: g_sdf_id NUMBER;
276: );
277:
278: IF g_debug
279: THEN
280: hr_utility.TRACE ('Adding to g_otm_messages' || p_msg_name);
281: END IF;
282:
283: hxt_util.DEBUG ('Return code is 2 from call gen error');
284: RETURN 2;
388: -- p_GROUP_ID IN NUMBER) -- HXT11i1
389: RETURN NUMBER
390: IS
391: BEGIN
392: g_debug := hr_utility.debug_enabled;
393:
394: IF g_debug
395: THEN
396: hr_utility.set_location ('hxt_time_detail.GENERATE_SPECIAL', 10);
392: g_debug := hr_utility.debug_enabled;
393:
394: IF g_debug
395: THEN
396: hr_utility.set_location ('hxt_time_detail.GENERATE_SPECIAL', 10);
397: hr_utility.TRACE ( 'p_time_in :'
398: || TO_CHAR (p_time_in, 'DD-MON-YYYY HH24:MI:SS')
399: );
400: hr_utility.TRACE ( 'p_time_out :'
393:
394: IF g_debug
395: THEN
396: hr_utility.set_location ('hxt_time_detail.GENERATE_SPECIAL', 10);
397: hr_utility.TRACE ( 'p_time_in :'
398: || TO_CHAR (p_time_in, 'DD-MON-YYYY HH24:MI:SS')
399: );
400: hr_utility.TRACE ( 'p_time_out :'
401: || TO_CHAR (p_time_out, 'DD-MON-YYYY HH24:MI:SS')
396: hr_utility.set_location ('hxt_time_detail.GENERATE_SPECIAL', 10);
397: hr_utility.TRACE ( 'p_time_in :'
398: || TO_CHAR (p_time_in, 'DD-MON-YYYY HH24:MI:SS')
399: );
400: hr_utility.TRACE ( 'p_time_out :'
401: || TO_CHAR (p_time_out, 'DD-MON-YYYY HH24:MI:SS')
402: );
403: END IF;
404:
461:
462: -- g_GROUP_ID := p_GROUP_ID; -- HXT11i1
463: IF g_debug
464: THEN
465: hr_utility.set_location ('hxt_time_detail.GENERATE_SPECIAL', 20);
466: END IF;
467:
468: RETURN gen_special (p_location,
469: g_time_in,
474: );
475:
476: IF g_debug
477: THEN
478: hr_utility.set_location ('hxt_time_detail.GENERATE_SPECIAL', 30);
479: END IF;
480: -- parameters used for compatibility with this version of gen special
481: END;
482:
968: l_double_time_elem NUMBER;
969: BEGIN
970: IF g_debug
971: THEN
972: hr_utility.set_location ('adjust_for_double_time', 10);
973: END IF;
974:
975: l_delta := p_day_total - 12;
976:
1031: CLOSE daily_earn_rules_cur2;
1032:
1033: IF g_debug
1034: THEN
1035: hr_utility.set_location ('adjust_for_double_time', 50);
1036: END IF;
1037:
1038: IF pay (l_delta,
1039: l_double_time_elem,
1065: ) <> 0
1066: THEN
1067: IF g_debug
1068: THEN
1069: hr_utility.set_location ('adjust_for_double_time', 75);
1070: END IF;
1071:
1072: RETURN 5;
1073: END IF;
1073: END IF;
1074:
1075: IF g_debug
1076: THEN
1077: hr_utility.set_location ('adjust_for_double_time', 100);
1078: END IF;
1079:
1080: RETURN 0;
1081: END adjust_for_double_time;
1307: BEGIN
1308: IF g_debug
1309: THEN
1310: l_proc := 'hxt_time_detail.adjust_for_hdp_shortage';
1311: hr_utility.set_location (l_proc, 10);
1312: END IF;
1313:
1314: OPEN current_dtl (p_hours_short);
1315:
1319: IF current_dtl%NOTFOUND
1320: THEN
1321: IF g_debug
1322: THEN
1323: hr_utility.set_location (l_proc, 20);
1324: END IF;
1325:
1326: CLOSE current_dtl;
1327:
1331: CLOSE current_dtl;
1332:
1333: IF g_debug
1334: THEN
1335: hr_utility.set_location (l_proc, 30);
1336: hr_utility.TRACE ('current_dtl_row.hours:'
1337: || current_dtl_row.hours
1338: );
1339: hr_utility.TRACE ('p_hours_short :' || p_hours_short);
1332:
1333: IF g_debug
1334: THEN
1335: hr_utility.set_location (l_proc, 30);
1336: hr_utility.TRACE ('current_dtl_row.hours:'
1337: || current_dtl_row.hours
1338: );
1339: hr_utility.TRACE ('p_hours_short :' || p_hours_short);
1340: END IF;
1335: hr_utility.set_location (l_proc, 30);
1336: hr_utility.TRACE ('current_dtl_row.hours:'
1337: || current_dtl_row.hours
1338: );
1339: hr_utility.TRACE ('p_hours_short :' || p_hours_short);
1340: END IF;
1341:
1342: l_hours_to_adjust := current_dtl_row.hours - p_hours_short;
1343:
1342: l_hours_to_adjust := current_dtl_row.hours - p_hours_short;
1343:
1344: IF g_debug
1345: THEN
1346: hr_utility.TRACE ('l_hours_to_adjust:' || l_hours_to_adjust);
1347: hr_utility.TRACE ( 'current_dtl_row.parent_id:'
1348: || current_dtl_row.parent_id
1349: );
1350: hr_utility.TRACE ('current_dtl_row.seqno:'
1343:
1344: IF g_debug
1345: THEN
1346: hr_utility.TRACE ('l_hours_to_adjust:' || l_hours_to_adjust);
1347: hr_utility.TRACE ( 'current_dtl_row.parent_id:'
1348: || current_dtl_row.parent_id
1349: );
1350: hr_utility.TRACE ('current_dtl_row.seqno:'
1351: || current_dtl_row.seqno
1346: hr_utility.TRACE ('l_hours_to_adjust:' || l_hours_to_adjust);
1347: hr_utility.TRACE ( 'current_dtl_row.parent_id:'
1348: || current_dtl_row.parent_id
1349: );
1350: hr_utility.TRACE ('current_dtl_row.seqno:'
1351: || current_dtl_row.seqno
1352: );
1353: hr_utility.TRACE ('current_dtl_row.hours:'
1354: || current_dtl_row.hours
1349: );
1350: hr_utility.TRACE ('current_dtl_row.seqno:'
1351: || current_dtl_row.seqno
1352: );
1353: hr_utility.TRACE ('current_dtl_row.hours:'
1354: || current_dtl_row.hours
1355: );
1356: END IF;
1357:
1362: )
1363: LOOP
1364: IF g_debug
1365: THEN
1366: hr_utility.set_location (l_proc, 40);
1367: END IF;
1368:
1369: UPDATE hxt_det_hours_worked
1370: SET hours = l_hours_to_adjust,
1373: END LOOP;
1374:
1375: IF g_debug
1376: THEN
1377: hr_utility.set_location (l_proc, 50);
1378: END IF;
1379:
1380: UPDATE hxt_det_hours_worked
1381: SET hours = l_hours_to_adjust,
1383: WHERE ROWID = current_dtl_row.dhw_rowid;
1384:
1385: IF g_debug
1386: THEN
1387: hr_utility.set_location (l_proc, 60);
1388: END IF;
1389:
1390: RETURN (0);
1391: END adjust_for_hdp_shortage;
1479: END IF;
1480:
1481: IF g_debug
1482: THEN
1483: hr_utility.set_location ('adjust_for_3tier', 10);
1484: END IF;
1485:
1486: OPEN weekly_earn_rules_cur2 (a_ep_id, a_date_worked);
1487:
1518: CLOSE weekly_earn_rules_cur2;
1519:
1520: IF g_debug
1521: THEN
1522: hr_utility.set_location ('adjust_for_3tier', 30);
1523: END IF;
1524:
1525: -- fetch sum of regular hours to date
1526: /* CHANGED call to get only REGULAR Hours Worked instead of total hours*/
1538: CLOSE sum_ovt_cur;
1539:
1540: IF g_debug
1541: THEN
1542: hr_utility.set_location ('adjust_for_3tier', 50);
1543: END IF;
1544:
1545: IF (l_sum_reg + l_delta) <= l_second_cap
1546: THEN
1545: IF (l_sum_reg + l_delta) <= l_second_cap
1546: THEN
1547: IF g_debug
1548: THEN
1549: hr_utility.set_location ('adjust_for_3tier', 60);
1550: END IF;
1551:
1552: RETURN 0;
1553: END IF;
1645:
1646: --
1647: IF g_debug
1648: THEN
1649: hr_utility.set_location ('adjust_for_3tier', 100);
1650: END IF;
1651:
1652: IF (l_ovt_hrs_cur.hours > l_hours_left)
1653: THEN
1652: IF (l_ovt_hrs_cur.hours > l_hours_left)
1653: THEN
1654: IF g_debug
1655: THEN
1656: hr_utility.set_location ('adjust_for_3tier', 110);
1657: END IF;
1658:
1659: l_error_code :=
1660: pay (l_hours_left,
1690: ELSIF (l_ovt_hrs_cur.hours = l_hours_left)
1691: THEN
1692: IF g_debug
1693: THEN
1694: hr_utility.set_location ('adjust_for_3tier', 120);
1695: END IF;
1696:
1697: l_error_code :=
1698: pay (l_hours_left,
1726: ); --SIR337
1727: ELSE
1728: IF g_debug
1729: THEN
1730: hr_utility.set_location ('adjust_for_3tier', 130);
1731: END IF;
1732:
1733: l_error_code :=
1734: pay (l_hours_left,
1781: CLOSE ovt_hrs_cur;
1782:
1783: IF g_debug
1784: THEN
1785: hr_utility.set_location ('adjust_for_3tier', 200);
1786: END IF;
1787:
1788: RETURN 0;
1789: EXCEPTION
2177: := 'hxt_time_detail.adjust_hours_for_hdp';
2178: BEGIN
2179: IF g_debug
2180: THEN
2181: hr_utility.set_location (l_proc, 10);
2182: END IF;
2183:
2184: IF g_hdp_id IS NULL
2185: THEN
2184: IF g_hdp_id IS NULL
2185: THEN
2186: IF g_debug
2187: THEN
2188: hr_utility.set_location (l_proc, 20);
2189: END IF;
2190:
2191: RETURN (0);
2192: END IF;
2197: INTO sum_hours, sum_time_in, sum_time_out;
2198:
2199: IF g_debug
2200: THEN
2201: hr_utility.TRACE ( 'sum_time_in:'
2202: || TO_CHAR (sum_time_in,
2203: 'dd-mon-yyyy hh24:mi:ss'
2204: )
2205: );
2202: || TO_CHAR (sum_time_in,
2203: 'dd-mon-yyyy hh24:mi:ss'
2204: )
2205: );
2206: hr_utility.TRACE ( 'sum_time_out:'
2207: || TO_CHAR (sum_time_out,
2208: 'dd-mon-yyyy hh24:mi:ss'
2209: )
2210: );
2207: || TO_CHAR (sum_time_out,
2208: 'dd-mon-yyyy hh24:mi:ss'
2209: )
2210: );
2211: hr_utility.TRACE ( 'g_time_out:'
2212: || TO_CHAR (g_time_out,
2213: 'dd-mon-yyyy hh24:mi:ss')
2214: );
2215: END IF;
2221: IF g_time_out < sum_time_out
2222: THEN
2223: IF g_debug
2224: THEN
2225: hr_utility.set_location (l_proc, 30);
2226: END IF;
2227:
2228: RETURN (0);
2229: END IF;
2230: END IF;
2231:
2232: IF g_debug
2233: THEN
2234: hr_utility.TRACE ( 'g_time_out:'
2235: || TO_CHAR (g_time_out,
2236: 'dd-mon-yyyy hh24:mi:ss')
2237: );
2238: hr_utility.TRACE ('g_tim_id:' || g_tim_id);
2234: hr_utility.TRACE ( 'g_time_out:'
2235: || TO_CHAR (g_time_out,
2236: 'dd-mon-yyyy hh24:mi:ss')
2237: );
2238: hr_utility.TRACE ('g_tim_id:' || g_tim_id);
2239: END IF;
2240:
2241: -- Check for contiguity when time entered in Hours
2242: IF sum_time_in IS NULL AND sum_time_out IS NULL
2242: IF sum_time_in IS NULL AND sum_time_out IS NULL
2243: THEN
2244: IF g_debug
2245: THEN
2246: hr_utility.set_location (l_proc, 31);
2247: END IF;
2248:
2249: OPEN detail_hours_incl_prev_rows;
2250:
2252: INTO detail_hrs_total;
2253:
2254: IF g_debug
2255: THEN
2256: hr_utility.TRACE ('detail_hrs_total:' || detail_hrs_total);
2257: END IF;
2258:
2259: CLOSE detail_hours_incl_prev_rows;
2260:
2264: INTO sum_hrs_total, sum_row_count;
2265:
2266: IF g_debug
2267: THEN
2268: hr_utility.TRACE ('sum_hrs_total:' || sum_hrs_total);
2269: END IF;
2270:
2271: CLOSE get_sum_hrs;
2272:
2287: -- So apply hour deduction policy considering both the rows and see
2288: -- if the summed up hours are eligible for any deduction.
2289: IF g_debug
2290: THEN
2291: hr_utility.set_location (l_proc, 32);
2292: END IF;
2293:
2294: OPEN detail_hours_incl_prev_rows;
2295:
2297: INTO hours_paid_today;
2298:
2299: IF g_debug
2300: THEN
2301: hr_utility.TRACE ('hours_paid_today:' || hours_paid_today);
2302: END IF;
2303:
2304: CLOSE detail_hours_incl_prev_rows;
2305: /* v115.103 - M. Bhammar
2310: -- current row being processed and see if any hours can be deducted
2311: -- from this row based on the hour deduction policy.
2312: IF g_debug
2313: THEN
2314: hr_utility.set_location (l_proc, 33);
2315: END IF;
2316:
2317: OPEN detail_hours_today;
2318:
2320: INTO hours_paid_today;
2321:
2322: IF g_debug
2323: THEN
2324: hr_utility.TRACE ('hours_paid_today:' || hours_paid_today);
2325: END IF;
2326:
2327: CLOSE detail_hours_today;
2328: */
2331: ELSIF sum_time_in IS NOT NULL AND sum_time_out IS NOT NULL
2332: THEN
2333: IF g_debug
2334: THEN
2335: hr_utility.set_location (l_proc, 35);
2336: END IF;
2337:
2338: FOR rec_work_hrs IN csr_work_hrs (g_date_worked, g_tim_id)
2339: LOOP
2338: FOR rec_work_hrs IN csr_work_hrs (g_date_worked, g_tim_id)
2339: LOOP
2340: IF g_debug
2341: THEN
2342: hr_utility.set_location (l_proc, 40);
2343: END IF;
2344:
2345: loop_count := loop_count + 1;
2346:
2345: loop_count := loop_count + 1;
2346:
2347: IF g_debug
2348: THEN
2349: hr_utility.TRACE ('loop_count:' || loop_count);
2350: hr_utility.TRACE ( 'sum_time_in:'
2351: || TO_CHAR (sum_time_in,
2352: 'dd-mon-yyyy hh24:mi:ss'
2353: )
2346:
2347: IF g_debug
2348: THEN
2349: hr_utility.TRACE ('loop_count:' || loop_count);
2350: hr_utility.TRACE ( 'sum_time_in:'
2351: || TO_CHAR (sum_time_in,
2352: 'dd-mon-yyyy hh24:mi:ss'
2353: )
2354: );
2351: || TO_CHAR (sum_time_in,
2352: 'dd-mon-yyyy hh24:mi:ss'
2353: )
2354: );
2355: hr_utility.TRACE ( 'sum_time_out:'
2356: || TO_CHAR (sum_time_out,
2357: 'dd-mon-yyyy hh24:mi:ss'
2358: )
2359: );
2356: || TO_CHAR (sum_time_out,
2357: 'dd-mon-yyyy hh24:mi:ss'
2358: )
2359: );
2360: hr_utility.TRACE ( 'rec_work_hrs.time_out:'
2361: || TO_CHAR (rec_work_hrs.time_out,
2362: 'dd-mon-yyyy hh24:mi:ss'
2363: )
2364: );
2361: || TO_CHAR (rec_work_hrs.time_out,
2362: 'dd-mon-yyyy hh24:mi:ss'
2363: )
2364: );
2365: hr_utility.TRACE ('rec_work_hrs.id:' || rec_work_hrs.ID);
2366: hr_utility.TRACE ('g_id:' || g_id);
2367: END IF;
2368:
2369: -- Check whether the Time entered on two rows is contiguous or not
2362: 'dd-mon-yyyy hh24:mi:ss'
2363: )
2364: );
2365: hr_utility.TRACE ('rec_work_hrs.id:' || rec_work_hrs.ID);
2366: hr_utility.TRACE ('g_id:' || g_id);
2367: END IF;
2368:
2369: -- Check whether the Time entered on two rows is contiguous or not
2370: IF sum_time_in <> sum_time_out
2371: AND sum_time_in = rec_work_hrs.time_out
2372: THEN
2373: IF g_debug
2374: THEN
2375: hr_utility.set_location (l_proc, 50);
2376: END IF;
2377:
2378: OPEN hdp_hours_deducted_today;
2379:
2381: INTO hrs_deducted_today;
2382:
2383: IF g_debug
2384: THEN
2385: hr_utility.TRACE ( 'hrs_deducted_today :'
2386: || hrs_deducted_today
2387: );
2388: END IF;
2389:
2395: INTO detail_hrs_total;
2396:
2397: IF g_debug
2398: THEN
2399: hr_utility.TRACE ('detail_hrs_total:' || detail_hrs_total
2400: );
2401: END IF;
2402:
2403: CLOSE detail_hours_incl_prev_rows;
2405: hours_paid_today := detail_hrs_total + hrs_deducted_today;
2406:
2407: IF g_debug
2408: THEN
2409: hr_utility.TRACE ('hours_paid_today:' || hours_paid_today
2410: );
2411: END IF;
2412:
2413: EXIT;
2414: ELSIF loop_count = 1 AND g_id = rec_work_hrs.ID
2415: THEN
2416: IF g_debug
2417: THEN
2418: hr_utility.set_location (l_proc, 51);
2419: END IF;
2420:
2421: OPEN detail_hours_incl_prev_rows;
2422:
2424: INTO hours_paid_today;
2425:
2426: IF g_debug
2427: THEN
2428: hr_utility.TRACE ('hours_paid_today:' || hours_paid_today
2429: );
2430: END IF;
2431:
2432: CLOSE detail_hours_incl_prev_rows;
2434: EXIT;
2435: ELSE
2436: IF g_debug
2437: THEN
2438: hr_utility.set_location (l_proc, 52);
2439: END IF;
2440:
2441: OPEN detail_hours_today;
2442:
2450: END IF;
2451:
2452: IF g_debug
2453: THEN
2454: hr_utility.set_location (l_proc, 53);
2455: END IF;
2456:
2457: FOR hdp_rule IN hdp_rule_cursor
2458: LOOP
2457: FOR hdp_rule IN hdp_rule_cursor
2458: LOOP
2459: IF g_debug
2460: THEN
2461: hr_utility.set_location (l_proc, 54);
2462: END IF;
2463:
2464: IF g_debug
2465: THEN
2462: END IF;
2463:
2464: IF g_debug
2465: THEN
2466: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2467: hr_utility.TRACE ('hours_paid_today:' || hours_paid_today);
2468: hr_utility.TRACE ( 'hdp_rule.time_period:'
2469: || hdp_rule.time_period
2470: );
2463:
2464: IF g_debug
2465: THEN
2466: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2467: hr_utility.TRACE ('hours_paid_today:' || hours_paid_today);
2468: hr_utility.TRACE ( 'hdp_rule.time_period:'
2469: || hdp_rule.time_period
2470: );
2471: hr_utility.TRACE ('hdp_rule.hours:' || hdp_rule.hours);
2464: IF g_debug
2465: THEN
2466: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2467: hr_utility.TRACE ('hours_paid_today:' || hours_paid_today);
2468: hr_utility.TRACE ( 'hdp_rule.time_period:'
2469: || hdp_rule.time_period
2470: );
2471: hr_utility.TRACE ('hdp_rule.hours:' || hdp_rule.hours);
2472: END IF;
2467: hr_utility.TRACE ('hours_paid_today:' || hours_paid_today);
2468: hr_utility.TRACE ( 'hdp_rule.time_period:'
2469: || hdp_rule.time_period
2470: );
2471: hr_utility.TRACE ('hdp_rule.hours:' || hdp_rule.hours);
2472: END IF;
2473:
2474: deduct_hours :=
2475: deduct_hours
2478: );
2479:
2480: IF g_debug
2481: THEN
2482: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2483: END IF;
2484:
2485: /* Moved the following statement outside the cursor loop for bug: 5481772 */
2486: -- deduct_hours := deduct_hours - hrs_deducted_today;
2486: -- deduct_hours := deduct_hours - hrs_deducted_today;
2487:
2488: IF g_debug
2489: THEN
2490: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2491: END IF;
2492: END LOOP;
2493:
2494: deduct_hours := deduct_hours - hrs_deducted_today;
2494: deduct_hours := deduct_hours - hrs_deducted_today;
2495:
2496: IF g_debug
2497: THEN
2498: hr_utility.set_location (l_proc, 55);
2499: END IF;
2500:
2501: -- deduct_prem_hours := deduct_hours;
2502: OPEN sdf_prem_detail_hours;
2505: INTO sdf_prem_hours_paid;
2506:
2507: IF g_debug
2508: THEN
2509: hr_utility.TRACE ('sdf_prem_hours_paid:' || sdf_prem_hours_paid);
2510: END IF;
2511:
2512: CLOSE sdf_prem_detail_hours;
2513:
2519: CLOSE oth_prem_detail_hours;
2520:
2521: IF g_debug
2522: THEN
2523: hr_utility.TRACE ('oth_prem_hours_paid' || oth_prem_hours_paid);
2524: END IF;
2525:
2526: IF g_debug
2527: THEN
2524: END IF;
2525:
2526: IF g_debug
2527: THEN
2528: hr_utility.TRACE ('deduct_prem_hours:' || deduct_prem_hours);
2529: hr_utility.TRACE ('sdf_prem_hours_paid:' || sdf_prem_hours_paid);
2530: END IF;
2531:
2532: FOR hdp_rule IN hdp_rule_cursor
2525:
2526: IF g_debug
2527: THEN
2528: hr_utility.TRACE ('deduct_prem_hours:' || deduct_prem_hours);
2529: hr_utility.TRACE ('sdf_prem_hours_paid:' || sdf_prem_hours_paid);
2530: END IF;
2531:
2532: FOR hdp_rule IN hdp_rule_cursor
2533: LOOP
2538: );
2539:
2540: IF g_debug
2541: THEN
2542: hr_utility.TRACE ('deduct_prem_hours:' || deduct_prem_hours);
2543: END IF;
2544: END LOOP;
2545:
2546: IF g_debug
2544: END LOOP;
2545:
2546: IF g_debug
2547: THEN
2548: hr_utility.set_location (l_proc, 60);
2549: END IF;
2550:
2551: FOR current_dtl_row IN current_dtl
2552: LOOP
2551: FOR current_dtl_row IN current_dtl
2552: LOOP
2553: IF g_debug
2554: THEN
2555: hr_utility.set_location (l_proc, 70);
2556: END IF;
2557:
2558: EXIT WHEN deduct_hours = 0 AND l_prem_adjusted = TRUE;
2559:
2558: EXIT WHEN deduct_hours = 0 AND l_prem_adjusted = TRUE;
2559:
2560: IF g_debug
2561: THEN
2562: hr_utility.set_location (l_proc, 80);
2563: END IF;
2564:
2565: IF deduct_hours = 0 AND l_prem_adjusted = FALSE
2566: THEN
2565: IF deduct_hours = 0 AND l_prem_adjusted = FALSE
2566: THEN
2567: IF g_debug
2568: THEN
2569: hr_utility.set_location (l_proc, 90);
2570: END IF;
2571:
2572: -- We just need to adjust the premium hrs and not the
2573: -- REG or OT detail rows
2584: END IF;
2585:
2586: IF g_debug
2587: THEN
2588: hr_utility.set_location (l_proc, 100);
2589: END IF;
2590:
2591: IF deduct_hours <> 0
2592: THEN
2591: IF deduct_hours <> 0
2592: THEN
2593: IF g_debug
2594: THEN
2595: hr_utility.set_location (l_proc, 110);
2596: END IF;
2597:
2598: IF g_debug
2599: THEN
2596: END IF;
2597:
2598: IF g_debug
2599: THEN
2600: hr_utility.TRACE ( 'current_dtl_row.hours:'
2601: || current_dtl_row.hours
2602: );
2603: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2604: END IF;
2599: THEN
2600: hr_utility.TRACE ( 'current_dtl_row.hours:'
2601: || current_dtl_row.hours
2602: );
2603: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2604: END IF;
2605:
2606: IF current_dtl_row.hours <= deduct_hours
2607: THEN
2606: IF current_dtl_row.hours <= deduct_hours
2607: THEN
2608: IF g_debug
2609: THEN
2610: hr_utility.set_location (l_proc, 120);
2611: END IF;
2612:
2613: adjust_hours_for_premium (current_dtl_row.parent_id,
2614: current_dtl_row.tim_id,
2622: );
2623:
2624: IF g_debug
2625: THEN
2626: hr_utility.TRACE ('g_osp_id:' || g_osp_id);
2627: END IF;
2628:
2629: IF g_osp_id IS NOT NULL
2630: THEN
2629: IF g_osp_id IS NOT NULL
2630: THEN
2631: IF g_debug
2632: THEN
2633: hr_utility.set_location (l_proc, 130);
2634: END IF;
2635:
2636: FOR osp_dtl_row IN day_of_wk_prem_dtl
2637: LOOP
2636: FOR osp_dtl_row IN day_of_wk_prem_dtl
2637: LOOP
2638: IF g_debug
2639: THEN
2640: hr_utility.set_location (l_proc, 140);
2641: END IF;
2642:
2643: IF g_debug
2644: THEN
2641: END IF;
2642:
2643: IF g_debug
2644: THEN
2645: hr_utility.TRACE ( 'osp_dtl_row.hours:'
2646: || osp_dtl_row.hours
2647: );
2648: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2649: END IF;
2644: THEN
2645: hr_utility.TRACE ( 'osp_dtl_row.hours:'
2646: || osp_dtl_row.hours
2647: );
2648: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2649: END IF;
2650:
2651: UPDATE hxt_det_hours_worked
2652: SET hours = osp_dtl_row.hours - deduct_hours,
2662: THEN
2663:
2664: IF g_debug
2665: THEN
2666: hr_utility.set_location (l_proc, 140.1);
2667: END IF;
2668:
2669: FOR oth_dtl_row IN oth_prem_dtl
2670: LOOP
2670: LOOP
2671:
2672: IF g_debug
2673: THEN
2674: hr_utility.set_location (l_proc, 140.2);
2675: END IF;
2676:
2677: IF g_debug
2678: THEN
2675: END IF;
2676:
2677: IF g_debug
2678: THEN
2679: hr_utility.TRACE ('oth_prem_dtl.hours:' || oth_dtl_row.hours);
2680: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2681: END IF;
2682:
2683: UPDATE hxt_det_hours_worked
2676:
2677: IF g_debug
2678: THEN
2679: hr_utility.TRACE ('oth_prem_dtl.hours:' || oth_dtl_row.hours);
2680: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2681: END IF;
2682:
2683: UPDATE hxt_det_hours_worked
2684: SET hours = oth_dtl_row.hours - deduct_hours,
2693: WHERE ROWID = current_dtl_row.dhw_rowid;
2694:
2695: IF g_debug
2696: THEN
2697: hr_utility.TRACE ( 'current_dtl_row.hours:'
2698: || current_dtl_row.hours
2699: );
2700: END IF;
2701:
2702: deduct_hours := deduct_hours - current_dtl_row.hours;
2703:
2704: IF g_debug
2705: THEN
2706: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2707: END IF;
2708: ELSE
2709: IF g_debug
2710: THEN
2707: END IF;
2708: ELSE
2709: IF g_debug
2710: THEN
2711: hr_utility.set_location (l_proc, 150);
2712: END IF;
2713:
2714: IF l_prem_adjusted = TRUE
2715: THEN
2714: IF l_prem_adjusted = TRUE
2715: THEN
2716: IF g_debug
2717: THEN
2718: hr_utility.set_location (l_proc, 160);
2719: END IF;
2720:
2721: adjust_hours_for_premium (current_dtl_row.parent_id,
2722: current_dtl_row.tim_id,
2731: ELSIF l_prem_adjusted = FALSE
2732: THEN
2733: IF g_debug
2734: THEN
2735: hr_utility.set_location (l_proc, 170);
2736: END IF;
2737:
2738: adjust_hours_for_premium (current_dtl_row.parent_id,
2739: current_dtl_row.tim_id,
2748: END IF;
2749:
2750: IF g_debug
2751: THEN
2752: hr_utility.set_location (l_proc, 180);
2753: END IF;
2754:
2755: IF g_osp_id IS NOT NULL
2756: THEN
2755: IF g_osp_id IS NOT NULL
2756: THEN
2757: IF g_debug
2758: THEN
2759: hr_utility.set_location (l_proc, 190);
2760: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
2761: hr_utility.TRACE ('g_id :' || g_id);
2762: hr_utility.TRACE ('g_osp_id :' || g_osp_id);
2763: hr_utility.TRACE ('g_date_worked :' || g_date_worked);
2756: THEN
2757: IF g_debug
2758: THEN
2759: hr_utility.set_location (l_proc, 190);
2760: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
2761: hr_utility.TRACE ('g_id :' || g_id);
2762: hr_utility.TRACE ('g_osp_id :' || g_osp_id);
2763: hr_utility.TRACE ('g_date_worked :' || g_date_worked);
2764: END IF;
2757: IF g_debug
2758: THEN
2759: hr_utility.set_location (l_proc, 190);
2760: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
2761: hr_utility.TRACE ('g_id :' || g_id);
2762: hr_utility.TRACE ('g_osp_id :' || g_osp_id);
2763: hr_utility.TRACE ('g_date_worked :' || g_date_worked);
2764: END IF;
2765:
2758: THEN
2759: hr_utility.set_location (l_proc, 190);
2760: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
2761: hr_utility.TRACE ('g_id :' || g_id);
2762: hr_utility.TRACE ('g_osp_id :' || g_osp_id);
2763: hr_utility.TRACE ('g_date_worked :' || g_date_worked);
2764: END IF;
2765:
2766: FOR osp_dtl_row IN day_of_wk_prem_dtl
2759: hr_utility.set_location (l_proc, 190);
2760: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
2761: hr_utility.TRACE ('g_id :' || g_id);
2762: hr_utility.TRACE ('g_osp_id :' || g_osp_id);
2763: hr_utility.TRACE ('g_date_worked :' || g_date_worked);
2764: END IF;
2765:
2766: FOR osp_dtl_row IN day_of_wk_prem_dtl
2767: LOOP
2766: FOR osp_dtl_row IN day_of_wk_prem_dtl
2767: LOOP
2768: IF g_debug
2769: THEN
2770: hr_utility.set_location (l_proc, 200);
2771: hr_utility.TRACE ('deduct_hours :' || deduct_hours);
2772: END IF;
2773:
2774: UPDATE hxt_det_hours_worked
2767: LOOP
2768: IF g_debug
2769: THEN
2770: hr_utility.set_location (l_proc, 200);
2771: hr_utility.TRACE ('deduct_hours :' || deduct_hours);
2772: END IF;
2773:
2774: UPDATE hxt_det_hours_worked
2775: SET hours = osp_dtl_row.hours - deduct_hours,
2785: WHERE ROWID = osp_dtl_row.dhw_rowid;
2786:
2787: IF g_debug
2788: THEN
2789: hr_utility.set_location (l_proc, 200.5);
2790: hr_utility.TRACE ('test_hours :' || test_hours);
2791: END IF;
2792: END LOOP;
2793: END IF;
2786:
2787: IF g_debug
2788: THEN
2789: hr_utility.set_location (l_proc, 200.5);
2790: hr_utility.TRACE ('test_hours :' || test_hours);
2791: END IF;
2792: END LOOP;
2793: END IF;
2794:
2796: THEN
2797:
2798: IF g_debug
2799: THEN
2800: hr_utility.set_location (l_proc, 200.6);
2801: END IF;
2802:
2803: FOR oth_dtl_row IN oth_prem_dtl
2804: LOOP
2804: LOOP
2805:
2806: IF g_debug
2807: THEN
2808: hr_utility.set_location (l_proc, 200.7);
2809: END IF;
2810:
2811: IF g_debug
2812: THEN
2809: END IF;
2810:
2811: IF g_debug
2812: THEN
2813: hr_utility.TRACE ('oth_prem_dtl.hours:' || oth_dtl_row.hours);
2814: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2815: END IF;
2816:
2817: UPDATE hxt_det_hours_worked
2810:
2811: IF g_debug
2812: THEN
2813: hr_utility.TRACE ('oth_prem_dtl.hours:' || oth_dtl_row.hours);
2814: hr_utility.TRACE ('deduct_hours:' || deduct_hours);
2815: END IF;
2816:
2817: UPDATE hxt_det_hours_worked
2818: SET hours = oth_dtl_row.hours - deduct_hours,
2824: END IF;
2825:
2826: IF g_debug
2827: THEN
2828: hr_utility.set_location (l_proc, 210);
2829: END IF;
2830:
2831: UPDATE hxt_det_hours_worked
2832: SET hours = current_dtl_row.hours - deduct_hours,
2841: END LOOP;
2842:
2843: IF g_debug
2844: THEN
2845: hr_utility.set_location (l_proc, 220);
2846: END IF;
2847:
2848: RETURN (0);
2849: END adjust_hours_for_hdp;
2913: BEGIN
2914: IF g_debug
2915: THEN
2916: l_proc := 'hxt_time_detail.adjust_for_hdp';
2917: hr_utility.set_location (l_proc, 10);
2918: hr_utility.TRACE ('g_hdp_id :' || g_hdp_id);
2919: END IF;
2920:
2921: IF g_hdp_id IS NULL
2914: IF g_debug
2915: THEN
2916: l_proc := 'hxt_time_detail.adjust_for_hdp';
2917: hr_utility.set_location (l_proc, 10);
2918: hr_utility.TRACE ('g_hdp_id :' || g_hdp_id);
2919: END IF;
2920:
2921: IF g_hdp_id IS NULL
2922: THEN
2921: IF g_hdp_id IS NULL
2922: THEN
2923: IF g_debug
2924: THEN
2925: hr_utility.set_location (l_proc, 20);
2926: END IF;
2927:
2928: RETURN (p_hours_this_segment);
2929: END IF;
2929: END IF;
2930:
2931: IF g_debug
2932: THEN
2933: hr_utility.set_location (l_proc, 30);
2934: END IF;
2935:
2936: OPEN get_sum_time_out;
2937:
2941: CLOSE get_sum_time_out;
2942:
2943: IF g_debug
2944: THEN
2945: hr_utility.TRACE ( 'sum_time_in :'
2946: || TO_CHAR (sum_time_in,
2947: 'dd-mon-yyyy hh24:mi:ss'
2948: )
2949: );
2946: || TO_CHAR (sum_time_in,
2947: 'dd-mon-yyyy hh24:mi:ss'
2948: )
2949: );
2950: hr_utility.TRACE ( 'sum_time_out:'
2951: || TO_CHAR (sum_time_out,
2952: 'dd-mon-yyyy hh24:mi:ss'
2953: )
2954: );
2951: || TO_CHAR (sum_time_out,
2952: 'dd-mon-yyyy hh24:mi:ss'
2953: )
2954: );
2955: hr_utility.TRACE ( 'g_TIME_OUT :'
2956: || TO_CHAR (g_time_out,
2957: 'dd-mon-yyyy hh24:mi:ss')
2958: );
2959: END IF;
2961: IF sum_time_out IS NOT NULL AND g_time_out IS NOT NULL
2962: THEN
2963: IF g_debug
2964: THEN
2965: hr_utility.set_location (l_proc, 40);
2966: END IF;
2967:
2968: IF g_time_out < sum_time_out
2969: THEN
2968: IF g_time_out < sum_time_out
2969: THEN
2970: IF g_debug
2971: THEN
2972: hr_utility.set_location (l_proc, 50);
2973: END IF;
2974:
2975: RETURN (p_hours_this_segment);
2976: END IF;
2977: END IF;
2978:
2979: IF g_debug
2980: THEN
2981: hr_utility.set_location (l_proc, 60);
2982: END IF;
2983:
2984: OPEN detail_hours_today;
2985:
2987: INTO hours_paid_already;
2988:
2989: IF g_debug
2990: THEN
2991: hr_utility.TRACE ('hours_paid_already :' || hours_paid_already);
2992: END IF;
2993:
2994: CLOSE detail_hours_today;
2995:
2999: INTO addback_hours;
3000:
3001: IF g_debug
3002: THEN
3003: hr_utility.TRACE ('addback_hours :' || addback_hours);
3004: END IF;
3005:
3006: CLOSE hdp_hours_deducted_today;
3007:
3006: CLOSE hdp_hours_deducted_today;
3007:
3008: IF g_debug
3009: THEN
3010: hr_utility.TRACE ( 'sum_time_in :'
3011: || TO_CHAR (sum_time_in,
3012: 'dd-mon-yyyy hh24:mi:ss'
3013: )
3014: );
3011: || TO_CHAR (sum_time_in,
3012: 'dd-mon-yyyy hh24:mi:ss'
3013: )
3014: );
3015: hr_utility.TRACE ( 'g_TIME_IN :'
3016: || TO_CHAR (g_time_in, 'dd-mon-yyyy hh24:mi:ss')
3017: );
3018: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3019: END IF;
3014: );
3015: hr_utility.TRACE ( 'g_TIME_IN :'
3016: || TO_CHAR (g_time_in, 'dd-mon-yyyy hh24:mi:ss')
3017: );
3018: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3019: END IF;
3020:
3021: IF sum_time_in IS NOT NULL AND g_time_in IS NOT NULL
3022: THEN
3021: IF sum_time_in IS NOT NULL AND g_time_in IS NOT NULL
3022: THEN
3023: IF g_debug
3024: THEN
3025: hr_utility.set_location (l_proc, 70);
3026: END IF;
3027:
3028: IF g_time_in > sum_time_in
3029: THEN
3028: IF g_time_in > sum_time_in
3029: THEN
3030: IF g_debug
3031: THEN
3032: hr_utility.set_location (l_proc, 80);
3033: hr_utility.TRACE ('-------g_time_in > sum_time_in------');
3034: END IF;
3035:
3036: addback_hours := addback_hours - p_hours_this_segment;
3029: THEN
3030: IF g_debug
3031: THEN
3032: hr_utility.set_location (l_proc, 80);
3033: hr_utility.TRACE ('-------g_time_in > sum_time_in------');
3034: END IF;
3035:
3036: addback_hours := addback_hours - p_hours_this_segment;
3037:
3036: addback_hours := addback_hours - p_hours_this_segment;
3037:
3038: IF g_debug
3039: THEN
3040: hr_utility.TRACE ('addback_hours :' || addback_hours);
3041: END IF;
3042: END IF;
3043: END IF;
3044:
3043: END IF;
3044:
3045: IF g_debug
3046: THEN
3047: hr_utility.set_location (l_proc, 90);
3048: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3049: hr_utility.TRACE ('hours_paid_already :' || hours_paid_already);
3050: hr_utility.TRACE ('addback_hours :' || addback_hours);
3051: END IF;
3044:
3045: IF g_debug
3046: THEN
3047: hr_utility.set_location (l_proc, 90);
3048: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3049: hr_utility.TRACE ('hours_paid_already :' || hours_paid_already);
3050: hr_utility.TRACE ('addback_hours :' || addback_hours);
3051: END IF;
3052:
3045: IF g_debug
3046: THEN
3047: hr_utility.set_location (l_proc, 90);
3048: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3049: hr_utility.TRACE ('hours_paid_already :' || hours_paid_already);
3050: hr_utility.TRACE ('addback_hours :' || addback_hours);
3051: END IF;
3052:
3053: daily_total_hours :=
3046: THEN
3047: hr_utility.set_location (l_proc, 90);
3048: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3049: hr_utility.TRACE ('hours_paid_already :' || hours_paid_already);
3050: hr_utility.TRACE ('addback_hours :' || addback_hours);
3051: END IF;
3052:
3053: daily_total_hours :=
3054: p_hours_this_segment + hours_paid_already + addback_hours;
3054: p_hours_this_segment + hours_paid_already + addback_hours;
3055:
3056: IF g_debug
3057: THEN
3058: hr_utility.TRACE ('daily_total_hours :' || daily_total_hours);
3059: END IF;
3060:
3061: FOR hdp_rule IN hdp_rule_cursor
3062: LOOP
3062: LOOP
3063: -- Calculate totals needed
3064: IF g_debug
3065: THEN
3066: hr_utility.set_location (l_proc, 100);
3067: hr_utility.TRACE ( 'hdp_rule.time_period:'
3068: || hdp_rule.time_period
3069: );
3070: END IF;
3063: -- Calculate totals needed
3064: IF g_debug
3065: THEN
3066: hr_utility.set_location (l_proc, 100);
3067: hr_utility.TRACE ( 'hdp_rule.time_period:'
3068: || hdp_rule.time_period
3069: );
3070: END IF;
3071:
3076: );
3077:
3078: IF g_debug
3079: THEN
3080: hr_utility.TRACE ('deduct_hours :' || deduct_hours);
3081: END IF;
3082: END LOOP;
3083:
3084: IF g_debug
3082: END LOOP;
3083:
3084: IF g_debug
3085: THEN
3086: hr_utility.set_location (l_proc, 110);
3087: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3088: hr_utility.TRACE ('deduct_hours :' || deduct_hours);
3089: hr_utility.TRACE ('addback_hours :' || addback_hours);
3090: END IF;
3083:
3084: IF g_debug
3085: THEN
3086: hr_utility.set_location (l_proc, 110);
3087: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3088: hr_utility.TRACE ('deduct_hours :' || deduct_hours);
3089: hr_utility.TRACE ('addback_hours :' || addback_hours);
3090: END IF;
3091:
3084: IF g_debug
3085: THEN
3086: hr_utility.set_location (l_proc, 110);
3087: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3088: hr_utility.TRACE ('deduct_hours :' || deduct_hours);
3089: hr_utility.TRACE ('addback_hours :' || addback_hours);
3090: END IF;
3091:
3092: --IF p_hours_this_segment <= (deduct_hours - addback_hours) THEN
3085: THEN
3086: hr_utility.set_location (l_proc, 110);
3087: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3088: hr_utility.TRACE ('deduct_hours :' || deduct_hours);
3089: hr_utility.TRACE ('addback_hours :' || addback_hours);
3090: END IF;
3091:
3092: --IF p_hours_this_segment <= (deduct_hours - addback_hours) THEN
3093: --Above IF condition changed as follows for bug 3147339
3094: IF p_hours_this_segment < (deduct_hours - addback_hours)
3095: THEN
3096: IF g_debug
3097: THEN
3098: hr_utility.set_location (l_proc, 120);
3099: END IF;
3100:
3101: IF adjust_for_hdp_shortage (deduct_hours - addback_hours) <> 0
3102: THEN
3101: IF adjust_for_hdp_shortage (deduct_hours - addback_hours) <> 0
3102: THEN
3103: IF g_debug
3104: THEN
3105: hr_utility.set_location (l_proc, 130);
3106: END IF;
3107:
3108: fnd_message.set_name ('HXT', 'HXT_39488_CANT_DEDUCT_HOURS');
3109: p_error_code :=
3117: END IF;
3118:
3119: IF g_debug
3120: THEN
3121: hr_utility.set_location (l_proc, 140);
3122: END IF;
3123:
3124: RETURN (p_hours_this_segment);
3125: END IF;
3125: END IF;
3126:
3127: IF g_debug
3128: THEN
3129: hr_utility.set_location (l_proc, 150);
3130: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3131: hr_utility.TRACE ('deduct_hours :' || deduct_hours);
3132: hr_utility.TRACE ('addback_hours :' || addback_hours);
3133: END IF;
3126:
3127: IF g_debug
3128: THEN
3129: hr_utility.set_location (l_proc, 150);
3130: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3131: hr_utility.TRACE ('deduct_hours :' || deduct_hours);
3132: hr_utility.TRACE ('addback_hours :' || addback_hours);
3133: END IF;
3134:
3127: IF g_debug
3128: THEN
3129: hr_utility.set_location (l_proc, 150);
3130: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3131: hr_utility.TRACE ('deduct_hours :' || deduct_hours);
3132: hr_utility.TRACE ('addback_hours :' || addback_hours);
3133: END IF;
3134:
3135: RETURN (p_hours_this_segment - (deduct_hours - addback_hours));
3128: THEN
3129: hr_utility.set_location (l_proc, 150);
3130: hr_utility.TRACE ('p_hours_this_segment:' || p_hours_this_segment);
3131: hr_utility.TRACE ('deduct_hours :' || deduct_hours);
3132: hr_utility.TRACE ('addback_hours :' || addback_hours);
3133: END IF;
3134:
3135: RETURN (p_hours_this_segment - (deduct_hours - addback_hours));
3136: END;
3202: BEGIN
3203: IF g_debug
3204: THEN
3205: l_proc := 'hxt_time_detail.GetConsecutiveDaysWorked';
3206: hr_utility.set_location (l_proc, 10);
3207: END IF;
3208:
3209: i := 0;
3210: l_date_start := a_date_worked;
3210: l_date_start := a_date_worked;
3211:
3212: IF g_debug
3213: THEN
3214: hr_utility.TRACE ( 'l_date_start :'
3215: || TO_CHAR (l_date_start,
3216: 'DD-MON-YYYY HH24:MI:SS'
3217: )
3218: );
3215: || TO_CHAR (l_date_start,
3216: 'DD-MON-YYYY HH24:MI:SS'
3217: )
3218: );
3219: hr_utility.TRACE ('i :' || i);
3220: hr_utility.set_location (l_proc, 20);
3221: END IF;
3222:
3223: WHILE (l_continue = TRUE AND i < 7)
3216: 'DD-MON-YYYY HH24:MI:SS'
3217: )
3218: );
3219: hr_utility.TRACE ('i :' || i);
3220: hr_utility.set_location (l_proc, 20);
3221: END IF;
3222:
3223: WHILE (l_continue = TRUE AND i < 7)
3224: LOOP
3223: WHILE (l_continue = TRUE AND i < 7)
3224: LOOP
3225: IF g_debug
3226: THEN
3227: hr_utility.set_location (l_proc, 30);
3228: hr_utility.TRACE ('i :' || i);
3229: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
3230: hr_utility.TRACE ( 'a_date_worked :'
3231: || TO_CHAR (a_date_worked,
3224: LOOP
3225: IF g_debug
3226: THEN
3227: hr_utility.set_location (l_proc, 30);
3228: hr_utility.TRACE ('i :' || i);
3229: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
3230: hr_utility.TRACE ( 'a_date_worked :'
3231: || TO_CHAR (a_date_worked,
3232: 'DD-MON-YYYY HH24:MI:SS'
3225: IF g_debug
3226: THEN
3227: hr_utility.set_location (l_proc, 30);
3228: hr_utility.TRACE ('i :' || i);
3229: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
3230: hr_utility.TRACE ( 'a_date_worked :'
3231: || TO_CHAR (a_date_worked,
3232: 'DD-MON-YYYY HH24:MI:SS'
3233: )
3226: THEN
3227: hr_utility.set_location (l_proc, 30);
3228: hr_utility.TRACE ('i :' || i);
3229: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
3230: hr_utility.TRACE ( 'a_date_worked :'
3231: || TO_CHAR (a_date_worked,
3232: 'DD-MON-YYYY HH24:MI:SS'
3233: )
3234: );
3231: || TO_CHAR (a_date_worked,
3232: 'DD-MON-YYYY HH24:MI:SS'
3233: )
3234: );
3235: hr_utility.TRACE ('start_day_of_week :' || start_day_of_week);
3236: hr_utility.TRACE ('g_person_id :' || g_person_id);
3237: END IF;
3238:
3239: OPEN date_start_cur (g_tim_id, a_date_worked - i, a_date_worked);
3232: 'DD-MON-YYYY HH24:MI:SS'
3233: )
3234: );
3235: hr_utility.TRACE ('start_day_of_week :' || start_day_of_week);
3236: hr_utility.TRACE ('g_person_id :' || g_person_id);
3237: END IF;
3238:
3239: OPEN date_start_cur (g_tim_id, a_date_worked - i, a_date_worked);
3240:
3242: INTO l_date_start;
3243:
3244: IF g_debug
3245: THEN
3246: hr_utility.TRACE ( 'l_date_start :'
3247: || TO_CHAR (l_date_start,
3248: 'DD-MON-YYYY HH24:MI:SS'
3249: )
3250: );
3253: IF date_start_cur%NOTFOUND
3254: THEN
3255: IF g_debug
3256: THEN
3257: hr_utility.set_location (l_proc, 40);
3258: END IF;
3259:
3260: l_continue := FALSE;
3261: END IF;
3265: IF l_continue = TRUE
3266: THEN
3267: IF g_debug
3268: THEN
3269: hr_utility.set_location (l_proc, 50);
3270: END IF;
3271:
3272: i := i + 1;
3273: END IF;
3273: END IF;
3274:
3275: IF g_debug
3276: THEN
3277: hr_utility.set_location (l_proc, 60);
3278: END IF;
3279: END LOOP;
3280:
3281: IF g_debug
3279: END LOOP;
3280:
3281: IF g_debug
3282: THEN
3283: hr_utility.set_location (l_proc, 70);
3284: hr_utility.TRACE ('i :' || i);
3285: END IF;
3286:
3287: RETURN i;
3280:
3281: IF g_debug
3282: THEN
3283: hr_utility.set_location (l_proc, 70);
3284: hr_utility.TRACE ('i :' || i);
3285: END IF;
3286:
3287: RETURN i;
3288: END;
3336: BEGIN
3337: IF g_debug
3338: THEN
3339: l_proc := 'hxt_time_detail.ConsecutiveDaysWorked_for_SPC';
3340: hr_utility.set_location (l_proc, 10);
3341: END IF;
3342:
3343: i := 0;
3344: j := 0;
3345: l_date_start := a_date_worked;
3346:
3347: IF g_debug
3348: THEN
3349: hr_utility.TRACE ( 'l_date_start :'
3350: || TO_CHAR (l_date_start,
3351: 'DD-MON-YYYY HH24:MI:SS'
3352: )
3353: );
3350: || TO_CHAR (l_date_start,
3351: 'DD-MON-YYYY HH24:MI:SS'
3352: )
3353: );
3354: hr_utility.TRACE ('i :' || i);
3355: hr_utility.set_location (l_proc, 20);
3356: END IF;
3357:
3358: WHILE (l_continue = TRUE AND i < 7)
3351: 'DD-MON-YYYY HH24:MI:SS'
3352: )
3353: );
3354: hr_utility.TRACE ('i :' || i);
3355: hr_utility.set_location (l_proc, 20);
3356: END IF;
3357:
3358: WHILE (l_continue = TRUE AND i < 7)
3359: LOOP
3358: WHILE (l_continue = TRUE AND i < 7)
3359: LOOP
3360: IF g_debug
3361: THEN
3362: hr_utility.set_location (l_proc, 30);
3363: END IF;
3364:
3365: l_day_worked := FALSE;
3366:
3365: l_day_worked := FALSE;
3366:
3367: IF g_debug
3368: THEN
3369: hr_utility.TRACE ('i :' || i);
3370: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
3371: hr_utility.TRACE ( 'a_date_worked :'
3372: || TO_CHAR (a_date_worked,
3373: 'DD-MON-YYYY HH24:MI:SS'
3366:
3367: IF g_debug
3368: THEN
3369: hr_utility.TRACE ('i :' || i);
3370: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
3371: hr_utility.TRACE ( 'a_date_worked :'
3372: || TO_CHAR (a_date_worked,
3373: 'DD-MON-YYYY HH24:MI:SS'
3374: )
3367: IF g_debug
3368: THEN
3369: hr_utility.TRACE ('i :' || i);
3370: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
3371: hr_utility.TRACE ( 'a_date_worked :'
3372: || TO_CHAR (a_date_worked,
3373: 'DD-MON-YYYY HH24:MI:SS'
3374: )
3375: );
3372: || TO_CHAR (a_date_worked,
3373: 'DD-MON-YYYY HH24:MI:SS'
3374: )
3375: );
3376: hr_utility.TRACE ('start_day_of_week :' || start_day_of_week);
3377: hr_utility.TRACE ('g_person_id :' || g_person_id);
3378: END IF;
3379:
3380: OPEN date_start_cur (g_tim_id, a_date_worked - i, a_date_worked);
3373: 'DD-MON-YYYY HH24:MI:SS'
3374: )
3375: );
3376: hr_utility.TRACE ('start_day_of_week :' || start_day_of_week);
3377: hr_utility.TRACE ('g_person_id :' || g_person_id);
3378: END IF;
3379:
3380: OPEN date_start_cur (g_tim_id, a_date_worked - i, a_date_worked);
3381:
3383: INTO l_date_start;
3384:
3385: IF g_debug
3386: THEN
3387: hr_utility.TRACE ( 'l_date_start :'
3388: || TO_CHAR (l_date_start,
3389: 'DD-MON-YYYY HH24:MI:SS'
3390: )
3391: );
3394: IF date_start_cur%NOTFOUND
3395: THEN
3396: IF g_debug
3397: THEN
3398: hr_utility.set_location (l_proc, 40);
3399: END IF;
3400:
3401: l_continue := FALSE;
3402: END IF;
3402: END IF;
3403:
3404: IF g_debug
3405: THEN
3406: hr_utility.set_location (l_proc, 50);
3407: END IF;
3408:
3409: IF l_continue = TRUE
3410: THEN
3409: IF l_continue = TRUE
3410: THEN
3411: IF g_debug
3412: THEN
3413: hr_utility.set_location (l_proc, 60);
3414: END IF;
3415:
3416: -- IF a_date_worked <> l_date_start THEN
3417: IF g_debug
3415:
3416: -- IF a_date_worked <> l_date_start THEN
3417: IF g_debug
3418: THEN
3419: hr_utility.set_location (l_proc, 70);
3420: END IF;
3421:
3422: OPEN chk_det_for_wrkd_elements (l_date_start);
3423:
3423:
3424: LOOP -- fetch worked element rows
3425: IF g_debug
3426: THEN
3427: hr_utility.set_location (l_proc, 80);
3428: END IF;
3429:
3430: FETCH chk_det_for_wrkd_elements
3431: INTO l_chk_det_elements_cur;
3431: INTO l_chk_det_elements_cur;
3432:
3433: IF g_debug
3434: THEN
3435: hr_utility.TRACE
3436: ( 'l_chk_det_elements_cur.element_type_id:'
3437: || l_chk_det_elements_cur.element_type_id
3438: );
3439: END IF;
3442:
3443: -- OR l_day_worked = TRUE;
3444: IF g_debug
3445: THEN
3446: hr_utility.set_location (l_proc, 90);
3447: END IF;
3448:
3449: OPEN worked_elements_cur;
3450:
3450:
3451: LOOP
3452: IF g_debug
3453: THEN
3454: hr_utility.set_location (l_proc, 100);
3455: END IF;
3456:
3457: FETCH worked_elements_cur
3458: INTO l_wrkd_elements_cur;
3458: INTO l_wrkd_elements_cur;
3459:
3460: IF g_debug
3461: THEN
3462: hr_utility.TRACE
3463: ( 'l_wrkd_elements_cur.element_type_id:'
3464: || l_wrkd_elements_cur.element_type_id
3465: );
3466: END IF;
3468: EXIT WHEN worked_elements_cur%NOTFOUND;
3469:
3470: IF g_debug
3471: THEN
3472: hr_utility.set_location (l_proc, 110);
3473: END IF;
3474:
3475: IF (l_chk_det_elements_cur.element_type_id =
3476: l_wrkd_elements_cur.element_type_id
3477: )
3478: THEN
3479: IF g_debug
3480: THEN
3481: hr_utility.set_location (l_proc, 120);
3482: END IF;
3483:
3484: l_day_worked := TRUE;
3485:
3485:
3486: -- CLOSE worked_elements_cur;
3487: IF g_debug
3488: THEN
3489: hr_utility.set_location (l_proc, 125);
3490: END IF;
3491:
3492: EXIT;
3493:
3492: EXIT;
3493:
3494: IF g_debug
3495: THEN
3496: hr_utility.set_location (l_proc, 130);
3497: END IF;
3498: END IF;
3499:
3500: IF g_debug
3498: END IF;
3499:
3500: IF g_debug
3501: THEN
3502: hr_utility.set_location (l_proc, 140);
3503: END IF;
3504: END LOOP;
3505:
3506: CLOSE worked_elements_cur;
3506: CLOSE worked_elements_cur;
3507:
3508: IF g_debug
3509: THEN
3510: hr_utility.set_location (l_proc, 150);
3511: END IF;
3512:
3513: IF l_day_worked = TRUE
3514: THEN
3513: IF l_day_worked = TRUE
3514: THEN
3515: IF g_debug
3516: THEN
3517: hr_utility.set_location (l_proc, 160);
3518: END IF;
3519:
3520: -- CLOSE chk_det_for_wrkd_elements;
3521: EXIT;
3522: END IF;
3523:
3524: IF g_debug
3525: THEN
3526: hr_utility.set_location (l_proc, 170);
3527: END IF;
3528: END LOOP;
3529:
3530: CLOSE chk_det_for_wrkd_elements;
3530: CLOSE chk_det_for_wrkd_elements;
3531:
3532: IF g_debug
3533: THEN
3534: hr_utility.set_location (l_proc, 180);
3535: END IF;
3536:
3537: -- END IF;
3538: IF (l_day_worked = TRUE) OR (l_date_start = a_date_worked)
3538: IF (l_day_worked = TRUE) OR (l_date_start = a_date_worked)
3539: THEN
3540: IF g_debug
3541: THEN
3542: hr_utility.set_location (l_proc, 185);
3543: END IF;
3544:
3545: j := j + 1;
3546:
3545: j := j + 1;
3546:
3547: IF g_debug
3548: THEN
3549: hr_utility.TRACE ('j:' || j);
3550: END IF;
3551: END IF;
3552:
3553: CLOSE date_start_cur;
3555: IF l_continue = TRUE
3556: THEN
3557: IF g_debug
3558: THEN
3559: hr_utility.set_location (l_proc, 190);
3560: END IF;
3561:
3562: i := i + 1;
3563:
3562: i := i + 1;
3563:
3564: IF g_debug
3565: THEN
3566: hr_utility.TRACE ('i:' || i);
3567: END IF;
3568: END IF;
3569:
3570: IF g_debug
3568: END IF;
3569:
3570: IF g_debug
3571: THEN
3572: hr_utility.set_location (l_proc, 190);
3573: END IF;
3574: END IF;
3575:
3576: IF g_debug
3574: END IF;
3575:
3576: IF g_debug
3577: THEN
3578: hr_utility.set_location (l_proc, 200);
3579: END IF;
3580: END LOOP;
3581:
3582: IF g_debug
3580: END LOOP;
3581:
3582: IF g_debug
3583: THEN
3584: hr_utility.set_location (l_proc, 210);
3585: hr_utility.TRACE ('j :' || j);
3586: END IF;
3587:
3588: RETURN j;
3581:
3582: IF g_debug
3583: THEN
3584: hr_utility.set_location (l_proc, 210);
3585: hr_utility.TRACE ('j :' || j);
3586: END IF;
3587:
3588: RETURN j;
3589: END;
3736: BEGIN
3737: IF g_debug
3738: THEN
3739: l_proc := 'hxt_time_detail.adjust_abs_hrs_on_prev_days';
3740: hr_utility.set_location (l_proc, 10);
3741: hr_utility.TRACE ('c_tim_id:' || c_tim_id);
3742: hr_utility.TRACE ( 'c_date_worked :'
3743: || TO_CHAR (c_date_worked,
3744: 'DD-MON-YYYY HH24:MI:SS'
3737: IF g_debug
3738: THEN
3739: l_proc := 'hxt_time_detail.adjust_abs_hrs_on_prev_days';
3740: hr_utility.set_location (l_proc, 10);
3741: hr_utility.TRACE ('c_tim_id:' || c_tim_id);
3742: hr_utility.TRACE ( 'c_date_worked :'
3743: || TO_CHAR (c_date_worked,
3744: 'DD-MON-YYYY HH24:MI:SS'
3745: )
3738: THEN
3739: l_proc := 'hxt_time_detail.adjust_abs_hrs_on_prev_days';
3740: hr_utility.set_location (l_proc, 10);
3741: hr_utility.TRACE ('c_tim_id:' || c_tim_id);
3742: hr_utility.TRACE ( 'c_date_worked :'
3743: || TO_CHAR (c_date_worked,
3744: 'DD-MON-YYYY HH24:MI:SS'
3745: )
3746: );
3743: || TO_CHAR (c_date_worked,
3744: 'DD-MON-YYYY HH24:MI:SS'
3745: )
3746: );
3747: hr_utility.TRACE ('c_hours_left:' || c_hours_left);
3748: END IF;
3749:
3750: l_hours_left := c_hours_left;
3751:
3750: l_hours_left := c_hours_left;
3751:
3752: IF g_debug
3753: THEN
3754: hr_utility.TRACE ('l_hours_left:' || l_hours_left);
3755: END IF;
3756:
3757: IF l_hours_left = 0
3758: THEN
3770: END LOOP;
3771:
3772: IF g_debug
3773: THEN
3774: hr_utility.TRACE
3775: ('Deleting g_parent_to_re_explode PL/SQL table');
3776: END IF;
3777:
3778: g_parent_to_re_explode.DELETE;
3783: WHILE l_hours_left > 0
3784: LOOP
3785: IF g_debug
3786: THEN
3787: hr_utility.set_location (l_proc, 20);
3788: END IF;
3789:
3790: FETCH reg_hrs_cur
3791: INTO l_reg_hrs_cur;
3793: IF reg_hrs_cur%NOTFOUND
3794: THEN
3795: IF g_debug
3796: THEN
3797: hr_utility.set_location (l_proc, 30);
3798: END IF;
3799:
3800: SELECT COUNT (*)
3801: INTO l_abs_count
3818: AND eltv.effective_end_date;
3819:
3820: IF g_debug
3821: THEN
3822: hr_utility.TRACE ('l_abs_count :' || l_abs_count);
3823: END IF;
3824:
3825: IF g_spc_dy_eg IS NOT NULL
3826: THEN
3828: consecutivedaysworked_for_spc (g_date_worked);
3829:
3830: IF g_debug
3831: THEN
3832: hr_utility.TRACE ( 'date_worked :'
3833: || TO_CHAR (g_date_worked, 'DD/MON/YY')
3834: );
3835: hr_utility.TRACE ( 'consec_days_worked:'
3836: || TO_CHAR (consec_days_worked)
3831: THEN
3832: hr_utility.TRACE ( 'date_worked :'
3833: || TO_CHAR (g_date_worked, 'DD/MON/YY')
3834: );
3835: hr_utility.TRACE ( 'consec_days_worked:'
3836: || TO_CHAR (consec_days_worked)
3837: );
3838: END IF;
3839: ELSE
3840: l_days_worked := getconsecutivedaysworked (g_date_worked);
3841:
3842: IF g_debug
3843: THEN
3844: hr_utility.TRACE ( 'date_worked:'
3845: || TO_CHAR (g_date_worked, 'DD/MON/YY')
3846: );
3847: hr_utility.TRACE ( 'consec_days_worked:'
3848: || TO_CHAR (consec_days_worked)
3843: THEN
3844: hr_utility.TRACE ( 'date_worked:'
3845: || TO_CHAR (g_date_worked, 'DD/MON/YY')
3846: );
3847: hr_utility.TRACE ( 'consec_days_worked:'
3848: || TO_CHAR (consec_days_worked)
3849: );
3850: END IF;
3851: END IF;
3851: END IF;
3852:
3853: IF g_debug
3854: THEN
3855: hr_utility.TRACE ('l_days_worked :' || l_days_worked);
3856: END IF;
3857:
3858: --If Timecard hours are all Vacation , i.e.,if a week of just vacation
3859: --,then do not calculate for an overtime amount
3860: IF l_abs_count = l_days_worked
3861: THEN
3862: IF g_debug
3863: THEN
3864: hr_utility.set_location (l_proc, 40);
3865: END IF;
3866:
3867: CLOSE reg_hrs_cur;
3868:
3870: END IF;
3871:
3872: IF g_debug
3873: THEN
3874: hr_utility.set_location (l_proc, 50);
3875: END IF;
3876:
3877: CLOSE reg_hrs_cur;
3878:
3890: l_reg_hrs_cur.parent_id;
3891:
3892: IF g_debug
3893: THEN
3894: hr_utility.set_location (l_proc, 51);
3895: END IF;
3896:
3897: l_hours_to_adjust := l_reg_hrs_cur.hours;
3898:
3897: l_hours_to_adjust := l_reg_hrs_cur.hours;
3898:
3899: IF g_debug
3900: THEN
3901: hr_utility.TRACE ('l_hours_to_adjust :' || l_hours_to_adjust);
3902: hr_utility.TRACE ('l_hours_left :' || l_hours_left);
3903: END IF;
3904:
3905: IF l_hours_to_adjust <> 0
3898:
3899: IF g_debug
3900: THEN
3901: hr_utility.TRACE ('l_hours_to_adjust :' || l_hours_to_adjust);
3902: hr_utility.TRACE ('l_hours_left :' || l_hours_left);
3903: END IF;
3904:
3905: IF l_hours_to_adjust <> 0
3906: THEN
3905: IF l_hours_to_adjust <> 0
3906: THEN
3907: IF g_debug
3908: THEN
3909: hr_utility.set_location (l_proc, 55);
3910: END IF;
3911:
3912: IF l_hours_to_adjust <= l_hours_left
3913: THEN
3912: IF l_hours_to_adjust <= l_hours_left
3913: THEN
3914: IF g_debug
3915: THEN
3916: hr_utility.set_location (l_proc, 60);
3917: END IF;
3918:
3919: l_hours_left := l_hours_left - l_hours_to_adjust;
3920: l_hours_to_pay := l_hours_to_adjust;
3921: l_hours_to_adjust := 0;
3922:
3923: IF g_debug
3924: THEN
3925: hr_utility.TRACE ('l_hours_left :' || l_hours_left);
3926: hr_utility.TRACE ('l_hours_to_pay :' || l_hours_to_pay
3927: );
3928: hr_utility.TRACE ( 'l_hours_to_adjust :'
3929: || l_hours_to_adjust
3922:
3923: IF g_debug
3924: THEN
3925: hr_utility.TRACE ('l_hours_left :' || l_hours_left);
3926: hr_utility.TRACE ('l_hours_to_pay :' || l_hours_to_pay
3927: );
3928: hr_utility.TRACE ( 'l_hours_to_adjust :'
3929: || l_hours_to_adjust
3930: );
3924: THEN
3925: hr_utility.TRACE ('l_hours_left :' || l_hours_left);
3926: hr_utility.TRACE ('l_hours_to_pay :' || l_hours_to_pay
3927: );
3928: hr_utility.TRACE ( 'l_hours_to_adjust :'
3929: || l_hours_to_adjust
3930: );
3931: END IF;
3932: ELSE
3931: END IF;
3932: ELSE
3933: IF g_debug
3934: THEN
3935: hr_utility.set_location (l_proc, 70);
3936: END IF;
3937:
3938: l_hours_to_adjust := l_hours_to_adjust - l_hours_left;
3939: l_hours_to_pay := l_hours_left;
3940: l_hours_left := 0;
3941:
3942: IF g_debug
3943: THEN
3944: hr_utility.TRACE ('l_hours_left :' || l_hours_left);
3945: hr_utility.TRACE ('l_hours_to_pay :' || l_hours_to_pay
3946: );
3947: hr_utility.TRACE ( 'l_hours_to_adjust :'
3948: || l_hours_to_adjust
3941:
3942: IF g_debug
3943: THEN
3944: hr_utility.TRACE ('l_hours_left :' || l_hours_left);
3945: hr_utility.TRACE ('l_hours_to_pay :' || l_hours_to_pay
3946: );
3947: hr_utility.TRACE ( 'l_hours_to_adjust :'
3948: || l_hours_to_adjust
3949: );
3943: THEN
3944: hr_utility.TRACE ('l_hours_left :' || l_hours_left);
3945: hr_utility.TRACE ('l_hours_to_pay :' || l_hours_to_pay
3946: );
3947: hr_utility.TRACE ( 'l_hours_to_adjust :'
3948: || l_hours_to_adjust
3949: );
3950: END IF;
3951: END IF;
3951: END IF;
3952:
3953: IF g_debug
3954: THEN
3955: hr_utility.set_location (l_proc, 80);
3956: hr_utility.TRACE ( 'l_reg_hrs_cur.parent_id :'
3957: || l_reg_hrs_cur.parent_id
3958: );
3959: hr_utility.TRACE ('c_tim_id :' || c_tim_id);
3952:
3953: IF g_debug
3954: THEN
3955: hr_utility.set_location (l_proc, 80);
3956: hr_utility.TRACE ( 'l_reg_hrs_cur.parent_id :'
3957: || l_reg_hrs_cur.parent_id
3958: );
3959: hr_utility.TRACE ('c_tim_id :' || c_tim_id);
3960: hr_utility.TRACE ( 'l_reg_hrs_cur.seqno :'
3955: hr_utility.set_location (l_proc, 80);
3956: hr_utility.TRACE ( 'l_reg_hrs_cur.parent_id :'
3957: || l_reg_hrs_cur.parent_id
3958: );
3959: hr_utility.TRACE ('c_tim_id :' || c_tim_id);
3960: hr_utility.TRACE ( 'l_reg_hrs_cur.seqno :'
3961: || l_reg_hrs_cur.seqno
3962: );
3963: hr_utility.TRACE ( 'l_reg_hrs_cur.hours :'
3956: hr_utility.TRACE ( 'l_reg_hrs_cur.parent_id :'
3957: || l_reg_hrs_cur.parent_id
3958: );
3959: hr_utility.TRACE ('c_tim_id :' || c_tim_id);
3960: hr_utility.TRACE ( 'l_reg_hrs_cur.seqno :'
3961: || l_reg_hrs_cur.seqno
3962: );
3963: hr_utility.TRACE ( 'l_reg_hrs_cur.hours :'
3964: || l_reg_hrs_cur.hours
3959: hr_utility.TRACE ('c_tim_id :' || c_tim_id);
3960: hr_utility.TRACE ( 'l_reg_hrs_cur.seqno :'
3961: || l_reg_hrs_cur.seqno
3962: );
3963: hr_utility.TRACE ( 'l_reg_hrs_cur.hours :'
3964: || l_reg_hrs_cur.hours
3965: );
3966: hr_utility.TRACE ( 'l_reg_hrs_cur.date_worked :'
3967: || TO_CHAR (l_reg_hrs_cur.date_worked,
3962: );
3963: hr_utility.TRACE ( 'l_reg_hrs_cur.hours :'
3964: || l_reg_hrs_cur.hours
3965: );
3966: hr_utility.TRACE ( 'l_reg_hrs_cur.date_worked :'
3967: || TO_CHAR (l_reg_hrs_cur.date_worked,
3968: 'DD-MON-YYYY HH24:MI:SS'
3969: )
3970: );
3967: || TO_CHAR (l_reg_hrs_cur.date_worked,
3968: 'DD-MON-YYYY HH24:MI:SS'
3969: )
3970: );
3971: hr_utility.TRACE ( 'l_reg_hrs_cur.time_in :'
3972: || TO_CHAR (l_reg_hrs_cur.time_in,
3973: 'DD-MON-YYYY HH24:MI:SS'
3974: )
3975: );
3972: || TO_CHAR (l_reg_hrs_cur.time_in,
3973: 'DD-MON-YYYY HH24:MI:SS'
3974: )
3975: );
3976: hr_utility.TRACE ( 'l_reg_hrs_cur.time_out :'
3977: || TO_CHAR (l_reg_hrs_cur.time_out,
3978: 'DD-MON-YYYY HH24:MI:SS'
3979: )
3980: );
3977: || TO_CHAR (l_reg_hrs_cur.time_out,
3978: 'DD-MON-YYYY HH24:MI:SS'
3979: )
3980: );
3981: hr_utility.TRACE ( 'l_reg_hrs_cur.earn_pol_id :'
3982: || l_reg_hrs_cur.earn_pol_id
3983: );
3984: hr_utility.TRACE ( 'l_reg_hrs_cur.assignment_id :'
3985: || l_reg_hrs_cur.assignment_id
3980: );
3981: hr_utility.TRACE ( 'l_reg_hrs_cur.earn_pol_id :'
3982: || l_reg_hrs_cur.earn_pol_id
3983: );
3984: hr_utility.TRACE ( 'l_reg_hrs_cur.assignment_id :'
3985: || l_reg_hrs_cur.assignment_id
3986: );
3987: hr_utility.set_location (l_proc, 81);
3988: END IF;
3983: );
3984: hr_utility.TRACE ( 'l_reg_hrs_cur.assignment_id :'
3985: || l_reg_hrs_cur.assignment_id
3986: );
3987: hr_utility.set_location (l_proc, 81);
3988: END IF;
3989:
3990: -- Get the Policies and Premiums for current day - on which
3991: -- the REG hrs were found - where the absence hrs
4011:
4012: -- Check if error encountered
4013: IF g_debug
4014: THEN
4015: hr_utility.set_location (l_proc, 82);
4016: hr_utility.TRACE ('l_egp_id :' || l_egp_id);
4017: END IF;
4018:
4019: IF l_error <> 0
4012: -- Check if error encountered
4013: IF g_debug
4014: THEN
4015: hr_utility.set_location (l_proc, 82);
4016: hr_utility.TRACE ('l_egp_id :' || l_egp_id);
4017: END IF;
4018:
4019: IF l_error <> 0
4020: THEN
4019: IF l_error <> 0
4020: THEN
4021: IF g_debug
4022: THEN
4023: hr_utility.set_location (l_proc, 83);
4024: END IF;
4025:
4026: RETURN 3;
4027: END IF;
4028:
4029: -- Check if person assigned work or rotation plan
4030: IF g_debug
4031: THEN
4032: hr_utility.TRACE ('l_work_plan :' || l_work_plan);
4033: hr_utility.TRACE ('l_rotation_plan :' || l_rotation_plan);
4034: END IF;
4035:
4036: IF (l_work_plan IS NOT NULL) OR (l_rotation_plan IS NOT NULL)
4029: -- Check if person assigned work or rotation plan
4030: IF g_debug
4031: THEN
4032: hr_utility.TRACE ('l_work_plan :' || l_work_plan);
4033: hr_utility.TRACE ('l_rotation_plan :' || l_rotation_plan);
4034: END IF;
4035:
4036: IF (l_work_plan IS NOT NULL) OR (l_rotation_plan IS NOT NULL)
4037: THEN
4036: IF (l_work_plan IS NOT NULL) OR (l_rotation_plan IS NOT NULL)
4037: THEN
4038: IF g_debug
4039: THEN
4040: hr_utility.set_location (l_proc, 84);
4041: END IF;
4042:
4043: --Get premiums for shift
4044: hxt_util.get_shift_info (l_reg_hrs_cur.date_worked,
4057:
4058: -- Check if error encountered
4059: IF g_debug
4060: THEN
4061: hr_utility.set_location (l_proc, 85);
4062: END IF;
4063:
4064: IF l_error <> 0
4065: THEN
4064: IF l_error <> 0
4065: THEN
4066: IF g_debug
4067: THEN
4068: hr_utility.set_location (l_proc, 86);
4069: END IF;
4070:
4071: RETURN 3;
4072: END IF;
4072: END IF;
4073:
4074: IF g_debug
4075: THEN
4076: hr_utility.set_location (l_proc, 87);
4077: END IF;
4078: END IF;
4079:
4080: IF g_debug
4078: END IF;
4079:
4080: IF g_debug
4081: THEN
4082: hr_utility.set_location (l_proc, 88);
4083: hr_utility.TRACE ( 'l_reg_hrs_cur.parent_id:'
4084: || l_reg_hrs_cur.parent_id
4085: );
4086: END IF;
4079:
4080: IF g_debug
4081: THEN
4082: hr_utility.set_location (l_proc, 88);
4083: hr_utility.TRACE ( 'l_reg_hrs_cur.parent_id:'
4084: || l_reg_hrs_cur.parent_id
4085: );
4086: END IF;
4087:
4098: WHERE ROWID = l_del_rowid;
4099:
4100: IF g_debug
4101: THEN
4102: hr_utility.set_location (l_proc, 89);
4103: hr_utility.TRACE ( 'l_reg_hrs_cur.time_in :'
4104: || TO_CHAR (l_reg_hrs_cur.time_in,
4105: 'DD-MON-YYYY HH24:MI:SS'
4106: )
4099:
4100: IF g_debug
4101: THEN
4102: hr_utility.set_location (l_proc, 89);
4103: hr_utility.TRACE ( 'l_reg_hrs_cur.time_in :'
4104: || TO_CHAR (l_reg_hrs_cur.time_in,
4105: 'DD-MON-YYYY HH24:MI:SS'
4106: )
4107: );
4104: || TO_CHAR (l_reg_hrs_cur.time_in,
4105: 'DD-MON-YYYY HH24:MI:SS'
4106: )
4107: );
4108: hr_utility.TRACE ( 'l_reg_hrs_cur.time_out :'
4109: || TO_CHAR (l_reg_hrs_cur.time_out,
4110: 'DD-MON-YYYY HH24:MI:SS'
4111: )
4112: );
4109: || TO_CHAR (l_reg_hrs_cur.time_out,
4110: 'DD-MON-YYYY HH24:MI:SS'
4111: )
4112: );
4113: hr_utility.TRACE ('l_hours_to_adjust:' || l_hours_to_adjust);
4114: hr_utility.TRACE
4115: ( 'l_reg_hrs_cur.time_in + (l_hours_to_adjust/24):'
4116: || TO_CHAR ( l_reg_hrs_cur.time_in
4117: + (l_hours_to_adjust / 24),
4110: 'DD-MON-YYYY HH24:MI:SS'
4111: )
4112: );
4113: hr_utility.TRACE ('l_hours_to_adjust:' || l_hours_to_adjust);
4114: hr_utility.TRACE
4115: ( 'l_reg_hrs_cur.time_in + (l_hours_to_adjust/24):'
4116: || TO_CHAR ( l_reg_hrs_cur.time_in
4117: + (l_hours_to_adjust / 24),
4118: 'DD-MON-YYYY HH24:MI:SS'
4197: );
4198:
4199: IF g_debug
4200: THEN
4201: hr_utility.set_location (l_proc, 90);
4202: END IF;
4203:
4204: IF l_status <> 0
4205: THEN
4204: IF l_status <> 0
4205: THEN
4206: IF g_debug
4207: THEN
4208: hr_utility.set_location (l_proc, 91);
4209: END IF;
4210:
4211: RETURN 3;
4212: END IF;
4212: END IF;
4213:
4214: IF g_debug
4215: THEN
4216: hr_utility.set_location (l_proc, 92);
4217: END IF;
4218:
4219: -- Now generate the detail records for c_element_type_id
4220: -- i.e., the OT or the DT that gets adjusted on
4222: IF l_reg_hrs_cur.time_in IS NOT NULL
4223: THEN
4224: IF g_debug
4225: THEN
4226: hr_utility.set_location (l_proc, 101);
4227: END IF;
4228:
4229: l_segment_start_time :=
4230: l_reg_hrs_cur.time_in
4234: + (l_hours_to_pay / 24);
4235: ELSE -- time_in is null, i.e., time entered in hours
4236: IF g_debug
4237: THEN
4238: hr_utility.set_location (l_proc, 102);
4239: END IF;
4240:
4241: l_segment_start_time := NULL;
4242: l_segment_stop_time := NULL;
4243: END IF;
4244:
4245: IF g_debug
4246: THEN
4247: hr_utility.TRACE ( 'l_segment_start_time :'
4248: || TO_CHAR (l_segment_start_time,
4249: 'DD-MON-YYYY HH24:MI:SS'
4250: )
4251: );
4248: || TO_CHAR (l_segment_start_time,
4249: 'DD-MON-YYYY HH24:MI:SS'
4250: )
4251: );
4252: hr_utility.TRACE ( 'l_segment_stop_time :'
4253: || TO_CHAR (l_segment_stop_time,
4254: 'DD-MON-YYYY HH24:MI:SS'
4255: )
4256: );
4258:
4259: --BEGIN SIR 491
4260: IF g_debug
4261: THEN
4262: hr_utility.TRACE ( 'l_reg_hrs_cur.parent_id:'
4263: || l_reg_hrs_cur.parent_id
4264: );
4265: hr_utility.TRACE ('c_tim_id :' || c_tim_id);
4266: hr_utility.TRACE ( 'c_element_type_id :'
4261: THEN
4262: hr_utility.TRACE ( 'l_reg_hrs_cur.parent_id:'
4263: || l_reg_hrs_cur.parent_id
4264: );
4265: hr_utility.TRACE ('c_tim_id :' || c_tim_id);
4266: hr_utility.TRACE ( 'c_element_type_id :'
4267: || c_element_type_id
4268: );
4269: hr_utility.set_location (l_proc, 103);
4262: hr_utility.TRACE ( 'l_reg_hrs_cur.parent_id:'
4263: || l_reg_hrs_cur.parent_id
4264: );
4265: hr_utility.TRACE ('c_tim_id :' || c_tim_id);
4266: hr_utility.TRACE ( 'c_element_type_id :'
4267: || c_element_type_id
4268: );
4269: hr_utility.set_location (l_proc, 103);
4270: END IF;
4265: hr_utility.TRACE ('c_tim_id :' || c_tim_id);
4266: hr_utility.TRACE ( 'c_element_type_id :'
4267: || c_element_type_id
4268: );
4269: hr_utility.set_location (l_proc, 103);
4270: END IF;
4271:
4272: l_status :=
4273: hxt_time_summary.generate_details
4341: );
4342:
4343: IF g_debug
4344: THEN
4345: hr_utility.set_location (l_proc, 104);
4346: END IF;
4347:
4348: IF l_status <> 0
4349: THEN
4348: IF l_status <> 0
4349: THEN
4350: IF g_debug
4351: THEN
4352: hr_utility.set_location (l_proc, 105);
4353: END IF;
4354:
4355: RETURN 3;
4356: END IF;
4356: END IF;
4357:
4358: IF g_debug
4359: THEN
4360: hr_utility.set_location (l_proc, 106);
4361: END IF;
4362: END IF; -- end if l_hours_to_adjust <> 0;
4363:
4364: IF g_debug
4362: END IF; -- end if l_hours_to_adjust <> 0;
4363:
4364: IF g_debug
4365: THEN
4366: hr_utility.set_location (l_proc, 107);
4367: END IF;
4368: END LOOP; -- While l_hours_left > 0
4369:
4370: -- After adjusting all the absence hrs, populate the details
4376: -- the Shift Premiums, associated with the REG, OT and DT
4377: -- hours, correctly.
4378: IF g_debug
4379: THEN
4380: hr_utility.TRACE ('FYI');
4381: END IF;
4382:
4383: i := g_parent_to_re_explode.FIRST;
4384:
4386: EXIT WHEN NOT g_parent_to_re_explode.EXISTS (i);
4387:
4388: IF g_debug
4389: THEN
4390: hr_utility.set_location (l_proc, 107.1);
4391: hr_utility.TRACE ('i:' || i);
4392: hr_utility.TRACE ( 'g_parent_to_re_explode(i).parent_id:'
4393: || g_parent_to_re_explode (i).parent_id
4394: );
4387:
4388: IF g_debug
4389: THEN
4390: hr_utility.set_location (l_proc, 107.1);
4391: hr_utility.TRACE ('i:' || i);
4392: hr_utility.TRACE ( 'g_parent_to_re_explode(i).parent_id:'
4393: || g_parent_to_re_explode (i).parent_id
4394: );
4395: hr_utility.set_location (l_proc, 107.2);
4388: IF g_debug
4389: THEN
4390: hr_utility.set_location (l_proc, 107.1);
4391: hr_utility.TRACE ('i:' || i);
4392: hr_utility.TRACE ( 'g_parent_to_re_explode(i).parent_id:'
4393: || g_parent_to_re_explode (i).parent_id
4394: );
4395: hr_utility.set_location (l_proc, 107.2);
4396: END IF;
4391: hr_utility.TRACE ('i:' || i);
4392: hr_utility.TRACE ( 'g_parent_to_re_explode(i).parent_id:'
4393: || g_parent_to_re_explode (i).parent_id
4394: );
4395: hr_utility.set_location (l_proc, 107.2);
4396: END IF;
4397:
4398: i := g_parent_to_re_explode.NEXT (i);
4399: END LOOP;
4399: END LOOP;
4400:
4401: IF g_debug
4402: THEN
4403: hr_utility.TRACE ('END FYI');
4404: hr_utility.set_location (l_proc, 107.3);
4405: hr_utility.TRACE ( 'g_parent_to_re_explode.count:'
4406: || g_parent_to_re_explode.COUNT
4407: );
4400:
4401: IF g_debug
4402: THEN
4403: hr_utility.TRACE ('END FYI');
4404: hr_utility.set_location (l_proc, 107.3);
4405: hr_utility.TRACE ( 'g_parent_to_re_explode.count:'
4406: || g_parent_to_re_explode.COUNT
4407: );
4408: END IF;
4401: IF g_debug
4402: THEN
4403: hr_utility.TRACE ('END FYI');
4404: hr_utility.set_location (l_proc, 107.3);
4405: hr_utility.TRACE ( 'g_parent_to_re_explode.count:'
4406: || g_parent_to_re_explode.COUNT
4407: );
4408: END IF;
4409:
4413: EXIT WHEN NOT g_parent_to_re_explode.EXISTS (j);
4414:
4415: IF g_debug
4416: THEN
4417: hr_utility.set_location (l_proc, 107.4);
4418: hr_utility.TRACE ('j:' || j);
4419: hr_utility.TRACE ( 'g_parent_to_re_explode(j).parent_id:'
4420: || g_parent_to_re_explode (j).parent_id
4421: );
4414:
4415: IF g_debug
4416: THEN
4417: hr_utility.set_location (l_proc, 107.4);
4418: hr_utility.TRACE ('j:' || j);
4419: hr_utility.TRACE ( 'g_parent_to_re_explode(j).parent_id:'
4420: || g_parent_to_re_explode (j).parent_id
4421: );
4422: END IF;
4415: IF g_debug
4416: THEN
4417: hr_utility.set_location (l_proc, 107.4);
4418: hr_utility.TRACE ('j:' || j);
4419: hr_utility.TRACE ( 'g_parent_to_re_explode(j).parent_id:'
4420: || g_parent_to_re_explode (j).parent_id
4421: );
4422: END IF;
4423:
4424: IF g_re_explode_detail.COUNT > 0
4425: THEN
4426: IF g_debug
4427: THEN
4428: hr_utility.set_location (l_proc, 107.5);
4429: END IF;
4430:
4431: l_delete_det := g_re_explode_detail.FIRST;
4432:
4478: END LOOP;
4479:
4480: IF g_debug
4481: THEN
4482: hr_utility.TRACE
4483: ('Deleting g_re_explode_detail PL/SQL table');
4484: END IF;
4485:
4486: g_re_explode_detail.DELETE;
4487: END IF;
4488:
4489: IF g_debug
4490: THEN
4491: hr_utility.set_location (l_proc, 107.6);
4492: END IF;
4493:
4494: -- Populate the g_re_explode_detail plsql table with the details of
4495: -- the rows that need to be re-exploded
4496: OPEN re_explode_details (g_parent_to_re_explode (j).parent_id);
4497:
4498: IF g_debug
4499: THEN
4500: hr_utility.set_location (l_proc, 107.61);
4501: END IF;
4502:
4503: LOOP
4504: FETCH re_explode_details
4507: EXIT WHEN re_explode_details%NOTFOUND;
4508:
4509: IF g_debug
4510: THEN
4511: hr_utility.set_location (l_proc, 108);
4512: END IF;
4513:
4514: l_next_index := g_re_explode_detail.COUNT + 1;
4515:
4514: l_next_index := g_re_explode_detail.COUNT + 1;
4515:
4516: IF g_debug
4517: THEN
4518: hr_utility.TRACE ('l_next_index:' || l_next_index);
4519: END IF;
4520:
4521: g_re_explode_detail (l_next_index).earn_pol_id :=
4522: l_re_explode_details.earn_pol_id;
4591: END LOOP; -- end populating g_re_explode_detail plsql table
4592:
4593: IF g_debug
4594: THEN
4595: hr_utility.set_location (l_proc, 109);
4596: END IF;
4597:
4598: CLOSE re_explode_details;
4599:
4598: CLOSE re_explode_details;
4599:
4600: IF g_debug
4601: THEN
4602: hr_utility.set_location (l_proc, 109.1);
4603: hr_utility.TRACE ('parent_id:' || l_reg_hrs_cur.parent_id);
4604: END IF;
4605:
4606: -- Clear all the detail records for l_reg_hrs_cur.parent_id
4599:
4600: IF g_debug
4601: THEN
4602: hr_utility.set_location (l_proc, 109.1);
4603: hr_utility.TRACE ('parent_id:' || l_reg_hrs_cur.parent_id);
4604: END IF;
4605:
4606: -- Clear all the detail records for l_reg_hrs_cur.parent_id
4607: DELETE FROM hxt_det_hours_worked
4608: WHERE parent_id = g_parent_to_re_explode (j).parent_id;
4609:
4610: IF g_debug
4611: THEN
4612: hr_utility.TRACE ('FYI');
4613: END IF;
4614:
4615: k := g_re_explode_detail.FIRST;
4616:
4618: EXIT WHEN NOT g_re_explode_detail.EXISTS (k);
4619:
4620: IF g_debug
4621: THEN
4622: hr_utility.set_location (l_proc, 109.2);
4623: hr_utility.TRACE ('k:' || k);
4624: hr_utility.TRACE ( 'g_re_explode_detail(k).earn_pol_id:'
4625: || g_re_explode_detail (k).earn_pol_id
4626: );
4619:
4620: IF g_debug
4621: THEN
4622: hr_utility.set_location (l_proc, 109.2);
4623: hr_utility.TRACE ('k:' || k);
4624: hr_utility.TRACE ( 'g_re_explode_detail(k).earn_pol_id:'
4625: || g_re_explode_detail (k).earn_pol_id
4626: );
4627: hr_utility.TRACE ( 'g_re_explode_detail(k).parent_id:'
4620: IF g_debug
4621: THEN
4622: hr_utility.set_location (l_proc, 109.2);
4623: hr_utility.TRACE ('k:' || k);
4624: hr_utility.TRACE ( 'g_re_explode_detail(k).earn_pol_id:'
4625: || g_re_explode_detail (k).earn_pol_id
4626: );
4627: hr_utility.TRACE ( 'g_re_explode_detail(k).parent_id:'
4628: || g_re_explode_detail (k).parent_id
4623: hr_utility.TRACE ('k:' || k);
4624: hr_utility.TRACE ( 'g_re_explode_detail(k).earn_pol_id:'
4625: || g_re_explode_detail (k).earn_pol_id
4626: );
4627: hr_utility.TRACE ( 'g_re_explode_detail(k).parent_id:'
4628: || g_re_explode_detail (k).parent_id
4629: );
4630: hr_utility.TRACE ( 'g_re_explode_detail(k).tim_id:'
4631: || g_re_explode_detail (k).tim_id
4626: );
4627: hr_utility.TRACE ( 'g_re_explode_detail(k).parent_id:'
4628: || g_re_explode_detail (k).parent_id
4629: );
4630: hr_utility.TRACE ( 'g_re_explode_detail(k).tim_id:'
4631: || g_re_explode_detail (k).tim_id
4632: );
4633: hr_utility.TRACE ( 'g_re_explode_detail(k).date_worked:'
4634: || g_re_explode_detail (k).date_worked
4629: );
4630: hr_utility.TRACE ( 'g_re_explode_detail(k).tim_id:'
4631: || g_re_explode_detail (k).tim_id
4632: );
4633: hr_utility.TRACE ( 'g_re_explode_detail(k).date_worked:'
4634: || g_re_explode_detail (k).date_worked
4635: );
4636: hr_utility.TRACE ( 'g_re_explode_detail(k).assignment_id:'
4637: || g_re_explode_detail (k).assignment_id
4632: );
4633: hr_utility.TRACE ( 'g_re_explode_detail(k).date_worked:'
4634: || g_re_explode_detail (k).date_worked
4635: );
4636: hr_utility.TRACE ( 'g_re_explode_detail(k).assignment_id:'
4637: || g_re_explode_detail (k).assignment_id
4638: );
4639: hr_utility.TRACE ( 'g_re_explode_detail(k).hours:'
4640: || g_re_explode_detail (k).hours
4635: );
4636: hr_utility.TRACE ( 'g_re_explode_detail(k).assignment_id:'
4637: || g_re_explode_detail (k).assignment_id
4638: );
4639: hr_utility.TRACE ( 'g_re_explode_detail(k).hours:'
4640: || g_re_explode_detail (k).hours
4641: );
4642: hr_utility.TRACE ( 'g_re_explode_detail(k).time_in:'
4643: || TO_CHAR
4638: );
4639: hr_utility.TRACE ( 'g_re_explode_detail(k).hours:'
4640: || g_re_explode_detail (k).hours
4641: );
4642: hr_utility.TRACE ( 'g_re_explode_detail(k).time_in:'
4643: || TO_CHAR
4644: (g_re_explode_detail (k).time_in,
4645: 'DD-MON-YYYY HH24:MI:SS'
4646: )
4644: (g_re_explode_detail (k).time_in,
4645: 'DD-MON-YYYY HH24:MI:SS'
4646: )
4647: );
4648: hr_utility.TRACE ( 'g_re_explode_detail(k).time_out:'
4649: || TO_CHAR
4650: (g_re_explode_detail (k).time_out,
4651: 'DD-MON-YYYY HH24:MI:SS'
4652: )
4650: (g_re_explode_detail (k).time_out,
4651: 'DD-MON-YYYY HH24:MI:SS'
4652: )
4653: );
4654: hr_utility.TRACE
4655: ( 'g_re_explode_detail(k).element_type_id:'
4656: || g_re_explode_detail (k).element_type_id
4657: );
4658: hr_utility.TRACE
4654: hr_utility.TRACE
4655: ( 'g_re_explode_detail(k).element_type_id:'
4656: || g_re_explode_detail (k).element_type_id
4657: );
4658: hr_utility.TRACE
4659: ( 'g_re_explode_detail(k).fcl_earn_reason_code:'
4660: || g_re_explode_detail (k).fcl_earn_reason_code
4661: );
4662: hr_utility.TRACE
4658: hr_utility.TRACE
4659: ( 'g_re_explode_detail(k).fcl_earn_reason_code:'
4660: || g_re_explode_detail (k).fcl_earn_reason_code
4661: );
4662: hr_utility.TRACE
4663: ( 'g_re_explode_detail(k).ffv_cost_center_id:'
4664: || g_re_explode_detail (k).ffv_cost_center_id
4665: );
4666: hr_utility.TRACE ( 'g_re_explode_detail(k).tas_id:'
4662: hr_utility.TRACE
4663: ( 'g_re_explode_detail(k).ffv_cost_center_id:'
4664: || g_re_explode_detail (k).ffv_cost_center_id
4665: );
4666: hr_utility.TRACE ( 'g_re_explode_detail(k).tas_id:'
4667: || g_re_explode_detail (k).tas_id
4668: );
4669: hr_utility.TRACE ( 'g_re_explode_detail(k).location_id:'
4670: || g_re_explode_detail (k).location_id
4665: );
4666: hr_utility.TRACE ( 'g_re_explode_detail(k).tas_id:'
4667: || g_re_explode_detail (k).tas_id
4668: );
4669: hr_utility.TRACE ( 'g_re_explode_detail(k).location_id:'
4670: || g_re_explode_detail (k).location_id
4671: );
4672: hr_utility.TRACE ( 'g_re_explode_detail(k).sht_id:'
4673: || g_re_explode_detail (k).sht_id
4668: );
4669: hr_utility.TRACE ( 'g_re_explode_detail(k).location_id:'
4670: || g_re_explode_detail (k).location_id
4671: );
4672: hr_utility.TRACE ( 'g_re_explode_detail(k).sht_id:'
4673: || g_re_explode_detail (k).sht_id
4674: );
4675: hr_utility.TRACE ( 'g_re_explode_detail(k).hrw_comment:'
4676: || g_re_explode_detail (k).hrw_comment
4671: );
4672: hr_utility.TRACE ( 'g_re_explode_detail(k).sht_id:'
4673: || g_re_explode_detail (k).sht_id
4674: );
4675: hr_utility.TRACE ( 'g_re_explode_detail(k).hrw_comment:'
4676: || g_re_explode_detail (k).hrw_comment
4677: );
4678: hr_utility.TRACE
4679: ( 'g_re_explode_detail(k).ffv_rate_code_id:'
4674: );
4675: hr_utility.TRACE ( 'g_re_explode_detail(k).hrw_comment:'
4676: || g_re_explode_detail (k).hrw_comment
4677: );
4678: hr_utility.TRACE
4679: ( 'g_re_explode_detail(k).ffv_rate_code_id:'
4680: || g_re_explode_detail (k).ffv_rate_code_id
4681: );
4682: hr_utility.TRACE ( 'g_re_explode_detail(k).rate_multiple:'
4678: hr_utility.TRACE
4679: ( 'g_re_explode_detail(k).ffv_rate_code_id:'
4680: || g_re_explode_detail (k).ffv_rate_code_id
4681: );
4682: hr_utility.TRACE ( 'g_re_explode_detail(k).rate_multiple:'
4683: || g_re_explode_detail (k).rate_multiple
4684: );
4685: hr_utility.TRACE ( 'g_re_explode_detail(k).hourly_rate:'
4686: || g_re_explode_detail (k).hourly_rate
4681: );
4682: hr_utility.TRACE ( 'g_re_explode_detail(k).rate_multiple:'
4683: || g_re_explode_detail (k).rate_multiple
4684: );
4685: hr_utility.TRACE ( 'g_re_explode_detail(k).hourly_rate:'
4686: || g_re_explode_detail (k).hourly_rate
4687: );
4688: hr_utility.TRACE ( 'g_re_explode_detail(k).amount:'
4689: || g_re_explode_detail (k).amount
4684: );
4685: hr_utility.TRACE ( 'g_re_explode_detail(k).hourly_rate:'
4686: || g_re_explode_detail (k).hourly_rate
4687: );
4688: hr_utility.TRACE ( 'g_re_explode_detail(k).amount:'
4689: || g_re_explode_detail (k).amount
4690: );
4691: hr_utility.TRACE
4692: ( 'g_re_explode_detail(k).fcl_tax_rule_code:'
4687: );
4688: hr_utility.TRACE ( 'g_re_explode_detail(k).amount:'
4689: || g_re_explode_detail (k).amount
4690: );
4691: hr_utility.TRACE
4692: ( 'g_re_explode_detail(k).fcl_tax_rule_code:'
4693: || g_re_explode_detail (k).fcl_tax_rule_code
4694: );
4695: hr_utility.TRACE
4691: hr_utility.TRACE
4692: ( 'g_re_explode_detail(k).fcl_tax_rule_code:'
4693: || g_re_explode_detail (k).fcl_tax_rule_code
4694: );
4695: hr_utility.TRACE
4696: ( 'g_re_explode_detail(k).separate_check_flag:'
4697: || g_re_explode_detail (k).separate_check_flag
4698: );
4699: hr_utility.TRACE ( 'g_re_explode_detail(k).seqno:'
4695: hr_utility.TRACE
4696: ( 'g_re_explode_detail(k).separate_check_flag:'
4697: || g_re_explode_detail (k).separate_check_flag
4698: );
4699: hr_utility.TRACE ( 'g_re_explode_detail(k).seqno:'
4700: || g_re_explode_detail (k).seqno
4701: );
4702: hr_utility.TRACE ( 'g_re_explode_detail(k).created_by:'
4703: || g_re_explode_detail (k).created_by
4698: );
4699: hr_utility.TRACE ( 'g_re_explode_detail(k).seqno:'
4700: || g_re_explode_detail (k).seqno
4701: );
4702: hr_utility.TRACE ( 'g_re_explode_detail(k).created_by:'
4703: || g_re_explode_detail (k).created_by
4704: );
4705: hr_utility.TRACE ( 'g_re_explode_detail(k).creation_date:'
4706: || g_re_explode_detail (k).creation_date
4701: );
4702: hr_utility.TRACE ( 'g_re_explode_detail(k).created_by:'
4703: || g_re_explode_detail (k).created_by
4704: );
4705: hr_utility.TRACE ( 'g_re_explode_detail(k).creation_date:'
4706: || g_re_explode_detail (k).creation_date
4707: );
4708: hr_utility.TRACE
4709: ( 'g_re_explode_detail(k).last_updated_by:'
4704: );
4705: hr_utility.TRACE ( 'g_re_explode_detail(k).creation_date:'
4706: || g_re_explode_detail (k).creation_date
4707: );
4708: hr_utility.TRACE
4709: ( 'g_re_explode_detail(k).last_updated_by:'
4710: || g_re_explode_detail (k).last_updated_by
4711: );
4712: hr_utility.TRACE
4708: hr_utility.TRACE
4709: ( 'g_re_explode_detail(k).last_updated_by:'
4710: || g_re_explode_detail (k).last_updated_by
4711: );
4712: hr_utility.TRACE
4713: ( 'g_re_explode_detail(k).last_update_date:'
4714: || g_re_explode_detail (k).last_update_date
4715: );
4716: hr_utility.TRACE
4712: hr_utility.TRACE
4713: ( 'g_re_explode_detail(k).last_update_date:'
4714: || g_re_explode_detail (k).last_update_date
4715: );
4716: hr_utility.TRACE
4717: ( 'g_re_explode_detail(k).last_update_login:'
4718: || g_re_explode_detail (k).last_update_login
4719: );
4720: hr_utility.TRACE
4716: hr_utility.TRACE
4717: ( 'g_re_explode_detail(k).last_update_login:'
4718: || g_re_explode_detail (k).last_update_login
4719: );
4720: hr_utility.TRACE
4721: ( 'g_re_explode_detail(k).effective_start_date:'
4722: || g_re_explode_detail (k).effective_start_date
4723: );
4724: hr_utility.TRACE
4720: hr_utility.TRACE
4721: ( 'g_re_explode_detail(k).effective_start_date:'
4722: || g_re_explode_detail (k).effective_start_date
4723: );
4724: hr_utility.TRACE
4725: ( 'g_re_explode_detail(k).effective_end_date:'
4726: || g_re_explode_detail (k).effective_end_date
4727: );
4728: hr_utility.TRACE ( 'g_re_explode_detail(k).project_id:'
4724: hr_utility.TRACE
4725: ( 'g_re_explode_detail(k).effective_end_date:'
4726: || g_re_explode_detail (k).effective_end_date
4727: );
4728: hr_utility.TRACE ( 'g_re_explode_detail(k).project_id:'
4729: || g_re_explode_detail (k).project_id
4730: );
4731: hr_utility.TRACE ( 'g_re_explode_detail(k).job_id:'
4732: || g_re_explode_detail (k).job_id
4727: );
4728: hr_utility.TRACE ( 'g_re_explode_detail(k).project_id:'
4729: || g_re_explode_detail (k).project_id
4730: );
4731: hr_utility.TRACE ( 'g_re_explode_detail(k).job_id:'
4732: || g_re_explode_detail (k).job_id
4733: );
4734: hr_utility.set_location (l_proc, 109.22);
4735: END IF;
4730: );
4731: hr_utility.TRACE ( 'g_re_explode_detail(k).job_id:'
4732: || g_re_explode_detail (k).job_id
4733: );
4734: hr_utility.set_location (l_proc, 109.22);
4735: END IF;
4736:
4737: k := g_re_explode_detail.NEXT (k);
4738: END LOOP;
4738: END LOOP;
4739:
4740: IF g_debug
4741: THEN
4742: hr_utility.TRACE ('END FYI');
4743: hr_utility.set_location (l_proc, 109.23);
4744: hr_utility.TRACE ( 'g_re_explode_detail.count:'
4745: || g_re_explode_detail.COUNT
4746: );
4739:
4740: IF g_debug
4741: THEN
4742: hr_utility.TRACE ('END FYI');
4743: hr_utility.set_location (l_proc, 109.23);
4744: hr_utility.TRACE ( 'g_re_explode_detail.count:'
4745: || g_re_explode_detail.COUNT
4746: );
4747: END IF;
4740: IF g_debug
4741: THEN
4742: hr_utility.TRACE ('END FYI');
4743: hr_utility.set_location (l_proc, 109.23);
4744: hr_utility.TRACE ( 'g_re_explode_detail.count:'
4745: || g_re_explode_detail.COUNT
4746: );
4747: END IF;
4748:
4753: EXIT WHEN NOT g_re_explode_detail.EXISTS (l_re_explode);
4754:
4755: IF g_debug
4756: THEN
4757: hr_utility.set_location (l_proc, 109.3);
4758: hr_utility.TRACE ('l_re_explode:' || l_re_explode);
4759: hr_utility.TRACE
4760: ( 'g_re_explode_detail(l_re_explode).earn_pol_id:'
4761: || g_re_explode_detail (l_re_explode).earn_pol_id
4754:
4755: IF g_debug
4756: THEN
4757: hr_utility.set_location (l_proc, 109.3);
4758: hr_utility.TRACE ('l_re_explode:' || l_re_explode);
4759: hr_utility.TRACE
4760: ( 'g_re_explode_detail(l_re_explode).earn_pol_id:'
4761: || g_re_explode_detail (l_re_explode).earn_pol_id
4762: );
4755: IF g_debug
4756: THEN
4757: hr_utility.set_location (l_proc, 109.3);
4758: hr_utility.TRACE ('l_re_explode:' || l_re_explode);
4759: hr_utility.TRACE
4760: ( 'g_re_explode_detail(l_re_explode).earn_pol_id:'
4761: || g_re_explode_detail (l_re_explode).earn_pol_id
4762: );
4763: hr_utility.TRACE
4759: hr_utility.TRACE
4760: ( 'g_re_explode_detail(l_re_explode).earn_pol_id:'
4761: || g_re_explode_detail (l_re_explode).earn_pol_id
4762: );
4763: hr_utility.TRACE
4764: ( 'g_re_explode_detail(l_re_explode).parent_id:'
4765: || g_re_explode_detail (l_re_explode).parent_id
4766: );
4767: hr_utility.TRACE
4763: hr_utility.TRACE
4764: ( 'g_re_explode_detail(l_re_explode).parent_id:'
4765: || g_re_explode_detail (l_re_explode).parent_id
4766: );
4767: hr_utility.TRACE
4768: ( 'g_re_explode_detail(l_re_explode).tim_id:'
4769: || g_re_explode_detail (l_re_explode).tim_id
4770: );
4771: hr_utility.TRACE
4767: hr_utility.TRACE
4768: ( 'g_re_explode_detail(l_re_explode).tim_id:'
4769: || g_re_explode_detail (l_re_explode).tim_id
4770: );
4771: hr_utility.TRACE
4772: ( 'g_re_explode_detail(l_re_explode).date_worked:'
4773: || g_re_explode_detail (l_re_explode).date_worked
4774: );
4775: hr_utility.TRACE
4771: hr_utility.TRACE
4772: ( 'g_re_explode_detail(l_re_explode).date_worked:'
4773: || g_re_explode_detail (l_re_explode).date_worked
4774: );
4775: hr_utility.TRACE
4776: ( 'g_re_explode_detail(l_re_explode).assignment_id:'
4777: || g_re_explode_detail (l_re_explode).assignment_id
4778: );
4779: hr_utility.TRACE
4775: hr_utility.TRACE
4776: ( 'g_re_explode_detail(l_re_explode).assignment_id:'
4777: || g_re_explode_detail (l_re_explode).assignment_id
4778: );
4779: hr_utility.TRACE
4780: ( 'g_re_explode_detail(l_re_explode).hours:'
4781: || g_re_explode_detail (l_re_explode).hours
4782: );
4783: hr_utility.TRACE
4779: hr_utility.TRACE
4780: ( 'g_re_explode_detail(l_re_explode).hours:'
4781: || g_re_explode_detail (l_re_explode).hours
4782: );
4783: hr_utility.TRACE
4784: ( 'g_re_explode_detail(l_re_explode).time_in:'
4785: || TO_CHAR
4786: (g_re_explode_detail (l_re_explode).time_in,
4787: 'DD-MON-YYYY HH24:MI:SS'
4786: (g_re_explode_detail (l_re_explode).time_in,
4787: 'DD-MON-YYYY HH24:MI:SS'
4788: )
4789: );
4790: hr_utility.TRACE
4791: ( 'g_re_explode_detail(l_re_explode).time_out:'
4792: || TO_CHAR
4793: (g_re_explode_detail (l_re_explode).time_out,
4794: 'DD-MON-YYYY HH24:MI:SS'
4793: (g_re_explode_detail (l_re_explode).time_out,
4794: 'DD-MON-YYYY HH24:MI:SS'
4795: )
4796: );
4797: hr_utility.TRACE
4798: ( 'g_re_explode_detail(l_re_explode).element_type_id:'
4799: || g_re_explode_detail (l_re_explode).element_type_id
4800: );
4801: hr_utility.TRACE
4797: hr_utility.TRACE
4798: ( 'g_re_explode_detail(l_re_explode).element_type_id:'
4799: || g_re_explode_detail (l_re_explode).element_type_id
4800: );
4801: hr_utility.TRACE
4802: ( 'g_re_explode_detail(l_re_explode).fcl_earn_reason_code:'
4803: || g_re_explode_detail (l_re_explode).fcl_earn_reason_code
4804: );
4805: hr_utility.TRACE
4801: hr_utility.TRACE
4802: ( 'g_re_explode_detail(l_re_explode).fcl_earn_reason_code:'
4803: || g_re_explode_detail (l_re_explode).fcl_earn_reason_code
4804: );
4805: hr_utility.TRACE
4806: ( 'g_re_explode_detail(l_re_explode).ffv_cost_center_id:'
4807: || g_re_explode_detail (l_re_explode).ffv_cost_center_id
4808: );
4809: hr_utility.TRACE
4805: hr_utility.TRACE
4806: ( 'g_re_explode_detail(l_re_explode).ffv_cost_center_id:'
4807: || g_re_explode_detail (l_re_explode).ffv_cost_center_id
4808: );
4809: hr_utility.TRACE
4810: ( 'g_re_explode_detail(l_re_explode).tas_id:'
4811: || g_re_explode_detail (l_re_explode).tas_id
4812: );
4813: hr_utility.TRACE
4809: hr_utility.TRACE
4810: ( 'g_re_explode_detail(l_re_explode).tas_id:'
4811: || g_re_explode_detail (l_re_explode).tas_id
4812: );
4813: hr_utility.TRACE
4814: ( 'g_re_explode_detail(l_re_explode).location_id:'
4815: || g_re_explode_detail (l_re_explode).location_id
4816: );
4817: hr_utility.TRACE
4813: hr_utility.TRACE
4814: ( 'g_re_explode_detail(l_re_explode).location_id:'
4815: || g_re_explode_detail (l_re_explode).location_id
4816: );
4817: hr_utility.TRACE
4818: ( 'g_re_explode_detail(l_re_explode).sht_id:'
4819: || g_re_explode_detail (l_re_explode).sht_id
4820: );
4821: hr_utility.TRACE
4817: hr_utility.TRACE
4818: ( 'g_re_explode_detail(l_re_explode).sht_id:'
4819: || g_re_explode_detail (l_re_explode).sht_id
4820: );
4821: hr_utility.TRACE
4822: ( 'g_re_explode_detail(l_re_explode).hrw_comment:'
4823: || g_re_explode_detail (l_re_explode).hrw_comment
4824: );
4825: hr_utility.TRACE
4821: hr_utility.TRACE
4822: ( 'g_re_explode_detail(l_re_explode).hrw_comment:'
4823: || g_re_explode_detail (l_re_explode).hrw_comment
4824: );
4825: hr_utility.TRACE
4826: ( 'g_re_explode_detail(l_re_explode).ffv_rate_code_id:'
4827: || g_re_explode_detail (l_re_explode).ffv_rate_code_id
4828: );
4829: hr_utility.TRACE
4825: hr_utility.TRACE
4826: ( 'g_re_explode_detail(l_re_explode).ffv_rate_code_id:'
4827: || g_re_explode_detail (l_re_explode).ffv_rate_code_id
4828: );
4829: hr_utility.TRACE
4830: ( 'g_re_explode_detail(l_re_explode).rate_multiple:'
4831: || g_re_explode_detail (l_re_explode).rate_multiple
4832: );
4833: hr_utility.TRACE
4829: hr_utility.TRACE
4830: ( 'g_re_explode_detail(l_re_explode).rate_multiple:'
4831: || g_re_explode_detail (l_re_explode).rate_multiple
4832: );
4833: hr_utility.TRACE
4834: ( 'g_re_explode_detail(l_re_explode).hourly_rate:'
4835: || g_re_explode_detail (l_re_explode).hourly_rate
4836: );
4837: hr_utility.TRACE
4833: hr_utility.TRACE
4834: ( 'g_re_explode_detail(l_re_explode).hourly_rate:'
4835: || g_re_explode_detail (l_re_explode).hourly_rate
4836: );
4837: hr_utility.TRACE
4838: ( 'g_re_explode_detail(l_re_explode).amount:'
4839: || g_re_explode_detail (l_re_explode).amount
4840: );
4841: hr_utility.TRACE
4837: hr_utility.TRACE
4838: ( 'g_re_explode_detail(l_re_explode).amount:'
4839: || g_re_explode_detail (l_re_explode).amount
4840: );
4841: hr_utility.TRACE
4842: ( 'g_re_explode_detail(l_re_explode).fcl_tax_rule_code:'
4843: || g_re_explode_detail (l_re_explode).fcl_tax_rule_code
4844: );
4845: hr_utility.TRACE
4841: hr_utility.TRACE
4842: ( 'g_re_explode_detail(l_re_explode).fcl_tax_rule_code:'
4843: || g_re_explode_detail (l_re_explode).fcl_tax_rule_code
4844: );
4845: hr_utility.TRACE
4846: ( 'g_re_explode_detail(l_re_explode).separate_check_flag:'
4847: || g_re_explode_detail (l_re_explode).separate_check_flag
4848: );
4849: hr_utility.TRACE
4845: hr_utility.TRACE
4846: ( 'g_re_explode_detail(l_re_explode).separate_check_flag:'
4847: || g_re_explode_detail (l_re_explode).separate_check_flag
4848: );
4849: hr_utility.TRACE
4850: ( 'g_re_explode_detail(l_re_explode).seqno:'
4851: || g_re_explode_detail (l_re_explode).seqno
4852: );
4853: hr_utility.TRACE
4849: hr_utility.TRACE
4850: ( 'g_re_explode_detail(l_re_explode).seqno:'
4851: || g_re_explode_detail (l_re_explode).seqno
4852: );
4853: hr_utility.TRACE
4854: ( 'g_re_explode_detail(l_re_explode).created_by:'
4855: || g_re_explode_detail (l_re_explode).created_by
4856: );
4857: hr_utility.TRACE
4853: hr_utility.TRACE
4854: ( 'g_re_explode_detail(l_re_explode).created_by:'
4855: || g_re_explode_detail (l_re_explode).created_by
4856: );
4857: hr_utility.TRACE
4858: ( 'g_re_explode_detail(l_re_explode).creation_date:'
4859: || g_re_explode_detail (l_re_explode).creation_date
4860: );
4861: hr_utility.TRACE
4857: hr_utility.TRACE
4858: ( 'g_re_explode_detail(l_re_explode).creation_date:'
4859: || g_re_explode_detail (l_re_explode).creation_date
4860: );
4861: hr_utility.TRACE
4862: ( 'g_re_explode_detail(l_re_explode).last_updated_by:'
4863: || g_re_explode_detail (l_re_explode).last_updated_by
4864: );
4865: hr_utility.TRACE
4861: hr_utility.TRACE
4862: ( 'g_re_explode_detail(l_re_explode).last_updated_by:'
4863: || g_re_explode_detail (l_re_explode).last_updated_by
4864: );
4865: hr_utility.TRACE
4866: ( 'g_re_explode_detail(l_re_explode).last_update_date:'
4867: || g_re_explode_detail (l_re_explode).last_update_date
4868: );
4869: hr_utility.TRACE
4865: hr_utility.TRACE
4866: ( 'g_re_explode_detail(l_re_explode).last_update_date:'
4867: || g_re_explode_detail (l_re_explode).last_update_date
4868: );
4869: hr_utility.TRACE
4870: ( 'g_re_explode_detail(l_re_explode).last_update_login:'
4871: || g_re_explode_detail (l_re_explode).last_update_login
4872: );
4873: hr_utility.TRACE
4869: hr_utility.TRACE
4870: ( 'g_re_explode_detail(l_re_explode).last_update_login:'
4871: || g_re_explode_detail (l_re_explode).last_update_login
4872: );
4873: hr_utility.TRACE
4874: ( 'g_re_explode_detail(l_re_explode).effective_start_date:'
4875: || g_re_explode_detail (l_re_explode).effective_start_date
4876: );
4877: hr_utility.TRACE
4873: hr_utility.TRACE
4874: ( 'g_re_explode_detail(l_re_explode).effective_start_date:'
4875: || g_re_explode_detail (l_re_explode).effective_start_date
4876: );
4877: hr_utility.TRACE
4878: ( 'g_re_explode_detail(l_re_explode).effective_end_date:'
4879: || g_re_explode_detail (l_re_explode).effective_end_date
4880: );
4881: hr_utility.TRACE
4877: hr_utility.TRACE
4878: ( 'g_re_explode_detail(l_re_explode).effective_end_date:'
4879: || g_re_explode_detail (l_re_explode).effective_end_date
4880: );
4881: hr_utility.TRACE
4882: ( 'g_re_explode_detail(l_re_explode).project_id:'
4883: || g_re_explode_detail (l_re_explode).project_id
4884: );
4885: hr_utility.TRACE
4881: hr_utility.TRACE
4882: ( 'g_re_explode_detail(l_re_explode).project_id:'
4883: || g_re_explode_detail (l_re_explode).project_id
4884: );
4885: hr_utility.TRACE
4886: ( 'g_re_explode_detail(l_re_explode).job_id:'
4887: || g_re_explode_detail (l_re_explode).job_id
4888: );
4889: END IF;
4961: );
4962:
4963: IF g_debug
4964: THEN
4965: hr_utility.set_location (l_proc, 109.4);
4966: hr_utility.TRACE ('l_status:' || l_status);
4967: END IF;
4968:
4969: IF l_status <> 0
4962:
4963: IF g_debug
4964: THEN
4965: hr_utility.set_location (l_proc, 109.4);
4966: hr_utility.TRACE ('l_status:' || l_status);
4967: END IF;
4968:
4969: IF l_status <> 0
4970: THEN
4969: IF l_status <> 0
4970: THEN
4971: IF g_debug
4972: THEN
4973: hr_utility.set_location (l_proc, 109.5);
4974: END IF;
4975:
4976: RETURN 3;
4977: END IF;
4977: END IF;
4978:
4979: IF g_debug
4980: THEN
4981: hr_utility.set_location (l_proc, 109.6);
4982: END IF;
4983:
4984: l_re_explode := g_re_explode_detail.NEXT (l_re_explode);
4985: END LOOP; -- g_re_explode_detail.first .. g_re_explode_detail.last
4989:
4990: -- g_parent_to_re_explode.first .. g_parent_to_re_explode.last
4991: IF g_debug
4992: THEN
4993: hr_utility.set_location (l_proc, 110);
4994: END IF;
4995:
4996: CLOSE reg_hrs_cur;
4997:
4996: CLOSE reg_hrs_cur;
4997:
4998: IF g_debug
4999: THEN
5000: hr_utility.set_location (l_proc, 120);
5001: END IF;
5002:
5003: RETURN 0;
5004: END adjust_abs_hrs_on_prev_days;
5139: BEGIN
5140: IF g_debug
5141: THEN
5142: l_proc := 'hxt_time_detail.adjust_for_absence';
5143: hr_utility.set_location (l_proc, 10);
5144: hr_utility.TRACE ('a_ep_id:' || a_ep_id);
5145: hr_utility.TRACE ( 'a_date_worked :'
5146: || TO_CHAR (a_date_worked,
5147: 'DD-MON-YYYY HH24:MI:SS'
5140: IF g_debug
5141: THEN
5142: l_proc := 'hxt_time_detail.adjust_for_absence';
5143: hr_utility.set_location (l_proc, 10);
5144: hr_utility.TRACE ('a_ep_id:' || a_ep_id);
5145: hr_utility.TRACE ( 'a_date_worked :'
5146: || TO_CHAR (a_date_worked,
5147: 'DD-MON-YYYY HH24:MI:SS'
5148: )
5141: THEN
5142: l_proc := 'hxt_time_detail.adjust_for_absence';
5143: hr_utility.set_location (l_proc, 10);
5144: hr_utility.TRACE ('a_ep_id:' || a_ep_id);
5145: hr_utility.TRACE ( 'a_date_worked :'
5146: || TO_CHAR (a_date_worked,
5147: 'DD-MON-YYYY HH24:MI:SS'
5148: )
5149: );
5150: END IF;
5151:
5152: IF g_ep_type = 'SPECIAL'
5153: THEN
5154: hr_utility.set_location (l_proc, 10.5);
5155:
5156: OPEN daily_earn_rules_cur2 (a_ep_id, a_date_worked);
5157:
5158: FETCH daily_earn_rules_cur2
5159: INTO l_first_daily_cap, l_first_daily_elem;
5160:
5161: IF g_debug
5162: THEN
5163: hr_utility.TRACE ('l_first_daily_cap :' || l_first_daily_cap);
5164: hr_utility.TRACE ('l_first_daily_elem:' || l_first_daily_elem);
5165: END IF;
5166:
5167: IF daily_earn_rules_cur2%FOUND
5160:
5161: IF g_debug
5162: THEN
5163: hr_utility.TRACE ('l_first_daily_cap :' || l_first_daily_cap);
5164: hr_utility.TRACE ('l_first_daily_elem:' || l_first_daily_elem);
5165: END IF;
5166:
5167: IF daily_earn_rules_cur2%FOUND
5168: THEN
5167: IF daily_earn_rules_cur2%FOUND
5168: THEN
5169: IF g_debug
5170: THEN
5171: hr_utility.set_location (l_proc, 11);
5172: END IF;
5173:
5174: FETCH daily_earn_rules_cur2
5175: INTO l_second_daily_cap, l_second_daily_elem;
5175: INTO l_second_daily_cap, l_second_daily_elem;
5176:
5177: IF g_debug
5178: THEN
5179: hr_utility.TRACE ( 'l_second_daily_cap :'
5180: || l_second_daily_cap
5181: );
5182: hr_utility.TRACE ( 'l_second_daily_elem:'
5183: || l_second_daily_elem
5178: THEN
5179: hr_utility.TRACE ( 'l_second_daily_cap :'
5180: || l_second_daily_cap
5181: );
5182: hr_utility.TRACE ( 'l_second_daily_elem:'
5183: || l_second_daily_elem
5184: );
5185: END IF;
5186:
5187: IF daily_earn_rules_cur2%FOUND
5188: THEN
5189: IF g_debug
5190: THEN
5191: hr_utility.set_location (l_proc, 12);
5192: END IF;
5193:
5194: FETCH daily_earn_rules_cur2
5195: INTO l_third_daily_cap, l_third_daily_elem;
5195: INTO l_third_daily_cap, l_third_daily_elem;
5196:
5197: IF g_debug
5198: THEN
5199: hr_utility.TRACE ( 'l_third_daily_cap :'
5200: || l_third_daily_cap
5201: );
5202: hr_utility.TRACE ( 'l_third_daily_elem:'
5203: || l_third_daily_elem
5198: THEN
5199: hr_utility.TRACE ( 'l_third_daily_cap :'
5200: || l_third_daily_cap
5201: );
5202: hr_utility.TRACE ( 'l_third_daily_elem:'
5203: || l_third_daily_elem
5204: );
5205: END IF;
5206:
5207: IF daily_earn_rules_cur2%FOUND
5208: THEN
5209: IF g_debug
5210: THEN
5211: hr_utility.set_location (l_proc, 13);
5212: END IF;
5213:
5214: NULL;
5215: ELSE
5214: NULL;
5215: ELSE
5216: IF g_debug
5217: THEN
5218: hr_utility.set_location (l_proc, 14);
5219: END IF;
5220:
5221: l_third_daily_cap := 999;
5222: END IF;
5222: END IF;
5223: ELSE
5224: IF g_debug
5225: THEN
5226: hr_utility.set_location (l_proc, 15);
5227: END IF;
5228:
5229: l_second_daily_cap := 999;
5230: END IF;
5230: END IF;
5231: ELSE
5232: IF g_debug
5233: THEN
5234: hr_utility.set_location (l_proc, 16);
5235: END IF;
5236:
5237: CLOSE daily_earn_rules_cur2;
5238:
5242: END IF;
5243:
5244: IF g_debug
5245: THEN
5246: hr_utility.set_location (l_proc, 20);
5247: END IF;
5248:
5249: CLOSE daily_earn_rules_cur2;
5250: END IF;
5255: INTO l_first_cap, l_first_elem;
5256:
5257: IF g_debug
5258: THEN
5259: hr_utility.TRACE ('l_first_cap :' || l_first_cap);
5260: hr_utility.TRACE ('l_first_elem:' || l_first_elem);
5261: END IF;
5262:
5263: IF weekly_earn_rules_cur2%FOUND
5256:
5257: IF g_debug
5258: THEN
5259: hr_utility.TRACE ('l_first_cap :' || l_first_cap);
5260: hr_utility.TRACE ('l_first_elem:' || l_first_elem);
5261: END IF;
5262:
5263: IF weekly_earn_rules_cur2%FOUND
5264: THEN
5263: IF weekly_earn_rules_cur2%FOUND
5264: THEN
5265: IF g_debug
5266: THEN
5267: hr_utility.set_location (l_proc, 25);
5268: END IF;
5269:
5270: FETCH weekly_earn_rules_cur2
5271: INTO l_second_cap, l_second_elem;
5271: INTO l_second_cap, l_second_elem;
5272:
5273: IF g_debug
5274: THEN
5275: hr_utility.TRACE ('l_second_cap :' || l_second_cap);
5276: hr_utility.TRACE ('l_second_elem:' || l_second_elem);
5277: END IF;
5278:
5279: IF weekly_earn_rules_cur2%FOUND
5272:
5273: IF g_debug
5274: THEN
5275: hr_utility.TRACE ('l_second_cap :' || l_second_cap);
5276: hr_utility.TRACE ('l_second_elem:' || l_second_elem);
5277: END IF;
5278:
5279: IF weekly_earn_rules_cur2%FOUND
5280: THEN
5279: IF weekly_earn_rules_cur2%FOUND
5280: THEN
5281: IF g_debug
5282: THEN
5283: hr_utility.set_location (l_proc, 30);
5284: END IF;
5285:
5286: FETCH weekly_earn_rules_cur2
5287: INTO l_third_cap, l_third_elem;
5287: INTO l_third_cap, l_third_elem;
5288:
5289: IF g_debug
5290: THEN
5291: hr_utility.TRACE ('l_third_cap :' || l_third_cap);
5292: hr_utility.TRACE ('l_third_elem:' || l_third_elem);
5293: END IF;
5294:
5295: IF weekly_earn_rules_cur2%FOUND
5288:
5289: IF g_debug
5290: THEN
5291: hr_utility.TRACE ('l_third_cap :' || l_third_cap);
5292: hr_utility.TRACE ('l_third_elem:' || l_third_elem);
5293: END IF;
5294:
5295: IF weekly_earn_rules_cur2%FOUND
5296: THEN
5295: IF weekly_earn_rules_cur2%FOUND
5296: THEN
5297: IF g_debug
5298: THEN
5299: hr_utility.set_location (l_proc, 40);
5300: END IF;
5301:
5302: NULL;
5303: ELSE
5302: NULL;
5303: ELSE
5304: IF g_debug
5305: THEN
5306: hr_utility.set_location (l_proc, 50);
5307: END IF;
5308:
5309: l_third_cap := 999;
5310: END IF;
5310: END IF;
5311: ELSE
5312: IF g_debug
5313: THEN
5314: hr_utility.set_location (l_proc, 60);
5315: END IF;
5316:
5317: l_second_cap := 999;
5318: END IF;
5318: END IF;
5319: ELSE
5320: IF g_debug
5321: THEN
5322: hr_utility.set_location (l_proc, 70);
5323: END IF;
5324:
5325: CLOSE weekly_earn_rules_cur2;
5326:
5330: END IF;
5331:
5332: IF g_debug
5333: THEN
5334: hr_utility.set_location (l_proc, 80);
5335: END IF;
5336:
5337: CLOSE weekly_earn_rules_cur2;
5338:
5351: -- l_earning_category := hxt_util.element_cat(g_element_type_id
5352: -- ,g_date_worked);
5353: IF g_debug
5354: THEN
5355: hr_utility.set_location (l_proc, 81);
5356: hr_utility.TRACE ('l_earning_category:' || l_earning_category);
5357: END IF;
5358:
5359: /* IF l_earning_category <> 'ABS' THEN
5352: -- ,g_date_worked);
5353: IF g_debug
5354: THEN
5355: hr_utility.set_location (l_proc, 81);
5356: hr_utility.TRACE ('l_earning_category:' || l_earning_category);
5357: END IF;
5358:
5359: /* IF l_earning_category <> 'ABS' THEN
5360: hr_utility.set_location(l_proc,82);
5356: hr_utility.TRACE ('l_earning_category:' || l_earning_category);
5357: END IF;
5358:
5359: /* IF l_earning_category <> 'ABS' THEN
5360: hr_utility.set_location(l_proc,82);
5361: l_tot_hours := get_weekly_total_to_date;
5362: ELSIF l_earning_category = 'ABS' THEN
5363: hr_utility.set_location(l_proc,83);
5364: OPEN get_wkl_tot_incl_non_abs_2day;
5359: /* IF l_earning_category <> 'ABS' THEN
5360: hr_utility.set_location(l_proc,82);
5361: l_tot_hours := get_weekly_total_to_date;
5362: ELSIF l_earning_category = 'ABS' THEN
5363: hr_utility.set_location(l_proc,83);
5364: OPEN get_wkl_tot_incl_non_abs_2day;
5365: FETCH get_wkl_tot_incl_non_abs_2day into l_tot_hours;
5366: CLOSE get_wkl_tot_incl_non_abs_2day;
5367: END IF; */
5366: CLOSE get_wkl_tot_incl_non_abs_2day;
5367: END IF; */
5368: IF g_debug
5369: THEN
5370: hr_utility.TRACE ('start_day_of_week:' || start_day_of_week);
5371: hr_utility.TRACE ('g_person_id :' || g_person_id);
5372: hr_utility.TRACE ('g_ep_id :' || g_ep_id);
5373: hr_utility.TRACE ('g_id(parent_id) :' || g_id);
5374: hr_utility.TRACE ( 'g_date_worked :'
5367: END IF; */
5368: IF g_debug
5369: THEN
5370: hr_utility.TRACE ('start_day_of_week:' || start_day_of_week);
5371: hr_utility.TRACE ('g_person_id :' || g_person_id);
5372: hr_utility.TRACE ('g_ep_id :' || g_ep_id);
5373: hr_utility.TRACE ('g_id(parent_id) :' || g_id);
5374: hr_utility.TRACE ( 'g_date_worked :'
5375: || TO_CHAR (g_date_worked, 'dd/mon/yy')
5368: IF g_debug
5369: THEN
5370: hr_utility.TRACE ('start_day_of_week:' || start_day_of_week);
5371: hr_utility.TRACE ('g_person_id :' || g_person_id);
5372: hr_utility.TRACE ('g_ep_id :' || g_ep_id);
5373: hr_utility.TRACE ('g_id(parent_id) :' || g_id);
5374: hr_utility.TRACE ( 'g_date_worked :'
5375: || TO_CHAR (g_date_worked, 'dd/mon/yy')
5376: );
5369: THEN
5370: hr_utility.TRACE ('start_day_of_week:' || start_day_of_week);
5371: hr_utility.TRACE ('g_person_id :' || g_person_id);
5372: hr_utility.TRACE ('g_ep_id :' || g_ep_id);
5373: hr_utility.TRACE ('g_id(parent_id) :' || g_id);
5374: hr_utility.TRACE ( 'g_date_worked :'
5375: || TO_CHAR (g_date_worked, 'dd/mon/yy')
5376: );
5377: END IF;
5370: hr_utility.TRACE ('start_day_of_week:' || start_day_of_week);
5371: hr_utility.TRACE ('g_person_id :' || g_person_id);
5372: hr_utility.TRACE ('g_ep_id :' || g_ep_id);
5373: hr_utility.TRACE ('g_id(parent_id) :' || g_id);
5374: hr_utility.TRACE ( 'g_date_worked :'
5375: || TO_CHAR (g_date_worked, 'dd/mon/yy')
5376: );
5377: END IF;
5378:
5385: CLOSE get_wkl_tot_incl_hrs_2day;
5386:
5387: IF g_debug
5388: THEN
5389: hr_utility.TRACE ('l_tot_hours :' || l_tot_hours);
5390: END IF;
5391:
5392: -- Bug 4444969 fix
5393: -- While processing a row, the g_hours(hrs entered on the row being
5400: l_tot_hours := l_tot_hours - g_hours;
5401:
5402: IF g_debug
5403: THEN
5404: hr_utility.TRACE ('l_tot_hours :' || l_tot_hours);
5405: hr_utility.TRACE ('l_first_cap :' || l_first_cap);
5406: hr_utility.TRACE ('g_hours :' || g_hours);
5407: END IF;
5408:
5401:
5402: IF g_debug
5403: THEN
5404: hr_utility.TRACE ('l_tot_hours :' || l_tot_hours);
5405: hr_utility.TRACE ('l_first_cap :' || l_first_cap);
5406: hr_utility.TRACE ('g_hours :' || g_hours);
5407: END IF;
5408:
5409: --If total weekly hours are less than the first weekly cap:
5402: IF g_debug
5403: THEN
5404: hr_utility.TRACE ('l_tot_hours :' || l_tot_hours);
5405: hr_utility.TRACE ('l_first_cap :' || l_first_cap);
5406: hr_utility.TRACE ('g_hours :' || g_hours);
5407: END IF;
5408:
5409: --If total weekly hours are less than the first weekly cap:
5410: IF l_tot_hours <= l_first_cap
5410: IF l_tot_hours <= l_first_cap
5411: THEN
5412: IF g_debug
5413: THEN
5414: hr_utility.set_location (l_proc, 90);
5415: END IF;
5416:
5417: IF (l_tot_hours + g_hours) <= l_first_cap
5418: THEN
5417: IF (l_tot_hours + g_hours) <= l_first_cap
5418: THEN
5419: IF g_debug
5420: THEN
5421: hr_utility.set_location (l_proc, 95);
5422: END IF;
5423:
5424: -- Nothing to adjust as per the Earning Policy's Weekly caps.
5425:
5439: -- but if it is a SPECIAL Earning Policy then check if any hours
5440: -- need to be adjusted based on Earning Policy's Daily caps.
5441:
5442: IF (l_first_cap - l_tot_hours) >= g_hours THEN
5443: hr_utility.set_location(l_proc,100);
5444: hr_utility.trace('l_first_daily_cap :'||l_first_daily_cap);
5445: hr_utility.trace('l_second_daily_cap :'||l_second_daily_cap);
5446: IF g_EP_TYPE = 'SPECIAL' THEN
5447: hr_utility.set_location(l_proc,105);
5440: -- need to be adjusted based on Earning Policy's Daily caps.
5441:
5442: IF (l_first_cap - l_tot_hours) >= g_hours THEN
5443: hr_utility.set_location(l_proc,100);
5444: hr_utility.trace('l_first_daily_cap :'||l_first_daily_cap);
5445: hr_utility.trace('l_second_daily_cap :'||l_second_daily_cap);
5446: IF g_EP_TYPE = 'SPECIAL' THEN
5447: hr_utility.set_location(l_proc,105);
5448: IF g_hours <= l_first_daily_cap THEN
5441:
5442: IF (l_first_cap - l_tot_hours) >= g_hours THEN
5443: hr_utility.set_location(l_proc,100);
5444: hr_utility.trace('l_first_daily_cap :'||l_first_daily_cap);
5445: hr_utility.trace('l_second_daily_cap :'||l_second_daily_cap);
5446: IF g_EP_TYPE = 'SPECIAL' THEN
5447: hr_utility.set_location(l_proc,105);
5448: IF g_hours <= l_first_daily_cap THEN
5449: hr_utility.set_location(l_proc,110);
5443: hr_utility.set_location(l_proc,100);
5444: hr_utility.trace('l_first_daily_cap :'||l_first_daily_cap);
5445: hr_utility.trace('l_second_daily_cap :'||l_second_daily_cap);
5446: IF g_EP_TYPE = 'SPECIAL' THEN
5447: hr_utility.set_location(l_proc,105);
5448: IF g_hours <= l_first_daily_cap THEN
5449: hr_utility.set_location(l_proc,110);
5450: -- Nothing to adjust as per daily caps.
5451: l_hours_left := 0;
5445: hr_utility.trace('l_second_daily_cap :'||l_second_daily_cap);
5446: IF g_EP_TYPE = 'SPECIAL' THEN
5447: hr_utility.set_location(l_proc,105);
5448: IF g_hours <= l_first_daily_cap THEN
5449: hr_utility.set_location(l_proc,110);
5450: -- Nothing to adjust as per daily caps.
5451: l_hours_left := 0;
5452: ELSIF l_first_daily_cap < g_hours AND
5453: g_hours <= l_second_daily_cap THEN
5450: -- Nothing to adjust as per daily caps.
5451: l_hours_left := 0;
5452: ELSIF l_first_daily_cap < g_hours AND
5453: g_hours <= l_second_daily_cap THEN
5454: hr_utility.set_location(l_proc,115);
5455: l_hours_left := g_hours -l_first_daily_cap;
5456: hr_utility.trace('l_hours_left :'||l_hours_left);
5457: l_error_return := adjust_abs_hrs_on_prev_days
5458: (a_tim_id
5452: ELSIF l_first_daily_cap < g_hours AND
5453: g_hours <= l_second_daily_cap THEN
5454: hr_utility.set_location(l_proc,115);
5455: l_hours_left := g_hours -l_first_daily_cap;
5456: hr_utility.trace('l_hours_left :'||l_hours_left);
5457: l_error_return := adjust_abs_hrs_on_prev_days
5458: (a_tim_id
5459: ,a_date_worked
5460: ,l_tot_hours
5459: ,a_date_worked
5460: ,l_tot_hours
5461: ,l_hours_left
5462: ,l_second_elem);
5463: hr_utility.set_location(l_proc,120);
5464: hr_utility.trace('l_error_return :'||l_error_return);
5465: ELSIF l_second_daily_cap < g_hours THEN
5466: hr_utility.set_location(l_proc,125);
5467: l_hours_left := g_hours - l_second_daily_cap;
5460: ,l_tot_hours
5461: ,l_hours_left
5462: ,l_second_elem);
5463: hr_utility.set_location(l_proc,120);
5464: hr_utility.trace('l_error_return :'||l_error_return);
5465: ELSIF l_second_daily_cap < g_hours THEN
5466: hr_utility.set_location(l_proc,125);
5467: l_hours_left := g_hours - l_second_daily_cap;
5468: hr_utility.trace('l_hours_left :'||l_hours_left);
5462: ,l_second_elem);
5463: hr_utility.set_location(l_proc,120);
5464: hr_utility.trace('l_error_return :'||l_error_return);
5465: ELSIF l_second_daily_cap < g_hours THEN
5466: hr_utility.set_location(l_proc,125);
5467: l_hours_left := g_hours - l_second_daily_cap;
5468: hr_utility.trace('l_hours_left :'||l_hours_left);
5469: l_error_return := adjust_abs_hrs_on_prev_days
5470: (a_tim_id
5464: hr_utility.trace('l_error_return :'||l_error_return);
5465: ELSIF l_second_daily_cap < g_hours THEN
5466: hr_utility.set_location(l_proc,125);
5467: l_hours_left := g_hours - l_second_daily_cap;
5468: hr_utility.trace('l_hours_left :'||l_hours_left);
5469: l_error_return := adjust_abs_hrs_on_prev_days
5470: (a_tim_id
5471: ,a_date_worked
5472: ,l_tot_hours
5471: ,a_date_worked
5472: ,l_tot_hours
5473: ,l_hours_left
5474: ,l_third_elem);
5475: hr_utility.set_location(l_proc,130);
5476: hr_utility.trace('l_error_return :'||l_error_return);
5477: IF l_error_return <> 0 THEN
5478: hr_utility.set_location(l_proc,135);
5479: return l_error_return;
5472: ,l_tot_hours
5473: ,l_hours_left
5474: ,l_third_elem);
5475: hr_utility.set_location(l_proc,130);
5476: hr_utility.trace('l_error_return :'||l_error_return);
5477: IF l_error_return <> 0 THEN
5478: hr_utility.set_location(l_proc,135);
5479: return l_error_return;
5480: END IF;
5474: ,l_third_elem);
5475: hr_utility.set_location(l_proc,130);
5476: hr_utility.trace('l_error_return :'||l_error_return);
5477: IF l_error_return <> 0 THEN
5478: hr_utility.set_location(l_proc,135);
5479: return l_error_return;
5480: END IF;
5481: hr_utility.set_location(l_proc,140);
5482: l_hours_left := l_second_daily_cap - l_first_daily_cap;
5477: IF l_error_return <> 0 THEN
5478: hr_utility.set_location(l_proc,135);
5479: return l_error_return;
5480: END IF;
5481: hr_utility.set_location(l_proc,140);
5482: l_hours_left := l_second_daily_cap - l_first_daily_cap;
5483: hr_utility.trace('l_hours_left :'||l_hours_left);
5484: l_error_return := adjust_abs_hrs_on_prev_days
5485: (a_tim_id
5479: return l_error_return;
5480: END IF;
5481: hr_utility.set_location(l_proc,140);
5482: l_hours_left := l_second_daily_cap - l_first_daily_cap;
5483: hr_utility.trace('l_hours_left :'||l_hours_left);
5484: l_error_return := adjust_abs_hrs_on_prev_days
5485: (a_tim_id
5486: ,a_date_worked
5487: ,l_tot_hours
5486: ,a_date_worked
5487: ,l_tot_hours
5488: ,l_hours_left
5489: ,l_second_elem);
5490: hr_utility.set_location(l_proc,145);
5491: hr_utility.trace('l_error_return :'||l_error_return);
5492: END IF;
5493: hr_utility.set_location(l_proc,150);
5494: END IF; -- g_EP_TYPE = 'SPECIAL'
5487: ,l_tot_hours
5488: ,l_hours_left
5489: ,l_second_elem);
5490: hr_utility.set_location(l_proc,145);
5491: hr_utility.trace('l_error_return :'||l_error_return);
5492: END IF;
5493: hr_utility.set_location(l_proc,150);
5494: END IF; -- g_EP_TYPE = 'SPECIAL'
5495: hr_utility.set_location(l_proc,155);
5489: ,l_second_elem);
5490: hr_utility.set_location(l_proc,145);
5491: hr_utility.trace('l_error_return :'||l_error_return);
5492: END IF;
5493: hr_utility.set_location(l_proc,150);
5494: END IF; -- g_EP_TYPE = 'SPECIAL'
5495: hr_utility.set_location(l_proc,155);
5496: END IF; -- (first_cap - l_tot_hours) >= g_hours
5497: hr_utility.set_location(l_proc,160);
5491: hr_utility.trace('l_error_return :'||l_error_return);
5492: END IF;
5493: hr_utility.set_location(l_proc,150);
5494: END IF; -- g_EP_TYPE = 'SPECIAL'
5495: hr_utility.set_location(l_proc,155);
5496: END IF; -- (first_cap - l_tot_hours) >= g_hours
5497: hr_utility.set_location(l_proc,160);
5498: */
5499: -- Since nothing to adjust, implies return back
5493: hr_utility.set_location(l_proc,150);
5494: END IF; -- g_EP_TYPE = 'SPECIAL'
5495: hr_utility.set_location(l_proc,155);
5496: END IF; -- (first_cap - l_tot_hours) >= g_hours
5497: hr_utility.set_location(l_proc,160);
5498: */
5499: -- Since nothing to adjust, implies return back
5500: l_error_return := 0;
5501:
5500: l_error_return := 0;
5501:
5502: IF g_debug
5503: THEN
5504: hr_utility.set_location (l_proc, 165);
5505: hr_utility.TRACE ('l_first_cap:' || l_first_cap);
5506: hr_utility.TRACE ('l_second_cap:' || l_second_cap);
5507: hr_utility.TRACE ('l_tot_hours:' || l_tot_hours);
5508: END IF;
5501:
5502: IF g_debug
5503: THEN
5504: hr_utility.set_location (l_proc, 165);
5505: hr_utility.TRACE ('l_first_cap:' || l_first_cap);
5506: hr_utility.TRACE ('l_second_cap:' || l_second_cap);
5507: hr_utility.TRACE ('l_tot_hours:' || l_tot_hours);
5508: END IF;
5509: ELSIF l_first_cap < (l_tot_hours + g_hours)
5502: IF g_debug
5503: THEN
5504: hr_utility.set_location (l_proc, 165);
5505: hr_utility.TRACE ('l_first_cap:' || l_first_cap);
5506: hr_utility.TRACE ('l_second_cap:' || l_second_cap);
5507: hr_utility.TRACE ('l_tot_hours:' || l_tot_hours);
5508: END IF;
5509: ELSIF l_first_cap < (l_tot_hours + g_hours)
5510: AND (l_tot_hours + g_hours) <= l_second_cap
5503: THEN
5504: hr_utility.set_location (l_proc, 165);
5505: hr_utility.TRACE ('l_first_cap:' || l_first_cap);
5506: hr_utility.TRACE ('l_second_cap:' || l_second_cap);
5507: hr_utility.TRACE ('l_tot_hours:' || l_tot_hours);
5508: END IF;
5509: ELSIF l_first_cap < (l_tot_hours + g_hours)
5510: AND (l_tot_hours + g_hours) <= l_second_cap
5511: THEN
5510: AND (l_tot_hours + g_hours) <= l_second_cap
5511: THEN
5512: IF g_debug
5513: THEN
5514: hr_utility.set_location (l_proc, 170);
5515: END IF;
5516:
5517: l_hours_left := (l_tot_hours + g_hours) - l_first_cap;
5518:
5517: l_hours_left := (l_tot_hours + g_hours) - l_first_cap;
5518:
5519: IF g_debug
5520: THEN
5521: hr_utility.TRACE ('l_hours_left:' || l_hours_left);
5522: END IF;
5523:
5524: l_error_return :=
5525: adjust_abs_hrs_on_prev_days (a_tim_id,
5530: );
5531:
5532: IF g_debug
5533: THEN
5534: hr_utility.set_location (l_proc, 175);
5535: hr_utility.TRACE ('l_error_return:' || l_error_return);
5536: END IF;
5537: ELSIF l_second_cap < (l_tot_hours + g_hours)
5538: THEN
5531:
5532: IF g_debug
5533: THEN
5534: hr_utility.set_location (l_proc, 175);
5535: hr_utility.TRACE ('l_error_return:' || l_error_return);
5536: END IF;
5537: ELSIF l_second_cap < (l_tot_hours + g_hours)
5538: THEN
5539: IF g_debug
5537: ELSIF l_second_cap < (l_tot_hours + g_hours)
5538: THEN
5539: IF g_debug
5540: THEN
5541: hr_utility.set_location (l_proc, 180);
5542: END IF;
5543:
5544: l_hours_left := (l_tot_hours + g_hours) - l_second_cap;
5545:
5544: l_hours_left := (l_tot_hours + g_hours) - l_second_cap;
5545:
5546: IF g_debug
5547: THEN
5548: hr_utility.TRACE ('l_hours_left:' || l_hours_left);
5549: END IF;
5550:
5551: l_error_return :=
5552: adjust_abs_hrs_on_prev_days (a_tim_id,
5557: );
5558:
5559: IF g_debug
5560: THEN
5561: hr_utility.set_location (l_proc, 185);
5562: hr_utility.TRACE ('l_error_return:' || l_error_return);
5563: END IF;
5564:
5565: IF l_error_return <> 0
5558:
5559: IF g_debug
5560: THEN
5561: hr_utility.set_location (l_proc, 185);
5562: hr_utility.TRACE ('l_error_return:' || l_error_return);
5563: END IF;
5564:
5565: IF l_error_return <> 0
5566: THEN
5565: IF l_error_return <> 0
5566: THEN
5567: IF g_debug
5568: THEN
5569: hr_utility.set_location (l_proc, 190);
5570: END IF;
5571:
5572: RETURN l_error_return;
5573: END IF;
5575: l_hours_left := l_second_cap - l_first_cap;
5576:
5577: IF g_debug
5578: THEN
5579: hr_utility.set_location (l_proc, 195);
5580: END IF;
5581:
5582: l_error_return :=
5583: adjust_abs_hrs_on_prev_days (a_tim_id,
5588: );
5589:
5590: IF g_debug
5591: THEN
5592: hr_utility.set_location (l_proc, 200);
5593: END IF;
5594: END IF;
5595:
5596: IF g_debug
5594: END IF;
5595:
5596: IF g_debug
5597: THEN
5598: hr_utility.set_location (l_proc, 205);
5599: END IF;
5600: --IF total weekly hours are between first weekly cap and second weekly cap:
5601: ELSIF l_first_cap < l_tot_hours AND l_tot_hours <= l_second_cap
5602: THEN
5601: ELSIF l_first_cap < l_tot_hours AND l_tot_hours <= l_second_cap
5602: THEN
5603: IF g_debug
5604: THEN
5605: hr_utility.set_location (l_proc, 210);
5606: END IF;
5607:
5608: IF (l_tot_hours + g_hours) <= l_second_cap
5609: THEN
5608: IF (l_tot_hours + g_hours) <= l_second_cap
5609: THEN
5610: IF g_debug
5611: THEN
5612: hr_utility.set_location (l_proc, 215);
5613: END IF;
5614:
5615: l_hours_left := g_hours;
5616:
5615: l_hours_left := g_hours;
5616:
5617: IF g_debug
5618: THEN
5619: hr_utility.TRACE ('l_hours_left:' || l_hours_left);
5620: END IF;
5621:
5622: l_error_return :=
5623: adjust_abs_hrs_on_prev_days (a_tim_id,
5628: );
5629:
5630: IF g_debug
5631: THEN
5632: hr_utility.set_location (l_proc, 220);
5633: hr_utility.TRACE ('l_error_return:' || l_error_return);
5634: END IF;
5635: ELSIF l_second_cap < (l_tot_hours + g_hours)
5636: THEN
5629:
5630: IF g_debug
5631: THEN
5632: hr_utility.set_location (l_proc, 220);
5633: hr_utility.TRACE ('l_error_return:' || l_error_return);
5634: END IF;
5635: ELSIF l_second_cap < (l_tot_hours + g_hours)
5636: THEN
5637: IF g_debug
5635: ELSIF l_second_cap < (l_tot_hours + g_hours)
5636: THEN
5637: IF g_debug
5638: THEN
5639: hr_utility.set_location (l_proc, 225);
5640: END IF;
5641:
5642: l_hours_left := (l_tot_hours + g_hours) - l_second_cap;
5643:
5642: l_hours_left := (l_tot_hours + g_hours) - l_second_cap;
5643:
5644: IF g_debug
5645: THEN
5646: hr_utility.TRACE ('l_hours_left:' || l_hours_left);
5647: END IF;
5648:
5649: l_error_return :=
5650: adjust_abs_hrs_on_prev_days (a_tim_id,
5655: );
5656:
5657: IF g_debug
5658: THEN
5659: hr_utility.set_location (l_proc, 230);
5660: hr_utility.TRACE ('l_error_return:' || l_error_return);
5661: END IF;
5662:
5663: IF l_error_return <> 0
5656:
5657: IF g_debug
5658: THEN
5659: hr_utility.set_location (l_proc, 230);
5660: hr_utility.TRACE ('l_error_return:' || l_error_return);
5661: END IF;
5662:
5663: IF l_error_return <> 0
5664: THEN
5663: IF l_error_return <> 0
5664: THEN
5665: IF g_debug
5666: THEN
5667: hr_utility.set_location (l_proc, 235);
5668: END IF;
5669:
5670: RETURN l_error_return;
5671: END IF;
5671: END IF;
5672:
5673: IF g_debug
5674: THEN
5675: hr_utility.set_location (l_proc, 240);
5676: END IF;
5677:
5678: l_hours_left := l_second_cap - l_tot_hours;
5679:
5678: l_hours_left := l_second_cap - l_tot_hours;
5679:
5680: IF g_debug
5681: THEN
5682: hr_utility.TRACE ('l_hours_left:' || l_hours_left);
5683: END IF;
5684:
5685: l_error_return :=
5686: adjust_abs_hrs_on_prev_days (a_tim_id,
5691: );
5692:
5693: IF g_debug
5694: THEN
5695: hr_utility.set_location (l_proc, 245);
5696: hr_utility.TRACE ('l_error_return:' || l_error_return);
5697: END IF;
5698: END IF;
5699:
5692:
5693: IF g_debug
5694: THEN
5695: hr_utility.set_location (l_proc, 245);
5696: hr_utility.TRACE ('l_error_return:' || l_error_return);
5697: END IF;
5698: END IF;
5699:
5700: IF g_debug
5698: END IF;
5699:
5700: IF g_debug
5701: THEN
5702: hr_utility.set_location (l_proc, 250);
5703: END IF;
5704: --IF total weekly hours are greater than second weekly cap:
5705: ELSIF l_tot_hours > l_second_cap
5706: THEN
5705: ELSIF l_tot_hours > l_second_cap
5706: THEN
5707: IF g_debug
5708: THEN
5709: hr_utility.set_location (l_proc, 255);
5710: END IF;
5711:
5712: l_hours_left := g_hours;
5713:
5712: l_hours_left := g_hours;
5713:
5714: IF g_debug
5715: THEN
5716: hr_utility.TRACE ('l_hours_left:' || l_hours_left);
5717: END IF;
5718:
5719: l_error_return :=
5720: adjust_abs_hrs_on_prev_days (a_tim_id,
5725: );
5726:
5727: IF g_debug
5728: THEN
5729: hr_utility.set_location (l_proc, 260);
5730: hr_utility.TRACE ('l_error_return:' || l_error_return);
5731: END IF;
5732: END IF;
5733:
5726:
5727: IF g_debug
5728: THEN
5729: hr_utility.set_location (l_proc, 260);
5730: hr_utility.TRACE ('l_error_return:' || l_error_return);
5731: END IF;
5732: END IF;
5733:
5734: IF g_debug
5732: END IF;
5733:
5734: IF g_debug
5735: THEN
5736: hr_utility.set_location (l_proc, 270);
5737: END IF;
5738:
5739: RETURN l_error_return;
5740: END adjust_for_absence;
5747: IS
5748: BEGIN
5749: IF g_debug
5750: THEN
5751: hr_utility.set_location ('select_weekly_hours', 1);
5752: hr_utility.TRACE
5753: ( 'p_element_type_id_to_pay i.e weekly_earning_type:'
5754: || weekly_earning_type
5755: );
5748: BEGIN
5749: IF g_debug
5750: THEN
5751: hr_utility.set_location ('select_weekly_hours', 1);
5752: hr_utility.TRACE
5753: ( 'p_element_type_id_to_pay i.e weekly_earning_type:'
5754: || weekly_earning_type
5755: );
5756: hr_utility.TRACE ('hours_left_to_pay :' || hours_left_to_pay);
5752: hr_utility.TRACE
5753: ( 'p_element_type_id_to_pay i.e weekly_earning_type:'
5754: || weekly_earning_type
5755: );
5756: hr_utility.TRACE ('hours_left_to_pay :' || hours_left_to_pay);
5757: hr_utility.TRACE ('weekly_rule_cap:' || weekly_rule_cap);
5758: hr_utility.TRACE ( 'hours_paid_weekly_rule :'
5759: || hours_paid_weekly_rule
5760: );
5753: ( 'p_element_type_id_to_pay i.e weekly_earning_type:'
5754: || weekly_earning_type
5755: );
5756: hr_utility.TRACE ('hours_left_to_pay :' || hours_left_to_pay);
5757: hr_utility.TRACE ('weekly_rule_cap:' || weekly_rule_cap);
5758: hr_utility.TRACE ( 'hours_paid_weekly_rule :'
5759: || hours_paid_weekly_rule
5760: );
5761: END IF;
5754: || weekly_earning_type
5755: );
5756: hr_utility.TRACE ('hours_left_to_pay :' || hours_left_to_pay);
5757: hr_utility.TRACE ('weekly_rule_cap:' || weekly_rule_cap);
5758: hr_utility.TRACE ( 'hours_paid_weekly_rule :'
5759: || hours_paid_weekly_rule
5760: );
5761: END IF;
5762:
5770: );
5771:
5772: IF g_debug
5773: THEN
5774: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
5775: || p_hours_to_pay_this_rule
5776: );
5777: hr_utility.set_location ('select_weekly_hours', 2);
5778: END IF;
5773: THEN
5774: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
5775: || p_hours_to_pay_this_rule
5776: );
5777: hr_utility.set_location ('select_weekly_hours', 2);
5778: END IF;
5779: END select_weekly_hours;
5780:
5781: --------------------------------------------------------------------------------
5787: IS
5788: BEGIN
5789: IF g_debug
5790: THEN
5791: hr_utility.set_location ('select_hol_weekly_hours', 10);
5792: END IF;
5793:
5794: p_rule_to_pay := 'DAY';
5795: p_hours_to_pay_this_rule :=
5800: p_element_type_id_to_pay := daily_earning_type;
5801:
5802: IF g_debug
5803: THEN
5804: hr_utility.set_location ('select_hol_weekly_hours', 20);
5805: END IF;
5806: END select_hol_weekly_hours;
5807:
5808: --------------------------------------------------------------------------------
5839: lv_override_element NUMBER;
5840: BEGIN
5841: IF g_debug
5842: THEN
5843: hr_utility.set_location ('select_rule_and_hours', 10);
5844: END IF;
5845:
5846: OPEN get_weekly_cap (g_ep_id);
5847:
5849: INTO l_first_weekly_rule;
5850:
5851: IF g_debug
5852: THEN
5853: hr_utility.TRACE ( 'first_weekly_rule :'
5854: || l_first_weekly_rule
5855: );
5856: END IF;
5857:
5862: IF consecutive_days_reached = FALSE
5863: THEN
5864: IF g_debug
5865: THEN
5866: hr_utility.set_location ('select_rule_and_hours', 20);
5867: hr_utility.TRACE ( 'hours_paid_weekly_rule :'
5868: || hours_paid_weekly_rule
5869: );
5870: hr_utility.TRACE ( 'weekly_rule_cap :'
5863: THEN
5864: IF g_debug
5865: THEN
5866: hr_utility.set_location ('select_rule_and_hours', 20);
5867: hr_utility.TRACE ( 'hours_paid_weekly_rule :'
5868: || hours_paid_weekly_rule
5869: );
5870: hr_utility.TRACE ( 'weekly_rule_cap :'
5871: || weekly_rule_cap
5866: hr_utility.set_location ('select_rule_and_hours', 20);
5867: hr_utility.TRACE ( 'hours_paid_weekly_rule :'
5868: || hours_paid_weekly_rule
5869: );
5870: hr_utility.TRACE ( 'weekly_rule_cap :'
5871: || weekly_rule_cap
5872: );
5873: hr_utility.TRACE ( 'first_daily_rule_cap :'
5874: || first_daily_rule_cap
5869: );
5870: hr_utility.TRACE ( 'weekly_rule_cap :'
5871: || weekly_rule_cap
5872: );
5873: hr_utility.TRACE ( 'first_daily_rule_cap :'
5874: || first_daily_rule_cap
5875: );
5876: hr_utility.TRACE ( 'get_weekly_total_to_date :'
5877: || get_weekly_total_to_date
5872: );
5873: hr_utility.TRACE ( 'first_daily_rule_cap :'
5874: || first_daily_rule_cap
5875: );
5876: hr_utility.TRACE ( 'get_weekly_total_to_date :'
5877: || get_weekly_total_to_date
5878: );
5879: hr_utility.TRACE ( 'l_first_weekly_rule :'
5880: || l_first_weekly_rule
5875: );
5876: hr_utility.TRACE ( 'get_weekly_total_to_date :'
5877: || get_weekly_total_to_date
5878: );
5879: hr_utility.TRACE ( 'l_first_weekly_rule :'
5880: || l_first_weekly_rule
5881: );
5882: END IF;
5883:
5884: IF (first_weekly_cap_reached = TRUE)
5885: THEN -- hours paid over weekly cap
5886: IF g_debug
5887: THEN
5888: hr_utility.set_location ('Select_rule_and_hours', 30);
5889: hr_utility.TRACE ( 'hours_left_to_pay :'
5890: || hours_left_to_pay
5891: );
5892: hr_utility.TRACE ( 'weekly_rule_cap :'
5885: THEN -- hours paid over weekly cap
5886: IF g_debug
5887: THEN
5888: hr_utility.set_location ('Select_rule_and_hours', 30);
5889: hr_utility.TRACE ( 'hours_left_to_pay :'
5890: || hours_left_to_pay
5891: );
5892: hr_utility.TRACE ( 'weekly_rule_cap :'
5893: || weekly_rule_cap
5888: hr_utility.set_location ('Select_rule_and_hours', 30);
5889: hr_utility.TRACE ( 'hours_left_to_pay :'
5890: || hours_left_to_pay
5891: );
5892: hr_utility.TRACE ( 'weekly_rule_cap :'
5893: || weekly_rule_cap
5894: );
5895: hr_utility.TRACE ( 'hours_paid_weekly_rule :'
5896: || hours_paid_weekly_rule
5891: );
5892: hr_utility.TRACE ( 'weekly_rule_cap :'
5893: || weekly_rule_cap
5894: );
5895: hr_utility.TRACE ( 'hours_paid_weekly_rule :'
5896: || hours_paid_weekly_rule
5897: );
5898: END IF;
5899:
5906: srh_rule := 'WKL';
5907:
5908: IF g_debug
5909: THEN
5910: hr_utility.set_location ('select_rule_and_hours', 40);
5911: END IF;
5912:
5913: p_hours_to_pay_this_rule :=
5914: LEAST (hours_left_to_pay,
5918: p_element_type_id := weekly_earning_type;
5919:
5920: IF g_debug
5921: THEN
5922: hr_utility.TRACE ( 'p_hours_to_pay_this_rule :'
5923: || p_hours_to_pay_this_rule
5924: );
5925: hr_utility.TRACE ('p_element_type_id :' || p_element_type_id);
5926: END IF;
5921: THEN
5922: hr_utility.TRACE ( 'p_hours_to_pay_this_rule :'
5923: || p_hours_to_pay_this_rule
5924: );
5925: hr_utility.TRACE ('p_element_type_id :' || p_element_type_id);
5926: END IF;
5927: /*IF weekly_rule_cap > l_first_weekly_rule THEN
5928: IF second_weekly_cap_reached = TRUE THEN
5929: srh_rule := 'WKL';
5926: END IF;
5927: /*IF weekly_rule_cap > l_first_weekly_rule THEN
5928: IF second_weekly_cap_reached = TRUE THEN
5929: srh_rule := 'WKL';
5930: hr_utility.set_location('select_rule_and_hours',40);
5931: p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,
5932: (weekly_rule_cap - hours_paid_for_dtime_elig));
5933: p_element_type_id := weekly_earning_type;
5934: hr_utility.trace('p_hours_to_pay_this_rule :'
5930: hr_utility.set_location('select_rule_and_hours',40);
5931: p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,
5932: (weekly_rule_cap - hours_paid_for_dtime_elig));
5933: p_element_type_id := weekly_earning_type;
5934: hr_utility.trace('p_hours_to_pay_this_rule :'
5935: ||p_hours_to_pay_this_rule);
5936: hr_utility.trace('p_element_type_id :'||p_element_type_id);
5937: ELSE
5938: srh_rule := 'WKL';
5932: (weekly_rule_cap - hours_paid_for_dtime_elig));
5933: p_element_type_id := weekly_earning_type;
5934: hr_utility.trace('p_hours_to_pay_this_rule :'
5935: ||p_hours_to_pay_this_rule);
5936: hr_utility.trace('p_element_type_id :'||p_element_type_id);
5937: ELSE
5938: srh_rule := 'WKL';
5939: hr_utility.set_location('select_rule_and_hours',50);
5940: p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,
5935: ||p_hours_to_pay_this_rule);
5936: hr_utility.trace('p_element_type_id :'||p_element_type_id);
5937: ELSE
5938: srh_rule := 'WKL';
5939: hr_utility.set_location('select_rule_and_hours',50);
5940: p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,
5941: (weekly_rule_cap - hours_paid_weekly_rule));
5942: p_element_type_id := weekly_earning_type;
5943: hr_utility.trace('p_hours_to_pay_this_rule :'
5939: hr_utility.set_location('select_rule_and_hours',50);
5940: p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,
5941: (weekly_rule_cap - hours_paid_weekly_rule));
5942: p_element_type_id := weekly_earning_type;
5943: hr_utility.trace('p_hours_to_pay_this_rule :'
5944: ||p_hours_to_pay_this_rule);
5945: hr_utility.trace('p_element_type_id :'||p_element_type_id);
5946: END IF;
5947: ELSE
5941: (weekly_rule_cap - hours_paid_weekly_rule));
5942: p_element_type_id := weekly_earning_type;
5943: hr_utility.trace('p_hours_to_pay_this_rule :'
5944: ||p_hours_to_pay_this_rule);
5945: hr_utility.trace('p_element_type_id :'||p_element_type_id);
5946: END IF;
5947: ELSE
5948: srh_rule := 'WKL';
5949: hr_utility.set_location('select_rule_and_hours',60);
5945: hr_utility.trace('p_element_type_id :'||p_element_type_id);
5946: END IF;
5947: ELSE
5948: srh_rule := 'WKL';
5949: hr_utility.set_location('select_rule_and_hours',60);
5950: p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,
5951: (weekly_rule_cap - hours_paid_weekly_rule)) ;
5952: p_element_type_id := weekly_earning_type;
5953: hr_utility.trace('p_hours_to_pay_this_rule :'
5949: hr_utility.set_location('select_rule_and_hours',60);
5950: p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,
5951: (weekly_rule_cap - hours_paid_weekly_rule)) ;
5952: p_element_type_id := weekly_earning_type;
5953: hr_utility.trace('p_hours_to_pay_this_rule :'
5954: ||p_hours_to_pay_this_rule);
5955: hr_utility.trace('p_element_type_id :'||p_element_type_id);
5956: END IF;*/
5957: ELSIF (first_weekly_cap_reached = FALSE)
5951: (weekly_rule_cap - hours_paid_weekly_rule)) ;
5952: p_element_type_id := weekly_earning_type;
5953: hr_utility.trace('p_hours_to_pay_this_rule :'
5954: ||p_hours_to_pay_this_rule);
5955: hr_utility.trace('p_element_type_id :'||p_element_type_id);
5956: END IF;*/
5957: ELSIF (first_weekly_cap_reached = FALSE)
5958: OR ( seven_day_cal_rule = TRUE
5959: AND g_cons_days_worked = 5
5973: )
5974: THEN
5975: IF g_debug
5976: THEN
5977: hr_utility.set_location ('select_rule_and_hours', 70);
5978: END IF;
5979:
5980: srh_rule := 'DAY';
5981:
5985: -- it is not an error at that time as it allowed as long as another
5986: -- sub-segment does not need daily rules to pay
5987: IF g_debug
5988: THEN
5989: hr_utility.set_location ('select_rule_and_hours', 80);
5990: END IF;
5991:
5992: fnd_message.set_name ('HXT', 'HXT_39294_ERN_RUL_NF');
5993: p_error_code :=
6001: p_hours_to_pay_this_rule := 0;
6002: ELSE
6003: IF g_debug
6004: THEN
6005: hr_utility.set_location ('select_rule_and_hours', 90);
6006: END IF;
6007:
6008: overtime_hoursoverride (g_date_worked,
6009: g_egt_id,
6013: );
6014:
6015: IF g_debug
6016: THEN
6017: hr_utility.TRACE ('lv_override_hrs :'
6018: || lv_override_hrs
6019: );
6020: hr_utility.TRACE ( 'lv_override_element :'
6021: || lv_override_element
6016: THEN
6017: hr_utility.TRACE ('lv_override_hrs :'
6018: || lv_override_hrs
6019: );
6020: hr_utility.TRACE ( 'lv_override_element :'
6021: || lv_override_element
6022: );
6023: hr_utility.set_location ('select_rule_and_hours', 91);
6024: hr_utility.TRACE ( 'hours_left_to_pay :'
6019: );
6020: hr_utility.TRACE ( 'lv_override_element :'
6021: || lv_override_element
6022: );
6023: hr_utility.set_location ('select_rule_and_hours', 91);
6024: hr_utility.TRACE ( 'hours_left_to_pay :'
6025: || hours_left_to_pay
6026: );
6027: hr_utility.TRACE ('daily_rule_cap :' || daily_rule_cap);
6020: hr_utility.TRACE ( 'lv_override_element :'
6021: || lv_override_element
6022: );
6023: hr_utility.set_location ('select_rule_and_hours', 91);
6024: hr_utility.TRACE ( 'hours_left_to_pay :'
6025: || hours_left_to_pay
6026: );
6027: hr_utility.TRACE ('daily_rule_cap :' || daily_rule_cap);
6028: hr_utility.TRACE ( 'hours_paid_daily_rule:'
6023: hr_utility.set_location ('select_rule_and_hours', 91);
6024: hr_utility.TRACE ( 'hours_left_to_pay :'
6025: || hours_left_to_pay
6026: );
6027: hr_utility.TRACE ('daily_rule_cap :' || daily_rule_cap);
6028: hr_utility.TRACE ( 'hours_paid_daily_rule:'
6029: || hours_paid_daily_rule
6030: );
6031: hr_utility.TRACE ( 'first_daily_rule_cap :'
6024: hr_utility.TRACE ( 'hours_left_to_pay :'
6025: || hours_left_to_pay
6026: );
6027: hr_utility.TRACE ('daily_rule_cap :' || daily_rule_cap);
6028: hr_utility.TRACE ( 'hours_paid_daily_rule:'
6029: || hours_paid_daily_rule
6030: );
6031: hr_utility.TRACE ( 'first_daily_rule_cap :'
6032: || first_daily_rule_cap
6027: hr_utility.TRACE ('daily_rule_cap :' || daily_rule_cap);
6028: hr_utility.TRACE ( 'hours_paid_daily_rule:'
6029: || hours_paid_daily_rule
6030: );
6031: hr_utility.TRACE ( 'first_daily_rule_cap :'
6032: || first_daily_rule_cap
6033: );
6034: END IF;
6035:
6037: first_daily_rule_cap
6038: THEN
6039: IF g_debug
6040: THEN
6041: hr_utility.set_location ('select_rule_and_hours',
6042: 100);
6043: END IF;
6044:
6045: p_hours_to_pay_this_rule :=
6057: -- p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,
6058: -- daily_rule_cap - hours_paid_daily_rule);
6059: IF g_debug
6060: THEN
6061: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
6062: || p_hours_to_pay_this_rule
6063: );
6064: END IF;
6065:
6067: AND p_hours_to_pay_this_rule > lv_override_hrs
6068: THEN
6069: IF g_debug
6070: THEN
6071: hr_utility.set_location ('select_rule_and_hours',
6072: 101
6073: );
6074: END IF;
6075:
6079: AND p_hours_to_pay_this_rule <= lv_override_hrs
6080: THEN
6081: IF g_debug
6082: THEN
6083: hr_utility.TRACE ( 'lv_override_hrs:'
6084: || lv_override_hrs
6085: );
6086: hr_utility.TRACE ( 'daily_earning_type:'
6087: || daily_earning_type
6082: THEN
6083: hr_utility.TRACE ( 'lv_override_hrs:'
6084: || lv_override_hrs
6085: );
6086: hr_utility.TRACE ( 'daily_earning_type:'
6087: || daily_earning_type
6088: );
6089: hr_utility.TRACE ( 'first_daily_rule_cap:'
6090: || first_daily_rule_cap
6085: );
6086: hr_utility.TRACE ( 'daily_earning_type:'
6087: || daily_earning_type
6088: );
6089: hr_utility.TRACE ( 'first_daily_rule_cap:'
6090: || first_daily_rule_cap
6091: );
6092: END IF;
6093:
6095: daily_rule_cap - first_daily_rule_cap
6096: THEN
6097: IF g_debug
6098: THEN
6099: hr_utility.set_location
6100: ('select_rule_and_hours',
6101: 102
6102: );
6103: END IF;
6107: END IF;
6108: ELSE
6109: IF g_debug
6110: THEN
6111: hr_utility.set_location ('select_rule_and_hours',
6112: 105);
6113: hr_utility.TRACE ( 'hours_left_to_pay :'
6114: || hours_left_to_pay
6115: );
6109: IF g_debug
6110: THEN
6111: hr_utility.set_location ('select_rule_and_hours',
6112: 105);
6113: hr_utility.TRACE ( 'hours_left_to_pay :'
6114: || hours_left_to_pay
6115: );
6116: hr_utility.TRACE ( 'daily_rule_cap :'
6117: || daily_rule_cap
6112: 105);
6113: hr_utility.TRACE ( 'hours_left_to_pay :'
6114: || hours_left_to_pay
6115: );
6116: hr_utility.TRACE ( 'daily_rule_cap :'
6117: || daily_rule_cap
6118: );
6119: hr_utility.TRACE ( 'hours_paid_daily_rule:'
6120: || hours_paid_daily_rule
6115: );
6116: hr_utility.TRACE ( 'daily_rule_cap :'
6117: || daily_rule_cap
6118: );
6119: hr_utility.TRACE ( 'hours_paid_daily_rule:'
6120: || hours_paid_daily_rule
6121: );
6122: END IF;
6123:
6129: )
6130: THEN
6131: IF g_debug
6132: THEN
6133: hr_utility.set_location
6134: ('select_rule_and_hours',
6135: 110
6136: );
6137: END IF;
6144: );
6145: ELSE
6146: IF g_debug
6147: THEN
6148: hr_utility.set_location
6149: ('select_rule_and_hours',
6150: 115
6151: );
6152: END IF;
6161: END IF;
6162: ELSE
6163: IF g_debug
6164: THEN
6165: hr_utility.set_location ('select_rule_and_hours',
6166: 116
6167: );
6168: END IF;
6169:
6176: END IF;
6177:
6178: IF g_debug
6179: THEN
6180: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
6181: || p_hours_to_pay_this_rule
6182: );
6183: END IF;
6184:
6186: AND p_hours_to_pay_this_rule > lv_override_hrs
6187: THEN
6188: IF g_debug
6189: THEN
6190: hr_utility.set_location ('select_rule_and_hours',
6191: 120
6192: );
6193: END IF;
6194:
6198: AND p_hours_to_pay_this_rule <= lv_override_hrs
6199: THEN
6200: IF g_debug
6201: THEN
6202: hr_utility.set_location ('select_rule_and_hours',
6203: 125
6204: );
6205: hr_utility.TRACE ( 'lv_override_hrs:'
6206: || lv_override_hrs
6201: THEN
6202: hr_utility.set_location ('select_rule_and_hours',
6203: 125
6204: );
6205: hr_utility.TRACE ( 'lv_override_hrs:'
6206: || lv_override_hrs
6207: );
6208: hr_utility.TRACE ( 'daily_earning_type:'
6209: || daily_earning_type
6204: );
6205: hr_utility.TRACE ( 'lv_override_hrs:'
6206: || lv_override_hrs
6207: );
6208: hr_utility.TRACE ( 'daily_earning_type:'
6209: || daily_earning_type
6210: );
6211: hr_utility.TRACE ( 'first_daily_rule_cap:'
6212: || first_daily_rule_cap
6207: );
6208: hr_utility.TRACE ( 'daily_earning_type:'
6209: || daily_earning_type
6210: );
6211: hr_utility.TRACE ( 'first_daily_rule_cap:'
6212: || first_daily_rule_cap
6213: );
6214: END IF;
6215:
6217: daily_rule_cap - first_daily_rule_cap
6218: THEN
6219: IF g_debug
6220: THEN
6221: hr_utility.set_location
6222: ('select_rule_and_hours',
6223: 130
6224: );
6225: END IF;
6231: END IF;
6232:
6233: IF g_debug
6234: THEN
6235: hr_utility.set_location ('select_rule_and_hours', 135);
6236: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
6237: || p_hours_to_pay_this_rule
6238: );
6239: END IF;
6232:
6233: IF g_debug
6234: THEN
6235: hr_utility.set_location ('select_rule_and_hours', 135);
6236: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
6237: || p_hours_to_pay_this_rule
6238: );
6239: END IF;
6240:
6241: p_element_type_id := daily_earning_type;
6242:
6243: IF g_debug
6244: THEN
6245: hr_utility.TRACE ('p_element_type_id :' || p_element_type_id
6246: );
6247: END IF;
6248: /*ELSE -- hours paid over weekly cap
6249: hr_utility.set_location('select_rule_and_hours',120);
6245: hr_utility.TRACE ('p_element_type_id :' || p_element_type_id
6246: );
6247: END IF;
6248: /*ELSE -- hours paid over weekly cap
6249: hr_utility.set_location('select_rule_and_hours',120);
6250: hr_utility.trace('hours_left_to_pay :'||hours_left_to_pay);
6251: hr_utility.trace('weekly_rule_cap :'||weekly_rule_cap);
6252: hr_utility.trace('hours_paid_weekly_rule :'||hours_paid_weekly_rule);
6253: srh_rule := 'WKL';
6246: );
6247: END IF;
6248: /*ELSE -- hours paid over weekly cap
6249: hr_utility.set_location('select_rule_and_hours',120);
6250: hr_utility.trace('hours_left_to_pay :'||hours_left_to_pay);
6251: hr_utility.trace('weekly_rule_cap :'||weekly_rule_cap);
6252: hr_utility.trace('hours_paid_weekly_rule :'||hours_paid_weekly_rule);
6253: srh_rule := 'WKL';
6254: hr_utility.set_location('select_rule_and_hours',130);
6247: END IF;
6248: /*ELSE -- hours paid over weekly cap
6249: hr_utility.set_location('select_rule_and_hours',120);
6250: hr_utility.trace('hours_left_to_pay :'||hours_left_to_pay);
6251: hr_utility.trace('weekly_rule_cap :'||weekly_rule_cap);
6252: hr_utility.trace('hours_paid_weekly_rule :'||hours_paid_weekly_rule);
6253: srh_rule := 'WKL';
6254: hr_utility.set_location('select_rule_and_hours',130);
6255: p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,(weekly_rule_cap -
6248: /*ELSE -- hours paid over weekly cap
6249: hr_utility.set_location('select_rule_and_hours',120);
6250: hr_utility.trace('hours_left_to_pay :'||hours_left_to_pay);
6251: hr_utility.trace('weekly_rule_cap :'||weekly_rule_cap);
6252: hr_utility.trace('hours_paid_weekly_rule :'||hours_paid_weekly_rule);
6253: srh_rule := 'WKL';
6254: hr_utility.set_location('select_rule_and_hours',130);
6255: p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,(weekly_rule_cap -
6256: hours_paid_weekly_rule)) ;
6250: hr_utility.trace('hours_left_to_pay :'||hours_left_to_pay);
6251: hr_utility.trace('weekly_rule_cap :'||weekly_rule_cap);
6252: hr_utility.trace('hours_paid_weekly_rule :'||hours_paid_weekly_rule);
6253: srh_rule := 'WKL';
6254: hr_utility.set_location('select_rule_and_hours',130);
6255: p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,(weekly_rule_cap -
6256: hours_paid_weekly_rule)) ;
6257: p_element_type_id := weekly_earning_type;
6258: hr_utility.trace('p_hours_to_pay_this_rule :'||p_hours_to_pay_this_rule);
6254: hr_utility.set_location('select_rule_and_hours',130);
6255: p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,(weekly_rule_cap -
6256: hours_paid_weekly_rule)) ;
6257: p_element_type_id := weekly_earning_type;
6258: hr_utility.trace('p_hours_to_pay_this_rule :'||p_hours_to_pay_this_rule);
6259: hr_utility.trace('p_element_type_id :'||p_element_type_id);
6260: */
6261: END IF;
6262: ELSE -- special days limit reached
6255: p_hours_to_pay_this_rule := LEAST(hours_left_to_pay,(weekly_rule_cap -
6256: hours_paid_weekly_rule)) ;
6257: p_element_type_id := weekly_earning_type;
6258: hr_utility.trace('p_hours_to_pay_this_rule :'||p_hours_to_pay_this_rule);
6259: hr_utility.trace('p_element_type_id :'||p_element_type_id);
6260: */
6261: END IF;
6262: ELSE -- special days limit reached
6263: IF g_debug
6261: END IF;
6262: ELSE -- special days limit reached
6263: IF g_debug
6264: THEN
6265: hr_utility.set_location ('select_rule_and_hours', 140);
6266: END IF;
6267:
6268: IF hours_paid_daily_rule < special_daily_cap
6269: THEN
6268: IF hours_paid_daily_rule < special_daily_cap
6269: THEN
6270: IF g_debug
6271: THEN
6272: hr_utility.set_location ('select_rule_and_hours', 150);
6273: END IF;
6274:
6275: srh_rule := 'SPC';
6276: p_hours_to_pay_this_rule :=
6281: p_element_type_id := special_earning_type; -- SPR C355
6282:
6283: IF g_debug
6284: THEN
6285: hr_utility.TRACE ('p_element_type_id :' || p_element_type_id
6286: );
6287: END IF;
6288: ELSE -- over special days and hours limits
6289: IF g_debug
6287: END IF;
6288: ELSE -- over special days and hours limits
6289: IF g_debug
6290: THEN
6291: hr_utility.set_location ('select_rule_and_hours', 160);
6292: END IF;
6293:
6294: srh_rule := 'SPC';
6295: p_hours_to_pay_this_rule := hours_left_to_pay;
6297:
6298: -- SPR C355 - chg'd to type2
6299: IF g_debug
6300: THEN
6301: hr_utility.TRACE ('p_element_type_id :' || p_element_type_id
6302: );
6303: END IF;
6304: END IF;
6305: END IF;
6307: p_rule_to_pay := srh_rule;
6308:
6309: IF g_debug
6310: THEN
6311: hr_utility.TRACE ('p_rule_to_pay :' || p_rule_to_pay);
6312: END IF;
6313:
6314: IF srh_rule IS NULL
6315: THEN
6314: IF srh_rule IS NULL
6315: THEN
6316: IF g_debug
6317: THEN
6318: hr_utility.set_location ('select_rule_and_hours', 170);
6319: END IF;
6320:
6321: fnd_message.set_name ('HXT', 'HXT_39295_ERN_TYPE_NF');
6322: p_error_code :=
6330: END IF;
6331:
6332: IF g_debug
6333: THEN
6334: hr_utility.set_location ('select_rule_and_hours', 180);
6335: END IF;
6336: EXCEPTION
6337: WHEN OTHERS
6338: THEN
6337: WHEN OTHERS
6338: THEN
6339: IF g_debug
6340: THEN
6341: hr_utility.set_location ('select_rule_and_hours', 190);
6342: END IF;
6343:
6344: fnd_message.set_name ('HXT', 'HXT_39274_OR_ERR_SEL_ERN_TYP');
6345: p_error_code :=
6559: BEGIN
6560: IF g_debug
6561: THEN
6562: l_proc := 'HXT_TIME_DETAIL.init_for_wkl_combine_pts_cal';
6563: hr_utility.set_location (l_proc, 10);
6564: END IF;
6565:
6566: OPEN weekly_earn_category_total; --('REG');
6567:
6569: INTO l_weekly_reg_hrs;
6570:
6571: IF g_debug
6572: THEN
6573: hr_utility.TRACE ('l_weekly_REG_hrs:' || l_weekly_reg_hrs);
6574: END IF;
6575:
6576: CLOSE weekly_earn_category_total;
6577:
6580: FOR i IN 1 .. g_daily_explosion.COUNT
6581: LOOP
6582: IF g_debug
6583: THEN
6584: hr_utility.set_location (l_proc, 20);
6585: END IF;
6586:
6587: IF g_daily_explosion (i).earning_category = 'REG'
6588: THEN
6587: IF g_daily_explosion (i).earning_category = 'REG'
6588: THEN
6589: IF g_debug
6590: THEN
6591: hr_utility.set_location (l_proc, 30);
6592: END IF;
6593:
6594: l_reg_for_day := g_daily_explosion (i).hours_to_pay;
6595:
6594: l_reg_for_day := g_daily_explosion (i).hours_to_pay;
6595:
6596: IF g_debug
6597: THEN
6598: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
6599: END IF;
6600:
6601: IF l_weekly_reg_hrs >= l_weekly_reg_cap
6602: AND l_use_weekly_reg = 'Y'
6602: AND l_use_weekly_reg = 'Y'
6603: THEN
6604: IF g_debug
6605: THEN
6606: hr_utility.set_location (l_proc, 40);
6607: END IF;
6608:
6609: l_dy_wk_reg_elem_id :=
6610: g_weekly_earn_category (i).element_type_id;
6610: g_weekly_earn_category (i).element_type_id;
6611: ELSE
6612: IF g_debug
6613: THEN
6614: hr_utility.set_location (l_proc, 50);
6615: END IF;
6616:
6617: l_use_daily_reg := 'Y';
6618: l_dy_wk_reg_elem_id :=
6620: END IF;
6621:
6622: IF g_debug
6623: THEN
6624: hr_utility.set_location (l_proc, 60);
6625: hr_utility.TRACE ( 'l_dy_wk_reg_elem_id:'
6626: || l_dy_wk_reg_elem_id
6627: );
6628: END IF;
6621:
6622: IF g_debug
6623: THEN
6624: hr_utility.set_location (l_proc, 60);
6625: hr_utility.TRACE ( 'l_dy_wk_reg_elem_id:'
6626: || l_dy_wk_reg_elem_id
6627: );
6628: END IF;
6629: ELSIF g_daily_explosion (i).earning_category = 'OVT'
6629: ELSIF g_daily_explosion (i).earning_category = 'OVT'
6630: THEN
6631: IF g_debug
6632: THEN
6633: hr_utility.set_location (l_proc, 70);
6634: END IF;
6635:
6636: l_ovt_for_day := g_daily_explosion (i).hours_to_pay;
6637:
6636: l_ovt_for_day := g_daily_explosion (i).hours_to_pay;
6637:
6638: IF g_debug
6639: THEN
6640: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
6641: END IF;
6642:
6643: IF l_weekly_reg_hrs >= l_weekly_reg_cap
6644: AND use_weekly_ot = 'Y'
6644: AND use_weekly_ot = 'Y'
6645: THEN
6646: IF g_debug
6647: THEN
6648: hr_utility.set_location (l_proc, 80);
6649: END IF;
6650:
6651: l_dy_wk_ovt_elem_id :=
6652: g_weekly_earn_category (i).element_type_id;
6652: g_weekly_earn_category (i).element_type_id;
6653: ELSE
6654: IF g_debug
6655: THEN
6656: hr_utility.set_location (l_proc, 90);
6657: END IF;
6658:
6659: l_use_daily_ot := 'Y';
6660: l_dy_wk_ovt_elem_id :=
6662: END IF;
6663:
6664: IF g_debug
6665: THEN
6666: hr_utility.set_location (l_proc, 100);
6667: hr_utility.TRACE ( 'l_dy_wk_ovt_elem_id:'
6668: || l_dy_wk_ovt_elem_id
6669: );
6670: END IF;
6663:
6664: IF g_debug
6665: THEN
6666: hr_utility.set_location (l_proc, 100);
6667: hr_utility.TRACE ( 'l_dy_wk_ovt_elem_id:'
6668: || l_dy_wk_ovt_elem_id
6669: );
6670: END IF;
6671: ELSIF g_daily_explosion (i).earning_category = 'DT'
6671: ELSIF g_daily_explosion (i).earning_category = 'DT'
6672: THEN
6673: IF g_debug
6674: THEN
6675: hr_utility.set_location (l_proc, 110);
6676: END IF;
6677:
6678: l_dt_for_day := g_daily_explosion (i).hours_to_pay;
6679:
6681: AND use_weekly_dt = 'Y'
6682: THEN
6683: IF g_debug
6684: THEN
6685: hr_utility.set_location (l_proc, 120);
6686: END IF;
6687:
6688: l_dy_wk_dt_elem_id :=
6689: g_weekly_earn_category (i).element_type_id;
6689: g_weekly_earn_category (i).element_type_id;
6690: ELSE
6691: IF g_debug
6692: THEN
6693: hr_utility.set_location (l_proc, 130);
6694: END IF;
6695:
6696: l_use_daily_dt := 'Y';
6697: l_dy_wk_dt_elem_id :=
6699: END IF;
6700:
6701: IF g_debug
6702: THEN
6703: hr_utility.set_location (l_proc, 140);
6704: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
6705: hr_utility.TRACE ( 'l_dy_wk_dt_elem_id:'
6706: || l_dy_wk_dt_elem_id
6707: );
6700:
6701: IF g_debug
6702: THEN
6703: hr_utility.set_location (l_proc, 140);
6704: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
6705: hr_utility.TRACE ( 'l_dy_wk_dt_elem_id:'
6706: || l_dy_wk_dt_elem_id
6707: );
6708: END IF;
6701: IF g_debug
6702: THEN
6703: hr_utility.set_location (l_proc, 140);
6704: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
6705: hr_utility.TRACE ( 'l_dy_wk_dt_elem_id:'
6706: || l_dy_wk_dt_elem_id
6707: );
6708: END IF;
6709: END IF;
6709: END IF;
6710:
6711: IF g_debug
6712: THEN
6713: hr_utility.set_location (l_proc, 150);
6714: END IF;
6715: END LOOP;
6716:
6717: IF g_debug
6715: END LOOP;
6716:
6717: IF g_debug
6718: THEN
6719: hr_utility.set_location (l_proc, 160);
6720: END IF;
6721:
6722: OPEN weekly_earning_rules (g_ep_id);
6723:
6725: INTO weekly_earning_cap, weekly_element_type_id;
6726:
6727: IF g_debug
6728: THEN
6729: hr_utility.TRACE ('weekly_earning_cap:' || weekly_earning_cap);
6730: hr_utility.TRACE ( 'weekly_element_type_id:'
6731: || weekly_element_type_id
6732: );
6733: END IF;
6726:
6727: IF g_debug
6728: THEN
6729: hr_utility.TRACE ('weekly_earning_cap:' || weekly_earning_cap);
6730: hr_utility.TRACE ( 'weekly_element_type_id:'
6731: || weekly_element_type_id
6732: );
6733: END IF;
6734:
6735: CLOSE weekly_earning_rules;
6736:
6737: IF g_debug
6738: THEN
6739: hr_utility.set_location (l_proc, 170);
6740: hr_utility.TRACE ('l_weekly_reg_hrs:' || l_weekly_reg_hrs);
6741: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
6742: END IF;
6743:
6736:
6737: IF g_debug
6738: THEN
6739: hr_utility.set_location (l_proc, 170);
6740: hr_utility.TRACE ('l_weekly_reg_hrs:' || l_weekly_reg_hrs);
6741: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
6742: END IF;
6743:
6744: -- Calculate the weekly reg total including today's REG hrs
6737: IF g_debug
6738: THEN
6739: hr_utility.set_location (l_proc, 170);
6740: hr_utility.TRACE ('l_weekly_reg_hrs:' || l_weekly_reg_hrs);
6741: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
6742: END IF;
6743:
6744: -- Calculate the weekly reg total including today's REG hrs
6745: wky_reg_incl_dy_reg_expl := l_weekly_reg_hrs + l_reg_for_day;
6745: wky_reg_incl_dy_reg_expl := l_weekly_reg_hrs + l_reg_for_day;
6746:
6747: IF g_debug
6748: THEN
6749: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
6750: || wky_reg_incl_dy_reg_expl
6751: );
6752: hr_utility.set_location (l_proc, 180);
6753: END IF;
6748: THEN
6749: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
6750: || wky_reg_incl_dy_reg_expl
6751: );
6752: hr_utility.set_location (l_proc, 180);
6753: END IF;
6754: END;
6755: -- Selects the rule type, hours, and earning element id to be paid on the
6756: -- current sub-segment.
6781: -- weekly cap until the special hours cap is hit.
6782: -- returns 0 for success, 2 for error
6783: -- Set hours_left_to_pay = 0 when last record from the array is fetched
6784: BEGIN
6785: g_debug := hr_utility.debug_enabled;
6786:
6787: IF g_debug
6788: THEN
6789: l_proc := 'hxt_time_detail.use_points_to_select_rule_hrs';
6786:
6787: IF g_debug
6788: THEN
6789: l_proc := 'hxt_time_detail.use_points_to_select_rule_hrs';
6790: hr_utility.set_location (l_proc, 10);
6791: END IF;
6792:
6793: -- Populate the g_daily_earn_category plsql table with element type, hrs
6794: -- and earning Category for each element.
6795: FOR daily_categories IN daily_earning_rules (g_ep_id)
6796: LOOP
6797: IF g_debug
6798: THEN
6799: hr_utility.set_location (l_proc, 15);
6800: hr_utility.TRACE ( 'daily_categories.hours :'
6801: || daily_categories.hours
6802: );
6803: hr_utility.TRACE ( 'daily_categories.element_type_id :'
6796: LOOP
6797: IF g_debug
6798: THEN
6799: hr_utility.set_location (l_proc, 15);
6800: hr_utility.TRACE ( 'daily_categories.hours :'
6801: || daily_categories.hours
6802: );
6803: hr_utility.TRACE ( 'daily_categories.element_type_id :'
6804: || daily_categories.element_type_id
6799: hr_utility.set_location (l_proc, 15);
6800: hr_utility.TRACE ( 'daily_categories.hours :'
6801: || daily_categories.hours
6802: );
6803: hr_utility.TRACE ( 'daily_categories.element_type_id :'
6804: || daily_categories.element_type_id
6805: );
6806: END IF;
6807:
6814: IF l_category_index = 1
6815: THEN
6816: IF g_debug
6817: THEN
6818: hr_utility.set_location (l_proc, 20);
6819: END IF;
6820:
6821: g_daily_earn_category (l_category_index).earning_category :=
6822: 'REG';
6823: ELSIF l_category_index = 2
6824: THEN
6825: IF g_debug
6826: THEN
6827: hr_utility.set_location (l_proc, 25);
6828: END IF;
6829:
6830: g_daily_earn_category (l_category_index).earning_category :=
6831: 'OVT';
6832: ELSIF l_category_index = 3
6833: THEN
6834: IF g_debug
6835: THEN
6836: hr_utility.set_location (l_proc, 30);
6837: END IF;
6838:
6839: g_daily_earn_category (l_category_index).earning_category :=
6840: 'DT';
6841: END IF;
6842:
6843: IF g_debug
6844: THEN
6845: hr_utility.set_location (l_proc, 35);
6846: END IF;
6847: END LOOP;
6848:
6849: IF g_debug
6847: END LOOP;
6848:
6849: IF g_debug
6850: THEN
6851: hr_utility.set_location (l_proc, 40);
6852: END IF;
6853:
6854: FOR i IN 1 .. g_daily_earn_category.COUNT
6855: LOOP
6854: FOR i IN 1 .. g_daily_earn_category.COUNT
6855: LOOP
6856: IF g_debug
6857: THEN
6858: hr_utility.set_location (l_proc, 45);
6859: hr_utility.TRACE ( 'daily_element_type_id:'
6860: || g_daily_earn_category (i).element_type_id
6861: );
6862: hr_utility.TRACE ( 'daily_hours:'
6855: LOOP
6856: IF g_debug
6857: THEN
6858: hr_utility.set_location (l_proc, 45);
6859: hr_utility.TRACE ( 'daily_element_type_id:'
6860: || g_daily_earn_category (i).element_type_id
6861: );
6862: hr_utility.TRACE ( 'daily_hours:'
6863: || g_daily_earn_category (i).hours
6858: hr_utility.set_location (l_proc, 45);
6859: hr_utility.TRACE ( 'daily_element_type_id:'
6860: || g_daily_earn_category (i).element_type_id
6861: );
6862: hr_utility.TRACE ( 'daily_hours:'
6863: || g_daily_earn_category (i).hours
6864: );
6865: hr_utility.TRACE ( 'daily_earning_category:'
6866: || g_daily_earn_category (i).earning_category
6861: );
6862: hr_utility.TRACE ( 'daily_hours:'
6863: || g_daily_earn_category (i).hours
6864: );
6865: hr_utility.TRACE ( 'daily_earning_category:'
6866: || g_daily_earn_category (i).earning_category
6867: );
6868: hr_utility.set_location (l_proc, 50);
6869: END IF;
6864: );
6865: hr_utility.TRACE ( 'daily_earning_category:'
6866: || g_daily_earn_category (i).earning_category
6867: );
6868: hr_utility.set_location (l_proc, 50);
6869: END IF;
6870: END LOOP;
6871:
6872: -- Populate the g_weekly_earn_category plsql table with element type, hrs
6874: FOR weekly_categories IN weekly_earning_rules (g_ep_id)
6875: LOOP
6876: IF g_debug
6877: THEN
6878: hr_utility.set_location (l_proc, 55);
6879: hr_utility.TRACE ( 'weekly_categories.hours :'
6880: || weekly_categories.hours
6881: );
6882: hr_utility.TRACE ( 'weekly_categories.element_type_id :'
6875: LOOP
6876: IF g_debug
6877: THEN
6878: hr_utility.set_location (l_proc, 55);
6879: hr_utility.TRACE ( 'weekly_categories.hours :'
6880: || weekly_categories.hours
6881: );
6882: hr_utility.TRACE ( 'weekly_categories.element_type_id :'
6883: || weekly_categories.element_type_id
6878: hr_utility.set_location (l_proc, 55);
6879: hr_utility.TRACE ( 'weekly_categories.hours :'
6880: || weekly_categories.hours
6881: );
6882: hr_utility.TRACE ( 'weekly_categories.element_type_id :'
6883: || weekly_categories.element_type_id
6884: );
6885: END IF;
6886:
6893: IF l_wkl_category_index = 1
6894: THEN
6895: IF g_debug
6896: THEN
6897: hr_utility.set_location (l_proc, 60);
6898: END IF;
6899:
6900: g_weekly_earn_category (l_wkl_category_index).earning_category :=
6901: 'REG';
6910: ELSIF l_wkl_category_index = 2
6911: THEN
6912: IF g_debug
6913: THEN
6914: hr_utility.set_location (l_proc, 65);
6915: END IF;
6916:
6917: g_weekly_earn_category (l_wkl_category_index).earning_category :=
6918: 'OVT';
6925: ELSIF l_wkl_category_index = 3
6926: THEN
6927: IF g_debug
6928: THEN
6929: hr_utility.set_location (l_proc, 70);
6930: END IF;
6931:
6932: g_weekly_earn_category (l_wkl_category_index).earning_category :=
6933: 'DT';
6940: END IF;
6941:
6942: IF g_debug
6943: THEN
6944: hr_utility.set_location (l_proc, 75);
6945: END IF;
6946: END LOOP;
6947:
6948: IF g_debug
6946: END LOOP;
6947:
6948: IF g_debug
6949: THEN
6950: hr_utility.set_location (l_proc, 80);
6951: END IF;
6952:
6953: FOR i IN 1 .. g_weekly_earn_category.COUNT
6954: LOOP
6953: FOR i IN 1 .. g_weekly_earn_category.COUNT
6954: LOOP
6955: IF g_debug
6956: THEN
6957: hr_utility.set_location (l_proc, 85);
6958: hr_utility.TRACE ( 'weekly_element_type_id:'
6959: || g_weekly_earn_category (i).element_type_id
6960: );
6961: hr_utility.TRACE ( 'weekly_hours:'
6954: LOOP
6955: IF g_debug
6956: THEN
6957: hr_utility.set_location (l_proc, 85);
6958: hr_utility.TRACE ( 'weekly_element_type_id:'
6959: || g_weekly_earn_category (i).element_type_id
6960: );
6961: hr_utility.TRACE ( 'weekly_hours:'
6962: || g_weekly_earn_category (i).hours
6957: hr_utility.set_location (l_proc, 85);
6958: hr_utility.TRACE ( 'weekly_element_type_id:'
6959: || g_weekly_earn_category (i).element_type_id
6960: );
6961: hr_utility.TRACE ( 'weekly_hours:'
6962: || g_weekly_earn_category (i).hours
6963: );
6964: hr_utility.TRACE ( 'weekly_earning_category:'
6965: || g_weekly_earn_category (i).earning_category
6960: );
6961: hr_utility.TRACE ( 'weekly_hours:'
6962: || g_weekly_earn_category (i).hours
6963: );
6964: hr_utility.TRACE ( 'weekly_earning_category:'
6965: || g_weekly_earn_category (i).earning_category
6966: );
6967: hr_utility.set_location (l_proc, 90);
6968: END IF;
6963: );
6964: hr_utility.TRACE ( 'weekly_earning_category:'
6965: || g_weekly_earn_category (i).earning_category
6966: );
6967: hr_utility.set_location (l_proc, 90);
6968: END IF;
6969: END LOOP;
6970:
6971: IF g_debug
6969: END LOOP;
6970:
6971: IF g_debug
6972: THEN
6973: hr_utility.set_location (l_proc, 100);
6974: hr_utility.TRACE ('g_explosion_to_use :' || g_explosion_to_use);
6975: END IF;
6976:
6977: IF g_explosion_to_use IS NOT NULL
6970:
6971: IF g_debug
6972: THEN
6973: hr_utility.set_location (l_proc, 100);
6974: hr_utility.TRACE ('g_explosion_to_use :' || g_explosion_to_use);
6975: END IF;
6976:
6977: IF g_explosion_to_use IS NOT NULL
6978: THEN
6977: IF g_explosion_to_use IS NOT NULL
6978: THEN
6979: IF g_debug
6980: THEN
6981: hr_utility.set_location (l_proc, 110);
6982: END IF;
6983:
6984: IF g_explosion_to_use = 'SPC'
6985: THEN
6984: IF g_explosion_to_use = 'SPC'
6985: THEN
6986: IF g_debug
6987: THEN
6988: hr_utility.set_location (l_proc, 120);
6989: END IF;
6990:
6991: FOR i IN g_special_explosion.FIRST .. g_special_explosion.LAST
6992: LOOP
6991: FOR i IN g_special_explosion.FIRST .. g_special_explosion.LAST
6992: LOOP
6993: IF g_debug
6994: THEN
6995: hr_utility.set_location (l_proc, 130);
6996: hr_utility.TRACE ('i:' || i);
6997: hr_utility.TRACE
6998: ( 'g_special_explosion(i).element_type_id:'
6999: || g_special_explosion (i).element_type_id
6992: LOOP
6993: IF g_debug
6994: THEN
6995: hr_utility.set_location (l_proc, 130);
6996: hr_utility.TRACE ('i:' || i);
6997: hr_utility.TRACE
6998: ( 'g_special_explosion(i).element_type_id:'
6999: || g_special_explosion (i).element_type_id
7000: );
6993: IF g_debug
6994: THEN
6995: hr_utility.set_location (l_proc, 130);
6996: hr_utility.TRACE ('i:' || i);
6997: hr_utility.TRACE
6998: ( 'g_special_explosion(i).element_type_id:'
6999: || g_special_explosion (i).element_type_id
7000: );
7001: END IF;
7002: END LOOP;
7003:
7004: IF g_debug
7005: THEN
7006: hr_utility.set_location (l_proc, 140);
7007: END IF;
7008:
7009: g_count := g_count + 1;
7010:
7009: g_count := g_count + 1;
7010:
7011: IF g_debug
7012: THEN
7013: hr_utility.TRACE ('g_count:' || g_count);
7014: END IF;
7015:
7016: p_error_code := 0;
7017: p_rule_to_pay := 'SPC';
7021: g_special_explosion (g_count).element_type_id;
7022:
7023: IF g_debug
7024: THEN
7025: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
7026: || p_hours_to_pay_this_rule
7027: );
7028: hr_utility.TRACE ( 'p_element_type_id :'
7029: || p_element_type_id
7024: THEN
7025: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
7026: || p_hours_to_pay_this_rule
7027: );
7028: hr_utility.TRACE ( 'p_element_type_id :'
7029: || p_element_type_id
7030: );
7031: END IF;
7032:
7033: IF g_count = g_special_explosion.COUNT
7034: THEN
7035: IF g_debug
7036: THEN
7037: hr_utility.set_location (l_proc, 150);
7038: END IF;
7039:
7040: hours_left_to_pay := 0;
7041: g_explosion_to_use := NULL;
7043: special_day := FALSE;
7044:
7045: IF g_debug
7046: THEN
7047: hr_utility.TRACE ( 'hours_left_to_pay :'
7048: || hours_left_to_pay
7049: );
7050: hr_utility.TRACE ( 'g_explosion_to_use:'
7051: || g_explosion_to_use
7046: THEN
7047: hr_utility.TRACE ( 'hours_left_to_pay :'
7048: || hours_left_to_pay
7049: );
7050: hr_utility.TRACE ( 'g_explosion_to_use:'
7051: || g_explosion_to_use
7052: );
7053: END IF;
7054: END IF;
7057: ELSIF g_explosion_to_use = 'COMBO'
7058: THEN
7059: IF g_debug
7060: THEN
7061: hr_utility.set_location (l_proc, 160);
7062: END IF;
7063:
7064: FOR i IN
7065: g_dy_wk_combo_explosion.FIRST .. g_dy_wk_combo_explosion.LAST
7065: g_dy_wk_combo_explosion.FIRST .. g_dy_wk_combo_explosion.LAST
7066: LOOP
7067: IF g_debug
7068: THEN
7069: hr_utility.TRACE ('i:' || i);
7070: hr_utility.TRACE
7071: ( 'g_dy_wk_combo_explosion(i).element_type_id:'
7072: || g_dy_wk_combo_explosion (i).element_type_id
7073: );
7066: LOOP
7067: IF g_debug
7068: THEN
7069: hr_utility.TRACE ('i:' || i);
7070: hr_utility.TRACE
7071: ( 'g_dy_wk_combo_explosion(i).element_type_id:'
7072: || g_dy_wk_combo_explosion (i).element_type_id
7073: );
7074: END IF;
7075: END LOOP;
7076:
7077: IF g_debug
7078: THEN
7079: hr_utility.set_location (l_proc, 165);
7080: END IF;
7081:
7082: g_count := g_count + 1;
7083:
7082: g_count := g_count + 1;
7083:
7084: IF g_debug
7085: THEN
7086: hr_utility.TRACE ('g_count:' || g_count);
7087: END IF;
7088:
7089: p_error_code := 0;
7090: p_rule_to_pay := 'DAY';
7094: g_dy_wk_combo_explosion (g_count).element_type_id;
7095:
7096: IF g_debug
7097: THEN
7098: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
7099: || p_hours_to_pay_this_rule
7100: );
7101: hr_utility.TRACE ( 'p_element_type_id :'
7102: || p_element_type_id
7097: THEN
7098: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
7099: || p_hours_to_pay_this_rule
7100: );
7101: hr_utility.TRACE ( 'p_element_type_id :'
7102: || p_element_type_id
7103: );
7104: END IF;
7105:
7106: IF g_count = g_dy_wk_combo_explosion.COUNT
7107: THEN
7108: IF g_debug
7109: THEN
7110: hr_utility.set_location (l_proc, 170);
7111: END IF;
7112:
7113: hours_left_to_pay := 0;
7114: g_explosion_to_use := NULL;
7115: g_count := 0;
7116:
7117: IF g_debug
7118: THEN
7119: hr_utility.TRACE ( 'hours_left_to_pay :'
7120: || hours_left_to_pay
7121: );
7122: hr_utility.TRACE ( 'g_explosion_to_use:'
7123: || g_explosion_to_use
7118: THEN
7119: hr_utility.TRACE ( 'hours_left_to_pay :'
7120: || hours_left_to_pay
7121: );
7122: hr_utility.TRACE ( 'g_explosion_to_use:'
7123: || g_explosion_to_use
7124: );
7125: END IF;
7126: END IF;
7129: ELSIF g_explosion_to_use = 'DAILY'
7130: THEN
7131: IF g_debug
7132: THEN
7133: hr_utility.set_location (l_proc, 175);
7134: END IF;
7135:
7136: FOR i IN g_daily_explosion.FIRST .. g_daily_explosion.LAST
7137: LOOP
7136: FOR i IN g_daily_explosion.FIRST .. g_daily_explosion.LAST
7137: LOOP
7138: IF g_debug
7139: THEN
7140: hr_utility.TRACE ('i:' || i);
7141: hr_utility.TRACE
7142: ( 'g_daily_explosion(i).element_type_id:'
7143: || g_daily_explosion (i).element_type_id
7144: );
7137: LOOP
7138: IF g_debug
7139: THEN
7140: hr_utility.TRACE ('i:' || i);
7141: hr_utility.TRACE
7142: ( 'g_daily_explosion(i).element_type_id:'
7143: || g_daily_explosion (i).element_type_id
7144: );
7145: END IF;
7146: END LOOP;
7147:
7148: IF g_debug
7149: THEN
7150: hr_utility.set_location (l_proc, 180);
7151: END IF;
7152:
7153: g_count := g_count + 1;
7154:
7153: g_count := g_count + 1;
7154:
7155: IF g_debug
7156: THEN
7157: hr_utility.TRACE ('g_count:' || g_count);
7158: END IF;
7159:
7160: p_error_code := 0;
7161: p_rule_to_pay := 'DAY';
7165: g_daily_explosion (g_count).element_type_id;
7166:
7167: IF g_debug
7168: THEN
7169: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
7170: || p_hours_to_pay_this_rule
7171: );
7172: hr_utility.TRACE ( 'p_element_type_id :'
7173: || p_element_type_id
7168: THEN
7169: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
7170: || p_hours_to_pay_this_rule
7171: );
7172: hr_utility.TRACE ( 'p_element_type_id :'
7173: || p_element_type_id
7174: );
7175: END IF;
7176:
7177: IF g_count = g_daily_explosion.COUNT
7178: THEN
7179: IF g_debug
7180: THEN
7181: hr_utility.set_location (l_proc, 185);
7182: END IF;
7183:
7184: hours_left_to_pay := 0;
7185: g_explosion_to_use := NULL;
7186: g_count := 0;
7187:
7188: IF g_debug
7189: THEN
7190: hr_utility.TRACE ( 'hours_left_to_pay :'
7191: || hours_left_to_pay
7192: );
7193: hr_utility.TRACE ( 'g_explosion_to_use:'
7194: || g_explosion_to_use
7189: THEN
7190: hr_utility.TRACE ( 'hours_left_to_pay :'
7191: || hours_left_to_pay
7192: );
7193: hr_utility.TRACE ( 'g_explosion_to_use:'
7194: || g_explosion_to_use
7195: );
7196: END IF;
7197: END IF;
7200: ELSIF g_explosion_to_use = 'WEEKLY'
7201: THEN
7202: IF g_debug
7203: THEN
7204: hr_utility.set_location (l_proc, 190);
7205: END IF;
7206:
7207: FOR i IN g_weekly_explosion.FIRST .. g_weekly_explosion.LAST
7208: LOOP
7207: FOR i IN g_weekly_explosion.FIRST .. g_weekly_explosion.LAST
7208: LOOP
7209: IF g_debug
7210: THEN
7211: hr_utility.TRACE ('i:' || i);
7212: hr_utility.TRACE
7213: ( 'g_weekly_explosion(i).element_type_id:'
7214: || g_weekly_explosion (i).element_type_id
7215: );
7208: LOOP
7209: IF g_debug
7210: THEN
7211: hr_utility.TRACE ('i:' || i);
7212: hr_utility.TRACE
7213: ( 'g_weekly_explosion(i).element_type_id:'
7214: || g_weekly_explosion (i).element_type_id
7215: );
7216: END IF;
7217: END LOOP;
7218:
7219: IF g_debug
7220: THEN
7221: hr_utility.set_location (l_proc, 200);
7222: END IF;
7223:
7224: g_count := g_count + 1;
7225:
7224: g_count := g_count + 1;
7225:
7226: IF g_debug
7227: THEN
7228: hr_utility.TRACE ('g_count:' || g_count);
7229: END IF;
7230:
7231: p_error_code := 0;
7232: p_rule_to_pay := 'WKL';
7236: g_weekly_explosion (g_count).element_type_id;
7237:
7238: IF g_debug
7239: THEN
7240: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
7241: || p_hours_to_pay_this_rule
7242: );
7243: hr_utility.TRACE ( 'p_element_type_id :'
7244: || p_element_type_id
7239: THEN
7240: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
7241: || p_hours_to_pay_this_rule
7242: );
7243: hr_utility.TRACE ( 'p_element_type_id :'
7244: || p_element_type_id
7245: );
7246: END IF;
7247:
7248: IF g_count = g_weekly_explosion.COUNT
7249: THEN
7250: IF g_debug
7251: THEN
7252: hr_utility.set_location (l_proc, 210);
7253: END IF;
7254:
7255: hours_left_to_pay := 0;
7256: g_explosion_to_use := NULL;
7257: g_count := 0;
7258:
7259: IF g_debug
7260: THEN
7261: hr_utility.TRACE ( 'hours_left_to_pay :'
7262: || hours_left_to_pay
7263: );
7264: hr_utility.TRACE ( 'g_explosion_to_use:'
7265: || g_explosion_to_use
7260: THEN
7261: hr_utility.TRACE ( 'hours_left_to_pay :'
7262: || hours_left_to_pay
7263: );
7264: hr_utility.TRACE ( 'g_explosion_to_use:'
7265: || g_explosion_to_use
7266: );
7267: hr_utility.TRACE ('g_count :' || g_count);
7268: END IF;
7263: );
7264: hr_utility.TRACE ( 'g_explosion_to_use:'
7265: || g_explosion_to_use
7266: );
7267: hr_utility.TRACE ('g_count :' || g_count);
7268: END IF;
7269: END IF;
7270:
7271: RETURN;
7273: ELSIF g_explosion_to_use IS NULL
7274: THEN
7275: IF g_debug
7276: THEN
7277: hr_utility.set_location (l_proc, 220);
7278: hr_utility.TRACE ('g_ep_id :' || g_ep_id);
7279: END IF;
7280:
7281: IF consecutive_days_reached = TRUE
7274: THEN
7275: IF g_debug
7276: THEN
7277: hr_utility.set_location (l_proc, 220);
7278: hr_utility.TRACE ('g_ep_id :' || g_ep_id);
7279: END IF;
7280:
7281: IF consecutive_days_reached = TRUE
7282: THEN
7281: IF consecutive_days_reached = TRUE
7282: THEN
7283: IF g_debug
7284: THEN
7285: hr_utility.set_location (l_proc, 230);
7286: END IF;
7287:
7288: -- Get the contiguous hours worked on the special day
7289: -- Following code changed to fix 2839573
7290: spc_hours_paid := NVL (previous_detail_hours_day, 0);
7291:
7292: IF g_debug
7293: THEN
7294: hr_utility.TRACE ('spc_hours_paid :' || spc_hours_paid);
7295: hr_utility.TRACE ('g_hours :' || g_hours);
7296: END IF;
7297:
7298: total_hrs_worked_on_spc := g_hours + NVL (spc_hours_paid, 0);
7291:
7292: IF g_debug
7293: THEN
7294: hr_utility.TRACE ('spc_hours_paid :' || spc_hours_paid);
7295: hr_utility.TRACE ('g_hours :' || g_hours);
7296: END IF;
7297:
7298: total_hrs_worked_on_spc := g_hours + NVL (spc_hours_paid, 0);
7299:
7298: total_hrs_worked_on_spc := g_hours + NVL (spc_hours_paid, 0);
7299:
7300: IF g_debug
7301: THEN
7302: hr_utility.TRACE ( 'total_hrs_worked_on_spc :'
7303: || total_hrs_worked_on_spc
7304: );
7305: END IF;
7306:
7306:
7307: /*
7308: IF g_time_in IS NOT NULL
7309: THEN
7310: hr_utility.set_location (l_proc, 240);
7311: spc_hours_paid :=
7312: contig_hours_worked (g_date_worked, g_egt_id, g_tim_id);
7313: hr_utility.TRACE ('spc_hours_paid :' || spc_hours_paid);
7314: hr_utility.TRACE ('g_hours :' || g_hours);
7309: THEN
7310: hr_utility.set_location (l_proc, 240);
7311: spc_hours_paid :=
7312: contig_hours_worked (g_date_worked, g_egt_id, g_tim_id);
7313: hr_utility.TRACE ('spc_hours_paid :' || spc_hours_paid);
7314: hr_utility.TRACE ('g_hours :' || g_hours);
7315: total_hrs_worked_on_spc :=
7316: g_hours + NVL (spc_hours_paid, 0);
7317: hr_utility.TRACE ( 'total_hrs_worked_on_spc :'
7310: hr_utility.set_location (l_proc, 240);
7311: spc_hours_paid :=
7312: contig_hours_worked (g_date_worked, g_egt_id, g_tim_id);
7313: hr_utility.TRACE ('spc_hours_paid :' || spc_hours_paid);
7314: hr_utility.TRACE ('g_hours :' || g_hours);
7315: total_hrs_worked_on_spc :=
7316: g_hours + NVL (spc_hours_paid, 0);
7317: hr_utility.TRACE ( 'total_hrs_worked_on_spc :'
7318: || total_hrs_worked_on_spc
7313: hr_utility.TRACE ('spc_hours_paid :' || spc_hours_paid);
7314: hr_utility.TRACE ('g_hours :' || g_hours);
7315: total_hrs_worked_on_spc :=
7316: g_hours + NVL (spc_hours_paid, 0);
7317: hr_utility.TRACE ( 'total_hrs_worked_on_spc :'
7318: || total_hrs_worked_on_spc
7319: );
7320: ELSE
7321: hr_utility.set_location (l_proc, 250);
7317: hr_utility.TRACE ( 'total_hrs_worked_on_spc :'
7318: || total_hrs_worked_on_spc
7319: );
7320: ELSE
7321: hr_utility.set_location (l_proc, 250);
7322: OPEN all_detail_hours_spc (g_date_worked,
7323: g_person_id,
7324: g_tim_id
7325: );
7326:
7327: FETCH all_detail_hours_spc
7328: INTO spc_hours_paid;
7329:
7330: hr_utility.TRACE ('spc_hours_paid :' || spc_hours_paid);
7331: CLOSE all_detail_hours_spc;
7332:
7333: hr_utility.TRACE ('g_hours :' || g_hours);
7334: total_hrs_worked_on_spc := g_hours + NVL (spc_hours_paid, 0);
7329:
7330: hr_utility.TRACE ('spc_hours_paid :' || spc_hours_paid);
7331: CLOSE all_detail_hours_spc;
7332:
7333: hr_utility.TRACE ('g_hours :' || g_hours);
7334: total_hrs_worked_on_spc := g_hours + NVL (spc_hours_paid, 0);
7335: hr_utility.TRACE ( 'total_hrs_worked_on_spc :'
7336: || total_hrs_worked_on_spc
7337: );
7331: CLOSE all_detail_hours_spc;
7332:
7333: hr_utility.TRACE ('g_hours :' || g_hours);
7334: total_hrs_worked_on_spc := g_hours + NVL (spc_hours_paid, 0);
7335: hr_utility.TRACE ( 'total_hrs_worked_on_spc :'
7336: || total_hrs_worked_on_spc
7337: );
7338: END IF;
7339: */
7338: END IF;
7339: */
7340: IF g_debug
7341: THEN
7342: hr_utility.set_location (l_proc, 240);
7343: END IF;
7344:
7345: -- Commented out the following as the fix for 2828201 was to do with
7346: -- the total hours not being calculated correctly when entering time
7364:
7365: LOOP
7366: IF g_debug
7367: THEN
7368: hr_utility.set_location (l_proc, 270);
7369: END IF;
7370:
7371: FETCH special_earning_rules
7372: INTO spc_daily_earning_cap, spc_element_type_id,
7373: special_days;
7374:
7375: IF g_debug
7376: THEN
7377: hr_utility.TRACE ( 'spc_daily_earning_cap :'
7378: || spc_daily_earning_cap
7379: );
7380: hr_utility.TRACE ( 'spc_element_type_id :'
7381: || spc_element_type_id
7376: THEN
7377: hr_utility.TRACE ( 'spc_daily_earning_cap :'
7378: || spc_daily_earning_cap
7379: );
7380: hr_utility.TRACE ( 'spc_element_type_id :'
7381: || spc_element_type_id
7382: );
7383: hr_utility.TRACE ( 'special_days :'
7384: || special_days
7379: );
7380: hr_utility.TRACE ( 'spc_element_type_id :'
7381: || spc_element_type_id
7382: );
7383: hr_utility.TRACE ( 'special_days :'
7384: || special_days
7385: );
7386: hr_utility.TRACE ( 'spc_hours_paid :'
7387: || spc_hours_paid
7382: );
7383: hr_utility.TRACE ( 'special_days :'
7384: || special_days
7385: );
7386: hr_utility.TRACE ( 'spc_hours_paid :'
7387: || spc_hours_paid
7388: );
7389: hr_utility.TRACE ('g_hours :'
7390: || g_hours
7385: );
7386: hr_utility.TRACE ( 'spc_hours_paid :'
7387: || spc_hours_paid
7388: );
7389: hr_utility.TRACE ('g_hours :'
7390: || g_hours
7391: );
7392: hr_utility.TRACE ( 'total_hrs_worked_on_spc :'
7393: || total_hrs_worked_on_spc
7388: );
7389: hr_utility.TRACE ('g_hours :'
7390: || g_hours
7391: );
7392: hr_utility.TRACE ( 'total_hrs_worked_on_spc :'
7393: || total_hrs_worked_on_spc
7394: );
7395: END IF;
7396:
7400: IF special_earning_rules%FOUND
7401: THEN
7402: IF g_debug
7403: THEN
7404: hr_utility.set_location (l_proc, 280);
7405: END IF;
7406:
7407: special_day := TRUE;
7408: g_explosion_to_use := 'SPC';
7411: IF spc_hours_paid < total_hrs_worked_on_spc
7412: THEN
7413: IF g_debug
7414: THEN
7415: hr_utility.set_location (l_proc, 290);
7416: END IF;
7417:
7418: spc_hours :=
7419: LEAST ((spc_daily_earning_cap - spc_hours_paid),
7429: FOR i IN 1 .. g_special_explosion.COUNT
7430: LOOP
7431: IF g_debug
7432: THEN
7433: hr_utility.TRACE
7434: ( 'spc_element_type_id:'
7435: || g_special_explosion (i).element_type_id
7436: );
7437: hr_utility.TRACE
7433: hr_utility.TRACE
7434: ( 'spc_element_type_id:'
7435: || g_special_explosion (i).element_type_id
7436: );
7437: hr_utility.TRACE
7438: ( 'hours_to_pay in plsql table:'
7439: || g_special_explosion (i).hours_to_pay
7440: );
7441: END IF;
7444: spc_hours_paid := spc_hours_paid + spc_hours;
7445:
7446: IF g_debug
7447: THEN
7448: hr_utility.TRACE ('spc_hours_paid:' || spc_hours_paid);
7449: END IF;
7450: END IF;
7451:
7452: IF g_debug
7450: END IF;
7451:
7452: IF g_debug
7453: THEN
7454: hr_utility.set_location (l_proc, 300);
7455: END IF;
7456: END LOOP;
7457:
7458: IF g_debug
7456: END LOOP;
7457:
7458: IF g_debug
7459: THEN
7460: hr_utility.set_location (l_proc, 310);
7461: END IF;
7462:
7463: CLOSE special_earning_rules;
7464: END IF;
7466: IF special_day = FALSE
7467: THEN
7468: IF g_debug
7469: THEN
7470: hr_utility.set_location (l_proc, 320);
7471: END IF;
7472:
7473: --
7474: -----------------------------BEGIN Daily Points Calculation---------------------
7476: OPEN daily_earning_rules (g_ep_id);
7477:
7478: IF g_debug
7479: THEN
7480: hr_utility.set_location (l_proc, 330);
7481: END IF;
7482:
7483: -- Commented out the following. Instead calling the adjust_for_hdp funtion
7484: -- to determine the hours that are left to be paid, since hours need to be
7488: hours_left := p_hours_worked;
7489:
7490: IF g_debug
7491: THEN
7492: hr_utility.TRACE ('hours_left :' || hours_left);
7493: hr_utility.TRACE ('l_override_hrs :' || l_override_hrs);
7494: hr_utility.TRACE ( 'g_date_worked :'
7495: || TO_CHAR (g_date_worked,
7496: 'DD-MON-YYYY HH24:MI:SS'
7489:
7490: IF g_debug
7491: THEN
7492: hr_utility.TRACE ('hours_left :' || hours_left);
7493: hr_utility.TRACE ('l_override_hrs :' || l_override_hrs);
7494: hr_utility.TRACE ( 'g_date_worked :'
7495: || TO_CHAR (g_date_worked,
7496: 'DD-MON-YYYY HH24:MI:SS'
7497: )
7490: IF g_debug
7491: THEN
7492: hr_utility.TRACE ('hours_left :' || hours_left);
7493: hr_utility.TRACE ('l_override_hrs :' || l_override_hrs);
7494: hr_utility.TRACE ( 'g_date_worked :'
7495: || TO_CHAR (g_date_worked,
7496: 'DD-MON-YYYY HH24:MI:SS'
7497: )
7498: );
7495: || TO_CHAR (g_date_worked,
7496: 'DD-MON-YYYY HH24:MI:SS'
7497: )
7498: );
7499: hr_utility.TRACE ('g_egt_id :' || g_egt_id);
7500: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
7501: END IF;
7502:
7503: overtime_hoursoverride (g_date_worked,
7496: 'DD-MON-YYYY HH24:MI:SS'
7497: )
7498: );
7499: hr_utility.TRACE ('g_egt_id :' || g_egt_id);
7500: hr_utility.TRACE ('g_tim_id :' || g_tim_id);
7501: END IF;
7502:
7503: overtime_hoursoverride (g_date_worked,
7504: g_egt_id,
7508: );
7509:
7510: IF g_debug
7511: THEN
7512: hr_utility.TRACE ('l_override_hrs :' || l_override_hrs);
7513: hr_utility.TRACE ( 'l_override_element :'
7514: || l_override_element
7515: );
7516: END IF;
7509:
7510: IF g_debug
7511: THEN
7512: hr_utility.TRACE ('l_override_hrs :' || l_override_hrs);
7513: hr_utility.TRACE ( 'l_override_element :'
7514: || l_override_element
7515: );
7516: END IF;
7517:
7517:
7518: LOOP
7519: IF g_debug
7520: THEN
7521: hr_utility.set_location (l_proc, 340);
7522: END IF;
7523:
7524: hrs_already_paid := FALSE;
7525: h := h + 1;
7528: INTO daily_earning_cap, daily_element_type_id;
7529:
7530: IF g_debug
7531: THEN
7532: hr_utility.TRACE ( 'daily_earning_cap :'
7533: || daily_earning_cap
7534: );
7535: hr_utility.TRACE ( 'daily_element_type_id :'
7536: || daily_element_type_id
7531: THEN
7532: hr_utility.TRACE ( 'daily_earning_cap :'
7533: || daily_earning_cap
7534: );
7535: hr_utility.TRACE ( 'daily_element_type_id :'
7536: || daily_element_type_id
7537: );
7538: END IF;
7539:
7540: IF h = 1
7541: THEN
7542: IF g_debug
7543: THEN
7544: hr_utility.set_location (l_proc, 350);
7545: END IF;
7546:
7547: hours_paid_for_day := NVL (previous_detail_hours_day, 0);
7548: --hours_paid_for_day:=hours_paid_for_day-2;
7554: END IF;
7555:
7556: IF g_debug
7557: THEN
7558: hr_utility.set_location (l_proc, 360);
7559: hr_utility.TRACE ( 'hours_paid_for_day :'
7560: || hours_paid_for_day
7561: );
7562: hr_utility.TRACE ('g_hours :' || g_hours);
7555:
7556: IF g_debug
7557: THEN
7558: hr_utility.set_location (l_proc, 360);
7559: hr_utility.TRACE ( 'hours_paid_for_day :'
7560: || hours_paid_for_day
7561: );
7562: hr_utility.TRACE ('g_hours :' || g_hours);
7563: hr_utility.TRACE ( 'total_hours_to_pay :'
7558: hr_utility.set_location (l_proc, 360);
7559: hr_utility.TRACE ( 'hours_paid_for_day :'
7560: || hours_paid_for_day
7561: );
7562: hr_utility.TRACE ('g_hours :' || g_hours);
7563: hr_utility.TRACE ( 'total_hours_to_pay :'
7564: || total_hours_to_pay
7565: );
7566: END IF;
7559: hr_utility.TRACE ( 'hours_paid_for_day :'
7560: || hours_paid_for_day
7561: );
7562: hr_utility.TRACE ('g_hours :' || g_hours);
7563: hr_utility.TRACE ( 'total_hours_to_pay :'
7564: || total_hours_to_pay
7565: );
7566: END IF;
7567:
7568: EXIT WHEN hours_left = 0 AND h > 1;
7569:
7570: IF g_debug
7571: THEN
7572: hr_utility.set_location (l_proc, 370);
7573: END IF;
7574:
7575: /* IF hours_paid_for_day < total_hours_to_pay THEN
7576: hr_utility.set_location(l_proc,100);
7572: hr_utility.set_location (l_proc, 370);
7573: END IF;
7574:
7575: /* IF hours_paid_for_day < total_hours_to_pay THEN
7576: hr_utility.set_location(l_proc,100);
7577: hours_for_points := LEAST( (daily_earning_cap - hours_paid_for_day)
7578: ,(g_hours - hours_paid_for_day) );
7579: hr_utility.trace('hours_for_points :'||hours_for_points);
7580: */
7575: /* IF hours_paid_for_day < total_hours_to_pay THEN
7576: hr_utility.set_location(l_proc,100);
7577: hours_for_points := LEAST( (daily_earning_cap - hours_paid_for_day)
7578: ,(g_hours - hours_paid_for_day) );
7579: hr_utility.trace('hours_for_points :'||hours_for_points);
7580: */
7581: /* IF hours_paid_for_day < daily_earning_cap THEN
7582: hours_for_points :=LEAST(g_hours,(daily_earning_cap - hours_paid_for_day));
7583: hr_utility.set_location(l_proc,100);
7579: hr_utility.trace('hours_for_points :'||hours_for_points);
7580: */
7581: /* IF hours_paid_for_day < daily_earning_cap THEN
7582: hours_for_points :=LEAST(g_hours,(daily_earning_cap - hours_paid_for_day));
7583: hr_utility.set_location(l_proc,100);
7584: hr_utility.trace('hours_for_points :'||hours_for_points);
7585: */
7586: IF g_debug
7587: THEN
7580: */
7581: /* IF hours_paid_for_day < daily_earning_cap THEN
7582: hours_for_points :=LEAST(g_hours,(daily_earning_cap - hours_paid_for_day));
7583: hr_utility.set_location(l_proc,100);
7584: hr_utility.trace('hours_for_points :'||hours_for_points);
7585: */
7586: IF g_debug
7587: THEN
7588: hr_utility.TRACE ('hours_left:' || hours_left);
7584: hr_utility.trace('hours_for_points :'||hours_for_points);
7585: */
7586: IF g_debug
7587: THEN
7588: hr_utility.TRACE ('hours_left:' || hours_left);
7589: hr_utility.TRACE ( 'hours_paid_for_day:'
7590: || hours_paid_for_day
7591: );
7592: hr_utility.TRACE ('l_override_hrs:' || l_override_hrs);
7585: */
7586: IF g_debug
7587: THEN
7588: hr_utility.TRACE ('hours_left:' || hours_left);
7589: hr_utility.TRACE ( 'hours_paid_for_day:'
7590: || hours_paid_for_day
7591: );
7592: hr_utility.TRACE ('l_override_hrs:' || l_override_hrs);
7593: hr_utility.TRACE ( 'daily_earning_cap:'
7588: hr_utility.TRACE ('hours_left:' || hours_left);
7589: hr_utility.TRACE ( 'hours_paid_for_day:'
7590: || hours_paid_for_day
7591: );
7592: hr_utility.TRACE ('l_override_hrs:' || l_override_hrs);
7593: hr_utility.TRACE ( 'daily_earning_cap:'
7594: || daily_earning_cap
7595: );
7596: END IF;
7589: hr_utility.TRACE ( 'hours_paid_for_day:'
7590: || hours_paid_for_day
7591: );
7592: hr_utility.TRACE ('l_override_hrs:' || l_override_hrs);
7593: hr_utility.TRACE ( 'daily_earning_cap:'
7594: || daily_earning_cap
7595: );
7596: END IF;
7597:
7598: IF hours_left >= 0
7599: THEN
7600: IF g_debug
7601: THEN
7602: hr_utility.set_location (l_proc, 380);
7603: END IF;
7604:
7605: IF (hours_paid_for_day - l_override_hrs) >=
7606: daily_earning_cap
7609: -- used anymore.
7610: -- OR l_daily_total >= daily_earning_cap THEN
7611: IF g_debug
7612: THEN
7613: hr_utility.set_location (l_proc, 390);
7614: END IF;
7615:
7616: -- next line changed for bug 2822172
7617: OPEN daily_earning_rules2 (g_ep_id,
7624: INTO daily_earning_cap2, daily_element_type_id;
7625:
7626: IF g_debug
7627: THEN
7628: hr_utility.TRACE ( 'daily_earning_cap2 :'
7629: || daily_earning_cap2
7630: );
7631: hr_utility.TRACE ( 'daily_element_type_id :'
7632: || daily_element_type_id
7627: THEN
7628: hr_utility.TRACE ( 'daily_earning_cap2 :'
7629: || daily_earning_cap2
7630: );
7631: hr_utility.TRACE ( 'daily_element_type_id :'
7632: || daily_element_type_id
7633: );
7634: END IF;
7635:
7646: AND hours_for_points <= l_override_hrs
7647: THEN
7648: IF g_debug
7649: THEN
7650: hr_utility.TRACE ( 'l_override_hrs:'
7651: || l_override_hrs
7652: );
7653: hr_utility.TRACE ( 'daily_earning_cap2:'
7654: || daily_earning_cap2
7649: THEN
7650: hr_utility.TRACE ( 'l_override_hrs:'
7651: || l_override_hrs
7652: );
7653: hr_utility.TRACE ( 'daily_earning_cap2:'
7654: || daily_earning_cap2
7655: );
7656: hr_utility.TRACE ( 'daily_earning_cap:'
7657: || daily_earning_cap
7652: );
7653: hr_utility.TRACE ( 'daily_earning_cap2:'
7654: || daily_earning_cap2
7655: );
7656: hr_utility.TRACE ( 'daily_earning_cap:'
7657: || daily_earning_cap
7658: );
7659: END IF;
7660:
7662: daily_earning_cap2 - daily_earning_cap
7663: THEN
7664: IF g_debug
7665: THEN
7666: hr_utility.set_location (l_proc, 390.1);
7667: END IF;
7668:
7669: hrs_already_paid := TRUE;
7670: hours_for_points := 0;
7673: END IF;
7674:
7675: IF g_debug
7676: THEN
7677: hr_utility.TRACE ( 'hours_for_points :'
7678: || hours_for_points
7679: );
7680: END IF;
7681: ELSE
7680: END IF;
7681: ELSE
7682: IF g_debug
7683: THEN
7684: hr_utility.set_location (l_proc, 400);
7685: END IF;
7686:
7687: IF daily_element_type_id = l_override_element
7688: THEN
7692: )
7693: THEN
7694: IF g_debug
7695: THEN
7696: hr_utility.set_location (l_proc, 400.1);
7697: END IF;
7698:
7699: hours_for_points :=
7700: LEAST (hours_left,
7704: );
7705: ELSE
7706: IF g_debug
7707: THEN
7708: hr_utility.set_location (l_proc, 400.2);
7709: END IF;
7710:
7711: hours_for_points :=
7712: LEAST (hours_left,
7719: END IF;
7720: ELSE
7721: IF g_debug
7722: THEN
7723: hr_utility.set_location (l_proc, 400.3);
7724: END IF;
7725:
7726: hours_for_points :=
7727: LEAST (hours_left,
7733: END IF;
7734:
7735: IF g_debug
7736: THEN
7737: hr_utility.TRACE ( 'hours_for_points :'
7738: || hours_for_points
7739: );
7740: END IF;
7741:
7755: AND hours_for_points > l_override_hrs
7756: THEN
7757: IF g_debug
7758: THEN
7759: hr_utility.set_location (l_proc, 401);
7760: END IF;
7761:
7762: hrs_already_paid := FALSE;
7763: hours_for_points :=
7766: AND hours_for_points <= l_override_hrs
7767: THEN
7768: IF g_debug
7769: THEN
7770: hr_utility.TRACE ( 'l_override_hrs:'
7771: || l_override_hrs
7772: );
7773: hr_utility.TRACE ( 'daily_earning_cap:'
7774: || daily_earning_cap
7769: THEN
7770: hr_utility.TRACE ( 'l_override_hrs:'
7771: || l_override_hrs
7772: );
7773: hr_utility.TRACE ( 'daily_earning_cap:'
7774: || daily_earning_cap
7775: );
7776: hr_utility.TRACE ( 'prev_daily_cap:'
7777: || prev_daily_cap
7772: );
7773: hr_utility.TRACE ( 'daily_earning_cap:'
7774: || daily_earning_cap
7775: );
7776: hr_utility.TRACE ( 'prev_daily_cap:'
7777: || prev_daily_cap
7778: );
7779: END IF;
7780:
7782: daily_earning_cap - prev_daily_cap
7783: THEN
7784: IF g_debug
7785: THEN
7786: hr_utility.set_location (l_proc, 402);
7787: END IF;
7788:
7789: hrs_already_paid := TRUE;
7790: hours_for_points := 0;
7791: segment_points := 0;
7792: ELSE
7793: IF g_debug
7794: THEN
7795: hr_utility.set_location (l_proc, 402.1);
7796: END IF;
7797:
7798: hrs_already_paid := FALSE;
7799: END IF;
7800: END IF;
7801:
7802: IF g_debug
7803: THEN
7804: hr_utility.set_location (l_proc, 403);
7805: hr_utility.TRACE ( 'hours_for_points :'
7806: || hours_for_points
7807: );
7808: END IF;
7801:
7802: IF g_debug
7803: THEN
7804: hr_utility.set_location (l_proc, 403);
7805: hr_utility.TRACE ( 'hours_for_points :'
7806: || hours_for_points
7807: );
7808: END IF;
7809: END IF;
7809: END IF;
7810:
7811: IF g_debug
7812: THEN
7813: hr_utility.set_location (l_proc, 405);
7814: hr_utility.TRACE ('segment_points:' || segment_points);
7815: END IF;
7816:
7817: IF hrs_already_paid = FALSE
7810:
7811: IF g_debug
7812: THEN
7813: hr_utility.set_location (l_proc, 405);
7814: hr_utility.TRACE ('segment_points:' || segment_points);
7815: END IF;
7816:
7817: IF hrs_already_paid = FALSE
7818: THEN
7817: IF hrs_already_paid = FALSE
7818: THEN
7819: IF g_debug
7820: THEN
7821: hr_utility.set_location (l_proc, 410);
7822: END IF;
7823:
7824: hours_left := (hours_left - (hours_for_points));
7825:
7824: hours_left := (hours_left - (hours_for_points));
7825:
7826: IF g_debug
7827: THEN
7828: hr_utility.TRACE ('hours_left :' || hours_left);
7829: END IF;
7830:
7831: SELECT NVL (points_assigned, 0)
7832: INTO l_points_assigned
7836: AND aei.effective_end_date;
7837:
7838: IF g_debug
7839: THEN
7840: hr_utility.TRACE ( 'l_points_assigned :'
7841: || l_points_assigned
7842: );
7843: END IF;
7844:
7845: segment_points := hours_for_points * l_points_assigned;
7846:
7847: IF g_debug
7848: THEN
7849: hr_utility.TRACE ( 'segment_points :'
7850: || segment_points
7851: );
7852: END IF;
7853:
7860: FOR i IN 1 .. g_daily_earn_category.COUNT
7861: LOOP
7862: IF g_debug
7863: THEN
7864: hr_utility.set_location (l_proc, 420);
7865: hr_utility.TRACE ( 'daily_element_type_id:'
7866: || daily_element_type_id
7867: );
7868: hr_utility.TRACE
7861: LOOP
7862: IF g_debug
7863: THEN
7864: hr_utility.set_location (l_proc, 420);
7865: hr_utility.TRACE ( 'daily_element_type_id:'
7866: || daily_element_type_id
7867: );
7868: hr_utility.TRACE
7869: ( 'g_daily_earn_category(i).element_type_id:'
7864: hr_utility.set_location (l_proc, 420);
7865: hr_utility.TRACE ( 'daily_element_type_id:'
7866: || daily_element_type_id
7867: );
7868: hr_utility.TRACE
7869: ( 'g_daily_earn_category(i).element_type_id:'
7870: || g_daily_earn_category (i).element_type_id
7871: );
7872: END IF;
7875: daily_element_type_id
7876: THEN
7877: IF g_debug
7878: THEN
7879: hr_utility.set_location (l_proc, 430);
7880: END IF;
7881:
7882: g_daily_explosion (l_daily_index).earning_category :=
7883: g_daily_earn_category (i).earning_category;
7884: END IF;
7885:
7886: IF g_debug
7887: THEN
7888: hr_utility.set_location (l_proc, 440);
7889: END IF;
7890: END LOOP;
7891:
7892: IF g_debug
7890: END LOOP;
7891:
7892: IF g_debug
7893: THEN
7894: hr_utility.set_location (l_proc, 450);
7895: END IF;
7896:
7897: FOR i IN 1 .. g_daily_explosion.COUNT
7898: LOOP
7897: FOR i IN 1 .. g_daily_explosion.COUNT
7898: LOOP
7899: IF g_debug
7900: THEN
7901: hr_utility.set_location (l_proc, 460);
7902: hr_utility.TRACE
7903: ( 'daily_element_type_id:'
7904: || g_daily_explosion (i).element_type_id
7905: );
7898: LOOP
7899: IF g_debug
7900: THEN
7901: hr_utility.set_location (l_proc, 460);
7902: hr_utility.TRACE
7903: ( 'daily_element_type_id:'
7904: || g_daily_explosion (i).element_type_id
7905: );
7906: hr_utility.TRACE
7902: hr_utility.TRACE
7903: ( 'daily_element_type_id:'
7904: || g_daily_explosion (i).element_type_id
7905: );
7906: hr_utility.TRACE
7907: ( 'hours_to_pay in plsql table:'
7908: || g_daily_explosion (i).hours_to_pay
7909: );
7910: hr_utility.set_location (l_proc, 470);
7906: hr_utility.TRACE
7907: ( 'hours_to_pay in plsql table:'
7908: || g_daily_explosion (i).hours_to_pay
7909: );
7910: hr_utility.set_location (l_proc, 470);
7911: END IF;
7912: END LOOP;
7913:
7914: IF g_debug
7912: END LOOP;
7913:
7914: IF g_debug
7915: THEN
7916: hr_utility.set_location (l_proc, 480);
7917: END IF;
7918:
7919: -- Added the following for bug 2853355.
7920: IF g_debug
7918:
7919: -- Added the following for bug 2853355.
7920: IF g_debug
7921: THEN
7922: hr_utility.set_location (l_proc, 490);
7923: hr_utility.TRACE ( 'hours_paid_for_day:'
7924: || hours_paid_for_day
7925: );
7926: hr_utility.TRACE ( 'hours_for_points:'
7919: -- Added the following for bug 2853355.
7920: IF g_debug
7921: THEN
7922: hr_utility.set_location (l_proc, 490);
7923: hr_utility.TRACE ( 'hours_paid_for_day:'
7924: || hours_paid_for_day
7925: );
7926: hr_utility.TRACE ( 'hours_for_points:'
7927: || hours_for_points
7922: hr_utility.set_location (l_proc, 490);
7923: hr_utility.TRACE ( 'hours_paid_for_day:'
7924: || hours_paid_for_day
7925: );
7926: hr_utility.TRACE ( 'hours_for_points:'
7927: || hours_for_points
7928: );
7929: hr_utility.TRACE ( 'l_override_hrs:'
7930: || l_override_hrs
7925: );
7926: hr_utility.TRACE ( 'hours_for_points:'
7927: || hours_for_points
7928: );
7929: hr_utility.TRACE ( 'l_override_hrs:'
7930: || l_override_hrs
7931: );
7932: END IF;
7933:
7935: hours_paid_for_day + hours_for_points;
7936:
7937: IF g_debug
7938: THEN
7939: hr_utility.TRACE ( 'hours_paid_for_day:'
7940: || hours_paid_for_day
7941: );
7942: hr_utility.set_location (l_proc, 500);
7943: END IF;
7938: THEN
7939: hr_utility.TRACE ( 'hours_paid_for_day:'
7940: || hours_paid_for_day
7941: );
7942: hr_utility.set_location (l_proc, 500);
7943: END IF;
7944: END IF;
7945: END IF;
7946:
7945: END IF;
7946:
7947: IF g_debug
7948: THEN
7949: hr_utility.set_location (l_proc, 510);
7950: END IF;
7951:
7952: total_daily_points := total_daily_points + segment_points;
7953:
7952: total_daily_points := total_daily_points + segment_points;
7953:
7954: IF g_debug
7955: THEN
7956: hr_utility.TRACE ( 'total_daily_points :'
7957: || total_daily_points
7958: );
7959: END IF;
7960:
7961: prev_daily_cap := daily_earning_cap;
7962:
7963: IF g_debug
7964: THEN
7965: hr_utility.TRACE ('prev_daily_cap:' || prev_daily_cap);
7966: END IF;
7967:
7968: IF g_debug
7969: THEN
7966: END IF;
7967:
7968: IF g_debug
7969: THEN
7970: hr_utility.TRACE ( 'total_hours_to_pay :'
7971: || total_hours_to_pay
7972: );
7973: hr_utility.TRACE ( 'hours_paid_for_day :'
7974: || hours_paid_for_day
7969: THEN
7970: hr_utility.TRACE ( 'total_hours_to_pay :'
7971: || total_hours_to_pay
7972: );
7973: hr_utility.TRACE ( 'hours_paid_for_day :'
7974: || hours_paid_for_day
7975: );
7976: END IF;
7977:
7978: -- EXIT WHEN hours_paid_for_day = g_hours;
7979: -- EXIT WHEN total_hours_to_pay = hours_paid_for_day;
7980: IF g_debug
7981: THEN
7982: hr_utility.set_location (l_proc, 520);
7983: END IF;
7984: END LOOP;
7985:
7986: IF g_debug
7984: END LOOP;
7985:
7986: IF g_debug
7987: THEN
7988: hr_utility.set_location (l_proc, 530);
7989: END IF;
7990:
7991: CLOSE daily_earning_rules;
7992:
7997: ---------------------------BEGIN Weekly Points Calculation----------------------
7998: --
7999: IF g_debug
8000: THEN
8001: hr_utility.TRACE ('use_weekly_REG:' || use_weekly_reg);
8002: hr_utility.TRACE ('use_weekly_OT:' || use_weekly_ot);
8003: hr_utility.TRACE ('use_weekly_DT:' || use_weekly_dt);
8004: hr_utility.TRACE ('l_weekly_reg_cap:' || l_weekly_reg_cap);
8005: END IF;
7998: --
7999: IF g_debug
8000: THEN
8001: hr_utility.TRACE ('use_weekly_REG:' || use_weekly_reg);
8002: hr_utility.TRACE ('use_weekly_OT:' || use_weekly_ot);
8003: hr_utility.TRACE ('use_weekly_DT:' || use_weekly_dt);
8004: hr_utility.TRACE ('l_weekly_reg_cap:' || l_weekly_reg_cap);
8005: END IF;
8006:
7999: IF g_debug
8000: THEN
8001: hr_utility.TRACE ('use_weekly_REG:' || use_weekly_reg);
8002: hr_utility.TRACE ('use_weekly_OT:' || use_weekly_ot);
8003: hr_utility.TRACE ('use_weekly_DT:' || use_weekly_dt);
8004: hr_utility.TRACE ('l_weekly_reg_cap:' || l_weekly_reg_cap);
8005: END IF;
8006:
8007: -- Initialize the variables before calculating the weekly points
8000: THEN
8001: hr_utility.TRACE ('use_weekly_REG:' || use_weekly_reg);
8002: hr_utility.TRACE ('use_weekly_OT:' || use_weekly_ot);
8003: hr_utility.TRACE ('use_weekly_DT:' || use_weekly_dt);
8004: hr_utility.TRACE ('l_weekly_reg_cap:' || l_weekly_reg_cap);
8005: END IF;
8006:
8007: -- Initialize the variables before calculating the weekly points
8008: init_for_wkl_combine_pts_cal (use_weekly_reg,
8023: );
8024:
8025: IF g_debug
8026: THEN
8027: hr_utility.TRACE ( 'l_dy_wk_reg_elem_id:'
8028: || l_dy_wk_reg_elem_id
8029: );
8030: hr_utility.TRACE ( 'l_dy_wk_ovt_elem_id:'
8031: || l_dy_wk_ovt_elem_id
8026: THEN
8027: hr_utility.TRACE ( 'l_dy_wk_reg_elem_id:'
8028: || l_dy_wk_reg_elem_id
8029: );
8030: hr_utility.TRACE ( 'l_dy_wk_ovt_elem_id:'
8031: || l_dy_wk_ovt_elem_id
8032: );
8033: hr_utility.TRACE ('l_dy_wk_dt_elem_id:'
8034: || l_dy_wk_dt_elem_id
8029: );
8030: hr_utility.TRACE ( 'l_dy_wk_ovt_elem_id:'
8031: || l_dy_wk_ovt_elem_id
8032: );
8033: hr_utility.TRACE ('l_dy_wk_dt_elem_id:'
8034: || l_dy_wk_dt_elem_id
8035: );
8036: hr_utility.TRACE ('use_daily_reg:' || use_daily_reg);
8037: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8032: );
8033: hr_utility.TRACE ('l_dy_wk_dt_elem_id:'
8034: || l_dy_wk_dt_elem_id
8035: );
8036: hr_utility.TRACE ('use_daily_reg:' || use_daily_reg);
8037: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8038: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8039: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8040: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8033: hr_utility.TRACE ('l_dy_wk_dt_elem_id:'
8034: || l_dy_wk_dt_elem_id
8035: );
8036: hr_utility.TRACE ('use_daily_reg:' || use_daily_reg);
8037: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8038: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8039: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8040: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8041: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8034: || l_dy_wk_dt_elem_id
8035: );
8036: hr_utility.TRACE ('use_daily_reg:' || use_daily_reg);
8037: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8038: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8039: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8040: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8041: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8042: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8035: );
8036: hr_utility.TRACE ('use_daily_reg:' || use_daily_reg);
8037: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8038: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8039: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8040: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8041: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8042: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8043: || wky_reg_incl_dy_reg_expl
8036: hr_utility.TRACE ('use_daily_reg:' || use_daily_reg);
8037: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8038: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8039: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8040: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8041: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8042: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8043: || wky_reg_incl_dy_reg_expl
8044: );
8037: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8038: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8039: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8040: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8041: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8042: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8043: || wky_reg_incl_dy_reg_expl
8044: );
8045: hr_utility.TRACE ('l_weekly_REG_hrs:' || l_weekly_reg_hrs);
8038: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8039: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8040: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8041: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8042: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8043: || wky_reg_incl_dy_reg_expl
8044: );
8045: hr_utility.TRACE ('l_weekly_REG_hrs:' || l_weekly_reg_hrs);
8046: END IF;
8041: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8042: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8043: || wky_reg_incl_dy_reg_expl
8044: );
8045: hr_utility.TRACE ('l_weekly_REG_hrs:' || l_weekly_reg_hrs);
8046: END IF;
8047:
8048: OPEN weekly_earning_rules (g_ep_id);
8049:
8048: OPEN weekly_earning_rules (g_ep_id);
8049:
8050: IF g_debug
8051: THEN
8052: hr_utility.set_location (l_proc, 620);
8053: END IF;
8054:
8055: -- Commented out the following. Instead calling the adjust_for_hdp funtion
8056: -- to determine the hours that are left to be paid, since hours need to be
8060: hours_left := p_hours_worked;
8061:
8062: IF g_debug
8063: THEN
8064: hr_utility.TRACE ('hours_left :' || hours_left);
8065: END IF;
8066:
8067: -- line added for bug 2822172
8068: hours_for_points := 0;
8069:
8070: LOOP
8071: IF g_debug
8072: THEN
8073: hr_utility.set_location (l_proc, 625);
8074: END IF;
8075:
8076: j := j + 1;
8077:
8079: INTO weekly_earning_cap, weekly_element_type_id;
8080:
8081: IF g_debug
8082: THEN
8083: hr_utility.TRACE ( 'weekly_earning_cap :'
8084: || weekly_earning_cap
8085: );
8086: hr_utility.TRACE ( 'weekly_element_type_id :'
8087: || weekly_element_type_id
8082: THEN
8083: hr_utility.TRACE ( 'weekly_earning_cap :'
8084: || weekly_earning_cap
8085: );
8086: hr_utility.TRACE ( 'weekly_element_type_id :'
8087: || weekly_element_type_id
8088: );
8089: END IF;
8090:
8091: -- line commented for bug 2822172
8092: -- IF j = 1 THEN
8093: IF g_debug
8094: THEN
8095: hr_utility.set_location (l_proc, 630);
8096: hr_utility.TRACE ( 'get_weekly_total_prev_days:'
8097: || get_weekly_total_prev_days
8098: );
8099: hr_utility.TRACE ( 'previous_detail_hours_day:'
8092: -- IF j = 1 THEN
8093: IF g_debug
8094: THEN
8095: hr_utility.set_location (l_proc, 630);
8096: hr_utility.TRACE ( 'get_weekly_total_prev_days:'
8097: || get_weekly_total_prev_days
8098: );
8099: hr_utility.TRACE ( 'previous_detail_hours_day:'
8100: || previous_detail_hours_day
8095: hr_utility.set_location (l_proc, 630);
8096: hr_utility.TRACE ( 'get_weekly_total_prev_days:'
8097: || get_weekly_total_prev_days
8098: );
8099: hr_utility.TRACE ( 'previous_detail_hours_day:'
8100: || previous_detail_hours_day
8101: );
8102: hr_utility.TRACE ('hours_for_points:' || hours_for_points);
8103: END IF;
8098: );
8099: hr_utility.TRACE ( 'previous_detail_hours_day:'
8100: || previous_detail_hours_day
8101: );
8102: hr_utility.TRACE ('hours_for_points:' || hours_for_points);
8103: END IF;
8104:
8105: -- line changed for bug 2822172
8106: -- hours_paid_for_week := get_weekly_total;
8112: -- line commented for bug 2822172
8113: -- END IF;
8114: IF g_debug
8115: THEN
8116: hr_utility.set_location (l_proc, 635);
8117: hr_utility.TRACE ( 'hours_paid_for_week :'
8118: || hours_paid_for_week
8119: );
8120: hr_utility.TRACE ('g_hours :' || g_hours);
8113: -- END IF;
8114: IF g_debug
8115: THEN
8116: hr_utility.set_location (l_proc, 635);
8117: hr_utility.TRACE ( 'hours_paid_for_week :'
8118: || hours_paid_for_week
8119: );
8120: hr_utility.TRACE ('g_hours :' || g_hours);
8121: END IF;
8116: hr_utility.set_location (l_proc, 635);
8117: hr_utility.TRACE ( 'hours_paid_for_week :'
8118: || hours_paid_for_week
8119: );
8120: hr_utility.TRACE ('g_hours :' || g_hours);
8121: END IF;
8122:
8123: -- Following condition modified for bug 3868995
8124: -- EXIT WHEN hours_left = 0;
8125: EXIT WHEN hours_left = 0 AND j > 1;
8126:
8127: IF g_debug
8128: THEN
8129: hr_utility.set_location (l_proc, 640);
8130: END IF;
8131:
8132: -- Following condition modified for bug 3868995
8133: -- IF hours_left > 0 THEN
8134: IF hours_left >= 0
8135: THEN
8136: IF g_debug
8137: THEN
8138: hr_utility.set_location (l_proc, 645);
8139: END IF;
8140:
8141: IF (hours_paid_for_week - l_override_hrs) >=
8142: weekly_earning_cap
8143: OR l_weekly_total >= weekly_earning_cap
8144: THEN
8145: IF g_debug
8146: THEN
8147: hr_utility.set_location (l_proc, 650);
8148: END IF;
8149:
8150: -- line changed for bug 2822172
8151: OPEN weekly_earning_rules2 (g_ep_id,
8156: INTO weekly_earning_cap2, weekly_element_type_id;
8157:
8158: IF g_debug
8159: THEN
8160: hr_utility.TRACE ( 'weekly_earning_cap2 :'
8161: || weekly_earning_cap2
8162: );
8163: hr_utility.TRACE ( 'weekly_element_type_id :'
8164: || weekly_element_type_id
8159: THEN
8160: hr_utility.TRACE ( 'weekly_earning_cap2 :'
8161: || weekly_earning_cap2
8162: );
8163: hr_utility.TRACE ( 'weekly_element_type_id :'
8164: || weekly_element_type_id
8165: );
8166: END IF;
8167:
8185: -- hours_for_points := hours_left;
8186: -- END ADDED BY MV TO AVOID INFINITE LOOP
8187: IF g_debug
8188: THEN
8189: hr_utility.TRACE ( 'hours_for_points :'
8190: || hours_for_points
8191: );
8192: END IF;
8193: ELSE
8192: END IF;
8193: ELSE
8194: IF g_debug
8195: THEN
8196: hr_utility.set_location (l_proc, 655);
8197: END IF;
8198:
8199: IF weekly_element_type_id = l_override_element
8200: THEN
8204: )
8205: THEN
8206: IF g_debug
8207: THEN
8208: hr_utility.set_location (l_proc, 655.1);
8209: END IF;
8210:
8211: hours_for_points :=
8212: LEAST (hours_left,
8216: );
8217: ELSE
8218: IF g_debug
8219: THEN
8220: hr_utility.set_location (l_proc, 655.2);
8221: END IF;
8222:
8223: hours_for_points :=
8224: LEAST (hours_left,
8231: END IF;
8232: ELSE
8233: IF g_debug
8234: THEN
8235: hr_utility.set_location (l_proc, 655.3);
8236: END IF;
8237:
8238: hours_for_points :=
8239: LEAST (hours_left,
8245: END IF;
8246:
8247: IF g_debug
8248: THEN
8249: hr_utility.TRACE ( 'hours_for_points :'
8250: || hours_for_points
8251: );
8252: END IF;
8253:
8267: AND hours_for_points > l_override_hrs
8268: THEN
8269: IF g_debug
8270: THEN
8271: hr_utility.set_location (l_proc, 656);
8272: END IF;
8273:
8274: hrs_already_paid := FALSE;
8275: hours_for_points :=
8278: AND hours_for_points <= l_override_hrs
8279: THEN
8280: IF g_debug
8281: THEN
8282: hr_utility.TRACE ( 'l_override_hrs:'
8283: || l_override_hrs
8284: );
8285: hr_utility.TRACE ( 'weekly_earning_cap:'
8286: || weekly_earning_cap
8281: THEN
8282: hr_utility.TRACE ( 'l_override_hrs:'
8283: || l_override_hrs
8284: );
8285: hr_utility.TRACE ( 'weekly_earning_cap:'
8286: || weekly_earning_cap
8287: );
8288: hr_utility.TRACE ( 'prev_weekly_cap:'
8289: || prev_weekly_cap
8284: );
8285: hr_utility.TRACE ( 'weekly_earning_cap:'
8286: || weekly_earning_cap
8287: );
8288: hr_utility.TRACE ( 'prev_weekly_cap:'
8289: || prev_weekly_cap
8290: );
8291: END IF;
8292:
8294: weekly_earning_cap - prev_weekly_cap
8295: THEN
8296: IF g_debug
8297: THEN
8298: hr_utility.set_location (l_proc, 657);
8299: END IF;
8300:
8301: hrs_already_paid := TRUE;
8302: hours_for_points := 0;
8303: segment_points := 0;
8304: ELSE
8305: IF g_debug
8306: THEN
8307: hr_utility.set_location (l_proc, 658);
8308: END IF;
8309:
8310: hrs_already_paid := FALSE;
8311: END IF;
8312: END IF;
8313:
8314: IF g_debug
8315: THEN
8316: hr_utility.set_location (l_proc, 659);
8317: hr_utility.TRACE ( 'hours_for_points :'
8318: || hours_for_points
8319: );
8320: END IF;
8313:
8314: IF g_debug
8315: THEN
8316: hr_utility.set_location (l_proc, 659);
8317: hr_utility.TRACE ( 'hours_for_points :'
8318: || hours_for_points
8319: );
8320: END IF;
8321: END IF;
8325: LEAST (hours_left,
8326: (weekly_earning_cap - hours_paid_for_week
8327: )
8328: );
8329: hr_utility.TRACE ( 'hours_for_points :'
8330: || hours_for_points
8331: );
8332: END IF;
8333: */
8332: END IF;
8333: */
8334: IF g_debug
8335: THEN
8336: hr_utility.set_location (l_proc, 659.1);
8337: hr_utility.TRACE ('segment_points:' || segment_points);
8338: END IF;
8339:
8340: IF hrs_already_paid = FALSE
8333: */
8334: IF g_debug
8335: THEN
8336: hr_utility.set_location (l_proc, 659.1);
8337: hr_utility.TRACE ('segment_points:' || segment_points);
8338: END IF;
8339:
8340: IF hrs_already_paid = FALSE
8341: THEN
8340: IF hrs_already_paid = FALSE
8341: THEN
8342: IF g_debug
8343: THEN
8344: hr_utility.set_location (l_proc, 660);
8345: END IF;
8346:
8347: hours_left :=
8348: (hours_left - hours_for_points - l_left_over_hours
8349: );
8350:
8351: IF g_debug
8352: THEN
8353: hr_utility.TRACE ('hours_left :' || hours_left);
8354: END IF;
8355:
8356: -- Added the following FOR LOOP to determine the elements that
8357: -- need to be paid when the Daily(REG,OT,DT) and Weekly(REG,OT,DT)
8359: FOR i IN 1 .. g_weekly_earn_category.COUNT
8360: LOOP
8361: IF g_debug
8362: THEN
8363: hr_utility.set_location (l_proc, 661);
8364: hr_utility.TRACE
8365: ( 'g_weekly_earn_category(i).element_type_id:'
8366: || g_weekly_earn_category (i).element_type_id
8367: );
8360: LOOP
8361: IF g_debug
8362: THEN
8363: hr_utility.set_location (l_proc, 661);
8364: hr_utility.TRACE
8365: ( 'g_weekly_earn_category(i).element_type_id:'
8366: || g_weekly_earn_category (i).element_type_id
8367: );
8368: hr_utility.TRACE
8364: hr_utility.TRACE
8365: ( 'g_weekly_earn_category(i).element_type_id:'
8366: || g_weekly_earn_category (i).element_type_id
8367: );
8368: hr_utility.TRACE
8369: ( 'g_weekly_earn_category(i).earning_category:'
8370: || g_weekly_earn_category (i).earning_category
8371: );
8372: hr_utility.TRACE ( 'weekly_element_type_id:'
8368: hr_utility.TRACE
8369: ( 'g_weekly_earn_category(i).earning_category:'
8370: || g_weekly_earn_category (i).earning_category
8371: );
8372: hr_utility.TRACE ( 'weekly_element_type_id:'
8373: || weekly_element_type_id
8374: );
8375: hr_utility.TRACE ( 'use_daily_REG:'
8376: || use_daily_reg
8371: );
8372: hr_utility.TRACE ( 'weekly_element_type_id:'
8373: || weekly_element_type_id
8374: );
8375: hr_utility.TRACE ( 'use_daily_REG:'
8376: || use_daily_reg
8377: );
8378: hr_utility.TRACE ('use_daily_OT:'
8379: || use_daily_ot
8374: );
8375: hr_utility.TRACE ( 'use_daily_REG:'
8376: || use_daily_reg
8377: );
8378: hr_utility.TRACE ('use_daily_OT:'
8379: || use_daily_ot
8380: );
8381: hr_utility.TRACE ('use_daily_DT:'
8382: || use_daily_dt
8377: );
8378: hr_utility.TRACE ('use_daily_OT:'
8379: || use_daily_ot
8380: );
8381: hr_utility.TRACE ('use_daily_DT:'
8382: || use_daily_dt
8383: );
8384: hr_utility.TRACE ( 'use_weekly_REG:'
8385: || use_weekly_reg
8380: );
8381: hr_utility.TRACE ('use_daily_DT:'
8382: || use_daily_dt
8383: );
8384: hr_utility.TRACE ( 'use_weekly_REG:'
8385: || use_weekly_reg
8386: );
8387: hr_utility.TRACE ( 'use_weekly_OT:'
8388: || use_weekly_ot
8383: );
8384: hr_utility.TRACE ( 'use_weekly_REG:'
8385: || use_weekly_reg
8386: );
8387: hr_utility.TRACE ( 'use_weekly_OT:'
8388: || use_weekly_ot
8389: );
8390: hr_utility.TRACE ( 'use_weekly_DT:'
8391: || use_weekly_dt
8386: );
8387: hr_utility.TRACE ( 'use_weekly_OT:'
8388: || use_weekly_ot
8389: );
8390: hr_utility.TRACE ( 'use_weekly_DT:'
8391: || use_weekly_dt
8392: );
8393: END IF;
8394:
8399: AND use_daily_reg = 'Y'
8400: THEN
8401: IF g_debug
8402: THEN
8403: hr_utility.set_location (l_proc, 662);
8404: END IF;
8405:
8406: weekly_element_type_id := l_dy_wk_reg_elem_id;
8407: EXIT;
8412: AND use_daily_ot = 'Y'
8413: THEN
8414: IF g_debug
8415: THEN
8416: hr_utility.set_location (l_proc, 663);
8417: END IF;
8418:
8419: weekly_element_type_id := l_dy_wk_ovt_elem_id;
8420: EXIT;
8425: AND use_daily_dt = 'Y'
8426: THEN
8427: IF g_debug
8428: THEN
8429: hr_utility.set_location (l_proc, 664);
8430: END IF;
8431:
8432: weekly_element_type_id := l_dy_wk_dt_elem_id;
8433: EXIT;
8434: END IF;
8435:
8436: IF g_debug
8437: THEN
8438: hr_utility.set_location (l_proc, 665);
8439: END IF;
8440: END LOOP;
8441:
8442: IF g_debug
8440: END LOOP;
8441:
8442: IF g_debug
8443: THEN
8444: hr_utility.set_location (l_proc, 670);
8445: hr_utility.TRACE ( 'weekly_element_type_id:'
8446: || weekly_element_type_id
8447: );
8448: END IF;
8441:
8442: IF g_debug
8443: THEN
8444: hr_utility.set_location (l_proc, 670);
8445: hr_utility.TRACE ( 'weekly_element_type_id:'
8446: || weekly_element_type_id
8447: );
8448: END IF;
8449:
8455: AND aei.effective_end_date;
8456:
8457: IF g_debug
8458: THEN
8459: hr_utility.TRACE ( 'l_points_assigned :'
8460: || l_points_assigned
8461: );
8462: END IF;
8463:
8464: segment_points := hours_for_points * l_points_assigned;
8465:
8466: IF g_debug
8467: THEN
8468: hr_utility.TRACE ( 'segment_points :'
8469: || segment_points
8470: );
8471: END IF;
8472:
8479: FOR i IN 1 .. g_weekly_earn_category.COUNT
8480: LOOP
8481: IF g_debug
8482: THEN
8483: hr_utility.set_location (l_proc, 675);
8484: hr_utility.TRACE ( 'weekly_element_type_id:'
8485: || weekly_element_type_id
8486: );
8487: hr_utility.TRACE
8480: LOOP
8481: IF g_debug
8482: THEN
8483: hr_utility.set_location (l_proc, 675);
8484: hr_utility.TRACE ( 'weekly_element_type_id:'
8485: || weekly_element_type_id
8486: );
8487: hr_utility.TRACE
8488: ( 'g_weekly_earn_category(i).element_type_id:'
8483: hr_utility.set_location (l_proc, 675);
8484: hr_utility.TRACE ( 'weekly_element_type_id:'
8485: || weekly_element_type_id
8486: );
8487: hr_utility.TRACE
8488: ( 'g_weekly_earn_category(i).element_type_id:'
8489: || g_weekly_earn_category (i).element_type_id
8490: );
8491: END IF;
8494: weekly_element_type_id
8495: THEN
8496: IF g_debug
8497: THEN
8498: hr_utility.set_location (l_proc, 680);
8499: END IF;
8500:
8501: g_weekly_explosion (l_weekly_index).earning_category :=
8502: g_weekly_earn_category (i).earning_category;
8503: END IF;
8504:
8505: IF g_debug
8506: THEN
8507: hr_utility.set_location (l_proc, 685);
8508: END IF;
8509: END LOOP;
8510:
8511: FOR i IN 1 .. g_weekly_explosion.COUNT
8511: FOR i IN 1 .. g_weekly_explosion.COUNT
8512: LOOP
8513: IF g_debug
8514: THEN
8515: hr_utility.TRACE
8516: ( 'weekly_element_type_id:'
8517: || g_weekly_explosion (i).element_type_id
8518: );
8519: hr_utility.TRACE
8515: hr_utility.TRACE
8516: ( 'weekly_element_type_id:'
8517: || g_weekly_explosion (i).element_type_id
8518: );
8519: hr_utility.TRACE
8520: ( 'hours_to_pay in plsql table:'
8521: || g_weekly_explosion (i).hours_to_pay
8522: );
8523: hr_utility.TRACE
8519: hr_utility.TRACE
8520: ( 'hours_to_pay in plsql table:'
8521: || g_weekly_explosion (i).hours_to_pay
8522: );
8523: hr_utility.TRACE
8524: ( 'earning_category:'
8525: || g_weekly_explosion (i).earning_category
8526: );
8527: END IF;
8529:
8530: -- hours_paid_for_week := hours_paid_for_week + hours_for_points;
8531: IF g_debug
8532: THEN
8533: hr_utility.TRACE ( 'hours_paid_for_week:'
8534: || hours_paid_for_week
8535: );
8536: hr_utility.TRACE ( 'hours_for_points:'
8537: || hours_for_points
8532: THEN
8533: hr_utility.TRACE ( 'hours_paid_for_week:'
8534: || hours_paid_for_week
8535: );
8536: hr_utility.TRACE ( 'hours_for_points:'
8537: || hours_for_points
8538: );
8539: hr_utility.TRACE ( 'l_override_hrs:'
8540: || l_override_hrs
8535: );
8536: hr_utility.TRACE ( 'hours_for_points:'
8537: || hours_for_points
8538: );
8539: hr_utility.TRACE ( 'l_override_hrs:'
8540: || l_override_hrs
8541: );
8542: END IF;
8543:
8545: hours_paid_for_week + hours_for_points;
8546:
8547: IF g_debug
8548: THEN
8549: hr_utility.TRACE ( 'l_weekly_total :'
8550: || l_weekly_total
8551: );
8552: END IF;
8553:
8555:
8556: LOOP
8557: IF g_debug
8558: THEN
8559: hr_utility.set_location (l_proc, 690);
8560: END IF;
8561:
8562: FETCH elements_in_earn_groups
8563: INTO l_element_type_id;
8565: EXIT WHEN elements_in_earn_groups%NOTFOUND;
8566:
8567: IF g_debug
8568: THEN
8569: hr_utility.TRACE ( 'l_element_type_id :'
8570: || l_element_type_id
8571: );
8572: hr_utility.TRACE ( 'hours_for_points :'
8573: || hours_for_points
8568: THEN
8569: hr_utility.TRACE ( 'l_element_type_id :'
8570: || l_element_type_id
8571: );
8572: hr_utility.TRACE ( 'hours_for_points :'
8573: || hours_for_points
8574: );
8575: hr_utility.TRACE ( 'hours_paid_for_week:'
8576: || hours_paid_for_week
8571: );
8572: hr_utility.TRACE ( 'hours_for_points :'
8573: || hours_for_points
8574: );
8575: hr_utility.TRACE ( 'hours_paid_for_week:'
8576: || hours_paid_for_week
8577: );
8578: END IF;
8579:
8580: IF weekly_element_type_id = l_element_type_id
8581: THEN
8582: IF g_debug
8583: THEN
8584: hr_utility.set_location (l_proc, 695);
8585: END IF;
8586:
8587: hours_paid_for_week :=
8588: hours_paid_for_week + hours_for_points;
8589: END IF;
8590:
8591: IF g_debug
8592: THEN
8593: hr_utility.TRACE ( 'hours_paid_for_week:'
8594: || hours_paid_for_week
8595: );
8596: hr_utility.set_location (l_proc, 700);
8597: END IF;
8592: THEN
8593: hr_utility.TRACE ( 'hours_paid_for_week:'
8594: || hours_paid_for_week
8595: );
8596: hr_utility.set_location (l_proc, 700);
8597: END IF;
8598: END LOOP;
8599:
8600: IF g_debug
8598: END LOOP;
8599:
8600: IF g_debug
8601: THEN
8602: hr_utility.set_location (l_proc, 710);
8603: END IF;
8604:
8605: CLOSE elements_in_earn_groups;
8606:
8605: CLOSE elements_in_earn_groups;
8606:
8607: IF g_debug
8608: THEN
8609: hr_utility.set_location (l_proc, 715);
8610: END IF;
8611: END IF;
8612: END IF;
8613:
8624: END IF;
8625:
8626: IF g_debug
8627: THEN
8628: hr_utility.set_location (l_proc, 720);
8629: END IF;
8630:
8631: total_weekly_points := total_weekly_points + segment_points;
8632:
8631: total_weekly_points := total_weekly_points + segment_points;
8632:
8633: IF g_debug
8634: THEN
8635: hr_utility.TRACE ( 'total_weekly_points :'
8636: || total_weekly_points
8637: );
8638: END IF;
8639: END LOOP;
8639: END LOOP;
8640:
8641: IF g_debug
8642: THEN
8643: hr_utility.set_location (l_proc, 725);
8644: hr_utility.TRACE ( 'total_daily_points :'
8645: || total_daily_points
8646: );
8647: hr_utility.TRACE ( 'total_weekly_points :'
8640:
8641: IF g_debug
8642: THEN
8643: hr_utility.set_location (l_proc, 725);
8644: hr_utility.TRACE ( 'total_daily_points :'
8645: || total_daily_points
8646: );
8647: hr_utility.TRACE ( 'total_weekly_points :'
8648: || total_weekly_points
8643: hr_utility.set_location (l_proc, 725);
8644: hr_utility.TRACE ( 'total_daily_points :'
8645: || total_daily_points
8646: );
8647: hr_utility.TRACE ( 'total_weekly_points :'
8648: || total_weekly_points
8649: );
8650: END IF;
8651:
8706: -- OT 4 + 1 = 5
8707: -- DT 1
8708: IF g_debug
8709: THEN
8710: hr_utility.TRACE
8711: ( 'fnd_profile.VALUE (''HXT_CA_LABOR_RULE''):'
8712: || fnd_profile.VALUE ('HXT_CA_LABOR_RULE')
8713: );
8714: END IF;
8718: IF (NVL (fnd_profile.VALUE ('HXT_CA_LABOR_RULE'), 'N') = 'Y')
8719: THEN
8720: IF g_debug
8721: THEN
8722: hr_utility.set_location (l_proc, 726);
8723: hr_utility.TRACE ('use_weekly_REG:' || use_weekly_reg);
8724: hr_utility.TRACE ('use_weekly_OT:' || use_weekly_ot);
8725: hr_utility.TRACE ('use_weekly_DT:' || use_weekly_dt);
8726: hr_utility.TRACE ('l_weekly_reg_cap:' || l_weekly_reg_cap
8719: THEN
8720: IF g_debug
8721: THEN
8722: hr_utility.set_location (l_proc, 726);
8723: hr_utility.TRACE ('use_weekly_REG:' || use_weekly_reg);
8724: hr_utility.TRACE ('use_weekly_OT:' || use_weekly_ot);
8725: hr_utility.TRACE ('use_weekly_DT:' || use_weekly_dt);
8726: hr_utility.TRACE ('l_weekly_reg_cap:' || l_weekly_reg_cap
8727: );
8720: IF g_debug
8721: THEN
8722: hr_utility.set_location (l_proc, 726);
8723: hr_utility.TRACE ('use_weekly_REG:' || use_weekly_reg);
8724: hr_utility.TRACE ('use_weekly_OT:' || use_weekly_ot);
8725: hr_utility.TRACE ('use_weekly_DT:' || use_weekly_dt);
8726: hr_utility.TRACE ('l_weekly_reg_cap:' || l_weekly_reg_cap
8727: );
8728: END IF;
8721: THEN
8722: hr_utility.set_location (l_proc, 726);
8723: hr_utility.TRACE ('use_weekly_REG:' || use_weekly_reg);
8724: hr_utility.TRACE ('use_weekly_OT:' || use_weekly_ot);
8725: hr_utility.TRACE ('use_weekly_DT:' || use_weekly_dt);
8726: hr_utility.TRACE ('l_weekly_reg_cap:' || l_weekly_reg_cap
8727: );
8728: END IF;
8729:
8722: hr_utility.set_location (l_proc, 726);
8723: hr_utility.TRACE ('use_weekly_REG:' || use_weekly_reg);
8724: hr_utility.TRACE ('use_weekly_OT:' || use_weekly_ot);
8725: hr_utility.TRACE ('use_weekly_DT:' || use_weekly_dt);
8726: hr_utility.TRACE ('l_weekly_reg_cap:' || l_weekly_reg_cap
8727: );
8728: END IF;
8729:
8730: -- Initialize the variables before calculating the combine points
8746: );
8747:
8748: IF g_debug
8749: THEN
8750: hr_utility.set_location (l_proc, 727);
8751: hr_utility.TRACE ( 'l_dy_wk_reg_elem_id:'
8752: || l_dy_wk_reg_elem_id
8753: );
8754: hr_utility.TRACE ( 'l_dy_wk_ovt_elem_id:'
8747:
8748: IF g_debug
8749: THEN
8750: hr_utility.set_location (l_proc, 727);
8751: hr_utility.TRACE ( 'l_dy_wk_reg_elem_id:'
8752: || l_dy_wk_reg_elem_id
8753: );
8754: hr_utility.TRACE ( 'l_dy_wk_ovt_elem_id:'
8755: || l_dy_wk_ovt_elem_id
8750: hr_utility.set_location (l_proc, 727);
8751: hr_utility.TRACE ( 'l_dy_wk_reg_elem_id:'
8752: || l_dy_wk_reg_elem_id
8753: );
8754: hr_utility.TRACE ( 'l_dy_wk_ovt_elem_id:'
8755: || l_dy_wk_ovt_elem_id
8756: );
8757: hr_utility.TRACE ( 'l_dy_wk_dt_elem_id:'
8758: || l_dy_wk_dt_elem_id
8753: );
8754: hr_utility.TRACE ( 'l_dy_wk_ovt_elem_id:'
8755: || l_dy_wk_ovt_elem_id
8756: );
8757: hr_utility.TRACE ( 'l_dy_wk_dt_elem_id:'
8758: || l_dy_wk_dt_elem_id
8759: );
8760: hr_utility.TRACE ('use_daily_reg:' || use_daily_reg);
8761: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8756: );
8757: hr_utility.TRACE ( 'l_dy_wk_dt_elem_id:'
8758: || l_dy_wk_dt_elem_id
8759: );
8760: hr_utility.TRACE ('use_daily_reg:' || use_daily_reg);
8761: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8762: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8763: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8764: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8757: hr_utility.TRACE ( 'l_dy_wk_dt_elem_id:'
8758: || l_dy_wk_dt_elem_id
8759: );
8760: hr_utility.TRACE ('use_daily_reg:' || use_daily_reg);
8761: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8762: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8763: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8764: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8765: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8758: || l_dy_wk_dt_elem_id
8759: );
8760: hr_utility.TRACE ('use_daily_reg:' || use_daily_reg);
8761: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8762: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8763: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8764: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8765: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8766: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8759: );
8760: hr_utility.TRACE ('use_daily_reg:' || use_daily_reg);
8761: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8762: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8763: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8764: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8765: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8766: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8767: || wky_reg_incl_dy_reg_expl
8760: hr_utility.TRACE ('use_daily_reg:' || use_daily_reg);
8761: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8762: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8763: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8764: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8765: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8766: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8767: || wky_reg_incl_dy_reg_expl
8768: );
8761: hr_utility.TRACE ('use_daily_ot:' || use_daily_ot);
8762: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8763: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8764: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8765: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8766: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8767: || wky_reg_incl_dy_reg_expl
8768: );
8769: hr_utility.TRACE ('l_weekly_REG_hrs:' || l_weekly_reg_hrs);
8762: hr_utility.TRACE ('use_daily_dt:' || use_daily_dt);
8763: hr_utility.TRACE ('l_reg_for_day:' || l_reg_for_day);
8764: hr_utility.TRACE ('l_ovt_for_day:' || l_ovt_for_day);
8765: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8766: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8767: || wky_reg_incl_dy_reg_expl
8768: );
8769: hr_utility.TRACE ('l_weekly_REG_hrs:' || l_weekly_reg_hrs);
8770: END IF;
8765: hr_utility.TRACE ('l_dt_for_day:' || l_dt_for_day);
8766: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8767: || wky_reg_incl_dy_reg_expl
8768: );
8769: hr_utility.TRACE ('l_weekly_REG_hrs:' || l_weekly_reg_hrs);
8770: END IF;
8771:
8772: FOR i IN 1 .. g_dy_wk_combo_explosion.COUNT
8773: LOOP
8772: FOR i IN 1 .. g_dy_wk_combo_explosion.COUNT
8773: LOOP
8774: IF g_debug
8775: THEN
8776: hr_utility.set_location (l_proc, 730);
8777: hr_utility.TRACE
8778: ( 'combo_element_type_id:'
8779: || g_dy_wk_combo_explosion (i).element_type_id
8780: );
8773: LOOP
8774: IF g_debug
8775: THEN
8776: hr_utility.set_location (l_proc, 730);
8777: hr_utility.TRACE
8778: ( 'combo_element_type_id:'
8779: || g_dy_wk_combo_explosion (i).element_type_id
8780: );
8781: hr_utility.TRACE
8777: hr_utility.TRACE
8778: ( 'combo_element_type_id:'
8779: || g_dy_wk_combo_explosion (i).element_type_id
8780: );
8781: hr_utility.TRACE
8782: ( 'hours_to_pay in plsql table:'
8783: || g_dy_wk_combo_explosion (i).hours_to_pay
8784: );
8785: END IF;
8786: END LOOP;
8787:
8788: IF g_debug
8789: THEN
8790: hr_utility.TRACE ( ' g_daily_explosion.COUNT:'
8791: || g_daily_explosion.COUNT
8792: );
8793: END IF;
8794:
8795: FOR i IN 1 .. g_daily_explosion.COUNT
8796: LOOP
8797: IF g_debug
8798: THEN
8799: hr_utility.set_location (l_proc, 735);
8800: hr_utility.TRACE
8801: ( 'daily_element_type_id:'
8802: || g_daily_explosion (i).element_type_id
8803: );
8796: LOOP
8797: IF g_debug
8798: THEN
8799: hr_utility.set_location (l_proc, 735);
8800: hr_utility.TRACE
8801: ( 'daily_element_type_id:'
8802: || g_daily_explosion (i).element_type_id
8803: );
8804: hr_utility.TRACE ( 'hours_to_pay in plsql table:'
8800: hr_utility.TRACE
8801: ( 'daily_element_type_id:'
8802: || g_daily_explosion (i).element_type_id
8803: );
8804: hr_utility.TRACE ( 'hours_to_pay in plsql table:'
8805: || g_daily_explosion (i).hours_to_pay
8806: );
8807: hr_utility.TRACE
8808: ( 'earning_category:'
8803: );
8804: hr_utility.TRACE ( 'hours_to_pay in plsql table:'
8805: || g_daily_explosion (i).hours_to_pay
8806: );
8807: hr_utility.TRACE
8808: ( 'earning_category:'
8809: || g_daily_explosion (i).earning_category
8810: );
8811: hr_utility.set_location (l_proc, 740);
8807: hr_utility.TRACE
8808: ( 'earning_category:'
8809: || g_daily_explosion (i).earning_category
8810: );
8811: hr_utility.set_location (l_proc, 740);
8812: END IF;
8813: END LOOP;
8814:
8815: OPEN weekly_earning_rules (g_ep_id);
8818: INTO weekly_earning_cap, weekly_element_type_id;
8819:
8820: IF g_debug
8821: THEN
8822: hr_utility.TRACE ( 'weekly_earning_cap:'
8823: || weekly_earning_cap
8824: );
8825: hr_utility.TRACE ( 'weekly_element_type_id:'
8826: || weekly_element_type_id
8821: THEN
8822: hr_utility.TRACE ( 'weekly_earning_cap:'
8823: || weekly_earning_cap
8824: );
8825: hr_utility.TRACE ( 'weekly_element_type_id:'
8826: || weekly_element_type_id
8827: );
8828: END IF;
8829:
8830: CLOSE weekly_earning_rules;
8831:
8832: IF g_debug
8833: THEN
8834: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8835: || wky_reg_incl_dy_reg_expl
8836: );
8837: hr_utility.TRACE ( 'weekly_earning_cap:'
8838: || weekly_earning_cap
8833: THEN
8834: hr_utility.TRACE ( 'wky_reg_incl_dy_reg_expl:'
8835: || wky_reg_incl_dy_reg_expl
8836: );
8837: hr_utility.TRACE ( 'weekly_earning_cap:'
8838: || weekly_earning_cap
8839: );
8840: END IF;
8841:
8846: OR g_hours = 0
8847: THEN
8848: IF g_debug
8849: THEN
8850: hr_utility.set_location (l_proc, 745);
8851: END IF;
8852:
8853: OPEN weekly_earning_rules (g_ep_id);
8854:
8855: hours_left := NVL(l_reg_for_day, 0); -- added NVL for 5441313
8856:
8857: IF g_debug
8858: THEN
8859: hr_utility.TRACE ('hours_left :' || hours_left);
8860: END IF;
8861:
8862: hours_for_points := 0;
8863:
8863:
8864: LOOP
8865: IF g_debug
8866: THEN
8867: hr_utility.set_location (l_proc, 750);
8868: END IF;
8869:
8870: k := k + 1;
8871:
8873: INTO weekly_earning_cap, weekly_element_type_id;
8874:
8875: IF g_debug
8876: THEN
8877: hr_utility.TRACE ( 'weekly_earning_cap :'
8878: || weekly_earning_cap
8879: );
8880: hr_utility.TRACE ( 'weekly_element_type_id :'
8881: || weekly_element_type_id
8876: THEN
8877: hr_utility.TRACE ( 'weekly_earning_cap :'
8878: || weekly_earning_cap
8879: );
8880: hr_utility.TRACE ( 'weekly_element_type_id :'
8881: || weekly_element_type_id
8882: );
8883: END IF;
8884:
8888: + hours_for_points;
8889:
8890: IF g_debug
8891: THEN
8892: hr_utility.set_location (l_proc, 755);
8893: hr_utility.TRACE ( 'hours_paid_for_week :'
8894: || hours_paid_for_week
8895: );
8896: hr_utility.TRACE ( 'g_hours :'
8889:
8890: IF g_debug
8891: THEN
8892: hr_utility.set_location (l_proc, 755);
8893: hr_utility.TRACE ( 'hours_paid_for_week :'
8894: || hours_paid_for_week
8895: );
8896: hr_utility.TRACE ( 'g_hours :'
8897: || g_hours
8892: hr_utility.set_location (l_proc, 755);
8893: hr_utility.TRACE ( 'hours_paid_for_week :'
8894: || hours_paid_for_week
8895: );
8896: hr_utility.TRACE ( 'g_hours :'
8897: || g_hours
8898: );
8899: END IF;
8900:
8901: EXIT WHEN hours_left = 0 AND k > 1;
8902:
8903: IF g_debug
8904: THEN
8905: hr_utility.set_location (l_proc, 760);
8906: END IF;
8907:
8908: IF hours_left >= 0
8909: THEN
8908: IF hours_left >= 0
8909: THEN
8910: IF g_debug
8911: THEN
8912: hr_utility.set_location (l_proc, 770);
8913: hr_utility.TRACE ( 'hours_paid_for_week :'
8914: || hours_paid_for_week
8915: );
8916: hr_utility.TRACE ( 'weekly_earning_cap :'
8909: THEN
8910: IF g_debug
8911: THEN
8912: hr_utility.set_location (l_proc, 770);
8913: hr_utility.TRACE ( 'hours_paid_for_week :'
8914: || hours_paid_for_week
8915: );
8916: hr_utility.TRACE ( 'weekly_earning_cap :'
8917: || weekly_earning_cap
8912: hr_utility.set_location (l_proc, 770);
8913: hr_utility.TRACE ( 'hours_paid_for_week :'
8914: || hours_paid_for_week
8915: );
8916: hr_utility.TRACE ( 'weekly_earning_cap :'
8917: || weekly_earning_cap
8918: );
8919: END IF;
8920:
8921: IF (hours_paid_for_week - l_override_hrs) >= weekly_earning_cap
8922: THEN
8923: IF g_debug
8924: THEN
8925: hr_utility.set_location (l_proc, 780);
8926: END IF;
8927:
8928: OPEN weekly_earning_rules2 (g_ep_id,
8929: hours_paid_for_week
8934: weekly_element_type_id;
8935:
8936: IF g_debug
8937: THEN
8938: hr_utility.TRACE
8939: ( 'weekly_earning_cap2 :'
8940: || weekly_earning_cap2
8941: );
8942: hr_utility.TRACE
8938: hr_utility.TRACE
8939: ( 'weekly_earning_cap2 :'
8940: || weekly_earning_cap2
8941: );
8942: hr_utility.TRACE
8943: ( 'weekly_element_type_id :'
8944: || weekly_element_type_id
8945: );
8946: END IF;
8957: IF (hours_for_points = 0)
8958: THEN
8959: IF g_debug
8960: THEN
8961: hr_utility.set_location (l_proc, 790);
8962: END IF;
8963:
8964: l_left_over_hours := hours_left;
8965: ELSE
8964: l_left_over_hours := hours_left;
8965: ELSE
8966: IF g_debug
8967: THEN
8968: hr_utility.set_location (l_proc, 800);
8969: END IF;
8970:
8971: l_left_over_hours := 0;
8972: END IF;
8972: END IF;
8973:
8974: IF g_debug
8975: THEN
8976: hr_utility.set_location (l_proc, 810);
8977: hr_utility.TRACE ( 'hours_for_points :'
8978: || hours_for_points
8979: );
8980: END IF;
8973:
8974: IF g_debug
8975: THEN
8976: hr_utility.set_location (l_proc, 810);
8977: hr_utility.TRACE ( 'hours_for_points :'
8978: || hours_for_points
8979: );
8980: END IF;
8981: ELSE
8980: END IF;
8981: ELSE
8982: IF g_debug
8983: THEN
8984: hr_utility.set_location (l_proc, 815);
8985: END IF;
8986:
8987: IF weekly_element_type_id = l_override_element
8988: THEN
8992: )
8993: THEN
8994: IF g_debug
8995: THEN
8996: hr_utility.set_location (l_proc, 815.1);
8997: END IF;
8998:
8999: hours_for_points :=
9000: LEAST (hours_left,
9004: );
9005: ELSE
9006: IF g_debug
9007: THEN
9008: hr_utility.set_location (l_proc, 815.2);
9009: END IF;
9010:
9011: hours_for_points :=
9012: LEAST (hours_left,
9019: END IF;
9020: ELSE
9021: IF g_debug
9022: THEN
9023: hr_utility.set_location (l_proc, 815.3);
9024: END IF;
9025:
9026: hours_for_points :=
9027: LEAST (hours_left,
9033: END IF;
9034:
9035: IF g_debug
9036: THEN
9037: hr_utility.TRACE ( 'hours_for_points :'
9038: || hours_for_points
9039: );
9040: END IF;
9041:
9056: AND hours_for_points > l_override_hrs
9057: THEN
9058: IF g_debug
9059: THEN
9060: hr_utility.set_location (l_proc, 816);
9061: END IF;
9062:
9063: hrs_already_paid := FALSE;
9064: hours_for_points :=
9067: AND hours_for_points <= l_override_hrs
9068: THEN
9069: IF g_debug
9070: THEN
9071: hr_utility.TRACE ( 'l_override_hrs:'
9072: || l_override_hrs
9073: );
9074: hr_utility.TRACE ( 'weekly_earning_cap:'
9075: || weekly_earning_cap
9070: THEN
9071: hr_utility.TRACE ( 'l_override_hrs:'
9072: || l_override_hrs
9073: );
9074: hr_utility.TRACE ( 'weekly_earning_cap:'
9075: || weekly_earning_cap
9076: );
9077: hr_utility.TRACE ( 'prev_weekly_cap:'
9078: || prev_weekly_cap
9073: );
9074: hr_utility.TRACE ( 'weekly_earning_cap:'
9075: || weekly_earning_cap
9076: );
9077: hr_utility.TRACE ( 'prev_weekly_cap:'
9078: || prev_weekly_cap
9079: );
9080: END IF;
9081:
9083: weekly_earning_cap - prev_weekly_cap
9084: THEN
9085: IF g_debug
9086: THEN
9087: hr_utility.set_location (l_proc, 817);
9088: END IF;
9089:
9090: hrs_already_paid := TRUE;
9091: hours_for_points := 0;
9092: segment_points := 0;
9093: ELSE
9094: IF g_debug
9095: THEN
9096: hr_utility.set_location (l_proc, 818);
9097: END IF;
9098:
9099: hrs_already_paid := FALSE;
9100: END IF;
9101: END IF;
9102:
9103: IF g_debug
9104: THEN
9105: hr_utility.set_location (l_proc, 819);
9106: hr_utility.TRACE ( 'hours_for_points :'
9107: || hours_for_points
9108: );
9109: END IF;
9102:
9103: IF g_debug
9104: THEN
9105: hr_utility.set_location (l_proc, 819);
9106: hr_utility.TRACE ( 'hours_for_points :'
9107: || hours_for_points
9108: );
9109: END IF;
9110: END IF;
9118: );
9119:
9120: IF g_debug
9121: THEN
9122: hr_utility.TRACE ( 'hours_for_points :'
9123: || hours_for_points
9124: );
9125: END IF;
9126: END IF;
9127: */
9128:
9129: IF g_debug
9130: THEN
9131: hr_utility.set_location (l_proc, 819.1);
9132: hr_utility.TRACE ('segment_points:' || segment_points);
9133: END IF;
9134:
9135: IF hrs_already_paid = FALSE
9128:
9129: IF g_debug
9130: THEN
9131: hr_utility.set_location (l_proc, 819.1);
9132: hr_utility.TRACE ('segment_points:' || segment_points);
9133: END IF;
9134:
9135: IF hrs_already_paid = FALSE
9136: THEN
9135: IF hrs_already_paid = FALSE
9136: THEN
9137: IF g_debug
9138: THEN
9139: hr_utility.set_location (l_proc, 820);
9140: END IF;
9141:
9142: hours_left :=
9143: (hours_left - hours_for_points
9145: );
9146:
9147: IF g_debug
9148: THEN
9149: hr_utility.TRACE ('hours_left :' || hours_left);
9150: hr_utility.TRACE ( ' l_dy_wk_reg_elem_id:'
9151: || l_dy_wk_reg_elem_id
9152: );
9153: hr_utility.TRACE ( ' l_dy_wk_ovt_elem_id:'
9146:
9147: IF g_debug
9148: THEN
9149: hr_utility.TRACE ('hours_left :' || hours_left);
9150: hr_utility.TRACE ( ' l_dy_wk_reg_elem_id:'
9151: || l_dy_wk_reg_elem_id
9152: );
9153: hr_utility.TRACE ( ' l_dy_wk_ovt_elem_id:'
9154: || l_dy_wk_ovt_elem_id
9149: hr_utility.TRACE ('hours_left :' || hours_left);
9150: hr_utility.TRACE ( ' l_dy_wk_reg_elem_id:'
9151: || l_dy_wk_reg_elem_id
9152: );
9153: hr_utility.TRACE ( ' l_dy_wk_ovt_elem_id:'
9154: || l_dy_wk_ovt_elem_id
9155: );
9156: hr_utility.TRACE ( ' l_dy_wk_dt_elem_id:'
9157: || l_dy_wk_dt_elem_id
9152: );
9153: hr_utility.TRACE ( ' l_dy_wk_ovt_elem_id:'
9154: || l_dy_wk_ovt_elem_id
9155: );
9156: hr_utility.TRACE ( ' l_dy_wk_dt_elem_id:'
9157: || l_dy_wk_dt_elem_id
9158: );
9159: hr_utility.TRACE ( ' l_ovt_for_day:'
9160: || l_ovt_for_day
9155: );
9156: hr_utility.TRACE ( ' l_dy_wk_dt_elem_id:'
9157: || l_dy_wk_dt_elem_id
9158: );
9159: hr_utility.TRACE ( ' l_ovt_for_day:'
9160: || l_ovt_for_day
9161: );
9162: hr_utility.TRACE ( ' l_dt_for_day:'
9163: || l_dt_for_day
9158: );
9159: hr_utility.TRACE ( ' l_ovt_for_day:'
9160: || l_ovt_for_day
9161: );
9162: hr_utility.TRACE ( ' l_dt_for_day:'
9163: || l_dt_for_day
9164: );
9165: END IF;
9166:
9167: FOR i IN 1 .. g_weekly_earn_category.COUNT
9168: LOOP
9169: IF g_debug
9170: THEN
9171: hr_utility.set_location (l_proc, 825);
9172: hr_utility.TRACE
9173: ( 'daily_element_type_id:'
9174: || daily_element_type_id
9175: );
9168: LOOP
9169: IF g_debug
9170: THEN
9171: hr_utility.set_location (l_proc, 825);
9172: hr_utility.TRACE
9173: ( 'daily_element_type_id:'
9174: || daily_element_type_id
9175: );
9176: hr_utility.TRACE
9172: hr_utility.TRACE
9173: ( 'daily_element_type_id:'
9174: || daily_element_type_id
9175: );
9176: hr_utility.TRACE
9177: ( 'g_weekly_earn_category(i).element_type_id:'
9178: || g_weekly_earn_category (i).element_type_id
9179: );
9180: hr_utility.TRACE
9176: hr_utility.TRACE
9177: ( 'g_weekly_earn_category(i).element_type_id:'
9178: || g_weekly_earn_category (i).element_type_id
9179: );
9180: hr_utility.TRACE
9181: ( 'g_weekly_earn_category(i).earning_category:'
9182: || g_weekly_earn_category (i).earning_category
9183: );
9184: hr_utility.TRACE
9180: hr_utility.TRACE
9181: ( 'g_weekly_earn_category(i).earning_category:'
9182: || g_weekly_earn_category (i).earning_category
9183: );
9184: hr_utility.TRACE
9185: ( 'weekly_element_type_id:'
9186: || weekly_element_type_id
9187: );
9188: hr_utility.TRACE ( 'use_daily_REG:'
9184: hr_utility.TRACE
9185: ( 'weekly_element_type_id:'
9186: || weekly_element_type_id
9187: );
9188: hr_utility.TRACE ( 'use_daily_REG:'
9189: || use_daily_reg
9190: );
9191: hr_utility.TRACE ( 'use_daily_OT:'
9192: || use_daily_ot
9187: );
9188: hr_utility.TRACE ( 'use_daily_REG:'
9189: || use_daily_reg
9190: );
9191: hr_utility.TRACE ( 'use_daily_OT:'
9192: || use_daily_ot
9193: );
9194: hr_utility.TRACE ( 'use_daily_DT:'
9195: || use_daily_dt
9190: );
9191: hr_utility.TRACE ( 'use_daily_OT:'
9192: || use_daily_ot
9193: );
9194: hr_utility.TRACE ( 'use_daily_DT:'
9195: || use_daily_dt
9196: );
9197: hr_utility.TRACE ( 'use_weekly_REG:'
9198: || use_weekly_reg
9193: );
9194: hr_utility.TRACE ( 'use_daily_DT:'
9195: || use_daily_dt
9196: );
9197: hr_utility.TRACE ( 'use_weekly_REG:'
9198: || use_weekly_reg
9199: );
9200: hr_utility.TRACE ( 'use_weekly_OT:'
9201: || use_weekly_ot
9196: );
9197: hr_utility.TRACE ( 'use_weekly_REG:'
9198: || use_weekly_reg
9199: );
9200: hr_utility.TRACE ( 'use_weekly_OT:'
9201: || use_weekly_ot
9202: );
9203: hr_utility.TRACE ( 'use_weekly_DT:'
9204: || use_weekly_dt
9199: );
9200: hr_utility.TRACE ( 'use_weekly_OT:'
9201: || use_weekly_ot
9202: );
9203: hr_utility.TRACE ( 'use_weekly_DT:'
9204: || use_weekly_dt
9205: );
9206: END IF;
9207:
9215: AND use_daily_reg = 'Y'
9216: THEN
9217: IF g_debug
9218: THEN
9219: hr_utility.set_location (l_proc, 830);
9220: END IF;
9221:
9222: weekly_element_type_id := l_dy_wk_reg_elem_id;
9223: EXIT;
9228: AND use_daily_ot = 'Y'
9229: THEN
9230: IF g_debug
9231: THEN
9232: hr_utility.set_location (l_proc, 835);
9233: END IF;
9234:
9235: weekly_element_type_id := l_dy_wk_ovt_elem_id;
9236: EXIT;
9241: AND use_daily_dt = 'Y'
9242: THEN
9243: IF g_debug
9244: THEN
9245: hr_utility.set_location (l_proc, 840);
9246: END IF;
9247:
9248: weekly_element_type_id := l_dy_wk_dt_elem_id;
9249: EXIT;
9250: END IF;
9251:
9252: IF g_debug
9253: THEN
9254: hr_utility.set_location (l_proc, 845);
9255: END IF;
9256: END LOOP;
9257:
9258: IF g_debug
9256: END LOOP;
9257:
9258: IF g_debug
9259: THEN
9260: hr_utility.set_location (l_proc, 846);
9261: hr_utility.TRACE ( 'weekly_element_type_id:'
9262: || weekly_element_type_id
9263: );
9264: END IF;
9257:
9258: IF g_debug
9259: THEN
9260: hr_utility.set_location (l_proc, 846);
9261: hr_utility.TRACE ( 'weekly_element_type_id:'
9262: || weekly_element_type_id
9263: );
9264: END IF;
9265:
9266: IF weekly_element_type_id = l_dy_wk_ovt_elem_id
9267: THEN
9268: IF g_debug
9269: THEN
9270: hr_utility.set_location (l_proc, 850);
9271: END IF;
9272:
9273: hours_for_points :=
9274: hours_for_points + l_ovt_for_day;
9275: ELSIF weekly_element_type_id = l_dy_wk_dt_elem_id
9276: THEN
9277: IF g_debug
9278: THEN
9279: hr_utility.set_location (l_proc, 855);
9280: END IF;
9281:
9282: hours_for_points :=
9283: hours_for_points + l_dt_for_day;
9284: END IF;
9285:
9286: IF g_debug
9287: THEN
9288: hr_utility.set_location (l_proc, 860);
9289: END IF;
9290:
9291: SELECT NVL (points_assigned, 0)
9292: INTO l_points_assigned
9296: AND aei.effective_end_date;
9297:
9298: IF g_debug
9299: THEN
9300: hr_utility.TRACE ( 'l_points_assigned :'
9301: || l_points_assigned
9302: );
9303: hr_utility.TRACE ( ' weekly_element_type_id:'
9304: || weekly_element_type_id
9299: THEN
9300: hr_utility.TRACE ( 'l_points_assigned :'
9301: || l_points_assigned
9302: );
9303: hr_utility.TRACE ( ' weekly_element_type_id:'
9304: || weekly_element_type_id
9305: );
9306: END IF;
9307:
9309: hours_for_points * l_points_assigned;
9310:
9311: IF g_debug
9312: THEN
9313: hr_utility.TRACE ( 'segment_points :'
9314: || segment_points
9315: );
9316: END IF;
9317:
9322: hours_for_points;
9323:
9324: IF g_debug
9325: THEN
9326: hr_utility.set_location (l_proc, 865);
9327: END IF;
9328:
9329: FOR i IN 1 .. g_dy_wk_combo_explosion.COUNT
9330: LOOP
9329: FOR i IN 1 .. g_dy_wk_combo_explosion.COUNT
9330: LOOP
9331: IF g_debug
9332: THEN
9333: hr_utility.set_location (l_proc, 870);
9334: hr_utility.TRACE
9335: ( 'combo_element_type_id:'
9336: || g_dy_wk_combo_explosion (i).element_type_id
9337: );
9330: LOOP
9331: IF g_debug
9332: THEN
9333: hr_utility.set_location (l_proc, 870);
9334: hr_utility.TRACE
9335: ( 'combo_element_type_id:'
9336: || g_dy_wk_combo_explosion (i).element_type_id
9337: );
9338: hr_utility.TRACE
9334: hr_utility.TRACE
9335: ( 'combo_element_type_id:'
9336: || g_dy_wk_combo_explosion (i).element_type_id
9337: );
9338: hr_utility.TRACE
9339: ( 'hours_to_pay in plsql table:'
9340: || g_dy_wk_combo_explosion (i).hours_to_pay
9341: );
9342: END IF;
9343: END LOOP;
9344:
9345: IF g_debug
9346: THEN
9347: hr_utility.set_location (l_proc, 875);
9348: hr_utility.TRACE ('hours_left :' || hours_left);
9349: END IF;
9350: END IF; /*End hrs_already_paid = FALSE */
9351: END IF;
9344:
9345: IF g_debug
9346: THEN
9347: hr_utility.set_location (l_proc, 875);
9348: hr_utility.TRACE ('hours_left :' || hours_left);
9349: END IF;
9350: END IF; /*End hrs_already_paid = FALSE */
9351: END IF;
9352:
9351: END IF;
9352:
9353: IF g_debug
9354: THEN
9355: hr_utility.set_location (l_proc, 880);
9356: END IF;
9357:
9358: l_weekly_reg_hrs :=
9359: l_weekly_reg_hrs + hours_for_points;
9372: total_combo_points + segment_points;
9373:
9374: IF g_debug
9375: THEN
9376: hr_utility.TRACE ( 'total_combo_points :'
9377: || total_combo_points
9378: );
9379: END IF;
9380: END LOOP;
9380: END LOOP;
9381:
9382: IF g_debug
9383: THEN
9384: hr_utility.set_location (l_proc, 885);
9385: END IF;
9386:
9387: CLOSE weekly_earning_rules;
9388:
9389: FOR i IN 1 .. g_dy_wk_combo_explosion.COUNT
9390: LOOP
9391: IF g_debug
9392: THEN
9393: hr_utility.set_location (l_proc, 890);
9394: hr_utility.TRACE ('i:' || i);
9395: hr_utility.TRACE
9396: ( 'combo_element_type_id:'
9397: || g_dy_wk_combo_explosion (i).element_type_id
9390: LOOP
9391: IF g_debug
9392: THEN
9393: hr_utility.set_location (l_proc, 890);
9394: hr_utility.TRACE ('i:' || i);
9395: hr_utility.TRACE
9396: ( 'combo_element_type_id:'
9397: || g_dy_wk_combo_explosion (i).element_type_id
9398: );
9391: IF g_debug
9392: THEN
9393: hr_utility.set_location (l_proc, 890);
9394: hr_utility.TRACE ('i:' || i);
9395: hr_utility.TRACE
9396: ( 'combo_element_type_id:'
9397: || g_dy_wk_combo_explosion (i).element_type_id
9398: );
9399: hr_utility.TRACE
9395: hr_utility.TRACE
9396: ( 'combo_element_type_id:'
9397: || g_dy_wk_combo_explosion (i).element_type_id
9398: );
9399: hr_utility.TRACE
9400: ( 'hours_to_pay in plsql table:'
9401: || g_dy_wk_combo_explosion (i).hours_to_pay
9402: );
9403: END IF;
9408: END LOOP;
9409:
9410: IF g_debug
9411: THEN
9412: hr_utility.set_location (l_proc, 895);
9413: END IF;
9414:
9415: l_dy_wk_combo_index := g_dy_wk_combo_explosion.COUNT;
9416:
9415: l_dy_wk_combo_index := g_dy_wk_combo_explosion.COUNT;
9416:
9417: IF g_debug
9418: THEN
9419: hr_utility.TRACE ( 'g_dy_wk_combo_explosion.COUNT:'
9420: || g_dy_wk_combo_explosion.COUNT
9421: );
9422: hr_utility.TRACE ( 'l_total_combo_hrs:'
9423: || l_total_combo_hrs
9418: THEN
9419: hr_utility.TRACE ( 'g_dy_wk_combo_explosion.COUNT:'
9420: || g_dy_wk_combo_explosion.COUNT
9421: );
9422: hr_utility.TRACE ( 'l_total_combo_hrs:'
9423: || l_total_combo_hrs
9424: );
9425: hr_utility.TRACE ( 'l_dy_wk_combo_index:'
9426: || l_dy_wk_combo_index
9421: );
9422: hr_utility.TRACE ( 'l_total_combo_hrs:'
9423: || l_total_combo_hrs
9424: );
9425: hr_utility.TRACE ( 'l_dy_wk_combo_index:'
9426: || l_dy_wk_combo_index
9427: );
9428: END IF;
9429:
9434: FOR i IN 1 .. g_daily_explosion.COUNT
9435: LOOP
9436: IF g_debug
9437: THEN
9438: hr_utility.set_location (l_proc, 900);
9439: hr_utility.TRACE
9440: ( 'daily_element_type_id:'
9441: || g_daily_explosion (i).element_type_id
9442: );
9435: LOOP
9436: IF g_debug
9437: THEN
9438: hr_utility.set_location (l_proc, 900);
9439: hr_utility.TRACE
9440: ( 'daily_element_type_id:'
9441: || g_daily_explosion (i).element_type_id
9442: );
9443: hr_utility.TRACE ( 'hours_to_pay in plsql table:'
9439: hr_utility.TRACE
9440: ( 'daily_element_type_id:'
9441: || g_daily_explosion (i).element_type_id
9442: );
9443: hr_utility.TRACE ( 'hours_to_pay in plsql table:'
9444: || g_daily_explosion (i).hours_to_pay
9445: );
9446: hr_utility.TRACE
9447: ( 'earning_category:'
9442: );
9443: hr_utility.TRACE ( 'hours_to_pay in plsql table:'
9444: || g_daily_explosion (i).hours_to_pay
9445: );
9446: hr_utility.TRACE
9447: ( 'earning_category:'
9448: || g_daily_explosion (i).earning_category
9449: );
9450: END IF;
9456: + g_daily_explosion (i).hours_to_pay;
9457:
9458: IF g_debug
9459: THEN
9460: hr_utility.TRACE ( 'l_combo_elem_id:'
9461: || l_combo_elem_id
9462: );
9463: hr_utility.TRACE ( 'l_total_daily_hrs:'
9464: || l_total_daily_hrs
9459: THEN
9460: hr_utility.TRACE ( 'l_combo_elem_id:'
9461: || l_combo_elem_id
9462: );
9463: hr_utility.TRACE ( 'l_total_daily_hrs:'
9464: || l_total_daily_hrs
9465: );
9466: hr_utility.TRACE ( 'l_total_combo_hrs:'
9467: || l_total_combo_hrs
9462: );
9463: hr_utility.TRACE ( 'l_total_daily_hrs:'
9464: || l_total_daily_hrs
9465: );
9466: hr_utility.TRACE ( 'l_total_combo_hrs:'
9467: || l_total_combo_hrs
9468: );
9469: END IF;
9470:
9471: IF l_total_daily_hrs > l_total_combo_hrs
9472: THEN
9473: IF g_debug
9474: THEN
9475: hr_utility.set_location (l_proc, 910);
9476: END IF;
9477:
9478: FOR j IN 1 .. g_weekly_earn_category.COUNT
9479: LOOP
9478: FOR j IN 1 .. g_weekly_earn_category.COUNT
9479: LOOP
9480: IF g_debug
9481: THEN
9482: hr_utility.set_location (l_proc, 911);
9483: hr_utility.TRACE
9484: ( 'g_weekly_earn_category(j).element_type_id:'
9485: || g_weekly_earn_category (j).element_type_id
9486: );
9479: LOOP
9480: IF g_debug
9481: THEN
9482: hr_utility.set_location (l_proc, 911);
9483: hr_utility.TRACE
9484: ( 'g_weekly_earn_category(j).element_type_id:'
9485: || g_weekly_earn_category (j).element_type_id
9486: );
9487: hr_utility.TRACE
9483: hr_utility.TRACE
9484: ( 'g_weekly_earn_category(j).element_type_id:'
9485: || g_weekly_earn_category (j).element_type_id
9486: );
9487: hr_utility.TRACE
9488: ( 'g_daily_explosion (i).element_type_id:'
9489: || g_daily_explosion (i).element_type_id
9490: );
9491: hr_utility.TRACE
9487: hr_utility.TRACE
9488: ( 'g_daily_explosion (i).element_type_id:'
9489: || g_daily_explosion (i).element_type_id
9490: );
9491: hr_utility.TRACE
9492: ( 'g_weekly_earn_category(j).earning_category:'
9493: || g_weekly_earn_category (j).earning_category
9494: );
9495: hr_utility.TRACE ( 'use_daily_OT:'
9491: hr_utility.TRACE
9492: ( 'g_weekly_earn_category(j).earning_category:'
9493: || g_weekly_earn_category (j).earning_category
9494: );
9495: hr_utility.TRACE ( 'use_daily_OT:'
9496: || use_daily_ot
9497: );
9498: hr_utility.TRACE ( 'use_daily_DT:'
9499: || use_daily_dt
9494: );
9495: hr_utility.TRACE ( 'use_daily_OT:'
9496: || use_daily_ot
9497: );
9498: hr_utility.TRACE ( 'use_daily_DT:'
9499: || use_daily_dt
9500: );
9501: END IF;
9502:
9511: AND use_daily_ot = 'N'
9512: THEN
9513: IF g_debug
9514: THEN
9515: hr_utility.set_location (l_proc, 912);
9516: END IF;
9517:
9518: l_combo_elem_id :=
9519: g_weekly_earn_category (j).element_type_id;
9525: AND use_daily_dt = 'N'
9526: THEN
9527: IF g_debug
9528: THEN
9529: hr_utility.set_location (l_proc, 913);
9530: END IF;
9531:
9532: l_combo_elem_id :=
9533: g_weekly_earn_category (j).element_type_id;
9536: END IF;
9537:
9538: IF g_debug
9539: THEN
9540: hr_utility.set_location (l_proc, 914);
9541: END IF;
9542: END LOOP;
9543:
9544: IF g_debug
9542: END LOOP;
9543:
9544: IF g_debug
9545: THEN
9546: hr_utility.set_location (l_proc, 915);
9547: hr_utility.TRACE ( 'l_combo_elem_id:'
9548: || l_combo_elem_id
9549: );
9550: END IF;
9543:
9544: IF g_debug
9545: THEN
9546: hr_utility.set_location (l_proc, 915);
9547: hr_utility.TRACE ( 'l_combo_elem_id:'
9548: || l_combo_elem_id
9549: );
9550: END IF;
9551:
9561: FOR i IN 1 .. g_dy_wk_combo_explosion.COUNT
9562: LOOP
9563: IF g_debug
9564: THEN
9565: hr_utility.set_location (l_proc, 916);
9566: hr_utility.TRACE
9567: ( 'combo_element_type_id:'
9568: || g_dy_wk_combo_explosion (i).element_type_id
9569: );
9562: LOOP
9563: IF g_debug
9564: THEN
9565: hr_utility.set_location (l_proc, 916);
9566: hr_utility.TRACE
9567: ( 'combo_element_type_id:'
9568: || g_dy_wk_combo_explosion (i).element_type_id
9569: );
9570: hr_utility.TRACE
9566: hr_utility.TRACE
9567: ( 'combo_element_type_id:'
9568: || g_dy_wk_combo_explosion (i).element_type_id
9569: );
9570: hr_utility.TRACE
9571: ( 'hours_to_pay in plsql table:'
9572: || g_dy_wk_combo_explosion (i).hours_to_pay
9573: );
9574: END IF;
9575: END LOOP;
9576:
9577: IF g_debug
9578: THEN
9579: hr_utility.set_location (l_proc, 920);
9580: END IF;
9581:
9582: SELECT NVL (points_assigned, 0)
9583: INTO l_points_assigned
9591: * l_points_assigned;
9592:
9593: IF g_debug
9594: THEN
9595: hr_utility.TRACE ( 'segment_points :'
9596: || segment_points
9597: );
9598: END IF;
9599:
9601: total_combo_points + segment_points;
9602:
9603: IF g_debug
9604: THEN
9605: hr_utility.TRACE ( 'total_combo_points :'
9606: || total_combo_points
9607: );
9608: END IF;
9609: END IF;
9609: END IF;
9610:
9611: IF g_debug
9612: THEN
9613: hr_utility.set_location (l_proc, 925);
9614: END IF;
9615: END LOOP;
9616:
9617: IF g_debug
9615: END LOOP;
9616:
9617: IF g_debug
9618: THEN
9619: hr_utility.set_location (l_proc, 930);
9620: END IF;
9621: END IF;
9622: END IF;
9623:
9625: ----------------------END Combination Points Calculation------------------------
9626: --
9627: IF g_debug
9628: THEN
9629: hr_utility.set_location (l_proc, 935);
9630: hr_utility.TRACE
9631: ( 'fnd_profile.VALUE (''HXT_CA_LABOR_RULE''):'
9632: || fnd_profile.VALUE ('HXT_CA_LABOR_RULE')
9633: );
9626: --
9627: IF g_debug
9628: THEN
9629: hr_utility.set_location (l_proc, 935);
9630: hr_utility.TRACE
9631: ( 'fnd_profile.VALUE (''HXT_CA_LABOR_RULE''):'
9632: || fnd_profile.VALUE ('HXT_CA_LABOR_RULE')
9633: );
9634: END IF;
9645: IF (NVL (fnd_profile.VALUE ('HXT_CA_LABOR_RULE'), 'N') = 'Y')
9646: THEN
9647: IF g_debug
9648: THEN
9649: hr_utility.set_location (l_proc, 936);
9650: END IF;
9651:
9652: l_greatest_points :=
9653: GREATEST (total_daily_points,
9656: );
9657:
9658: IF g_debug
9659: THEN
9660: hr_utility.TRACE ( 'l_greatest_points:'
9661: || l_greatest_points
9662: );
9663: END IF;
9664:
9665: IF l_greatest_points = total_combo_points
9666: THEN
9667: IF g_debug
9668: THEN
9669: hr_utility.set_location (l_proc, 940);
9670: END IF;
9671:
9672: g_explosion_to_use := 'COMBO';
9673: ELSIF l_greatest_points = total_weekly_points
9673: ELSIF l_greatest_points = total_weekly_points
9674: THEN
9675: IF g_debug
9676: THEN
9677: hr_utility.set_location (l_proc, 945);
9678: END IF;
9679:
9680: g_explosion_to_use := 'WEEKLY';
9681: ELSIF l_greatest_points = total_daily_points
9681: ELSIF l_greatest_points = total_daily_points
9682: THEN
9683: IF g_debug
9684: THEN
9685: hr_utility.set_location (l_proc, 950);
9686: END IF;
9687:
9688: g_explosion_to_use := 'DAILY';
9689: END IF;
9692: -- Weekly takes precedence over Daily.
9693: ELSE
9694: IF g_debug
9695: THEN
9696: hr_utility.set_location (l_proc, 960);
9697: END IF;
9698:
9699: IF total_weekly_points > total_daily_points
9700: THEN
9699: IF total_weekly_points > total_daily_points
9700: THEN
9701: IF g_debug
9702: THEN
9703: hr_utility.set_location (l_proc, 970);
9704: END IF;
9705:
9706: g_explosion_to_use := 'WEEKLY';
9707: ELSIF total_daily_points > total_weekly_points
9707: ELSIF total_daily_points > total_weekly_points
9708: THEN
9709: IF g_debug
9710: THEN
9711: hr_utility.set_location (l_proc, 980);
9712: END IF;
9713:
9714: g_explosion_to_use := 'DAILY';
9715: ELSIF total_daily_points = total_weekly_points
9715: ELSIF total_daily_points = total_weekly_points
9716: THEN
9717: IF g_debug
9718: THEN
9719: hr_utility.set_location (l_proc, 990);
9720: END IF;
9721:
9722: g_explosion_to_use := 'WEEKLY';
9723: END IF;
9724: END IF;
9725:
9726: IF g_debug
9727: THEN
9728: hr_utility.set_location (l_proc, 991);
9729: END IF;
9730: END IF; -- IF special_day = FALSE
9731:
9732: IF g_debug
9730: END IF; -- IF special_day = FALSE
9731:
9732: IF g_debug
9733: THEN
9734: hr_utility.set_location (l_proc, 992);
9735: END IF;
9736:
9737: IF g_explosion_to_use = 'SPC'
9738: THEN
9737: IF g_explosion_to_use = 'SPC'
9738: THEN
9739: IF g_debug
9740: THEN
9741: hr_utility.set_location (l_proc, 993);
9742: END IF;
9743:
9744: FOR i IN g_special_explosion.FIRST .. g_special_explosion.LAST
9745: LOOP
9744: FOR i IN g_special_explosion.FIRST .. g_special_explosion.LAST
9745: LOOP
9746: IF g_debug
9747: THEN
9748: hr_utility.TRACE ('i:' || i);
9749: hr_utility.TRACE
9750: ( 'g_special_explosion(i).element_type_id:'
9751: || g_special_explosion (i).element_type_id
9752: );
9745: LOOP
9746: IF g_debug
9747: THEN
9748: hr_utility.TRACE ('i:' || i);
9749: hr_utility.TRACE
9750: ( 'g_special_explosion(i).element_type_id:'
9751: || g_special_explosion (i).element_type_id
9752: );
9753: END IF;
9754: END LOOP;
9755:
9756: IF g_debug
9757: THEN
9758: hr_utility.set_location (l_proc, 994);
9759: END IF;
9760:
9761: g_count := g_count + 1;
9762:
9761: g_count := g_count + 1;
9762:
9763: IF g_debug
9764: THEN
9765: hr_utility.TRACE ('g_count:' || g_count);
9766: END IF;
9767:
9768: p_error_code := 0;
9769: p_rule_to_pay := 'SPC';
9773: g_special_explosion (g_count).element_type_id;
9774:
9775: IF g_debug
9776: THEN
9777: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
9778: || p_hours_to_pay_this_rule
9779: );
9780: hr_utility.TRACE ( 'p_element_type_id :'
9781: || p_element_type_id
9776: THEN
9777: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
9778: || p_hours_to_pay_this_rule
9779: );
9780: hr_utility.TRACE ( 'p_element_type_id :'
9781: || p_element_type_id
9782: );
9783: END IF;
9784:
9785: IF g_count = g_special_explosion.COUNT
9786: THEN
9787: IF g_debug
9788: THEN
9789: hr_utility.set_location (l_proc, 995);
9790: END IF;
9791:
9792: hours_left_to_pay := 0;
9793: g_explosion_to_use := NULL;
9795: special_day := FALSE;
9796:
9797: IF g_debug
9798: THEN
9799: hr_utility.TRACE ( 'hours_left_to_pay :'
9800: || hours_left_to_pay
9801: );
9802: hr_utility.TRACE ( 'g_explosion_to_use:'
9803: || g_explosion_to_use
9798: THEN
9799: hr_utility.TRACE ( 'hours_left_to_pay :'
9800: || hours_left_to_pay
9801: );
9802: hr_utility.TRACE ( 'g_explosion_to_use:'
9803: || g_explosion_to_use
9804: );
9805: hr_utility.TRACE ('g_count :' || g_count);
9806: END IF;
9801: );
9802: hr_utility.TRACE ( 'g_explosion_to_use:'
9803: || g_explosion_to_use
9804: );
9805: hr_utility.TRACE ('g_count :' || g_count);
9806: END IF;
9807: END IF;
9808:
9809: IF g_debug
9807: END IF;
9808:
9809: IF g_debug
9810: THEN
9811: hr_utility.set_location (l_proc, 996);
9812: END IF;
9813:
9814: RETURN;
9815: ELSIF g_explosion_to_use = 'COMBO'
9815: ELSIF g_explosion_to_use = 'COMBO'
9816: THEN
9817: IF g_debug
9818: THEN
9819: hr_utility.set_location (l_proc, 997);
9820: END IF;
9821:
9822: FOR i IN
9823: g_dy_wk_combo_explosion.FIRST .. g_dy_wk_combo_explosion.LAST
9823: g_dy_wk_combo_explosion.FIRST .. g_dy_wk_combo_explosion.LAST
9824: LOOP
9825: IF g_debug
9826: THEN
9827: hr_utility.TRACE ('i:' || i);
9828: hr_utility.TRACE
9829: ( 'g_dy_wk_combo_explosion(i).element_type_id:'
9830: || g_dy_wk_combo_explosion (i).element_type_id
9831: );
9824: LOOP
9825: IF g_debug
9826: THEN
9827: hr_utility.TRACE ('i:' || i);
9828: hr_utility.TRACE
9829: ( 'g_dy_wk_combo_explosion(i).element_type_id:'
9830: || g_dy_wk_combo_explosion (i).element_type_id
9831: );
9832: END IF;
9833: END LOOP;
9834:
9835: IF g_debug
9836: THEN
9837: hr_utility.set_location (l_proc, 998);
9838: END IF;
9839:
9840: g_count := g_count + 1;
9841:
9840: g_count := g_count + 1;
9841:
9842: IF g_debug
9843: THEN
9844: hr_utility.TRACE ('g_count:' || g_count);
9845: END IF;
9846:
9847: p_error_code := 0;
9848: p_rule_to_pay := 'DAY';
9852: g_dy_wk_combo_explosion (g_count).element_type_id;
9853:
9854: IF g_debug
9855: THEN
9856: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
9857: || p_hours_to_pay_this_rule
9858: );
9859: hr_utility.TRACE ( 'p_element_type_id :'
9860: || p_element_type_id
9855: THEN
9856: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
9857: || p_hours_to_pay_this_rule
9858: );
9859: hr_utility.TRACE ( 'p_element_type_id :'
9860: || p_element_type_id
9861: );
9862: END IF;
9863:
9864: IF g_count = g_dy_wk_combo_explosion.COUNT
9865: THEN
9866: IF g_debug
9867: THEN
9868: hr_utility.set_location (l_proc, 1000);
9869: END IF;
9870:
9871: hours_left_to_pay := 0;
9872: g_explosion_to_use := NULL;
9873: g_count := 0;
9874:
9875: IF g_debug
9876: THEN
9877: hr_utility.TRACE ( 'hours_left_to_pay :'
9878: || hours_left_to_pay
9879: );
9880: hr_utility.TRACE ( 'g_explosion_to_use:'
9881: || g_explosion_to_use
9876: THEN
9877: hr_utility.TRACE ( 'hours_left_to_pay :'
9878: || hours_left_to_pay
9879: );
9880: hr_utility.TRACE ( 'g_explosion_to_use:'
9881: || g_explosion_to_use
9882: );
9883: hr_utility.TRACE ('g_count :' || g_count);
9884: END IF;
9879: );
9880: hr_utility.TRACE ( 'g_explosion_to_use:'
9881: || g_explosion_to_use
9882: );
9883: hr_utility.TRACE ('g_count :' || g_count);
9884: END IF;
9885: END IF;
9886:
9887: IF g_debug
9885: END IF;
9886:
9887: IF g_debug
9888: THEN
9889: hr_utility.set_location (l_proc, 1010);
9890: END IF;
9891:
9892: RETURN;
9893: ELSIF g_explosion_to_use = 'DAILY'
9893: ELSIF g_explosion_to_use = 'DAILY'
9894: THEN
9895: IF g_debug
9896: THEN
9897: hr_utility.set_location (l_proc, 1015);
9898: END IF;
9899:
9900: FOR i IN g_daily_explosion.FIRST .. g_daily_explosion.LAST
9901: LOOP
9900: FOR i IN g_daily_explosion.FIRST .. g_daily_explosion.LAST
9901: LOOP
9902: IF g_debug
9903: THEN
9904: hr_utility.TRACE ('i:' || i);
9905: hr_utility.TRACE
9906: ( 'g_daily_explosion(i).element_type_id:'
9907: || g_daily_explosion (i).element_type_id
9908: );
9901: LOOP
9902: IF g_debug
9903: THEN
9904: hr_utility.TRACE ('i:' || i);
9905: hr_utility.TRACE
9906: ( 'g_daily_explosion(i).element_type_id:'
9907: || g_daily_explosion (i).element_type_id
9908: );
9909: END IF;
9910: END LOOP;
9911:
9912: IF g_debug
9913: THEN
9914: hr_utility.set_location (l_proc, 1020);
9915: END IF;
9916:
9917: g_count := g_count + 1;
9918:
9917: g_count := g_count + 1;
9918:
9919: IF g_debug
9920: THEN
9921: hr_utility.TRACE ('g_count:' || g_count);
9922: END IF;
9923:
9924: p_error_code := 0;
9925: p_rule_to_pay := 'DAY';
9929: g_daily_explosion (g_count).element_type_id;
9930:
9931: IF g_debug
9932: THEN
9933: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
9934: || p_hours_to_pay_this_rule
9935: );
9936: hr_utility.TRACE ( 'p_element_type_id :'
9937: || p_element_type_id
9932: THEN
9933: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
9934: || p_hours_to_pay_this_rule
9935: );
9936: hr_utility.TRACE ( 'p_element_type_id :'
9937: || p_element_type_id
9938: );
9939: END IF;
9940:
9941: IF g_count = g_daily_explosion.COUNT
9942: THEN
9943: IF g_debug
9944: THEN
9945: hr_utility.set_location (l_proc, 1025);
9946: END IF;
9947:
9948: hours_left_to_pay := 0;
9949: g_explosion_to_use := NULL;
9950: g_count := 0;
9951:
9952: IF g_debug
9953: THEN
9954: hr_utility.TRACE ( 'hours_left_to_pay :'
9955: || hours_left_to_pay
9956: );
9957: hr_utility.TRACE ( 'g_explosion_to_use:'
9958: || g_explosion_to_use
9953: THEN
9954: hr_utility.TRACE ( 'hours_left_to_pay :'
9955: || hours_left_to_pay
9956: );
9957: hr_utility.TRACE ( 'g_explosion_to_use:'
9958: || g_explosion_to_use
9959: );
9960: hr_utility.TRACE ('g_count :' || g_count);
9961: END IF;
9956: );
9957: hr_utility.TRACE ( 'g_explosion_to_use:'
9958: || g_explosion_to_use
9959: );
9960: hr_utility.TRACE ('g_count :' || g_count);
9961: END IF;
9962: END IF;
9963:
9964: IF g_debug
9962: END IF;
9963:
9964: IF g_debug
9965: THEN
9966: hr_utility.set_location (l_proc, 1030);
9967: END IF;
9968:
9969: RETURN;
9970: ELSIF g_explosion_to_use = 'WEEKLY'
9970: ELSIF g_explosion_to_use = 'WEEKLY'
9971: THEN
9972: IF g_debug
9973: THEN
9974: hr_utility.set_location (l_proc, 1035);
9975: END IF;
9976:
9977: FOR i IN g_weekly_explosion.FIRST .. g_weekly_explosion.LAST
9978: LOOP
9977: FOR i IN g_weekly_explosion.FIRST .. g_weekly_explosion.LAST
9978: LOOP
9979: IF g_debug
9980: THEN
9981: hr_utility.TRACE ('i:' || i);
9982: hr_utility.TRACE
9983: ( 'g_weekly_explosion(i).element_type_id:'
9984: || g_weekly_explosion (i).element_type_id
9985: );
9978: LOOP
9979: IF g_debug
9980: THEN
9981: hr_utility.TRACE ('i:' || i);
9982: hr_utility.TRACE
9983: ( 'g_weekly_explosion(i).element_type_id:'
9984: || g_weekly_explosion (i).element_type_id
9985: );
9986: END IF;
9987: END LOOP;
9988:
9989: IF g_debug
9990: THEN
9991: hr_utility.set_location (l_proc, 1040);
9992: END IF;
9993:
9994: g_count := g_count + 1;
9995:
9994: g_count := g_count + 1;
9995:
9996: IF g_debug
9997: THEN
9998: hr_utility.TRACE ('g_count:' || g_count);
9999: END IF;
10000:
10001: p_error_code := 0;
10002: p_rule_to_pay := 'WKL';
10006: g_weekly_explosion (g_count).element_type_id;
10007:
10008: IF g_debug
10009: THEN
10010: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
10011: || p_hours_to_pay_this_rule
10012: );
10013: hr_utility.TRACE ( 'p_element_type_id :'
10014: || p_element_type_id
10009: THEN
10010: hr_utility.TRACE ( 'p_hours_to_pay_this_rule:'
10011: || p_hours_to_pay_this_rule
10012: );
10013: hr_utility.TRACE ( 'p_element_type_id :'
10014: || p_element_type_id
10015: );
10016: END IF;
10017:
10018: IF g_count = g_weekly_explosion.COUNT
10019: THEN
10020: IF g_debug
10021: THEN
10022: hr_utility.set_location (l_proc, 1045);
10023: END IF;
10024:
10025: hours_left_to_pay := 0;
10026: g_explosion_to_use := NULL;
10027: g_count := 0;
10028:
10029: IF g_debug
10030: THEN
10031: hr_utility.TRACE ( 'hours_left_to_pay :'
10032: || hours_left_to_pay
10033: );
10034: hr_utility.TRACE ( 'g_explosion_to_use:'
10035: || g_explosion_to_use
10030: THEN
10031: hr_utility.TRACE ( 'hours_left_to_pay :'
10032: || hours_left_to_pay
10033: );
10034: hr_utility.TRACE ( 'g_explosion_to_use:'
10035: || g_explosion_to_use
10036: );
10037: hr_utility.TRACE ('g_count :' || g_count);
10038: END IF;
10033: );
10034: hr_utility.TRACE ( 'g_explosion_to_use:'
10035: || g_explosion_to_use
10036: );
10037: hr_utility.TRACE ('g_count :' || g_count);
10038: END IF;
10039: END IF;
10040:
10041: IF g_debug
10039: END IF;
10040:
10041: IF g_debug
10042: THEN
10043: hr_utility.set_location (l_proc, 1050);
10044: END IF;
10045:
10046: RETURN;
10047: END IF;
10047: END IF;
10048:
10049: IF g_debug
10050: THEN
10051: hr_utility.set_location (l_proc, 1055);
10052: END IF;
10053: END IF; --g_explosion_to_use is not null
10054:
10055: IF g_debug
10053: END IF; --g_explosion_to_use is not null
10054:
10055: IF g_debug
10056: THEN
10057: hr_utility.set_location (l_proc, 1060);
10058: END IF;
10059: END;
10060:
10061: --------------------------------------------------------------------------------
10072: -- 'fetch next' set to true if a cap has been met and a new rule is needed
10073: BEGIN
10074: IF g_debug
10075: THEN
10076: hr_utility.set_location ('Reset_rules', 1);
10077: END IF;
10078:
10079: p_fetch_next_day := FALSE;
10080: p_fetch_next_week := FALSE;
10080: p_fetch_next_week := FALSE;
10081:
10082: IF g_debug
10083: THEN
10084: hr_utility.TRACE ('g_egt_id :' || g_egt_id);
10085: hr_utility.TRACE ( 'element_type_id_to_pay :'
10086: || element_type_id_to_pay
10087: );
10088: hr_utility.TRACE ( 'special_and_weekly_base :'
10081:
10082: IF g_debug
10083: THEN
10084: hr_utility.TRACE ('g_egt_id :' || g_egt_id);
10085: hr_utility.TRACE ( 'element_type_id_to_pay :'
10086: || element_type_id_to_pay
10087: );
10088: hr_utility.TRACE ( 'special_and_weekly_base :'
10089: || special_and_weekly_base
10084: hr_utility.TRACE ('g_egt_id :' || g_egt_id);
10085: hr_utility.TRACE ( 'element_type_id_to_pay :'
10086: || element_type_id_to_pay
10087: );
10088: hr_utility.TRACE ( 'special_and_weekly_base :'
10089: || special_and_weekly_base
10090: );
10091: hr_utility.TRACE ( 'g_date_worked :'
10092: || TO_CHAR (g_date_worked, 'dd/mon/yy')
10087: );
10088: hr_utility.TRACE ( 'special_and_weekly_base :'
10089: || special_and_weekly_base
10090: );
10091: hr_utility.TRACE ( 'g_date_worked :'
10092: || TO_CHAR (g_date_worked, 'dd/mon/yy')
10093: );
10094: hr_utility.TRACE ('p_rule_used :' || p_rule_used);
10095: hr_utility.TRACE ( 'hours_to_pay_this_rule :'
10090: );
10091: hr_utility.TRACE ( 'g_date_worked :'
10092: || TO_CHAR (g_date_worked, 'dd/mon/yy')
10093: );
10094: hr_utility.TRACE ('p_rule_used :' || p_rule_used);
10095: hr_utility.TRACE ( 'hours_to_pay_this_rule :'
10096: || hours_to_pay_this_rule
10097: );
10098: hr_utility.TRACE ( 'p_hours_paid_daily_rule :'
10091: hr_utility.TRACE ( 'g_date_worked :'
10092: || TO_CHAR (g_date_worked, 'dd/mon/yy')
10093: );
10094: hr_utility.TRACE ('p_rule_used :' || p_rule_used);
10095: hr_utility.TRACE ( 'hours_to_pay_this_rule :'
10096: || hours_to_pay_this_rule
10097: );
10098: hr_utility.TRACE ( 'p_hours_paid_daily_rule :'
10099: || p_hours_paid_daily_rule
10094: hr_utility.TRACE ('p_rule_used :' || p_rule_used);
10095: hr_utility.TRACE ( 'hours_to_pay_this_rule :'
10096: || hours_to_pay_this_rule
10097: );
10098: hr_utility.TRACE ( 'p_hours_paid_daily_rule :'
10099: || p_hours_paid_daily_rule
10100: );
10101: hr_utility.TRACE ( 'p_hours_paid_weekly_rule:'
10102: || p_hours_paid_weekly_rule
10097: );
10098: hr_utility.TRACE ( 'p_hours_paid_daily_rule :'
10099: || p_hours_paid_daily_rule
10100: );
10101: hr_utility.TRACE ( 'p_hours_paid_weekly_rule:'
10102: || p_hours_paid_weekly_rule
10103: );
10104: hr_utility.TRACE ('daily_rule_cap :' || daily_rule_cap);
10105: hr_utility.TRACE ('weekly_rule_cap :' || weekly_rule_cap);
10100: );
10101: hr_utility.TRACE ( 'p_hours_paid_weekly_rule:'
10102: || p_hours_paid_weekly_rule
10103: );
10104: hr_utility.TRACE ('daily_rule_cap :' || daily_rule_cap);
10105: hr_utility.TRACE ('weekly_rule_cap :' || weekly_rule_cap);
10106: END IF;
10107:
10108: IF g_egt_id IS NULL
10101: hr_utility.TRACE ( 'p_hours_paid_weekly_rule:'
10102: || p_hours_paid_weekly_rule
10103: );
10104: hr_utility.TRACE ('daily_rule_cap :' || daily_rule_cap);
10105: hr_utility.TRACE ('weekly_rule_cap :' || weekly_rule_cap);
10106: END IF;
10107:
10108: IF g_egt_id IS NULL
10109: OR p_rule_used = 'WKL'
10120: --the 'Loop Counter Exceeded' error does not occur and the next row of the
10121: --weekly_earn_rule_cur is fetched
10122: IF g_debug
10123: THEN
10124: hr_utility.set_location ('reset_rules', 2);
10125: END IF;
10126:
10127: IF p_rule_used = 'WKL' AND hours_to_pay_this_rule = 0
10128: THEN
10127: IF p_rule_used = 'WKL' AND hours_to_pay_this_rule = 0
10128: THEN
10129: IF g_debug
10130: THEN
10131: hr_utility.set_location ('reset_rules', 3);
10132: END IF;
10133:
10134: p_fetch_next_week := TRUE;
10135: first_weekly_cap_reached := TRUE;
10141: p_hours_paid_weekly_rule + hours_to_pay_this_rule;
10142:
10143: IF g_debug
10144: THEN
10145: hr_utility.TRACE ( 'p_hours_paid_daily_rule :'
10146: || p_hours_paid_daily_rule
10147: );
10148: hr_utility.TRACE ( 'p_hours_paid_weekly_rule:'
10149: || p_hours_paid_weekly_rule
10144: THEN
10145: hr_utility.TRACE ( 'p_hours_paid_daily_rule :'
10146: || p_hours_paid_daily_rule
10147: );
10148: hr_utility.TRACE ( 'p_hours_paid_weekly_rule:'
10149: || p_hours_paid_weekly_rule
10150: );
10151: END IF;
10152: ELSIF p_rule_used = 'DAY' OR p_rule_used = 'SPC'
10153: THEN -- SPR C355
10154: -- OT daily hours not counted for weekly cap
10155: IF g_debug
10156: THEN
10157: hr_utility.set_location ('reset_rules', 4);
10158: END IF;
10159:
10160: p_hours_paid_daily_rule :=
10161: p_hours_paid_daily_rule + hours_to_pay_this_rule;
10161: p_hours_paid_daily_rule + hours_to_pay_this_rule;
10162:
10163: IF g_debug
10164: THEN
10165: hr_utility.TRACE ( 'p_hours_paid_daily_rule :'
10166: || p_hours_paid_daily_rule
10167: );
10168: END IF;
10169: END IF;
10174: THEN
10175: -- do not reset daily hours if counting toward special cap
10176: IF g_debug
10177: THEN
10178: hr_utility.set_location ('reset_rules', 5);
10179: END IF;
10180:
10181: p_fetch_next_day := TRUE;
10182: END IF;
10191: -- FAZ-MHANDA commented on 26-oct-02
10192: -- IF (p_hours_paid_weekly_rule - p_hours_paid_daily_rule) > weekly_rule_cap THEN
10193: IF g_debug
10194: THEN
10195: hr_utility.set_location ('reset_rules', 6);
10196: END IF;
10197:
10198: p_fetch_next_week := TRUE;
10199: first_weekly_cap_reached := TRUE;
10200: ELSIF p_hours_paid_weekly_rule < weekly_rule_cap
10201: THEN
10202: IF g_debug
10203: THEN
10204: hr_utility.set_location ('reset_rules', 7);
10205: END IF;
10206:
10207: first_weekly_cap_reached := FALSE;
10208: END IF;
10208: END IF;
10209:
10210: IF g_debug
10211: THEN
10212: hr_utility.set_location ('reset_rules', 8);
10213: END IF;
10214: END;
10215: ----------------------------Gen Special Main Section ---------------------------
10216: BEGIN -- Gen Special
10213: END IF;
10214: END;
10215: ----------------------------Gen Special Main Section ---------------------------
10216: BEGIN -- Gen Special
10217: g_debug := hr_utility.debug_enabled;
10218: hxt_util.DEBUG ('Top of Gen_Special.'); -- debug only --HXT115
10219: hxt_util.DEBUG ('person id ' || TO_CHAR (g_person_id));
10220:
10221: -- debug only --HXT115
10220:
10221: -- debug only --HXT115
10222: IF g_debug
10223: THEN
10224: hr_utility.TRACE ('--------------Gen Special-----------------');
10225: hr_utility.set_location ('hxt_time_detail.gen_special', 1);
10226: hr_utility.TRACE ( 'p_time_in :'
10227: || TO_CHAR (p_time_in, 'DD-MON-YYYY HH24:MI:SS')
10228: );
10221: -- debug only --HXT115
10222: IF g_debug
10223: THEN
10224: hr_utility.TRACE ('--------------Gen Special-----------------');
10225: hr_utility.set_location ('hxt_time_detail.gen_special', 1);
10226: hr_utility.TRACE ( 'p_time_in :'
10227: || TO_CHAR (p_time_in, 'DD-MON-YYYY HH24:MI:SS')
10228: );
10229: hr_utility.TRACE ( 'p_time_out :'
10222: IF g_debug
10223: THEN
10224: hr_utility.TRACE ('--------------Gen Special-----------------');
10225: hr_utility.set_location ('hxt_time_detail.gen_special', 1);
10226: hr_utility.TRACE ( 'p_time_in :'
10227: || TO_CHAR (p_time_in, 'DD-MON-YYYY HH24:MI:SS')
10228: );
10229: hr_utility.TRACE ( 'p_time_out :'
10230: || TO_CHAR (p_time_out, 'DD_MON-YYYY HH24:MI:SS')
10225: hr_utility.set_location ('hxt_time_detail.gen_special', 1);
10226: hr_utility.TRACE ( 'p_time_in :'
10227: || TO_CHAR (p_time_in, 'DD-MON-YYYY HH24:MI:SS')
10228: );
10229: hr_utility.TRACE ( 'p_time_out :'
10230: || TO_CHAR (p_time_out, 'DD_MON-YYYY HH24:MI:SS')
10231: );
10232: hr_utility.TRACE ('person id :' || TO_CHAR (g_person_id));
10233: END IF;
10228: );
10229: hr_utility.TRACE ( 'p_time_out :'
10230: || TO_CHAR (p_time_out, 'DD_MON-YYYY HH24:MI:SS')
10231: );
10232: hr_utility.TRACE ('person id :' || TO_CHAR (g_person_id));
10233: END IF;
10234:
10235: IF g_special_explosion.COUNT > 0
10236: THEN
10241: END LOOP;
10242:
10243: IF g_debug
10244: THEN
10245: hr_utility.TRACE ('Deleted g_special_explosion PL/SQL table');
10246: END IF;
10247:
10248: g_special_explosion.DELETE;
10249: END IF;
10258: END LOOP;
10259:
10260: IF g_debug
10261: THEN
10262: hr_utility.TRACE ('Deleted combo PL/SQL table');
10263: END IF;
10264:
10265: g_dy_wk_combo_explosion.DELETE;
10266: END IF;
10275: END LOOP;
10276:
10277: IF g_debug
10278: THEN
10279: hr_utility.TRACE ('Deleted daily PL/SQL table');
10280: END IF;
10281:
10282: g_daily_explosion.DELETE;
10283: END IF;
10292: END LOOP;
10293:
10294: IF g_debug
10295: THEN
10296: hr_utility.TRACE ('Deleted weekly PL/SQL table');
10297: END IF;
10298:
10299: g_weekly_explosion.DELETE;
10300: END IF;
10309: END LOOP;
10310:
10311: IF g_debug
10312: THEN
10313: hr_utility.TRACE ('Deleted g_daily_earn_category PL/SQL table');
10314: END IF;
10315:
10316: g_daily_earn_category.DELETE;
10317: END IF;
10326: END LOOP;
10327:
10328: IF g_debug
10329: THEN
10330: hr_utility.TRACE ('Deleted g_weekly_earn_category PL/SQL table');
10331: END IF;
10332:
10333: g_weekly_earn_category.DELETE;
10334: END IF;
10339: -- Then pay hours using holiday rules.
10340: -- Determine the Earning Category - Validated earlier
10341: IF g_debug
10342: THEN
10343: hr_utility.TRACE ('g_element_type_id :' || g_element_type_id);
10344: END IF;
10345:
10346: IF g_element_type_id IS NULL
10347: THEN
10354: END IF;
10355:
10356: IF g_debug
10357: THEN
10358: hr_utility.TRACE ( 'summary_earning_category :'
10359: || summary_earning_category
10360: );
10361: hr_utility.set_location ('hxt_time_detail.gen_special', 2);
10362: END IF;
10357: THEN
10358: hr_utility.TRACE ( 'summary_earning_category :'
10359: || summary_earning_category
10360: );
10361: hr_utility.set_location ('hxt_time_detail.gen_special', 2);
10362: END IF;
10363:
10364: IF summary_earning_category IS NULL
10365: THEN --- regular hours worked
10392: END IF;
10393:
10394: IF g_debug
10395: THEN
10396: hr_utility.TRACE ('rule_type_to_pay :' || rule_type_to_pay);
10397: END IF;
10398:
10399: OPEN check_spc_dy_eg;
10400:
10404: CLOSE check_spc_dy_eg;
10405:
10406: IF g_debug
10407: THEN
10408: hr_utility.TRACE ('g_SPC_DY_EG:' || g_spc_dy_eg);
10409: END IF;
10410:
10411: IF rule_type_to_pay = 'ABS'
10412: THEN
10411: IF rule_type_to_pay = 'ABS'
10412: THEN
10413: IF g_debug
10414: THEN
10415: hr_utility.set_location ('hxt_time_detail.gen_special', 3);
10416: hr_utility.TRACE
10417: ('-----------Entering rule_type_to_pay = ABS------------');
10418: END IF;
10419:
10412: THEN
10413: IF g_debug
10414: THEN
10415: hr_utility.set_location ('hxt_time_detail.gen_special', 3);
10416: hr_utility.TRACE
10417: ('-----------Entering rule_type_to_pay = ABS------------');
10418: END IF;
10419:
10420: -- Pay absence hours with earning element from Summary (parent) record.
10419:
10420: -- Pay absence hours with earning element from Summary (parent) record.
10421: IF g_debug
10422: THEN
10423: hr_utility.TRACE ('g_sdf_id:' || g_sdf_id);
10424: hr_utility.TRACE ('g_osp_id:' || g_osp_id);
10425: END IF;
10426:
10427: ERROR_CODE :=
10420: -- Pay absence hours with earning element from Summary (parent) record.
10421: IF g_debug
10422: THEN
10423: hr_utility.TRACE ('g_sdf_id:' || g_sdf_id);
10424: hr_utility.TRACE ('g_osp_id:' || g_osp_id);
10425: END IF;
10426:
10427: ERROR_CODE :=
10428: pay (p_hours_worked,
10456: );
10457:
10458: IF g_debug
10459: THEN
10460: hr_utility.set_location ('hxt_time_detail.gen_special', 4);
10461: END IF;
10462:
10463: IF ERROR_CODE <> 0
10464: THEN
10472: );
10473:
10474: IF g_debug
10475: THEN
10476: hr_utility.TRACE ( 'Loc D. Return code is :'
10477: || TO_CHAR (l_error_return)
10478: );
10479: END IF;
10480:
10482: END IF;
10483:
10484: IF g_debug
10485: THEN
10486: hr_utility.set_location ('hxt_time_detail.gen_special', 4.2);
10487: hr_utility.TRACE ( 'date_worked :'
10488: || TO_CHAR (g_date_worked, 'DD/MON/YY')
10489: );
10490: hr_utility.TRACE ('g_call_adjust_abs :' || g_call_adjust_abs);
10483:
10484: IF g_debug
10485: THEN
10486: hr_utility.set_location ('hxt_time_detail.gen_special', 4.2);
10487: hr_utility.TRACE ( 'date_worked :'
10488: || TO_CHAR (g_date_worked, 'DD/MON/YY')
10489: );
10490: hr_utility.TRACE ('g_call_adjust_abs :' || g_call_adjust_abs);
10491: hr_utility.TRACE ('g_ep_id:' || g_ep_id);
10486: hr_utility.set_location ('hxt_time_detail.gen_special', 4.2);
10487: hr_utility.TRACE ( 'date_worked :'
10488: || TO_CHAR (g_date_worked, 'DD/MON/YY')
10489: );
10490: hr_utility.TRACE ('g_call_adjust_abs :' || g_call_adjust_abs);
10491: hr_utility.TRACE ('g_ep_id:' || g_ep_id);
10492: hr_utility.TRACE ('g_element_type_id:' || g_element_type_id);
10493: END IF;
10494:
10487: hr_utility.TRACE ( 'date_worked :'
10488: || TO_CHAR (g_date_worked, 'DD/MON/YY')
10489: );
10490: hr_utility.TRACE ('g_call_adjust_abs :' || g_call_adjust_abs);
10491: hr_utility.TRACE ('g_ep_id:' || g_ep_id);
10492: hr_utility.TRACE ('g_element_type_id:' || g_element_type_id);
10493: END IF;
10494:
10495: IF g_call_adjust_abs = 'Y'
10488: || TO_CHAR (g_date_worked, 'DD/MON/YY')
10489: );
10490: hr_utility.TRACE ('g_call_adjust_abs :' || g_call_adjust_abs);
10491: hr_utility.TRACE ('g_ep_id:' || g_ep_id);
10492: hr_utility.TRACE ('g_element_type_id:' || g_element_type_id);
10493: END IF;
10494:
10495: IF g_call_adjust_abs = 'Y'
10496: THEN
10495: IF g_call_adjust_abs = 'Y'
10496: THEN
10497: IF g_debug
10498: THEN
10499: hr_utility.set_location ('hxt_time_detail.gen_special', 4.3);
10500: END IF;
10501:
10502: -- begin 688072
10503: IF g_ep_type IN ('WEEKLY', 'SPECIAL')
10504: THEN
10505: -- Bug 2795054
10506: IF g_debug
10507: THEN
10508: hr_utility.set_location ('hxt_time_detail.gen_special',
10509: 4.4);
10510: END IF;
10511:
10512: -- Bug 2795054
10523: CLOSE check_abs_elem;
10524:
10525: IF g_debug
10526: THEN
10527: hr_utility.TRACE ('l_abs_in_eg:' || l_abs_in_eg);
10528: END IF;
10529:
10530: IF (l_abs_in_eg IS NOT NULL)
10531: THEN
10530: IF (l_abs_in_eg IS NOT NULL)
10531: THEN
10532: IF g_debug
10533: THEN
10534: hr_utility.set_location ('hxt_time_detail.gen_special',
10535: 4.5
10536: );
10537: END IF;
10538:
10540: adjust_for_absence (g_tim_id, g_ep_id, g_date_worked);
10541:
10542: IF g_debug
10543: THEN
10544: hr_utility.set_location ('hxt_time_detail.gen_special',
10545: 5
10546: );
10547: hr_utility.TRACE ('error_code :' || ERROR_CODE);
10548: END IF;
10543: THEN
10544: hr_utility.set_location ('hxt_time_detail.gen_special',
10545: 5
10546: );
10547: hr_utility.TRACE ('error_code :' || ERROR_CODE);
10548: END IF;
10549:
10550: --SIR491 Begin
10551: IF ERROR_CODE = 1
10551: IF ERROR_CODE = 1
10552: THEN
10553: IF g_debug
10554: THEN
10555: hr_utility.set_location
10556: ('hxt_time_detail.gen_special',
10557: 5.1
10558: );
10559: END IF;
10570: ELSIF ERROR_CODE = 2
10571: THEN
10572: IF g_debug
10573: THEN
10574: hr_utility.set_location
10575: ('hxt_time_detail.gen_special',
10576: 5.2
10577: );
10578: END IF;
10591: ELSIF ERROR_CODE = 3
10592: THEN
10593: IF g_debug
10594: THEN
10595: hr_utility.set_location
10596: ('hxt_time_detail.gen_special',
10597: 5.3
10598: );
10599: END IF;
10610: END IF;
10611:
10612: IF g_debug
10613: THEN
10614: hr_utility.TRACE ('l_error_return :' || l_error_return);
10615: END IF;
10616:
10617: IF ERROR_CODE > l_error_return
10618: THEN
10617: IF ERROR_CODE > l_error_return
10618: THEN
10619: IF g_debug
10620: THEN
10621: hr_utility.set_location
10622: ('hxt_time_detail.gen_special',
10623: 6
10624: );
10625: END IF;
10627: l_error_return := ERROR_CODE;
10628:
10629: IF g_debug
10630: THEN
10631: hr_utility.TRACE ( 'Loc E. Return code is :'
10632: || TO_CHAR (l_error_return)
10633: );
10634: END IF;
10635: END IF;
10636:
10637: --SIR491 END
10638: IF g_debug
10639: THEN
10640: hr_utility.set_location ('hxt_time_detail.gen_special',
10641: 6.1
10642: );
10643: END IF;
10644: END IF;
10644: END IF;
10645:
10646: IF g_debug
10647: THEN
10648: hr_utility.set_location ('hxt_time_detail.gen_special',
10649: 6.2);
10650: END IF;
10651: END IF;
10652:
10651: END IF;
10652:
10653: IF g_debug
10654: THEN
10655: hr_utility.set_location ('hxt_time_detail.gen_special', 6.3);
10656: END IF;
10657: -- end 688072
10658: END IF;
10659: ELSE -- rule_type_to_pay <> ABS
10658: END IF;
10659: ELSE -- rule_type_to_pay <> ABS
10660: IF g_debug
10661: THEN
10662: hr_utility.set_location ('hxt_time_detail.gen_special', 7);
10663: hr_utility.TRACE
10664: ('------------rule_type_to_pay <> ABS------------');
10665: END IF;
10666:
10659: ELSE -- rule_type_to_pay <> ABS
10660: IF g_debug
10661: THEN
10662: hr_utility.set_location ('hxt_time_detail.gen_special', 7);
10663: hr_utility.TRACE
10664: ('------------rule_type_to_pay <> ABS------------');
10665: END IF;
10666:
10667: -- Loop through the earning rules for the earning policy
10671: contig_hours_worked (g_date_worked, g_egt_id, g_tim_id);
10672:
10673: IF g_debug
10674: THEN
10675: hr_utility.TRACE ( 'previous_detail_hours_day :'
10676: || previous_detail_hours_day
10677: );
10678: END IF;
10679:
10681:
10682: --from daily view
10683: IF g_debug
10684: THEN
10685: hr_utility.TRACE ('hours_paid_daily_rule:'
10686: || hours_paid_daily_rule
10687: );
10688: END IF;
10689:
10693: hours_left_to_pay := p_hours_worked;
10694:
10695: IF g_debug
10696: THEN
10697: hr_utility.TRACE ('hours_left_to_pay:' || hours_left_to_pay);
10698: END IF;
10699:
10700: IF ERROR_CODE > l_error_return
10701: THEN
10700: IF ERROR_CODE > l_error_return
10701: THEN
10702: IF g_debug
10703: THEN
10704: hr_utility.set_location ('hxt_time_detail.gen_special', 10);
10705: END IF;
10706:
10707: l_error_return := ERROR_CODE;
10708: hxt_util.DEBUG ( 'Loc F. Return code is '
10710: ); -- debug only
10711:
10712: IF g_debug
10713: THEN
10714: hr_utility.TRACE ( 'Loc F. Return code is :'
10715: || TO_CHAR (l_error_return)
10716: );
10717: END IF;
10718: END IF;
10728: -- rules.
10729: -- Weekly set to 999 if none found.
10730: IF g_debug
10731: THEN
10732: hr_utility.set_location ('hxt_time_detail.gen_special', 11);
10733: END IF;
10734:
10735: seven_day_cal_rule := FALSE;
10736: five_day_cal_rule := FALSE;
10743: consecutive_days_limit;
10744:
10745: IF g_debug
10746: THEN
10747: hr_utility.TRACE ('special_daily_cap :' || special_daily_cap);
10748: hr_utility.TRACE ( 'special_earning_type :'
10749: || special_earning_type
10750: );
10751: hr_utility.TRACE ( 'consecutive_days_limit :'
10744:
10745: IF g_debug
10746: THEN
10747: hr_utility.TRACE ('special_daily_cap :' || special_daily_cap);
10748: hr_utility.TRACE ( 'special_earning_type :'
10749: || special_earning_type
10750: );
10751: hr_utility.TRACE ( 'consecutive_days_limit :'
10752: || consecutive_days_limit
10747: hr_utility.TRACE ('special_daily_cap :' || special_daily_cap);
10748: hr_utility.TRACE ( 'special_earning_type :'
10749: || special_earning_type
10750: );
10751: hr_utility.TRACE ( 'consecutive_days_limit :'
10752: || consecutive_days_limit
10753: );
10754: END IF;
10755:
10756: IF daily_earn_rules_cur%FOUND
10757: THEN
10758: IF g_debug
10759: THEN
10760: hr_utility.set_location ('hxt_time_detail.gen_special', 12);
10761: END IF;
10762:
10763: -- Now that we know there is at least one day rule, determine how many
10764: -- consecutive days worked. Use the rule with the highest day number
10766: CLOSE daily_earn_rules_cur;
10767:
10768: IF g_debug
10769: THEN
10770: hr_utility.TRACE ('g_SPC_DY_EG:' || g_spc_dy_eg);
10771: END IF;
10772:
10773: IF g_spc_dy_eg IS NOT NULL
10774: THEN
10776: consecutivedaysworked_for_spc (g_date_worked);
10777:
10778: IF g_debug
10779: THEN
10780: hr_utility.TRACE ( 'date_worked :'
10781: || TO_CHAR (g_date_worked, 'DD/MON/YY')
10782: );
10783: hr_utility.TRACE ( 'consec_days_worked:'
10784: || TO_CHAR (consec_days_worked)
10779: THEN
10780: hr_utility.TRACE ( 'date_worked :'
10781: || TO_CHAR (g_date_worked, 'DD/MON/YY')
10782: );
10783: hr_utility.TRACE ( 'consec_days_worked:'
10784: || TO_CHAR (consec_days_worked)
10785: );
10786: END IF;
10787: ELSE
10788: consec_days_worked := getconsecutivedaysworked (g_date_worked);
10789:
10790: IF g_debug
10791: THEN
10792: hr_utility.TRACE ( 'date_worked:'
10793: || TO_CHAR (g_date_worked, 'DD/MON/YY')
10794: );
10795: hr_utility.TRACE ( 'consec_days_worked:'
10796: || TO_CHAR (consec_days_worked)
10791: THEN
10792: hr_utility.TRACE ( 'date_worked:'
10793: || TO_CHAR (g_date_worked, 'DD/MON/YY')
10794: );
10795: hr_utility.TRACE ( 'consec_days_worked:'
10796: || TO_CHAR (consec_days_worked)
10797: );
10798: END IF;
10799: END IF;
10813: ); -- debug only
10814:
10815: IF g_debug
10816: THEN
10817: hr_utility.TRACE ( 'special_daily_cap :'
10818: || TO_CHAR (special_daily_cap)
10819: );
10820: hr_utility.TRACE ( 'special_earning_type :'
10821: || TO_CHAR (special_earning_type)
10816: THEN
10817: hr_utility.TRACE ( 'special_daily_cap :'
10818: || TO_CHAR (special_daily_cap)
10819: );
10820: hr_utility.TRACE ( 'special_earning_type :'
10821: || TO_CHAR (special_earning_type)
10822: );
10823: hr_utility.TRACE ( 'consecutive_days_limit:'
10824: || TO_CHAR (consecutive_days_limit)
10819: );
10820: hr_utility.TRACE ( 'special_earning_type :'
10821: || TO_CHAR (special_earning_type)
10822: );
10823: hr_utility.TRACE ( 'consecutive_days_limit:'
10824: || TO_CHAR (consecutive_days_limit)
10825: );
10826: END IF;
10827:
10828: IF spc_earn_rules_cur%FOUND
10829: THEN
10830: IF g_debug
10831: THEN
10832: hr_utility.set_location ('hxt_time_detail.gen_special', 13);
10833: END IF;
10834:
10835: FETCH spc_earn_rules_cur
10836: INTO special_daily_cap2, special_earning_type2,
10839: IF consecutive_days_limit <> consecutive_days_limit2
10840: THEN
10841: IF g_debug
10842: THEN
10843: hr_utility.set_location ('hxt_time_detail.gen_special',
10844: 14
10845: );
10846: END IF;
10847:
10852: IF consec_days_worked >= consecutive_days_limit
10853: THEN
10854: IF g_debug
10855: THEN
10856: hr_utility.set_location ('hxt_time_detail.gen_special',
10857: 15
10858: );
10859: END IF;
10860:
10861: consecutive_days_reached := TRUE;
10862: ELSE
10863: IF g_debug
10864: THEN
10865: hr_utility.set_location ('hxt_time_detail.gen_special',
10866: 16
10867: );
10868: END IF;
10869:
10873: IF consecutive_days_limit = 7
10874: THEN
10875: IF g_debug
10876: THEN
10877: hr_utility.set_location ('hxt_time_detail.gen_special',
10878: 17
10879: );
10880: END IF;
10881:
10883: ELSIF consecutive_days_limit = 5
10884: THEN
10885: IF g_debug
10886: THEN
10887: hr_utility.set_location ('hxt_time_detail.gen_special',
10888: 18
10889: );
10890: END IF;
10891:
10901: ); -- debug only
10902:
10903: IF g_debug
10904: THEN
10905: hr_utility.TRACE ( 'special_daily_cap2 :'
10906: || TO_CHAR (special_daily_cap2)
10907: );
10908: hr_utility.TRACE ( 'special_earning_type2 :'
10909: || TO_CHAR (special_earning_type2)
10904: THEN
10905: hr_utility.TRACE ( 'special_daily_cap2 :'
10906: || TO_CHAR (special_daily_cap2)
10907: );
10908: hr_utility.TRACE ( 'special_earning_type2 :'
10909: || TO_CHAR (special_earning_type2)
10910: );
10911: hr_utility.TRACE ( 'consecutive_days_limit2 :'
10912: || TO_CHAR (consecutive_days_limit2)
10907: );
10908: hr_utility.TRACE ( 'special_earning_type2 :'
10909: || TO_CHAR (special_earning_type2)
10910: );
10911: hr_utility.TRACE ( 'consecutive_days_limit2 :'
10912: || TO_CHAR (consecutive_days_limit2)
10913: );
10914: END IF;
10915: ELSE -- spc_earn_rules_cur NOT FOUND
10914: END IF;
10915: ELSE -- spc_earn_rules_cur NOT FOUND
10916: IF g_debug
10917: THEN
10918: hr_utility.set_location ('hxt_time_detail.gen_special', 19);
10919: END IF;
10920:
10921: special_daily_cap := 99;
10922: special_earning_type := NULL;
10925: END IF;
10926: ELSE -- daily_earn_rules_cur NOT FOUND (NO SPECIAL (DAYS) RULE)
10927: IF g_debug
10928: THEN
10929: hr_utility.set_location ('hxt_time_detail.gen_special', 20);
10930: END IF;
10931:
10932: CLOSE daily_earn_rules_cur;
10933: END IF;
10944: first_daily_rule_cap := daily_rule_cap;
10945:
10946: IF g_debug
10947: THEN
10948: hr_utility.TRACE ('first_daily_rule_cap:' || first_daily_rule_cap);
10949: hr_utility.TRACE ('g_EP_TYPE :' || g_ep_type);
10950: END IF;
10951:
10952: IF (daily_earn_rules_cur%NOTFOUND AND (g_ep_type = 'WEEKLY'))
10945:
10946: IF g_debug
10947: THEN
10948: hr_utility.TRACE ('first_daily_rule_cap:' || first_daily_rule_cap);
10949: hr_utility.TRACE ('g_EP_TYPE :' || g_ep_type);
10950: END IF;
10951:
10952: IF (daily_earn_rules_cur%NOTFOUND AND (g_ep_type = 'WEEKLY'))
10953: THEN
10952: IF (daily_earn_rules_cur%NOTFOUND AND (g_ep_type = 'WEEKLY'))
10953: THEN
10954: IF g_debug
10955: THEN
10956: hr_utility.set_location ('hxt_time_detail.gen_special', 21);
10957: hr_utility.TRACE
10958: ('daily_earn_rules_cur NOTFOUND and EP_TYPE = WEEKLY');
10959: END IF;
10960:
10953: THEN
10954: IF g_debug
10955: THEN
10956: hr_utility.set_location ('hxt_time_detail.gen_special', 21);
10957: hr_utility.TRACE
10958: ('daily_earn_rules_cur NOTFOUND and EP_TYPE = WEEKLY');
10959: END IF;
10960:
10961: daily_rule_cap := 24;
10965: IF (daily_earn_rules_cur%NOTFOUND AND (g_ep_type <> 'WEEKLY'))
10966: THEN
10967: IF g_debug
10968: THEN
10969: hr_utility.set_location ('hxt_time_detail.gen_special', 22);
10970: hr_utility.TRACE
10971: ('daily_earn_rules_cur NOTFOUND and EP_TYPE<>WEEKLY');
10972: END IF;
10973:
10966: THEN
10967: IF g_debug
10968: THEN
10969: hr_utility.set_location ('hxt_time_detail.gen_special', 22);
10970: hr_utility.TRACE
10971: ('daily_earn_rules_cur NOTFOUND and EP_TYPE<>WEEKLY');
10972: END IF;
10973:
10974: fnd_message.set_name ('HXT', 'HXT_39307_DAILY_BASE_REC_NF');
10989: );
10990:
10991: IF g_debug
10992: THEN
10993: hr_utility.TRACE ( 'Loc G. Return code is:'
10994: || TO_CHAR (l_error_return)
10995: );
10996: END IF;
10997: END IF;
11000: special_and_weekly_base := daily_earning_type;
11001:
11002: IF g_debug
11003: THEN
11004: hr_utility.TRACE ( 'special_and_weekly_base :'
11005: || special_and_weekly_base
11006: );
11007: END IF;
11008:
11011: IF rule_type_to_pay <> 'DAY'
11012: THEN -- for now only HOL
11013: IF g_debug
11014: THEN
11015: hr_utility.set_location ('hxt_time_detail.gen_special', 23);
11016: END IF;
11017:
11018: CLOSE daily_earn_rules_cur; -- opened with parameter DAY
11019:
11026: IF daily_earn_rules_cur%NOTFOUND
11027: THEN
11028: IF g_debug
11029: THEN
11030: hr_utility.set_location ('hxt_time_detail.gen_special', 24);
11031: END IF;
11032:
11033: end_of_day_rules := TRUE;
11034: END IF;
11035: END IF;
11036:
11037: IF g_debug
11038: THEN
11039: hr_utility.TRACE ('g_ep_id :' || g_ep_id);
11040: END IF;
11041:
11042: OPEN weekly_earn_rules_cur (g_ep_id);
11043:
11042: OPEN weekly_earn_rules_cur (g_ep_id);
11043:
11044: IF g_debug
11045: THEN
11046: hr_utility.TRACE
11047: ('---------OPEN weekly_earn_rules_cur-----------');
11048: END IF;
11049:
11050: FETCH weekly_earn_rules_cur
11051: INTO weekly_rule_cap, weekly_earning_type;
11052:
11053: IF g_debug
11054: THEN
11055: hr_utility.TRACE
11056: ('---------FETCHED weekly_earn_rules_cur----------');
11057: hr_utility.TRACE ('weekly_rule_cap :' || weekly_rule_cap);
11058: hr_utility.TRACE ('weekly_earning_type :' || weekly_earning_type);
11059: END IF;
11053: IF g_debug
11054: THEN
11055: hr_utility.TRACE
11056: ('---------FETCHED weekly_earn_rules_cur----------');
11057: hr_utility.TRACE ('weekly_rule_cap :' || weekly_rule_cap);
11058: hr_utility.TRACE ('weekly_earning_type :' || weekly_earning_type);
11059: END IF;
11060:
11061: IF weekly_earn_rules_cur%NOTFOUND
11054: THEN
11055: hr_utility.TRACE
11056: ('---------FETCHED weekly_earn_rules_cur----------');
11057: hr_utility.TRACE ('weekly_rule_cap :' || weekly_rule_cap);
11058: hr_utility.TRACE ('weekly_earning_type :' || weekly_earning_type);
11059: END IF;
11060:
11061: IF weekly_earn_rules_cur%NOTFOUND
11062: THEN
11061: IF weekly_earn_rules_cur%NOTFOUND
11062: THEN
11063: IF g_debug
11064: THEN
11065: hr_utility.set_location ('hxt_time_detail.gen_special', 25);
11066: END IF;
11067:
11068: IF g_ep_type = 'WEEKLY'
11069: THEN
11068: IF g_ep_type = 'WEEKLY'
11069: THEN
11070: IF g_debug
11071: THEN
11072: hr_utility.set_location ('hxt_time_detail.gen_special', 26);
11073: END IF;
11074:
11075: fnd_message.set_name ('HXT', 'HXT_39311_WKLY_ERN_RULES_NF');
11076: ERROR_CODE :=
11085: IF ERROR_CODE > l_error_return
11086: THEN
11087: IF g_debug
11088: THEN
11089: hr_utility.set_location ('hxt_time_detail.gen_special',
11090: 27
11091: );
11092: END IF;
11093:
11098: END IF; --SIR014
11099: ELSE
11100: IF g_debug
11101: THEN
11102: hr_utility.set_location ('hxt_time_detail.gen_special', 28);
11103: END IF;
11104:
11105: weekly_rule_cap := 999;
11106: hours_paid_weekly_rule := 0;
11129:
11130: -- hours_paid_weekly_rule := get_weekly_total_to_date('REG');
11131: IF g_debug
11132: THEN
11133: hr_utility.TRACE ( 'hours_paid_weekly_rule :'
11134: || hours_paid_weekly_rule
11135: );
11136: END IF;
11137:
11139: IF hours_paid_weekly_rule >= weekly_rule_cap
11140: THEN
11141: IF g_debug
11142: THEN
11143: hr_utility.set_location ('hxt_time_detail.gen_special', 29);
11144: END IF;
11145:
11146: first_weekly_cap_reached := TRUE;
11147: END IF;
11151: l_time_out := p_time_out;
11152:
11153: IF g_debug
11154: THEN
11155: hr_utility.TRACE ('l_time_in :' || TO_CHAR (l_time_in, 'HH24:MI'));
11156: hr_utility.TRACE ('l_time_out:' || TO_CHAR (l_time_out, 'HH24:MI')
11157: );
11158: END IF;
11159:
11152:
11153: IF g_debug
11154: THEN
11155: hr_utility.TRACE ('l_time_in :' || TO_CHAR (l_time_in, 'HH24:MI'));
11156: hr_utility.TRACE ('l_time_out:' || TO_CHAR (l_time_out, 'HH24:MI')
11157: );
11158: END IF;
11159:
11160: --SIR494 We must allow the loop to process at least once or we will not be able
11168: -- bug 2956224 fix.
11169: LOOP
11170: IF g_debug
11171: THEN
11172: hr_utility.set_location ('hxt_time_detail.gen_special', 30);
11173: END IF;
11174:
11175: IF g_ep_type = 'WEEKLY' AND rule_type_to_pay <> 'HOL'
11176: THEN
11175: IF g_ep_type = 'WEEKLY' AND rule_type_to_pay <> 'HOL'
11176: THEN
11177: IF g_debug
11178: THEN
11179: hr_utility.set_location ('hxt_time_detail.gen_special', 31);
11180: END IF;
11181:
11182: select_weekly_hours (rule_to_pay,
11183: hours_to_pay_this_rule,
11185: );
11186:
11187: IF g_debug
11188: THEN
11189: hr_utility.set_location ('hxt_time_detail.gen_special',
11190: 31.5
11191: );
11192: END IF;
11193:
11194: IF ERROR_CODE > l_error_return
11195: THEN
11196: IF g_debug
11197: THEN
11198: hr_utility.set_location ('hxt_time_detail.gen_special',
11199: 32
11200: );
11201: END IF;
11202:
11209: AND rule_type_to_pay = 'HOL'
11210: THEN
11211: IF g_debug
11212: THEN
11213: hr_utility.set_location ('hxt_time_detail.gen_special',
11214: 32.1
11215: );
11216: END IF;
11217:
11223: IF ERROR_CODE > l_error_return
11224: THEN
11225: IF g_debug
11226: THEN
11227: hr_utility.set_location ('hxt_time_detail.gen_special',
11228: 32.5
11229: );
11230: END IF;
11231:
11236: END IF;
11237: ELSE
11238: IF g_debug
11239: THEN
11240: hr_utility.set_location ('hxt_time_detail.gen_special', 33);
11241: END IF;
11242:
11243: --MHANDA Determine whether the rules to be applied use the
11244: --points counter.
11248: WHERE ID = g_ep_id;
11249:
11250: IF g_debug
11251: THEN
11252: hr_utility.TRACE ( 'use_points_assigned? :'
11253: || l_use_points_assigned
11254: );
11255: END IF;
11256:
11257: IF l_use_points_assigned = 'N' OR l_use_points_assigned IS NULL
11258: THEN
11259: IF g_debug
11260: THEN
11261: hr_utility.set_location ('hxt_time_detail.gen_special',
11262: 33.1
11263: );
11264: END IF;
11265:
11271: ELSIF l_use_points_assigned = 'Y'
11272: THEN
11273: IF g_debug
11274: THEN
11275: hr_utility.set_location ('hxt_time_detail.gen_special',
11276: 33.2
11277: );
11278: END IF;
11279:
11284: );
11285:
11286: IF g_debug
11287: THEN
11288: hr_utility.set_location ('hxt_time_detail.gen_special',
11289: 33.3
11290: );
11291: END IF;
11292: END IF;
11294: IF ERROR_CODE > l_error_return
11295: THEN
11296: IF g_debug
11297: THEN
11298: hr_utility.set_location ('hxt_time_detail.gen_special',
11299: 34
11300: );
11301: END IF;
11302:
11308: END IF;
11309:
11310: IF g_debug
11311: THEN
11312: hr_utility.TRACE ('g_hours :' || g_hours);
11313: END IF;
11314:
11315: IF l_use_points_assigned = 'N' OR l_use_points_assigned IS NULL
11316: THEN
11317: IF g_hours >= 0
11318: THEN
11319: IF g_debug
11320: THEN
11321: hr_utility.set_location ('hxt_time_detail.gen_special',
11322: 35
11323: );
11324: hr_utility.TRACE ( 'hours_to_pay_this_rule :'
11325: || hours_to_pay_this_rule
11320: THEN
11321: hr_utility.set_location ('hxt_time_detail.gen_special',
11322: 35
11323: );
11324: hr_utility.TRACE ( 'hours_to_pay_this_rule :'
11325: || hours_to_pay_this_rule
11326: );
11327: END IF;
11328:
11330: GREATEST (hours_to_pay_this_rule, 0);
11331:
11332: IF g_debug
11333: THEN
11334: hr_utility.TRACE ( 'hours_to_pay_this_rule :'
11335: || hours_to_pay_this_rule
11336: );
11337: END IF;
11338: -- can be negative if a rule was
11340: END IF;
11341:
11342: IF g_debug
11343: THEN
11344: hr_utility.TRACE ('error_code :' || ERROR_CODE);
11345: END IF;
11346:
11347: IF ( (hours_to_pay_this_rule > 0 AND ERROR_CODE = 0)
11348: OR (b_first_time = TRUE)
11349: )
11350: THEN
11351: IF g_debug
11352: THEN
11353: hr_utility.set_location ('hxt_time_detail.gen_special', 36);
11354: hr_utility.TRACE ( 'l_time_in :'
11355: || TO_CHAR (l_time_in, 'HH24:MI')
11356: );
11357: hr_utility.TRACE ( 'l_time_out:'
11350: THEN
11351: IF g_debug
11352: THEN
11353: hr_utility.set_location ('hxt_time_detail.gen_special', 36);
11354: hr_utility.TRACE ( 'l_time_in :'
11355: || TO_CHAR (l_time_in, 'HH24:MI')
11356: );
11357: hr_utility.TRACE ( 'l_time_out:'
11358: || TO_CHAR (l_time_out, 'HH24:MI')
11353: hr_utility.set_location ('hxt_time_detail.gen_special', 36);
11354: hr_utility.TRACE ( 'l_time_in :'
11355: || TO_CHAR (l_time_in, 'HH24:MI')
11356: );
11357: hr_utility.TRACE ( 'l_time_out:'
11358: || TO_CHAR (l_time_out, 'HH24:MI')
11359: );
11360: END IF;
11361:
11365: ROUND (l_time_in + (hours_to_pay_this_rule / 24), 'MI');
11366:
11367: IF g_debug
11368: THEN
11369: hr_utility.TRACE ( 'l_time_in :'
11370: || TO_CHAR (l_time_in, 'HH24:MI')
11371: );
11372: hr_utility.TRACE ( 'l_time_out:'
11373: || TO_CHAR (l_time_out, 'HH24:MI')
11368: THEN
11369: hr_utility.TRACE ( 'l_time_in :'
11370: || TO_CHAR (l_time_in, 'HH24:MI')
11371: );
11372: hr_utility.TRACE ( 'l_time_out:'
11373: || TO_CHAR (l_time_out, 'HH24:MI')
11374: );
11375: hr_utility.TRACE ('********RM BEFORE CALL TO PAY**********');
11376: hr_utility.TRACE ( 'hours_to_pay_this_rule IS : *** : '
11371: );
11372: hr_utility.TRACE ( 'l_time_out:'
11373: || TO_CHAR (l_time_out, 'HH24:MI')
11374: );
11375: hr_utility.TRACE ('********RM BEFORE CALL TO PAY**********');
11376: hr_utility.TRACE ( 'hours_to_pay_this_rule IS : *** : '
11377: || TO_CHAR (hours_to_pay_this_rule)
11378: );
11379: hr_utility.TRACE ( 'l_time_in IS : *** : '
11372: hr_utility.TRACE ( 'l_time_out:'
11373: || TO_CHAR (l_time_out, 'HH24:MI')
11374: );
11375: hr_utility.TRACE ('********RM BEFORE CALL TO PAY**********');
11376: hr_utility.TRACE ( 'hours_to_pay_this_rule IS : *** : '
11377: || TO_CHAR (hours_to_pay_this_rule)
11378: );
11379: hr_utility.TRACE ( 'l_time_in IS : *** : '
11380: || TO_CHAR (l_time_in,
11375: hr_utility.TRACE ('********RM BEFORE CALL TO PAY**********');
11376: hr_utility.TRACE ( 'hours_to_pay_this_rule IS : *** : '
11377: || TO_CHAR (hours_to_pay_this_rule)
11378: );
11379: hr_utility.TRACE ( 'l_time_in IS : *** : '
11380: || TO_CHAR (l_time_in,
11381: 'DD-MON-YYYY HH24:MI:SS'
11382: )
11383: );
11380: || TO_CHAR (l_time_in,
11381: 'DD-MON-YYYY HH24:MI:SS'
11382: )
11383: );
11384: hr_utility.TRACE ( 'l_time_out IS : *** : '
11385: || TO_CHAR (l_time_out,
11386: 'DD-MON-YYYY HH24:MI:SS'
11387: )
11388: );
11385: || TO_CHAR (l_time_out,
11386: 'DD-MON-YYYY HH24:MI:SS'
11387: )
11388: );
11389: hr_utility.TRACE ( 'element_type_id_to_pay IS : *** : '
11390: || TO_CHAR (element_type_id_to_pay)
11391: );
11392: hr_utility.TRACE ( 'g_date_worked IS : *** : '
11393: || TO_CHAR (g_date_worked, 'DD-MON-YYYY')
11388: );
11389: hr_utility.TRACE ( 'element_type_id_to_pay IS : *** : '
11390: || TO_CHAR (element_type_id_to_pay)
11391: );
11392: hr_utility.TRACE ( 'g_date_worked IS : *** : '
11393: || TO_CHAR (g_date_worked, 'DD-MON-YYYY')
11394: );
11395: END IF;
11396:
11428: IF ERROR_CODE <> 0
11429: THEN
11430: IF g_debug
11431: THEN
11432: hr_utility.set_location ('hxt_time_detail.gen_special',
11433: 37
11434: );
11435: END IF;
11436:
11437: IF ERROR_CODE > l_error_return
11438: THEN
11439: IF g_debug
11440: THEN
11441: hr_utility.set_location
11442: ('hxt_time_detail.gen_special',
11443: 38
11444: );
11445: END IF;
11455: END IF;
11456:
11457: IF g_debug
11458: THEN
11459: hr_utility.set_location ('hxt_time_detail.gen_special', 39);
11460: hr_utility.TRACE ( 'hours_left_to_pay :'
11461: || TO_CHAR (hours_left_to_pay)
11462: );
11463: END IF;
11456:
11457: IF g_debug
11458: THEN
11459: hr_utility.set_location ('hxt_time_detail.gen_special', 39);
11460: hr_utility.TRACE ( 'hours_left_to_pay :'
11461: || TO_CHAR (hours_left_to_pay)
11462: );
11463: END IF;
11464:
11467: );
11468:
11469: IF g_debug
11470: THEN
11471: hr_utility.TRACE ( 'hours_to_pay_this_rule :'
11472: || TO_CHAR (hours_to_pay_this_rule)
11473: );
11474: hr_utility.TRACE ( 'l_use_points_assigned :'
11475: || l_use_points_assigned
11470: THEN
11471: hr_utility.TRACE ( 'hours_to_pay_this_rule :'
11472: || TO_CHAR (hours_to_pay_this_rule)
11473: );
11474: hr_utility.TRACE ( 'l_use_points_assigned :'
11475: || l_use_points_assigned
11476: );
11477: END IF;
11478:
11481: IF l_use_points_assigned = 'N' OR l_use_points_assigned IS NULL
11482: THEN
11483: IF g_debug
11484: THEN
11485: hr_utility.set_location ('hxt_time_detail.gen_special',
11486: 39.5
11487: );
11488: END IF;
11489:
11492: END IF;
11493:
11494: IF g_debug
11495: THEN
11496: hr_utility.set_location ('hxt_time_detail.gen_special', 40);
11497: hr_utility.TRACE ( 'hours_left_to_pay :'
11498: || TO_CHAR (hours_left_to_pay)
11499: );
11500: END IF;
11493:
11494: IF g_debug
11495: THEN
11496: hr_utility.set_location ('hxt_time_detail.gen_special', 40);
11497: hr_utility.TRACE ( 'hours_left_to_pay :'
11498: || TO_CHAR (hours_left_to_pay)
11499: );
11500: END IF;
11501:
11511: IF hours_left_to_pay >= 0 AND ERROR_CODE = 0
11512: THEN
11513: IF g_debug
11514: THEN
11515: hr_utility.set_location ('hxt_time_detail.gen_special',
11516: 41
11517: );
11518: END IF;
11519:
11531: AND g_ep_type = 'SPECIAL'
11532: THEN
11533: IF g_debug
11534: THEN
11535: hr_utility.set_location
11536: ('hxt_time_detail.gen_special',
11537: 41.5
11538: );
11539: END IF;
11544: IF fetch_next_day = TRUE
11545: THEN
11546: IF g_debug
11547: THEN
11548: hr_utility.set_location
11549: ('hxt_time_detail.gen_special',
11550: 42
11551: );
11552: END IF;
11555: INTO daily_rule_cap, daily_earning_type, dummy_days;
11556:
11557: IF g_debug
11558: THEN
11559: hr_utility.TRACE ( 'daily_rule_cap :'
11560: || daily_rule_cap
11561: );
11562: hr_utility.TRACE ( 'daily_earning_type :'
11563: || daily_earning_type
11558: THEN
11559: hr_utility.TRACE ( 'daily_rule_cap :'
11560: || daily_rule_cap
11561: );
11562: hr_utility.TRACE ( 'daily_earning_type :'
11563: || daily_earning_type
11564: );
11565: hr_utility.TRACE ('dummy_days :' || dummy_days);
11566: END IF;
11561: );
11562: hr_utility.TRACE ( 'daily_earning_type :'
11563: || daily_earning_type
11564: );
11565: hr_utility.TRACE ('dummy_days :' || dummy_days);
11566: END IF;
11567:
11568: IF daily_earn_rules_cur%NOTFOUND
11569: THEN
11568: IF daily_earn_rules_cur%NOTFOUND
11569: THEN
11570: IF g_debug
11571: THEN
11572: hr_utility.set_location
11573: ('hxt_time_detail.gen_special',
11574: 43
11575: );
11576: END IF;
11582: IF fetch_next_week = TRUE
11583: THEN
11584: IF g_debug
11585: THEN
11586: hr_utility.set_location
11587: ('hxt_time_detail.gen_special',
11588: 44
11589: );
11590: END IF;
11592: current_weekly_earning := weekly_earning_type;
11593:
11594: IF g_debug
11595: THEN
11596: hr_utility.TRACE ( 'current_weekly_earning :'
11597: || current_weekly_earning
11598: );
11599: END IF;
11600:
11602: INTO weekly_rule_cap, weekly_earning_type;
11603:
11604: IF g_debug
11605: THEN
11606: hr_utility.TRACE ( 'weekly_rule_cap :'
11607: || weekly_rule_cap
11608: );
11609: hr_utility.TRACE ( 'weekly_earning_type :'
11610: || weekly_earning_type
11605: THEN
11606: hr_utility.TRACE ( 'weekly_rule_cap :'
11607: || weekly_rule_cap
11608: );
11609: hr_utility.TRACE ( 'weekly_earning_type :'
11610: || weekly_earning_type
11611: );
11612: END IF;
11613:
11620: get_wkly_total_for_doubletime;
11621:
11622: IF g_debug
11623: THEN
11624: hr_utility.TRACE ( 'hours_paid_for_dtime_elig :'
11625: || hours_paid_for_dtime_elig
11626: );
11627: END IF;
11628:
11642: -- is eligible for doubletime i.e., when second weekly cap is
11643: -- reached,when earning policy type is WEEKLY.
11644: /* IF g_EP_TYPE = 'WEEKLY' THEN
11645: hours_paid_weekly_rule := get_wkly_total_for_doubletime;
11646: hr_utility.trace('hours_paid_weekly_rule :'||hours_paid_weekly_rule);
11647: END IF;
11648: */
11649: IF weekly_earn_rules_cur%NOTFOUND
11650: THEN
11649: IF weekly_earn_rules_cur%NOTFOUND
11650: THEN
11651: IF g_debug
11652: THEN
11653: hr_utility.set_location
11654: ('hxt_time_detail.gen_special',
11655: 45
11656: );
11657: END IF;
11662: ELSIF hours_left_to_pay < 0
11663: THEN
11664: IF g_debug
11665: THEN
11666: hr_utility.set_location ('hxt_time_detail.gen_special',
11667: 46
11668: );
11669: END IF;
11670:
11671: IF g_hours >= 0
11672: THEN
11673: IF g_debug
11674: THEN
11675: hr_utility.set_location
11676: ('hxt_time_detail.gen_special',
11677: 47
11678: );
11679: END IF;
11693: IF ERROR_CODE > l_error_return
11694: THEN
11695: IF g_debug
11696: THEN
11697: hr_utility.set_location
11698: ('hxt_time_detail.gen_special',
11699: 48
11700: );
11701: END IF;
11707: END IF; --SIR014
11708: ELSE
11709: IF g_debug
11710: THEN
11711: hr_utility.set_location
11712: ('hxt_time_detail.gen_special',
11713: 49
11714: );
11715: END IF;
11718: END IF;
11719:
11720: IF g_debug
11721: THEN
11722: hr_utility.set_location ('hxt_time_detail.gen_special',
11723: 50
11724: );
11725: END IF;
11726: END IF; --hours_left_to_pay > 0 and error_code = 0
11731: IF loop_counter > 50
11732: THEN
11733: IF g_debug
11734: THEN
11735: hr_utility.set_location ('hxt_time_detail.gen_special', 52);
11736: END IF;
11737:
11738: fnd_message.set_name ('HXT', 'HXT_39305_LOOP_LIMIT_EXC');
11739: ERROR_CODE :=
11748: IF ERROR_CODE > l_error_return
11749: THEN
11750: IF g_debug
11751: THEN
11752: hr_utility.set_location ('hxt_time_detail.gen_special',
11753: 53
11754: );
11755: END IF;
11756:
11763: END IF;
11764:
11765: IF g_debug
11766: THEN
11767: hr_utility.set_location ('hxt_time_detail.gen_special', 54);
11768: END IF;
11769: END LOOP; -- While hours_left_to_pay <> 0 AND error_code = 0
11770:
11771: CLOSE daily_earn_rules_cur;
11777: AND ERROR_CODE = 0
11778: THEN
11779: IF g_debug
11780: THEN
11781: hr_utility.set_location ('hxt_time_detail.gen_special', 54.5);
11782: END IF;
11783:
11784: l_day_total := get_daily_total;
11785:
11784: l_day_total := get_daily_total;
11785:
11786: IF g_debug
11787: THEN
11788: hr_utility.TRACE ('l_day_total :' || l_day_total);
11789: END IF;
11790:
11791: IF l_day_total > 12
11792: THEN
11791: IF l_day_total > 12
11792: THEN
11793: IF g_debug
11794: THEN
11795: hr_utility.set_location ('hxt_time_detail.gen_special', 55);
11796: END IF;
11797:
11798: ERROR_CODE := adjust_for_double_time (l_day_total);
11799:
11800: IF ERROR_CODE = 0
11801: THEN
11802: IF g_debug
11803: THEN
11804: hr_utility.set_location ('hxt_time_detail.gen_special',
11805: 56
11806: );
11807: END IF;
11808:
11810: ELSIF ERROR_CODE = 1
11811: THEN
11812: IF g_debug
11813: THEN
11814: hr_utility.set_location ('hxt_time_detail.gen_special',
11815: 57
11816: );
11817: END IF;
11818:
11828: ELSIF ERROR_CODE = 2
11829: THEN
11830: IF g_debug
11831: THEN
11832: hr_utility.set_location ('hxt_time_detail.gen_special',
11833: 58
11834: );
11835: END IF;
11836:
11846: ELSIF ERROR_CODE = 3
11847: THEN
11848: IF g_debug
11849: THEN
11850: hr_utility.set_location ('hxt_time_detail.gen_special',
11851: 59
11852: );
11853: END IF;
11854:
11864: ELSIF ERROR_CODE = 4
11865: THEN
11866: IF g_debug
11867: THEN
11868: hr_utility.set_location ('hxt_time_detail.gen_special',
11869: 60
11870: );
11871: END IF;
11872:
11882: ELSIF ERROR_CODE = 5
11883: THEN
11884: IF g_debug
11885: THEN
11886: hr_utility.set_location ('hxt_time_detail.gen_special',
11887: 61
11888: );
11889: END IF;
11890:
11902: IF ERROR_CODE > l_error_return
11903: THEN
11904: IF g_debug
11905: THEN
11906: hr_utility.set_location ('hxt_time_detail.gen_special',
11907: 62
11908: );
11909: END IF;
11910:
11915: END IF;
11916:
11917: IF g_debug
11918: THEN
11919: hr_utility.set_location ('hxt_time_detail.gen_special', 63);
11920: END IF;
11921: END IF;
11922:
11923: IF g_debug
11921: END IF;
11922:
11923: IF g_debug
11924: THEN
11925: hr_utility.set_location ('hxt_time_detail.gen_special', 64);
11926: END IF;
11927: END IF;
11928:
11929: IF g_debug
11927: END IF;
11928:
11929: IF g_debug
11930: THEN
11931: hr_utility.TRACE
11932: ('-----------Leaving rule_type_to_pay = ABS------------');
11933: END IF;
11934: END IF; -- rule_type_to_pay = 'ABS'
11935:
11978: IF ERROR_CODE > l_error_return
11979: THEN
11980: IF g_debug
11981: THEN
11982: hr_utility.set_location ('hxt_time_detail.gen_special', 65);
11983: END IF;
11984:
11985: l_error_return := ERROR_CODE;
11986: hxt_util.DEBUG ('Loc F. Return code is ' || TO_CHAR (l_error_return));
11987:
11988: -- debug only
11989: IF g_debug
11990: THEN
11991: hr_utility.TRACE ( 'Loc F. Return code is :'
11992: || TO_CHAR (l_error_return)
11993: );
11994: END IF;
11995: END IF;
12097: LOCATION VARCHAR2 (120) := g_location || ':DDTL';
12098: BEGIN
12099: IF g_debug
12100: THEN
12101: hr_utility.set_location ('hxt_time_detail.delete_zero_hour_details',
12102: 10
12103: );
12104: END IF;
12105:
12106: FOR zero_rec IN zero_hrs_cur (a_tim_id, a_date_worked)
12107: LOOP -- through detail rows and delete zero hour rows
12108: IF g_debug
12109: THEN
12110: hr_utility.set_location
12111: ('hxt_time_detail.delete_zero_hour_details',
12112: 20
12113: );
12114: END IF;
12125: -- through flat amount day prem records and delete duplicates
12126: -- for a day. Flat amount Day Premium should be paid only once a day.
12127: IF g_debug
12128: THEN
12129: hr_utility.set_location
12130: ('hxt_time_detail.delete_zero_hour_details',
12131: 30
12132: );
12133: END IF;
12137: END LOOP;
12138:
12139: IF g_debug
12140: THEN
12141: hr_utility.set_location ('hxt_time_detail.delete_zero_hour_details',
12142: 40
12143: );
12144: END IF;
12145:
12212: BEGIN
12213: IF g_debug
12214: THEN
12215: l_proc := 'hxt_time_detail.combine_contig_chunks';
12216: hr_utility.set_location (l_proc, 10);
12217: hr_utility.TRACE ('g_id:' || g_id);
12218: END IF;
12219:
12220: FOR elem_rec IN c_distinct_elements (g_id)
12213: IF g_debug
12214: THEN
12215: l_proc := 'hxt_time_detail.combine_contig_chunks';
12216: hr_utility.set_location (l_proc, 10);
12217: hr_utility.TRACE ('g_id:' || g_id);
12218: END IF;
12219:
12220: FOR elem_rec IN c_distinct_elements (g_id)
12221: -- Loop through detail rows for each element and if contiguous times found
12222: -- then combine them into one.
12223: LOOP
12224: IF g_debug
12225: THEN
12226: hr_utility.set_location (l_proc, 20);
12227: hr_utility.TRACE ( 'elem_rec.element_type_id :'
12228: || elem_rec.element_type_id
12229: );
12230: END IF;
12223: LOOP
12224: IF g_debug
12225: THEN
12226: hr_utility.set_location (l_proc, 20);
12227: hr_utility.TRACE ( 'elem_rec.element_type_id :'
12228: || elem_rec.element_type_id
12229: );
12230: END IF;
12231:
12232: IF c_distinct_elements%NOTFOUND
12233: THEN
12234: IF g_debug
12235: THEN
12236: hr_utility.set_location (l_proc, 25);
12237: END IF;
12238:
12239: EXIT;
12240: END IF;
12246: ln_rate_multiple, lv_prev_wage_code;
12247:
12248: IF g_debug
12249: THEN
12250: hr_utility.TRACE ('row_id :' || row_id);
12251: hr_utility.TRACE ( 'start_time :'
12252: || TO_CHAR (start_time,
12253: 'DD-MON-YYYY HH24:MI:SS')
12254: );
12247:
12248: IF g_debug
12249: THEN
12250: hr_utility.TRACE ('row_id :' || row_id);
12251: hr_utility.TRACE ( 'start_time :'
12252: || TO_CHAR (start_time,
12253: 'DD-MON-YYYY HH24:MI:SS')
12254: );
12255: hr_utility.TRACE ( 'end_time :'
12251: hr_utility.TRACE ( 'start_time :'
12252: || TO_CHAR (start_time,
12253: 'DD-MON-YYYY HH24:MI:SS')
12254: );
12255: hr_utility.TRACE ( 'end_time :'
12256: || TO_CHAR (end_time, 'DD-MON-YYYY HH24:MI:SS')
12257: );
12258: hr_utility.TRACE ('hours :' || hours);
12259: hr_utility.TRACE ('ln_amount :' || ln_amount);
12254: );
12255: hr_utility.TRACE ( 'end_time :'
12256: || TO_CHAR (end_time, 'DD-MON-YYYY HH24:MI:SS')
12257: );
12258: hr_utility.TRACE ('hours :' || hours);
12259: hr_utility.TRACE ('ln_amount :' || ln_amount);
12260: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12261: hr_utility.TRACE ('ln_rate_multiple :' || ln_rate_multiple);
12262: hr_utility.TRACE ('lv_prev_wage_code :' || lv_prev_wage_code);
12255: hr_utility.TRACE ( 'end_time :'
12256: || TO_CHAR (end_time, 'DD-MON-YYYY HH24:MI:SS')
12257: );
12258: hr_utility.TRACE ('hours :' || hours);
12259: hr_utility.TRACE ('ln_amount :' || ln_amount);
12260: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12261: hr_utility.TRACE ('ln_rate_multiple :' || ln_rate_multiple);
12262: hr_utility.TRACE ('lv_prev_wage_code :' || lv_prev_wage_code);
12263: END IF;
12256: || TO_CHAR (end_time, 'DD-MON-YYYY HH24:MI:SS')
12257: );
12258: hr_utility.TRACE ('hours :' || hours);
12259: hr_utility.TRACE ('ln_amount :' || ln_amount);
12260: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12261: hr_utility.TRACE ('ln_rate_multiple :' || ln_rate_multiple);
12262: hr_utility.TRACE ('lv_prev_wage_code :' || lv_prev_wage_code);
12263: END IF;
12264:
12257: );
12258: hr_utility.TRACE ('hours :' || hours);
12259: hr_utility.TRACE ('ln_amount :' || ln_amount);
12260: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12261: hr_utility.TRACE ('ln_rate_multiple :' || ln_rate_multiple);
12262: hr_utility.TRACE ('lv_prev_wage_code :' || lv_prev_wage_code);
12263: END IF;
12264:
12265: IF c_detail_chunks%FOUND
12258: hr_utility.TRACE ('hours :' || hours);
12259: hr_utility.TRACE ('ln_amount :' || ln_amount);
12260: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12261: hr_utility.TRACE ('ln_rate_multiple :' || ln_rate_multiple);
12262: hr_utility.TRACE ('lv_prev_wage_code :' || lv_prev_wage_code);
12263: END IF;
12264:
12265: IF c_detail_chunks%FOUND
12266: THEN
12265: IF c_detail_chunks%FOUND
12266: THEN
12267: IF g_debug
12268: THEN
12269: hr_utility.set_location (l_proc, 30);
12270: END IF;
12271:
12272: ln_row_id := row_id;
12273: ln_start_time := start_time;
12275: ln_hours := hours;
12276:
12277: IF g_debug
12278: THEN
12279: hr_utility.TRACE ('ln_row_id :' || ln_row_id);
12280: hr_utility.TRACE ( 'ln_start_time :'
12281: || TO_CHAR (ln_start_time,
12282: 'DD-MON-YYYY HH24:MI:SS'
12283: )
12276:
12277: IF g_debug
12278: THEN
12279: hr_utility.TRACE ('ln_row_id :' || ln_row_id);
12280: hr_utility.TRACE ( 'ln_start_time :'
12281: || TO_CHAR (ln_start_time,
12282: 'DD-MON-YYYY HH24:MI:SS'
12283: )
12284: );
12281: || TO_CHAR (ln_start_time,
12282: 'DD-MON-YYYY HH24:MI:SS'
12283: )
12284: );
12285: hr_utility.TRACE ( 'ln_end_time :'
12286: || TO_CHAR (ln_end_time,
12287: 'DD-MON-YYYY HH24:MI:SS'
12288: )
12289: );
12286: || TO_CHAR (ln_end_time,
12287: 'DD-MON-YYYY HH24:MI:SS'
12288: )
12289: );
12290: hr_utility.TRACE ('ln_hours :' || ln_hours);
12291: END IF;
12292: END IF;
12293:
12294: LOOP
12293:
12294: LOOP
12295: IF g_debug
12296: THEN
12297: hr_utility.set_location (l_proc, 35);
12298: END IF;
12299:
12300: FETCH c_detail_chunks
12301: INTO row_id1, start_time1, end_time1, hours1, ln_amount1,
12302: ln_hourly_rate1, ln_rate_multiple1, lv_prev_wage_code1;
12303:
12304: IF g_debug
12305: THEN
12306: hr_utility.TRACE ('row_id1 :' || row_id1);
12307: hr_utility.TRACE ( 'start_time1 :'
12308: || TO_CHAR (start_time1,
12309: 'DD-MON-YYYY HH24:MI:SS'
12310: )
12303:
12304: IF g_debug
12305: THEN
12306: hr_utility.TRACE ('row_id1 :' || row_id1);
12307: hr_utility.TRACE ( 'start_time1 :'
12308: || TO_CHAR (start_time1,
12309: 'DD-MON-YYYY HH24:MI:SS'
12310: )
12311: );
12308: || TO_CHAR (start_time1,
12309: 'DD-MON-YYYY HH24:MI:SS'
12310: )
12311: );
12312: hr_utility.TRACE ( 'end_time1 :'
12313: || TO_CHAR (end_time1,
12314: 'DD-MON-YYYY HH24:MI:SS'
12315: )
12316: );
12313: || TO_CHAR (end_time1,
12314: 'DD-MON-YYYY HH24:MI:SS'
12315: )
12316: );
12317: hr_utility.TRACE ('hours1 :' || hours1);
12318: hr_utility.TRACE ('ln_amount1 :' || ln_amount1);
12319: hr_utility.TRACE ('ln_hourly_rate1 :' || ln_hourly_rate1);
12320: hr_utility.TRACE ('ln_rate_multiple1 :' || ln_rate_multiple1);
12321: hr_utility.TRACE ('lv_prev_wage_code1 :' || lv_prev_wage_code1);
12314: 'DD-MON-YYYY HH24:MI:SS'
12315: )
12316: );
12317: hr_utility.TRACE ('hours1 :' || hours1);
12318: hr_utility.TRACE ('ln_amount1 :' || ln_amount1);
12319: hr_utility.TRACE ('ln_hourly_rate1 :' || ln_hourly_rate1);
12320: hr_utility.TRACE ('ln_rate_multiple1 :' || ln_rate_multiple1);
12321: hr_utility.TRACE ('lv_prev_wage_code1 :' || lv_prev_wage_code1);
12322: END IF;
12315: )
12316: );
12317: hr_utility.TRACE ('hours1 :' || hours1);
12318: hr_utility.TRACE ('ln_amount1 :' || ln_amount1);
12319: hr_utility.TRACE ('ln_hourly_rate1 :' || ln_hourly_rate1);
12320: hr_utility.TRACE ('ln_rate_multiple1 :' || ln_rate_multiple1);
12321: hr_utility.TRACE ('lv_prev_wage_code1 :' || lv_prev_wage_code1);
12322: END IF;
12323:
12316: );
12317: hr_utility.TRACE ('hours1 :' || hours1);
12318: hr_utility.TRACE ('ln_amount1 :' || ln_amount1);
12319: hr_utility.TRACE ('ln_hourly_rate1 :' || ln_hourly_rate1);
12320: hr_utility.TRACE ('ln_rate_multiple1 :' || ln_rate_multiple1);
12321: hr_utility.TRACE ('lv_prev_wage_code1 :' || lv_prev_wage_code1);
12322: END IF;
12323:
12324: IF c_detail_chunks%NOTFOUND
12317: hr_utility.TRACE ('hours1 :' || hours1);
12318: hr_utility.TRACE ('ln_amount1 :' || ln_amount1);
12319: hr_utility.TRACE ('ln_hourly_rate1 :' || ln_hourly_rate1);
12320: hr_utility.TRACE ('ln_rate_multiple1 :' || ln_rate_multiple1);
12321: hr_utility.TRACE ('lv_prev_wage_code1 :' || lv_prev_wage_code1);
12322: END IF;
12323:
12324: IF c_detail_chunks%NOTFOUND
12325: THEN
12324: IF c_detail_chunks%NOTFOUND
12325: THEN
12326: IF g_debug
12327: THEN
12328: hr_utility.set_location (l_proc, 40);
12329: END IF;
12330:
12331: CLOSE c_detail_chunks;
12332:
12334: END IF;
12335:
12336: IF g_debug
12337: THEN
12338: hr_utility.TRACE ( 'ln_end_time :'
12339: || TO_CHAR (ln_end_time,
12340: 'DD-MON-YYYY HH24:MI:SS'
12341: )
12342: );
12339: || TO_CHAR (ln_end_time,
12340: 'DD-MON-YYYY HH24:MI:SS'
12341: )
12342: );
12343: hr_utility.TRACE ( 'start_time1 :'
12344: || TO_CHAR (start_time1,
12345: 'DD-MON-YYYY HH24:MI:SS'
12346: )
12347: );
12344: || TO_CHAR (start_time1,
12345: 'DD-MON-YYYY HH24:MI:SS'
12346: )
12347: );
12348: hr_utility.TRACE ('ln_hours :' || ln_hours);
12349: hr_utility.TRACE ('hours1 :' || hours1);
12350: hr_utility.TRACE ('ln_amount :' || ln_amount);
12351: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12352: hr_utility.TRACE ('ln_rate_multiple :' || ln_rate_multiple);
12345: 'DD-MON-YYYY HH24:MI:SS'
12346: )
12347: );
12348: hr_utility.TRACE ('ln_hours :' || ln_hours);
12349: hr_utility.TRACE ('hours1 :' || hours1);
12350: hr_utility.TRACE ('ln_amount :' || ln_amount);
12351: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12352: hr_utility.TRACE ('ln_rate_multiple :' || ln_rate_multiple);
12353: hr_utility.TRACE ('lv_prev_wage_code:' || lv_prev_wage_code);
12346: )
12347: );
12348: hr_utility.TRACE ('ln_hours :' || ln_hours);
12349: hr_utility.TRACE ('hours1 :' || hours1);
12350: hr_utility.TRACE ('ln_amount :' || ln_amount);
12351: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12352: hr_utility.TRACE ('ln_rate_multiple :' || ln_rate_multiple);
12353: hr_utility.TRACE ('lv_prev_wage_code:' || lv_prev_wage_code);
12354: END IF;
12347: );
12348: hr_utility.TRACE ('ln_hours :' || ln_hours);
12349: hr_utility.TRACE ('hours1 :' || hours1);
12350: hr_utility.TRACE ('ln_amount :' || ln_amount);
12351: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12352: hr_utility.TRACE ('ln_rate_multiple :' || ln_rate_multiple);
12353: hr_utility.TRACE ('lv_prev_wage_code:' || lv_prev_wage_code);
12354: END IF;
12355:
12348: hr_utility.TRACE ('ln_hours :' || ln_hours);
12349: hr_utility.TRACE ('hours1 :' || hours1);
12350: hr_utility.TRACE ('ln_amount :' || ln_amount);
12351: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12352: hr_utility.TRACE ('ln_rate_multiple :' || ln_rate_multiple);
12353: hr_utility.TRACE ('lv_prev_wage_code:' || lv_prev_wage_code);
12354: END IF;
12355:
12356: IF ln_end_time IS NULL
12349: hr_utility.TRACE ('hours1 :' || hours1);
12350: hr_utility.TRACE ('ln_amount :' || ln_amount);
12351: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12352: hr_utility.TRACE ('ln_rate_multiple :' || ln_rate_multiple);
12353: hr_utility.TRACE ('lv_prev_wage_code:' || lv_prev_wage_code);
12354: END IF;
12355:
12356: IF ln_end_time IS NULL
12357: THEN
12358: -- implies that Time entered in HOURS and not IN/OUT time.
12359: -- Combine the hours rows for the element.
12360: IF g_debug
12361: THEN
12362: hr_utility.set_location (l_proc, 45);
12363: END IF;
12364:
12365: -- Check if amount, hourly rate, rate multiple or prev wage code is
12366: -- the same for the segment chunks. If so then combine the chunks
12373: -1)
12374: THEN
12375: IF g_debug
12376: THEN
12377: hr_utility.set_location (l_proc, 50);
12378: END IF;
12379:
12380: ln_hours := ln_hours + hours1;
12381:
12380: ln_hours := ln_hours + hours1;
12381:
12382: IF g_debug
12383: THEN
12384: hr_utility.TRACE ('ln_hours :' || ln_hours);
12385: hr_utility.TRACE ('row_id1 :' || row_id1);
12386: END IF;
12387:
12388: DELETE FROM hxt_det_hours_worked
12381:
12382: IF g_debug
12383: THEN
12384: hr_utility.TRACE ('ln_hours :' || ln_hours);
12385: hr_utility.TRACE ('row_id1 :' || row_id1);
12386: END IF;
12387:
12388: DELETE FROM hxt_det_hours_worked
12389: WHERE ROWID = row_id1;
12394: END IF;
12395:
12396: IF g_debug
12397: THEN
12398: hr_utility.set_location (l_proc, 55);
12399: END IF;
12400: ELSIF ln_end_time = start_time1
12401: THEN
12402: IF g_debug
12400: ELSIF ln_end_time = start_time1
12401: THEN
12402: IF g_debug
12403: THEN
12404: hr_utility.set_location (l_proc, 60);
12405: END IF;
12406:
12407: -- Check if amount, hourly rate, rate multiple or prev wage code is
12408: -- the same for the segment chunks. If so then combine the chunks
12415: -1)
12416: THEN
12417: IF g_debug
12418: THEN
12419: hr_utility.set_location (l_proc, 65);
12420: END IF;
12421:
12422: ln_end_time := end_time1;
12423:
12422: ln_end_time := end_time1;
12423:
12424: IF g_debug
12425: THEN
12426: hr_utility.TRACE ( 'ln_end_time :'
12427: || TO_CHAR (ln_end_time,
12428: 'DD-MON-YYYY HH24:MI:SS'
12429: )
12430: );
12427: || TO_CHAR (ln_end_time,
12428: 'DD-MON-YYYY HH24:MI:SS'
12429: )
12430: );
12431: hr_utility.TRACE ('row_id1 :' || row_id1);
12432: END IF;
12433:
12434: DELETE FROM hxt_det_hours_worked
12435: WHERE ROWID = row_id1;
12435: WHERE ROWID = row_id1;
12436:
12437: IF g_debug
12438: THEN
12439: hr_utility.set_location (l_proc, 70);
12440: END IF;
12441:
12442: IF ln_amount1 IS NOT NULL
12443: THEN
12442: IF ln_amount1 IS NOT NULL
12443: THEN
12444: IF g_debug
12445: THEN
12446: hr_utility.set_location (l_proc, 75);
12447: END IF;
12448:
12449: ln_hours_worked := 0;
12450:
12449: ln_hours_worked := 0;
12450:
12451: IF g_debug
12452: THEN
12453: hr_utility.TRACE ( 'ln_hours_worked :'
12454: || ln_hours_worked
12455: );
12456: END IF;
12457: ELSE
12456: END IF;
12457: ELSE
12458: IF g_debug
12459: THEN
12460: hr_utility.set_location (l_proc, 80);
12461: END IF;
12462:
12463: ln_hours_worked := ((ln_end_time - ln_start_time) * 24);
12464:
12463: ln_hours_worked := ((ln_end_time - ln_start_time) * 24);
12464:
12465: IF g_debug
12466: THEN
12467: hr_utility.TRACE ( 'ln_hours_worked :'
12468: || ln_hours_worked
12469: );
12470: END IF;
12471: END IF;
12471: END IF;
12472:
12473: IF g_debug
12474: THEN
12475: hr_utility.TRACE ('ln_row_id :' || ln_row_id);
12476: END IF;
12477:
12478: UPDATE hxt_det_hours_worked
12479: SET time_out = ln_end_time,
12481: WHERE ROWID = ln_row_id;
12482: ELSE
12483: IF g_debug
12484: THEN
12485: hr_utility.set_location (l_proc, 85);
12486: END IF;
12487:
12488: ln_start_time := start_time1;
12489: ln_end_time := end_time1;
12495: lv_prev_wage_code := lv_prev_wage_code1;
12496:
12497: IF g_debug
12498: THEN
12499: hr_utility.TRACE ('ln_row_id :' || ln_row_id);
12500: hr_utility.TRACE ( 'ln_start_time :'
12501: || TO_CHAR (ln_start_time,
12502: 'DD-MON-YYYY HH24:MI:SS'
12503: )
12496:
12497: IF g_debug
12498: THEN
12499: hr_utility.TRACE ('ln_row_id :' || ln_row_id);
12500: hr_utility.TRACE ( 'ln_start_time :'
12501: || TO_CHAR (ln_start_time,
12502: 'DD-MON-YYYY HH24:MI:SS'
12503: )
12504: );
12501: || TO_CHAR (ln_start_time,
12502: 'DD-MON-YYYY HH24:MI:SS'
12503: )
12504: );
12505: hr_utility.TRACE ( 'ln_end_time :'
12506: || TO_CHAR (ln_end_time,
12507: 'DD-MON-YYYY HH24:MI:SS'
12508: )
12509: );
12506: || TO_CHAR (ln_end_time,
12507: 'DD-MON-YYYY HH24:MI:SS'
12508: )
12509: );
12510: hr_utility.TRACE ('ln_hours :' || ln_hours);
12511: hr_utility.TRACE ('ln_amount :' || ln_amount);
12512: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12513: hr_utility.TRACE ('ln_rate_multiple :'
12514: || ln_rate_multiple
12507: 'DD-MON-YYYY HH24:MI:SS'
12508: )
12509: );
12510: hr_utility.TRACE ('ln_hours :' || ln_hours);
12511: hr_utility.TRACE ('ln_amount :' || ln_amount);
12512: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12513: hr_utility.TRACE ('ln_rate_multiple :'
12514: || ln_rate_multiple
12515: );
12508: )
12509: );
12510: hr_utility.TRACE ('ln_hours :' || ln_hours);
12511: hr_utility.TRACE ('ln_amount :' || ln_amount);
12512: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12513: hr_utility.TRACE ('ln_rate_multiple :'
12514: || ln_rate_multiple
12515: );
12516: hr_utility.TRACE ( 'lv_prev_wage_code:'
12509: );
12510: hr_utility.TRACE ('ln_hours :' || ln_hours);
12511: hr_utility.TRACE ('ln_amount :' || ln_amount);
12512: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12513: hr_utility.TRACE ('ln_rate_multiple :'
12514: || ln_rate_multiple
12515: );
12516: hr_utility.TRACE ( 'lv_prev_wage_code:'
12517: || lv_prev_wage_code
12512: hr_utility.TRACE ('ln_hourly_rate :' || ln_hourly_rate);
12513: hr_utility.TRACE ('ln_rate_multiple :'
12514: || ln_rate_multiple
12515: );
12516: hr_utility.TRACE ( 'lv_prev_wage_code:'
12517: || lv_prev_wage_code
12518: );
12519: END IF;
12520: END IF;
12520: END IF;
12521:
12522: IF g_debug
12523: THEN
12524: hr_utility.set_location (l_proc, 90);
12525: END IF;
12526: END IF;
12527:
12528: IF g_debug
12526: END IF;
12527:
12528: IF g_debug
12529: THEN
12530: hr_utility.set_location (l_proc, 95);
12531: END IF;
12532: END LOOP;
12533:
12534: IF g_debug
12532: END LOOP;
12533:
12534: IF g_debug
12535: THEN
12536: hr_utility.set_location (l_proc, 100);
12537: END IF;
12538: END LOOP;
12539:
12540: IF g_debug
12538: END LOOP;
12539:
12540: IF g_debug
12541: THEN
12542: hr_utility.set_location (l_proc, 110);
12543: END IF;
12544:
12545: RETURN 0;
12546: EXCEPTION
12547: WHEN NO_DATA_FOUND
12548: THEN
12549: IF g_debug
12550: THEN
12551: hr_utility.set_location (l_proc, 120);
12552: END IF;
12553:
12554: RETURN 0;
12555: WHEN OTHERS
12555: WHEN OTHERS
12556: THEN
12557: IF g_debug
12558: THEN
12559: hr_utility.set_location (l_proc, 130);
12560: END IF;
12561:
12562: fnd_message.set_name ('HXT', 'HXT_XXXXX_COMBINE_HRS_ERR');
12563: l_error_code :=
12687: BEGIN
12688: IF g_debug
12689: THEN
12690: l_proc := 'hxt_time_detail.pay';
12691: hr_utility.set_location (l_proc, 10);
12692: hr_utility.TRACE ( 'a_time_in :'
12693: || TO_CHAR (a_time_in, 'DD-MON-YYYY HH24:MI:SS')
12694: );
12695: hr_utility.TRACE ( 'a_time_out:'
12688: IF g_debug
12689: THEN
12690: l_proc := 'hxt_time_detail.pay';
12691: hr_utility.set_location (l_proc, 10);
12692: hr_utility.TRACE ( 'a_time_in :'
12693: || TO_CHAR (a_time_in, 'DD-MON-YYYY HH24:MI:SS')
12694: );
12695: hr_utility.TRACE ( 'a_time_out:'
12696: || TO_CHAR (a_time_out, 'DD-MON-YYYY HH24:MI:SS')
12691: hr_utility.set_location (l_proc, 10);
12692: hr_utility.TRACE ( 'a_time_in :'
12693: || TO_CHAR (a_time_in, 'DD-MON-YYYY HH24:MI:SS')
12694: );
12695: hr_utility.TRACE ( 'a_time_out:'
12696: || TO_CHAR (a_time_out, 'DD-MON-YYYY HH24:MI:SS')
12697: );
12698: hr_utility.TRACE ('g_sdf_id :' || g_sdf_id);
12699: END IF;
12694: );
12695: hr_utility.TRACE ( 'a_time_out:'
12696: || TO_CHAR (a_time_out, 'DD-MON-YYYY HH24:MI:SS')
12697: );
12698: hr_utility.TRACE ('g_sdf_id :' || g_sdf_id);
12699: END IF;
12700:
12701: IF a_hours_to_pay = 0 and (a_amount is null or a_amount = 0) /* Bug: 5744162 */
12702: THEN
12714: IF g_id <> a_id
12715: THEN
12716: IF g_debug
12717: THEN
12718: hr_utility.set_location (l_proc, 20);
12719: END IF;
12720:
12721: -- We have backed up to a previous day to apply overtime due
12722: -- to an absence at the end of the week so we need to get the
12727: -- Get policies assigned to person
12728: BEGIN
12729: IF g_debug
12730: THEN
12731: hr_utility.set_location (l_proc, 30);
12732: END IF;
12733:
12734: hxt_util.get_policies (a_earn_policy_id,
12735: a_assignment_id,
12751: );
12752:
12753: IF g_debug
12754: THEN
12755: hr_utility.set_location (l_proc, 40);
12756: hr_utility.TRACE ('l_sdp_id:' || l_sdp_id);
12757: hr_utility.TRACE ('l_pep_id:' || l_pep_id);
12758: END IF;
12759:
12752:
12753: IF g_debug
12754: THEN
12755: hr_utility.set_location (l_proc, 40);
12756: hr_utility.TRACE ('l_sdp_id:' || l_sdp_id);
12757: hr_utility.TRACE ('l_pep_id:' || l_pep_id);
12758: END IF;
12759:
12760: -- Check if error encountered
12753: IF g_debug
12754: THEN
12755: hr_utility.set_location (l_proc, 40);
12756: hr_utility.TRACE ('l_sdp_id:' || l_sdp_id);
12757: hr_utility.TRACE ('l_pep_id:' || l_pep_id);
12758: END IF;
12759:
12760: -- Check if error encountered
12761: IF l_error <> 0
12761: IF l_error <> 0
12762: THEN
12763: IF g_debug
12764: THEN
12765: hr_utility.set_location (l_proc, 50);
12766: END IF;
12767:
12768: RAISE error_in_policies;
12769: END IF;
12769: END IF;
12770:
12771: IF g_debug
12772: THEN
12773: hr_utility.set_location (l_proc, 60);
12774: END IF;
12775: END;
12776:
12777: IF g_debug
12775: END;
12776:
12777: IF g_debug
12778: THEN
12779: hr_utility.set_location (l_proc, 70);
12780: END IF;
12781:
12782: -- Check if person assigned work or rotation plan
12783: BEGIN
12784: IF (l_work_plan IS NOT NULL) OR (l_rotation_plan IS NOT NULL)
12785: THEN
12786: IF g_debug
12787: THEN
12788: hr_utility.set_location (l_proc, 80);
12789: END IF;
12790:
12791: -- Get premiums for shift
12792: hxt_util.get_shift_info (a_date_worked,
12803: );
12804:
12805: IF g_debug
12806: THEN
12807: hr_utility.set_location (l_proc, 90);
12808: hr_utility.TRACE ('l_sdf_id :' || l_sdf_id);
12809: hr_utility.TRACE ('l_osp_id :' || l_osp_id);
12810: END IF;
12811:
12804:
12805: IF g_debug
12806: THEN
12807: hr_utility.set_location (l_proc, 90);
12808: hr_utility.TRACE ('l_sdf_id :' || l_sdf_id);
12809: hr_utility.TRACE ('l_osp_id :' || l_osp_id);
12810: END IF;
12811:
12812: -- Check if error encountered
12805: IF g_debug
12806: THEN
12807: hr_utility.set_location (l_proc, 90);
12808: hr_utility.TRACE ('l_sdf_id :' || l_sdf_id);
12809: hr_utility.TRACE ('l_osp_id :' || l_osp_id);
12810: END IF;
12811:
12812: -- Check if error encountered
12813: IF l_error <> 0
12813: IF l_error <> 0
12814: THEN
12815: IF g_debug
12816: THEN
12817: hr_utility.set_location (l_proc, 100);
12818: END IF;
12819:
12820: RAISE error_in_shift_info;
12821: END IF;
12825: IF l_sdf_id IS NULL
12826: THEN
12827: IF g_debug
12828: THEN
12829: hr_utility.set_location (l_proc, 105);
12830: END IF;
12831:
12832: l_sdf_id := a_sdf_id;
12833:
12832: l_sdf_id := a_sdf_id;
12833:
12834: IF g_debug
12835: THEN
12836: hr_utility.TRACE ('l_sdf_id :' || l_sdf_id);
12837: END IF;
12838: END IF;
12839:
12840: IF g_debug
12838: END IF;
12839:
12840: IF g_debug
12841: THEN
12842: hr_utility.set_location (l_proc, 110);
12843: END IF;
12844: END IF; -- person assigned work or rotation plan
12845:
12846: IF g_debug
12844: END IF; -- person assigned work or rotation plan
12845:
12846: IF g_debug
12847: THEN
12848: hr_utility.set_location (l_proc, 120);
12849: END IF;
12850: END;
12851:
12852: -- Get holiday earning, day before/after, etc
12852: -- Get holiday earning, day before/after, etc
12853: BEGIN
12854: IF g_debug
12855: THEN
12856: hr_utility.set_location (l_proc, 130);
12857: END IF;
12858:
12859: hxt_util.check_for_holiday (a_date_worked,
12860: l_hcl_id,
12864: );
12865:
12866: IF g_debug
12867: THEN
12868: hr_utility.set_location (l_proc, 135);
12869: END IF;
12870:
12871: -- Check if holiday
12872: IF l_retcode = 1
12872: IF l_retcode = 1
12873: THEN
12874: IF g_debug
12875: THEN
12876: hr_utility.set_location (l_proc, 140);
12877: END IF;
12878:
12879: -- Set holiday code
12880: l_hol_yn := 'Y';
12881: END IF; -- holiday or not
12882:
12883: IF g_debug
12884: THEN
12885: hr_utility.set_location (l_proc, 145);
12886: END IF;
12887: EXCEPTION
12888: -- Check for error
12889: WHEN OTHERS
12889: WHEN OTHERS
12890: THEN
12891: IF g_debug
12892: THEN
12893: hr_utility.set_location (l_proc, 150);
12894: END IF;
12895:
12896: l_errmsg := SQLCODE;
12897: RAISE error_in_check_hol;
12898: END;
12899:
12900: IF g_debug
12901: THEN
12902: hr_utility.set_location (l_proc, 155);
12903: END IF;
12904:
12905: OPEN csr_test_for_osp (a_assignment_id, a_date_worked);
12906:
12963: );
12964:
12965: IF g_debug
12966: THEN
12967: hr_utility.set_location (l_proc, 160);
12968: END IF;
12969: ELSE
12970: IF g_debug
12971: THEN
12968: END IF;
12969: ELSE
12970: IF g_debug
12971: THEN
12972: hr_utility.set_location (l_proc, 165);
12973: hr_utility.TRACE ('a_sdf_id :' || a_sdf_id);
12974: END IF;
12975:
12976: OPEN csr_test_for_osp (a_assignment_id, a_date_worked);
12969: ELSE
12970: IF g_debug
12971: THEN
12972: hr_utility.set_location (l_proc, 165);
12973: hr_utility.TRACE ('a_sdf_id :' || a_sdf_id);
12974: END IF;
12975:
12976: OPEN csr_test_for_osp (a_assignment_id, a_date_worked);
12977:
13034: );
13035:
13036: IF g_debug
13037: THEN
13038: hr_utility.set_location (l_proc, 170);
13039: END IF;
13040: END IF;
13041:
13042: IF g_debug
13040: END IF;
13041:
13042: IF g_debug
13043: THEN
13044: hr_utility.set_location (l_proc, 175);
13045: END IF;
13046: EXCEPTION
13047: --Begin OVEREARN
13048: WHEN error_in_gen_pol
13048: WHEN error_in_gen_pol
13049: THEN
13050: IF g_debug
13051: THEN
13052: hr_utility.set_location (l_proc, 180);
13053: END IF;
13054:
13055: fnd_message.set_name ('HXT', 'HXT_39440_GEN_EP_ERR');
13056: RETURN call_hxthxc_gen_error ('HXT',
13065: WHEN error_in_policies
13066: THEN
13067: IF g_debug
13068: THEN
13069: hr_utility.set_location (l_proc, 185);
13070: END IF;
13071:
13072: fnd_message.set_name ('HXT', 'HXT_39171_ERN_POL_OP_VIOL');
13073: RETURN call_hxthxc_gen_error ('HXT',
13081: WHEN error_in_shift_info
13082: THEN
13083: IF g_debug
13084: THEN
13085: hr_utility.set_location (l_proc, 190);
13086: END IF;
13087:
13088: fnd_message.set_name ('HXT', 'HXT_39172_SHF_PREMS_OP_VIOL');
13089: RETURN call_hxthxc_gen_error ('HXT',
13097: WHEN error_in_check_hol
13098: THEN
13099: IF g_debug
13100: THEN
13101: hr_utility.set_location (l_proc, 195);
13102: END IF;
13103:
13104: fnd_message.set_name ('HXT', 'HXT_39173_HOL_OP_VIOL');
13105: RETURN call_hxthxc_gen_error ('HXT',
13113: WHEN OTHERS
13114: THEN
13115: IF g_debug
13116: THEN
13117: hr_utility.set_location (l_proc, 200);
13118: END IF;
13119:
13120: fnd_message.set_name ('HXT', 'HXT_39269_ORACLE_ERROR');
13121: RETURN call_hxthxc_gen_error ('HXT',
13271: BEGIN
13272: IF g_debug
13273: THEN
13274: l_proc := 'hxt_time_detail.Overtime_Hoursoverride';
13275: hr_utility.set_location (l_proc, 10);
13276: END IF;
13277:
13278: <
13279: IF g_debug
13277:
13278: <
13279: IF g_debug
13280: THEN
13281: hr_utility.set_location (l_proc, 20);
13282: END IF;
13283:
13284: FOR rec_work_hrs IN csr_override_hrs (p_date_worked, p_tim_id)
13285: LOOP
13284: FOR rec_work_hrs IN csr_override_hrs (p_date_worked, p_tim_id)
13285: LOOP
13286: IF g_debug
13287: THEN
13288: hr_utility.set_location (l_proc, 30);
13289: hr_utility.TRACE ( 'rec_work_hrs.hxt_earning_category:'
13290: || rec_work_hrs.hxt_earning_category
13291: );
13292: hr_utility.TRACE ('rec_work_hrs.hours:' || rec_work_hrs.hours);
13285: LOOP
13286: IF g_debug
13287: THEN
13288: hr_utility.set_location (l_proc, 30);
13289: hr_utility.TRACE ( 'rec_work_hrs.hxt_earning_category:'
13290: || rec_work_hrs.hxt_earning_category
13291: );
13292: hr_utility.TRACE ('rec_work_hrs.hours:' || rec_work_hrs.hours);
13293: hr_utility.TRACE ( 'rec_work_hrs.element_type_id:'
13288: hr_utility.set_location (l_proc, 30);
13289: hr_utility.TRACE ( 'rec_work_hrs.hxt_earning_category:'
13290: || rec_work_hrs.hxt_earning_category
13291: );
13292: hr_utility.TRACE ('rec_work_hrs.hours:' || rec_work_hrs.hours);
13293: hr_utility.TRACE ( 'rec_work_hrs.element_type_id:'
13294: || rec_work_hrs.element_type_id
13295: );
13296: END IF;
13289: hr_utility.TRACE ( 'rec_work_hrs.hxt_earning_category:'
13290: || rec_work_hrs.hxt_earning_category
13291: );
13292: hr_utility.TRACE ('rec_work_hrs.hours:' || rec_work_hrs.hours);
13293: hr_utility.TRACE ( 'rec_work_hrs.element_type_id:'
13294: || rec_work_hrs.element_type_id
13295: );
13296: END IF;
13297:
13298: IF rec_work_hrs.hxt_earning_category = 'OVT'
13299: THEN
13300: IF g_debug
13301: THEN
13302: hr_utility.set_location (l_proc, 40);
13303: END IF;
13304:
13305: l_worked_hours := l_worked_hours + rec_work_hrs.hours;
13306: l_element_type_id := rec_work_hrs.element_type_id;
13306: l_element_type_id := rec_work_hrs.element_type_id;
13307:
13308: IF g_debug
13309: THEN
13310: hr_utility.TRACE ('l_worked_hours:' || l_worked_hours);
13311: hr_utility.TRACE ('l_element_type_id:' || l_element_type_id);
13312: END IF;
13313: END IF;
13314:
13307:
13308: IF g_debug
13309: THEN
13310: hr_utility.TRACE ('l_worked_hours:' || l_worked_hours);
13311: hr_utility.TRACE ('l_element_type_id:' || l_element_type_id);
13312: END IF;
13313: END IF;
13314:
13315: IF g_debug
13313: END IF;
13314:
13315: IF g_debug
13316: THEN
13317: hr_utility.set_location (l_proc, 50);
13318: END IF;
13319: END LOOP process_hrs;
13320:
13321: IF g_debug
13319: END LOOP process_hrs;
13320:
13321: IF g_debug
13322: THEN
13323: hr_utility.set_location (l_proc, 60);
13324: END IF;
13325:
13326: -- RETURN NVL (l_worked_hours, 0);
13327: p_override_hrs := l_worked_hours;
13328: p_override_element := l_element_type_id;
13329:
13330: IF g_debug
13331: THEN
13332: hr_utility.TRACE ('p_override_hrs:' || p_override_hrs);
13333: hr_utility.TRACE ('p_override_element:' || p_override_element);
13334: END IF;
13335: END overtime_hoursoverride;
13336: --
13329:
13330: IF g_debug
13331: THEN
13332: hr_utility.TRACE ('p_override_hrs:' || p_override_hrs);
13333: hr_utility.TRACE ('p_override_element:' || p_override_element);
13334: END IF;
13335: END overtime_hoursoverride;
13336: --
13337: -------------------------------------------------------------------------------