[Home] [Help]
PACKAGE BODY: APPS.JTF_PERZ_DDF_PUB
Source
1 PACKAGE BODY JTF_PERZ_DDF_PUB as
2 /* $Header: jtfzpddb.pls 120.2 2005/11/02 03:03:43 skothe ship $ */
3 --
4 --
5 -- Start of Comments
6 --
7 -- NAME
8 -- jtf_perz_ddf_pub
9 --
10 -- PURPOSE
11 -- Public API for creating, getting, updating and deleteing data defaults
12 -- in the Personalization Framework.
13 --
14 -- NOTES
15 -- This is a pulicly accessible pacakge. It should be used by all
16 -- sources for creating, getting, updating and deleting personalized data defaults
17 -- in the Personalization Framework.
18 --
19 -- HISTORY
20 -- 09/14/99 SMATTEGU Created and documented the following
21 -- save_data_default()
22 -- create_data_default()
23 -- get_data_default()
24 -- update_data_default()
25 -- delete_data_default()
26 --
27 -- End of Comments
28 --
29 G_PKG_NAME CONSTANT VARCHAR2(30):='JTF_PERZ_DDF_PUB';
30 G_FILE_NAME CONSTANT VARCHAR2(12):='jtfppddb.pls';
31
32
33 -- ****************************************************************************
34
35 -- *****************************************************************************
36 --
37 PROCEDURE save_data_default
38 ( p_api_version_number IN NUMBER,
39 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
40 p_commit IN VARCHAR := FND_API.G_FALSE,
41
42 p_application_id IN NUMBER,
43
44 p_profile_id IN NUMBER,
45 p_profile_name IN VARCHAR2,
46 p_profile_type IN VARCHAR2,
47 p_profile_attrib IN JTF_PERZ_PROFILE_PUB.PROFILE_ATTRIB_TBL_TYPE
48 := JTF_PERZ_PROFILE_PUB.G_MISS_PROFILE_ATTRIB_TBL,
49
50 p_perz_ddf_id IN NUMBER ,
51 p_perz_ddf_context IN VARCHAR2 ,
52
53 p_gui_object_name IN VARCHAR2 ,
54 p_gui_object_id IN NUMBER ,
55 p_ddf_value IN VARCHAR2 ,
56 p_ddf_value_type IN VARCHAR2 ,
57
58 x_perz_ddf_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
59
60 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
61 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
62 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
63 )IS
64
65 -- ******* save_data_default Local Variables ********
66 -- Following variables are needed to adhere to standards
67 l_api_version_number NUMBER := p_api_version_number;
68 l_api_name CONSTANT VARCHAR2(30) := 'save_data_default';
69 -- Following variables are needed for implementation
70 --l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
71
72 BEGIN
73
74
75 -- ******* save_data_default Standard Begins ********
76
77 -- Standard Start of API savepoint
78 SAVEPOINT SAVE_PERZ_DDF_PUB;
79
80 -- Standard call to check for call compatibility.
81 -- IF NOT FND_API.Compatible_API_Call (
82 -- l_api_version_number,
83 -- p_api_version_number,
84 -- l_api_name,
85 -- G_PKG_NAME)
86 -- THEN
87 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
88 -- END IF;
89
90 -- Initialize message list if p_init_msg_list is set to TRUE.
91 IF FND_API.to_Boolean( p_init_msg_list )
92 THEN
93 FND_MSG_PUB.initialize;
94 END IF;
95
96 -- Initialize API return status to success
97 x_return_status := FND_API.G_RET_STS_SUCCESS;
98
99 JTF_PERZ_DDF_PVT.save_data_default
100 ( p_api_version_number ,
101 p_init_msg_list ,
102 p_commit ,
103
104 p_application_id ,
105
106 p_profile_id ,
107 p_profile_name ,
108 p_profile_type ,
109 p_profile_attrib ,
110
111 p_perz_ddf_id ,
112 p_perz_ddf_context ,
113
114 p_gui_object_name ,
115 p_gui_object_id ,
116 p_ddf_value ,
117 p_ddf_value_type ,
118
119 x_perz_ddf_id ,
120
121 x_return_status ,
122 x_msg_count ,
123 x_msg_data
124 );
125
126
127
128 -- ******** Standard Ends ***********
129 --
130 -- End of API body.
131 --
132 -- 7. Commit the whole thing
133
134 -- Standard check of p_commit.
135 IF FND_API.To_Boolean ( p_commit )
136 THEN
137 COMMIT WORK;
138 END IF;
139
140 -- Debug Message
141 -- Standard call to get message count and if count is 1, get message info.
142 FND_MSG_PUB.Count_And_Get
143 (
144 p_count => x_msg_count,
145 p_data => x_msg_data
146 );
147
148
149 EXCEPTION
150
151 WHEN FND_API.G_EXC_ERROR THEN
152
153 ROLLBACK TO SAVE_PERZ_DDF_PUB;
154 x_return_status := FND_API.G_RET_STS_ERROR ;
155
156 FND_MSG_PUB.Count_And_Get
157 ( p_count => x_msg_count,
158 p_data => x_msg_data
159 );
160
161 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
162 THEN
163 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
164 END IF;
165
166 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167
168 ROLLBACK TO SAVE_PERZ_DDF_PUB;
169 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
170
171 FND_MSG_PUB.Count_And_Get
172 ( p_count => x_msg_count,
173 p_data => x_msg_data
174 );
175
176 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
177 THEN
178 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
179 END IF;
180
181 WHEN OTHERS THEN
182
183 ROLLBACK TO SAVE_PERZ_DDF_PUB;
184 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
185
186 FND_MSG_PUB.Count_And_Get
187 ( p_count => x_msg_count,
188 p_data => x_msg_data
189 );
190
191 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
192 THEN
193 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
194 END IF;
195
196 END save_data_default;
197 -- *****************************************************************************
198
199 PROCEDURE create_data_default
200 (
201 p_api_version_number IN NUMBER,
202 p_init_msg_list IN VARCHAR2,
203 p_commit IN VARCHAR,
204
205 p_application_id IN NUMBER,
206
207 p_profile_id IN NUMBER,
208 p_profile_name IN VARCHAR2,
209
210 p_perz_ddf_id IN NUMBER,
211 p_perz_ddf_context IN VARCHAR2,
212
213 p_gui_object_name IN VARCHAR2,
214 p_gui_object_id IN NUMBER,
215 p_ddf_value IN VARCHAR2,
216 p_ddf_value_type IN VARCHAR2,
217
218 x_perz_ddf_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
219
220 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
221 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
222 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
223 )IS
224 -- ******* save_data_default Local Variables ********
225 -- Following variables are needed to adhere to standards
226 l_api_version_number NUMBER := p_api_version_number;
227 l_api_name CONSTANT VARCHAR2(30) := 'save_data_default';
228 -- Following variables are needed for implementation
229 --l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
230
231 BEGIN
232
233
234 -- ******* save_data_default Standard Begins ********
235
236 -- Standard Start of API savepoint
237 SAVEPOINT CREATE_PERZ_DDF_PUB;
238
239 -- Standard call to check for call compatibility.
240 -- IF NOT FND_API.Compatible_API_Call (
241 -- l_api_version_number,
242 -- p_api_version_number,
243 -- l_api_name,
244 -- G_PKG_NAME)
245 -- THEN
246 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247 -- END IF;
248
249 -- Initialize message list if p_init_msg_list is set to TRUE.
250 IF FND_API.to_Boolean( p_init_msg_list )
251 THEN
252 FND_MSG_PUB.initialize;
253 END IF;
254
255 -- Initialize API return status to success
256 x_return_status := FND_API.G_RET_STS_SUCCESS;
257
258 JTF_PERZ_DDF_PVT.create_data_default
259 (
260 p_api_version_number ,
261 p_init_msg_list ,
262 p_commit ,
263
264 p_application_id ,
265
266 p_profile_id ,
267 p_profile_name ,
268
269 p_perz_ddf_id ,
270 p_perz_ddf_context ,
271
272 p_gui_object_name ,
273 p_gui_object_id ,
274 p_ddf_value ,
275 p_ddf_value_type ,
276
277 x_perz_ddf_id ,
278
279 x_return_status ,
280 x_msg_count ,
281 x_msg_data
282 );
283
284
285
286 -- ******** Standard Ends ***********
287 --
288 -- End of API body.
289 --
290 -- 7. Commit the whole thing
291
292 -- Standard check of p_commit.
293 IF FND_API.To_Boolean ( p_commit )
294 THEN
295 COMMIT WORK;
296 END IF;
297
298 -- Debug Message
299 -- Standard call to get message count and if count is 1, get message info.
300 FND_MSG_PUB.Count_And_Get
301 (
302 p_count => x_msg_count,
303 p_data => x_msg_data
304 );
305
306
307 EXCEPTION
308
309 WHEN FND_API.G_EXC_ERROR THEN
310
311 ROLLBACK TO CREATE_PERZ_DDF_PUB;
312 x_return_status := FND_API.G_RET_STS_ERROR ;
313
314 FND_MSG_PUB.Count_And_Get
315 ( p_count => x_msg_count,
316 p_data => x_msg_data
317 );
318
319 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
320 THEN
321 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
322 END IF;
323
324 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
325
326 ROLLBACK TO CREATE_PERZ_DDF_PUB;
327 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
328
329 FND_MSG_PUB.Count_And_Get
330 ( p_count => x_msg_count,
331 p_data => x_msg_data
332 );
333
334 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
335 THEN
336 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
337 END IF;
338
339 WHEN OTHERS THEN
340
341 ROLLBACK TO CREATE_PERZ_DDF_PUB;
342 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
343
344 FND_MSG_PUB.Count_And_Get
345 ( p_count => x_msg_count,
346 p_data => x_msg_data
347 );
348
349 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
350 THEN
351 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
352 END IF;
353
354 END create_data_default;
355
356 -- *****************************************************************************
357
358 PROCEDURE get_data_default
359 ( p_api_version_number IN NUMBER,
360 p_init_msg_list IN VARCHAR2,
361
362 p_application_id IN NUMBER,
363
364 p_profile_id IN NUMBER,
365 p_profile_name IN VARCHAR2,
366
367 p_perz_ddf_id IN NUMBER,
368 p_perz_ddf_context IN VARCHAR2,
369
370 p_gui_object_name IN VARCHAR2,
371 p_gui_object_id IN NUMBER,
372
373 p_ddf_value IN VARCHAR2,
374 p_ddf_value_type IN VARCHAR2,
375
376 x_ddf_out_tbl OUT NOCOPY /* file.sql.39 change */ jtf_perz_ddf_pub.DDF_OUT_TBL_TYPE,
377 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
378 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
379 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
380 )IS
381 -- ******* save_data_default Local Variables ********
382 -- Following variables are needed to adhere to standards
383 l_api_version_number NUMBER := p_api_version_number;
384 l_api_name CONSTANT VARCHAR2(30) := 'save_data_default';
385 -- Following variables are needed for implementation
386 --l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
387
388 BEGIN
389
390
391 -- ******* save_data_default Standard Begins ********
392
393 -- Standard call to check for call compatibility.
394 -- IF NOT FND_API.Compatible_API_Call (
395 -- l_api_version_number,
396 -- p_api_version_number,
397 -- l_api_name,
398 -- G_PKG_NAME)
399 -- THEN
400 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
401 -- END IF;
402
403 -- Initialize message list if p_init_msg_list is set to TRUE.
404 IF FND_API.to_Boolean( p_init_msg_list )
405 THEN
406 FND_MSG_PUB.initialize;
407 END IF;
408
409 -- Initialize API return status to success
410 x_return_status := FND_API.G_RET_STS_SUCCESS;
411
412 JTF_PERZ_DDF_PVT.get_data_default
413 ( p_api_version_number ,
414 p_init_msg_list ,
415
416 p_application_id ,
417
418 p_profile_id ,
419 p_profile_name ,
420
421 p_perz_ddf_id ,
422 p_perz_ddf_context ,
423
424 p_gui_object_name ,
425 p_gui_object_id ,
426
427 p_ddf_value ,
428 p_ddf_value_type ,
429
430 x_ddf_out_tbl ,
431 x_return_status ,
432 x_msg_count ,
433 x_msg_data
434 );
435
436 -- ******** Standard Ends ***********
437 --
438 -- End of API body.
439 --
440 --
441 -- Debug Message
442 -- Standard call to get message count and if count is 1, get message info.
443 FND_MSG_PUB.Count_And_Get
444 (
445 p_count => x_msg_count,
446 p_data => x_msg_data
447 );
448
449
450 EXCEPTION
451
452 WHEN FND_API.G_EXC_ERROR THEN
453
454 x_return_status := FND_API.G_RET_STS_ERROR ;
455
456 FND_MSG_PUB.Count_And_Get
457 ( p_count => x_msg_count,
458 p_data => x_msg_data
459 );
460
461 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
462 THEN
463 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
464 END IF;
465
466 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
467
468 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
469
470 FND_MSG_PUB.Count_And_Get
471 ( p_count => x_msg_count,
472 p_data => x_msg_data
473 );
474
475 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
476 THEN
477 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
478 END IF;
479
480 WHEN OTHERS THEN
481
482 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
483
484 FND_MSG_PUB.Count_And_Get
485 ( p_count => x_msg_count,
486 p_data => x_msg_data
487 );
488
489 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
490 THEN
491 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
492 END IF;
493
497 PROCEDURE update_data_default
494 END get_data_default;
495 -- *****************************************************************************
496
498 (
499 p_api_version_number IN NUMBER,
500 p_init_msg_list IN VARCHAR2,
501 p_commit IN VARCHAR,
502
503 p_application_id IN NUMBER,
504
505 p_profile_id IN NUMBER,
506 p_profile_name IN VARCHAR2,
507
508 p_perz_ddf_id IN NUMBER,
509 p_perz_ddf_context IN VARCHAR2,
510
511 p_gui_object_name IN VARCHAR2,
512 p_gui_object_id IN NUMBER,
513 p_ddf_value IN VARCHAR2,
514 p_ddf_value_type IN VARCHAR2,
515
516 x_perz_ddf_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
517
518 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
519 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
520 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
521 )IS
522 -- ******* save_data_default Local Variables ********
523 -- Following variables are needed to adhere to standards
524 l_api_version_number NUMBER := p_api_version_number;
525 l_api_name CONSTANT VARCHAR2(30) := 'save_data_default';
526 -- Following variables are needed for implementation
527 --l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
528
529 BEGIN
530
531
532 -- ******* save_data_default Standard Begins ********
533
534 -- Standard Start of API savepoint
535 SAVEPOINT UPDATE_PERZ_DDF_PUB;
536
537 -- Standard call to check for call compatibility.
538 -- IF NOT FND_API.Compatible_API_Call (
539 -- l_api_version_number,
540 -- p_api_version_number,
541 -- l_api_name,
542 -- G_PKG_NAME)
543 -- THEN
544 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
545 -- END IF;
546
547 -- Initialize message list if p_init_msg_list is set to TRUE.
548 IF FND_API.to_Boolean( p_init_msg_list )
549 THEN
550 FND_MSG_PUB.initialize;
551 END IF;
552
553 -- Initialize API return status to success
554 x_return_status := FND_API.G_RET_STS_SUCCESS;
555
556 JTF_PERZ_DDF_PVT.update_data_default
557 (
558 p_api_version_number ,
559 p_init_msg_list ,
560 p_commit ,
561
562 p_application_id ,
563
564 p_profile_id ,
565 p_profile_name ,
566
567 p_perz_ddf_id ,
568 p_perz_ddf_context ,
569
570 p_gui_object_name ,
571 p_gui_object_id ,
572 p_ddf_value ,
573 p_ddf_value_type ,
574
575 x_perz_ddf_id ,
576
577 x_return_status ,
578 x_msg_count ,
579 x_msg_data
580 );
581
582
583 -- ******** Standard Ends ***********
584 --
585 -- End of API body.
586 --
587 -- 7. Commit the whole thing
588
589 -- Standard check of p_commit.
590 IF FND_API.To_Boolean ( p_commit )
591 THEN
592 COMMIT WORK;
593 END IF;
594
595 -- Debug Message
596 -- Standard call to get message count and if count is 1, get message info.
597 FND_MSG_PUB.Count_And_Get
598 (
599 p_count => x_msg_count,
600 p_data => x_msg_data
601 );
602
603
604 EXCEPTION
605
606 WHEN FND_API.G_EXC_ERROR THEN
607
608 ROLLBACK TO UPDATE_PERZ_DDF_PUB;
609 x_return_status := FND_API.G_RET_STS_ERROR ;
610
611 FND_MSG_PUB.Count_And_Get
612 ( p_count => x_msg_count,
613 p_data => x_msg_data
614 );
615
616 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
617 THEN
618 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
619 END IF;
620
621 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
622
623 ROLLBACK TO UPDATE_PERZ_DDF_PUB;
624 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
625
626 FND_MSG_PUB.Count_And_Get
627 ( p_count => x_msg_count,
628 p_data => x_msg_data
629 );
630
631 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
632 THEN
633 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
634 END IF;
635
636 WHEN OTHERS THEN
637
638 ROLLBACK TO UPDATE_PERZ_DDF_PUB;
639 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
640
641 FND_MSG_PUB.Count_And_Get
642 ( p_count => x_msg_count,
643 p_data => x_msg_data
644 );
645
646 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
647 THEN
648 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
649 END IF;
650
651
652 END update_data_default;
653
654 -- *****************************************************************************
655
656 PROCEDURE delete_data_default
657 ( p_api_version_number IN NUMBER,
661 p_application_id IN NUMBER,
658 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
659 p_commit IN VARCHAR := FND_API.G_FALSE,
660
662 p_profile_id IN NUMBER,
663 p_perz_ddf_id IN NUMBER,
664
665 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
666 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
667 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
668 )IS
669 -- ******* save_data_default Local Variables ********
670 -- Following variables are needed to adhere to standards
671 l_api_version_number NUMBER := p_api_version_number;
672 l_api_name CONSTANT VARCHAR2(30) := 'save_data_default';
673 -- Following variables are needed for implementation
674 --l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
675
676 BEGIN
677
678
679 -- ******* save_data_default Standard Begins ********
680
681 -- Standard Start of API savepoint
682 SAVEPOINT UPDATE_PERZ_DDF_PUB;
683
684 -- Standard call to check for call compatibility.
685 -- IF NOT FND_API.Compatible_API_Call (
686 -- l_api_version_number,
687 -- p_api_version_number,
688 -- l_api_name,
689 -- G_PKG_NAME)
690 -- THEN
691 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
692 -- END IF;
693
694 -- Initialize message list if p_init_msg_list is set to TRUE.
695 IF FND_API.to_Boolean( p_init_msg_list )
696 THEN
697 FND_MSG_PUB.initialize;
698 END IF;
699
700 -- Initialize API return status to success
701 x_return_status := FND_API.G_RET_STS_SUCCESS;
702
703 JTF_PERZ_DDF_PVT.delete_data_default
704 ( p_api_version_number ,
705 p_init_msg_list ,
706 p_commit ,
707
708 p_application_id ,
709 p_profile_id ,
710 p_perz_ddf_id ,
711
712 x_return_status ,
713 x_msg_count ,
714 x_msg_data
715 );
716
717 -- ******** Standard Ends ***********
718 --
719 -- End of API body.
720 --
721 -- 7. Commit the whole thing
722
723 -- Standard check of p_commit.
724 IF FND_API.To_Boolean ( p_commit )
725 THEN
726 COMMIT WORK;
727 END IF;
728
729 -- Debug Message
730 -- Standard call to get message count and if count is 1, get message info.
731 FND_MSG_PUB.Count_And_Get
732 (
733 p_count => x_msg_count,
734 p_data => x_msg_data
735 );
736
737
738 EXCEPTION
739
740 WHEN FND_API.G_EXC_ERROR THEN
741
742 ROLLBACK TO DELETE_PERZ_DDF_PUB;
743 x_return_status := FND_API.G_RET_STS_ERROR ;
744
745 FND_MSG_PUB.Count_And_Get
746 ( p_count => x_msg_count,
747 p_data => x_msg_data
748 );
749
750 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
751 THEN
752 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
753 END IF;
754
755 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
756
757 ROLLBACK TO DELETE_PERZ_DDF_PUB;
758 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
759
760 FND_MSG_PUB.Count_And_Get
761 ( p_count => x_msg_count,
762 p_data => x_msg_data
763 );
764
765 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
766 THEN
767 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
768 END IF;
769
770 WHEN OTHERS THEN
771
772 ROLLBACK TO DELETE_PERZ_DDF_PUB;
773 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
774
775 FND_MSG_PUB.Count_And_Get
776 ( p_count => x_msg_count,
777 p_data => x_msg_data
778 );
779
780 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
781 THEN
782 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
783 END IF;
784
785 END delete_data_default;
786
787 -- *****************************************************************************
788 -- *****************************************************************************
789 END jtf_perz_ddf_pub;