54:
55: errbuf := NULL ;
56: retcode := 0;
57: l_return_status := FND_API.G_RET_STS_SUCCESS;
58: pa_debug.set_err_stack('PA_PURGE_PUB.START_PROCESS');
59: FND_MSG_PUB.initialize;
60:
61: pa_debug.set_process('PLSQL','LOG',p_debug_mode);
62:
57: l_return_status := FND_API.G_RET_STS_SUCCESS;
58: pa_debug.set_err_stack('PA_PURGE_PUB.START_PROCESS');
59: FND_MSG_PUB.initialize;
60:
61: pa_debug.set_process('PLSQL','LOG',p_debug_mode);
62:
63: IF p_debug_mode = 'Y' THEN
64: pa_debug.set_curr_function( p_function => 'START_PROCESS', p_debug_mode => p_debug_mode );
65: pa_debug.g_err_stage:= 'Entering START_PROCESS - Request Id : ' || l_request_id;
60:
61: pa_debug.set_process('PLSQL','LOG',p_debug_mode);
62:
63: IF p_debug_mode = 'Y' THEN
64: pa_debug.set_curr_function( p_function => 'START_PROCESS', p_debug_mode => p_debug_mode );
65: pa_debug.g_err_stage:= 'Entering START_PROCESS - Request Id : ' || l_request_id;
66: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
67: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
68: pa_debug.g_err_stage:= 'Purge Type is ' || p_purge_type ;
61: pa_debug.set_process('PLSQL','LOG',p_debug_mode);
62:
63: IF p_debug_mode = 'Y' THEN
64: pa_debug.set_curr_function( p_function => 'START_PROCESS', p_debug_mode => p_debug_mode );
65: pa_debug.g_err_stage:= 'Entering START_PROCESS - Request Id : ' || l_request_id;
66: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
67: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
68: pa_debug.g_err_stage:= 'Purge Type is ' || p_purge_type ;
69: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
62:
63: IF p_debug_mode = 'Y' THEN
64: pa_debug.set_curr_function( p_function => 'START_PROCESS', p_debug_mode => p_debug_mode );
65: pa_debug.g_err_stage:= 'Entering START_PROCESS - Request Id : ' || l_request_id;
66: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
67: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
68: pa_debug.g_err_stage:= 'Purge Type is ' || p_purge_type ;
69: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
70: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
63: IF p_debug_mode = 'Y' THEN
64: pa_debug.set_curr_function( p_function => 'START_PROCESS', p_debug_mode => p_debug_mode );
65: pa_debug.g_err_stage:= 'Entering START_PROCESS - Request Id : ' || l_request_id;
66: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
67: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
68: pa_debug.g_err_stage:= 'Purge Type is ' || p_purge_type ;
69: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
70: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
71: pa_debug.g_err_stage:= 'Commit Size is ' || p_commit_size ;
64: pa_debug.set_curr_function( p_function => 'START_PROCESS', p_debug_mode => p_debug_mode );
65: pa_debug.g_err_stage:= 'Entering START_PROCESS - Request Id : ' || l_request_id;
66: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
67: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
68: pa_debug.g_err_stage:= 'Purge Type is ' || p_purge_type ;
69: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
70: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
71: pa_debug.g_err_stage:= 'Commit Size is ' || p_commit_size ;
72: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
65: pa_debug.g_err_stage:= 'Entering START_PROCESS - Request Id : ' || l_request_id;
66: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
67: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
68: pa_debug.g_err_stage:= 'Purge Type is ' || p_purge_type ;
69: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
70: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
71: pa_debug.g_err_stage:= 'Commit Size is ' || p_commit_size ;
72: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
73: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
66: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
67: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
68: pa_debug.g_err_stage:= 'Purge Type is ' || p_purge_type ;
69: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
70: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
71: pa_debug.g_err_stage:= 'Commit Size is ' || p_commit_size ;
72: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
73: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
74: END IF;
67: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
68: pa_debug.g_err_stage:= 'Purge Type is ' || p_purge_type ;
69: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
70: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
71: pa_debug.g_err_stage:= 'Commit Size is ' || p_commit_size ;
72: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
73: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
74: END IF;
75:
68: pa_debug.g_err_stage:= 'Purge Type is ' || p_purge_type ;
69: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
70: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
71: pa_debug.g_err_stage:= 'Commit Size is ' || p_commit_size ;
72: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
73: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
74: END IF;
75:
76: IF p_purge_type IS NULL THEN
69: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
70: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
71: pa_debug.g_err_stage:= 'Commit Size is ' || p_commit_size ;
72: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
73: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
74: END IF;
75:
76: IF p_purge_type IS NULL THEN
77: IF p_debug_mode = 'Y' THEN
74: END IF;
75:
76: IF p_purge_type IS NULL THEN
77: IF p_debug_mode = 'Y' THEN
78: pa_debug.g_err_stage:= 'Mandatory parameter to this API : Purge Type is NULL';
79: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
80: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
81: END IF;
82:
75:
76: IF p_purge_type IS NULL THEN
77: IF p_debug_mode = 'Y' THEN
78: pa_debug.g_err_stage:= 'Mandatory parameter to this API : Purge Type is NULL';
79: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
80: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
81: END IF;
82:
83: l_return_status := FND_API.G_RET_STS_ERROR;
76: IF p_purge_type IS NULL THEN
77: IF p_debug_mode = 'Y' THEN
78: pa_debug.g_err_stage:= 'Mandatory parameter to this API : Purge Type is NULL';
79: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
80: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
81: END IF;
82:
83: l_return_status := FND_API.G_RET_STS_ERROR;
84: PA_UTILS.ADD_MESSAGE
89:
90:
91: IF p_purge_type in ('ALL', 'DAILY_FCST_INFO') THEN
92: IF p_debug_mode = 'Y' THEN
93: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_FORECAST_ITEMS';
94: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
95: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
96: END IF;
97:
90:
91: IF p_purge_type in ('ALL', 'DAILY_FCST_INFO') THEN
92: IF p_debug_mode = 'Y' THEN
93: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_FORECAST_ITEMS';
94: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
95: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
96: END IF;
97:
98: PA_PURGE_PUB.PURGE_FORECAST_ITEMS
91: IF p_purge_type in ('ALL', 'DAILY_FCST_INFO') THEN
92: IF p_debug_mode = 'Y' THEN
93: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_FORECAST_ITEMS';
94: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
95: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
96: END IF;
97:
98: PA_PURGE_PUB.PURGE_FORECAST_ITEMS
99: (
105: x_msg_data => l_msg_data
106: );
107:
108: IF p_debug_mode = 'Y' THEN
109: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned status ' || l_return_status;
110: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
111: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
112: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_count as '||l_msg_count;
113: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
106: );
107:
108: IF p_debug_mode = 'Y' THEN
109: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned status ' || l_return_status;
110: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
111: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
112: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_count as '||l_msg_count;
113: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
114: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
107:
108: IF p_debug_mode = 'Y' THEN
109: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned status ' || l_return_status;
110: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
111: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
112: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_count as '||l_msg_count;
113: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
114: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
115: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_data as ' || substrb(l_msg_data,1,240);
108: IF p_debug_mode = 'Y' THEN
109: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned status ' || l_return_status;
110: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
111: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
112: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_count as '||l_msg_count;
113: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
114: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
115: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_data as ' || substrb(l_msg_data,1,240);
116: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
109: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned status ' || l_return_status;
110: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
111: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
112: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_count as '||l_msg_count;
113: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
114: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
115: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_data as ' || substrb(l_msg_data,1,240);
116: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
117: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
110: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
111: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
112: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_count as '||l_msg_count;
113: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
114: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
115: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_data as ' || substrb(l_msg_data,1,240);
116: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
117: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
118: END IF;
111: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
112: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_count as '||l_msg_count;
113: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
114: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
115: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_data as ' || substrb(l_msg_data,1,240);
116: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
117: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
118: END IF;
119:
112: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_count as '||l_msg_count;
113: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
114: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
115: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_data as ' || substrb(l_msg_data,1,240);
116: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
117: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
118: END IF;
119:
120: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
113: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
114: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
115: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_FORECAST_ITEMS returned l_msg_data as ' || substrb(l_msg_data,1,240);
116: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
117: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
118: END IF;
119:
120: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
121: l_local_error_flag := 'Y'; -- 5201806
123: END IF; -- 5171235
124:
125: IF p_purge_type in ('ALL','PROJECTS_WORKFLOWS') THEN -- 5171235
126: IF p_debug_mode = 'Y' THEN
127: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_PROJ_WORKFLOW';
128: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
129: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
130: END IF;
131:
124:
125: IF p_purge_type in ('ALL','PROJECTS_WORKFLOWS') THEN -- 5171235
126: IF p_debug_mode = 'Y' THEN
127: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_PROJ_WORKFLOW';
128: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
129: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
130: END IF;
131:
132: PA_PURGE_PUB.PURGE_PROJ_WORKFLOW
125: IF p_purge_type in ('ALL','PROJECTS_WORKFLOWS') THEN -- 5171235
126: IF p_debug_mode = 'Y' THEN
127: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_PROJ_WORKFLOW';
128: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
129: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
130: END IF;
131:
132: PA_PURGE_PUB.PURGE_PROJ_WORKFLOW
133: (
139: x_msg_data => l_msg_data
140: );
141:
142: IF p_debug_mode = 'Y' THEN
143: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned status ' || l_return_status;
144: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
145: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
146: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_count as '||l_msg_count;
147: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
140: );
141:
142: IF p_debug_mode = 'Y' THEN
143: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned status ' || l_return_status;
144: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
145: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
146: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_count as '||l_msg_count;
147: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
148: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
141:
142: IF p_debug_mode = 'Y' THEN
143: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned status ' || l_return_status;
144: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
145: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
146: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_count as '||l_msg_count;
147: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
148: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
149: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_data as ' || substrb(l_msg_data,1,240);
142: IF p_debug_mode = 'Y' THEN
143: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned status ' || l_return_status;
144: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
145: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
146: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_count as '||l_msg_count;
147: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
148: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
149: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_data as ' || substrb(l_msg_data,1,240);
150: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
143: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned status ' || l_return_status;
144: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
145: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
146: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_count as '||l_msg_count;
147: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
148: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
149: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_data as ' || substrb(l_msg_data,1,240);
150: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
151: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
144: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
145: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
146: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_count as '||l_msg_count;
147: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
148: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
149: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_data as ' || substrb(l_msg_data,1,240);
150: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
151: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
152: END IF;
145: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
146: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_count as '||l_msg_count;
147: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
148: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
149: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_data as ' || substrb(l_msg_data,1,240);
150: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
151: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
152: END IF;
153:
146: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_count as '||l_msg_count;
147: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
148: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
149: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_data as ' || substrb(l_msg_data,1,240);
150: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
151: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
152: END IF;
153:
154: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
147: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
148: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
149: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PROJ_WORKFLOW returned l_msg_data as ' || substrb(l_msg_data,1,240);
150: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
151: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
152: END IF;
153:
154: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
155: l_local_error_flag := 'Y'; -- 5201806
158:
159: IF p_purge_type in ('ALL', 'REPORTING_EXCEPTIONS') THEN -- 5171235
160:
161: IF p_debug_mode = 'Y' THEN
162: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS';
163: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
164: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
165: END IF;
166:
159: IF p_purge_type in ('ALL', 'REPORTING_EXCEPTIONS') THEN -- 5171235
160:
161: IF p_debug_mode = 'Y' THEN
162: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS';
163: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
164: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
165: END IF;
166:
167:
160:
161: IF p_debug_mode = 'Y' THEN
162: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS';
163: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
164: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
165: END IF;
166:
167:
168: PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS
175: x_msg_data => l_msg_data
176: );
177:
178: IF p_debug_mode = 'Y' THEN
179: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned status ' || l_return_status;
180: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
181: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
182: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_count as '||l_msg_count;
183: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
176: );
177:
178: IF p_debug_mode = 'Y' THEN
179: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned status ' || l_return_status;
180: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
181: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
182: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_count as '||l_msg_count;
183: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
184: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
177:
178: IF p_debug_mode = 'Y' THEN
179: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned status ' || l_return_status;
180: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
181: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
182: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_count as '||l_msg_count;
183: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
184: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
185: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_data as ' || substrb(l_msg_data,1,240);
178: IF p_debug_mode = 'Y' THEN
179: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned status ' || l_return_status;
180: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
181: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
182: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_count as '||l_msg_count;
183: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
184: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
185: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_data as ' || substrb(l_msg_data,1,240);
186: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
179: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned status ' || l_return_status;
180: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
181: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
182: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_count as '||l_msg_count;
183: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
184: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
185: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_data as ' || substrb(l_msg_data,1,240);
186: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
187: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
180: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
181: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
182: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_count as '||l_msg_count;
183: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
184: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
185: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_data as ' || substrb(l_msg_data,1,240);
186: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
187: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
188: END IF;
181: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
182: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_count as '||l_msg_count;
183: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
184: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
185: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_data as ' || substrb(l_msg_data,1,240);
186: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
187: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
188: END IF;
189:
182: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_count as '||l_msg_count;
183: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
184: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
185: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_data as ' || substrb(l_msg_data,1,240);
186: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
187: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
188: END IF;
189:
190: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
183: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
184: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
185: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_REPORTING_EXCEPTIONS returned l_msg_data as ' || substrb(l_msg_data,1,240);
186: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
187: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
188: END IF;
189:
190: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
191: l_local_error_flag := 'Y'; -- 5201806
195:
196: IF p_purge_type in ('ALL', 'ORG_AUTH') THEN
197:
198: IF p_debug_mode = 'Y' THEN
199: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_ORG_AUTHORITY';
200: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
201: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
202: END IF;
203:
196: IF p_purge_type in ('ALL', 'ORG_AUTH') THEN
197:
198: IF p_debug_mode = 'Y' THEN
199: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_ORG_AUTHORITY';
200: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
201: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
202: END IF;
203:
204:
197:
198: IF p_debug_mode = 'Y' THEN
199: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_ORG_AUTHORITY';
200: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
201: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
202: END IF;
203:
204:
205: PA_PURGE_PUB.PURGE_ORG_AUTHORITY
212: x_msg_data => l_msg_data
213: );
214:
215: IF p_debug_mode = 'Y' THEN
216: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned status ' || l_return_status;
217: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
218: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
219: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_count as '||l_msg_count;
220: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
213: );
214:
215: IF p_debug_mode = 'Y' THEN
216: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned status ' || l_return_status;
217: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
218: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
219: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_count as '||l_msg_count;
220: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
221: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
214:
215: IF p_debug_mode = 'Y' THEN
216: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned status ' || l_return_status;
217: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
218: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
219: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_count as '||l_msg_count;
220: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
221: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
222: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_data as ' || substrb(l_msg_data,1,240);
215: IF p_debug_mode = 'Y' THEN
216: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned status ' || l_return_status;
217: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
218: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
219: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_count as '||l_msg_count;
220: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
221: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
222: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_data as ' || substrb(l_msg_data,1,240);
223: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
216: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned status ' || l_return_status;
217: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
218: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
219: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_count as '||l_msg_count;
220: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
221: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
222: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_data as ' || substrb(l_msg_data,1,240);
223: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
224: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
217: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
218: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
219: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_count as '||l_msg_count;
220: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
221: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
222: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_data as ' || substrb(l_msg_data,1,240);
223: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
224: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
225: END IF;
218: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
219: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_count as '||l_msg_count;
220: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
221: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
222: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_data as ' || substrb(l_msg_data,1,240);
223: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
224: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
225: END IF;
226:
219: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_count as '||l_msg_count;
220: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
221: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
222: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_data as ' || substrb(l_msg_data,1,240);
223: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
224: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
225: END IF;
226:
227: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
220: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
221: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
222: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_ORG_AUTHORITY returned l_msg_data as ' || substrb(l_msg_data,1,240);
223: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
224: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
225: END IF;
226:
227: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
228: l_local_error_flag := 'Y';
231:
232: IF p_purge_type in ('ALL', 'PJI_DEBUG') THEN
233:
234: IF p_debug_mode = 'Y' THEN
235: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_PJI_DEBUG';
236: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
237: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
238: END IF;
239:
232: IF p_purge_type in ('ALL', 'PJI_DEBUG') THEN
233:
234: IF p_debug_mode = 'Y' THEN
235: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_PJI_DEBUG';
236: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
237: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
238: END IF;
239:
240:
233:
234: IF p_debug_mode = 'Y' THEN
235: pa_debug.g_err_stage:= 'Before Calling PA_PURGE_PUB.PURGE_PJI_DEBUG';
236: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
237: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
238: END IF;
239:
240:
241: PA_PURGE_PUB.PURGE_PJI_DEBUG
248: x_msg_data => l_msg_data
249: );
250:
251: IF p_debug_mode = 'Y' THEN
252: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned status ' || l_return_status;
253: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
254: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
255: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_count as '||l_msg_count;
256: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
249: );
250:
251: IF p_debug_mode = 'Y' THEN
252: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned status ' || l_return_status;
253: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
254: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
255: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_count as '||l_msg_count;
256: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
257: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
250:
251: IF p_debug_mode = 'Y' THEN
252: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned status ' || l_return_status;
253: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
254: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
255: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_count as '||l_msg_count;
256: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
257: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
258: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_data as ' || substrb(l_msg_data,1,240);
251: IF p_debug_mode = 'Y' THEN
252: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned status ' || l_return_status;
253: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
254: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
255: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_count as '||l_msg_count;
256: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
257: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
258: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_data as ' || substrb(l_msg_data,1,240);
259: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
252: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned status ' || l_return_status;
253: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
254: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
255: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_count as '||l_msg_count;
256: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
257: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
258: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_data as ' || substrb(l_msg_data,1,240);
259: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
260: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
253: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
254: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
255: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_count as '||l_msg_count;
256: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
257: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
258: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_data as ' || substrb(l_msg_data,1,240);
259: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
260: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
261: END IF;
254: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
255: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_count as '||l_msg_count;
256: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
257: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
258: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_data as ' || substrb(l_msg_data,1,240);
259: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
260: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
261: END IF;
262:
255: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_count as '||l_msg_count;
256: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
257: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
258: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_data as ' || substrb(l_msg_data,1,240);
259: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
260: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
261: END IF;
262:
263: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
256: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
257: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
258: pa_debug.g_err_stage:= 'PA_PURGE_PUB.PURGE_PJI_DEBUG returned l_msg_data as ' || substrb(l_msg_data,1,240);
259: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
260: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
261: END IF;
262:
263: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
264: l_local_error_flag := 'Y';
284: RAISE FND_API.G_EXC_ERROR;
285: END IF;
286:
287: IF p_debug_mode = 'Y' THEN
288: pa_debug.g_err_stage:= 'Successfully Exiting START_PROCESS ';
289: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
290: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
291:
292: pa_debug.reset_err_stack;
285: END IF;
286:
287: IF p_debug_mode = 'Y' THEN
288: pa_debug.g_err_stage:= 'Successfully Exiting START_PROCESS ';
289: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
290: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
291:
292: pa_debug.reset_err_stack;
293: pa_debug.reset_curr_function;
286:
287: IF p_debug_mode = 'Y' THEN
288: pa_debug.g_err_stage:= 'Successfully Exiting START_PROCESS ';
289: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
290: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
291:
292: pa_debug.reset_err_stack;
293: pa_debug.reset_curr_function;
294: END IF;
288: pa_debug.g_err_stage:= 'Successfully Exiting START_PROCESS ';
289: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
290: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
291:
292: pa_debug.reset_err_stack;
293: pa_debug.reset_curr_function;
294: END IF;
295:
296: EXCEPTION
289: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
290: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
291:
292: pa_debug.reset_err_stack;
293: pa_debug.reset_curr_function;
294: END IF;
295:
296: EXCEPTION
297: WHEN Invalid_Arg_Exc_Pjr THEN
299: l_msg_count := FND_MSG_PUB.count_msg;
300: retcode := '-1';
301:
302: IF p_debug_mode = 'Y' THEN
303: pa_debug.g_err_stage := 'Inside Invalid Argument exception of START_PROCESS API';
304: pa_debug.write_file('START_PROCESS : '|| pa_debug.g_err_stage);
305: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
306: END IF;
307:
300: retcode := '-1';
301:
302: IF p_debug_mode = 'Y' THEN
303: pa_debug.g_err_stage := 'Inside Invalid Argument exception of START_PROCESS API';
304: pa_debug.write_file('START_PROCESS : '|| pa_debug.g_err_stage);
305: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
306: END IF;
307:
308: -- 5201806 : Commented not needed
301:
302: IF p_debug_mode = 'Y' THEN
303: pa_debug.g_err_stage := 'Inside Invalid Argument exception of START_PROCESS API';
304: pa_debug.write_file('START_PROCESS : '|| pa_debug.g_err_stage);
305: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
306: END IF;
307:
308: -- 5201806 : Commented not needed
309: --IF l_msg_count >= 1 THEN
326: p_msg_data => l_msg_data,
327: p_data => l_data,
328: p_msg_index_out => l_msg_index_out);
329:
330: pa_debug.write_file('Error : ' ||i||': '|| l_data);
331: IF i = FND_MSG_PUB.count_msg THEN
332: errbuf := l_data;
333: END IF;
334: END LOOP;
333: END IF;
334: END LOOP;
335:
336: IF p_debug_mode = 'Y' THEN
337: pa_debug.write_file('START_PROCESS :' || l_data);
338: pa_debug.write('PA_PURGE_PUB.START_PROCESS',l_data,l_debug_level3);
339: pa_debug.reset_err_stack;
340: pa_debug.reset_curr_function;
341: END IF ;
334: END LOOP;
335:
336: IF p_debug_mode = 'Y' THEN
337: pa_debug.write_file('START_PROCESS :' || l_data);
338: pa_debug.write('PA_PURGE_PUB.START_PROCESS',l_data,l_debug_level3);
339: pa_debug.reset_err_stack;
340: pa_debug.reset_curr_function;
341: END IF ;
342: -- No raise as per FD
335:
336: IF p_debug_mode = 'Y' THEN
337: pa_debug.write_file('START_PROCESS :' || l_data);
338: pa_debug.write('PA_PURGE_PUB.START_PROCESS',l_data,l_debug_level3);
339: pa_debug.reset_err_stack;
340: pa_debug.reset_curr_function;
341: END IF ;
342: -- No raise as per FD
343:
336: IF p_debug_mode = 'Y' THEN
337: pa_debug.write_file('START_PROCESS :' || l_data);
338: pa_debug.write('PA_PURGE_PUB.START_PROCESS',l_data,l_debug_level3);
339: pa_debug.reset_err_stack;
340: pa_debug.reset_curr_function;
341: END IF ;
342: -- No raise as per FD
343:
344: WHEN FND_API.G_EXC_ERROR THEN
346: l_msg_count := FND_MSG_PUB.count_msg;
347: retcode := '-1';
348:
349: IF p_debug_mode = 'Y' THEN
350: pa_debug.g_err_stage := 'Inside Expected Error block of START_PROCESS API';
351: pa_debug.write_file('START_PROCESS : '|| pa_debug.g_err_stage);
352: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
353: END IF;
354:
347: retcode := '-1';
348:
349: IF p_debug_mode = 'Y' THEN
350: pa_debug.g_err_stage := 'Inside Expected Error block of START_PROCESS API';
351: pa_debug.write_file('START_PROCESS : '|| pa_debug.g_err_stage);
352: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
353: END IF;
354:
355: -- 5201806 : Commented not needed
348:
349: IF p_debug_mode = 'Y' THEN
350: pa_debug.g_err_stage := 'Inside Expected Error block of START_PROCESS API';
351: pa_debug.write_file('START_PROCESS : '|| pa_debug.g_err_stage);
352: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
353: END IF;
354:
355: -- 5201806 : Commented not needed
356: --IF l_msg_count >= 1 THEN
373: p_msg_data => l_msg_data,
374: p_data => l_data,
375: p_msg_index_out => l_msg_index_out);
376:
377: pa_debug.write_file('Error : ' ||i||': '|| l_data);
378: IF i = FND_MSG_PUB.count_msg THEN
379: errbuf := l_data;
380: END IF;
381: END LOOP;
381: END LOOP;
382:
383:
384: IF p_debug_mode = 'Y' THEN
385: pa_debug.write_file('START_PROCESS :' || l_data);
386: pa_debug.write('PA_PURGE_PUB.START_PROCESS',l_data,l_debug_level3);
387: pa_debug.reset_err_stack;
388: pa_debug.reset_curr_function;
389: END IF ;
382:
383:
384: IF p_debug_mode = 'Y' THEN
385: pa_debug.write_file('START_PROCESS :' || l_data);
386: pa_debug.write('PA_PURGE_PUB.START_PROCESS',l_data,l_debug_level3);
387: pa_debug.reset_err_stack;
388: pa_debug.reset_curr_function;
389: END IF ;
390: -- No raise as per FD
383:
384: IF p_debug_mode = 'Y' THEN
385: pa_debug.write_file('START_PROCESS :' || l_data);
386: pa_debug.write('PA_PURGE_PUB.START_PROCESS',l_data,l_debug_level3);
387: pa_debug.reset_err_stack;
388: pa_debug.reset_curr_function;
389: END IF ;
390: -- No raise as per FD
391:
384: IF p_debug_mode = 'Y' THEN
385: pa_debug.write_file('START_PROCESS :' || l_data);
386: pa_debug.write('PA_PURGE_PUB.START_PROCESS',l_data,l_debug_level3);
387: pa_debug.reset_err_stack;
388: pa_debug.reset_curr_function;
389: END IF ;
390: -- No raise as per FD
391:
392: WHEN OTHERS THEN
406: p_msg_data => l_msg_data,
407: p_data => l_data,
408: p_msg_index_out => l_msg_index_out);
409:
410: pa_debug.write_file('Error : ' ||i||': '|| l_data);
411: IF i = FND_MSG_PUB.count_msg THEN
412: errbuf := l_data;
413: END IF;
414: END LOOP;
414: END LOOP;
415:
416:
417: IF p_debug_mode = 'Y' THEN
418: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
419: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
420: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
421: pa_debug.reset_err_stack;
422: pa_debug.reset_curr_function;
415:
416:
417: IF p_debug_mode = 'Y' THEN
418: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
419: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
420: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
421: pa_debug.reset_err_stack;
422: pa_debug.reset_curr_function;
423: END IF;
416:
417: IF p_debug_mode = 'Y' THEN
418: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
419: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
420: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
421: pa_debug.reset_err_stack;
422: pa_debug.reset_curr_function;
423: END IF;
424:
417: IF p_debug_mode = 'Y' THEN
418: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
419: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
420: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
421: pa_debug.reset_err_stack;
422: pa_debug.reset_curr_function;
423: END IF;
424:
425: RAISE;
418: pa_debug.g_err_stage:='Unexpected Error'||errbuf;
419: pa_debug.write_file('START_PROCESS :' || pa_debug.g_err_stage);
420: pa_debug.write('PA_PURGE_PUB.START_PROCESS',pa_debug.g_err_stage,l_debug_level3);
421: pa_debug.reset_err_stack;
422: pa_debug.reset_curr_function;
423: END IF;
424:
425: RAISE;
426:
497: x_msg_count := 0;
498: x_msg_data := NULL;
499:
500: IF p_debug_mode = 'Y' THEN
501: PA_DEBUG.set_curr_function( p_function => 'PURGE_FORECAST_ITEMS',
502: p_debug_mode => p_debug_mode);
503: pa_debug.g_err_stage:= 'Inside PURGE_FORECAST_ITEMS API' ;
504: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
505: END IF;
499:
500: IF p_debug_mode = 'Y' THEN
501: PA_DEBUG.set_curr_function( p_function => 'PURGE_FORECAST_ITEMS',
502: p_debug_mode => p_debug_mode);
503: pa_debug.g_err_stage:= 'Inside PURGE_FORECAST_ITEMS API' ;
504: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
505: END IF;
506:
507: sql_command := 'SELECT 1 from dual where exists(SELECT NAME FROM PJI_SYSTEM_PARAMETERS)' ;
500: IF p_debug_mode = 'Y' THEN
501: PA_DEBUG.set_curr_function( p_function => 'PURGE_FORECAST_ITEMS',
502: p_debug_mode => p_debug_mode);
503: pa_debug.g_err_stage:= 'Inside PURGE_FORECAST_ITEMS API' ;
504: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
505: END IF;
506:
507: sql_command := 'SELECT 1 from dual where exists(SELECT NAME FROM PJI_SYSTEM_PARAMETERS)' ;
508:
713: END LOOP;
714: CLOSE c_get_forecast_item_ids;
715:
716: IF p_debug_mode = 'Y' THEN
717: pa_debug.g_err_stage:= 'No. of rows deleted from pa_forecast_items - ' || l_rows1 ;
718: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
719: pa_debug.g_err_stage:= 'No. of rows deleted from pa_forecast_item_details - ' || l_rows2;
720: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
721: pa_debug.g_err_stage:= 'No. of rows deleted from pa_fi_amount_details - ' ||l_rows3;
714: CLOSE c_get_forecast_item_ids;
715:
716: IF p_debug_mode = 'Y' THEN
717: pa_debug.g_err_stage:= 'No. of rows deleted from pa_forecast_items - ' || l_rows1 ;
718: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
719: pa_debug.g_err_stage:= 'No. of rows deleted from pa_forecast_item_details - ' || l_rows2;
720: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
721: pa_debug.g_err_stage:= 'No. of rows deleted from pa_fi_amount_details - ' ||l_rows3;
722: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
715:
716: IF p_debug_mode = 'Y' THEN
717: pa_debug.g_err_stage:= 'No. of rows deleted from pa_forecast_items - ' || l_rows1 ;
718: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
719: pa_debug.g_err_stage:= 'No. of rows deleted from pa_forecast_item_details - ' || l_rows2;
720: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
721: pa_debug.g_err_stage:= 'No. of rows deleted from pa_fi_amount_details - ' ||l_rows3;
722: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
723: END IF;
716: IF p_debug_mode = 'Y' THEN
717: pa_debug.g_err_stage:= 'No. of rows deleted from pa_forecast_items - ' || l_rows1 ;
718: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
719: pa_debug.g_err_stage:= 'No. of rows deleted from pa_forecast_item_details - ' || l_rows2;
720: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
721: pa_debug.g_err_stage:= 'No. of rows deleted from pa_fi_amount_details - ' ||l_rows3;
722: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
723: END IF;
724:
717: pa_debug.g_err_stage:= 'No. of rows deleted from pa_forecast_items - ' || l_rows1 ;
718: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
719: pa_debug.g_err_stage:= 'No. of rows deleted from pa_forecast_item_details - ' || l_rows2;
720: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
721: pa_debug.g_err_stage:= 'No. of rows deleted from pa_fi_amount_details - ' ||l_rows3;
722: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
723: END IF;
724:
725: -- Write this info into log table
718: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
719: pa_debug.g_err_stage:= 'No. of rows deleted from pa_forecast_item_details - ' || l_rows2;
720: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
721: pa_debug.g_err_stage:= 'No. of rows deleted from pa_fi_amount_details - ' ||l_rows3;
722: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
723: END IF;
724:
725: -- Write this info into log table
726: PA_PURGE_PUB.INSERT_PURGE_LOG
773: RAISE FND_API.G_EXC_ERROR;
774: END IF;
775:
776: IF p_debug_mode = 'Y' THEN
777: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_FI_AMOUNT_DETAILS';
778: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
779: pa_debug.g_err_stage:= 'Exiting PURGE_FORECAST_ITEMS';
780: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_FORECAST_ITEMS :' || pa_debug.g_err_stage,l_debug_level3);
781: pa_debug.reset_curr_function;
774: END IF;
775:
776: IF p_debug_mode = 'Y' THEN
777: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_FI_AMOUNT_DETAILS';
778: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
779: pa_debug.g_err_stage:= 'Exiting PURGE_FORECAST_ITEMS';
780: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_FORECAST_ITEMS :' || pa_debug.g_err_stage,l_debug_level3);
781: pa_debug.reset_curr_function;
782: END IF;
775:
776: IF p_debug_mode = 'Y' THEN
777: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_FI_AMOUNT_DETAILS';
778: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
779: pa_debug.g_err_stage:= 'Exiting PURGE_FORECAST_ITEMS';
780: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_FORECAST_ITEMS :' || pa_debug.g_err_stage,l_debug_level3);
781: pa_debug.reset_curr_function;
782: END IF;
783:
776: IF p_debug_mode = 'Y' THEN
777: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_FI_AMOUNT_DETAILS';
778: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
779: pa_debug.g_err_stage:= 'Exiting PURGE_FORECAST_ITEMS';
780: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_FORECAST_ITEMS :' || pa_debug.g_err_stage,l_debug_level3);
781: pa_debug.reset_curr_function;
782: END IF;
783:
784: EXCEPTION
777: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_FI_AMOUNT_DETAILS';
778: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
779: pa_debug.g_err_stage:= 'Exiting PURGE_FORECAST_ITEMS';
780: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_FORECAST_ITEMS :' || pa_debug.g_err_stage,l_debug_level3);
781: pa_debug.reset_curr_function;
782: END IF;
783:
784: EXCEPTION
785: WHEN FND_API.G_EXC_ERROR THEN
806: -- x_msg_count := l_msg_count;
807: -- END IF;
808:
809: IF p_debug_mode = 'Y' THEN
810: Pa_Debug.reset_curr_function;
811: END IF;
812: WHEN OTHERS THEN
813: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
814: x_msg_count := 1;
825:
826: x_msg_count := FND_MSG_PUB.count_msg; --5201806
827:
828: IF p_debug_mode = 'Y' THEN
829: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
830: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
831: Pa_Debug.reset_curr_function;
832: END IF;
833: -- RAISE; 5201806 Do not raise in internal APIs
826: x_msg_count := FND_MSG_PUB.count_msg; --5201806
827:
828: IF p_debug_mode = 'Y' THEN
829: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
830: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
831: Pa_Debug.reset_curr_function;
832: END IF;
833: -- RAISE; 5201806 Do not raise in internal APIs
834: END PURGE_FORECAST_ITEMS ;
827:
828: IF p_debug_mode = 'Y' THEN
829: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
830: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
831: Pa_Debug.reset_curr_function;
832: END IF;
833: -- RAISE; 5201806 Do not raise in internal APIs
834: END PURGE_FORECAST_ITEMS ;
835:
898: x_msg_count := 0;
899: x_msg_data := NULL;
900:
901: IF p_debug_mode = 'Y' THEN
902: PA_DEBUG.set_curr_function( p_function => 'PURGE_PROJ_WORKFLOW', p_debug_mode => p_debug_mode);
903: pa_debug.g_err_stage:= 'Inside PURGE_PROJ_WORKFLOW API' ;
904: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
905: END IF;
906:
899: x_msg_data := NULL;
900:
901: IF p_debug_mode = 'Y' THEN
902: PA_DEBUG.set_curr_function( p_function => 'PURGE_PROJ_WORKFLOW', p_debug_mode => p_debug_mode);
903: pa_debug.g_err_stage:= 'Inside PURGE_PROJ_WORKFLOW API' ;
904: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
905: END IF;
906:
907: OPEN c_purge_wf_details ;
900:
901: IF p_debug_mode = 'Y' THEN
902: PA_DEBUG.set_curr_function( p_function => 'PURGE_PROJ_WORKFLOW', p_debug_mode => p_debug_mode);
903: pa_debug.g_err_stage:= 'Inside PURGE_PROJ_WORKFLOW API' ;
904: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
905: END IF;
906:
907: OPEN c_purge_wf_details ;
908: LOOP
995: END LOOP;
996: CLOSE c_purge_wf_details;
997:
998: IF p_debug_mode = 'Y' THEN
999: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_processes ' || l_rows1 ;
1000: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1001: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_process_details ' || l_rows2 ;
1002: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1003: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_ntf_performers ' || l_rows3 ;
996: CLOSE c_purge_wf_details;
997:
998: IF p_debug_mode = 'Y' THEN
999: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_processes ' || l_rows1 ;
1000: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1001: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_process_details ' || l_rows2 ;
1002: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1003: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_ntf_performers ' || l_rows3 ;
1004: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
997:
998: IF p_debug_mode = 'Y' THEN
999: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_processes ' || l_rows1 ;
1000: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1001: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_process_details ' || l_rows2 ;
1002: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1003: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_ntf_performers ' || l_rows3 ;
1004: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1005: END IF;
998: IF p_debug_mode = 'Y' THEN
999: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_processes ' || l_rows1 ;
1000: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1001: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_process_details ' || l_rows2 ;
1002: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1003: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_ntf_performers ' || l_rows3 ;
1004: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1005: END IF;
1006:
999: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_processes ' || l_rows1 ;
1000: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1001: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_process_details ' || l_rows2 ;
1002: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1003: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_ntf_performers ' || l_rows3 ;
1004: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1005: END IF;
1006:
1007:
1000: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1001: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_process_details ' || l_rows2 ;
1002: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1003: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_ntf_performers ' || l_rows3 ;
1004: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1005: END IF;
1006:
1007:
1008: PA_PURGE_PUB.INSERT_PURGE_LOG
1056: END IF;
1057:
1058:
1059: IF p_debug_mode = 'Y' THEN
1060: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_WF_NTF_PERFORMERS';
1061: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1062: pa_debug.g_err_stage:= 'Exiting PURGE_PROJ_WORKFLOW';
1063: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PROJ_WORKFLOW :' || pa_debug.g_err_stage,l_debug_level3);
1064: pa_debug.reset_curr_function;
1057:
1058:
1059: IF p_debug_mode = 'Y' THEN
1060: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_WF_NTF_PERFORMERS';
1061: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1062: pa_debug.g_err_stage:= 'Exiting PURGE_PROJ_WORKFLOW';
1063: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PROJ_WORKFLOW :' || pa_debug.g_err_stage,l_debug_level3);
1064: pa_debug.reset_curr_function;
1065: END IF;
1058:
1059: IF p_debug_mode = 'Y' THEN
1060: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_WF_NTF_PERFORMERS';
1061: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1062: pa_debug.g_err_stage:= 'Exiting PURGE_PROJ_WORKFLOW';
1063: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PROJ_WORKFLOW :' || pa_debug.g_err_stage,l_debug_level3);
1064: pa_debug.reset_curr_function;
1065: END IF;
1066:
1059: IF p_debug_mode = 'Y' THEN
1060: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_WF_NTF_PERFORMERS';
1061: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1062: pa_debug.g_err_stage:= 'Exiting PURGE_PROJ_WORKFLOW';
1063: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PROJ_WORKFLOW :' || pa_debug.g_err_stage,l_debug_level3);
1064: pa_debug.reset_curr_function;
1065: END IF;
1066:
1067: EXCEPTION
1060: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_WF_NTF_PERFORMERS';
1061: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1062: pa_debug.g_err_stage:= 'Exiting PURGE_PROJ_WORKFLOW';
1063: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PROJ_WORKFLOW :' || pa_debug.g_err_stage,l_debug_level3);
1064: pa_debug.reset_curr_function;
1065: END IF;
1066:
1067: EXCEPTION
1068: WHEN FND_API.G_EXC_ERROR THEN
1089: -- x_msg_count := l_msg_count;
1090: -- END IF;
1091:
1092: IF p_debug_mode = 'Y' THEN
1093: Pa_Debug.reset_curr_function;
1094: END IF;
1095:
1096: WHEN OTHERS THEN
1097: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1109:
1110: x_msg_count := FND_MSG_PUB.count_msg;--5201806
1111:
1112: IF p_debug_mode = 'Y' THEN
1113: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1114: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1115: Pa_Debug.reset_curr_function;
1116: END IF;
1117: -- RAISE; 5201806 Do not raise in internal APIs
1110: x_msg_count := FND_MSG_PUB.count_msg;--5201806
1111:
1112: IF p_debug_mode = 'Y' THEN
1113: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1114: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1115: Pa_Debug.reset_curr_function;
1116: END IF;
1117: -- RAISE; 5201806 Do not raise in internal APIs
1118: END PURGE_PROJ_WORKFLOW;
1111:
1112: IF p_debug_mode = 'Y' THEN
1113: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1114: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1115: Pa_Debug.reset_curr_function;
1116: END IF;
1117: -- RAISE; 5201806 Do not raise in internal APIs
1118: END PURGE_PROJ_WORKFLOW;
1119:
1178: x_msg_count := 0;
1179: x_msg_data := NULL;
1180:
1181: IF p_debug_mode = 'Y' THEN
1182: PA_DEBUG.set_curr_function( p_function => 'PURGE_REPORTING_EXCEPTIONS', p_debug_mode => p_debug_mode);
1183: pa_debug.g_err_stage:= 'Entering PURGE_REPORTING_EXCEPTIONS API';
1184: Pa_Debug.WRITE('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1185: END IF;
1186:
1179: x_msg_data := NULL;
1180:
1181: IF p_debug_mode = 'Y' THEN
1182: PA_DEBUG.set_curr_function( p_function => 'PURGE_REPORTING_EXCEPTIONS', p_debug_mode => p_debug_mode);
1183: pa_debug.g_err_stage:= 'Entering PURGE_REPORTING_EXCEPTIONS API';
1184: Pa_Debug.WRITE('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1185: END IF;
1186:
1187: OPEN c_get_request_id;
1180:
1181: IF p_debug_mode = 'Y' THEN
1182: PA_DEBUG.set_curr_function( p_function => 'PURGE_REPORTING_EXCEPTIONS', p_debug_mode => p_debug_mode);
1183: pa_debug.g_err_stage:= 'Entering PURGE_REPORTING_EXCEPTIONS API';
1184: Pa_Debug.WRITE('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1185: END IF;
1186:
1187: OPEN c_get_request_id;
1188: LOOP
1215: END LOOP;
1216: CLOSE c_get_request_id;
1217:
1218: IF p_debug_mode = 'Y' THEN
1219: pa_debug.g_err_stage:= 'No. of rows deleted from pa_reporting_exceptions ' || l_rows1 ;
1220: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1221: END IF;
1222:
1223:
1216: CLOSE c_get_request_id;
1217:
1218: IF p_debug_mode = 'Y' THEN
1219: pa_debug.g_err_stage:= 'No. of rows deleted from pa_reporting_exceptions ' || l_rows1 ;
1220: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1221: END IF;
1222:
1223:
1224: PA_PURGE_PUB.INSERT_PURGE_LOG
1240: RAISE FND_API.G_EXC_ERROR;
1241: END IF;
1242:
1243: IF p_debug_mode = 'Y' THEN
1244: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to pa_reporting_exceptions';
1245: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1246: pa_debug.g_err_stage:= 'Exiting PURGE_REPORTING_EXCEPTIONS';
1247: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1248: Pa_Debug.reset_curr_function;
1241: END IF;
1242:
1243: IF p_debug_mode = 'Y' THEN
1244: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to pa_reporting_exceptions';
1245: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1246: pa_debug.g_err_stage:= 'Exiting PURGE_REPORTING_EXCEPTIONS';
1247: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1248: Pa_Debug.reset_curr_function;
1249: END IF;
1242:
1243: IF p_debug_mode = 'Y' THEN
1244: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to pa_reporting_exceptions';
1245: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1246: pa_debug.g_err_stage:= 'Exiting PURGE_REPORTING_EXCEPTIONS';
1247: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1248: Pa_Debug.reset_curr_function;
1249: END IF;
1250: EXCEPTION
1243: IF p_debug_mode = 'Y' THEN
1244: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to pa_reporting_exceptions';
1245: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1246: pa_debug.g_err_stage:= 'Exiting PURGE_REPORTING_EXCEPTIONS';
1247: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1248: Pa_Debug.reset_curr_function;
1249: END IF;
1250: EXCEPTION
1251: WHEN FND_API.G_EXC_ERROR THEN
1244: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to pa_reporting_exceptions';
1245: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1246: pa_debug.g_err_stage:= 'Exiting PURGE_REPORTING_EXCEPTIONS';
1247: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1248: Pa_Debug.reset_curr_function;
1249: END IF;
1250: EXCEPTION
1251: WHEN FND_API.G_EXC_ERROR THEN
1252: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1273: -- x_msg_count := l_msg_count;
1274: -- END IF;
1275:
1276: IF p_debug_mode = 'Y' THEN
1277: Pa_Debug.reset_curr_function;
1278: END IF;
1279: WHEN OTHERS THEN
1280: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1281: x_msg_count := 1;
1292:
1293: x_msg_count := FND_MSG_PUB.count_msg; --5201806
1294:
1295: IF p_debug_mode = 'Y' THEN
1296: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1297: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1298: Pa_Debug.reset_curr_function;
1299: END IF;
1300: -- RAISE; 5201806 Do not raise in internal APIs
1293: x_msg_count := FND_MSG_PUB.count_msg; --5201806
1294:
1295: IF p_debug_mode = 'Y' THEN
1296: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1297: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1298: Pa_Debug.reset_curr_function;
1299: END IF;
1300: -- RAISE; 5201806 Do not raise in internal APIs
1301: END PURGE_REPORTING_EXCEPTIONS;
1294:
1295: IF p_debug_mode = 'Y' THEN
1296: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1297: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1298: Pa_Debug.reset_curr_function;
1299: END IF;
1300: -- RAISE; 5201806 Do not raise in internal APIs
1301: END PURGE_REPORTING_EXCEPTIONS;
1302:
1395: x_msg_count := 0;
1396: x_msg_data := NULL;
1397:
1398: IF p_debug_mode = 'Y' THEN
1399: PA_DEBUG.set_curr_function( p_function => 'PURGE_ORG_AUTHORITY', p_debug_mode => p_debug_mode);
1400: pa_debug.g_err_stage:= 'Inside PURGE_ORG_AUTHORITY API' ;
1401: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1402: END IF;
1403:
1396: x_msg_data := NULL;
1397:
1398: IF p_debug_mode = 'Y' THEN
1399: PA_DEBUG.set_curr_function( p_function => 'PURGE_ORG_AUTHORITY', p_debug_mode => p_debug_mode);
1400: pa_debug.g_err_stage:= 'Inside PURGE_ORG_AUTHORITY API' ;
1401: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1402: END IF;
1403:
1404: OPEN c_purge_org_authority;
1397:
1398: IF p_debug_mode = 'Y' THEN
1399: PA_DEBUG.set_curr_function( p_function => 'PURGE_ORG_AUTHORITY', p_debug_mode => p_debug_mode);
1400: pa_debug.g_err_stage:= 'Inside PURGE_ORG_AUTHORITY API' ;
1401: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1402: END IF;
1403:
1404: OPEN c_purge_org_authority;
1405: LOOP
1455: END LOOP;
1456: CLOSE c_purge_org_authority;
1457:
1458: IF p_debug_mode = 'Y' THEN
1459: pa_debug.g_err_stage:= 'No. of grants deleted ' || l_grants_deleted;
1460: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1461: END IF;
1462:
1463: PA_PURGE_PUB.INSERT_PURGE_LOG
1456: CLOSE c_purge_org_authority;
1457:
1458: IF p_debug_mode = 'Y' THEN
1459: pa_debug.g_err_stage:= 'No. of grants deleted ' || l_grants_deleted;
1460: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1461: END IF;
1462:
1463: PA_PURGE_PUB.INSERT_PURGE_LOG
1464: (
1478: RAISE FND_API.G_EXC_ERROR;
1479: END IF;
1480:
1481: IF p_debug_mode = 'Y' THEN
1482: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_ORG_AUTHORITY';
1483: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1484: pa_debug.g_err_stage:= 'Exiting PURGE_ORG_AUTHORITY';
1485: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1486: Pa_Debug.reset_curr_function;
1479: END IF;
1480:
1481: IF p_debug_mode = 'Y' THEN
1482: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_ORG_AUTHORITY';
1483: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1484: pa_debug.g_err_stage:= 'Exiting PURGE_ORG_AUTHORITY';
1485: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1486: Pa_Debug.reset_curr_function;
1487: END IF;
1480:
1481: IF p_debug_mode = 'Y' THEN
1482: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_ORG_AUTHORITY';
1483: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1484: pa_debug.g_err_stage:= 'Exiting PURGE_ORG_AUTHORITY';
1485: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1486: Pa_Debug.reset_curr_function;
1487: END IF;
1488:
1481: IF p_debug_mode = 'Y' THEN
1482: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_ORG_AUTHORITY';
1483: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1484: pa_debug.g_err_stage:= 'Exiting PURGE_ORG_AUTHORITY';
1485: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1486: Pa_Debug.reset_curr_function;
1487: END IF;
1488:
1489: EXCEPTION
1482: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_ORG_AUTHORITY';
1483: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1484: pa_debug.g_err_stage:= 'Exiting PURGE_ORG_AUTHORITY';
1485: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1486: Pa_Debug.reset_curr_function;
1487: END IF;
1488:
1489: EXCEPTION
1490: WHEN FND_API.G_EXC_ERROR THEN
1496: CLOSE c_purge_org_authority;
1497: END IF;
1498:
1499: IF p_debug_mode = 'Y' THEN
1500: Pa_Debug.reset_curr_function;
1501: END IF;
1502:
1503: WHEN OTHERS THEN
1504:
1517:
1518: x_msg_count := FND_MSG_PUB.count_msg;
1519:
1520: IF p_debug_mode = 'Y' THEN
1521: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1522: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1523: Pa_Debug.reset_curr_function;
1524: END IF;
1525:
1518: x_msg_count := FND_MSG_PUB.count_msg;
1519:
1520: IF p_debug_mode = 'Y' THEN
1521: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1522: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1523: Pa_Debug.reset_curr_function;
1524: END IF;
1525:
1526: END PURGE_ORG_AUTHORITY;
1519:
1520: IF p_debug_mode = 'Y' THEN
1521: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1522: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1523: Pa_Debug.reset_curr_function;
1524: END IF;
1525:
1526: END PURGE_ORG_AUTHORITY;
1527:
1579: x_msg_count := 0;
1580: x_msg_data := NULL;
1581:
1582: IF p_debug_mode = 'Y' THEN
1583: PA_DEBUG.set_curr_function( p_function => 'PURGE_PJI_DEBUG', p_debug_mode => p_debug_mode);
1584: pa_debug.g_err_stage:= 'Entering PURGE_PJI_DEBUG API';
1585: Pa_Debug.WRITE('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1586: END IF;
1587:
1580: x_msg_data := NULL;
1581:
1582: IF p_debug_mode = 'Y' THEN
1583: PA_DEBUG.set_curr_function( p_function => 'PURGE_PJI_DEBUG', p_debug_mode => p_debug_mode);
1584: pa_debug.g_err_stage:= 'Entering PURGE_PJI_DEBUG API';
1585: Pa_Debug.WRITE('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1586: END IF;
1587:
1588: -- PJI_FM_EXTR_PLAN_LINES_DEBUG
1581:
1582: IF p_debug_mode = 'Y' THEN
1583: PA_DEBUG.set_curr_function( p_function => 'PURGE_PJI_DEBUG', p_debug_mode => p_debug_mode);
1584: pa_debug.g_err_stage:= 'Entering PURGE_PJI_DEBUG API';
1585: Pa_Debug.WRITE('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1586: END IF;
1587:
1588: -- PJI_FM_EXTR_PLAN_LINES_DEBUG
1589: BEGIN
1657: , p_error_text => SUBSTRB(SQLERRM,1,240));
1658: END;
1659:
1660: IF p_debug_mode = 'Y' THEN
1661: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_EXTR_PLAN_LINES_DEBUG ' || l_rows1 ;
1662: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1663: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_XBS_ACCUM_TMP1_DEBUG ' || l_rows2 ;
1664: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1665: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_SYSTEM_DEBUG_MSG ' || l_rows3 ;
1658: END;
1659:
1660: IF p_debug_mode = 'Y' THEN
1661: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_EXTR_PLAN_LINES_DEBUG ' || l_rows1 ;
1662: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1663: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_XBS_ACCUM_TMP1_DEBUG ' || l_rows2 ;
1664: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1665: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_SYSTEM_DEBUG_MSG ' || l_rows3 ;
1666: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1659:
1660: IF p_debug_mode = 'Y' THEN
1661: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_EXTR_PLAN_LINES_DEBUG ' || l_rows1 ;
1662: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1663: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_XBS_ACCUM_TMP1_DEBUG ' || l_rows2 ;
1664: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1665: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_SYSTEM_DEBUG_MSG ' || l_rows3 ;
1666: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1667: END IF;
1660: IF p_debug_mode = 'Y' THEN
1661: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_EXTR_PLAN_LINES_DEBUG ' || l_rows1 ;
1662: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1663: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_XBS_ACCUM_TMP1_DEBUG ' || l_rows2 ;
1664: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1665: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_SYSTEM_DEBUG_MSG ' || l_rows3 ;
1666: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1667: END IF;
1668:
1661: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_EXTR_PLAN_LINES_DEBUG ' || l_rows1 ;
1662: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1663: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_XBS_ACCUM_TMP1_DEBUG ' || l_rows2 ;
1664: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1665: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_SYSTEM_DEBUG_MSG ' || l_rows3 ;
1666: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1667: END IF;
1668:
1669: PA_PURGE_PUB.INSERT_PURGE_LOG
1662: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1663: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_XBS_ACCUM_TMP1_DEBUG ' || l_rows2 ;
1664: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1665: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_SYSTEM_DEBUG_MSG ' || l_rows3 ;
1666: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1667: END IF;
1668:
1669: PA_PURGE_PUB.INSERT_PURGE_LOG
1670: (
1713: END IF;
1714:
1715:
1716: IF p_debug_mode = 'Y' THEN
1717: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_PJI_DEBUG';
1718: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1719: pa_debug.g_err_stage:= 'Exiting PURGE_PJI_DEBUG';
1720: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PJI_DEBUG :' || pa_debug.g_err_stage,l_debug_level3);
1721: pa_debug.reset_curr_function;
1714:
1715:
1716: IF p_debug_mode = 'Y' THEN
1717: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_PJI_DEBUG';
1718: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1719: pa_debug.g_err_stage:= 'Exiting PURGE_PJI_DEBUG';
1720: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PJI_DEBUG :' || pa_debug.g_err_stage,l_debug_level3);
1721: pa_debug.reset_curr_function;
1722: END IF;
1715:
1716: IF p_debug_mode = 'Y' THEN
1717: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_PJI_DEBUG';
1718: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1719: pa_debug.g_err_stage:= 'Exiting PURGE_PJI_DEBUG';
1720: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PJI_DEBUG :' || pa_debug.g_err_stage,l_debug_level3);
1721: pa_debug.reset_curr_function;
1722: END IF;
1723:
1716: IF p_debug_mode = 'Y' THEN
1717: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_PJI_DEBUG';
1718: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1719: pa_debug.g_err_stage:= 'Exiting PURGE_PJI_DEBUG';
1720: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PJI_DEBUG :' || pa_debug.g_err_stage,l_debug_level3);
1721: pa_debug.reset_curr_function;
1722: END IF;
1723:
1724: EXCEPTION
1717: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_PJI_DEBUG';
1718: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1719: pa_debug.g_err_stage:= 'Exiting PURGE_PJI_DEBUG';
1720: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PJI_DEBUG :' || pa_debug.g_err_stage,l_debug_level3);
1721: pa_debug.reset_curr_function;
1722: END IF;
1723:
1724: EXCEPTION
1725: WHEN FND_API.G_EXC_ERROR THEN
1726: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1727: x_msg_count := Fnd_Msg_Pub.count_msg;
1728:
1729: IF p_debug_mode = 'Y' THEN
1730: Pa_Debug.reset_curr_function;
1731: END IF;
1732:
1733: WHEN OTHERS THEN
1734: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1742:
1743: x_msg_count := FND_MSG_PUB.count_msg;
1744:
1745: IF p_debug_mode = 'Y' THEN
1746: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1747: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1748: Pa_Debug.reset_curr_function;
1749: END IF;
1750:
1743: x_msg_count := FND_MSG_PUB.count_msg;
1744:
1745: IF p_debug_mode = 'Y' THEN
1746: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1747: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1748: Pa_Debug.reset_curr_function;
1749: END IF;
1750:
1751: END PURGE_PJI_DEBUG;
1744:
1745: IF p_debug_mode = 'Y' THEN
1746: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1747: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1748: Pa_Debug.reset_curr_function;
1749: END IF;
1750:
1751: END PURGE_PJI_DEBUG;
1752:
1794:
1795: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1796: x_msg_count := 0;
1797: x_msg_data := NULL;
1798: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N'); -- 5201806
1799:
1800: pa_debug.set_process('PLSQL','LOG','Y');
1801: pa_debug.set_curr_function( p_function => 'PRINT_OUTPUT_REPORT', p_debug_mode => 'Y');
1802:
1796: x_msg_count := 0;
1797: x_msg_data := NULL;
1798: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N'); -- 5201806
1799:
1800: pa_debug.set_process('PLSQL','LOG','Y');
1801: pa_debug.set_curr_function( p_function => 'PRINT_OUTPUT_REPORT', p_debug_mode => 'Y');
1802:
1803: pa_debug.g_err_stage:= '---------------------------------------------------';
1804: pa_debug.write_file(pa_debug.g_err_stage);
1797: x_msg_data := NULL;
1798: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N'); -- 5201806
1799:
1800: pa_debug.set_process('PLSQL','LOG','Y');
1801: pa_debug.set_curr_function( p_function => 'PRINT_OUTPUT_REPORT', p_debug_mode => 'Y');
1802:
1803: pa_debug.g_err_stage:= '---------------------------------------------------';
1804: pa_debug.write_file(pa_debug.g_err_stage);
1805:
1799:
1800: pa_debug.set_process('PLSQL','LOG','Y');
1801: pa_debug.set_curr_function( p_function => 'PRINT_OUTPUT_REPORT', p_debug_mode => 'Y');
1802:
1803: pa_debug.g_err_stage:= '---------------------------------------------------';
1804: pa_debug.write_file(pa_debug.g_err_stage);
1805:
1806: pa_debug.g_err_stage:= 'Purge Process Report : ADM: Purge Projects Obsolete Data ';
1807: pa_debug.write_file(pa_debug.g_err_stage);
1800: pa_debug.set_process('PLSQL','LOG','Y');
1801: pa_debug.set_curr_function( p_function => 'PRINT_OUTPUT_REPORT', p_debug_mode => 'Y');
1802:
1803: pa_debug.g_err_stage:= '---------------------------------------------------';
1804: pa_debug.write_file(pa_debug.g_err_stage);
1805:
1806: pa_debug.g_err_stage:= 'Purge Process Report : ADM: Purge Projects Obsolete Data ';
1807: pa_debug.write_file(pa_debug.g_err_stage);
1808:
1802:
1803: pa_debug.g_err_stage:= '---------------------------------------------------';
1804: pa_debug.write_file(pa_debug.g_err_stage);
1805:
1806: pa_debug.g_err_stage:= 'Purge Process Report : ADM: Purge Projects Obsolete Data ';
1807: pa_debug.write_file(pa_debug.g_err_stage);
1808:
1809: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1810: pa_debug.write_file(pa_debug.g_err_stage);
1803: pa_debug.g_err_stage:= '---------------------------------------------------';
1804: pa_debug.write_file(pa_debug.g_err_stage);
1805:
1806: pa_debug.g_err_stage:= 'Purge Process Report : ADM: Purge Projects Obsolete Data ';
1807: pa_debug.write_file(pa_debug.g_err_stage);
1808:
1809: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1810: pa_debug.write_file(pa_debug.g_err_stage);
1811:
1805:
1806: pa_debug.g_err_stage:= 'Purge Process Report : ADM: Purge Projects Obsolete Data ';
1807: pa_debug.write_file(pa_debug.g_err_stage);
1808:
1809: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1810: pa_debug.write_file(pa_debug.g_err_stage);
1811:
1812: pa_debug.g_err_stage:= 'Current system time is ' || sysdate ;
1813: pa_debug.write_file(pa_debug.g_err_stage);
1806: pa_debug.g_err_stage:= 'Purge Process Report : ADM: Purge Projects Obsolete Data ';
1807: pa_debug.write_file(pa_debug.g_err_stage);
1808:
1809: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1810: pa_debug.write_file(pa_debug.g_err_stage);
1811:
1812: pa_debug.g_err_stage:= 'Current system time is ' || sysdate ;
1813: pa_debug.write_file(pa_debug.g_err_stage);
1814:
1808:
1809: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1810: pa_debug.write_file(pa_debug.g_err_stage);
1811:
1812: pa_debug.g_err_stage:= 'Current system time is ' || sysdate ;
1813: pa_debug.write_file(pa_debug.g_err_stage);
1814:
1815: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1816: pa_debug.write_file(pa_debug.g_err_stage);
1809: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1810: pa_debug.write_file(pa_debug.g_err_stage);
1811:
1812: pa_debug.g_err_stage:= 'Current system time is ' || sysdate ;
1813: pa_debug.write_file(pa_debug.g_err_stage);
1814:
1815: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1816: pa_debug.write_file(pa_debug.g_err_stage);
1817:
1811:
1812: pa_debug.g_err_stage:= 'Current system time is ' || sysdate ;
1813: pa_debug.write_file(pa_debug.g_err_stage);
1814:
1815: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1816: pa_debug.write_file(pa_debug.g_err_stage);
1817:
1818: OPEN c_purge_details;
1819: FETCH c_purge_details BULK COLLECT INTO l_table_name_tbl,l_rows_deleted_tbl;
1812: pa_debug.g_err_stage:= 'Current system time is ' || sysdate ;
1813: pa_debug.write_file(pa_debug.g_err_stage);
1814:
1815: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1816: pa_debug.write_file(pa_debug.g_err_stage);
1817:
1818: OPEN c_purge_details;
1819: FETCH c_purge_details BULK COLLECT INTO l_table_name_tbl,l_rows_deleted_tbl;
1820: CLOSE c_purge_details;
1820: CLOSE c_purge_details;
1821:
1822: IF nvl(l_table_name_tbl.LAST,0) > 0 THEN
1823: FOR i IN l_table_name_tbl.FIRST..l_table_name_tbl.LAST LOOP
1824: pa_debug.g_err_stage:= 'Purged '|| l_rows_deleted_tbl(i) ||' entries from ' || l_table_name_tbl(i) ;
1825: pa_debug.write_file(pa_debug.g_err_stage);
1826: pa_debug.g_err_stage:= ' ';
1827: pa_debug.write_file(pa_debug.g_err_stage);
1828: END LOOP ;
1821:
1822: IF nvl(l_table_name_tbl.LAST,0) > 0 THEN
1823: FOR i IN l_table_name_tbl.FIRST..l_table_name_tbl.LAST LOOP
1824: pa_debug.g_err_stage:= 'Purged '|| l_rows_deleted_tbl(i) ||' entries from ' || l_table_name_tbl(i) ;
1825: pa_debug.write_file(pa_debug.g_err_stage);
1826: pa_debug.g_err_stage:= ' ';
1827: pa_debug.write_file(pa_debug.g_err_stage);
1828: END LOOP ;
1829: END IF;
1822: IF nvl(l_table_name_tbl.LAST,0) > 0 THEN
1823: FOR i IN l_table_name_tbl.FIRST..l_table_name_tbl.LAST LOOP
1824: pa_debug.g_err_stage:= 'Purged '|| l_rows_deleted_tbl(i) ||' entries from ' || l_table_name_tbl(i) ;
1825: pa_debug.write_file(pa_debug.g_err_stage);
1826: pa_debug.g_err_stage:= ' ';
1827: pa_debug.write_file(pa_debug.g_err_stage);
1828: END LOOP ;
1829: END IF;
1830:
1823: FOR i IN l_table_name_tbl.FIRST..l_table_name_tbl.LAST LOOP
1824: pa_debug.g_err_stage:= 'Purged '|| l_rows_deleted_tbl(i) ||' entries from ' || l_table_name_tbl(i) ;
1825: pa_debug.write_file(pa_debug.g_err_stage);
1826: pa_debug.g_err_stage:= ' ';
1827: pa_debug.write_file(pa_debug.g_err_stage);
1828: END LOOP ;
1829: END IF;
1830:
1831: Pa_Debug.reset_curr_function;
1827: pa_debug.write_file(pa_debug.g_err_stage);
1828: END LOOP ;
1829: END IF;
1830:
1831: Pa_Debug.reset_curr_function;
1832:
1833: EXCEPTION
1834: WHEN OTHERS THEN
1835: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1847:
1848: x_msg_count := FND_MSG_PUB.count_msg; --5201806
1849:
1850: IF l_debug_mode = 'Y' THEN -- 5201806
1851: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1852: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1853: Pa_Debug.reset_curr_function;
1854: END IF;
1855: -- RAISE; 5201806 Do not raise in internal APIs
1848: x_msg_count := FND_MSG_PUB.count_msg; --5201806
1849:
1850: IF l_debug_mode = 'Y' THEN -- 5201806
1851: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1852: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1853: Pa_Debug.reset_curr_function;
1854: END IF;
1855: -- RAISE; 5201806 Do not raise in internal APIs
1856: END PRINT_OUTPUT_REPORT;
1849:
1850: IF l_debug_mode = 'Y' THEN -- 5201806
1851: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1852: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1853: Pa_Debug.reset_curr_function;
1854: END IF;
1855: -- RAISE; 5201806 Do not raise in internal APIs
1856: END PRINT_OUTPUT_REPORT;
1857:
1895: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1896: x_msg_count := 0;
1897: x_msg_data := NULL;
1898:
1899: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1900:
1901: IF l_debug_mode = 'Y' THEN
1902: pa_debug.set_curr_function( p_function => 'INSERT_PURGE_LOG', p_debug_mode => 'Y');
1903: Pa_Debug.WRITE('PA_PURGE_PUB','Before inserting into PA_PURGE_PRJ_DETAILS',l_debug_level3);
1898:
1899: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1900:
1901: IF l_debug_mode = 'Y' THEN
1902: pa_debug.set_curr_function( p_function => 'INSERT_PURGE_LOG', p_debug_mode => 'Y');
1903: Pa_Debug.WRITE('PA_PURGE_PUB','Before inserting into PA_PURGE_PRJ_DETAILS',l_debug_level3);
1904: END IF;
1905:
1906: INSERT INTO PA_PURGE_PRJ_DETAILS
1899: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1900:
1901: IF l_debug_mode = 'Y' THEN
1902: pa_debug.set_curr_function( p_function => 'INSERT_PURGE_LOG', p_debug_mode => 'Y');
1903: Pa_Debug.WRITE('PA_PURGE_PUB','Before inserting into PA_PURGE_PRJ_DETAILS',l_debug_level3);
1904: END IF;
1905:
1906: INSERT INTO PA_PURGE_PRJ_DETAILS
1907: (
1934: ,sysdate
1935: );
1936:
1937: IF l_debug_mode = 'Y' THEN
1938: Pa_Debug.g_err_stage:='Successfully Inserted Purge Log';
1939: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage,l_debug_level3);
1940: pa_debug.reset_curr_function;
1941: END IF;
1942:
1935: );
1936:
1937: IF l_debug_mode = 'Y' THEN
1938: Pa_Debug.g_err_stage:='Successfully Inserted Purge Log';
1939: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage,l_debug_level3);
1940: pa_debug.reset_curr_function;
1941: END IF;
1942:
1943: EXCEPTION
1936:
1937: IF l_debug_mode = 'Y' THEN
1938: Pa_Debug.g_err_stage:='Successfully Inserted Purge Log';
1939: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage,l_debug_level3);
1940: pa_debug.reset_curr_function;
1941: END IF;
1942:
1943: EXCEPTION
1944: WHEN OTHERS THEN
1953:
1954: x_msg_count := FND_MSG_PUB.count_msg; --5201806
1955:
1956: IF l_debug_mode = 'Y' THEN
1957: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1958: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1959: Pa_Debug.reset_curr_function;
1960: END IF;
1961: -- RAISE; 5201806 Do not raise in internal APIs
1954: x_msg_count := FND_MSG_PUB.count_msg; --5201806
1955:
1956: IF l_debug_mode = 'Y' THEN
1957: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1958: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1959: Pa_Debug.reset_curr_function;
1960: END IF;
1961: -- RAISE; 5201806 Do not raise in internal APIs
1962: END INSERT_PURGE_LOG;
1955:
1956: IF l_debug_mode = 'Y' THEN
1957: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1958: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1959: Pa_Debug.reset_curr_function;
1960: END IF;
1961: -- RAISE; 5201806 Do not raise in internal APIs
1962: END INSERT_PURGE_LOG;
1963: