DBA Data[Home] [Help]

APPS.PA_BUDGET_PVT dependencies on PA_BUDGET_PVT

Line 1: package body PA_BUDGET_PVT as

1: package body PA_BUDGET_PVT as
2: --$Header: PAPMBUVB.pls 120.40.12020000.2 2013/04/10 07:43:59 djambhek ship $
3: --package constants to be used in error messages
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_BUDGET_PVT';
5:

Line 4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_BUDGET_PVT';

1: package body PA_BUDGET_PVT as
2: --$Header: PAPMBUVB.pls 120.40.12020000.2 2013/04/10 07:43:59 djambhek ship $
3: --package constants to be used in error messages
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_BUDGET_PVT';
5:
6: --package constants to be used during updates
7: G_USER_ID CONSTANT NUMBER := FND_GLOBAL.user_id;
8: G_LOGIN_ID CONSTANT NUMBER := FND_GLOBAL.login_id;

Line 13: g_module_name VARCHAR2(100) := 'pa.plsql.PA_BUDGET_PVT';

9:
10: -- Bug Fix: 4569365. Removed MRC code.
11: -- g_mrc_exception EXCEPTION; /* FPB2 */
12:
13: g_module_name VARCHAR2(100) := 'pa.plsql.PA_BUDGET_PVT';
14:
15: -- Cursor to get the budget amount code of the budget type passed
16: CURSOR l_budget_amount_code_csr
17: (c_budget_type_code VARCHAR2 )

Line 2188: pa_budget_pvt.valid_rate_type

