31: -- *****************************************************************************
32:
33: PROCEDURE Save_Perz_Data
34: ( p_api_version_number IN NUMBER,
35: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
36: p_commit IN VARCHAR := FND_API.G_FALSE,
37:
38: p_application_id IN NUMBER,
39: p_profile_id IN NUMBER,
32:
33: PROCEDURE Save_Perz_Data
34: ( p_api_version_number IN NUMBER,
35: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
36: p_commit IN VARCHAR := FND_API.G_FALSE,
37:
38: p_application_id IN NUMBER,
39: p_profile_id IN NUMBER,
40: p_profile_name IN VARCHAR2,
63: -- Standard Start of API savepoint
64: SAVEPOINT SAVE_PERZ_DATA_PUB;
65:
66: -- -- Standard call to check for call compatibility.
67: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
68: -- THEN
69: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: -- END IF;
71:
65:
66: -- -- Standard call to check for call compatibility.
67: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
68: -- THEN
69: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: -- END IF;
71:
72: -- Initialize message list if p_init_msg_list is set to TRUE.
73: IF FND_API.to_Boolean( p_init_msg_list )
69: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: -- END IF;
71:
72: -- Initialize message list if p_init_msg_list is set to TRUE.
73: IF FND_API.to_Boolean( p_init_msg_list )
74: THEN
75: FND_MSG_PUB.initialize;
76: END IF;
77:
75: FND_MSG_PUB.initialize;
76: END IF;
77:
78: -- Initialize API return status to success
79: x_return_status := FND_API.G_RET_STS_SUCCESS;
80:
81:
82: JTF_PERZ_DATA_PVT.Save_Perz_Data(
83: p_api_version_number,
109: --
110: -- End of main API body.
111:
112: -- Standard check of p_commit.
113: IF (FND_API.To_Boolean(p_commit)) THEN
114: COMMIT WORK;
115: END IF;
116:
117: -- Standard call to get message count and if count is 1, get message info.
119: p_data => x_msg_data );
120:
121: EXCEPTION
122:
123: WHEN FND_API.G_EXC_ERROR THEN
124: -- dbms_output.put_line('stop 1 ');
125:
126: ROLLBACK TO SAVE_PERZ_DATA_PUB;
127: x_return_status := FND_API.G_RET_STS_ERROR ;
123: WHEN FND_API.G_EXC_ERROR THEN
124: -- dbms_output.put_line('stop 1 ');
125:
126: ROLLBACK TO SAVE_PERZ_DATA_PUB;
127: x_return_status := FND_API.G_RET_STS_ERROR ;
128:
129: FND_MSG_PUB.Count_And_Get
130: ( p_count => x_msg_count,
131: p_data => x_msg_data );
129: FND_MSG_PUB.Count_And_Get
130: ( p_count => x_msg_count,
131: p_data => x_msg_data );
132:
133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
134: -- dbms_output.put_line('stop 2 ');
135: ROLLBACK TO SAVE_PERZ_DATA_PUB;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
137: FND_MSG_PUB.Count_And_Get
132:
133: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
134: -- dbms_output.put_line('stop 2 ');
135: ROLLBACK TO SAVE_PERZ_DATA_PUB;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
137: FND_MSG_PUB.Count_And_Get
138: ( p_count => x_msg_count,
139: p_data => x_msg_data );
140:
141:
142: WHEN OTHERS THEN
143: -- dbms_output.put_line('stop 3 ');
144: ROLLBACK TO SAVE_PERZ_DATA_PUB;
145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
146:
147: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
148: THEN
149: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
158: -- *****************************************************************************
159:
160: PROCEDURE Create_Perz_Data
161: ( p_api_version_number IN NUMBER,
162: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
163: p_commit IN VARCHAR := FND_API.G_FALSE,
164:
165: p_application_id IN NUMBER,
166: p_profile_id IN NUMBER,
159:
160: PROCEDURE Create_Perz_Data
161: ( p_api_version_number IN NUMBER,
162: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
163: p_commit IN VARCHAR := FND_API.G_FALSE,
164:
165: p_application_id IN NUMBER,
166: p_profile_id IN NUMBER,
167: p_profile_name IN VARCHAR2,
187: -- Standard Start of API savepoint
188: SAVEPOINT CREATE_PERZ_DATA_PUB;
189:
190: -- -- Standard call to check for call compatibility.
191: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
192: -- THEN
193: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: -- END IF;
195:
189:
190: -- -- Standard call to check for call compatibility.
191: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
192: -- THEN
193: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: -- END IF;
195:
196: -- Initialize message list if p_init_msg_list is set to TRUE.
197: IF FND_API.to_Boolean( p_init_msg_list )
193: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: -- END IF;
195:
196: -- Initialize message list if p_init_msg_list is set to TRUE.
197: IF FND_API.to_Boolean( p_init_msg_list )
198: THEN
199: FND_MSG_PUB.initialize;
200: END IF;
201:
199: FND_MSG_PUB.initialize;
200: END IF;
201:
202: -- Initialize API return status to success
203: x_return_status := FND_API.G_RET_STS_SUCCESS;
204:
205:
206: JTF_PERZ_DATA_PVT.Create_Perz_Data(
207: p_api_version_number,
231: --
232: -- End of main API body.
233:
234: -- Standard check of p_commit.
235: IF (FND_API.To_Boolean(p_commit)) THEN
236: COMMIT WORK;
237: END IF;
238:
239: -- Standard call to get message count and if count is 1, get message info.
241: p_data => x_msg_data );
242:
243: EXCEPTION
244:
245: WHEN FND_API.G_EXC_ERROR THEN
246: -- dbms_output.put_line('stop 1 ');
247:
248: ROLLBACK TO CREATE_PERZ_DATA_PUB;
249: x_return_status := FND_API.G_RET_STS_ERROR ;
245: WHEN FND_API.G_EXC_ERROR THEN
246: -- dbms_output.put_line('stop 1 ');
247:
248: ROLLBACK TO CREATE_PERZ_DATA_PUB;
249: x_return_status := FND_API.G_RET_STS_ERROR ;
250:
251: FND_MSG_PUB.Count_And_Get
252: ( p_count => x_msg_count,
253: p_data => x_msg_data );
251: FND_MSG_PUB.Count_And_Get
252: ( p_count => x_msg_count,
253: p_data => x_msg_data );
254:
255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
256: -- dbms_output.put_line('stop 2 ');
257: ROLLBACK TO CREATE_PERZ_DATA_PUB;
258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
259: FND_MSG_PUB.Count_And_Get
254:
255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
256: -- dbms_output.put_line('stop 2 ');
257: ROLLBACK TO CREATE_PERZ_DATA_PUB;
258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
259: FND_MSG_PUB.Count_And_Get
260: ( p_count => x_msg_count,
261: p_data => x_msg_data );
262:
263:
264: WHEN OTHERS THEN
265: -- dbms_output.put_line('stop 3 ');
266: ROLLBACK TO CREATE_PERZ_DATA_PUB;
267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
268:
269: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
270: THEN
271: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
281: -- *****************************************************************************
282:
283: PROCEDURE Get_Perz_Data
284: ( p_api_version_number IN NUMBER,
285: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
286:
287: p_application_id IN NUMBER,
288: p_profile_id IN NUMBER,
289: p_profile_name IN VARCHAR2,
312: BEGIN
313: -- ******* Standard Begins ********
314:
315: -- -- Standard call to check for call compatibility.
316: -- IF NOT FND_API.Compatible_API_Call
317: -- ( l_api_version_number,
318: -- p_api_version_number, l_api_name, G_PKG_NAME)
319: -- THEN
320: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
316: -- IF NOT FND_API.Compatible_API_Call
317: -- ( l_api_version_number,
318: -- p_api_version_number, l_api_name, G_PKG_NAME)
319: -- THEN
320: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321: -- END IF;
322:
323: -- Initialize message list if p_init_msg_list is set to TRUE.
324: IF FND_API.to_Boolean( p_init_msg_list )
320: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321: -- END IF;
322:
323: -- Initialize message list if p_init_msg_list is set to TRUE.
324: IF FND_API.to_Boolean( p_init_msg_list )
325: THEN
326: FND_MSG_PUB.initialize;
327: END IF;
328:
326: FND_MSG_PUB.initialize;
327: END IF;
328:
329: -- Initialize API return status to success
330: x_return_status := FND_API.G_RET_STS_SUCCESS;
331:
332: JTF_PERZ_DATA_PVT.Get_Perz_Data(
333: p_api_version_number,
334: p_init_msg_list,
360: p_data => x_msg_data );
361:
362: EXCEPTION
363:
364: WHEN FND_API.G_EXC_ERROR THEN
365:
366: x_return_status := FND_API.G_RET_STS_ERROR ;
367:
368: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
362: EXCEPTION
363:
364: WHEN FND_API.G_EXC_ERROR THEN
365:
366: x_return_status := FND_API.G_RET_STS_ERROR ;
367:
368: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
369: p_data => x_msg_data );
370:
367:
368: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
369: p_data => x_msg_data );
370:
371: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
372:
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
374:
375: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
369: p_data => x_msg_data );
370:
371: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
372:
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
374:
375: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
376: p_data => x_msg_data );
377:
376: p_data => x_msg_data );
377:
378: WHEN OTHERS THEN
379:
380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
381:
382: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
383: THEN
384: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
392:
393: -- *****************************************************************************
394: PROCEDURE Get_Perz_Data_Summary
395: ( p_api_version_number IN NUMBER,
396: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
397:
398: p_application_id IN NUMBER,
399: p_profile_id IN NUMBER,
400: p_profile_name IN VARCHAR2,
416: BEGIN
417: -- ******* Standard Begins ********
418:
419: -- -- Standard call to check for call compatibility.
420: -- IF NOT FND_API.Compatible_API_Call
421: -- ( l_api_version_number,
422: -- p_api_version_number, l_api_name, G_PKG_NAME)
423: -- THEN
424: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: -- IF NOT FND_API.Compatible_API_Call
421: -- ( l_api_version_number,
422: -- p_api_version_number, l_api_name, G_PKG_NAME)
423: -- THEN
424: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
425: -- END IF;
426:
427: -- Initialize message list if p_init_msg_list is set to TRUE.
428: IF FND_API.to_Boolean( p_init_msg_list )
424: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
425: -- END IF;
426:
427: -- Initialize message list if p_init_msg_list is set to TRUE.
428: IF FND_API.to_Boolean( p_init_msg_list )
429: THEN
430: FND_MSG_PUB.initialize;
431: END IF;
432:
430: FND_MSG_PUB.initialize;
431: END IF;
432:
433: -- Initialize API return status to success
434: x_return_status := FND_API.G_RET_STS_SUCCESS;
435:
436: JTF_PERZ_DATA_PVT.Get_Perz_Data_Summary(
437: p_api_version_number,
438: p_init_msg_list,
458: p_data => x_msg_data );
459:
460: EXCEPTION
461:
462: WHEN FND_API.G_EXC_ERROR THEN
463:
464: x_return_status := FND_API.G_RET_STS_ERROR ;
465:
466: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
460: EXCEPTION
461:
462: WHEN FND_API.G_EXC_ERROR THEN
463:
464: x_return_status := FND_API.G_RET_STS_ERROR ;
465:
466: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
467: p_data => x_msg_data );
468:
465:
466: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
467: p_data => x_msg_data );
468:
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
470:
471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
472:
473: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
467: p_data => x_msg_data );
468:
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
470:
471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
472:
473: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
474: p_data => x_msg_data );
475:
474: p_data => x_msg_data );
475:
476: WHEN OTHERS THEN
477:
478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
479:
480: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
481: THEN
482: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
490: -- *****************************************************************************
491:
492: PROCEDURE Update_Perz_Data
493: ( p_api_version_number IN NUMBER,
494: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
495: p_commit IN VARCHAR := FND_API.G_FALSE,
496:
497: p_application_id IN NUMBER,
498: p_profile_id IN NUMBER,
491:
492: PROCEDURE Update_Perz_Data
493: ( p_api_version_number IN NUMBER,
494: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
495: p_commit IN VARCHAR := FND_API.G_FALSE,
496:
497: p_application_id IN NUMBER,
498: p_profile_id IN NUMBER,
499:
520: -- Standard Start of API savepoint
521: SAVEPOINT UPDATE_PERZ_DATA_PUB;
522:
523: -- -- Standard call to check for call compatibility.
524: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
525: -- THEN
526: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
527: -- END IF;
528:
522:
523: -- -- Standard call to check for call compatibility.
524: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
525: -- THEN
526: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
527: -- END IF;
528:
529: -- Initialize message list if p_init_msg_list is set to TRUE.
530: IF FND_API.to_Boolean( p_init_msg_list )
526: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
527: -- END IF;
528:
529: -- Initialize message list if p_init_msg_list is set to TRUE.
530: IF FND_API.to_Boolean( p_init_msg_list )
531: THEN
532: FND_MSG_PUB.initialize;
533: END IF;
534:
532: FND_MSG_PUB.initialize;
533: END IF;
534:
535: -- Initialize API return status to success
536: x_return_status := FND_API.G_RET_STS_SUCCESS;
537:
538:
539: JTF_PERZ_DATA_PVT.Update_Perz_Data(
540: p_api_version_number,
561: --
562: -- End of main API body.
563:
564: -- Standard check of p_commit.
565: IF (FND_API.To_Boolean(p_commit)) THEN
566: COMMIT WORK;
567: END IF;
568:
569: -- Standard call to get message count and if count is 1, get message info.
571: p_data => x_msg_data );
572:
573: EXCEPTION
574:
575: WHEN FND_API.G_EXC_ERROR THEN
576: -- dbms_output.put_line('stop 1 ');
577:
578: ROLLBACK TO UPDATE_PERZ_DATA_PUB;
579: x_return_status := FND_API.G_RET_STS_ERROR ;
575: WHEN FND_API.G_EXC_ERROR THEN
576: -- dbms_output.put_line('stop 1 ');
577:
578: ROLLBACK TO UPDATE_PERZ_DATA_PUB;
579: x_return_status := FND_API.G_RET_STS_ERROR ;
580:
581: FND_MSG_PUB.Count_And_Get
582: ( p_count => x_msg_count,
583: p_data => x_msg_data );
581: FND_MSG_PUB.Count_And_Get
582: ( p_count => x_msg_count,
583: p_data => x_msg_data );
584:
585: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
586: -- dbms_output.put_line('stop 2 ');
587: ROLLBACK TO UPDATE_PERZ_DATA_PUB;
588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
589: FND_MSG_PUB.Count_And_Get
584:
585: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
586: -- dbms_output.put_line('stop 2 ');
587: ROLLBACK TO UPDATE_PERZ_DATA_PUB;
588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
589: FND_MSG_PUB.Count_And_Get
590: ( p_count => x_msg_count,
591: p_data => x_msg_data );
592:
593:
594: WHEN OTHERS THEN
595: -- dbms_output.put_line('stop 3 ');
596: ROLLBACK TO UPDATE_PERZ_DATA_PUB;
597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
598:
599: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
600: THEN
601: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
611: -- *****************************************************************************
612:
613: PROCEDURE Delete_Perz_Data
614: ( p_api_version_number IN NUMBER,
615: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
616: p_commit IN VARCHAR := FND_API.G_FALSE,
617:
618: p_application_id IN NUMBER,
619: p_profile_id IN NUMBER,
612:
613: PROCEDURE Delete_Perz_Data
614: ( p_api_version_number IN NUMBER,
615: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
616: p_commit IN VARCHAR := FND_API.G_FALSE,
617:
618: p_application_id IN NUMBER,
619: p_profile_id IN NUMBER,
620: p_perz_data_id IN NUMBER,
633: -- Standard Start of API savepoint
634: SAVEPOINT DELETE_PERZ_DATA_PUB;
635:
636: -- -- Standard call to check for call compatibility.
637: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
638: -- THEN
639: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: -- END IF;
641:
635:
636: -- -- Standard call to check for call compatibility.
637: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME)
638: -- THEN
639: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: -- END IF;
641:
642: -- Initialize message list if p_init_msg_list is set to TRUE.
643: IF FND_API.to_Boolean( p_init_msg_list )
639: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: -- END IF;
641:
642: -- Initialize message list if p_init_msg_list is set to TRUE.
643: IF FND_API.to_Boolean( p_init_msg_list )
644: THEN
645: FND_MSG_PUB.initialize;
646: END IF;
647:
645: FND_MSG_PUB.initialize;
646: END IF;
647:
648: -- Initialize API return status to success
649: x_return_status := FND_API.G_RET_STS_SUCCESS;
650:
651:
652: JTF_PERZ_DATA_PVT.Delete_Perz_Data(
653: p_api_version_number,
669: --
670: -- End of main API body.
671:
672: -- Standard check of p_commit.
673: IF (FND_API.To_Boolean(p_commit)) THEN
674: COMMIT WORK;
675: END IF;
676:
677: -- Standard call to get message count and if count is 1, get message info.
679: p_data => x_msg_data );
680:
681: EXCEPTION
682:
683: WHEN FND_API.G_EXC_ERROR THEN
684: -- dbms_output.put_line('stop 1 ');
685:
686: ROLLBACK TO DELETE_PERZ_DATA_PUB;
687: x_return_status := FND_API.G_RET_STS_ERROR ;
683: WHEN FND_API.G_EXC_ERROR THEN
684: -- dbms_output.put_line('stop 1 ');
685:
686: ROLLBACK TO DELETE_PERZ_DATA_PUB;
687: x_return_status := FND_API.G_RET_STS_ERROR ;
688:
689: FND_MSG_PUB.Count_And_Get
690: ( p_count => x_msg_count,
691: p_data => x_msg_data );
689: FND_MSG_PUB.Count_And_Get
690: ( p_count => x_msg_count,
691: p_data => x_msg_data );
692:
693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
694: -- dbms_output.put_line('stop 2 ');
695: ROLLBACK TO DELETE_PERZ_DATA_PUB;
696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
697: FND_MSG_PUB.Count_And_Get
692:
693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
694: -- dbms_output.put_line('stop 2 ');
695: ROLLBACK TO DELETE_PERZ_DATA_PUB;
696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
697: FND_MSG_PUB.Count_And_Get
698: ( p_count => x_msg_count,
699: p_data => x_msg_data );
700:
701:
702: WHEN OTHERS THEN
703: -- dbms_output.put_line('stop 3 ');
704: ROLLBACK TO DELETE_PERZ_DATA_PUB;
705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
706:
707: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
708: THEN
709: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );