489: END IF;
490:
491: -- Initialize message list if p_init_msg_list is set to TRUE
492: IF fnd_api.to_boolean(p_init_msg_list) THEN
493: fnd_msg_pub.initialize;
494: END IF;
495:
496: -- Initialize API return status to success
497: x_return_status := fnd_api.g_ret_sts_success;
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');
815: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
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');
815: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
816: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS', x_msg_data);
817: END IF;
818:
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');
828: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
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');
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
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');
840: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
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');
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
845: ROLLBACK TO delete_interactions_p;
846: --dbms_output.put_line('FAILURE OTHERS');
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
845: ROLLBACK TO delete_interactions_p;
846: --dbms_output.put_line('FAILURE OTHERS');
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,
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');
856: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
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');
856: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
857: 'jtf.plsql.JTF_IH_PURGE.P_DELETE_INTERACTIONS', x_msg_data);
858: END IF;
859: