29: l_budget_measurement_type per_shared_types.system_type_cd%TYPE;
30: --
31: Begin
32: --
33: hr_utility.set_location('Entering:'||l_proc, 5);
34: --
35: -- Check if the unit of measure exists in per_shared_types
36: --
37: Open csr_budget_measurement_type;
47: End if;
48: --
49: Close csr_budget_measurement_type;
50: --
51: hr_utility.set_location('Leaving:'||l_proc, 10);
52: --
53: RETURN l_budget_measurement_type;
54: Exception When others then
55: --
52: --
53: RETURN l_budget_measurement_type;
54: Exception When others then
55: --
56: hr_utility.set_location('Exception:'||l_proc, 15);
57: RETURN l_budget_measurement_type;
58: --
59: END get_budget_measurement_type;
60: --
65: SELECT pqh_budget.get_currency_cd(bvr.budget_id) CURRENCY_CODE
66: FROM pqh_budget_versions bvr
67: WHERE bvr.budget_version_id = p_budget_version_id;
68: begin
69: hr_utility.set_location('Entering:'||l_proc, 5);
70: open csr_bdgt(p_budget_version_id);
71: fetch csr_bdgt into l_currency_cd;
72: close csr_bdgt;
73: hr_utility.set_location('Leaving:'||l_proc, 10);
69: hr_utility.set_location('Entering:'||l_proc, 5);
70: open csr_bdgt(p_budget_version_id);
71: fetch csr_bdgt into l_currency_cd;
72: close csr_bdgt;
73: hr_utility.set_location('Leaving:'||l_proc, 10);
74: RETURN l_currency_cd;
75: end;
76: ---------------------------------------------------------------------------------------------------------
77: FUNCTION get_posn_bdgt
171: AND bgt.budget_unit3_id = p_unit_of_measure_id
172: AND bgt.budgeted_entity_cd = 'POSITION'
173: AND bdt.position_id = p_position_id ;
174: BEGIN
175: hr_utility.set_location('Entering: '||l_proc, 5);
176: -- get unit1 amt
177: OPEN csr_posn_bdgt_unit1;
178: FETCH csr_posn_bdgt_unit1 INTO l_unit1_amt;
179: CLOSE csr_posn_bdgt_unit1;
186: FETCH csr_posn_bdgt_unit3 INTO l_unit3_amt;
187: CLOSE csr_posn_bdgt_unit3;
188: --
189: l_total_amt := NVL(l_unit1_amt,0) + NVL(l_unit2_amt,0) + NVL(l_unit3_amt,0);
190: hr_utility.set_location('Leaving:'||l_proc, 1000);
191: --
192: RETURN l_total_amt;
193: EXCEPTION
194: WHEN OTHERS THEN
457: AND bgt.budgeted_entity_cd = p_budgeted_entity_cd
458: AND p_organization_id = bdt.organization_id;
459:
460: BEGIN
461: hr_utility.set_location('Entering: '||l_proc, 5);
462:
463: if p_budgeted_entity_cd = 'JOB' then
464: -- get unit1 amt
465: OPEN csr_job_bdgt_unit1;
503:
504:
505: l_total_amt := NVL(l_unit1_amt,0) + NVL(l_unit2_amt,0) + NVL(l_unit3_amt,0);
506:
507: hr_utility.set_location('Leaving:'||l_proc, 1000);
508:
509: RETURN l_total_amt;
510:
511: EXCEPTION
620: AND bgt.budgeted_entity_cd = 'POSITION'
621: AND bel.element_type_id = p_element_type_id
622: AND bdt.position_id = p_position_id ;
623: BEGIN
624: hr_utility.set_location('Entering: '||l_proc, 5);
625: -- get unit1 amt
626: OPEN csr_posn_bdgt_unit1;
627: FETCH csr_posn_bdgt_unit1 INTO l_unit1_amt;
628: CLOSE csr_posn_bdgt_unit1;
635: FETCH csr_posn_bdgt_unit3 INTO l_unit3_amt;
636: CLOSE csr_posn_bdgt_unit3;
637: --
638: l_total_amt := NVL(l_unit1_amt,0) + NVL(l_unit2_amt,0) + NVL(l_unit3_amt,0);
639: hr_utility.set_location('Leaving:'||l_proc, 1000);
640: --
641: RETURN l_total_amt;
642: EXCEPTION
643: WHEN OTHERS THEN
744: AND bgt.budgeted_entity_cd = 'POSITION'
745: AND bst.dflt_budget_set_id = p_budget_set_id
746: AND bdt.position_id = p_position_id ;
747: BEGIN
748: hr_utility.set_location('Entering: '||l_proc, 5);
749: -- get unit1 amt
750: OPEN csr_posn_bdgt_unit1;
751: FETCH csr_posn_bdgt_unit1 INTO l_unit1_amt;
752: CLOSE csr_posn_bdgt_unit1;
759: FETCH csr_posn_bdgt_unit3 INTO l_unit3_amt;
760: CLOSE csr_posn_bdgt_unit3;
761: --
762: l_total_amt := NVL(l_unit1_amt,0) + NVL(l_unit2_amt,0) + NVL(l_unit3_amt,0);
763: hr_utility.set_location('Leaving:'||l_proc, 1000);
764: --
765: RETURN l_total_amt;
766: EXCEPTION
767: WHEN OTHERS THEN
898: AND ( bgt.budget_start_date BETWEEN p_start_date AND p_end_date
899: OR p_start_date BETWEEN bgt.budget_start_date AND bgt.budget_end_date );
900:
901: BEGIN
902: hr_utility.set_location('Entering: '||l_proc, 5);
903: --
904: if (p_budget_version_id is not null) then
905: if (p_summarize_by IN ('BUDGET', 'BSET', 'ELEMENT')) then
906: open csr_bdgt(p_budget_version_id);
958: --
959: END LOOP;
960: CLOSE csr_bdgt_positions;
961: end if;
962: hr_utility.set_location('Leaving:'||l_proc, 1000);
963: RETURN l_total_amt;
964: EXCEPTION
965: WHEN OTHERS THEN
966: l_total_amt := 0;
1177: l_curr_ver_tot := 0;
1178: l_total_amt := l_total_amt + l_curr_ver_tot;
1179: END;
1180: BEGIN
1181: hr_utility.set_location('Entering: '||l_proc, 5);
1182: --
1183: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
1184: l_business_group_id := hr_general.get_business_group_id;
1185: if (p_budget_version_id is not null) then
1219: END LOOP;
1220: CLOSE csr_bdgts_org;
1221: end if;
1222: end if;
1223: hr_utility.set_location('Leaving:'||l_proc, 1000);
1224: RETURN l_total_amt;
1225:
1226: EXCEPTION
1227: WHEN OTHERS THEN
1249: l_total_amt NUMBER := 0;
1250: l_last_payroll_date DATE;
1251:
1252: BEGIN
1253: hr_utility.set_location('Entering: '||l_proc, 5);
1254:
1255: l_total_amt := pqh_bdgt_actual_cmmtmnt_pkg.get_assignment_actuals
1256: (
1257: p_assignment_id => p_assignment_id,
1261: p_unit_of_measure_id => p_unit_of_measure_id,
1262: p_last_payroll_dt => l_last_payroll_date
1263: );
1264:
1265: hr_utility.set_location('Leaving:'||l_proc, 1000);
1266:
1267: RETURN l_total_amt;
1268:
1269: EXCEPTION
1290: l_total_amt NUMBER := 0;
1291: l_last_payroll_date DATE;
1292:
1293: BEGIN
1294: hr_utility.set_location('Entering: '||l_proc, 5);
1295:
1296: l_total_amt := pqh_bdgt_actual_cmmtmnt_pkg.get_assignment_commitment
1297: (
1298: p_assignment_id => p_assignment_id,
1303: );
1304:
1305:
1306:
1307: hr_utility.set_location('Leaving:'||l_proc, 1000);
1308:
1309: RETURN l_total_amt;
1310:
1311: EXCEPTION
1461: l_total_amt := l_total_amt + l_curr_ver_tot;
1462: end if;
1463: end;
1464: BEGIN
1465: hr_utility.set_location('Entering: '||l_proc, 5);
1466: --
1467: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
1468: if (p_budget_version_id is not null) then
1469: l_budget_version_id := p_budget_version_id;
1496: END LOOP;
1497: CLOSE csr_bdgts_org;
1498: end if;
1499: end if;
1500: hr_utility.set_location('Leaving:'||l_proc, 1000);
1501: RETURN l_total_amt;
1502:
1503: EXCEPTION
1504: WHEN OTHERS THEN
1652:
1653:
1654:
1655: BEGIN
1656: hr_utility.set_location('Entering: '||l_proc, 5);
1657:
1658: -- get unit1 amt
1659: OPEN csr_job_bdgt_unit1;
1660: FETCH csr_job_bdgt_unit1 INTO l_unit1_amt;
1672:
1673:
1674: l_total_amt := NVL(l_unit1_amt,0) + NVL(l_unit2_amt,0) + NVL(l_unit3_amt,0);
1675:
1676: hr_utility.set_location('Leaving:'||l_proc, 1000);
1677:
1678: RETURN l_total_amt;
1679:
1680: EXCEPTION
1742: l_total_amt := l_total_amt + l_curr_ver_tot;
1743: end if;
1744: end;
1745: BEGIN
1746: hr_utility.set_location('Entering: '||l_proc, 5);
1747:
1748: --
1749: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
1750: if (p_budget_version_id is not null) then
1762: proc1;
1763: END LOOP;
1764: CLOSE csr_bdgt_jobs;
1765: end if;
1766: hr_utility.set_location('Leaving:'||l_proc, 1000);
1767:
1768: RETURN l_total_amt;
1769:
1770: EXCEPTION
1887:
1888:
1889:
1890: BEGIN
1891: hr_utility.set_location('Entering: '||l_proc, 5);
1892:
1893: -- get unit1 amt
1894: OPEN csr_grade_bdgt_unit1;
1895: FETCH csr_grade_bdgt_unit1 INTO l_unit1_amt;
1907:
1908:
1909: l_total_amt := NVL(l_unit1_amt,0) + NVL(l_unit2_amt,0) + NVL(l_unit3_amt,0);
1910:
1911: hr_utility.set_location('Leaving:'||l_proc, 1000);
1912:
1913: RETURN l_total_amt;
1914:
1915: EXCEPTION
1981: l_total_amt := l_total_amt + l_curr_ver_tot;
1982: end if;
1983: end;
1984: BEGIN
1985: hr_utility.set_location('Entering: '||l_proc, 5);
1986:
1987: --
1988: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
1989: if (p_budget_version_id is not null) then
2001: proc1;
2002: END LOOP;
2003: CLOSE csr_bdgt_grades;
2004: end if;
2005: hr_utility.set_location('Leaving:'||l_proc, 1000);
2006: RETURN l_total_amt;
2007:
2008: EXCEPTION
2009: WHEN OTHERS THEN
2125:
2126:
2127:
2128: BEGIN
2129: hr_utility.set_location('Entering: '||l_proc, 5);
2130:
2131: -- get unit1 amt
2132: OPEN csr_orgn_bdgt_unit1;
2133: FETCH csr_orgn_bdgt_unit1 INTO l_unit1_amt;
2145:
2146:
2147: l_total_amt := NVL(l_unit1_amt,0) + NVL(l_unit2_amt,0) + NVL(l_unit3_amt,0);
2148:
2149: hr_utility.set_location('Leaving:'||l_proc, 1000);
2150:
2151: RETURN l_total_amt;
2152:
2153: EXCEPTION
2215: l_total_amt := l_total_amt + l_curr_ver_tot;
2216: end if;
2217: end;
2218: BEGIN
2219: hr_utility.set_location('Entering: '||l_proc, 5);
2220:
2221: --
2222: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
2223: if (p_budget_version_id is not null) then
2235: proc1;
2236: END LOOP;
2237: CLOSE csr_bdgt_orgs;
2238: end if;
2239: hr_utility.set_location('Leaving:'||l_proc, 1000);
2240:
2241: RETURN l_total_amt;
2242:
2243: EXCEPTION
2366: l_curr_ver_tot := 0;
2367: l_total_amt := l_total_amt + l_curr_ver_tot;
2368: END;
2369: BEGIN
2370: hr_utility.set_location('Entering: '||l_proc, 5);
2371: --
2372: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
2373: if (p_budget_version_id is not null) then
2374: l_budget_version_id := p_budget_version_id;
2385: proc1;
2386: END LOOP;
2387: CLOSE csr_bdgt_positions;
2388: end if;
2389: hr_utility.set_location('Leaving:'||l_proc, 1000);
2390:
2391: RETURN l_total_amt;
2392:
2393: EXCEPTION
2484: l_curr_ver_tot := 0;
2485: l_total_amt := l_total_amt + l_curr_ver_tot;
2486: END;
2487: BEGIN
2488: hr_utility.set_location('Entering: '||l_proc, 5);
2489: --
2490: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
2491: if (p_budget_version_id is not null) then
2492: l_budget_version_id := p_budget_version_id;
2503: proc1;
2504: END LOOP;
2505: CLOSE csr_bdgt_jobs;
2506: end if;
2507: hr_utility.set_location('Leaving:'||l_proc, 1000);
2508:
2509: RETURN l_total_amt;
2510:
2511: EXCEPTION
2601: l_curr_ver_tot := 0;
2602: l_total_amt := l_total_amt + l_curr_ver_tot;
2603: END;
2604: BEGIN
2605: hr_utility.set_location('Entering: '||l_proc, 5);
2606: --
2607: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
2608: if (p_budget_version_id is not null) then
2609: l_budget_version_id := p_budget_version_id;
2620: proc1;
2621: END LOOP;
2622: CLOSE csr_bdgt_grades;
2623: end if;
2624: hr_utility.set_location('Leaving:'||l_proc, 1000);
2625: RETURN l_total_amt;
2626:
2627: EXCEPTION
2628: WHEN OTHERS THEN
2718: l_curr_ver_tot := 0;
2719: l_total_amt := l_total_amt + l_curr_ver_tot;
2720: END;
2721: BEGIN
2722: hr_utility.set_location('Entering: '||l_proc, 5);
2723: --
2724: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
2725: if (p_budget_version_id is not null) then
2726: l_budget_version_id := p_budget_version_id;
2737: proc1;
2738: END LOOP;
2739: CLOSE csr_bdgt_orgs;
2740: end if;
2741: hr_utility.set_location('Leaving:'||l_proc, 1000);
2742: RETURN l_total_amt;
2743:
2744: EXCEPTION
2745: WHEN OTHERS THEN
2818: l_curr_ver_tot := 0;
2819: l_total_amt := l_total_amt + l_curr_ver_tot;
2820: END;
2821: BEGIN
2822: hr_utility.set_location('Entering: '||l_proc, 5);
2823: if (p_budget_version_id is not null) then
2824: l_budget_version_id := p_budget_version_id;
2825: proc1;
2826: else
2844: --
2845: END LOOP;
2846: CLOSE csr_bdgt_positions;
2847: end if;
2848: hr_utility.set_location('Leaving:'||l_proc, 1000);
2849: RETURN l_total_amt;
2850:
2851: EXCEPTION
2852: WHEN OTHERS THEN
2918: l_curr_posn_tot := 0;
2919: l_total_amt := l_total_amt + l_curr_posn_tot;
2920: END;
2921: BEGIN
2922: hr_utility.set_location('Entering: '||l_proc, 5);
2923:
2924: --
2925: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
2926: l_business_group_id := hr_general.get_business_group_id;
2931: EXIT WHEN csr_bdgt_positions%NOTFOUND;
2932: proc1;
2933: END LOOP;
2934: CLOSE csr_bdgt_positions;
2935: hr_utility.set_location('Leaving:'||l_proc, 1000);
2936: RETURN l_total_amt;
2937:
2938: EXCEPTION
2939: WHEN OTHERS THEN
3009: l_curr_posn_tot := 0;
3010: l_total_amt := l_total_amt + l_curr_posn_tot;
3011: END;
3012: BEGIN
3013: hr_utility.set_location('Entering: '||l_proc, 5);
3014:
3015: --
3016: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
3017: l_business_group_id := hr_general.get_business_group_id;
3022: EXIT WHEN csr_bdgt_positions%NOTFOUND;
3023: proc1;
3024: END LOOP;
3025: CLOSE csr_bdgt_positions;
3026: hr_utility.set_location('Leaving:'||l_proc, 1000);
3027: RETURN l_total_amt;
3028:
3029: EXCEPTION
3030: WHEN OTHERS THEN
3073: AND ( bgt.budget_start_date BETWEEN p_start_date AND p_end_date
3074: OR p_start_date BETWEEN bgt.budget_start_date AND bgt.budget_end_date );
3075:
3076: BEGIN
3077: hr_utility.set_location('Entering: '||l_proc, 5);
3078: --
3079: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
3080:
3081:
3106: END;
3107: END LOOP;
3108: CLOSE csr_bdgt_positions;
3109:
3110: hr_utility.set_location('Leaving:'||l_proc, 1000);
3111:
3112: RETURN l_total_amt;
3113:
3114: EXCEPTION
3157: AND ( bgt.budget_start_date BETWEEN p_start_date AND p_end_date
3158: OR p_start_date BETWEEN bgt.budget_start_date AND bgt.budget_end_date );
3159:
3160: BEGIN
3161: hr_utility.set_location('Entering: '||l_proc, 5);
3162: --
3163: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
3164:
3165:
3191:
3192: END LOOP;
3193: CLOSE csr_bdgt_positions;
3194:
3195: hr_utility.set_location('Leaving:'||l_proc, 1000);
3196:
3197: RETURN l_total_amt;
3198:
3199: EXCEPTION
3244: AND ( bgt.budget_start_date BETWEEN p_start_date AND p_end_date
3245: OR p_start_date BETWEEN bgt.budget_start_date AND bgt.budget_end_date );
3246:
3247: BEGIN
3248: hr_utility.set_location('Entering: '||l_proc, 5);
3249: --
3250: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
3251: l_business_group_id := hr_general.get_business_group_id;
3252:
3285: END LOOP;
3286: CLOSE csr_bdgt_positions;
3287:
3288:
3289: hr_utility.set_location('Leaving:'||l_proc, 1000);
3290:
3291: RETURN l_total_amt;
3292:
3293: EXCEPTION
3340: AND ( bgt.budget_start_date BETWEEN p_start_date AND p_end_date
3341: OR p_start_date BETWEEN bgt.budget_start_date AND bgt.budget_end_date );
3342:
3343: BEGIN
3344: hr_utility.set_location('Entering: '||l_proc, 5);
3345: --
3346: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
3347: l_business_group_id := hr_general.get_business_group_id;
3348:
3381: END LOOP;
3382: CLOSE csr_bdgt_jobs;
3383:
3384:
3385: hr_utility.set_location('Leaving:'||l_proc, 1000);
3386:
3387: RETURN l_total_amt;
3388:
3389: EXCEPTION
3436: AND ( bgt.budget_start_date BETWEEN p_start_date AND p_end_date
3437: OR p_start_date BETWEEN bgt.budget_start_date AND bgt.budget_end_date );
3438:
3439: BEGIN
3440: hr_utility.set_location('Entering: '||l_proc, 5);
3441: --
3442: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
3443: l_business_group_id := hr_general.get_business_group_id;
3444:
3477: END LOOP;
3478: CLOSE csr_bdgt_grades;
3479:
3480:
3481: hr_utility.set_location('Leaving:'||l_proc, 1000);
3482:
3483: RETURN l_total_amt;
3484:
3485: EXCEPTION
3532: AND ( bgt.budget_start_date BETWEEN p_start_date AND p_end_date
3533: OR p_start_date BETWEEN bgt.budget_start_date AND bgt.budget_end_date );
3534:
3535: BEGIN
3536: hr_utility.set_location('Entering: '||l_proc, 5);
3537: --
3538: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
3539: l_business_group_id := hr_general.get_business_group_id;
3540:
3573: END LOOP;
3574: CLOSE csr_bdgt_orgs;
3575:
3576:
3577: hr_utility.set_location('Leaving:'||l_proc, 1000);
3578:
3579: RETURN l_total_amt;
3580:
3581: EXCEPTION
3637: AND ( bgt.budget_start_date BETWEEN p_start_date AND p_end_date
3638: OR p_start_date BETWEEN bgt.budget_start_date AND bgt.budget_end_date );
3639:
3640: BEGIN
3641: hr_utility.set_location('Entering: '||l_proc, 5);
3642: --
3643: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
3644: l_business_group_id := hr_general.get_business_group_id;
3645:
3680: CLOSE csr_bdgt_positions;
3681:
3682:
3683:
3684: hr_utility.set_location('Leaving:'||l_proc, 1000);
3685:
3686: RETURN l_total_amt;
3687:
3688: EXCEPTION
3745: AND ( bgt.budget_start_date BETWEEN p_start_date AND p_end_date
3746: OR p_start_date BETWEEN bgt.budget_start_date AND bgt.budget_end_date );
3747:
3748: BEGIN
3749: hr_utility.set_location('Entering: '||l_proc, 5);
3750: --
3751: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
3752: l_business_group_id := hr_general.get_business_group_id;
3753: OPEN csr_bdgt_jobs(l_business_group_id);
3787: CLOSE csr_bdgt_jobs;
3788:
3789:
3790:
3791: hr_utility.set_location('Leaving:'||l_proc, 1000);
3792:
3793: RETURN l_total_amt;
3794:
3795: EXCEPTION
3852: AND ( bgt.budget_start_date BETWEEN p_start_date AND p_end_date
3853: OR p_start_date BETWEEN bgt.budget_start_date AND bgt.budget_end_date );
3854:
3855: BEGIN
3856: hr_utility.set_location('Entering: '||l_proc, 5);
3857: --
3858: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
3859: l_business_group_id := hr_general.get_business_group_id;
3860:
3895: CLOSE csr_bdgt_grades;
3896:
3897:
3898:
3899: hr_utility.set_location('Leaving:'||l_proc, 1000);
3900:
3901: RETURN l_total_amt;
3902:
3903: EXCEPTION
3959: AND ( bgt.budget_start_date BETWEEN p_start_date AND p_end_date
3960: OR p_start_date BETWEEN bgt.budget_start_date AND bgt.budget_end_date );
3961:
3962: BEGIN
3963: hr_utility.set_location('Entering: '||l_proc, 5);
3964: --
3965: l_budget_measurement_type := get_budget_measurement_type(p_unit_of_measure_id);
3966: l_business_group_id := hr_general.get_business_group_id;
3967:
4002: CLOSE csr_bdgt_orgs;
4003:
4004:
4005:
4006: hr_utility.set_location('Leaving:'||l_proc, 1000);
4007:
4008: RETURN l_total_amt;
4009:
4010: EXCEPTION
4039: l_projected_amt NUMBER := 0;
4040: l_balance_amt NUMBER := 0;
4041: l_shared_type_cd per_shared_types.system_type_cd%TYPE;
4042: BEGIN
4043: hr_utility.set_location('Entering: '||l_proc, 5);
4044:
4045: l_budgeted_amt := pqh_mgmt_rpt_pkg.get_position_budget_amt
4046: (
4047: p_budget_version_id => p_budget_version_id,
4051: p_unit_of_measure_id => p_unit_of_measure_id,
4052: p_currency_code => p_currency_code
4053: );
4054:
4055: hr_utility.set_location('Budgeted Amt : '||NVL(l_budgeted_amt,0),10);
4056:
4057: l_actual_amt := pqh_mgmt_rpt_pkg.get_position_actual_cmmtmnts
4058: (
4059: p_budget_version_id => p_budget_version_id,
4064: p_value_type => 'A',
4065: p_currency_code => p_currency_code
4066: );
4067:
4068: hr_utility.set_location('Actual Amt : '||NVL(l_actual_amt,0),20);
4069:
4070: l_cmmtmnt_amt := pqh_mgmt_rpt_pkg.get_position_actual_cmmtmnts
4071: (
4072: p_budget_version_id => p_budget_version_id,
4076: p_unit_of_measure_id => p_unit_of_measure_id,
4077: p_value_type => 'C',
4078: p_currency_code => p_currency_code
4079: );
4080: hr_utility.set_location('Commitment Amt : '||NVL(l_cmmtmnt_amt,0),30);
4081:
4082: l_shared_type_cd := get_budget_measurement_type(p_unit_of_measure_id);
4083: IF l_shared_type_cd = 'MONEY' THEN
4084: l_projected_amt := NVL(l_actual_amt,0) + NVL(l_cmmtmnt_amt,0);
4085: ELSE
4086: l_projected_amt := NVL(l_actual_amt,0);
4087: END IF;
4088:
4089: hr_utility.set_location('Projected Amt : '||NVL(l_projected_amt,0),40);
4090:
4091: l_balance_amt := NVL(l_budgeted_amt,0) - NVL(l_projected_amt,0);
4092: hr_utility.set_location('Balance Amt : '||NVL(l_balance_amt,0),50);
4093:
4088:
4089: hr_utility.set_location('Projected Amt : '||NVL(l_projected_amt,0),40);
4090:
4091: l_balance_amt := NVL(l_budgeted_amt,0) - NVL(l_projected_amt,0);
4092: hr_utility.set_location('Balance Amt : '||NVL(l_balance_amt,0),50);
4093:
4094: IF NVL(l_balance_amt,0) > 0 THEN
4095: -- Over budgeted
4096: l_posn_type := 'O';
4100: ELSE
4101: -- just right
4102: l_posn_type := 'A';
4103: END IF;
4104: hr_utility.set_location('Leaving:'||l_proc, 1000);
4105: RETURN l_posn_type;
4106: EXCEPTION
4107: WHEN OTHERS THEN
4108: l_posn_type := 'A';
4142: l_variance_prcnt NUMBER := 0;
4143: l_shared_type_cd per_shared_types.system_type_cd%TYPE;
4144:
4145: BEGIN
4146: hr_utility.set_location('Entering: '||l_proc, 5);
4147: IF p_position_type = 'A' THEN
4148: RETURN 'A';
4149: END IF;
4150:
4157: p_unit_of_measure_id => p_unit_of_measure_id,
4158: p_currency_code => p_currency_code
4159: );
4160:
4161: hr_utility.set_location('Budgeted Amt : '||NVL(l_budgeted_amt,0),10);
4162:
4163: l_actual_amt := pqh_mgmt_rpt_pkg.get_position_actual_cmmtmnts
4164: (
4165: p_budget_version_id => p_budget_version_id,
4170: p_value_type => 'A',
4171: p_currency_code => p_currency_code
4172: );
4173:
4174: hr_utility.set_location('Actual Amt : '||NVL(l_actual_amt,0),20);
4175:
4176: l_cmmtmnt_amt := pqh_mgmt_rpt_pkg.get_position_actual_cmmtmnts
4177: (
4178: p_budget_version_id => p_budget_version_id,
4183: p_value_type => 'C',
4184: p_currency_code => p_currency_code
4185: );
4186:
4187: hr_utility.set_location('Commitment Amt : '||NVL(l_cmmtmnt_amt,0),30);
4188:
4189: l_shared_type_cd := get_budget_measurement_type(p_unit_of_measure_id);
4190: IF l_shared_type_cd = 'MONEY' THEN
4191: l_projected_amt := NVL(l_actual_amt,0) + NVL(l_cmmtmnt_amt,0);
4192: ELSE
4193: l_projected_amt := NVL(l_actual_amt,0);
4194: END IF;
4195:
4196: hr_utility.set_location('Projected Amt : '||NVL(l_projected_amt,0),40);
4197:
4198: l_balance_amt := NVL(l_budgeted_amt,0) - NVL(l_projected_amt,0);
4199:
4200: hr_utility.set_location('Balance Amt : '||NVL(l_balance_amt,0),50);
4196: hr_utility.set_location('Projected Amt : '||NVL(l_projected_amt,0),40);
4197:
4198: l_balance_amt := NVL(l_budgeted_amt,0) - NVL(l_projected_amt,0);
4199:
4200: hr_utility.set_location('Balance Amt : '||NVL(l_balance_amt,0),50);
4201:
4202: IF l_budgeted_amt = 0 THEN
4203: l_variance_prcnt := 0;
4204: ELSE
4231: -- just right
4232: l_posn_type := 'N';
4233: END IF;
4234:
4235: hr_utility.set_location('Leaving:'||l_proc, 1000);
4236:
4237: RETURN l_posn_type;
4238:
4239: EXCEPTION
4276: l_variance_prcnt NUMBER := 0;
4277: l_shared_type_cd Per_Shared_Types.System_Type_Cd%TYPE;
4278:
4279: BEGIN
4280: hr_utility.set_location('Entering: '||l_proc, 5);
4281: IF p_entity_type = 'A' THEN
4282: RETURN 'A';
4283: END IF;
4284:
4292: p_unit_of_measure_id => p_unit_of_measure_id,
4293: p_currency_code => p_currency_code
4294: );
4295:
4296: hr_utility.set_location('Budgeted Amt : '||NVL(l_budgeted_amt,0),10);
4297:
4298: l_actual_amt := pqh_mgmt_rpt_pkg.get_entity_actual_cmmtmnts
4299: (
4300: p_budget_version_id => p_budget_version_id,
4306: p_value_type => 'A',
4307: p_currency_code => p_currency_code
4308: );
4309:
4310: hr_utility.set_location('Actual Amt : '||NVL(l_actual_amt,0),20);
4311:
4312: l_cmmtmnt_amt := pqh_mgmt_rpt_pkg.get_entity_actual_cmmtmnts
4313: (
4314: p_budget_version_id => p_budget_version_id,
4320: p_value_type => 'C',
4321: p_currency_code => p_currency_code
4322: );
4323:
4324: hr_utility.set_location('Commitment Amt : '||NVL(l_cmmtmnt_amt,0),30);
4325:
4326: l_shared_type_cd := get_budget_measurement_type(p_unit_of_measure_id);
4327: IF l_shared_type_cd = 'MONEY' THEN
4328: l_projected_amt := NVL(l_actual_amt,0) + NVL(l_cmmtmnt_amt,0);
4329: ELSE
4330: l_projected_amt := NVL(l_actual_amt,0);
4331: END IF;
4332:
4333: hr_utility.set_location('Projected Amt : '||NVL(l_projected_amt,0),40);
4334:
4335: l_balance_amt := NVL(l_budgeted_amt,0) - NVL(l_projected_amt,0);
4336:
4337: hr_utility.set_location('Balance Amt : '||NVL(l_balance_amt,0),50);
4333: hr_utility.set_location('Projected Amt : '||NVL(l_projected_amt,0),40);
4334:
4335: l_balance_amt := NVL(l_budgeted_amt,0) - NVL(l_projected_amt,0);
4336:
4337: hr_utility.set_location('Balance Amt : '||NVL(l_balance_amt,0),50);
4338:
4339: IF l_budgeted_amt = 0 THEN
4340: l_variance_prcnt := 0;
4341: ELSE
4368: -- just right
4369: l_entity_type := 'N';
4370: END IF;
4371:
4372: hr_utility.set_location('Leaving:'||l_proc, 1000);
4373:
4374: RETURN l_entity_type;
4375:
4376: EXCEPTION
4415: l_variance_prcnt NUMBER := 0;
4416: l_shared_type_cd Per_Shared_Types.System_Type_Cd%TYPE;
4417:
4418: BEGIN
4419: hr_utility.set_location('Entering: '||l_proc, 5);
4420: IF p_entity_type = 'A' THEN
4421: RETURN 'A';
4422: END IF;
4423:
4431: p_unit_of_measure_id => p_unit_of_measure_id,
4432: p_currency_code => p_currency_code
4433: );
4434:
4435: hr_utility.set_location('Budgeted Amt : '||NVL(l_budgeted_amt,0),10);
4436:
4437: l_actual_amt := pqh_mgmt_rpt_pkg.get_entity_actual_cmmtmnts
4438: (
4439: p_budget_version_id => p_budget_version_id,
4445: p_value_type => 'A',
4446: p_currency_code => p_currency_code
4447: );
4448:
4449: hr_utility.set_location('Actual Amt : '||NVL(l_actual_amt,0),20);
4450:
4451: l_cmmtmnt_amt := pqh_mgmt_rpt_pkg.get_entity_actual_cmmtmnts
4452: (
4453: p_budget_version_id => p_budget_version_id,
4459: p_value_type => 'C',
4460: p_currency_code => p_currency_code
4461: );
4462:
4463: hr_utility.set_location('Commitment Amt : '||NVL(l_cmmtmnt_amt,0),30);
4464:
4465: l_shared_type_cd := get_budget_measurement_type(p_unit_of_measure_id);
4466: IF l_shared_type_cd = 'MONEY' THEN
4467: l_projected_amt := NVL(l_actual_amt,0) + NVL(l_cmmtmnt_amt,0);
4468: ELSE
4469: l_projected_amt := NVL(l_actual_amt,0);
4470: END IF;
4471:
4472: hr_utility.set_location('Projected Amt : '||NVL(l_projected_amt,0),40);
4473:
4474: l_balance_amt := NVL(l_budgeted_amt,0) - NVL(l_projected_amt,0);
4475:
4476: hr_utility.set_location('Balance Amt : '||NVL(l_balance_amt,0),50);
4472: hr_utility.set_location('Projected Amt : '||NVL(l_projected_amt,0),40);
4473:
4474: l_balance_amt := NVL(l_budgeted_amt,0) - NVL(l_projected_amt,0);
4475:
4476: hr_utility.set_location('Balance Amt : '||NVL(l_balance_amt,0),50);
4477:
4478: IF l_budgeted_amt = 0 THEN
4479: l_variance_prcnt := 0;
4480: ELSE
4507: -- just right
4508: l_entity_type := 'N';
4509: END IF;
4510:
4511: hr_utility.set_location('Leaving:'||l_proc, 1000);
4512:
4513: RETURN l_entity_type;
4514:
4515: EXCEPTION
4552: l_variance_prcnt NUMBER := 0;
4553: l_shared_type_cd per_shared_types.system_type_cd%TYPE;
4554:
4555: BEGIN
4556: hr_utility.set_location('Entering: '||l_proc, 5);
4557: IF p_entity_type = 'A' THEN
4558: RETURN 'A';
4559: END IF;
4560:
4568: p_unit_of_measure_id => p_unit_of_measure_id,
4569: p_currency_code => p_currency_code
4570: );
4571:
4572: hr_utility.set_location('Budgeted Amt : '||NVL(l_budgeted_amt,0),10);
4573:
4574: l_actual_amt := pqh_mgmt_rpt_pkg.get_entity_actual_cmmtmnts
4575: (
4576: p_budget_version_id => p_budget_version_id,
4582: p_value_type => 'A',
4583: p_currency_code => p_currency_code
4584: );
4585:
4586: hr_utility.set_location('Actual Amt : '||NVL(l_actual_amt,0),20);
4587:
4588: l_cmmtmnt_amt := pqh_mgmt_rpt_pkg.get_entity_actual_cmmtmnts
4589: (
4590: p_budget_version_id => p_budget_version_id,
4596: p_value_type => 'C',
4597: p_currency_code => p_currency_code
4598: );
4599:
4600: hr_utility.set_location('Commitment Amt : '||NVL(l_cmmtmnt_amt,0),30);
4601:
4602: l_shared_type_cd := get_budget_measurement_type(p_unit_of_measure_id);
4603: IF l_shared_type_cd = 'MONEY' THEN
4604: l_projected_amt := NVL(l_actual_amt,0) + NVL(l_cmmtmnt_amt,0);
4605: ELSE
4606: l_projected_amt := NVL(l_actual_amt,0);
4607: END IF;
4608:
4609: hr_utility.set_location('Projected Amt : '||NVL(l_projected_amt,0),40);
4610:
4611: l_balance_amt := NVL(l_budgeted_amt,0) - NVL(l_projected_amt,0);
4612:
4613: hr_utility.set_location('Balance Amt : '||NVL(l_balance_amt,0),50);
4609: hr_utility.set_location('Projected Amt : '||NVL(l_projected_amt,0),40);
4610:
4611: l_balance_amt := NVL(l_budgeted_amt,0) - NVL(l_projected_amt,0);
4612:
4613: hr_utility.set_location('Balance Amt : '||NVL(l_balance_amt,0),50);
4614:
4615: IF l_budgeted_amt = 0 THEN
4616: l_variance_prcnt := 0;
4617: ELSE
4644: -- just right
4645: l_entity_type := 'N';
4646: END IF;
4647:
4648: hr_utility.set_location('Leaving:'||l_proc, 1000);
4649:
4650: RETURN l_entity_type;
4651:
4652: EXCEPTION
4678: l_proc varchar2(72) := g_package||'chk_ent_type';
4679:
4680: BEGIN
4681:
4682: --hr_utility.set_location('Entering: '||l_proc,1000);
4683:
4684: IF p_budgeted_entity_cd = 'POSITION' THEN
4685:
4686: l_entity_type := check_pos_type_and_variance
4737: p_currency_code => p_currency_code
4738: );
4739: END IF;
4740:
4741: hr_utility.set_location('Leaving: '||l_proc,1000);
4742:
4743: RETURN l_entity_type;
4744:
4745: EXCEPTION
4773: l_proc varchar2(72) := g_package||'get_ent_elmt_bdgt_amt';
4774:
4775: BEGIN
4776:
4777: hr_utility.set_location('Entering: '||l_proc,1000);
4778:
4779: IF p_budgeted_entity_cd = 'POSITION' THEN
4780:
4781: l_curr_ent_tot := get_posn_element_bdgt_amt
4825: p_currency_code => p_currency_code
4826: );
4827: END IF;
4828:
4829: hr_utility.set_location('Leaving: '||l_proc,1000);
4830:
4831:
4832: RETURN l_curr_ent_tot;
4833:
4858: l_proc varchar2(72) := g_package||'get_ent_elmt_act_cmmt';
4859:
4860: BEGIN
4861:
4862: hr_utility.set_location('Entering: '||l_proc,1000);
4863:
4864: IF p_budgeted_entity_cd = 'POSITION' THEN
4865:
4866: l_curr_ent_tot := get_posn_elmnt_actual_cmmtmnts
4914: p_currency_code => p_currency_code
4915: );
4916: END IF;
4917:
4918: hr_utility.set_location('Leaving: '||l_proc,1000);
4919:
4920: RETURN l_curr_ent_tot;
4921:
4922: EXCEPTION