APPS.PA_FORECAST_GLOBAL dependencies on PA_DEBUG

Line 4: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');

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

Line 14: PA_DEBUG.Set_Curr_Function( p_function => 'Initialize Global');

10: IS
11: l_temp_str VARCHAR2(100);
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;

Line 15: IF P_PA_DEBUG_MODE = 'Y' THEN

11: l_temp_str VARCHAR2(100);
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:

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 17: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

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 */
21: FND_MSG_PUB.initialize;

Line 35: IF P_PA_DEBUG_MODE = 'Y' THEN

31: G_who_columns.G_program_application_id := FND_GLOBAL.PROG_APPL_ID;
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;

Line 36: PA_DEBUG.g_err_stage := '100 : Before Accessing FND_PROFILE values';

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;

Line 37: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

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;
41: IF PA_FORECAST_GLOBAL.G_fcst_global_flag = 'Y' THEN

Line 42: PA_DEBUG.Reset_Curr_Function;

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:
46: PA_FORECAST_GLOBAL.G_fcst_proceed_flag := 'Y';

Line 85: IF P_PA_DEBUG_MODE = 'Y' THEN

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
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:

Line 86: PA_DEBUG.g_err_stage := '150 : After Accessing FND_PROFILE values';

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:

Line 87: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

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:
91: BEGIN

Line 102: PA_DEBUG.Reset_Curr_Function;

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;
105:
106: IF P_PA_DEBUG_MODE = 'Y' THEN

Line 106: IF P_PA_DEBUG_MODE = 'Y' THEN

102: PA_DEBUG.Reset_Curr_Function;
103: RETURN;
104: END;
105:
106: IF P_PA_DEBUG_MODE = 'Y' THEN
107: PA_DEBUG.g_err_stage := '250 : After Selecting from PA_FORECASTING_OPTIONS';
108: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
109: END IF;
110:

Line 107: PA_DEBUG.g_err_stage := '250 : After Selecting from PA_FORECASTING_OPTIONS';

103: RETURN;
104: END;
105:
106: IF P_PA_DEBUG_MODE = 'Y' THEN
107: PA_DEBUG.g_err_stage := '250 : After Selecting from PA_FORECASTING_OPTIONS';
108: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
109: END IF;
110:
111: IF x_msg_count = 0 THEN

Line 108: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

104: END;
105:
106: IF P_PA_DEBUG_MODE = 'Y' THEN
107: PA_DEBUG.g_err_stage := '250 : After Selecting from PA_FORECASTING_OPTIONS';
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';

Line 115: IF P_PA_DEBUG_MODE = 'Y' THEN

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';
117: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
118: END IF;
119: PA_DEBUG.Reset_Curr_Function;

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 117: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

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
121: WHEN OTHERS THEN

Line 119: PA_DEBUG.Reset_Curr_Function;

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
121: WHEN OTHERS THEN
122: x_ret_status := FND_API.G_RET_STS_UNEXP_ERROR;
123: RAISE;