The following lines contain the word 'select', 'insert', 'update' or 'delete':
delete_deleted_middlewares;
delete_defunct_middlewares;
raise_application_error(-20000, sqlerrm || '. Could not delete defunct deleted middlewares') ;
PROCEDURE delete_defunct_middlewares
IS
l_config_id cct_middlewares.middleware_id%type;
select a.middleware_id
from cct_middlewares a
where f_deletedflag <> 'D'
OR f_deletedflag is null
and not exists
(select server_group_id from ieo_svr_groups b where b.server_group_id = a.server_group_id );
delete_middleware(p_middleware_id =>l_config_id);
raise_application_error(-20000, sqlerrm || '. Could not delete defunct middlewares') ;
PROCEDURE delete_deleted_middlewares
IS
l_config_id cct_middlewares.middleware_id%type;
select distinct a.server_group_id
from cct_middlewares a
where f_deletedflag <> 'D'
OR f_deletedflag is null
and not exists
(select server_group_id from ieo_svr_groups b where b.server_group_id = a.server_group_id );
SAVEPOINT CCT_MIDDLEWARE_DELETED_DEL;
delete_middleware(p_middleware_id =>l_config_id);
rollback TO SAVEPOINT CCT_MIDDLEWARE_DELETED_DEL;
raise_application_error(-20000, sqlerrm || '. Could not delete deleted middlewares') ;
PROCEDURE delete_middleware
( p_server_group_id IN NUMBER
, p_commit_flag IN VARCHAR2)
IS
l_config_id cct_middlewares.middleware_id%type;
select middleware_id
from cct_middlewares
where server_group_id = p_server_group_id;
delete_middleware(p_middleware_id =>l_config_id);
raise_application_error(-20000, sqlerrm || '. Could not delete teleset') ;
PROCEDURE delete_middleware
( p_middleware_id IN NUMBER
, p_commit_flag IN VARCHAR2)
IS
CURSOR csr_jtf_rs_resource_values
is
select resource_param_value_id, value_type, object_version_number
from jtf_rs_resource_values
where value_type = to_char(p_middleware_id);
delete_teleset(p_middleware_id => p_middleware_id);
delete_ivr(p_middleware_id => p_middleware_id);
delete_multisite(p_middleware_id => p_middleware_id);
delete_route_point(p_middleware_id => p_middleware_id);
delete cct_middleware_values
where middleware_id = p_middleware_id;
jtf_rs_resource_values_pub.delete_rs_resource_values
(
p_api_version => 1
,p_commit => fnd_api.g_true
,p_resource_param_value_id => l_param_value_id
,p_object_version_number => l_obj_ver
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
);
delete cct_middlewares
where middleware_id = p_middleware_id;
raise_application_error(-20000, sqlerrm || '. Could not delete middleware for middleware'||p_middleware_id) ;
PROCEDURE delete_teleset
( p_middleware_id IN NUMBER
, p_commit_flag IN VARCHAR2)
IS
BEGIN
IF p_middleware_id is not null
then
SAVEPOINT CCT_TELESET_DEL;
delete cct_lines
where teleset_id in (select teleset_id
from cct_telesets
where middleware_id = p_middleware_id);
delete cct_telesets
where middleware_id = p_middleware_id;
raise_application_error(-20000, sqlerrm || '. Could not delete teleset') ;
/* Delete IVR values
*/
--Tested
PROCEDURE delete_ivr
( p_middleware_id IN NUMBER
, p_commit_flag IN VARCHAR2)
IS
BEGIN
IF p_middleware_id is not null
then
SAVEPOINT CCT_IVR_DEL;
delete cct_ivr_maps
where mw_route_point_id in (select mw_route_point_id
from cct_mw_route_points
where middleware_id = p_middleware_id);
raise_application_error(-20000, sqlerrm || '. Could not delete IVR') ;
PROCEDURE delete_ivr
( p_route_point_id IN NUMBER
, p_commit_flag IN VARCHAR2)
IS
BEGIN
IF p_route_point_id is not null
then
SAVEPOINT CCT_IVR_RP_DEL;
delete cct_ivr_maps
where mw_route_point_id = p_route_point_id;
raise_application_error(-20000, sqlerrm || '. Could not delete IVR') ;
PROCEDURE delete_multisite
( p_middleware_id IN NUMBER
, p_commit_flag IN VARCHAR2)
IS
l_config_id cct_multisite_configs.multisite_config_id%type;
select multisite_config_id
from cct_multisite_configs
where from_middleware_id = p_middleware_id
or to_middleware_id = p_middleware_id;
delete_multisite_paths(p_multisite_config_id =>l_config_id);
delete cct_multisite_values
where multisite_config_id = l_config_id;
delete cct_multisite_configs
where from_middleware_id = p_middleware_id
or to_middleware_id = p_middleware_id;
raise_application_error(-20000, sqlerrm || '. Could not delete multisite') ;
PROCEDURE delete_multisite_paths
( p_multisite_config_id IN NUMBER
, p_commit_flag IN VARCHAR2)
IS
BEGIN
IF p_multisite_config_id is not null
then
SAVEPOINT CCT_MULTISITE_PATHS_DEL;
delete cct_multisite_path_values
where multisite_path_id IN(select multisite_path_id
from cct_multisite_paths
where multisite_config_id = p_multisite_config_id);
delete cct_multisite_paths
where multisite_config_id = p_multisite_config_id;
raise_application_error(-20000, sqlerrm || '. Could not delete multisite paths') ;
PROCEDURE delete_route_point
( p_middleware_id IN NUMBER
, p_commit_flag IN VARCHAR2)
IS
l_id cct_mw_route_points.mw_route_point_id%type;
select mw_route_point_id
from cct_mw_route_points
where middleware_id = p_middleware_id;
delete_multisite_paths(p_mw_route_point_id =>l_id);
delete_ivr(p_route_point_id=>l_id);
delete cct_mw_route_point_values
where mw_route_point_id = l_id;
delete cct_mw_route_points
where middleware_id = p_middleware_id;
raise_application_error(-20000, sqlerrm || '. Could not delete Route Points') ;
PROCEDURE delete_multisite_paths
( p_mw_route_point_id IN NUMBER
, p_commit_flag IN VARCHAR2)
IS
BEGIN
IF p_mw_route_point_id is not null
then
SAVEPOINT CCT_MULTISITE_PATHS_RP_DEL;
delete cct_multisite_path_values
where multisite_path_id IN(select multisite_path_id
from cct_multisite_paths
where mw_route_point_id = p_mw_route_point_id);
delete cct_multisite_paths
where mw_route_point_id = p_mw_route_point_id;
raise_application_error(-20000, sqlerrm || '. Could not delete multisite paths') ;