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.32.12010000.5 2008/12/05 12:10:43 vbkumar 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.32.12010000.5 2008/12/05 12:10:43 vbkumar 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 3203: PA_BUDGET_PVT.Get_Latest_BC_Year

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

Line 3961: ( p_pkg_name => 'PA_BUDGET_PVT'

3957: x_msg_count := 1;
3958: x_msg_data := SQLERRM;
3959:
3960: FND_MSG_PUB.add_exc_msg
3961: ( p_pkg_name => 'PA_BUDGET_PVT'
3962: ,p_procedure_name => 'VALIDATE_HEADER_INFO'
3963: ,p_error_text => sqlerrm);
3964:
3965: IF l_debug_mode = 'Y' THEN

Line 4527: pa_budget_pvt.Validate_Budget_Lines

4523: l_version_info_rec.x_budget_version_id := p_budget_version_id;
4524: END IF;
4525:
4526: -- Call validate_budget_lines api
4527: pa_budget_pvt.Validate_Budget_Lines
4528: ( p_pa_project_id => p_pa_project_id
4529: ,p_budget_type_code => p_budget_type_code
4530: ,p_fin_plan_type_id => NULL
4531: ,p_version_type => NULL

Line 4742: --Called subprograms: PA_BUDGET_PVT.check_entry_method_flags

4738: --Type: Procedure
4739: --Description: This procedure is be build a update statement for a budgetline.
4740: --
4741: --
4742: --Called subprograms: PA_BUDGET_PVT.check_entry_method_flags
4743: --
4744: --
4745: --
4746: --

Line 6383: pa_budget_pvt.g_Task_number := NULL;

6379: FOR i IN px_budget_lines_in.first..px_budget_lines_in.last LOOP
6380: /* Bug 3133930 */
6381: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
6382: --Initialise all the global variables to null
6383: pa_budget_pvt.g_Task_number := NULL;
6384: pa_budget_pvt.g_start_date := NULL;
6385: pa_budget_pvt.g_resource_alias := NULL;
6386:
6387:

Line 6384: pa_budget_pvt.g_start_date := NULL;

6380: /* Bug 3133930 */
6381: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
6382: --Initialise all the global variables to null
6383: pa_budget_pvt.g_Task_number := NULL;
6384: pa_budget_pvt.g_start_date := NULL;
6385: pa_budget_pvt.g_resource_alias := NULL;
6386:
6387:
6388: /* Bug 3218822 - PM_PRODUCT_CODE could be Null. We need valid it if it is NOT NULL */

Line 6385: pa_budget_pvt.g_resource_alias := NULL;

6381: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
6382: --Initialise all the global variables to null
6383: pa_budget_pvt.g_Task_number := NULL;
6384: pa_budget_pvt.g_start_date := NULL;
6385: pa_budget_pvt.g_resource_alias := NULL;
6386:
6387:
6388: /* Bug 3218822 - PM_PRODUCT_CODE could be Null. We need valid it if it is NOT NULL */
6389:

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

6550: ( p_task_number=> ''
6551: ,p_task_reference => px_budget_lines_in(i).pm_task_reference
6552: ,p_task_id => px_budget_lines_in(i).pa_task_id);
6553: /* Bug 3124283: Added substr below */
6554: pa_budget_pvt.g_task_number := substrb(l_amg_task_number,1,25);
6555: ELSE
6556: pa_budget_pvt.g_task_number := substrb(l_amg_project_rec.segment1,1,25); --Added for the bug 4421602.
6557: END IF;
6558:

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

6552: ,p_task_id => px_budget_lines_in(i).pa_task_id);
6553: /* Bug 3124283: Added substr below */
6554: pa_budget_pvt.g_task_number := substrb(l_amg_task_number,1,25);
6555: ELSE
6556: pa_budget_pvt.g_task_number := substrb(l_amg_project_rec.segment1,1,25); --Added for the bug 4421602.
6557: END IF;
6558:
6559: -- -- Bug # 3507156
6560: -- Added a check for old model(p_budget_type_code) or new model(p_fin_plan_type_id) as the processing

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

6892: ,x_error_code => l_new_error_code);
6893: END IF;
6894: END IF; -- Bug 3986129
6895:
6896: pa_budget_pvt.g_start_date := px_budget_lines_in(i).budget_start_date;
6897: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6898: -- RAISE FND_API.G_EXC_ERROR;
6899: -- as the API get_valid_period_dates adds the error msg to the stack hence we
6900: -- do not need to add the error msg in this API.

Line 6912: pa_budget_pvt.check_entry_method_flags

