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.3 2011/03/28 07:05:34 kkorrapo ship $
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.3 2011/03/28 07:05:34 kkorrapo ship $
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 318: pa_debug.init_err_stack('PA_FIN_PLAN_TYPE_GLOBAL.delete_plan_type_from_project');

314:
315: BEGIN
316: FND_MSG_PUB.initialize;
317: IF P_PA_DEBUG_MODE = 'Y' THEN
318: pa_debug.init_err_stack('PA_FIN_PLAN_TYPE_GLOBAL.delete_plan_type_from_project');
319: END IF;
320: x_msg_count := 0;
321: /* CHECK FOR BUSINESS RULES VIOLATIONS */
322: -- If versions of the plan type exist in the project, cannot delete plan type

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

501: --For Bug 2976168. Should delete the records from pa_fp_excluded_elements also
502:
503: IF P_PA_DEBUG_MODE = 'Y' THEN
504: pa_debug.g_err_stage:= 'About to delete from pa_fp_excluded_elements';
505: pa_debug.write('delete_plan_type_from_project : PA_FIN_PLAN_TYPE_GLOBAL',pa_debug.g_err_stage,3);
506: END IF;
507:
508: /* Using proj_fp_options_id join instead of directly using project_id, fin_plan_type_id to take
509: advantage of pa_fp_excluded_index_u1 index on pa_fp_excluded_elements */

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

516: AND pfo.fin_plan_type_id=p_fin_plan_type_id);
517:
518: IF P_PA_DEBUG_MODE = 'Y' THEN
519: pa_debug.g_err_stage:= To_char(SQL%ROWCOUNT) || ' records deleted.';
520: pa_debug.write('delete_plan_type_from_project : PA_FIN_PLAN_TYPE_GLOBAL',pa_debug.g_err_stage,3);
521: END IF;
522:
523: --Bug#11776072 - Addition starts
524: open get_rbs_version_id_cur(p_project_id,p_fin_plan_type_id);

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

565: rollback to PA_FP_DELETE_PLAN_TYPE;
566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
567: x_msg_count := 1;
568: x_msg_data := SQLERRM;
569: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',
570: p_procedure_name => 'delete_plan_type_from_project');
571: pa_debug.reset_err_stack;
572: raise FND_API.G_EXC_UNEXPECTED_ERROR;
573: END delete_plan_type_from_project;

Line 655: END pa_fin_plan_type_global;

651: when others then
652: return 'INVALID_PLAN_TYPE';
653: END planversion_to_planclass;
654:
655: END pa_fin_plan_type_global;