APPS.PA_FORECAST_GLOBAL dependencies on PA_FORECAST_GLOBAL

Line 1: PACKAGE BODY PA_FORECAST_GLOBAL AS

1: PACKAGE BODY PA_FORECAST_GLOBAL AS
2: /* $Header: PARFGGBB.pls 120.1 2005/08/19 16:51:30 mwasowic noship $ */
3:
4: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5:

Line 16: PA_DEBUG.g_err_stage := '50 : Entering PA_FORECAST_GLOBAL.Initialize_Global';

12: l_msg_count NUMBER := 0;
13: BEGIN
14: PA_DEBUG.Set_Curr_Function( p_function => 'Initialize Global');
15: IF P_PA_DEBUG_MODE = 'Y' THEN
16: PA_DEBUG.g_err_stage := '50 : Entering PA_FORECAST_GLOBAL.Initialize_Global';
17: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
18: END IF;
19:
20: /* Initialize the error stack */

Line 41: IF PA_FORECAST_GLOBAL.G_fcst_global_flag = 'Y' THEN

37: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
38: END IF;
39: x_msg_count := 0;
40: x_ret_status := FND_API.G_RET_STS_SUCCESS;
41: IF PA_FORECAST_GLOBAL.G_fcst_global_flag = 'Y' THEN
42: PA_DEBUG.Reset_Curr_Function;
43: RETURN;
44: END IF;
45:

Line 46: PA_FORECAST_GLOBAL.G_fcst_proceed_flag := 'Y';

42: PA_DEBUG.Reset_Curr_Function;
43: RETURN;
44: END IF;
45:
46: PA_FORECAST_GLOBAL.G_fcst_proceed_flag := 'Y';
47:
48:
49: IF (FND_PROFILE.VALUE('PA_FORECAST_RESOURCE_LIST')) IS NOT NULL THEN
50: G_implementation_details.G_fcst_res_list := FND_PROFILE.VALUE('PA_FORECAST_RESOURCE_LIST');

Line 55: PA_FORECAST_GLOBAL.G_fcst_proceed_flag := 'N';

51: ELSE
52: x_ret_status := FND_API.G_RET_STS_ERROR;
53: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
54: p_msg_name => 'PA_FCST_NO_RES_LIST');
55: PA_FORECAST_GLOBAL.G_fcst_proceed_flag := 'N';
56: x_msg_count := x_msg_count + 1;
57: END IF;
58:
59: IF (FND_PROFILE.VALUE('PA_FORECASTING_PERIOD_TYPE')) IS NOT NULL THEN

Line 65: PA_FORECAST_GLOBAL.G_fcst_proceed_flag := 'N';

61: ELSE
62: x_ret_status := FND_API.G_RET_STS_ERROR;
63: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
64: p_msg_name => 'PA_FCST_NO_PD_TYPE');
65: PA_FORECAST_GLOBAL.G_fcst_proceed_flag := 'N';
66: x_msg_count := x_msg_count + 1;
67: END IF;
68:
69: IF G_implementation_details.G_fcst_period_type = 'PA' THEN

Line 81: PA_FORECAST_GLOBAL.G_fcst_proceed_flag := 'N';

77: ELSE
78: x_ret_status := FND_API.G_RET_STS_ERROR;
79: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
80: p_msg_name => 'PA_FCST_NO_BEM');
81: PA_FORECAST_GLOBAL.G_fcst_proceed_flag := 'N';
82: x_msg_count := x_msg_count + 1;
83: END IF;
84:
85: IF P_PA_DEBUG_MODE = 'Y' THEN

Line 100: PA_FORECAST_GLOBAL.G_fcst_proceed_flag := 'N';

96: WHEN NO_DATA_FOUND THEN
97: x_ret_status := FND_API.G_RET_STS_ERROR;
98: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
99: p_msg_name => 'PA_FCST_NO_JOB_SCH_ID');
100: PA_FORECAST_GLOBAL.G_fcst_proceed_flag := 'N';
101: x_msg_count := x_msg_count + 1;
102: PA_DEBUG.Reset_Curr_Function;
103: RETURN;
104: END;

Line 112: PA_FORECAST_GLOBAL.G_fcst_global_flag := 'Y';

108: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
109: END IF;
110:
111: IF x_msg_count = 0 THEN
112: PA_FORECAST_GLOBAL.G_fcst_global_flag := 'Y';
113: END IF;
114:
115: IF P_PA_DEBUG_MODE = 'Y' THEN
116: PA_DEBUG.g_err_stage := '300 : Exiting PA_FORECAST_GLOBAL';

Line 116: PA_DEBUG.g_err_stage := '300 : Exiting PA_FORECAST_GLOBAL';

112: PA_FORECAST_GLOBAL.G_fcst_global_flag := 'Y';
113: END IF;
114:
115: IF P_PA_DEBUG_MODE = 'Y' THEN
116: PA_DEBUG.g_err_stage := '300 : Exiting PA_FORECAST_GLOBAL';
117: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
118: END IF;
119: PA_DEBUG.Reset_Curr_Function;
120: EXCEPTION

Line 126: END PA_FORECAST_GLOBAL;

122: x_ret_status := FND_API.G_RET_STS_UNEXP_ERROR;
123: RAISE;
124: END Initialize_Global;
125:
126: END PA_FORECAST_GLOBAL;