68:
69: -- Initialize message list if p_init_msg_list is set to TRUE.
70: IF FND_API.to_Boolean( p_init_msg_list )
71: THEN
72: FND_MSG_PUB.initialize;
73: END IF;
74:
75:
76: -- Initialize API return status to SUCCESS
200: COMMIT WORK;
201: END IF;
202:
203: -- Standard callto get message count and if count is 1, get message info.
204: FND_MSG_PUB.Count_And_Get
205: ( p_count => x_msg_count,
206: p_data => x_msg_data
207: );
208: EXCEPTION
208: EXCEPTION
209: WHEN IEM_AGENT_INTERACTION_ID_NULL THEN
210: ROLLBACK TO create_item_PVT;
211: x_return_status := FND_API.G_RET_STS_ERROR ;
212: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
213:
214: WHEN FND_API.G_EXC_ERROR THEN
215: ROLLBACK TO create_item_PVT;
216: x_return_status := FND_API.G_RET_STS_ERROR ;
214: WHEN FND_API.G_EXC_ERROR THEN
215: ROLLBACK TO create_item_PVT;
216: x_return_status := FND_API.G_RET_STS_ERROR ;
217:
218: FND_MSG_PUB.Count_And_Get
219:
220: ( p_count => x_msg_count,
221: p_data => x_msg_data
222: );
223:
224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
225: ROLLBACK TO create_item_PVT;
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
227: FND_MSG_PUB.Count_And_Get
228: ( p_count => x_msg_count,
229: p_data => x_msg_data
230: );
231:
231:
232: WHEN OTHERS THEN
233: ROLLBACK TO create_item_PVT;
234: x_return_status := FND_API.G_RET_STS_ERROR;
235: IF FND_MSG_PUB.Check_Msg_Level
236: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
237: THEN
238: FND_MSG_PUB.Add_Exc_Msg
239: ( G_PKG_NAME ,
232: WHEN OTHERS THEN
233: ROLLBACK TO create_item_PVT;
234: x_return_status := FND_API.G_RET_STS_ERROR;
235: IF FND_MSG_PUB.Check_Msg_Level
236: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
237: THEN
238: FND_MSG_PUB.Add_Exc_Msg
239: ( G_PKG_NAME ,
240: l_api_name
234: x_return_status := FND_API.G_RET_STS_ERROR;
235: IF FND_MSG_PUB.Check_Msg_Level
236: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
237: THEN
238: FND_MSG_PUB.Add_Exc_Msg
239: ( G_PKG_NAME ,
240: l_api_name
241: );
242: END IF;
240: l_api_name
241: );
242: END IF;
243:
244: FND_MSG_PUB.Count_And_Get
245: ( p_count => x_msg_count,
246: p_data => x_msg_data
247:
248: );
282: END IF;
283:
284: --Initialize the message list if p_init_msg_list is set to TRUE
285: If FND_API.to_Boolean(p_init_msg_list) THEN
286: FND_MSG_PUB.initialize;
287: END IF;
288:
289: --Initialize API status return
290: x_return_status := FND_API.G_RET_STS_SUCCESS;
325: IF FND_API.to_Boolean(p_commit) THEN
326: COMMIT WORK;
327: END IF;
328:
329: FND_MSG_PUB.Count_And_Get
330: ( p_count => x_msg_count,p_data => x_msg_data);
331:
332: EXCEPTION
333: WHEN NO_DATA_FOUND THEN
333: WHEN NO_DATA_FOUND THEN
334: ROLLBACK TO delete_item_by_msg_id_PVT;
335: --dbms_output.put_line('IEM_NO_ENCRYPTEID_FOR_MSGID!');
336: x_return_status := FND_API.G_RET_STS_ERROR ;
337: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
338: if l_debug then
339: logMessage := '[Not delete (no encrypted tag found)- trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
341: end if;
343: WHEN IEM_MSG_ID_NOT_FOUND THEN
344: ROLLBACK TO delete_item_by_msg_id_PVT;
345: -- dbms_output.put_line('IEM_MSG_ID_NOT_FOUND!');
346: x_return_status := FND_API.G_RET_STS_ERROR ;
347: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
348:
349: if l_debug then
350: logMessage := '[Not delete (MSG_ID not found) - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
353:
354: WHEN FND_API.G_EXC_ERROR THEN
355: ROLLBACK TO delete_item_by_msg_id_PVT;
356: x_return_status := FND_API.G_RET_STS_ERROR ;
357: FND_MSG_PUB.Count_And_Get
358: ( p_count => x_msg_count,p_data => x_msg_data);
359:
360: if l_debug then
361: logMessage := '[FND_API.G_EXC_ERROR - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
363: end if;
364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
365: ROLLBACK TO delete_item_by_msg_id_PVT;
366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
367: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,p_data => x_msg_data);
368:
369: if l_debug then
370: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR in - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
373: WHEN OTHERS THEN
374: ROLLBACK TO delete_item_by_msg_id_PVT;
375: --dbms_output.put_line('Other error in delete_item_on_msg_id ' ||SUBSTR (SQLERRM , 1 , 100));
376: x_return_status := FND_API.G_RET_STS_ERROR;
377: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
378: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
379: END IF;
380: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
381:
374: ROLLBACK TO delete_item_by_msg_id_PVT;
375: --dbms_output.put_line('Other error in delete_item_on_msg_id ' ||SUBSTR (SQLERRM , 1 , 100));
376: x_return_status := FND_API.G_RET_STS_ERROR;
377: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
378: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
379: END IF;
380: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
381:
382: if l_debug then
376: x_return_status := FND_API.G_RET_STS_ERROR;
377: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
378: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
379: END IF;
380: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
381:
382: if l_debug then
383: logMessage := '[Failed (Other exception) - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
417:
418: -- Initialize message list if p_init_msg_list is set to TRUE.
419: IF FND_API.to_Boolean( p_init_msg_list )
420: THEN
421: FND_MSG_PUB.initialize;
422: END IF;
423:
424: -- Initialize API return status to SUCCESS
425: x_return_status := FND_API.G_RET_STS_SUCCESS;
454: COMMIT WORK;
455: END IF;
456:
457: -- Standard callto get message count and if count is 1, get message info.
458: FND_MSG_PUB.Count_And_Get
459: ( p_count => x_msg_count,
460: p_data => x_msg_data
461: );
462: EXCEPTION
462: EXCEPTION
463: WHEN IEM_MSG_ID_NULL THEN
464: ROLLBACK TO update_item_on_mess_id;
465: x_return_status := FND_API.G_RET_STS_ERROR ;
466: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
467:
468: WHEN IEM_ENCRYPTED_ID_NOT_FOUND THEN
469: --dbms_output.put_line('IEM_ENCRYPTED_ID_NOT_FOUND');
470: ROLLBACK TO update_item_on_mess_id;
468: WHEN IEM_ENCRYPTED_ID_NOT_FOUND THEN
469: --dbms_output.put_line('IEM_ENCRYPTED_ID_NOT_FOUND');
470: ROLLBACK TO update_item_on_mess_id;
471: x_return_status := FND_API.G_RET_STS_ERROR ;
472: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
473:
474: WHEN FND_API.G_EXC_ERROR THEN
475: --dbms_output.put_line('FND_API.G_EXC_ERROR');
476: ROLLBACK TO update_item_on_mess_id;
474: WHEN FND_API.G_EXC_ERROR THEN
475: --dbms_output.put_line('FND_API.G_EXC_ERROR');
476: ROLLBACK TO update_item_on_mess_id;
477: x_return_status := FND_API.G_RET_STS_ERROR ;
478: FND_MSG_PUB.Count_And_Get
479: ( p_count => x_msg_count,
480: p_data => x_msg_data
481: );
482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
483: --dbms_output.put_line('G_EXC_UNEXPECTED_ERROR');
484: ROLLBACK TO update_item_on_mess_id;
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
486: FND_MSG_PUB.Count_And_Get
487: ( p_count => x_msg_count,
488: p_data => x_msg_data
489: );
490: WHEN OTHERS THEN
490: WHEN OTHERS THEN
491: --dbms_output.put_line('Exception in update encypted_tag tabel happened ' || SUBSTR (SQLERRM , 1 , 240));
492: ROLLBACK TO update_item_on_mess_id;
493: x_return_status := FND_API.G_RET_STS_ERROR;
494: IF FND_MSG_PUB.Check_Msg_Level
495: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
496: THEN
497: FND_MSG_PUB.Add_Exc_Msg
498: ( G_PKG_NAME ,
491: --dbms_output.put_line('Exception in update encypted_tag tabel happened ' || SUBSTR (SQLERRM , 1 , 240));
492: ROLLBACK TO update_item_on_mess_id;
493: x_return_status := FND_API.G_RET_STS_ERROR;
494: IF FND_MSG_PUB.Check_Msg_Level
495: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
496: THEN
497: FND_MSG_PUB.Add_Exc_Msg
498: ( G_PKG_NAME ,
499: l_api_name
493: x_return_status := FND_API.G_RET_STS_ERROR;
494: IF FND_MSG_PUB.Check_Msg_Level
495: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
496: THEN
497: FND_MSG_PUB.Add_Exc_Msg
498: ( G_PKG_NAME ,
499: l_api_name
500: );
501: END IF;
498: ( G_PKG_NAME ,
499: l_api_name
500: );
501: END IF;
502: FND_MSG_PUB.Count_And_Get
503: ( p_count => x_msg_count ,
504: p_data => x_msg_data
505: );
506:
542:
543: -- Initialize message list if p_init_msg_list is set to TRUE.
544: IF FND_API.to_Boolean( p_init_msg_list )
545: THEN
546: FND_MSG_PUB.initialize;
547: END IF;
548:
549:
550: -- Initialize API return status to SUCCESS
625: COMMIT WORK;
626: END IF;
627:
628: -- Standard callto get message count and if count is 1, get message info.
629: FND_MSG_PUB.Count_And_Get
630: ( p_count => x_msg_count,
631: p_data => x_msg_data
632: );
633: EXCEPTION
633: EXCEPTION
634: WHEN IEM_TAG_KEY_NULL THEN
635: ROLLBACK TO create_encrypted_tag_dtls_PVT;
636: x_return_status := FND_API.G_RET_STS_ERROR ;
637: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
638:
639: WHEN FND_API.G_EXC_ERROR THEN
640: ROLLBACK TO create_encrypted_tag_dtls_PVT;
641: x_return_status := FND_API.G_RET_STS_ERROR ;
639: WHEN FND_API.G_EXC_ERROR THEN
640: ROLLBACK TO create_encrypted_tag_dtls_PVT;
641: x_return_status := FND_API.G_RET_STS_ERROR ;
642:
643: FND_MSG_PUB.Count_And_Get
644:
645: ( p_count => x_msg_count,
646: p_data => x_msg_data
647: );
648:
649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
650: ROLLBACK TO create_encrypted_tag_dtls_PVT;
651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
652: FND_MSG_PUB.Count_And_Get
653: ( p_count => x_msg_count,
654: p_data => x_msg_data
655: );
656:
656:
657: WHEN OTHERS THEN
658: ROLLBACK TO create_encrypted_tag_dtls_PVT;
659: x_return_status := FND_API.G_RET_STS_ERROR;
660: IF FND_MSG_PUB.Check_Msg_Level
661: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
662: THEN
663: FND_MSG_PUB.Add_Exc_Msg
664: ( G_PKG_NAME ,
657: WHEN OTHERS THEN
658: ROLLBACK TO create_encrypted_tag_dtls_PVT;
659: x_return_status := FND_API.G_RET_STS_ERROR;
660: IF FND_MSG_PUB.Check_Msg_Level
661: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
662: THEN
663: FND_MSG_PUB.Add_Exc_Msg
664: ( G_PKG_NAME ,
665: l_api_name
659: x_return_status := FND_API.G_RET_STS_ERROR;
660: IF FND_MSG_PUB.Check_Msg_Level
661: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
662: THEN
663: FND_MSG_PUB.Add_Exc_Msg
664: ( G_PKG_NAME ,
665: l_api_name
666: );
667: END IF;
665: l_api_name
666: );
667: END IF;
668:
669: FND_MSG_PUB.Count_And_Get
670: ( p_count => x_msg_count,
671: p_data => x_msg_data
672:
673: );
705: END IF;
706:
707: --Initialize the message list if p_init_msg_list is set to TRUE
708: If FND_API.to_Boolean(p_init_msg_list) THEN
709: FND_MSG_PUB.initialize;
710: END IF;
711:
712: --Initialize API status return
713: x_return_status := FND_API.G_RET_STS_SUCCESS;
731: IF FND_API.to_Boolean(p_commit) THEN
732: COMMIT WORK;
733: END IF;
734:
735: FND_MSG_PUB.Count_And_Get
736: ( p_count => x_msg_count,p_data => x_msg_data);
737:
738: EXCEPTION
739: WHEN NO_DATA_FOUND THEN
739: WHEN NO_DATA_FOUND THEN
740: ROLLBACK TO reset_tag_PVT;
741: --dbms_output.put_line('IEM_NO_ENCRYPTEID_FOR_MSGID!');
742: x_return_status := FND_API.G_RET_STS_ERROR ;
743: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
744: if l_debug then
745: logMessage := '[Not delete (no encrypted tag found)- trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
747: end if;
748:
749: WHEN FND_API.G_EXC_ERROR THEN
750: ROLLBACK TO reset_tag_PVT;
751: x_return_status := FND_API.G_RET_STS_ERROR ;
752: FND_MSG_PUB.Count_And_Get
753: ( p_count => x_msg_count,p_data => x_msg_data);
754:
755: if l_debug then
756: logMessage := '[FND_API.G_EXC_ERROR - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
758: end if;
759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
760: ROLLBACK TO reset_tag_PVT;
761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
762: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,p_data => x_msg_data);
763:
764: if l_debug then
765: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR in - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
766: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
768: WHEN OTHERS THEN
769: ROLLBACK TO reset_tag_PVT;
770: --dbms_output.put_line('Other error in delete_item_on_msg_id ' ||SUBSTR (SQLERRM , 1 , 100));
771: x_return_status := FND_API.G_RET_STS_ERROR;
772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
773: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
774: END IF;
775: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
776:
769: ROLLBACK TO reset_tag_PVT;
770: --dbms_output.put_line('Other error in delete_item_on_msg_id ' ||SUBSTR (SQLERRM , 1 , 100));
771: x_return_status := FND_API.G_RET_STS_ERROR;
772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
773: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
774: END IF;
775: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
776:
777: if l_debug then
771: x_return_status := FND_API.G_RET_STS_ERROR;
772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
773: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
774: END IF;
775: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
776:
777: if l_debug then
778: logMessage := '[Failed (Other exception) - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
779: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
823: END IF;
824:
825: --Initialize the message list if p_init_msg_list is set to TRUE
826: If FND_API.to_Boolean(p_init_msg_list) THEN
827: FND_MSG_PUB.initialize;
828: END IF;
829:
830: --Initialize API status return
831: x_return_status := FND_API.G_RET_STS_SUCCESS;
974: IF FND_API.to_Boolean(p_commit) THEN
975: COMMIT WORK;
976: END IF;
977:
978: FND_MSG_PUB.Count_And_Get
979: ( p_count => x_msg_count,p_data => x_msg_data);
980:
981: EXCEPTION
982: WHEN NO_DATA_FOUND THEN
982: WHEN NO_DATA_FOUND THEN
983: ROLLBACK TO delete_item_by_msg_id_PVT;
984: --dbms_output.put_line('IEM_NO_ENCRYPTEID_FOR_MSGID!');
985: x_return_status := FND_API.G_RET_STS_ERROR ;
986: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
987: if l_debug then
988: logMessage := '[No Data found when duplicate tag records! ]';
989: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DUPLICATE_TAGS', logMessage);
990: end if;
992:
993: WHEN FND_API.G_EXC_ERROR THEN
994: ROLLBACK TO delete_item_by_msg_id_PVT;
995: x_return_status := FND_API.G_RET_STS_ERROR ;
996: FND_MSG_PUB.Count_And_Get
997: ( p_count => x_msg_count,p_data => x_msg_data);
998:
999: if l_debug then
1000: logMessage := '[FND_API.G_EXC_ERROR - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
1002: end if;
1003: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1004: ROLLBACK TO delete_item_by_msg_id_PVT;
1005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1006: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,p_data => x_msg_data);
1007:
1008: if l_debug then
1009: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR in - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
1010: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DUPLICATE_TAGS', logMessage);
1012: WHEN OTHERS THEN
1013: ROLLBACK TO delete_item_by_msg_id_PVT;
1014: --dbms_output.put_line('Other error in delete_item_on_msg_id ' ||SUBSTR (SQLERRM , 1 , 100));
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1016: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1017: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
1018: END IF;
1019: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
1020:
1013: ROLLBACK TO delete_item_by_msg_id_PVT;
1014: --dbms_output.put_line('Other error in delete_item_on_msg_id ' ||SUBSTR (SQLERRM , 1 , 100));
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1016: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1017: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
1018: END IF;
1019: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
1020:
1021: if l_debug then
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1016: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1017: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
1018: END IF;
1019: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
1020:
1021: if l_debug then
1022: logMessage := '[Failed (Other exception) - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
1023: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DUPLICATE_TAGS', logMessage);