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:
916: x_msg_count := 0;
917: x_msg_data := NULL;
918:
919: IF p_debug_mode = 'Y' THEN
920: PA_DEBUG.set_curr_function( p_function => 'PURGE_PROJ_WORKFLOW', p_debug_mode => p_debug_mode);
921: pa_debug.g_err_stage:= 'Inside PURGE_PROJ_WORKFLOW API' ;
922: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
923: END IF;
924:
917: x_msg_data := NULL;
918:
919: IF p_debug_mode = 'Y' THEN
920: PA_DEBUG.set_curr_function( p_function => 'PURGE_PROJ_WORKFLOW', p_debug_mode => p_debug_mode);
921: pa_debug.g_err_stage:= 'Inside PURGE_PROJ_WORKFLOW API' ;
922: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
923: END IF;
924:
925: OPEN c_purge_wf_details ;
918:
919: IF p_debug_mode = 'Y' THEN
920: PA_DEBUG.set_curr_function( p_function => 'PURGE_PROJ_WORKFLOW', p_debug_mode => p_debug_mode);
921: pa_debug.g_err_stage:= 'Inside PURGE_PROJ_WORKFLOW API' ;
922: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
923: END IF;
924:
925: OPEN c_purge_wf_details ;
926: LOOP
1014: END LOOP;
1015: CLOSE c_purge_wf_details;
1016:
1017: IF p_debug_mode = 'Y' THEN
1018: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_processes ' || l_rows1 ;
1019: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1020: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_process_details ' || l_rows2 ;
1021: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1022: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_ntf_performers ' || l_rows3 ;
1015: CLOSE c_purge_wf_details;
1016:
1017: IF p_debug_mode = 'Y' THEN
1018: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_processes ' || l_rows1 ;
1019: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1020: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_process_details ' || l_rows2 ;
1021: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1022: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_ntf_performers ' || l_rows3 ;
1023: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1016:
1017: IF p_debug_mode = 'Y' THEN
1018: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_processes ' || l_rows1 ;
1019: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1020: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_process_details ' || l_rows2 ;
1021: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1022: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_ntf_performers ' || l_rows3 ;
1023: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1024: END IF;
1017: IF p_debug_mode = 'Y' THEN
1018: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_processes ' || l_rows1 ;
1019: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1020: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_process_details ' || l_rows2 ;
1021: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1022: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_ntf_performers ' || l_rows3 ;
1023: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1024: END IF;
1025:
1018: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_processes ' || l_rows1 ;
1019: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1020: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_process_details ' || l_rows2 ;
1021: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1022: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_ntf_performers ' || l_rows3 ;
1023: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1024: END IF;
1025:
1026:
1019: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1020: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_process_details ' || l_rows2 ;
1021: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1022: pa_debug.g_err_stage:= 'No. of rows deleted from pa_wf_ntf_performers ' || l_rows3 ;
1023: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1024: END IF;
1025:
1026:
1027: PA_PURGE_PUB.INSERT_PURGE_LOG
1075: END IF;
1076:
1077:
1078: IF p_debug_mode = 'Y' THEN
1079: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_WF_NTF_PERFORMERS';
1080: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1081: pa_debug.g_err_stage:= 'Exiting PURGE_PROJ_WORKFLOW';
1082: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PROJ_WORKFLOW :' || pa_debug.g_err_stage,l_debug_level3);
1083: pa_debug.reset_curr_function;
1076:
1077:
1078: IF p_debug_mode = 'Y' THEN
1079: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_WF_NTF_PERFORMERS';
1080: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1081: pa_debug.g_err_stage:= 'Exiting PURGE_PROJ_WORKFLOW';
1082: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PROJ_WORKFLOW :' || pa_debug.g_err_stage,l_debug_level3);
1083: pa_debug.reset_curr_function;
1084: END IF;
1077:
1078: IF p_debug_mode = 'Y' THEN
1079: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_WF_NTF_PERFORMERS';
1080: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1081: pa_debug.g_err_stage:= 'Exiting PURGE_PROJ_WORKFLOW';
1082: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PROJ_WORKFLOW :' || pa_debug.g_err_stage,l_debug_level3);
1083: pa_debug.reset_curr_function;
1084: END IF;
1085:
1078: IF p_debug_mode = 'Y' THEN
1079: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_WF_NTF_PERFORMERS';
1080: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1081: pa_debug.g_err_stage:= 'Exiting PURGE_PROJ_WORKFLOW';
1082: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PROJ_WORKFLOW :' || pa_debug.g_err_stage,l_debug_level3);
1083: pa_debug.reset_curr_function;
1084: END IF;
1085:
1086: EXCEPTION
1079: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PA_WF_NTF_PERFORMERS';
1080: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1081: pa_debug.g_err_stage:= 'Exiting PURGE_PROJ_WORKFLOW';
1082: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PROJ_WORKFLOW :' || pa_debug.g_err_stage,l_debug_level3);
1083: pa_debug.reset_curr_function;
1084: END IF;
1085:
1086: EXCEPTION
1087: WHEN FND_API.G_EXC_ERROR THEN
1108: -- x_msg_count := l_msg_count;
1109: -- END IF;
1110:
1111: IF p_debug_mode = 'Y' THEN
1112: Pa_Debug.reset_curr_function;
1113: END IF;
1114:
1115: WHEN OTHERS THEN
1116: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1128:
1129: x_msg_count := FND_MSG_PUB.count_msg;--5201806
1130:
1131: IF p_debug_mode = 'Y' THEN
1132: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1133: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1134: Pa_Debug.reset_curr_function;
1135: END IF;
1136: -- RAISE; 5201806 Do not raise in internal APIs
1129: x_msg_count := FND_MSG_PUB.count_msg;--5201806
1130:
1131: IF p_debug_mode = 'Y' THEN
1132: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1133: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1134: Pa_Debug.reset_curr_function;
1135: END IF;
1136: -- RAISE; 5201806 Do not raise in internal APIs
1137: END PURGE_PROJ_WORKFLOW;
1130:
1131: IF p_debug_mode = 'Y' THEN
1132: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1133: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1134: Pa_Debug.reset_curr_function;
1135: END IF;
1136: -- RAISE; 5201806 Do not raise in internal APIs
1137: END PURGE_PROJ_WORKFLOW;
1138:
1197: x_msg_count := 0;
1198: x_msg_data := NULL;
1199:
1200: IF p_debug_mode = 'Y' THEN
1201: PA_DEBUG.set_curr_function( p_function => 'PURGE_REPORTING_EXCEPTIONS', p_debug_mode => p_debug_mode);
1202: pa_debug.g_err_stage:= 'Entering PURGE_REPORTING_EXCEPTIONS API';
1203: Pa_Debug.WRITE('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1204: END IF;
1205:
1198: x_msg_data := NULL;
1199:
1200: IF p_debug_mode = 'Y' THEN
1201: PA_DEBUG.set_curr_function( p_function => 'PURGE_REPORTING_EXCEPTIONS', p_debug_mode => p_debug_mode);
1202: pa_debug.g_err_stage:= 'Entering PURGE_REPORTING_EXCEPTIONS API';
1203: Pa_Debug.WRITE('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1204: END IF;
1205:
1206: OPEN c_get_request_id;
1199:
1200: IF p_debug_mode = 'Y' THEN
1201: PA_DEBUG.set_curr_function( p_function => 'PURGE_REPORTING_EXCEPTIONS', p_debug_mode => p_debug_mode);
1202: pa_debug.g_err_stage:= 'Entering PURGE_REPORTING_EXCEPTIONS API';
1203: Pa_Debug.WRITE('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1204: END IF;
1205:
1206: OPEN c_get_request_id;
1207: LOOP
1234: END LOOP;
1235: CLOSE c_get_request_id;
1236:
1237: IF p_debug_mode = 'Y' THEN
1238: pa_debug.g_err_stage:= 'No. of rows deleted from pa_reporting_exceptions ' || l_rows1 ;
1239: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1240: END IF;
1241:
1242:
1235: CLOSE c_get_request_id;
1236:
1237: IF p_debug_mode = 'Y' THEN
1238: pa_debug.g_err_stage:= 'No. of rows deleted from pa_reporting_exceptions ' || l_rows1 ;
1239: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1240: END IF;
1241:
1242:
1243: PA_PURGE_PUB.INSERT_PURGE_LOG
1259: RAISE FND_API.G_EXC_ERROR;
1260: END IF;
1261:
1262: IF p_debug_mode = 'Y' THEN
1263: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to pa_reporting_exceptions';
1264: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1265: pa_debug.g_err_stage:= 'Exiting PURGE_REPORTING_EXCEPTIONS';
1266: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1267: Pa_Debug.reset_curr_function;
1260: END IF;
1261:
1262: IF p_debug_mode = 'Y' THEN
1263: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to pa_reporting_exceptions';
1264: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1265: pa_debug.g_err_stage:= 'Exiting PURGE_REPORTING_EXCEPTIONS';
1266: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1267: Pa_Debug.reset_curr_function;
1268: END IF;
1261:
1262: IF p_debug_mode = 'Y' THEN
1263: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to pa_reporting_exceptions';
1264: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1265: pa_debug.g_err_stage:= 'Exiting PURGE_REPORTING_EXCEPTIONS';
1266: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1267: Pa_Debug.reset_curr_function;
1268: END IF;
1269: EXCEPTION
1262: IF p_debug_mode = 'Y' THEN
1263: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to pa_reporting_exceptions';
1264: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1265: pa_debug.g_err_stage:= 'Exiting PURGE_REPORTING_EXCEPTIONS';
1266: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1267: Pa_Debug.reset_curr_function;
1268: END IF;
1269: EXCEPTION
1270: WHEN FND_API.G_EXC_ERROR THEN
1263: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to pa_reporting_exceptions';
1264: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1265: pa_debug.g_err_stage:= 'Exiting PURGE_REPORTING_EXCEPTIONS';
1266: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1267: Pa_Debug.reset_curr_function;
1268: END IF;
1269: EXCEPTION
1270: WHEN FND_API.G_EXC_ERROR THEN
1271: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1292: -- x_msg_count := l_msg_count;
1293: -- END IF;
1294:
1295: IF p_debug_mode = 'Y' THEN
1296: Pa_Debug.reset_curr_function;
1297: END IF;
1298: WHEN OTHERS THEN
1299: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1300: x_msg_count := 1;
1311:
1312: x_msg_count := FND_MSG_PUB.count_msg; --5201806
1313:
1314: IF p_debug_mode = 'Y' THEN
1315: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1316: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1317: Pa_Debug.reset_curr_function;
1318: END IF;
1319: -- RAISE; 5201806 Do not raise in internal APIs
1312: x_msg_count := FND_MSG_PUB.count_msg; --5201806
1313:
1314: IF p_debug_mode = 'Y' THEN
1315: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1316: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1317: Pa_Debug.reset_curr_function;
1318: END IF;
1319: -- RAISE; 5201806 Do not raise in internal APIs
1320: END PURGE_REPORTING_EXCEPTIONS;
1313:
1314: IF p_debug_mode = 'Y' THEN
1315: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1316: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1317: Pa_Debug.reset_curr_function;
1318: END IF;
1319: -- RAISE; 5201806 Do not raise in internal APIs
1320: END PURGE_REPORTING_EXCEPTIONS;
1321:
1414: x_msg_count := 0;
1415: x_msg_data := NULL;
1416:
1417: IF p_debug_mode = 'Y' THEN
1418: PA_DEBUG.set_curr_function( p_function => 'PURGE_ORG_AUTHORITY', p_debug_mode => p_debug_mode);
1419: pa_debug.g_err_stage:= 'Inside PURGE_ORG_AUTHORITY API' ;
1420: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1421: END IF;
1422:
1415: x_msg_data := NULL;
1416:
1417: IF p_debug_mode = 'Y' THEN
1418: PA_DEBUG.set_curr_function( p_function => 'PURGE_ORG_AUTHORITY', p_debug_mode => p_debug_mode);
1419: pa_debug.g_err_stage:= 'Inside PURGE_ORG_AUTHORITY API' ;
1420: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1421: END IF;
1422:
1423: OPEN c_purge_org_authority;
1416:
1417: IF p_debug_mode = 'Y' THEN
1418: PA_DEBUG.set_curr_function( p_function => 'PURGE_ORG_AUTHORITY', p_debug_mode => p_debug_mode);
1419: pa_debug.g_err_stage:= 'Inside PURGE_ORG_AUTHORITY API' ;
1420: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1421: END IF;
1422:
1423: OPEN c_purge_org_authority;
1424: LOOP
1474: END LOOP;
1475: CLOSE c_purge_org_authority;
1476:
1477: IF p_debug_mode = 'Y' THEN
1478: pa_debug.g_err_stage:= 'No. of grants deleted ' || l_grants_deleted;
1479: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1480: END IF;
1481:
1482: PA_PURGE_PUB.INSERT_PURGE_LOG
1475: CLOSE c_purge_org_authority;
1476:
1477: IF p_debug_mode = 'Y' THEN
1478: pa_debug.g_err_stage:= 'No. of grants deleted ' || l_grants_deleted;
1479: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1480: END IF;
1481:
1482: PA_PURGE_PUB.INSERT_PURGE_LOG
1483: (
1497: RAISE FND_API.G_EXC_ERROR;
1498: END IF;
1499:
1500: IF p_debug_mode = 'Y' THEN
1501: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_ORG_AUTHORITY';
1502: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1503: pa_debug.g_err_stage:= 'Exiting PURGE_ORG_AUTHORITY';
1504: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1505: Pa_Debug.reset_curr_function;
1498: END IF;
1499:
1500: IF p_debug_mode = 'Y' THEN
1501: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_ORG_AUTHORITY';
1502: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1503: pa_debug.g_err_stage:= 'Exiting PURGE_ORG_AUTHORITY';
1504: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1505: Pa_Debug.reset_curr_function;
1506: END IF;
1499:
1500: IF p_debug_mode = 'Y' THEN
1501: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_ORG_AUTHORITY';
1502: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1503: pa_debug.g_err_stage:= 'Exiting PURGE_ORG_AUTHORITY';
1504: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1505: Pa_Debug.reset_curr_function;
1506: END IF;
1507:
1500: IF p_debug_mode = 'Y' THEN
1501: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_ORG_AUTHORITY';
1502: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1503: pa_debug.g_err_stage:= 'Exiting PURGE_ORG_AUTHORITY';
1504: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1505: Pa_Debug.reset_curr_function;
1506: END IF;
1507:
1508: EXCEPTION
1501: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_ORG_AUTHORITY';
1502: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1503: pa_debug.g_err_stage:= 'Exiting PURGE_ORG_AUTHORITY';
1504: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1505: Pa_Debug.reset_curr_function;
1506: END IF;
1507:
1508: EXCEPTION
1509: WHEN FND_API.G_EXC_ERROR THEN
1515: CLOSE c_purge_org_authority;
1516: END IF;
1517:
1518: IF p_debug_mode = 'Y' THEN
1519: Pa_Debug.reset_curr_function;
1520: END IF;
1521:
1522: WHEN OTHERS THEN
1523:
1536:
1537: x_msg_count := FND_MSG_PUB.count_msg;
1538:
1539: IF p_debug_mode = 'Y' THEN
1540: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1541: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1542: Pa_Debug.reset_curr_function;
1543: END IF;
1544:
1537: x_msg_count := FND_MSG_PUB.count_msg;
1538:
1539: IF p_debug_mode = 'Y' THEN
1540: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1541: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1542: Pa_Debug.reset_curr_function;
1543: END IF;
1544:
1545: END PURGE_ORG_AUTHORITY;
1538:
1539: IF p_debug_mode = 'Y' THEN
1540: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1541: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1542: Pa_Debug.reset_curr_function;
1543: END IF;
1544:
1545: END PURGE_ORG_AUTHORITY;
1546:
1598: x_msg_count := 0;
1599: x_msg_data := NULL;
1600:
1601: IF p_debug_mode = 'Y' THEN
1602: PA_DEBUG.set_curr_function( p_function => 'PURGE_PJI_DEBUG', p_debug_mode => p_debug_mode);
1603: pa_debug.g_err_stage:= 'Entering PURGE_PJI_DEBUG API';
1604: Pa_Debug.WRITE('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1605: END IF;
1606:
1599: x_msg_data := NULL;
1600:
1601: IF p_debug_mode = 'Y' THEN
1602: PA_DEBUG.set_curr_function( p_function => 'PURGE_PJI_DEBUG', p_debug_mode => p_debug_mode);
1603: pa_debug.g_err_stage:= 'Entering PURGE_PJI_DEBUG API';
1604: Pa_Debug.WRITE('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1605: END IF;
1606:
1607: -- PJI_FM_EXTR_PLAN_LINES_DEBUG
1600:
1601: IF p_debug_mode = 'Y' THEN
1602: PA_DEBUG.set_curr_function( p_function => 'PURGE_PJI_DEBUG', p_debug_mode => p_debug_mode);
1603: pa_debug.g_err_stage:= 'Entering PURGE_PJI_DEBUG API';
1604: Pa_Debug.WRITE('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1605: END IF;
1606:
1607: -- PJI_FM_EXTR_PLAN_LINES_DEBUG
1608: BEGIN
1676: , p_error_text => SUBSTRB(SQLERRM,1,240));
1677: END;
1678:
1679: IF p_debug_mode = 'Y' THEN
1680: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_EXTR_PLAN_LINES_DEBUG ' || l_rows1 ;
1681: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1682: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_XBS_ACCUM_TMP1_DEBUG ' || l_rows2 ;
1683: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1684: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_SYSTEM_DEBUG_MSG ' || l_rows3 ;
1677: END;
1678:
1679: IF p_debug_mode = 'Y' THEN
1680: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_EXTR_PLAN_LINES_DEBUG ' || l_rows1 ;
1681: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1682: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_XBS_ACCUM_TMP1_DEBUG ' || l_rows2 ;
1683: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1684: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_SYSTEM_DEBUG_MSG ' || l_rows3 ;
1685: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1678:
1679: IF p_debug_mode = 'Y' THEN
1680: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_EXTR_PLAN_LINES_DEBUG ' || l_rows1 ;
1681: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1682: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_XBS_ACCUM_TMP1_DEBUG ' || l_rows2 ;
1683: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1684: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_SYSTEM_DEBUG_MSG ' || l_rows3 ;
1685: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1686: END IF;
1679: IF p_debug_mode = 'Y' THEN
1680: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_EXTR_PLAN_LINES_DEBUG ' || l_rows1 ;
1681: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1682: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_XBS_ACCUM_TMP1_DEBUG ' || l_rows2 ;
1683: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1684: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_SYSTEM_DEBUG_MSG ' || l_rows3 ;
1685: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1686: END IF;
1687:
1680: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_EXTR_PLAN_LINES_DEBUG ' || l_rows1 ;
1681: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1682: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_XBS_ACCUM_TMP1_DEBUG ' || l_rows2 ;
1683: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1684: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_SYSTEM_DEBUG_MSG ' || l_rows3 ;
1685: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1686: END IF;
1687:
1688: PA_PURGE_PUB.INSERT_PURGE_LOG
1681: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1682: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_FM_XBS_ACCUM_TMP1_DEBUG ' || l_rows2 ;
1683: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1684: pa_debug.g_err_stage:= 'No. of rows deleted from PJI_SYSTEM_DEBUG_MSG ' || l_rows3 ;
1685: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1686: END IF;
1687:
1688: PA_PURGE_PUB.INSERT_PURGE_LOG
1689: (
1732: END IF;
1733:
1734:
1735: IF p_debug_mode = 'Y' THEN
1736: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_PJI_DEBUG';
1737: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1738: pa_debug.g_err_stage:= 'Exiting PURGE_PJI_DEBUG';
1739: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PJI_DEBUG :' || pa_debug.g_err_stage,l_debug_level3);
1740: pa_debug.reset_curr_function;
1733:
1734:
1735: IF p_debug_mode = 'Y' THEN
1736: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_PJI_DEBUG';
1737: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1738: pa_debug.g_err_stage:= 'Exiting PURGE_PJI_DEBUG';
1739: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PJI_DEBUG :' || pa_debug.g_err_stage,l_debug_level3);
1740: pa_debug.reset_curr_function;
1741: END IF;
1734:
1735: IF p_debug_mode = 'Y' THEN
1736: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_PJI_DEBUG';
1737: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1738: pa_debug.g_err_stage:= 'Exiting PURGE_PJI_DEBUG';
1739: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PJI_DEBUG :' || pa_debug.g_err_stage,l_debug_level3);
1740: pa_debug.reset_curr_function;
1741: END IF;
1742:
1735: IF p_debug_mode = 'Y' THEN
1736: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_PJI_DEBUG';
1737: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1738: pa_debug.g_err_stage:= 'Exiting PURGE_PJI_DEBUG';
1739: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PJI_DEBUG :' || pa_debug.g_err_stage,l_debug_level3);
1740: pa_debug.reset_curr_function;
1741: END IF;
1742:
1743: EXCEPTION
1736: pa_debug.g_err_stage:= 'Successfully inserted Log details pertaining to PURGE_PJI_DEBUG';
1737: pa_debug.write('PA_PURGE_PUB',pa_debug.g_err_stage,l_debug_level3);
1738: pa_debug.g_err_stage:= 'Exiting PURGE_PJI_DEBUG';
1739: pa_debug.write('PA_PURGE_PUB','PA_PURGE_PUB.PURGE_PJI_DEBUG :' || pa_debug.g_err_stage,l_debug_level3);
1740: pa_debug.reset_curr_function;
1741: END IF;
1742:
1743: EXCEPTION
1744: WHEN FND_API.G_EXC_ERROR THEN
1745: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1746: x_msg_count := Fnd_Msg_Pub.count_msg;
1747:
1748: IF p_debug_mode = 'Y' THEN
1749: Pa_Debug.reset_curr_function;
1750: END IF;
1751:
1752: WHEN OTHERS THEN
1753: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1761:
1762: x_msg_count := FND_MSG_PUB.count_msg;
1763:
1764: IF p_debug_mode = 'Y' THEN
1765: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1766: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1767: Pa_Debug.reset_curr_function;
1768: END IF;
1769:
1762: x_msg_count := FND_MSG_PUB.count_msg;
1763:
1764: IF p_debug_mode = 'Y' THEN
1765: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1766: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1767: Pa_Debug.reset_curr_function;
1768: END IF;
1769:
1770: END PURGE_PJI_DEBUG;
1763:
1764: IF p_debug_mode = 'Y' THEN
1765: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1766: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1767: Pa_Debug.reset_curr_function;
1768: END IF;
1769:
1770: END PURGE_PJI_DEBUG;
1771:
1813:
1814: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1815: x_msg_count := 0;
1816: x_msg_data := NULL;
1817: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N'); -- 5201806
1818:
1819: pa_debug.set_process('PLSQL','LOG','Y');
1820: pa_debug.set_curr_function( p_function => 'PRINT_OUTPUT_REPORT', p_debug_mode => 'Y');
1821:
1815: x_msg_count := 0;
1816: x_msg_data := NULL;
1817: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N'); -- 5201806
1818:
1819: pa_debug.set_process('PLSQL','LOG','Y');
1820: pa_debug.set_curr_function( p_function => 'PRINT_OUTPUT_REPORT', p_debug_mode => 'Y');
1821:
1822: pa_debug.g_err_stage:= '---------------------------------------------------';
1823: pa_debug.write_file(pa_debug.g_err_stage);
1816: x_msg_data := NULL;
1817: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N'); -- 5201806
1818:
1819: pa_debug.set_process('PLSQL','LOG','Y');
1820: pa_debug.set_curr_function( p_function => 'PRINT_OUTPUT_REPORT', p_debug_mode => 'Y');
1821:
1822: pa_debug.g_err_stage:= '---------------------------------------------------';
1823: pa_debug.write_file(pa_debug.g_err_stage);
1824:
1818:
1819: pa_debug.set_process('PLSQL','LOG','Y');
1820: pa_debug.set_curr_function( p_function => 'PRINT_OUTPUT_REPORT', p_debug_mode => 'Y');
1821:
1822: pa_debug.g_err_stage:= '---------------------------------------------------';
1823: pa_debug.write_file(pa_debug.g_err_stage);
1824:
1825: pa_debug.g_err_stage:= 'Purge Process Report : ADM: Purge Projects Obsolete Data ';
1826: pa_debug.write_file(pa_debug.g_err_stage);
1819: pa_debug.set_process('PLSQL','LOG','Y');
1820: pa_debug.set_curr_function( p_function => 'PRINT_OUTPUT_REPORT', p_debug_mode => 'Y');
1821:
1822: pa_debug.g_err_stage:= '---------------------------------------------------';
1823: pa_debug.write_file(pa_debug.g_err_stage);
1824:
1825: pa_debug.g_err_stage:= 'Purge Process Report : ADM: Purge Projects Obsolete Data ';
1826: pa_debug.write_file(pa_debug.g_err_stage);
1827:
1821:
1822: pa_debug.g_err_stage:= '---------------------------------------------------';
1823: pa_debug.write_file(pa_debug.g_err_stage);
1824:
1825: pa_debug.g_err_stage:= 'Purge Process Report : ADM: Purge Projects Obsolete Data ';
1826: pa_debug.write_file(pa_debug.g_err_stage);
1827:
1828: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1829: pa_debug.write_file(pa_debug.g_err_stage);
1822: pa_debug.g_err_stage:= '---------------------------------------------------';
1823: pa_debug.write_file(pa_debug.g_err_stage);
1824:
1825: pa_debug.g_err_stage:= 'Purge Process Report : ADM: Purge Projects Obsolete Data ';
1826: pa_debug.write_file(pa_debug.g_err_stage);
1827:
1828: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1829: pa_debug.write_file(pa_debug.g_err_stage);
1830:
1824:
1825: pa_debug.g_err_stage:= 'Purge Process Report : ADM: Purge Projects Obsolete Data ';
1826: pa_debug.write_file(pa_debug.g_err_stage);
1827:
1828: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1829: pa_debug.write_file(pa_debug.g_err_stage);
1830:
1831: pa_debug.g_err_stage:= 'Current system time is ' || sysdate ;
1832: pa_debug.write_file(pa_debug.g_err_stage);
1825: pa_debug.g_err_stage:= 'Purge Process Report : ADM: Purge Projects Obsolete Data ';
1826: pa_debug.write_file(pa_debug.g_err_stage);
1827:
1828: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1829: pa_debug.write_file(pa_debug.g_err_stage);
1830:
1831: pa_debug.g_err_stage:= 'Current system time is ' || sysdate ;
1832: pa_debug.write_file(pa_debug.g_err_stage);
1833:
1827:
1828: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1829: pa_debug.write_file(pa_debug.g_err_stage);
1830:
1831: pa_debug.g_err_stage:= 'Current system time is ' || sysdate ;
1832: pa_debug.write_file(pa_debug.g_err_stage);
1833:
1834: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1835: pa_debug.write_file(pa_debug.g_err_stage);
1828: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1829: pa_debug.write_file(pa_debug.g_err_stage);
1830:
1831: pa_debug.g_err_stage:= 'Current system time is ' || sysdate ;
1832: pa_debug.write_file(pa_debug.g_err_stage);
1833:
1834: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1835: pa_debug.write_file(pa_debug.g_err_stage);
1836:
1830:
1831: pa_debug.g_err_stage:= 'Current system time is ' || sysdate ;
1832: pa_debug.write_file(pa_debug.g_err_stage);
1833:
1834: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1835: pa_debug.write_file(pa_debug.g_err_stage);
1836:
1837: OPEN c_purge_details;
1838: FETCH c_purge_details BULK COLLECT INTO l_table_name_tbl,l_rows_deleted_tbl;
1831: pa_debug.g_err_stage:= 'Current system time is ' || sysdate ;
1832: pa_debug.write_file(pa_debug.g_err_stage);
1833:
1834: pa_debug.g_err_stage:= '+---------------------------------------------------+';
1835: pa_debug.write_file(pa_debug.g_err_stage);
1836:
1837: OPEN c_purge_details;
1838: FETCH c_purge_details BULK COLLECT INTO l_table_name_tbl,l_rows_deleted_tbl;
1839: CLOSE c_purge_details;
1839: CLOSE c_purge_details;
1840:
1841: IF nvl(l_table_name_tbl.LAST,0) > 0 THEN
1842: FOR i IN l_table_name_tbl.FIRST..l_table_name_tbl.LAST LOOP
1843: pa_debug.g_err_stage:= 'Purged '|| l_rows_deleted_tbl(i) ||' entries from ' || l_table_name_tbl(i) ;
1844: pa_debug.write_file(pa_debug.g_err_stage);
1845: pa_debug.g_err_stage:= ' ';
1846: pa_debug.write_file(pa_debug.g_err_stage);
1847: END LOOP ;
1840:
1841: IF nvl(l_table_name_tbl.LAST,0) > 0 THEN
1842: FOR i IN l_table_name_tbl.FIRST..l_table_name_tbl.LAST LOOP
1843: pa_debug.g_err_stage:= 'Purged '|| l_rows_deleted_tbl(i) ||' entries from ' || l_table_name_tbl(i) ;
1844: pa_debug.write_file(pa_debug.g_err_stage);
1845: pa_debug.g_err_stage:= ' ';
1846: pa_debug.write_file(pa_debug.g_err_stage);
1847: END LOOP ;
1848: END IF;
1841: IF nvl(l_table_name_tbl.LAST,0) > 0 THEN
1842: FOR i IN l_table_name_tbl.FIRST..l_table_name_tbl.LAST LOOP
1843: pa_debug.g_err_stage:= 'Purged '|| l_rows_deleted_tbl(i) ||' entries from ' || l_table_name_tbl(i) ;
1844: pa_debug.write_file(pa_debug.g_err_stage);
1845: pa_debug.g_err_stage:= ' ';
1846: pa_debug.write_file(pa_debug.g_err_stage);
1847: END LOOP ;
1848: END IF;
1849:
1842: FOR i IN l_table_name_tbl.FIRST..l_table_name_tbl.LAST LOOP
1843: pa_debug.g_err_stage:= 'Purged '|| l_rows_deleted_tbl(i) ||' entries from ' || l_table_name_tbl(i) ;
1844: pa_debug.write_file(pa_debug.g_err_stage);
1845: pa_debug.g_err_stage:= ' ';
1846: pa_debug.write_file(pa_debug.g_err_stage);
1847: END LOOP ;
1848: END IF;
1849:
1850: Pa_Debug.reset_curr_function;
1846: pa_debug.write_file(pa_debug.g_err_stage);
1847: END LOOP ;
1848: END IF;
1849:
1850: Pa_Debug.reset_curr_function;
1851:
1852: EXCEPTION
1853: WHEN OTHERS THEN
1854: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1866:
1867: x_msg_count := FND_MSG_PUB.count_msg; --5201806
1868:
1869: IF l_debug_mode = 'Y' THEN -- 5201806
1870: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1871: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1872: Pa_Debug.reset_curr_function;
1873: END IF;
1874: -- RAISE; 5201806 Do not raise in internal APIs
1867: x_msg_count := FND_MSG_PUB.count_msg; --5201806
1868:
1869: IF l_debug_mode = 'Y' THEN -- 5201806
1870: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1871: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1872: Pa_Debug.reset_curr_function;
1873: END IF;
1874: -- RAISE; 5201806 Do not raise in internal APIs
1875: END PRINT_OUTPUT_REPORT;
1868:
1869: IF l_debug_mode = 'Y' THEN -- 5201806
1870: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1871: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1872: Pa_Debug.reset_curr_function;
1873: END IF;
1874: -- RAISE; 5201806 Do not raise in internal APIs
1875: END PRINT_OUTPUT_REPORT;
1876:
1914: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1915: x_msg_count := 0;
1916: x_msg_data := NULL;
1917:
1918: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1919:
1920: IF l_debug_mode = 'Y' THEN
1921: pa_debug.set_curr_function( p_function => 'INSERT_PURGE_LOG', p_debug_mode => 'Y');
1922: Pa_Debug.WRITE('PA_PURGE_PUB','Before inserting into PA_PURGE_PRJ_DETAILS',l_debug_level3);
1917:
1918: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1919:
1920: IF l_debug_mode = 'Y' THEN
1921: pa_debug.set_curr_function( p_function => 'INSERT_PURGE_LOG', p_debug_mode => 'Y');
1922: Pa_Debug.WRITE('PA_PURGE_PUB','Before inserting into PA_PURGE_PRJ_DETAILS',l_debug_level3);
1923: END IF;
1924:
1925: INSERT INTO PA_PURGE_PRJ_DETAILS
1918: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1919:
1920: IF l_debug_mode = 'Y' THEN
1921: pa_debug.set_curr_function( p_function => 'INSERT_PURGE_LOG', p_debug_mode => 'Y');
1922: Pa_Debug.WRITE('PA_PURGE_PUB','Before inserting into PA_PURGE_PRJ_DETAILS',l_debug_level3);
1923: END IF;
1924:
1925: INSERT INTO PA_PURGE_PRJ_DETAILS
1926: (
1953: ,sysdate
1954: );
1955:
1956: IF l_debug_mode = 'Y' THEN
1957: Pa_Debug.g_err_stage:='Successfully Inserted Purge Log';
1958: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage,l_debug_level3);
1959: pa_debug.reset_curr_function;
1960: END IF;
1961:
1954: );
1955:
1956: IF l_debug_mode = 'Y' THEN
1957: Pa_Debug.g_err_stage:='Successfully Inserted Purge Log';
1958: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage,l_debug_level3);
1959: pa_debug.reset_curr_function;
1960: END IF;
1961:
1962: EXCEPTION
1955:
1956: IF l_debug_mode = 'Y' THEN
1957: Pa_Debug.g_err_stage:='Successfully Inserted Purge Log';
1958: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage,l_debug_level3);
1959: pa_debug.reset_curr_function;
1960: END IF;
1961:
1962: EXCEPTION
1963: WHEN OTHERS THEN
1972:
1973: x_msg_count := FND_MSG_PUB.count_msg; --5201806
1974:
1975: IF l_debug_mode = 'Y' THEN
1976: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1977: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1978: Pa_Debug.reset_curr_function;
1979: END IF;
1980: -- RAISE; 5201806 Do not raise in internal APIs
1973: x_msg_count := FND_MSG_PUB.count_msg; --5201806
1974:
1975: IF l_debug_mode = 'Y' THEN
1976: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1977: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1978: Pa_Debug.reset_curr_function;
1979: END IF;
1980: -- RAISE; 5201806 Do not raise in internal APIs
1981: END INSERT_PURGE_LOG;
1974:
1975: IF l_debug_mode = 'Y' THEN
1976: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
1977: Pa_Debug.WRITE('PA_PURGE_PUB',Pa_Debug.g_err_stage, 5);
1978: Pa_Debug.reset_curr_function;
1979: END IF;
1980: -- RAISE; 5201806 Do not raise in internal APIs
1981: END INSERT_PURGE_LOG;
1982: