429: l_api_name_full CONSTANT VARCHAR2(61) := g_pkg_name||'.'||l_api_name;
430: l_return_status VARCHAR2(1);
431: l_msg_count NUMBER;
432: l_msg_data VARCHAR2(2000);
433: l_fnd_log_msg VARCHAR2(2000);
434:
435: -- cursor on stage global temp table
436: -- to select object ids corresp. to which
437: -- interactions and activities are to be purged
464:
465: BEGIN
466:
467:
468: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
469: l_fnd_log_msg := 'P_DELETE_INTERACTIONS In parameters :'||
470: 'p_api_version = '|| p_api_version ||
471: 'p_init_msg_list = '|| p_init_msg_list ||
472: 'p_commit = '|| p_commit||
465: BEGIN
466:
467:
468: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
469: l_fnd_log_msg := 'P_DELETE_INTERACTIONS In parameters :'||
470: 'p_api_version = '|| p_api_version ||
471: 'p_init_msg_list = '|| p_init_msg_list ||
472: 'p_commit = '|| p_commit||
473: 'p_processing_set_id = '|| p_processing_set_id ||
471: 'p_init_msg_list = '|| p_init_msg_list ||
472: 'p_commit = '|| p_commit||
473: 'p_processing_set_id = '|| p_processing_set_id ||
474: 'p_object_type = '|| p_object_type;
475: --dbms_output.put_line(l_fnd_log_msg);
476: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
477: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.begin', l_fnd_log_msg);
478: END IF;
479:
472: 'p_commit = '|| p_commit||
473: 'p_processing_set_id = '|| p_processing_set_id ||
474: 'p_object_type = '|| p_object_type;
475: --dbms_output.put_line(l_fnd_log_msg);
476: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
477: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.begin', l_fnd_log_msg);
478: END IF;
479:
480: l_obj_type_lookup := CONCAT(p_object_type,'-%');
473: 'p_processing_set_id = '|| p_processing_set_id ||
474: 'p_object_type = '|| p_object_type;
475: --dbms_output.put_line(l_fnd_log_msg);
476: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
477: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.begin', l_fnd_log_msg);
478: END IF;
479:
480: l_obj_type_lookup := CONCAT(p_object_type,'-%');
481:
526: INTO l_media_ids,l_int_ids,l_activity_id;
527:
528:
529: --Logging after deleting activities
530: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
531: l_fnd_log_msg := 'No. of Activities purged = '||SQL%ROWCOUNT;
532: --dbms_output.put_line(l_fnd_log_msg);
533:
534: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
527:
528:
529: --Logging after deleting activities
530: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
531: l_fnd_log_msg := 'No. of Activities purged = '||SQL%ROWCOUNT;
532: --dbms_output.put_line(l_fnd_log_msg);
533:
534: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
535: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_activity',l_fnd_log_msg);
528:
529: --Logging after deleting activities
530: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
531: l_fnd_log_msg := 'No. of Activities purged = '||SQL%ROWCOUNT;
532: --dbms_output.put_line(l_fnd_log_msg);
533:
534: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
535: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_activity',l_fnd_log_msg);
536: END IF;
530: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
531: l_fnd_log_msg := 'No. of Activities purged = '||SQL%ROWCOUNT;
532: --dbms_output.put_line(l_fnd_log_msg);
533:
534: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
535: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_activity',l_fnd_log_msg);
536: END IF;
537:
538:
531: l_fnd_log_msg := 'No. of Activities purged = '||SQL%ROWCOUNT;
532: --dbms_output.put_line(l_fnd_log_msg);
533:
534: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
535: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_activity',l_fnd_log_msg);
536: END IF;
537:
538:
539: -- Inserting the deleted activity ID into temp table
568: );
569:
570:
571: --Logging after inserting activities
572: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
573: l_fnd_log_msg := 'No. of Activities Inserted into temp table = '||SQL%ROWCOUNT;
574: --dbms_output.put_line(l_fnd_log_msg);
575: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
576: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.activity_tmp',l_fnd_log_msg);
569:
570:
571: --Logging after inserting activities
572: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
573: l_fnd_log_msg := 'No. of Activities Inserted into temp table = '||SQL%ROWCOUNT;
574: --dbms_output.put_line(l_fnd_log_msg);
575: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
576: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.activity_tmp',l_fnd_log_msg);
577: END IF;
570:
571: --Logging after inserting activities
572: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
573: l_fnd_log_msg := 'No. of Activities Inserted into temp table = '||SQL%ROWCOUNT;
574: --dbms_output.put_line(l_fnd_log_msg);
575: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
576: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.activity_tmp',l_fnd_log_msg);
577: END IF;
578:
571: --Logging after inserting activities
572: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
573: l_fnd_log_msg := 'No. of Activities Inserted into temp table = '||SQL%ROWCOUNT;
574: --dbms_output.put_line(l_fnd_log_msg);
575: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
576: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.activity_tmp',l_fnd_log_msg);
577: END IF;
578:
579: --Logging before calling Notes Purge API
572: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
573: l_fnd_log_msg := 'No. of Activities Inserted into temp table = '||SQL%ROWCOUNT;
574: --dbms_output.put_line(l_fnd_log_msg);
575: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
576: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.activity_tmp',l_fnd_log_msg);
577: END IF;
578:
579: --Logging before calling Notes Purge API
580: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
576: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.activity_tmp',l_fnd_log_msg);
577: END IF;
578:
579: --Logging before calling Notes Purge API
580: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
581: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
582: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.begin.purge_notes', 'Calling Notes Purge API for Activities');
583: END IF;
584:
577: END IF;
578:
579: --Logging before calling Notes Purge API
580: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
581: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
582: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.begin.purge_notes', 'Calling Notes Purge API for Activities');
583: END IF;
584:
585: --Delete Notes related to the activities being purged
594: p_object_type => 'JTF_ACTIVITY'
595: );
596:
597: --Logging on return from Notes Purge API
598: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
599: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
600: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.end.purge_notes', 'After call to Notes Purge API for Activities');
601: END IF;
602:
595: );
596:
597: --Logging on return from Notes Purge API
598: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
599: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
600: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.end.purge_notes', 'After call to Notes Purge API for Activities');
601: END IF;
602:
603: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
618:
619:
620:
621: --Logging after delinking activities
622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
623: l_fnd_log_msg := 'No. of Activities Delinked = '||SQL%ROWCOUNT;
624: --dbms_output.put_line(l_fnd_log_msg);
625: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
626: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delink_act',l_fnd_log_msg);
619:
620:
621: --Logging after delinking activities
622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
623: l_fnd_log_msg := 'No. of Activities Delinked = '||SQL%ROWCOUNT;
624: --dbms_output.put_line(l_fnd_log_msg);
625: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
626: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delink_act',l_fnd_log_msg);
627: END IF;
620:
621: --Logging after delinking activities
622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
623: l_fnd_log_msg := 'No. of Activities Delinked = '||SQL%ROWCOUNT;
624: --dbms_output.put_line(l_fnd_log_msg);
625: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
626: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delink_act',l_fnd_log_msg);
627: END IF;
628:
621: --Logging after delinking activities
622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
623: l_fnd_log_msg := 'No. of Activities Delinked = '||SQL%ROWCOUNT;
624: --dbms_output.put_line(l_fnd_log_msg);
625: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
626: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delink_act',l_fnd_log_msg);
627: END IF;
628:
629: --Deleting the associated Interactions
622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
623: l_fnd_log_msg := 'No. of Activities Delinked = '||SQL%ROWCOUNT;
624: --dbms_output.put_line(l_fnd_log_msg);
625: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
626: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delink_act',l_fnd_log_msg);
627: END IF;
628:
629: --Deleting the associated Interactions
630:
641: END IF;
642:
643:
644: --Logging after deleting interactions
645: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
646: l_fnd_log_msg := 'No. of Interactions purged = '||SQL%ROWCOUNT;
647: --dbms_output.put_line(l_fnd_log_msg);
648: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
649: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.del_inter',l_fnd_log_msg);
642:
643:
644: --Logging after deleting interactions
645: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
646: l_fnd_log_msg := 'No. of Interactions purged = '||SQL%ROWCOUNT;
647: --dbms_output.put_line(l_fnd_log_msg);
648: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
649: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.del_inter',l_fnd_log_msg);
650: END IF;
643:
644: --Logging after deleting interactions
645: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
646: l_fnd_log_msg := 'No. of Interactions purged = '||SQL%ROWCOUNT;
647: --dbms_output.put_line(l_fnd_log_msg);
648: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
649: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.del_inter',l_fnd_log_msg);
650: END IF;
651:
644: --Logging after deleting interactions
645: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
646: l_fnd_log_msg := 'No. of Interactions purged = '||SQL%ROWCOUNT;
647: --dbms_output.put_line(l_fnd_log_msg);
648: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
649: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.del_inter',l_fnd_log_msg);
650: END IF;
651:
652: -- Clean Up Parent and All Child Interactions
645: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
646: l_fnd_log_msg := 'No. of Interactions purged = '||SQL%ROWCOUNT;
647: --dbms_output.put_line(l_fnd_log_msg);
648: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
649: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.del_inter',l_fnd_log_msg);
650: END IF;
651:
652: -- Clean Up Parent and All Child Interactions
653: --in the JTF_IH_INTERACTION_INTERS.
661:
662:
663:
664: --Logging after cleaning Interaction Relationships
665: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
666: l_fnd_log_msg := 'No. of Interaction Relationships purged = '||SQL%ROWCOUNT;
667: --dbms_output.put_line(l_fnd_log_msg);
668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
669: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.del_inter_inter',l_fnd_log_msg);
662:
663:
664: --Logging after cleaning Interaction Relationships
665: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
666: l_fnd_log_msg := 'No. of Interaction Relationships purged = '||SQL%ROWCOUNT;
667: --dbms_output.put_line(l_fnd_log_msg);
668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
669: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.del_inter_inter',l_fnd_log_msg);
670: END IF;
663:
664: --Logging after cleaning Interaction Relationships
665: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
666: l_fnd_log_msg := 'No. of Interaction Relationships purged = '||SQL%ROWCOUNT;
667: --dbms_output.put_line(l_fnd_log_msg);
668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
669: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.del_inter_inter',l_fnd_log_msg);
670: END IF;
671:
664: --Logging after cleaning Interaction Relationships
665: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
666: l_fnd_log_msg := 'No. of Interaction Relationships purged = '||SQL%ROWCOUNT;
667: --dbms_output.put_line(l_fnd_log_msg);
668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
669: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.del_inter_inter',l_fnd_log_msg);
670: END IF;
671:
672: -- Inserting the deleted interaction ID into temp table
665: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
666: l_fnd_log_msg := 'No. of Interaction Relationships purged = '||SQL%ROWCOUNT;
667: --dbms_output.put_line(l_fnd_log_msg);
668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
669: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.del_inter_inter',l_fnd_log_msg);
670: END IF;
671:
672: -- Inserting the deleted interaction ID into temp table
673: -- with new Proc Set ID for Notes dependent object processing
702:
703:
704:
705: --Logging after inserting interactions into temp table
706: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
707: l_fnd_log_msg := 'No. of Interactions inserted into temp table = '||SQL%ROWCOUNT;
708: --dbms_output.put_line(l_fnd_log_msg);
709: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
710: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.inter_tmp',l_fnd_log_msg);
703:
704:
705: --Logging after inserting interactions into temp table
706: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
707: l_fnd_log_msg := 'No. of Interactions inserted into temp table = '||SQL%ROWCOUNT;
708: --dbms_output.put_line(l_fnd_log_msg);
709: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
710: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.inter_tmp',l_fnd_log_msg);
711: END IF;
704:
705: --Logging after inserting interactions into temp table
706: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
707: l_fnd_log_msg := 'No. of Interactions inserted into temp table = '||SQL%ROWCOUNT;
708: --dbms_output.put_line(l_fnd_log_msg);
709: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
710: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.inter_tmp',l_fnd_log_msg);
711: END IF;
712:
705: --Logging after inserting interactions into temp table
706: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
707: l_fnd_log_msg := 'No. of Interactions inserted into temp table = '||SQL%ROWCOUNT;
708: --dbms_output.put_line(l_fnd_log_msg);
709: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
710: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.inter_tmp',l_fnd_log_msg);
711: END IF;
712:
713: --Logging before calling Notes Purge API
706: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
707: l_fnd_log_msg := 'No. of Interactions inserted into temp table = '||SQL%ROWCOUNT;
708: --dbms_output.put_line(l_fnd_log_msg);
709: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
710: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.inter_tmp',l_fnd_log_msg);
711: END IF;
712:
713: --Logging before calling Notes Purge API
714: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
710: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.inter_tmp',l_fnd_log_msg);
711: END IF;
712:
713: --Logging before calling Notes Purge API
714: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
716: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.begin.purge_notes', 'Calling Notes Purge API for Interactions');
717: END IF;
718:
711: END IF;
712:
713: --Logging before calling Notes Purge API
714: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
716: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.begin.purge_notes', 'Calling Notes Purge API for Interactions');
717: END IF;
718:
719: --Delete Notes related to the interactions being purged
727: p_processing_set_id => l_processing_set_id,
728: p_object_type => 'JTF_INTERACTION'
729: );
730: --Logging on return from Notes Purge API
731: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
733: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.end.purge_notes', 'After call to Notes Purge API for Activities');
734: END IF;
735: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
728: p_object_type => 'JTF_INTERACTION'
729: );
730: --Logging on return from Notes Purge API
731: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
733: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.end.purge_notes', 'After call to Notes Purge API for Activities');
734: END IF;
735: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
736: RAISE FND_API.G_EXC_ERROR;
761:
762:
763:
764: --Logging after deleting media items
765: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
766: l_fnd_log_msg := 'No. of Media Items purged = '||SQL%ROWCOUNT;
767: --dbms_output.put_line(l_fnd_log_msg);
768: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
769: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_MI',l_fnd_log_msg);
762:
763:
764: --Logging after deleting media items
765: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
766: l_fnd_log_msg := 'No. of Media Items purged = '||SQL%ROWCOUNT;
767: --dbms_output.put_line(l_fnd_log_msg);
768: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
769: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_MI',l_fnd_log_msg);
770: END IF;
763:
764: --Logging after deleting media items
765: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
766: l_fnd_log_msg := 'No. of Media Items purged = '||SQL%ROWCOUNT;
767: --dbms_output.put_line(l_fnd_log_msg);
768: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
769: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_MI',l_fnd_log_msg);
770: END IF;
771:
764: --Logging after deleting media items
765: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
766: l_fnd_log_msg := 'No. of Media Items purged = '||SQL%ROWCOUNT;
767: --dbms_output.put_line(l_fnd_log_msg);
768: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
769: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_MI',l_fnd_log_msg);
770: END IF;
771:
772: -- And Related to MediaID Media Item LifeCycle.
765: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
766: l_fnd_log_msg := 'No. of Media Items purged = '||SQL%ROWCOUNT;
767: --dbms_output.put_line(l_fnd_log_msg);
768: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
769: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_MI',l_fnd_log_msg);
770: END IF;
771:
772: -- And Related to MediaID Media Item LifeCycle.
773: IF lc_media_ids.COUNT > 0 THEN
781: COMMIT;
782: END IF;
783:
784: --Logging after deleting media life cycle segments
785: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
786: l_fnd_log_msg := 'No. of Media Life-cycle segments purged = '||SQL%ROWCOUNT;
787: --dbms_output.put_line(l_fnd_log_msg);
788: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
789: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_MLCS',l_fnd_log_msg);
782: END IF;
783:
784: --Logging after deleting media life cycle segments
785: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
786: l_fnd_log_msg := 'No. of Media Life-cycle segments purged = '||SQL%ROWCOUNT;
787: --dbms_output.put_line(l_fnd_log_msg);
788: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
789: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_MLCS',l_fnd_log_msg);
790: END IF;
783:
784: --Logging after deleting media life cycle segments
785: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
786: l_fnd_log_msg := 'No. of Media Life-cycle segments purged = '||SQL%ROWCOUNT;
787: --dbms_output.put_line(l_fnd_log_msg);
788: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
789: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_MLCS',l_fnd_log_msg);
790: END IF;
791:
784: --Logging after deleting media life cycle segments
785: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
786: l_fnd_log_msg := 'No. of Media Life-cycle segments purged = '||SQL%ROWCOUNT;
787: --dbms_output.put_line(l_fnd_log_msg);
788: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
789: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_MLCS',l_fnd_log_msg);
790: END IF;
791:
792:
785: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
786: l_fnd_log_msg := 'No. of Media Life-cycle segments purged = '||SQL%ROWCOUNT;
787: --dbms_output.put_line(l_fnd_log_msg);
788: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
789: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.delete_MLCS',l_fnd_log_msg);
790: END IF;
791:
792:
793:
790: END IF;
791:
792:
793:
794: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
795: l_fnd_log_msg := 'P_DELETE_INTERACTIONS Out parameters:' ||
796: 'x_return_status = '|| x_return_status ||
797: 'x_msg_data = '||x_msg_data||
798: 'x_msg_count ='||x_msg_count;
791:
792:
793:
794: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
795: l_fnd_log_msg := 'P_DELETE_INTERACTIONS Out parameters:' ||
796: 'x_return_status = '|| x_return_status ||
797: 'x_msg_data = '||x_msg_data||
798: 'x_msg_count ='||x_msg_count;
799:
796: 'x_return_status = '|| x_return_status ||
797: 'x_msg_data = '||x_msg_data||
798: 'x_msg_count ='||x_msg_count;
799:
800: --dbms_output.put_line(l_fnd_log_msg);
801: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
802: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.end', l_fnd_log_msg);
803: END IF;
804:
797: 'x_msg_data = '||x_msg_data||
798: 'x_msg_count ='||x_msg_count;
799:
800: --dbms_output.put_line(l_fnd_log_msg);
801: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
802: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.end', l_fnd_log_msg);
803: END IF;
804:
805: EXCEPTION
798: 'x_msg_count ='||x_msg_count;
799:
800: --dbms_output.put_line(l_fnd_log_msg);
801: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
802: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS.end', l_fnd_log_msg);
803: END IF;
804:
805: EXCEPTION
806: WHEN fnd_api.g_exc_error THEN
806: WHEN fnd_api.g_exc_error THEN
807: ROLLBACK TO delete_interactions_p;
808: --dbms_output.put_line('FAILURE EXPECTED');
809: x_return_status := fnd_api.g_ret_sts_error;
810: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
811: fnd_msg_pub.count_and_get
812: ( p_count => x_msg_count,
813: p_data => x_msg_data );
814: x_msg_data:=FND_MSG_PUB.Get(p_msg_index => x_msg_count, p_encoded=>'F');
811: fnd_msg_pub.count_and_get
812: ( p_count => x_msg_count,
813: p_data => x_msg_data );
814: x_msg_data:=FND_MSG_PUB.Get(p_msg_index => x_msg_count, p_encoded=>'F');
815: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
816: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS', x_msg_data);
817: END IF;
818:
819: WHEN fnd_api.g_exc_unexpected_error THEN
819: WHEN fnd_api.g_exc_unexpected_error THEN
820: ROLLBACK TO delete_interactions_p;
821: --dbms_output.put_line('FAILURE UNEXPECTED');
822: x_return_status := fnd_api.g_ret_sts_unexp_error;
823: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
824: fnd_msg_pub.count_and_get
825: ( p_count => x_msg_count,
826: p_data => x_msg_data );
827: x_msg_data := FND_MSG_PUB.Get(p_msg_index=>x_msg_count, p_encoded=>'F');
824: fnd_msg_pub.count_and_get
825: ( p_count => x_msg_count,
826: p_data => x_msg_data );
827: x_msg_data := FND_MSG_PUB.Get(p_msg_index=>x_msg_count, p_encoded=>'F');
828: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
829: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS', x_msg_data);
830: END IF;
831:
832: WHEN ErrNoRecFound THEN
831:
832: WHEN ErrNoRecFound THEN
833: ROLLBACK TO delete_interactions_p;
834: x_return_status := fnd_api.g_ret_sts_success;
835: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
836: fnd_msg_pub.count_and_get
837: ( p_count => x_msg_count,
838: p_data => x_msg_data );
839: x_msg_data:=FND_MSG_PUB.Get(p_msg_index => x_msg_count, p_encoded=>'F');
836: fnd_msg_pub.count_and_get
837: ( p_count => x_msg_count,
838: p_data => x_msg_data );
839: x_msg_data:=FND_MSG_PUB.Get(p_msg_index => x_msg_count, p_encoded=>'F');
840: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
841: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS', x_msg_data);
842: END IF;
843:
844: WHEN OTHERS THEN
847: x_return_status := fnd_api.g_ret_sts_unexp_error;
848: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
849: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
850: END IF;
851: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
852: fnd_msg_pub.count_and_get
853: ( p_count => x_msg_count,
854: p_data => x_msg_data );
855: x_msg_data:=FND_MSG_PUB.Get(p_msg_index => x_msg_count, p_encoded=>'F');
852: fnd_msg_pub.count_and_get
853: ( p_count => x_msg_count,
854: p_data => x_msg_data );
855: x_msg_data:=FND_MSG_PUB.Get(p_msg_index => x_msg_count, p_encoded=>'F');
856: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
857: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS', x_msg_data);
858: END IF;
859:
860: END P_DELETE_INTERACTIONS;