6908: --every budget line need to be checked for it's amount values.
6909: IF p_fin_plan_type_id IS NULL THEN
6910: --Budget Model.Do not pass version type and amount flags
6911:
6912: pa_budget_pvt.check_entry_method_flags
6913: ( p_budget_amount_code => l_budget_amount_code
6914: ,p_budget_entry_method_code => p_budget_entry_method_code
6915: ,p_quantity => px_budget_lines_in(i).quantity
6916: ,p_raw_cost => px_budget_lines_in(i).raw_cost

Line 6927: pa_budget_pvt.check_entry_method_flags

6923:
6924: ELSE
6925: --Finplan model.Pass version type and other amount flags
6926: IF p_calling_context = 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
6927: pa_budget_pvt.check_entry_method_flags
6928: ( p_budget_amount_code => NULL
6929: ,p_budget_entry_method_code => p_budget_entry_method_code
6930: ,p_quantity => px_budget_lines_in(i).quantity
6931: ,p_raw_cost => px_budget_lines_in(i).raw_cost

Line 6962: pa_budget_pvt.check_entry_method_flags

6958: l_webadi_err_amt_type_tbl.extend(1);
6959: l_webadi_err_amt_type_tbl(l_webadi_err_amt_type_tbl.COUNT) := p_amount_type_tbl(i);
6960: END IF;
6961: ELSE -- p_calling_context <> 'WEBADI'
6962: pa_budget_pvt.check_entry_method_flags
6963: ( p_budget_amount_code => NULL
6964: ,p_budget_entry_method_code => p_budget_entry_method_code
6965: ,p_quantity => px_budget_lines_in(i).quantity
6966: ,p_raw_cost => px_budget_lines_in(i).raw_cost

Line 7189: ,pa_budget_pvt.g_resource_alias

7185: ,resource_type_code
7186: ,alias
7187: INTO l_parent_member_id
7188: ,l_resource_type_code
7189: ,pa_budget_pvt.g_resource_alias
7190: FROM pa_resource_list_members
7191: WHERE resource_list_member_id = px_budget_lines_in(i).resource_list_member_id;
7192:
7193: IF l_resource_type_code = 'UNCLASSIFIED' THEN

Line 7778: --INSERT_BUDGET_LINE (PACKAGE PA_BUDGET_PVT)

7774: --ADD_BUDGET_LINE (PACKAGE PA_BUDGET_PUB)
7775: --UPDATE_BUDGET (PACKAGE PA_BUDGET_PUB)
7776: --UPDATE_BUDGET_LINE (PACKAGE PA_BUDGET_PUB)
7777: --CREATE_DRAFT_FINPLAN (PACKAGE PA_BUDGET_PUB)
7778: --INSERT_BUDGET_LINE (PACKAGE PA_BUDGET_PVT)
7779: -- Of all the above places the below if condition would only be satisfied by ADD_BUDGET_LINE, UPDATE_BUDGET,
7780: --UPDATE_BUDGET_LINE for finplan model only which is what is required here. This validation should only be done
7781: --only from these calling places and only for finplan model.
7782:

Line 8465: pa_budget_pvt.g_Task_number := NULL;

8461: END IF; -- non webadi context
8462: END IF;
8463:
8464: -- Null out the global variables.
8465: pa_budget_pvt.g_Task_number := NULL;
8466: pa_budget_pvt.g_start_date := NULL;
8467: pa_budget_pvt.g_resource_alias := NULL;
8468:
8469:

Line 8466: pa_budget_pvt.g_start_date := NULL;

8462: END IF;
8463:
8464: -- Null out the global variables.
8465: pa_budget_pvt.g_Task_number := NULL;
8466: pa_budget_pvt.g_start_date := NULL;
8467: pa_budget_pvt.g_resource_alias := NULL;
8468:
8469:
8470: IF l_debug_mode = 'Y' THEN

Line 8467: pa_budget_pvt.g_resource_alias := NULL;

8463:
8464: -- Null out the global variables.
8465: pa_budget_pvt.g_Task_number := NULL;
8466: pa_budget_pvt.g_start_date := NULL;
8467: pa_budget_pvt.g_resource_alias := NULL;
8468:
8469:
8470: IF l_debug_mode = 'Y' THEN
8471: pa_debug.g_err_stage:= 'Exiting Validate Budget Lines';

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

8569:
8570: x_msg_count := 0;
8571: x_return_status := FND_API.G_RET_STS_SUCCESS;
8572: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8573: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8574:
8575: IF l_debug_mode = 'Y' THEN
8576: pa_debug.set_curr_function( p_function => l_module_name,
8577: p_debug_mode => l_debug_mode );

Line 8597: ( p_pkg_name => 'PA_BUDGET_PVT'

8593:
8594: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8595:
8596: FND_MSG_PUB.add_exc_msg
8597: ( p_pkg_name => 'PA_BUDGET_PVT'
8598: ,p_procedure_name => 'GET_FIN_PLAN_LINES_STATUS' );
8599:
8600: END IF;
8601:

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

8743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8744: x_msg_count := 1;
8745: x_msg_data := SQLERRM;
8746:
8747: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'
8748: ,p_procedure_name => 'GET_FIN_PLAN_LINES_STATUS');
8749:
8750: IF l_debug_mode = 'Y' THEN
8751: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;

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

8825: x_msg_count := 0;
8826: x_return_status := FND_API.G_RET_STS_SUCCESS;
8827:
8828: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8829: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8830:
8831: IF l_debug_mode = 'Y' THEN
8832: pa_debug.set_curr_function( p_function => l_module_name,
8833: p_debug_mode => l_debug_mode );

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

8853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8854: x_msg_count := 1;
8855: x_msg_data := SQLERRM;
8856:
8857: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'
8858: ,p_procedure_name => 'GET_LATEST_BC_YEAR');
8859: IF l_debug_mode = 'Y' THEN
8860: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8861: pa_debug.write('GET_LATEST_BC_YEAR: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);

Line 8876: end PA_BUDGET_PVT;

8872:
8873:
8874:
8875:
8876: end PA_BUDGET_PVT;