[Home] [Help]
1: PACKAGE BODY PA_FP_EDIT_LINE_PKG AS
2: /* $Header: PAFPEDLB.pls 120.2 2005/09/26 11:26:14 rnamburi noship $ */
3:
4: l_module_name VARCHAR2(30) := 'pa.plsql.PA_FP_EDIT_LINE_PKG';
5:
1: PACKAGE BODY PA_FP_EDIT_LINE_PKG AS
2: /* $Header: PAFPEDLB.pls 120.2 2005/09/26 11:26:14 rnamburi noship $ */
3:
4: l_module_name VARCHAR2(30) := 'pa.plsql.PA_FP_EDIT_LINE_PKG';
5:
6: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
7: -- Bug Fix: 4569365. Removed MRC code.
8: -- g_mrc_exception EXCEPTION;
57:
58: BEGIN
59: -- Set the error stack.
60:
61: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.Populate_Local_Variables');
62:
63: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
64:
65: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
68: -- Initialize the return status to success
69: x_return_status := FND_API.G_RET_STS_SUCCESS;
70: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
71:
72: pa_debug.g_err_stage := 'In PA_FP_EDIT_LINE_PKG.Populate_Local_Variables ';
73: IF P_PA_DEBUG_MODE = 'Y' THEN
74: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
75: END IF;
76:
149: END IF;
150:
151: /* Calling DERIVE_PD_SD_START_END_DATES to get/dervie the PD/SD start and end dates */
152:
153: PA_FP_EDIT_LINE_PKG.DERIVE_PD_SD_START_END_DATES
154: (p_calling_context => p_calling_context
155: ,p_pp_st_dt => x_period_profile_start_date
156: ,p_pp_end_dt => x_period_profile_end_date
157: ,p_plan_period_type => x_plan_period_type
248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
249: x_msg_count := 1;
250: x_msg_data := SQLERRM;
251: FND_MSG_PUB.add_exc_msg
252: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.Populate_Local_Variables'
253: ,p_procedure_name => pa_debug.G_Err_Stack );
254: IF P_PA_DEBUG_MODE = 'Y' THEN
255: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,SQLERRM,5);
256: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.G_Err_Stack,5);
302: x_msg_count := 0;
303: x_return_status := FND_API.G_RET_STS_SUCCESS;
304:
305: IF p_pa_debug_mode = 'Y' THEN
306: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.DERIVE_PD_SD_START_END_DATES');
307: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
308: END IF;
309:
310: -- Check for business rules violations
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: x_msg_count := 1;
640: x_msg_data := SQLERRM;
641: FND_MSG_PUB.add_exc_msg
642: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG'
643: ,p_procedure_name => 'DERIVE_PD_SD_START_END_DATES'
644: ,p_error_text => x_msg_data);
645:
646: IF p_pa_debug_mode = 'Y' THEN
838: END insert_dummy_record_pvt;
839:
840: BEGIN
841: -- Set the error stack.
842: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.POPULATE_ROLLUP_TMP');
843:
844: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
845: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
846: l_debug_mode := NVL(l_debug_mode, 'Y');
1629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1630: x_msg_count := 1;
1631: x_msg_data := SQLERRM;
1632: FND_MSG_PUB.add_exc_msg
1633: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.POPULATE_ROLLUP_TMP'
1634: ,p_procedure_name => pa_debug.G_Err_Stack );
1635: pa_debug.G_Err_Stack := SQLERRM;
1636: IF P_PA_DEBUG_MODE = 'Y' THEN
1637: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.G_Err_Stack,4);
1698:
1699: BEGIN
1700:
1701: -- Set the error stack.
1702: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES');
1703:
1704: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
1705: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1706: l_debug_mode := NVL(l_debug_mode, 'Y');
1709: x_return_status := FND_API.G_RET_STS_SUCCESS;
1710:
1711: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1712:
1713: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES ';
1714: IF P_PA_DEBUG_MODE = 'Y' THEN
1715: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1716: END IF;
1717:
2356: IF P_PA_DEBUG_MODE = 'Y' THEN
2357: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,3);
2358: END IF;
2359:
2360: PA_FP_EDIT_LINE_PKG.Find_dup_rows_in_rollup_tmp
2361: ( x_return_status => x_return_status
2362: ,x_msg_count => x_msg_count
2363: ,x_msg_data => x_msg_data);
2364:
2371: x_msg_count := 1;
2372: x_msg_data := SQLERRM;
2373:
2374: FND_MSG_PUB.add_exc_msg
2375: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES'
2376: ,p_procedure_name => pa_debug.G_Err_Stack );
2377:
2378: pa_debug.G_Err_Stack := SQLERRM;
2379: IF P_PA_DEBUG_MODE = 'Y' THEN
2469: l_dummy_project_id pa_projects_all.project_id%TYPE;
2470:
2471: BEGIN
2472: -- Set the error stack.
2473: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO');
2474:
2475: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
2476: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2477: l_debug_mode := NVL(l_debug_mode, 'Y');
2480: x_return_status := FND_API.G_RET_STS_SUCCESS;
2481:
2482: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2483:
2484: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO ';
2485: IF P_PA_DEBUG_MODE = 'Y' THEN
2486: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2487: END IF;
2488:
2729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2730: x_msg_count := 1;
2731: x_msg_data := SQLERRM;
2732: FND_MSG_PUB.add_exc_msg
2733: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO'
2734: ,p_procedure_name => pa_debug.G_Err_Stack );
2735: pa_debug.G_Err_Stack := SQLERRM;
2736: IF P_PA_DEBUG_MODE = 'Y' THEN
2737: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.G_Err_Stack,4);
2791: ,p_debug_mode => l_debug_mode );
2792: END IF;
2793:
2794: IF l_debug_mode = 'Y' THEN
2795: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS ';
2796: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
2797: END IF;
2798:
2799: IF (p_project_id IS NULL) OR (p_budget_version_id IS NULL) THEN
2832: END LOOP ;
2833: END IF ;
2834:
2835: IF l_debug_mode = 'Y' THEN
2836: pa_debug.g_err_stage := 'PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS' ;
2837: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2838: END IF;
2839:
2840: PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS
2836: pa_debug.g_err_stage := 'PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS' ;
2837: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2838: END IF;
2839:
2840: PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS
2841: ( p_project_id => p_project_id
2842: ,p_budget_version_id => p_budget_version_id
2843: ,p_task_id_tbl => l_task_id_tbl
2844: ,p_res_list_member_id_tbl => l_res_list_member_id_tbl
2931: l_time_phased_code pa_proj_fp_options.cost_time_phased_code%TYPE;
2932:
2933: BEGIN
2934: -- Set the error stack.
2935: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS');
2936:
2937: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
2938: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2939: l_debug_mode := NVL(l_debug_mode, 'Y');
2942: x_return_status := FND_API.G_RET_STS_SUCCESS;
2943:
2944: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2945:
2946: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS ';
2947: IF P_PA_DEBUG_MODE = 'Y' THEN
2948: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2949: END IF;
2950:
3159: END IF;
3160:
3161: END IF;
3162:
3163: pa_debug.g_err_stage := TO_CHAR(l_stage)||'end of PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS';
3164: IF P_PA_DEBUG_MODE = 'Y' THEN
3165: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3166: END IF;
3167:
3197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3198: x_msg_count := 1;
3199: x_msg_data := SQLERRM;
3200: FND_MSG_PUB.add_exc_msg
3201: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS'
3202: ,p_procedure_name => pa_debug.G_Err_Stack );
3203: pa_debug.G_Err_Stack := SQLERRM;
3204: IF P_PA_DEBUG_MODE = 'Y' THEN
3205: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.G_Err_Stack,4);
3383: x_msg_count := 1;
3384: x_msg_data := SQLERRM;
3385:
3386: FND_MSG_PUB.add_exc_msg
3387: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG'
3388: ,p_procedure_name => 'GET_PD_SD_AMT_IN_PC_PFC'
3389: ,p_error_text => x_msg_data);
3390:
3391: IF l_debug_mode = 'Y' THEN
3437:
3438: BEGIN
3439: -- Set the error stack.
3440:
3441: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.GET_PRECEDING_SUCCEEDING_AMT');
3442:
3443: -- Initialize the return status to success
3444: x_return_status := FND_API.G_RET_STS_SUCCESS;
3445:
3442:
3443: -- Initialize the return status to success
3444: x_return_status := FND_API.G_RET_STS_SUCCESS;
3445:
3446: pa_debug.g_err_stage := 'In PA_FP_EDIT_LINE_PKG.GET_PRECEDING_SUCCEEDING_AMT ';
3447: IF P_PA_DEBUG_MODE = 'Y' THEN
3448: pa_debug.write('GET_PRECEDING_SUCCEEDING_AMT: ' || l_module_name,pa_debug.g_err_stage,3);
3449: END IF;
3450:
3505: /* This function returns the value of the package variable for function security changes */
3506:
3507: FUNCTION get_is_fn_security_available RETURN VARCHAR2 IS
3508: BEGIN
3509: return PA_FP_EDIT_LINE_PKG.G_IS_FN_SECURITY_AVAILABLE;
3510: END get_is_fn_security_available;
3511:
3512: PROCEDURE CALL_CLIENT_EXTENSIONS
3513: ( p_project_id IN pa_projects_all.project_id%TYPE
3553: ,p_debug_mode => l_debug_mode );
3554: END IF;
3555:
3556: IF l_debug_mode = 'Y' THEN
3557: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS ';
3558: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3559: END IF;
3560:
3561: IF (p_project_id IS NULL) OR (p_budget_version_id IS NULL) THEN
3859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3860: x_msg_count := 1;
3861: x_msg_data := SQLERRM;
3862: FND_MSG_PUB.add_exc_msg
3863: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG'
3864: ,p_procedure_name => 'CALL_CLIENT_EXTENSION'
3865: ,p_error_text => sqlerrm);
3866:
3867: IF l_debug_mode = 'Y' THEN
3912: l_segment1 pa_projects_all.segment1%TYPE;
3913: l_task_number pa_tasks.task_number%TYPE;
3914: l_debug_level3 CONSTANT NUMBER := 3;
3915: l_debug_level5 CONSTANT NUMBER := 5;
3916: l_module_name VARCHAR2(100) := 'pa.plsql.PA_FP_EDIT_LINE_PKG Find_dup_rows_in_rollup_tmp ';
3917: l_debug_mode VARCHAR2(1);
3918: l_context_info pa_fin_plan_types_vl.name%TYPE;
3919: l_count NUMBER;
3920:
4024: x_msg_count := 1;
4025: x_msg_data := SQLERRM;
4026:
4027: FND_MSG_PUB.add_exc_msg
4028: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG'
4029: ,p_procedure_name => 'Find_dup_rows_in_rollup_tmp'
4030: ,p_error_text => x_msg_data);
4031:
4032: IF l_debug_mode = 'Y' THEN
4231: x_msg_count := 1;
4232: x_msg_data := SQLERRM;
4233:
4234: FND_MSG_PUB.add_exc_msg
4235: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG'
4236: ,p_procedure_name => 'PROCESS_BDGTLINES_FOR_VERSION'
4237: ,p_error_text => x_msg_data);
4238:
4239: IF l_debug_mode = 'Y' THEN
4244: pa_debug.reset_curr_function;
4245: RAISE;
4246: END PROCESS_BDGTLINES_FOR_VERSION;
4247:
4248: END PA_FP_EDIT_LINE_PKG;