35: x_msg_data OUT NOCOPY VARCHAR2
36: ) is
37: l_api_name VARCHAR2(255):='create_item';
38: l_api_version_number NUMBER:=1.0;
39: l_return_status VARCHAR2(20) := FND_API.G_RET_STS_SUCCESS;
40: l_msg_count NUMBER := 0;
41: l_msg_data VARCHAR2(2000);
42: l_seq_id NUMBER;
43:
57: SAVEPOINT create_item_PVT;
58:
59: -- Standard call to check for call compatibility.
60:
61: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
62: p_api_version_number,
63: l_api_name,
64: G_PKG_NAME)
65: THEN
62: p_api_version_number,
63: l_api_name,
64: G_PKG_NAME)
65: THEN
66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
67: END IF;
68:
69: -- Initialize message list if p_init_msg_list is set to TRUE.
70: IF FND_API.to_Boolean( p_init_msg_list )
66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
67: END IF;
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:
73: END IF;
74:
75:
76: -- Initialize API return status to SUCCESS
77: x_return_status := FND_API.G_RET_STS_SUCCESS;
78:
79: --begins here
80: if (p_agent_id is NULL or p_interaction_id is NULL ) then
81: raise IEM_AGENT_INTERACTION_ID_NULL;
174:
175: if l_key is not null then
176: IEM_ENCRYPT_TAGS_PVT.create_encrypted_tag_dtls(
177: p_api_version_number =>P_Api_Version_Number,
178: p_init_msg_list => FND_API.G_FALSE,
179: p_commit => P_Commit,
180: p_key => l_key,
181: p_val => l_val,
182: x_return_status =>l_return_status,
195: x_encripted_id := l_seq_id;
196: x_token := l_token;
197:
198: -- Standard Check Of p_commit.
199: IF FND_API.To_Boolean(p_commit) THEN
200: COMMIT WORK;
201: END IF;
202:
203: -- Standard callto get message count and if count is 1, get message info.
207: );
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;
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 ;
217:
218: FND_MSG_PUB.Count_And_Get
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 ;
217:
218: FND_MSG_PUB.Count_And_Get
219:
220: ( p_count => x_msg_count,
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,
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: );
230: );
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
272: --Standard Savepoint
273: SAVEPOINT delete_item_by_msg_id_PVT;
274:
275: -- Standard call to check for call compatibility.
276: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
277: p_api_version_number,
278: l_api_name,
279: G_PKG_NAME)
280: THEN
277: p_api_version_number,
278: l_api_name,
279: G_PKG_NAME)
280: THEN
281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
286: FND_MSG_PUB.initialize;
287: END IF;
288:
289: --Initialize API status return
290: x_return_status := FND_API.G_RET_STS_SUCCESS;
291:
292: --Actual API starts here
293: FND_LOG_REPOSITORY.init(null,null);
294:
321: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
322: end if;
323:
324: --Standard check of p_commit
325: IF FND_API.to_Boolean(p_commit) THEN
326: COMMIT WORK;
327: END IF;
328:
329: FND_MSG_PUB.Count_And_Get
332: EXCEPTION
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);
342:
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 ||']';
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);
352: end if;
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);
352: end if;
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
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 ||']';
362: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
363: end if;
364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
365: ROLLBACK TO delete_item_by_msg_id_PVT;
360: if l_debug then
361: logMessage := '[FND_API.G_EXC_ERROR - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
362: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
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:
362: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
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 ||']';
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);
372: end if;
373: WHEN OTHERS THEN
374: ROLLBACK TO delete_item_by_msg_id_PVT;
372: end if;
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);
406: -- Standard Start of API savepoint
407: SAVEPOINT update_item_on_mess_id;
408:
409: -- Standard call to check for call compatibility.
410: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
411: p_api_version_number,
412: l_api_name,
413: G_PKG_NAME)
414: THEN
411: p_api_version_number,
412: l_api_name,
413: G_PKG_NAME)
414: THEN
415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
416: END IF;
417:
418: -- Initialize message list if p_init_msg_list is set to TRUE.
419: IF FND_API.to_Boolean( p_init_msg_list )
415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
416: END IF;
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:
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;
426:
427: if p_message_id is null then
428: raise IEM_MSG_ID_NULL;
429: end if;
449: raise IEM_ENCRYPTED_ID_NOT_FOUND;
450: end if;
451:
452: -- Standard Check Of p_commit.
453: IF FND_API.To_Boolean(p_commit) THEN
454: COMMIT WORK;
455: END IF;
456:
457: -- Standard callto get message count and if count is 1, get message info.
461: );
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');
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;
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');
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;
477: x_return_status := FND_API.G_RET_STS_ERROR ;
478: FND_MSG_PUB.Count_And_Get
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;
477: x_return_status := FND_API.G_RET_STS_ERROR ;
478: FND_MSG_PUB.Count_And_Get
479: ( p_count => x_msg_count,
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;
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: );
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
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
481: );
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: );
489: );
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
531: -- Standard Start of API savepoint
532: SAVEPOINT create_encrypted_tag_dtls_PVT;
533:
534: -- Standard call to check for call compatibility.
535: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
536: p_api_version_number,
537: l_api_name,
538: G_PKG_NAME)
539: THEN
536: p_api_version_number,
537: l_api_name,
538: G_PKG_NAME)
539: THEN
540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
541: END IF;
542:
543: -- Initialize message list if p_init_msg_list is set to TRUE.
544: IF FND_API.to_Boolean( p_init_msg_list )
540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
541: END IF;
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:
547: END IF;
548:
549:
550: -- Initialize API return status to SUCCESS
551: x_return_status := FND_API.G_RET_STS_SUCCESS;
552:
553: --begins here
554: if (p_key is NULL) then
555: raise IEM_TAG_KEY_NULL;
620: decode(G_LAST_UPDATE_LOGIN,null,-1,G_LAST_UPDATE_LOGIN)
621: );
622:
623: -- Standard Check Of p_commit.
624: IF FND_API.To_Boolean(p_commit) THEN
625: COMMIT WORK;
626: END IF;
627:
628: -- Standard callto get message count and if count is 1, get message info.
632: );
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;
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 ;
642:
643: FND_MSG_PUB.Count_And_Get
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 ;
642:
643: FND_MSG_PUB.Count_And_Get
644:
645: ( p_count => x_msg_count,
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,
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: );
655: );
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
695: --Standard Savepoint
696: SAVEPOINT reset_tag_PVT;
697:
698: -- Standard call to check for call compatibility.
699: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
700: p_api_version_number,
701: l_api_name,
702: G_PKG_NAME)
703: THEN
700: p_api_version_number,
701: l_api_name,
702: G_PKG_NAME)
703: THEN
704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
709: FND_MSG_PUB.initialize;
710: END IF;
711:
712: --Initialize API status return
713: x_return_status := FND_API.G_RET_STS_SUCCESS;
714:
715: --Actual API starts here
716: FND_LOG_REPOSITORY.init(null,null);
717:
727: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
728: end if;
729:
730: --Standard check of p_commit
731: IF FND_API.to_Boolean(p_commit) THEN
732: COMMIT WORK;
733: END IF;
734:
735: FND_MSG_PUB.Count_And_Get
738: EXCEPTION
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);
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);
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
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 ||']';
757: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
758: end if;
759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
760: ROLLBACK TO reset_tag_PVT;
755: if l_debug then
756: logMessage := '[FND_API.G_EXC_ERROR - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
757: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
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:
757: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DELETE_ITEM_BY_MSG_ID', logMessage);
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 ||']';
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);
767: end if;
768: WHEN OTHERS THEN
769: ROLLBACK TO reset_tag_PVT;
767: end if;
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);
813: --Standard Savepoint
814: SAVEPOINT delete_item_by_msg_id_PVT;
815:
816: -- Standard call to check for call compatibility.
817: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
818: p_api_version_number,
819: l_api_name,
820: G_PKG_NAME)
821: THEN
818: p_api_version_number,
819: l_api_name,
820: G_PKG_NAME)
821: THEN
822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
827: FND_MSG_PUB.initialize;
828: END IF;
829:
830: --Initialize API status return
831: x_return_status := FND_API.G_RET_STS_SUCCESS;
832:
833: --Actual API starts here
834: FND_LOG_REPOSITORY.init(null,null);
835:
970:
971: end loop;
972:
973: --Standard check of p_commit
974: IF FND_API.to_Boolean(p_commit) THEN
975: COMMIT WORK;
976: END IF;
977:
978: FND_MSG_PUB.Count_And_Get
981: EXCEPTION
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);
989: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DUPLICATE_TAGS', logMessage);
990: end if;
991:
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);
991:
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
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 ||']';
1001: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DUPLICATE_TAGS', logMessage);
1002: end if;
1003: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1004: ROLLBACK TO delete_item_by_msg_id_PVT;
999: if l_debug then
1000: logMessage := '[FND_API.G_EXC_ERROR - trying to delete Encrypted tag with MSG_ID = ' || p_message_id ||']';
1001: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DUPLICATE_TAGS', logMessage);
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:
1001: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ENCRYPTED_TAGS_PVT.DUPLICATE_TAGS', logMessage);
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 ||']';
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);
1011: end if;
1012: WHEN OTHERS THEN
1013: ROLLBACK TO delete_item_by_msg_id_PVT;
1011: end if;
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);