2184: -- If the rate type is not user at plan type and the rate type provided
2185: -- is User then throw an error since the rates at the option level can not
2186: -- be obtained
2187:
2188: pa_budget_pvt.valid_rate_type
2189: (p_pt_project_cost_rate_type => l_proj_fp_options_rec.project_cost_rate_type,
2190: p_pt_project_rev_rate_type => l_proj_fp_options_rec.project_rev_rate_type,
2191: p_pt_projfunc_cost_rate_type=> l_proj_fp_options_rec.projfunc_cost_rate_type,
2192: p_pt_projfunc_rev_rate_type => l_proj_fp_options_rec.projfunc_rev_rate_type,

Line 2629: ( p_pkg_name => 'PA_BUDGET_PVT'

2625: x_msg_count := 1;
2626: x_msg_data := SQLERRM;
2627:
2628: FND_MSG_PUB.add_exc_msg
2629: ( p_pkg_name => 'PA_BUDGET_PVT'
2630: ,p_procedure_name => 'VALIDATE_HEADER_INFO'
2631: ,p_error_text => sqlerrm);
2632:
2633: IF l_debug_mode = 'Y' THEN

Line 3205: PA_BUDGET_PVT.Get_Latest_BC_Year

3201:
3202: --RE-Populate global for subsequent conditional budget LINE validation
3203: -- Storing a value other than -99 is essential to conditional LINE validation
3204:
3205: PA_BUDGET_PVT.Get_Latest_BC_Year
3206: ( p_pa_project_id => px_pa_project_id
3207: ,x_latest_encumbrance_year => PA_BUDGET_PUB.G_Latest_Encumbrance_Year
3208: ,x_return_status => x_return_status
3209: ,x_msg_count => x_msg_count

Line 3965: ( p_pkg_name => 'PA_BUDGET_PVT'

3961: x_msg_count := 1;
3962: x_msg_data := SQLERRM;
3963:
3964: FND_MSG_PUB.add_exc_msg
3965: ( p_pkg_name => 'PA_BUDGET_PVT'
3966: ,p_procedure_name => 'VALIDATE_HEADER_INFO'
3967: ,p_error_text => sqlerrm);
3968:
3969: IF l_debug_mode = 'Y' THEN

Line 4543: pa_budget_pvt.Validate_Budget_Lines

4539: l_version_info_rec.x_budget_version_id := p_budget_version_id;
4540: END IF;
4541:
4542: -- Call validate_budget_lines api
4543: pa_budget_pvt.Validate_Budget_Lines
4544: ( p_pa_project_id => p_pa_project_id
4545: ,p_budget_type_code => p_budget_type_code
4546: ,p_fin_plan_type_id => NULL
4547: ,p_version_type => NULL

Line 4759: --Called subprograms: PA_BUDGET_PVT.check_entry_method_flags

4755: --Type: Procedure
4756: --Description: This procedure is be build a update statement for a budgetline.
4757: --
4758: --
4759: --Called subprograms: PA_BUDGET_PVT.check_entry_method_flags
4760: --
4761: --
4762: --
4763: --

Line 6410: pa_budget_pvt.g_Task_number := NULL;

6406: FOR i IN px_budget_lines_in.first..px_budget_lines_in.last LOOP
6407: /* Bug 3133930 */
6408: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
6409: --Initialise all the global variables to null
6410: pa_budget_pvt.g_Task_number := NULL;
6411: pa_budget_pvt.g_start_date := NULL;
6412: pa_budget_pvt.g_resource_alias := NULL;
6413:
6414:

Line 6411: pa_budget_pvt.g_start_date := NULL;

6407: /* Bug 3133930 */
6408: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
6409: --Initialise all the global variables to null
6410: pa_budget_pvt.g_Task_number := NULL;
6411: pa_budget_pvt.g_start_date := NULL;
6412: pa_budget_pvt.g_resource_alias := NULL;
6413:
6414:
6415: /* Bug 3218822 - PM_PRODUCT_CODE could be Null. We need valid it if it is NOT NULL */

Line 6412: pa_budget_pvt.g_resource_alias := NULL;

6408: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
6409: --Initialise all the global variables to null
6410: pa_budget_pvt.g_Task_number := NULL;
6411: pa_budget_pvt.g_start_date := NULL;
6412: pa_budget_pvt.g_resource_alias := NULL;
6413:
6414:
6415: /* Bug 3218822 - PM_PRODUCT_CODE could be Null. We need valid it if it is NOT NULL */
6416:

Line 6583: pa_budget_pvt.g_task_number := substrb(l_amg_task_number,1,25);

6579: ( p_task_number=> ''
6580: ,p_task_reference => px_budget_lines_in(i).pm_task_reference
6581: ,p_task_id => px_budget_lines_in(i).pa_task_id);
6582: /* Bug 3124283: Added substr below */
6583: pa_budget_pvt.g_task_number := substrb(l_amg_task_number,1,25);
6584: ELSE
6585: pa_budget_pvt.g_task_number := substrb(l_amg_project_rec.segment1,1,25); --Added for the bug 4421602.
6586: END IF;
6587:

Line 6585: pa_budget_pvt.g_task_number := substrb(l_amg_project_rec.segment1,1,25); --Added for the bug 4421602.

6581: ,p_task_id => px_budget_lines_in(i).pa_task_id);
6582: /* Bug 3124283: Added substr below */
6583: pa_budget_pvt.g_task_number := substrb(l_amg_task_number,1,25);
6584: ELSE
6585: pa_budget_pvt.g_task_number := substrb(l_amg_project_rec.segment1,1,25); --Added for the bug 4421602.
6586: END IF;
6587:
6588: -- -- Bug # 3507156
6589: -- Added a check for old model(p_budget_type_code) or new model(p_fin_plan_type_id) as the processing

Line 6973: pa_budget_pvt.g_start_date := px_budget_lines_in(i).budget_start_date;

6969: ,x_error_code => l_new_error_code);
6970: END IF;
6971: END IF; -- Bug 3986129
6972:
6973: pa_budget_pvt.g_start_date := px_budget_lines_in(i).budget_start_date;
6974: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6975: -- RAISE FND_API.G_EXC_ERROR;
6976: -- as the API get_valid_period_dates adds the error msg to the stack hence we
6977: -- do not need to add the error msg in this API.

Line 6989: pa_budget_pvt.check_entry_method_flags

6985: --every budget line need to be checked for it's amount values.
6986: IF p_fin_plan_type_id IS NULL THEN
6987: --Budget Model.Do not pass version type and amount flags
6988:
6989: pa_budget_pvt.check_entry_method_flags
6990: ( p_budget_amount_code => l_budget_amount_code
6991: ,p_budget_entry_method_code => p_budget_entry_method_code
6992: ,p_quantity => px_budget_lines_in(i).quantity
6993: ,p_raw_cost => px_budget_lines_in(i).raw_cost

Line 7004: pa_budget_pvt.check_entry_method_flags

7000:
7001: ELSE
7002: --Finplan model.Pass version type and other amount flags
7003: IF p_calling_context = 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
7004: pa_budget_pvt.check_entry_method_flags
7005: ( p_budget_amount_code => NULL
7006: ,p_budget_entry_method_code => p_budget_entry_method_code
7007: ,p_quantity => px_budget_lines_in(i).quantity
7008: ,p_raw_cost => px_budget_lines_in(i).raw_cost

Line 7039: pa_budget_pvt.check_entry_method_flags

7035: l_webadi_err_amt_type_tbl.extend(1);
7036: l_webadi_err_amt_type_tbl(l_webadi_err_amt_type_tbl.COUNT) := p_amount_type_tbl(i);
7037: END IF;
7038: ELSE -- p_calling_context <> 'WEBADI'
7039: pa_budget_pvt.check_entry_method_flags
7040: ( p_budget_amount_code => NULL
7041: ,p_budget_entry_method_code => p_budget_entry_method_code
7042: ,p_quantity => px_budget_lines_in(i).quantity
7043: ,p_raw_cost => px_budget_lines_in(i).raw_cost

Line 7266: ,pa_budget_pvt.g_resource_alias

7262: ,resource_type_code
7263: ,alias
7264: INTO l_parent_member_id
7265: ,l_resource_type_code
7266: ,pa_budget_pvt.g_resource_alias
7267: FROM pa_resource_list_members
7268: WHERE resource_list_member_id = px_budget_lines_in(i).resource_list_member_id;
7269:
7270: IF l_resource_type_code = 'UNCLASSIFIED' THEN

Line 7856: --INSERT_BUDGET_LINE (PACKAGE PA_BUDGET_PVT)

7852: --ADD_BUDGET_LINE (PACKAGE PA_BUDGET_PUB)
7853: --UPDATE_BUDGET (PACKAGE PA_BUDGET_PUB)
7854: --UPDATE_BUDGET_LINE (PACKAGE PA_BUDGET_PUB)
7855: --CREATE_DRAFT_FINPLAN (PACKAGE PA_BUDGET_PUB)
7856: --INSERT_BUDGET_LINE (PACKAGE PA_BUDGET_PVT)
7857: -- Of all the above places the below if condition would only be satisfied by ADD_BUDGET_LINE, UPDATE_BUDGET,
7858: --UPDATE_BUDGET_LINE for finplan model only which is what is required here. This validation should only be done
7859: --only from these calling places and only for finplan model.
7860:

Line 8583: pa_budget_pvt.g_Task_number := NULL;

8579: END IF; -- non webadi context
8580: END IF;
8581:
8582: -- Null out the global variables.
8583: pa_budget_pvt.g_Task_number := NULL;
8584: pa_budget_pvt.g_start_date := NULL;
8585: pa_budget_pvt.g_resource_alias := NULL;
8586:
8587:

Line 8584: pa_budget_pvt.g_start_date := NULL;

8580: END IF;
8581:
8582: -- Null out the global variables.
8583: pa_budget_pvt.g_Task_number := NULL;
8584: pa_budget_pvt.g_start_date := NULL;
8585: pa_budget_pvt.g_resource_alias := NULL;
8586:
8587:
8588: IF l_debug_mode = 'Y' THEN

Line 8585: pa_budget_pvt.g_resource_alias := NULL;

8581:
8582: -- Null out the global variables.
8583: pa_budget_pvt.g_Task_number := NULL;
8584: pa_budget_pvt.g_start_date := NULL;
8585: pa_budget_pvt.g_resource_alias := NULL;
8586:
8587:
8588: IF l_debug_mode = 'Y' THEN
8589: pa_debug.g_err_stage:= 'Exiting Validate Budget Lines';

Line 8692: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';

8688:
8689: x_msg_count := 0;
8690: x_return_status := FND_API.G_RET_STS_SUCCESS;
8691: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8692: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8693:
8694: IF l_debug_mode = 'Y' THEN
8695: pa_debug.set_curr_function( p_function => l_module_name,
8696: p_debug_mode => l_debug_mode );

Line 8716: ( p_pkg_name => 'PA_BUDGET_PVT'

8712:
8713: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8714:
8715: FND_MSG_PUB.add_exc_msg
8716: ( p_pkg_name => 'PA_BUDGET_PVT'
8717: ,p_procedure_name => 'GET_FIN_PLAN_LINES_STATUS' );
8718:
8719: END IF;
8720:

Line 8901: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'

8897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8898: x_msg_count := 1;
8899: x_msg_data := SQLERRM;
8900:
8901: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'
8902: ,p_procedure_name => 'GET_FIN_PLAN_LINES_STATUS');
8903:
8904: IF l_debug_mode = 'Y' THEN
8905: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;

Line 8986: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';

8982: x_msg_count := 0;
8983: x_return_status := FND_API.G_RET_STS_SUCCESS;
8984:
8985: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8986: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8987:
8988: IF l_debug_mode = 'Y' THEN
8989: pa_debug.set_curr_function( p_function => l_module_name,
8990: p_debug_mode => l_debug_mode );

Line 9014: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'

9010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9011: x_msg_count := 1;
9012: x_msg_data := SQLERRM;
9013:
9014: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'
9015: ,p_procedure_name => 'GET_LATEST_BC_YEAR');
9016: IF l_debug_mode = 'Y' THEN
9017: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
9018: pa_debug.write('GET_LATEST_BC_YEAR: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);

Line 9033: end PA_BUDGET_PVT;

9029:
9030:
9031:
9032:
9033: end PA_BUDGET_PVT;