DBA Data[Home] [Help]

APPS.PA_BUDGET_UTILS dependencies on PA_BUDGET_UTILS

Line 1: package body pa_budget_utils as

1: package body pa_budget_utils as
2: -- $Header: PAXBUBUB.pls 120.11 2007/11/27 06:59:01 vgovvala ship $
3:
4: NO_DATA_FOUND_ERR number := 100;
5:

Line 11: g_module_name VARCHAR2(100) := 'pa.plsql.PA_BUDGET_UTILS';

7: -- g_mrc_exception EXCEPTION;
8: Invalid_Arg_Exc EXCEPTION; -- Added for FPM, Tracking Bug No - 3354518.
9:
10: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
11: g_module_name VARCHAR2(100) := 'pa.plsql.PA_BUDGET_UTILS';
12:
13: procedure get_draft_version_id (x_project_id in number,
14: x_budget_type_code in varchar2,
15: x_budget_version_id in out NOCOPY number, --File.Sql.39 bug 4440895

Line 168: --Called subprograms: pa_budget_utils.get_baselined_version_id

164: -- !!! This procedure does NOT support the FP model !!!
165: --
166: --
167: --
168: --Called subprograms: pa_budget_utils.get_baselined_version_id
169: --
170: --
171: --
172: --History:

Line 206: pa_budget_utils.get_baselined_version_id(

202:
203:
204:
205:
206: pa_budget_utils.get_baselined_version_id(
207: x_project_id => x_project_id,
208: x_budget_type_code => x_budget_type_code,
209: x_budget_version_id => x_baselined_version_id,
210: x_err_code => x_err_code,

Line 1614: pa_budget_utils.get_baselined_version_id(x_project_id,

1610: ********/
1611: /* Never delete resource list assignment if it is baselined
1612: -- if there is a baselined version, then do not delete resource assignment
1613:
1614: pa_budget_utils.get_baselined_version_id(x_project_id,
1615: x_budget_type_code,
1616: x_baselined_version_id,
1617: x_err_code,
1618: x_err_stage,

Line 1703: --Called subprograms: pa_budget_utils.get_baselined_version_id

1699: --
1700: --
1701: --
1702: --
1703: --Called subprograms: pa_budget_utils.get_baselined_version_id
1704: --
1705: --
1706: --
1707: --History:

Line 1766: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_DRAFT');

1762: old_stack := x_err_stack;
1763: x_err_stack := x_err_stack || '->create_draft';
1764:
1765: IF p_pa_debug_mode = 'Y' THEN
1766: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_DRAFT');
1767: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
1768: END IF;
1769:
1770: x_created_by := to_number(fnd_profile.value('USER_ID'));

Line 1782: pa_budget_utils.get_baselined_version_id(

1778: pa_debug.g_err_stage:= 'Calling get baselined version id';
1779: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1780: END IF;
1781:
1782: pa_budget_utils.get_baselined_version_id(
1783: x_project_id => x_project_id,
1784: x_budget_type_code => x_budget_type_code,
1785: x_budget_version_id => x_baselined_version_id,
1786: x_err_code => x_err_code,

Line 1840: pa_budget_utils.get_draft_version_id(

1836: pa_debug.g_err_stage:= 'Calling get_draft_version_id';
1837: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1838: END IF;
1839:
1840: pa_budget_utils.get_draft_version_id(
1841: x_project_id => x_project_id,
1842: x_budget_type_code => x_budget_type_code,
1843: x_budget_version_id => old_draft_version_id,
1844: x_err_code => x_err_code,

Line 1863: pa_budget_utils.delete_draft(old_draft_version_id,

1859: IF P_PA_DEBUG_MODE = 'Y' THEN
1860: pa_debug.g_err_stage:= 'Calling delete_draft';
1861: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1862: END IF;
1863: pa_budget_utils.delete_draft(old_draft_version_id,
1864: x_err_code,
1865: x_err_stage,
1866: x_err_stack);
1867: IF P_PA_DEBUG_MODE = 'Y' THEN

Line 2154: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_LINE');

2150: old_stack := x_err_stack;
2151: x_err_stack := x_err_stack || '->create_line';
2152:
2153: IF p_pa_debug_mode = 'Y' THEN
2154: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_LINE');
2155: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2156: END IF;
2157: -- Bug Fix: 4569365. Removed MRC code.
2158: /* FPB2: MRC */

Line 2270: if pa_budget_utils.get_budget_amount_code(v_budget_type_code) = 'C' then

2266: -- If the resource UOM is currency and raw cost is null then
2267: -- copy value of quantity amt into raw cost and also set quantity
2268: -- amt to null.
2269:
2270: if pa_budget_utils.get_budget_amount_code(v_budget_type_code) = 'C' then
2271: -- Cost Budget
2272:
2273: if pa_budget_utils.check_currency_uom(x_unit_of_measure) = 'Y' then
2274: if x_raw_cost is null then

Line 2273: if pa_budget_utils.check_currency_uom(x_unit_of_measure) = 'Y' then

2269:
2270: if pa_budget_utils.get_budget_amount_code(v_budget_type_code) = 'C' then
2271: -- Cost Budget
2272:
2273: if pa_budget_utils.check_currency_uom(x_unit_of_measure) = 'Y' then
2274: if x_raw_cost is null then
2275: x_raw_cost := x_quantity;
2276: end if;
2277: if x_unit_of_measure is not null then --Bug 4432032

Line 2287: if pa_budget_utils.check_currency_uom(x_unit_of_measure) = 'Y' then

2283: x_burdened_cost := x_raw_cost;
2284: end if;
2285:
2286: else -- Revenue Budget
2287: if pa_budget_utils.check_currency_uom(x_unit_of_measure) = 'Y' then
2288: if x_revenue is null then
2289: x_revenue := x_quantity;
2290: end if;
2291: if x_unit_of_measure is not null then --Bug 4432032

Line 2303: PA_BUDGET_UTILS.Get_Project_Currency_Info

2299: IF P_PA_DEBUG_MODE = 'Y' THEN
2300: pa_debug.g_err_stage:= 'Calling Get_Project_Currency_Info';
2301: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2302: END IF;
2303: PA_BUDGET_UTILS.Get_Project_Currency_Info
2304: (
2305: p_project_id => x_project_id
2306: , x_projfunc_currency_code => l_projfunc_currency_code
2307: , x_project_currency_code => l_project_currency_code

Line 2493: ( p_pkg_name => 'PA_BUDGET_UTILS'

2489: WHEN FND_API.G_EXC_ERROR
2490: THEN
2491: x_err_code := SQLCODE;
2492: FND_MSG_PUB.Add_Exc_Msg
2493: ( p_pkg_name => 'PA_BUDGET_UTILS'
2494: , p_procedure_name => 'CREATE_LINE'
2495: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2496: );
2497: IF P_PA_DEBUG_MODE = 'Y' THEN

Line 2510: ( p_pkg_name => 'PA_BUDGET_UTILS'

2506: pa_debug.g_err_stage:= 'In exception of create_line -2 '||substr(SQLERRM,1,100);
2507: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2508: END IF;
2509: FND_MSG_PUB.Add_Exc_Msg
2510: ( p_pkg_name => 'PA_BUDGET_UTILS'
2511: , p_procedure_name => 'CREATE_LINE'
2512: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2513: );
2514: RETURN;

Line 2542: pa_debug.set_err_stack('PA_BUDGET_UTILS.SUMMERIZE_PROJECT_TOTALS');

2538: old_stack := x_err_stack;
2539: x_err_stack := x_err_stack || '->summerize_project_totals';
2540:
2541: IF p_pa_debug_mode = 'Y' THEN
2542: pa_debug.set_err_stack('PA_BUDGET_UTILS.SUMMERIZE_PROJECT_TOTALS');
2543: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2544: END IF;
2545:
2546: x_created_by := to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id));

Line 2723: PA_BUDGET_UTILS.Get_Version_Approved_Code

2719: IF (p_budget_type_code IS NULL)
2720: THEN
2721: -- A FP Plan is being processed. Get the l_approved_code for Subsequent Processing
2722:
2723: PA_BUDGET_UTILS.Get_Version_Approved_Code
2724: (
2725: p_budget_version_id => p_draft_version_id
2726: , x_approved_code => l_approved_code
2727: , x_msg_count => l_msg_count

Line 2795: ( p_pkg_name => 'PA_BUDGET_UTILS'

2791:
2792: WHEN OTHERS THEN
2793: p_err_code := SQLCODE;
2794: FND_MSG_PUB.Add_Exc_Msg
2795: ( p_pkg_name => 'PA_BUDGET_UTILS'
2796: , p_procedure_name => 'VERIFY_BUDGET_RULES'
2797: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2798: );
2799: p_warnings_only_flag := 'N';

Line 2841: ( p_pkg_name => 'PA_BUDGET_UTILS'

2837: l_entry_level_code := 'P';
2838: WHEN OTHERS THEN
2839: p_err_code := SQLCODE;
2840: FND_MSG_PUB.Add_Exc_Msg
2841: ( p_pkg_name => 'PA_BUDGET_UTILS'
2842: , p_procedure_name => 'VERIFY_BUDGET_RULES'
2843: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2844: );
2845: p_warnings_only_flag := 'N';

Line 2940: ( p_pkg_name => 'PA_BUDGET_UTILS'

2936: WHEN FND_API.G_EXC_ERROR
2937: THEN
2938: p_err_code := SQLCODE;
2939: FND_MSG_PUB.Add_Exc_Msg
2940: ( p_pkg_name => 'PA_BUDGET_UTILS'
2941: , p_procedure_name => 'VERIFY_BUDGET_RULES'
2942: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2943: );
2944: p_warnings_only_flag := 'N';

Line 2950: ( p_pkg_name => 'PA_BUDGET_UTILS'

2946: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2947: THEN
2948: p_err_code := SQLCODE;
2949: FND_MSG_PUB.Add_Exc_Msg
2950: ( p_pkg_name => 'PA_BUDGET_UTILS'
2951: , p_procedure_name => 'VERIFY_BUDGET_RULES'
2952: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2953: );
2954: p_warnings_only_flag := 'N';

Line 2959: ( p_pkg_name => 'PA_BUDGET_UTILS'

2955: p_err_msg_count := FND_MSG_PUB.Count_Msg;
2956: WHEN OTHERS THEN
2957: p_err_code := SQLCODE;
2958: FND_MSG_PUB.Add_Exc_Msg
2959: ( p_pkg_name => 'PA_BUDGET_UTILS'
2960: , p_procedure_name => 'VERIFY_BUDGET_RULES'
2961: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2962: );
2963: p_warnings_only_flag := 'N';

Line 3168: ( p_pkg_name => 'PA_BUDGET_UTILS'

3164: THEN
3165: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3166: THEN
3167: FND_MSG_PUB.add_exc_msg
3168: ( p_pkg_name => 'PA_BUDGET_UTILS'
3169: , p_procedure_name => 'BASELINE_BUDGET'
3170: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0')
3171: );
3172: END IF;

Line 3217: ( p_pkg_name => 'PA_BUDGET_UTILS'

3213: THEN
3214: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3215: THEN
3216: FND_MSG_PUB.add_exc_msg
3217: ( p_pkg_name => 'PA_BUDGET_UTILS'
3218: , p_procedure_name => 'BASELINE_BUDGET'
3219: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0')
3220: );
3221: END IF;

Line 3355: ( p_pkg_name => 'PA_BUDGET_UTILS'

3351: THEN
3352: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3353: THEN
3354: FND_MSG_PUB.add_exc_msg
3355: ( p_pkg_name => 'PA_BUDGET_UTILS'
3356: , p_procedure_name => 'BASELINE_BUDGET'
3357: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0')
3358: );
3359: END IF;

Line 3479: ( p_pkg_name => 'PA_BUDGET_UTILS'

3475: THEN
3476: ROLLBACK TO baseline_budget_wrappper;
3477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3478: FND_MSG_PUB.Add_Exc_Msg
3479: ( p_pkg_name => 'PA_BUDGET_UTILS'
3480: , p_procedure_name => 'BASELINE_BUDGET'
3481: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
3482: );
3483: FND_MSG_PUB.Count_And_Get

Line 3618: x_err_stack := x_err_stack || '->PA_BUDGET_UTILS.get_project_task_totals';

3614:
3615: begin
3616: x_err_code := 0;
3617: old_stack := x_err_stack;
3618: x_err_stack := x_err_stack || '->PA_BUDGET_UTILS.get_project_task_totals';
3619:
3620: open get_rollup_level;
3621: fetch get_rollup_level into v_rollup_flag;
3622: close get_rollup_level;

Line 3839: ( p_pkg_name => 'PA_BUDGET_UTILS'

3835: WHEN OTHERS
3836: THEN
3837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3838: FND_MSG_PUB.Add_Exc_Msg
3839: ( p_pkg_name => 'PA_BUDGET_UTILS'
3840: , p_procedure_name => 'GET_VERSION_APPROVED_CODE'
3841: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
3842: );
3843: FND_MSG_PUB.Count_And_Get

Line 3904: IF (pa_budget_utils.G_project_id <> p_project_id)

3900:
3901:
3902: -- Fetch Currency Info for New Project
3903:
3904: IF (pa_budget_utils.G_project_id <> p_project_id)
3905: THEN
3906:
3907: SELECT projfunc_currency_code
3908: , project_currency_code

Line 3910: INTO pa_budget_utils.G_projfunc_currency_code

3906:
3907: SELECT projfunc_currency_code
3908: , project_currency_code
3909: , projfunc_currency_code
3910: INTO pa_budget_utils.G_projfunc_currency_code
3911: , pa_budget_utils.G_project_currency_code
3912: , pa_budget_utils.G_txn_currency_code
3913: FROM pa_projects_all
3914: WHERE project_id = p_project_id;

Line 3911: , pa_budget_utils.G_project_currency_code

3907: SELECT projfunc_currency_code
3908: , project_currency_code
3909: , projfunc_currency_code
3910: INTO pa_budget_utils.G_projfunc_currency_code
3911: , pa_budget_utils.G_project_currency_code
3912: , pa_budget_utils.G_txn_currency_code
3913: FROM pa_projects_all
3914: WHERE project_id = p_project_id;
3915:

Line 3912: , pa_budget_utils.G_txn_currency_code

3908: , project_currency_code
3909: , projfunc_currency_code
3910: INTO pa_budget_utils.G_projfunc_currency_code
3911: , pa_budget_utils.G_project_currency_code
3912: , pa_budget_utils.G_txn_currency_code
3913: FROM pa_projects_all
3914: WHERE project_id = p_project_id;
3915:
3916: -- Save P_project_id to Skip this Fetch for Subsequent Calls

Line 3917: pa_budget_utils.G_project_id := p_project_id;

3913: FROM pa_projects_all
3914: WHERE project_id = p_project_id;
3915:
3916: -- Save P_project_id to Skip this Fetch for Subsequent Calls
3917: pa_budget_utils.G_project_id := p_project_id;
3918:
3919: END IF;
3920:
3921: x_projfunc_currency_code := pa_budget_utils.G_projfunc_currency_code;

Line 3921: x_projfunc_currency_code := pa_budget_utils.G_projfunc_currency_code;

3917: pa_budget_utils.G_project_id := p_project_id;
3918:
3919: END IF;
3920:
3921: x_projfunc_currency_code := pa_budget_utils.G_projfunc_currency_code;
3922: x_project_currency_code := pa_budget_utils.G_project_currency_code;
3923: x_txn_currency_code := pa_budget_utils.G_txn_currency_code;
3924:
3925:

Line 3922: x_project_currency_code := pa_budget_utils.G_project_currency_code;

3918:
3919: END IF;
3920:
3921: x_projfunc_currency_code := pa_budget_utils.G_projfunc_currency_code;
3922: x_project_currency_code := pa_budget_utils.G_project_currency_code;
3923: x_txn_currency_code := pa_budget_utils.G_txn_currency_code;
3924:
3925:
3926: EXCEPTION

Line 3923: x_txn_currency_code := pa_budget_utils.G_txn_currency_code;

3919: END IF;
3920:
3921: x_projfunc_currency_code := pa_budget_utils.G_projfunc_currency_code;
3922: x_project_currency_code := pa_budget_utils.G_project_currency_code;
3923: x_txn_currency_code := pa_budget_utils.G_txn_currency_code;
3924:
3925:
3926: EXCEPTION
3927: WHEN OTHERS

Line 3931: ( p_pkg_name => 'PA_BUDGET_UTILS'

3927: WHEN OTHERS
3928: THEN
3929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3930: FND_MSG_PUB.Add_Exc_Msg
3931: ( p_pkg_name => 'PA_BUDGET_UTILS'
3932: , p_procedure_name => 'GET_PROJECT_CURRENCY_INFO'
3933: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
3934: );
3935: FND_MSG_PUB.Count_And_Get

Line 4108: ( p_pkg_name => 'PA_BUDGET_UTILS'

4104: WHEN OTHERS
4105: THEN
4106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4107: FND_MSG_PUB.Add_Exc_Msg
4108: ( p_pkg_name => 'PA_BUDGET_UTILS'
4109: , p_procedure_name => 'GET_APPROVED_FP_INFO'
4110: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
4111: );
4112: FND_MSG_PUB.Count_And_Get

Line 4251: ( p_pkg_name => 'PA_BUDGET_UTILS'

4247: WHEN OTHERS THEN
4248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4249: x_err_code := SQLCODE;
4250: FND_MSG_PUB.Add_Exc_Msg
4251: ( p_pkg_name => 'PA_BUDGET_UTILS'
4252: , p_procedure_name => 'SET_PRJ_POLICY_cONTEXT'
4253: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
4254: );
4255: FND_MSG_PUB.Count_And_Get

Line 4265: END pa_budget_utils;

4261: END Set_Prj_Policy_Context;
4262:
4263:
4264:
4265: END pa_budget_utils;