[Home] [Help]
1: package body PA_PROJ_FP_OPTIONS_PUB as
2: /* $Header: PAFPOPPB.pls 120.15 2012/01/19 08:16:46 a5sharma ship $ */
3:
4: l_module_name VARCHAR2(100) := 'pa.plsql.pa_proj_fp_options_pub';
5: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
1: package body PA_PROJ_FP_OPTIONS_PUB as
2: /* $Header: PAFPOPPB.pls 120.15 2012/01/19 08:16:46 a5sharma ship $ */
3:
4: l_module_name VARCHAR2(100) := 'pa.plsql.pa_proj_fp_options_pub';
5: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
6:
7: /*==================================================================================================
8: CREATE_FP_OPTION: This procedure inserts or updates records in 3 table depending
63: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
64: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
65: ,x_msg_data OUT NOCOPY VARCHAR2 ) is --File.Sql.39 bug 4440895
66:
67: FP_Cols_Rec PA_PROJ_FP_OPTIONS_PUB.FP_COLS;
68: FP_Mc_Cols_Rec PA_PROJ_FP_OPTIONS_PUB.FP_MC_COLS;
69: l_par_Proj_FP_Options_id pa_proj_fp_options.PROJ_FP_OPTIONS_ID%TYPE;
70: l_source_project_id pa_proj_fp_options.PROJECT_ID%TYPE;
71: l_plan_type_id pa_proj_fp_options.FIN_PLAN_TYPE_ID%TYPE;
64: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
65: ,x_msg_data OUT NOCOPY VARCHAR2 ) is --File.Sql.39 bug 4440895
66:
67: FP_Cols_Rec PA_PROJ_FP_OPTIONS_PUB.FP_COLS;
68: FP_Mc_Cols_Rec PA_PROJ_FP_OPTIONS_PUB.FP_MC_COLS;
69: l_par_Proj_FP_Options_id pa_proj_fp_options.PROJ_FP_OPTIONS_ID%TYPE;
70: l_source_project_id pa_proj_fp_options.PROJECT_ID%TYPE;
71: l_plan_type_id pa_proj_fp_options.FIN_PLAN_TYPE_ID%TYPE;
72: l_plan_version_id pa_proj_fp_options.FIN_PLAN_VERSION_ID%TYPE;
79: l_approved_rev_plan_type_flag pa_proj_fp_options.APPROVED_REV_PLAN_TYPE_FLAG%TYPE;
80: l_source_fp_preference_code pa_proj_fp_options.FIN_PLAN_PREFERENCE_CODE%TYPE;
81:
82: /* Bug # 2702000 */
83: FP_Cols_Rec_Rev_Def PA_PROJ_FP_OPTIONS_PUB.FP_COLS;
84:
85: l_debug_mode VARCHAR2(30);
86: l_msg_count NUMBER := 0;
87: l_data VARCHAR2(2000);
100: -- -------------------------------------------------------
101:
102: -- FP M Dev Effort new variables
103:
104: l_default_gen_options_rec PA_PROJ_FP_OPTIONS_PUB.FP_COLS;
105: l_source_plan_class_code pa_fin_plan_types_b.plan_class_code%TYPE;
106:
107: -- 3/30/2004 FP M Phase II Dev Effort
108:
154:
155: BEGIN
156: FND_MSG_PUB.initialize;
157: IF P_PA_DEBUG_MODE = 'Y' THEN
158: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option');
159: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
160: l_debug_mode := NVL(l_debug_mode, 'Y');
161: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
162: END IF;
1525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1526: x_msg_count := 1;
1527: x_msg_data := SQLERRM;
1528: FND_MSG_PUB.add_exc_msg
1529: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option'
1530: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1531: IF P_PA_DEBUG_MODE = 'Y' THEN
1532: pa_debug.write('Create_FP_Option: ' || l_module_name,SQLERRM,5);
1533: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.G_Err_Stack,5);
1609: l_target_burd_rate_flag pa_fin_plan_amount_sets.burden_rate_flag%TYPE;
1610:
1611: BEGIN
1612: IF P_PA_DEBUG_MODE = 'Y' THEN
1613: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options');
1614: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1615: l_debug_mode := NVL(l_debug_mode, 'Y');
1616: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1617: END IF;
2480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2481: x_msg_count := 1;
2482: x_msg_data := SQLERRM;
2483: FND_MSG_PUB.add_exc_msg
2484: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options'
2485: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2486: IF P_PA_DEBUG_MODE = 'Y' THEN
2487: pa_debug.write('Get_FP_Options: ' || l_module_name,SQLERRM,5);
2488: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
2512: l_debug_mode VARCHAR2(30);
2513:
2514: BEGIN
2515: IF P_PA_DEBUG_MODE = 'Y' THEN
2516: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID');
2517: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2518: l_debug_mode := NVL(l_debug_mode, 'Y');
2519: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2520: END IF;
2578: RETURN NULL;
2579:
2580: WHEN OTHERS THEN
2581: FND_MSG_PUB.add_exc_msg
2582: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID'
2583: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2584: IF P_PA_DEBUG_MODE = 'Y' THEN
2585: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2586: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2608:
2609: BEGIN
2610:
2611: IF P_PA_DEBUG_MODE = 'Y' THEN
2612: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID');
2613: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2614: l_debug_mode := NVL(l_debug_mode, 'Y');
2615: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2616: END IF;
2687: RETURN NULL;
2688:
2689: WHEN OTHERS THEN
2690: FND_MSG_PUB.add_exc_msg
2691: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID'
2692: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2693: IF P_PA_DEBUG_MODE = 'Y' THEN
2694: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2695: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2741: l_fin_plan_level_code CONSTANT pa_proj_fp_options.ALL_FIN_PLAN_LEVEL_CODE%TYPE := 'L';
2742: l_time_phased_code CONSTANT pa_proj_fp_options.ALL_TIME_PHASED_CODE%TYPE := 'N';
2743: l_factor_by_code CONSTANT pa_proj_fp_options.FACTOR_BY_CODE%TYPE := '1';
2744:
2745: l_fp_cols_rec PA_PROJ_FP_OPTIONS_PUB.FP_COLS;
2746:
2747: l_return_status VARCHAR2(2000);
2748: l_msg_count NUMBER := 0;
2749: l_msg_data VARCHAR2(2000);
2823:
2824: BEGIN
2825:
2826: IF P_PA_DEBUG_MODE = 'Y' THEN
2827: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options');
2828: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2829: l_debug_mode := NVL(l_debug_mode, 'Y');
2830: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2831: END IF;
3583: END IF;
3584: RAISE;
3585: WHEN OTHERS THEN
3586: FND_MSG_PUB.add_exc_msg
3587: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options'
3588: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3589: IF P_PA_DEBUG_MODE = 'Y' THEN
3590: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,SQLERRM,5);
3591: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
3600: passed along with the approved_cost_plan_type_flag and approved_rev_plan_type_flag
3601: ===========================================================================================*/
3602: FUNCTION Get_FP_Proj_Mc_Options (p_proj_fp_options_id IN NUMBER) Return FP_MC_COLS
3603: IS
3604: l_fp_mc_cols_rec PA_PROJ_FP_OPTIONS_PUB.FP_MC_COLS;
3605: BEGIN
3606:
3607: SELECT approved_cost_plan_type_flag
3608: ,approved_rev_plan_type_flag
3635: FP Option ID passed along with approved_cost_plan_type_flag and approved_rev_plan_type_flag
3636: ===========================================================================================*/
3637: FUNCTION Get_FP_Plan_Type_Mc_Options (p_fin_plan_type_id IN NUMBER) Return FP_MC_COLS
3638: IS
3639: l_fp_mc_cols_rec PA_PROJ_FP_OPTIONS_PUB.FP_MC_COLS;
3640: BEGIN
3641: SELECT approved_cost_plan_type_flag
3642: ,approved_rev_plan_type_flag
3643: ,primary_cost_forecast_flag
3737: BEGIN
3738:
3739: FND_MSG_PUB.initialize;
3740: IF P_PA_DEBUG_MODE = 'Y' THEN
3741: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.SYNCHRONIZE_BUDGET_VERSION');
3742: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3743: l_debug_mode := NVL(l_debug_mode, 'Y');
3744: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3745: END IF;
3984: WHEN Others THEN
3985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3986: x_msg_count := 1;
3987: x_msg_data := SQLERRM;
3988: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB'
3989: ,p_procedure_name => 'SYNCHRONIZE_BUDGET_VERSION');
3990: IF P_PA_DEBUG_MODE = 'Y' THEN
3991: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3992: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
4034:
4035: BEGIN
4036:
4037: IF P_PA_DEBUG_MODE = 'Y' THEN
4038: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id');
4039: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4040: l_debug_mode := NVL(l_debug_mode, 'Y');
4041: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4042: END IF;
4232: END IF;
4233: RAISE;
4234: WHEN OTHERS THEN
4235: FND_MSG_PUB.add_exc_msg
4236: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id'
4237: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4238: IF P_PA_DEBUG_MODE = 'Y' THEN
4239: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,SQLERRM,5);
4240: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4358: pa_debug.reset_curr_function;
4359: RAISE;
4360: WHEN OTHERS THEN
4361: FND_MSG_PUB.add_exc_msg
4362: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_WP_Version_Id'
4363: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4364: IF P_PA_DEBUG_MODE = 'Y' THEN
4365: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,SQLERRM,5);
4366: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4399: l_revenue_layout_type_code VARCHAR2(30);
4400: l_all_layout_type_code VARCHAR2(30);
4401: l_debug_mode VARCHAR2(30);
4402: l_stage NUMBER := 100;
4403: l_module_name VARCHAR2(100) := 'pa.plsql.pa_proj_fp_options_pub';
4404: P_PA_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4405: l_msg_count NUMBER :=0;
4406: l_msg_data VARCHAR2(2000);
4407: l_data VARCHAR2(2000);
4427: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4428: p_debug_mode => l_debug_mode );
4429:
4430: IF P_PA_DEBUG_MODE = 'Y' THEN
4431: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_amt_types');
4432: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4433: l_debug_mode := NVL(l_debug_mode, 'Y');
4434: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4435: END IF;
4821: RAISE;
4822:
4823: WHEN OTHERS THEN
4824: FND_MSG_PUB.add_exc_msg
4825: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB' ||
4826: 'Create_amt_types'
4827: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
4828: pa_debug.g_err_stage := 'Unexpected error in Create_amt_types:';
4829: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4852: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
4853: ) IS
4854:
4855: l_stage NUMBER := 100;
4856: l_module_name VARCHAR2(100) := 'pa.plsql.pa_proj_fp_options_pub.copy_amt_types';
4857: P_PA_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4858: --Start of variables used for debugging
4859: l_return_status VARCHAR2(1);
4860: l_msg_count NUMBER := 0;
4956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4957: x_msg_count := 1;
4958: x_msg_data := SQLERRM;
4959:
4960: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_proj_fp_options_pub'
4961: ,p_procedure_name => 'copy_amt_types');
4962:
4963: IF l_debug_mode = 'Y' THEN
4964: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4984: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
4985: ) IS
4986:
4987: l_stage NUMBER := 100;
4988: l_module_name VARCHAR2(100) := 'pa.plsql.pa_proj_fp_options_pub';
4989: P_PA_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4990: --Start of variables used for debugging
4991: l_return_status VARCHAR2(1);
4992: l_msg_count NUMBER := 0;
5204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5205: x_msg_count := 1;
5206: x_msg_data := SQLERRM;
5207:
5208: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_proj_fp_options_pub'
5209: ,p_procedure_name => 'update_amt_types');
5210:
5211: IF l_debug_mode = 'Y' THEN
5212: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5217: RAISE;
5218:
5219: END update_amt_types;
5220:
5221: END PA_PROJ_FP_OPTIONS_PUB;