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:
6: PROCEDURE Initialize_Global(
7: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
8: x_msg_data OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
32: G_who_columns.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
33: G_who_columns.G_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
34:
35: IF P_PA_DEBUG_MODE = 'Y' THEN
36: PA_DEBUG.g_err_stage := '100 : Before Accessing FND_PROFILE values';
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;
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');
51: ELSE
52: x_ret_status := FND_API.G_RET_STS_ERROR;
53: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
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');
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
60: G_implementation_details.G_fcst_period_type := FND_PROFILE.VALUE('PA_FORECASTING_PERIOD_TYPE');
61: ELSE
62: x_ret_status := FND_API.G_RET_STS_ERROR;
63: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
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
60: G_implementation_details.G_fcst_period_type := FND_PROFILE.VALUE('PA_FORECASTING_PERIOD_TYPE');
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');
71: ELSIF G_implementation_details.G_fcst_period_type = 'GL' THEN
72: l_temp_str := 'PA_FORECAST_DEF_BEM_GL';
73: END IF;
74:
75: IF FND_PROFILE.VALUE(l_temp_str) IS NOT NULL THEN
76: G_implementation_details.G_fcst_def_bem := FND_PROFILE.VALUE(l_temp_str);
77: ELSE
78: x_ret_status := FND_API.G_RET_STS_ERROR;
79: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
72: l_temp_str := 'PA_FORECAST_DEF_BEM_GL';
73: END IF;
74:
75: IF FND_PROFILE.VALUE(l_temp_str) IS NOT NULL THEN
76: G_implementation_details.G_fcst_def_bem := FND_PROFILE.VALUE(l_temp_str);
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');
82: x_msg_count := x_msg_count + 1;
83: END IF;
84:
85: IF P_PA_DEBUG_MODE = 'Y' THEN
86: PA_DEBUG.g_err_stage := '150 : After Accessing FND_PROFILE values';
87: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
88: END IF;
89:
90: