[Home] [Help]
PACKAGE BODY: APPS.PA_GANTT_CONFIG_PUB
Source
1 PACKAGE BODY PA_GANTT_CONFIG_PUB AS
2 /* $Header: PAGCGCPB.pls 120.1 2005/08/19 16:32:45 mwasowic noship $ */
3
4 g_module_name VARCHAR2(100) := 'pa.plsql.PA_GANTT_CONFIG_PUB';
5 Invalid_Arg_Exc_GC Exception;
6
7
8 procedure CREATE_GANTT_CONFIG (
9 P_COMMIT in VARCHAR2,
10 P_CALLING_MODULE in VARCHAR2,
11 P_GANTT_VIEW_ID in PA_GANTT_CONFIG_B.gantt_view_id%TYPE,
12 P_GANTT_CONFIG_USAGE in PA_GANTT_CONFIG_B.gantt_config_usage%TYPE,
13 P_FILTER_CODE in PA_GANTT_CONFIG_B.filter_code%TYPE,
14 P_TIME_SCALE_CODE in PA_GANTT_CONFIG_B.time_scale_code%TYPE,
15 P_EXPAND_COLLAPSE_FLAG in PA_GANTT_CONFIG_B.expand_collapse_flag%TYPE,
16 P_NUMBER_OF_DISPLAYED_ROWS in PA_GANTT_CONFIG_B.number_of_displayed_rows%TYPE,
17 P_SHOW_ADDITIONAL_COL_FLAG in PA_GANTT_CONFIG_B.show_additional_col_flag%TYPE,
18 P_FOCUS_ENABLED_FLAG in PA_GANTT_CONFIG_B.focus_enabled_flag%TYPE,
19 P_SHOW_HEADER_UI_FLAG in PA_GANTT_CONFIG_B.show_header_ui_flag%TYPE,
20 P_NAME in PA_GANTT_CONFIG_TL.name%TYPE,
21 P_DESCRIPTION in PA_GANTT_CONFIG_TL.description%TYPE,
22 PX_GANTT_CONFIG_ID in OUT NOCOPY PA_GANTT_CONFIG_B.gantt_config_id%TYPE, --File.Sql.39 bug 4440895
23 X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
24 X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
25 X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
26 )
27 AS
28
29 l_msg_count NUMBER := 0;
30 l_data VARCHAR2(2000);
31 l_msg_data VARCHAR2(2000);
32 l_msg_index_out NUMBER;
33 l_debug_mode VARCHAR2(1);
34
35 l_debug_level2 CONSTANT NUMBER := 2;
36 l_debug_level3 CONSTANT NUMBER := 3;
37 l_debug_level4 CONSTANT NUMBER := 4;
38 l_debug_level5 CONSTANT NUMBER := 5;
39
40 BEGIN
41
42 x_msg_count := 0;
43 x_return_status := FND_API.G_RET_STS_SUCCESS;
44 l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
45
46 IF l_debug_mode = 'Y' THEN
47 pa_debug.set_curr_function( p_function => 'CREATE_GANTT_CONFIG',
48 p_debug_mode => l_debug_mode );
49 END IF;
50
51 -- Check for business rules violations
52
53 IF l_debug_mode = 'Y' THEN
54 pa_debug.g_err_stage:= 'Validating input parameters';
55 pa_debug.write(g_module_name,pa_debug.g_err_stage,
56 l_debug_level3);
57 END IF;
58
59 IF l_debug_mode = 'Y' THEN
60 pa_debug.g_err_stage:= 'p_gantt_view_id = '|| p_gantt_view_id;
61 pa_debug.write(g_module_name,pa_debug.g_err_stage,
62 l_debug_level5);
63 pa_debug.g_err_stage:= 'p_gantt_config_usage = '|| p_gantt_config_usage;
64 pa_debug.write(g_module_name,pa_debug.g_err_stage,
65 l_debug_level5);
66 pa_debug.g_err_stage:= 'p_name = '|| p_name;
67 pa_debug.write(g_module_name,pa_debug.g_err_stage,
68 l_debug_level5);
69 pa_debug.g_err_stage:= 'p_filter_code = '|| p_filter_code;
70 pa_debug.write(g_module_name,pa_debug.g_err_stage,
71 l_debug_level5);
72 pa_debug.g_err_stage:= 'p_time_scale_code = '|| p_time_scale_code;
73 pa_debug.write(g_module_name,pa_debug.g_err_stage,
74 l_debug_level5);
75 pa_debug.g_err_stage:= 'p_number_of_displayed_rows = '|| p_number_of_displayed_rows;
76 pa_debug.write(g_module_name,pa_debug.g_err_stage,
77 l_debug_level5);
78 pa_debug.g_err_stage:= 'p_expand_collapse_flag = '|| p_expand_collapse_flag;
79 pa_debug.write(g_module_name,pa_debug.g_err_stage,
80 l_debug_level5);
81 pa_debug.g_err_stage:= 'p_show_additional_col_flag = '|| p_show_additional_col_flag;
82 pa_debug.write(g_module_name,pa_debug.g_err_stage,
83 l_debug_level5);
84 pa_debug.g_err_stage:= 'p_focus_enabled_flag = '|| p_focus_enabled_flag;
85 pa_debug.write(g_module_name,pa_debug.g_err_stage,
86 l_debug_level5);
87 pa_debug.g_err_stage:= 'p_show_header_ui_flag = '|| p_show_header_ui_flag;
88 pa_debug.write(g_module_name,pa_debug.g_err_stage,
89 l_debug_level5);
90
91 END IF;
92
93 IF (p_gantt_view_id IS NULL) OR
94 (p_gantt_config_usage IS NULL) OR
95 (p_name IS NULL) OR
96 (p_filter_code IS NULL) OR
97 (p_time_scale_code IS NULL) OR
98 (p_number_of_displayed_rows IS NULL) OR
99 (p_expand_collapse_flag IS NULL) OR
100 (p_show_additional_col_flag IS NULL) OR
101 (p_focus_enabled_flag IS NULL) OR
102 (p_show_header_ui_flag IS NULL)
103 THEN
104 PA_UTILS.ADD_MESSAGE
105 (p_app_short_name => 'PA',
106 p_msg_name => 'PA_INV_PARAM_PASSED');
107 RAISE Invalid_Arg_Exc_GC;
108
109 END IF;
110
111 /* Give a call to pa_gantt_config_pvt.create_gantt_config */
112 PA_GANTT_CONFIG_PVT.CREATE_GANTT_CONFIG (
113 P_COMMIT => P_COMMIT
114 ,P_CALLING_MODULE => P_CALLING_MODULE
115 ,P_GANTT_VIEW_ID => P_GANTT_VIEW_ID
116 ,P_GANTT_CONFIG_USAGE => P_GANTT_CONFIG_USAGE
117 ,P_FILTER_CODE => P_FILTER_CODE
118 ,P_TIME_SCALE_CODE => P_TIME_SCALE_CODE
119 ,P_EXPAND_COLLAPSE_FLAG => P_EXPAND_COLLAPSE_FLAG
120 ,P_NUMBER_OF_DISPLAYED_ROWS => P_NUMBER_OF_DISPLAYED_ROWS
121 ,P_SHOW_ADDITIONAL_COL_FLAG => P_SHOW_ADDITIONAL_COL_FLAG
122 ,P_FOCUS_ENABLED_FLAG => P_FOCUS_ENABLED_FLAG
123 ,P_SHOW_HEADER_UI_FLAG => P_SHOW_HEADER_UI_FLAG
124 ,P_NAME => P_NAME
125 ,P_DESCRIPTION => P_DESCRIPTION
126 ,PX_GANTT_CONFIG_ID => PX_GANTT_CONFIG_ID
127 ,X_RETURN_STATUS => X_RETURN_STATUS
128 ,X_MSG_COUNT => X_MSG_COUNT
129 ,X_MSG_DATA => X_MSG_DATA
130 );
131
132 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
133 IF l_debug_mode = 'Y' THEN
134 pa_debug.g_err_stage := 'Error in creating gantt config ';
135 pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level4);
136 END IF;
137 Raise Invalid_Arg_Exc_GC;
138 END IF;
139
140 IF l_debug_mode = 'Y' THEN
141 pa_debug.g_err_stage:= 'gantt config id : ' || px_gantt_config_id;
142 pa_debug.write(g_module_name,pa_debug.g_err_stage,
143 l_debug_level3);
144 END IF;
145
146 IF l_debug_mode = 'Y' THEN
147 pa_debug.g_err_stage:= 'Exiting CREATE_GANTT_CONFIG';
148 pa_debug.write(g_module_name,pa_debug.g_err_stage,
149 l_debug_level3);
150 pa_debug.reset_curr_function;
151 END IF;
152 EXCEPTION
153
154 WHEN Invalid_Arg_Exc_GC THEN
155
156 x_return_status := FND_API.G_RET_STS_ERROR;
157 l_msg_count := FND_MSG_PUB.count_msg;
158
159 IF l_msg_count = 1 and x_msg_data IS NULL THEN
160 PA_INTERFACE_UTILS_PUB.get_messages
161 (p_encoded => FND_API.G_TRUE
162 ,p_msg_index => 1
163 ,p_msg_count => l_msg_count
164 ,p_msg_data => l_msg_data
165 ,p_data => l_data
166 ,p_msg_index_out => l_msg_index_out);
167 x_msg_data := l_data;
168 x_msg_count := l_msg_count;
169 ELSE
170 x_msg_count := l_msg_count;
171 END IF;
172 IF l_debug_mode = 'Y' THEN
173 pa_debug.reset_curr_function;
174 END IF;
175
176 RETURN;
177
178 WHEN others THEN
179
180 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181 x_msg_count := 1;
182 x_msg_data := SQLERRM;
183
184 FND_MSG_PUB.add_exc_msg
185 ( p_pkg_name => 'PA_GANTT_CONFIG_PUB'
186 ,p_procedure_name => 'CREATE_GANTT_CONFIG'
187 ,p_error_text => x_msg_data);
188
189 IF l_debug_mode = 'Y' THEN
190 pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
191 pa_debug.write(g_module_name,pa_debug.g_err_stage,
192 l_debug_level5);
193 pa_debug.reset_curr_function;
194 END IF;
195 RAISE;
196 END CREATE_GANTT_CONFIG;
197
198
199 procedure UPDATE_GANTT_CONFIG (
200 P_COMMIT in VARCHAR2,
201 P_CALLING_MODULE in VARCHAR2,
202 P_GANTT_CONFIG_ID in PA_GANTT_CONFIG_B.gantt_config_id%TYPE,
203 P_GANTT_VIEW_ID in PA_GANTT_CONFIG_B.gantt_view_id%TYPE,
204 P_GANTT_CONFIG_USAGE in PA_GANTT_CONFIG_B.gantt_config_usage%TYPE,
205 P_FILTER_CODE in PA_GANTT_CONFIG_B.filter_code%TYPE,
206 P_TIME_SCALE_CODE in PA_GANTT_CONFIG_B.time_scale_code%TYPE,
207 P_EXPAND_COLLAPSE_FLAG in PA_GANTT_CONFIG_B.expand_collapse_flag%TYPE,
208 P_NUMBER_OF_DISPLAYED_ROWS in PA_GANTT_CONFIG_B.number_of_displayed_rows%TYPE,
209 P_SHOW_ADDITIONAL_COL_FLAG in PA_GANTT_CONFIG_B.show_additional_col_flag%TYPE,
210 P_FOCUS_ENABLED_FLAG in PA_GANTT_CONFIG_B.focus_enabled_flag%TYPE,
211 P_SHOW_HEADER_UI_FLAG in PA_GANTT_CONFIG_B.show_header_ui_flag%TYPE,
212 P_RECORD_VERSION_NUMBER in PA_GANTT_CONFIG_B.RECORD_VERSION_NUMBER%TYPE,
213 P_NAME in PA_GANTT_CONFIG_TL.name%TYPE,
214 P_DESCRIPTION in PA_GANTT_CONFIG_TL.description%TYPE,
215 X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
216 X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
217 X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
218 )
219 AS
220
221 l_msg_count NUMBER := 0;
222 l_data VARCHAR2(2000);
223 l_msg_data VARCHAR2(2000);
224 l_msg_index_out NUMBER;
225 l_debug_mode VARCHAR2(1);
226
227 l_debug_level2 CONSTANT NUMBER := 2;
228 l_debug_level3 CONSTANT NUMBER := 3;
229 l_debug_level4 CONSTANT NUMBER := 4;
230 l_debug_level5 CONSTANT NUMBER := 5;
231
232 BEGIN
233
234 x_msg_count := 0;
235 x_return_status := FND_API.G_RET_STS_SUCCESS;
236 l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
237
238 IF l_debug_mode = 'Y' THEN
239 pa_debug.set_curr_function( p_function => 'UPDATE_GANTT_CONFIG',
240 p_debug_mode => l_debug_mode );
241 END IF;
242
243 -- Check for business rules violations
244 IF l_debug_mode = 'Y' THEN
245 pa_debug.g_err_stage:= 'Validating input parameters';
246 pa_debug.write(g_module_name,pa_debug.g_err_stage,
247 l_debug_level3);
248 END IF;
249
250 IF l_debug_mode = 'Y' THEN
251 pa_debug.g_err_stage:= 'p_gantt_view_id = '|| p_gantt_view_id;
252 pa_debug.write(g_module_name,pa_debug.g_err_stage,
253 l_debug_level5);
254 pa_debug.g_err_stage:= 'p_gantt_config_usage = '|| p_gantt_config_usage;
255 pa_debug.write(g_module_name,pa_debug.g_err_stage,
256 l_debug_level5);
257 pa_debug.g_err_stage:= 'p_name = '|| p_name;
258 pa_debug.write(g_module_name,pa_debug.g_err_stage,
259 l_debug_level5);
260 pa_debug.g_err_stage:= 'p_filter_code = '|| p_filter_code;
261 pa_debug.write(g_module_name,pa_debug.g_err_stage,
262 l_debug_level5);
263 pa_debug.g_err_stage:= 'p_time_scale_code = '|| p_time_scale_code;
264 pa_debug.write(g_module_name,pa_debug.g_err_stage,
265 l_debug_level5);
266 pa_debug.g_err_stage:= 'p_number_of_displayed_rows = '|| p_number_of_displayed_rows;
267 pa_debug.write(g_module_name,pa_debug.g_err_stage,
268 l_debug_level5);
269 pa_debug.g_err_stage:= 'p_expand_collapse_flag = '|| p_expand_collapse_flag;
270 pa_debug.write(g_module_name,pa_debug.g_err_stage,
271 l_debug_level5);
272 pa_debug.g_err_stage:= 'p_show_additional_col_flag = '|| p_show_additional_col_flag;
273 pa_debug.write(g_module_name,pa_debug.g_err_stage,
274 l_debug_level5);
275 pa_debug.g_err_stage:= 'p_focus_enabled_flag = '|| p_focus_enabled_flag;
276 pa_debug.write(g_module_name,pa_debug.g_err_stage,
277 l_debug_level5);
278 pa_debug.g_err_stage:= 'p_show_header_ui_flag = '|| p_show_header_ui_flag;
279 pa_debug.write(g_module_name,pa_debug.g_err_stage,
280 l_debug_level5);
281 END IF;
282
283 IF (p_gantt_view_id IS NULL) OR
284 (p_gantt_config_usage IS NULL) OR
285 (p_name IS NULL) OR
286 (p_filter_code IS NULL) OR
287 (p_time_scale_code IS NULL) OR
288 (p_number_of_displayed_rows IS NULL) OR
289 (p_expand_collapse_flag IS NULL) OR
290 (p_show_additional_col_flag IS NULL) OR
291 (p_focus_enabled_flag IS NULL) OR
292 (p_show_header_ui_flag IS NULL)
293 THEN
294 PA_UTILS.ADD_MESSAGE
295 (p_app_short_name => 'PA',
296 p_msg_name => 'PA_INV_PARAM_PASSED');
297 RAISE Invalid_Arg_Exc_GC;
298
299 END IF;
300
301
302 PA_GANTT_CONFIG_PVT.UPDATE_GANTT_CONFIG (
303 P_COMMIT => P_COMMIT
304 ,P_CALLING_MODULE => P_CALLING_MODULE
305 ,P_GANTT_CONFIG_ID => P_GANTT_CONFIG_ID
306 ,P_GANTT_VIEW_ID => P_GANTT_VIEW_ID
307 ,P_GANTT_CONFIG_USAGE => P_GANTT_CONFIG_USAGE
308 ,P_FILTER_CODE => P_FILTER_CODE
309 ,P_TIME_SCALE_CODE => P_TIME_SCALE_CODE
310 ,P_EXPAND_COLLAPSE_FLAG => P_EXPAND_COLLAPSE_FLAG
311 ,P_NUMBER_OF_DISPLAYED_ROWS => P_NUMBER_OF_DISPLAYED_ROWS
312 ,P_SHOW_ADDITIONAL_COL_FLAG => P_SHOW_ADDITIONAL_COL_FLAG
313 ,P_FOCUS_ENABLED_FLAG => P_FOCUS_ENABLED_FLAG
314 ,P_SHOW_HEADER_UI_FLAG => P_SHOW_HEADER_UI_FLAG
315 ,P_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER
316 ,P_NAME => P_NAME
317 ,P_DESCRIPTION => P_DESCRIPTION
318 ,X_RETURN_STATUS => X_RETURN_STATUS
319 ,X_MSG_COUNT => X_MSG_COUNT
320 ,X_MSG_DATA => X_MSG_DATA
321 );
322 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
323 IF l_debug_mode = 'Y' THEN
324 pa_debug.g_err_stage := 'Error in updating gantt config ';
325 pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level4);
326 END IF;
327 Raise Invalid_Arg_Exc_GC;
328 END IF;
329
330 IF l_debug_mode = 'Y' THEN
331 pa_debug.g_err_stage:= 'Exiting UPDATE_GANTT_CONFIG';
332 pa_debug.write(g_module_name,pa_debug.g_err_stage,
333 l_debug_level3);
334 pa_debug.reset_curr_function;
335 END IF;
336 EXCEPTION
337
338 WHEN Invalid_Arg_Exc_GC THEN
339
340 x_return_status := FND_API.G_RET_STS_ERROR;
341 l_msg_count := FND_MSG_PUB.count_msg;
342
343 IF l_msg_count = 1 and x_msg_data IS NULL THEN
344 PA_INTERFACE_UTILS_PUB.get_messages
345 (p_encoded => FND_API.G_TRUE
346 ,p_msg_index => 1
347 ,p_msg_count => l_msg_count
348 ,p_msg_data => l_msg_data
349 ,p_data => l_data
350 ,p_msg_index_out => l_msg_index_out);
351 x_msg_data := l_data;
352 x_msg_count := l_msg_count;
353 ELSE
354 x_msg_count := l_msg_count;
355 END IF;
356 IF l_debug_mode = 'Y' THEN
357 pa_debug.reset_curr_function;
358 END IF;
359
360 RETURN;
361
362 WHEN others THEN
363
364 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
365 x_msg_count := 1;
366 x_msg_data := SQLERRM;
367
368 FND_MSG_PUB.add_exc_msg
369 ( p_pkg_name => 'PA_GANTT_CONFIG_PUB'
370 ,p_procedure_name => 'UPDATE_GANTT_CONFIG'
371 ,p_error_text => x_msg_data);
372
373 IF l_debug_mode = 'Y' THEN
374 pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
375 pa_debug.write(g_module_name,pa_debug.g_err_stage,
376 l_debug_level5);
377 pa_debug.reset_curr_function;
378 END IF;
379 RAISE;
380 END UPDATE_GANTT_CONFIG;
381
382
383 procedure DELETE_GANTT_CONFIG (
384 P_COMMIT in VARCHAR2 := 'N',
385 P_CALLING_MODULE in VARCHAR2 := 'SELF_SERVICE',
386 P_GANTT_CONFIG_ID in PA_GANTT_CONFIG_B.gantt_config_id%TYPE,
387 P_RECORD_VERSION_NUMBER in PA_GANTT_CONFIG_B.RECORD_VERSION_NUMBER%TYPE,
388 X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
389 X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
390 X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
391 )
392 AS
393
394 l_msg_count NUMBER := 0;
395 l_data VARCHAR2(2000);
396 l_msg_data VARCHAR2(2000);
397 l_msg_index_out NUMBER;
398 l_debug_mode VARCHAR2(1);
399
400 l_debug_level2 CONSTANT NUMBER := 2;
401 l_debug_level3 CONSTANT NUMBER := 3;
402 l_debug_level4 CONSTANT NUMBER := 4;
403 l_debug_level5 CONSTANT NUMBER := 5;
404
405 BEGIN
406
407 x_msg_count := 0;
408 x_return_status := FND_API.G_RET_STS_SUCCESS;
409 l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
410
411 IF l_debug_mode = 'Y' THEN
412 pa_debug.set_curr_function( p_function => 'DELETE_GANTT_CONFIG',
413 p_debug_mode => l_debug_mode );
414 END IF;
415
416 -- Check for business rules violations
417 IF l_debug_mode = 'Y' THEN
418 pa_debug.g_err_stage:= 'P_GANTT_CONFIG_ID = '|| P_GANTT_CONFIG_ID;
419 pa_debug.write(g_module_name,pa_debug.g_err_stage,
420 l_debug_level5);
421 pa_debug.g_err_stage:= 'P_RECORD_VERSION_NUMBER = '|| P_RECORD_VERSION_NUMBER;
422 pa_debug.write(g_module_name,pa_debug.g_err_stage,
423 l_debug_level5);
424 END IF;
425
426 IF (P_GANTT_CONFIG_ID IS NULL) OR
427 (P_RECORD_VERSION_NUMBER IS NULL)
428 THEN
429 PA_UTILS.ADD_MESSAGE
430 (p_app_short_name => 'PA',
431 p_msg_name => 'PA_INV_PARAM_PASSED');
432 RAISE Invalid_Arg_Exc_GC;
433 END IF;
434
435 PA_GANTT_CONFIG_PVT.DELETE_GANTT_CONFIG (
436 P_COMMIT => P_COMMIT
437 ,P_CALLING_MODULE => P_CALLING_MODULE
438 ,P_GANTT_CONFIG_ID => P_GANTT_CONFIG_ID
439 ,P_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER
440 ,X_RETURN_STATUS => X_RETURN_STATUS
441 ,X_MSG_COUNT => X_MSG_COUNT
442 ,X_MSG_DATA => X_MSG_DATA
443 );
444
445 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
446 IF l_debug_mode = 'Y' THEN
447 pa_debug.g_err_stage := 'Error in deleting gantt config ';
448 pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level4);
449 END IF;
450 Raise Invalid_Arg_Exc_GC;
451 END IF;
452
453 IF l_debug_mode = 'Y' THEN
454 pa_debug.g_err_stage:= 'Exiting DELETE_GANTT_CONFIG';
455 pa_debug.write(g_module_name,pa_debug.g_err_stage,
456 l_debug_level3);
457 pa_debug.reset_curr_function;
458 END IF;
459 EXCEPTION
460
461 WHEN Invalid_Arg_Exc_GC THEN
462
463 x_return_status := FND_API.G_RET_STS_ERROR;
464 l_msg_count := FND_MSG_PUB.count_msg;
465
466 IF l_msg_count = 1 and x_msg_data IS NULL THEN
467 PA_INTERFACE_UTILS_PUB.get_messages
468 (p_encoded => FND_API.G_TRUE
469 ,p_msg_index => 1
470 ,p_msg_count => l_msg_count
471 ,p_msg_data => l_msg_data
472 ,p_data => l_data
473 ,p_msg_index_out => l_msg_index_out);
474 x_msg_data := l_data;
475 x_msg_count := l_msg_count;
476 ELSE
477 x_msg_count := l_msg_count;
478 END IF;
479 IF l_debug_mode = 'Y' THEN
480 pa_debug.reset_curr_function;
481 END IF;
482
483 RETURN;
484
485 WHEN others THEN
486
487 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
488 x_msg_count := 1;
489 x_msg_data := SQLERRM;
490
491 FND_MSG_PUB.add_exc_msg
492 ( p_pkg_name => 'PA_GANTT_CONFIG_PUB'
493 ,p_procedure_name => 'DELETE_GANTT_CONFIG'
494 ,p_error_text => x_msg_data);
495
496 IF l_debug_mode = 'Y' THEN
497 pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
498 pa_debug.write(g_module_name,pa_debug.g_err_stage,
499 l_debug_level5);
500 pa_debug.reset_curr_function;
501 END IF;
502 RAISE;
503 END DELETE_GANTT_CONFIG;
504
505 END PA_GANTT_CONFIG_PUB;