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.12020000.3 2013/04/19 09:56:57 krkondur 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 2155: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_LINE');

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

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

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

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

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

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

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

Line 2307: PA_BUDGET_UTILS.Get_Project_Currency_Info

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

Line 2497: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

Line 2514: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

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

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

Line 2727: PA_BUDGET_UTILS.Get_Version_Approved_Code

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

Line 2799: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

Line 2845: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

Line 2944: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

Line 2954: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

Line 2963: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

Line 3172: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

Line 3221: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

Line 3359: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

Line 3483: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

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

3618:
3619: begin
3620: x_err_code := 0;
3621: old_stack := x_err_stack;
3622: x_err_stack := x_err_stack || '->PA_BUDGET_UTILS.get_project_task_totals';
3623:
3624: open get_rollup_level;
3625: fetch get_rollup_level into v_rollup_flag;
3626: close get_rollup_level;

Line 3843: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

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

3904:
3905:
3906: -- Fetch Currency Info for New Project
3907:
3908: IF (pa_budget_utils.G_project_id <> p_project_id)
3909: THEN
3910:
3911: SELECT projfunc_currency_code
3912: , project_currency_code

Line 3914: INTO pa_budget_utils.G_projfunc_currency_code

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

Line 3915: , pa_budget_utils.G_project_currency_code

3911: SELECT projfunc_currency_code
3912: , project_currency_code
3913: , projfunc_currency_code
3914: INTO pa_budget_utils.G_projfunc_currency_code
3915: , pa_budget_utils.G_project_currency_code
3916: , pa_budget_utils.G_txn_currency_code
3917: FROM pa_projects_all
3918: WHERE project_id = p_project_id;
3919:

Line 3916: , pa_budget_utils.G_txn_currency_code

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

Line 3921: pa_budget_utils.G_project_id := p_project_id;

3917: FROM pa_projects_all
3918: WHERE project_id = p_project_id;
3919:
3920: -- Save P_project_id to Skip this Fetch for Subsequent Calls
3921: pa_budget_utils.G_project_id := p_project_id;
3922:
3923: END IF;
3924:
3925: x_projfunc_currency_code := pa_budget_utils.G_projfunc_currency_code;

Line 3925: x_projfunc_currency_code := pa_budget_utils.G_projfunc_currency_code;

3921: pa_budget_utils.G_project_id := p_project_id;
3922:
3923: END IF;
3924:
3925: x_projfunc_currency_code := pa_budget_utils.G_projfunc_currency_code;
3926: x_project_currency_code := pa_budget_utils.G_project_currency_code;
3927: x_txn_currency_code := pa_budget_utils.G_txn_currency_code;
3928:
3929:

Line 3926: x_project_currency_code := pa_budget_utils.G_project_currency_code;

3922:
3923: END IF;
3924:
3925: x_projfunc_currency_code := pa_budget_utils.G_projfunc_currency_code;
3926: x_project_currency_code := pa_budget_utils.G_project_currency_code;
3927: x_txn_currency_code := pa_budget_utils.G_txn_currency_code;
3928:
3929:
3930: EXCEPTION

Line 3927: x_txn_currency_code := pa_budget_utils.G_txn_currency_code;

3923: END IF;
3924:
3925: x_projfunc_currency_code := pa_budget_utils.G_projfunc_currency_code;
3926: x_project_currency_code := pa_budget_utils.G_project_currency_code;
3927: x_txn_currency_code := pa_budget_utils.G_txn_currency_code;
3928:
3929:
3930: EXCEPTION
3931: WHEN OTHERS

Line 3935: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

Line 4112: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

Line 4255: ( p_pkg_name => 'PA_BUDGET_UTILS'

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

Line 4269: END pa_budget_utils;

4265: END Set_Prj_Policy_Context;
4266:
4267:
4268:
4269: END pa_budget_utils;