DBA Data[Home] [Help]

APPS.PA_FIN_PLAN_TYPE_GLOBAL dependencies on PA_FIN_PLAN_TYPE_GLOBAL

Line 1: PACKAGE BODY pa_fin_plan_type_global as

1: PACKAGE BODY pa_fin_plan_type_global as
2: /* $Header: PAFPPTGB.pls 120.1 2005/08/19 16:28:30 mwasowic noship $
3: Start of Comments
4: Package name : PA_FIN_PLAN_TYPE_GLOBAL
5: Purpose : API's for Org Forecast: PLANS Page

Line 4: Package name : PA_FIN_PLAN_TYPE_GLOBAL

1: PACKAGE BODY pa_fin_plan_type_global as
2: /* $Header: PAFPPTGB.pls 120.1 2005/08/19 16:28:30 mwasowic noship $
3: Start of Comments
4: Package name : PA_FIN_PLAN_TYPE_GLOBAL
5: Purpose : API's for Org Forecast: PLANS Page
6: History :
7: NOTE :
8: End of Comments

Line 15: return pa_fin_plan_type_global.G_PROJECT_ID;

11: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
12:
13: function Get_Project_Id return NUMBER is
14: BEGIN
15: return pa_fin_plan_type_global.G_PROJECT_ID;
16: END Get_Project_Id;
17:
18: /*
19: function Get_Plan_Class_Code return VARCHAR2 is

Line 21: return pa_fin_plan_type_global.G_PLAN_CLASS_CODE;

17:
18: /*
19: function Get_Plan_Class_Code return VARCHAR2 is
20: BEGIN
21: return pa_fin_plan_type_global.G_PLAN_CLASS_CODE;
22: END Get_Plan_Class_Code;
23: */
24:
25: PROCEDURE set_global_variables

Line 36: pa_fin_plan_type_global.G_PROJECT_ID := p_project_id;

32: is
33: BEGIN
34: x_return_status := FND_API.G_RET_STS_SUCCESS;
35: x_msg_count := 0;
36: pa_fin_plan_type_global.G_PROJECT_ID := p_project_id;
37: -- pa_fin_plan_type_global.G_PLAN_CLASS_CODE := p_plan_class_code;
38: -- *** bug fix 2770782: retrieve x_budget_status code from project-level row ***
39: select nvl(po.factor_by_code, 1)
40: into x_factor_by_code

Line 37: -- pa_fin_plan_type_global.G_PLAN_CLASS_CODE := p_plan_class_code;

33: BEGIN
34: x_return_status := FND_API.G_RET_STS_SUCCESS;
35: x_msg_count := 0;
36: pa_fin_plan_type_global.G_PROJECT_ID := p_project_id;
37: -- pa_fin_plan_type_global.G_PLAN_CLASS_CODE := p_plan_class_code;
38: -- *** bug fix 2770782: retrieve x_budget_status code from project-level row ***
39: select nvl(po.factor_by_code, 1)
40: into x_factor_by_code
41: from pa_proj_fp_options po

Line 51: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',

47: WHEN OTHERS THEN
48: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
49: x_msg_count := 1;
50: x_msg_data := SQLERRM;
51: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',
52: p_procedure_name => 'set_global_variables');
53: END set_global_variables;
54:
55: PROCEDURE pa_fp_get_orgfcst_version_id( p_project_id IN NUMBER,

Line 109: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',

105: WHEN OTHERS THEN
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
107: x_msg_count := 1;
108: x_msg_data := SQLERRM;
109: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',
110: p_procedure_name => 'pa_fp_get_orgfcst_version_id');
111: END pa_fp_get_orgfcst_version_id;
112: /* ------------------------------------------------------------------- */
113:

Line 208: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',

204: WHEN OTHERS THEN
205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
206: x_msg_count := 1;
207: x_msg_data := SQLERRM;
208: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',
209: p_procedure_name => 'pa_fp_get_finplan_version_id');
210:
211: END pa_fp_get_finplan_version_id;
212: /* ------------------------------------------------------------------- */

Line 287: pa_debug.init_err_stack('PA_FIN_PLAN_TYPE_GLOBAL.delete_plan_type_from_project');

283:
284: BEGIN
285: FND_MSG_PUB.initialize;
286: IF P_PA_DEBUG_MODE = 'Y' THEN
287: pa_debug.init_err_stack('PA_FIN_PLAN_TYPE_GLOBAL.delete_plan_type_from_project');
288: END IF;
289: x_msg_count := 0;
290: /* CHECK FOR BUSINESS RULES VIOLATIONS */
291: -- If versions of the plan type exist in the project, cannot delete plan type

Line 462: pa_debug.write('delete_plan_type_from_project : PA_FIN_PLAN_TYPE_GLOBAL',pa_debug.g_err_stage,3);

458: --For Bug 2976168. Should delete the records from pa_fp_excluded_elements also
459:
460: IF P_PA_DEBUG_MODE = 'Y' THEN
461: pa_debug.g_err_stage:= 'About to delete from pa_fp_excluded_elements';
462: pa_debug.write('delete_plan_type_from_project : PA_FIN_PLAN_TYPE_GLOBAL',pa_debug.g_err_stage,3);
463: END IF;
464:
465: /* Using proj_fp_options_id join instead of directly using project_id, fin_plan_type_id to take
466: advantage of pa_fp_excluded_index_u1 index on pa_fp_excluded_elements */

Line 477: pa_debug.write('delete_plan_type_from_project : PA_FIN_PLAN_TYPE_GLOBAL',pa_debug.g_err_stage,3);

473: AND pfo.fin_plan_type_id=p_fin_plan_type_id);
474:
475: IF P_PA_DEBUG_MODE = 'Y' THEN
476: pa_debug.g_err_stage:= To_char(SQL%ROWCOUNT) || ' records deleted.';
477: pa_debug.write('delete_plan_type_from_project : PA_FIN_PLAN_TYPE_GLOBAL',pa_debug.g_err_stage,3);
478: END IF;
479:
480: -- finally, delete from PA_PROJ_FP_OPTIONS
481: delete from pa_proj_fp_options

Line 495: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',

491: rollback to PA_FP_DELETE_PLAN_TYPE;
492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
493: x_msg_count := 1;
494: x_msg_data := SQLERRM;
495: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',
496: p_procedure_name => 'delete_plan_type_from_project');
497: pa_debug.reset_err_stack;
498: raise FND_API.G_EXC_UNEXPECTED_ERROR;
499: END delete_plan_type_from_project;

Line 581: END pa_fin_plan_type_global;

577: when others then
578: return 'INVALID_PLAN_TYPE';
579: END planversion_to_planclass;
580:
581: END pa_fin_plan_type_global;