The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
-- DISTINCT
type_table.MAX_MAJOR_LOAD_FACTOR,
type_table.MAX_MINOR_LOAD_FACTOR,
(type_table.RT_REFRESH_RATE * 60)
INTO
ty_major_load_max,
ty_minor_load_max,
l_refresh_rate_secs
FROM
IEO_SVR_TYPES_B type_table
WHERE
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(ROWNUM <= 1);
SELECT
SERVER_GROUP_ID
FROM
IEO_SVR_GROUPS
WHERE
GROUP_GROUP_ID = P_GROUP_ID;
SELECT
DISTINCT
NVL( svr_table.USING_SVR_GROUP_ID, svr_table.MEMBER_SVR_GROUP_ID )
INTO
v_all_group_ids(counter)
FROM
IEO_SVR_SERVERS svr_table
WHERE
(svr_table.SERVER_ID = P_SERVER_ID_LOOKING) AND
(ROWNUM <= 1);
SELECT
svr_table.SERVER_ID,
svr_table.SERVER_NAME,
svr_table.USER_ADDRESS,
svr_table.DNS_NAME,
svr_table.IP_ADDRESS,
prot_table.PORT,
comp_table.COMP_NAME,
rt_table.STATUS,
rt_table.MAJOR_LOAD_FACTOR,
rt_table.MINOR_LOAD_FACTOR,
rt_table.LAST_UPDATE_DATE
FROM
IEO_SVR_TYPES_B type_table,
IEO_SVR_SERVERS svr_table,
IEO_SVR_COMP_DEFS cdef_table,
IEO_SVR_COMPS comp_table,
IEO_SVR_PROTOCOL_MAP prot_table,
IEO_SVR_RT_INFO rt_table
WHERE
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(type_table.TYPE_ID = svr_table.TYPE_ID) AND
(svr_table.MEMBER_SVR_GROUP_ID = P_GROUP_ID) AND
(cdef_table.COMP_DEF_NAME = P_COMP_DEF_NAME) AND
(cdef_table.COMP_DEF_VERSION = P_COMP_DEF_VERSION) AND
(cdef_table.IMPLEMENTATION = P_COMP_DEF_IMPL) AND
(svr_table.SERVER_ID = comp_table.SERVER_ID) AND
(comp_table.COMP_DEF_ID = cdef_table.COMP_DEF_ID) AND
(prot_table.COMP_ID = comp_table.COMP_ID) AND
(prot_table.WIRE_PROTOCOL = P_WIRE_PROTOCOL) AND
-- NOTE: Outer on the RT INFO so servers which haven't updated
-- this are NOT excluded
(svr_table.SERVER_ID = rt_table.SERVER_ID (+)
) ;
v_svr_info_list(c1%ROWCOUNT).LAST_UPDATE := c1_rec.LAST_UPDATE_DATE;
SELECT
svr_table.SERVER_ID,
svr_table.SERVER_NAME,
svr_table.USER_ADDRESS,
svr_table.DNS_NAME,
svr_table.IP_ADDRESS,
prot_table.PORT,
comp_table.COMP_NAME,
rt_table.STATUS,
rt_table.MAJOR_LOAD_FACTOR,
rt_table.MINOR_LOAD_FACTOR,
rt_table.LAST_UPDATE_DATE
FROM
IEO_SVR_TYPES_B type_table,
IEO_SVR_SERVERS svr_table,
IEO_SVR_COMP_DEFS cdef_table,
IEO_SVR_COMPS comp_table,
IEO_SVR_PROTOCOL_MAP prot_table,
IEO_SVR_RT_INFO rt_table
WHERE
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(type_table.TYPE_ID = svr_table.TYPE_ID) AND
(svr_table.MEMBER_SVR_GROUP_ID = P_GROUP_ID) AND
(cdef_table.COMP_DEF_NAME = P_COMP_DEF_NAME) AND
(cdef_table.COMP_DEF_VERSION = P_COMP_DEF_VERSION) AND
(cdef_table.IMPLEMENTATION = P_COMP_DEF_IMPL) AND
(svr_table.SERVER_ID = comp_table.SERVER_ID) AND
(comp_table.COMP_DEF_ID = cdef_table.COMP_DEF_ID) AND
(prot_table.COMP_ID = comp_table.COMP_ID) AND
(prot_table.WIRE_PROTOCOL = P_WIRE_PROTOCOL) AND
-- NOTE: Outer on the RT INFO so servers which haven't updated
-- this are NOT excluded
(svr_table.SERVER_ID = rt_table.SERVER_ID (+)
) ;
v_svr_info_list(c1%ROWCOUNT).LAST_UPDATE := c1_rec.LAST_UPDATE_DATE;
SELECT sysdate
INTO X_DB_TIME
FROM dual;
SELECT sysdate INTO X_DB_TIME FROM dual;
/* Used to update real-time server information with node id. */
PROCEDURE UPDATE_RT_INFO_V2
(P_SERVER_ID IN NUMBER
,P_STATUS IN NUMBER
,P_NODE_ID IN NUMBER
,P_MAJOR_LOAD_FACTOR IN NUMBER
,P_MINOR_LOAD_FACTOR IN NUMBER
,P_EXTRA IN VARCHAR2
)
AS
BEGIN
IF ((P_SERVER_ID IS NULL) OR (P_STATUS IS NULL)) THEN
raise_application_error
(-20000
,'P_SERVER_ID and P_STATUS cannot be NULL. (P_SERVER_ID = ' ||
P_SERVER_ID || ') (P_STATUS = ' || P_STATUS || ')'
,TRUE );
SAVEPOINT start_update;
UPDATE IEO_SVR_RT_INFO
SET
STATUS = P_STATUS,
NODE_ID = P_NODE_ID,
MAJOR_LOAD_FACTOR = P_MAJOR_LOAD_FACTOR,
MINOR_LOAD_FACTOR = P_MINOR_LOAD_FACTOR,
EXTRA = P_EXTRA,
LAST_UPDATE_DATE = SYSDATE
WHERE
SERVER_ID = P_SERVER_ID;
INSERT INTO IEO_SVR_RT_INFO
( SERVER_ID,
STATUS,
NODE_ID,
MAJOR_LOAD_FACTOR,
MINOR_LOAD_FACTOR,
EXTRA,
LAST_UPDATE_DATE )
VALUES (
P_SERVER_ID,
P_STATUS,
P_NODE_ID,
P_MAJOR_LOAD_FACTOR,
P_MINOR_LOAD_FACTOR,
P_EXTRA,
SYSDATE );
ROLLBACK TO start_update;
END UPDATE_RT_INFO_V2;
/* Used to update real-time server information when load information is not specified. */
PROCEDURE UPDATE_RT_INFO_NO_LOAD_V2
(P_SERVER_ID IN NUMBER
,P_STATUS IN NUMBER
,P_NODE_ID IN NUMBER
,P_EXTRA IN VARCHAR2
)
AS
BEGIN
IF ((P_SERVER_ID IS NULL) OR (P_STATUS IS NULL)) THEN
raise_application_error
(-20000
,'P_SERVER_ID and P_STATUS cannot be NULL. (P_SERVER_ID = ' ||
P_SERVER_ID || ') (P_STATUS = ' || P_STATUS || ')'
,TRUE );
SAVEPOINT start_update;
UPDATE IEO_SVR_RT_INFO
SET
STATUS = P_STATUS,
NODE_ID = P_NODE_ID,
EXTRA = P_EXTRA,
LAST_UPDATE_DATE = SYSDATE
WHERE
SERVER_ID = P_SERVER_ID;
INSERT INTO IEO_SVR_RT_INFO
( SERVER_ID,
STATUS,
NODE_ID,
EXTRA,
LAST_UPDATE_DATE )
VALUES (
P_SERVER_ID,
P_STATUS,
P_NODE_ID,
P_EXTRA,
SYSDATE );
ROLLBACK TO start_update;
END UPDATE_RT_INFO_NO_LOAD_V2;
/* Used to update real-time server information. */
PROCEDURE UPDATE_RT_INFO
(P_SERVER_ID IN NUMBER
,P_STATUS IN NUMBER
,P_MAJOR_LOAD_FACTOR IN NUMBER
,P_MINOR_LOAD_FACTOR IN NUMBER
,P_EXTRA IN VARCHAR2
)
AS
BEGIN
IF ((P_SERVER_ID IS NULL) OR (P_STATUS IS NULL)) THEN
raise_application_error
(-20000
,'P_SERVER_ID and P_STATUS cannot be NULL. (P_SERVER_ID = ' ||
P_SERVER_ID || ') (P_STATUS = ' || P_STATUS || ')'
,TRUE );
SAVEPOINT start_update;
UPDATE IEO_SVR_RT_INFO
SET
STATUS = P_STATUS,
MAJOR_LOAD_FACTOR = P_MAJOR_LOAD_FACTOR,
MINOR_LOAD_FACTOR = P_MINOR_LOAD_FACTOR,
EXTRA = P_EXTRA,
LAST_UPDATE_DATE = SYSDATE
WHERE
SERVER_ID = P_SERVER_ID;
INSERT INTO IEO_SVR_RT_INFO
( SERVER_ID,
STATUS,
MAJOR_LOAD_FACTOR,
MINOR_LOAD_FACTOR,
EXTRA,
LAST_UPDATE_DATE )
VALUES (
P_SERVER_ID,
P_STATUS,
P_MAJOR_LOAD_FACTOR,
P_MINOR_LOAD_FACTOR,
P_EXTRA,
SYSDATE );
ROLLBACK TO start_update;
END UPDATE_RT_INFO;
/* Used to update real-time server information when load information is not specified. */
PROCEDURE UPDATE_RT_INFO_NO_LOAD
(P_SERVER_ID IN NUMBER
,P_STATUS IN NUMBER
,P_EXTRA IN VARCHAR2
)
AS
BEGIN
IF ((P_SERVER_ID IS NULL) OR (P_STATUS IS NULL)) THEN
raise_application_error
(-20000
,'P_SERVER_ID and P_STATUS cannot be NULL. (P_SERVER_ID = ' ||
P_SERVER_ID || ') (P_STATUS = ' || P_STATUS || ')'
,TRUE );
SAVEPOINT start_update;
UPDATE IEO_SVR_RT_INFO
SET
STATUS = P_STATUS,
EXTRA = P_EXTRA,
LAST_UPDATE_DATE = SYSDATE
WHERE
SERVER_ID = P_SERVER_ID;
INSERT INTO IEO_SVR_RT_INFO
( SERVER_ID,
STATUS,
EXTRA,
LAST_UPDATE_DATE )
VALUES (
P_SERVER_ID,
P_STATUS,
P_EXTRA,
SYSDATE );
ROLLBACK TO start_update;
END UPDATE_RT_INFO_NO_LOAD;
SELECT
DISTINCT
type_table.MAX_MAJOR_LOAD_FACTOR,
type_table.MAX_MINOR_LOAD_FACTOR,
(type_table.RT_REFRESH_RATE * 60)
INTO
ty_major_load_max,
ty_minor_load_max,
l_refresh_rate_secs
FROM
IEO_SVR_TYPES_B type_table
WHERE
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(ROWNUM <= 1);
SELECT
DISTINCT
MIN(rt_table.MAJOR_LOAD_FACTOR),
MAX(rt_table.MAJOR_LOAD_FACTOR),
MIN(rt_table.MINOR_LOAD_FACTOR),
MAX(rt_table.MINOR_LOAD_FACTOR)
INTO
rt_major_load_min,
rt_major_load_max,
rt_minor_load_min,
rt_minor_load_max
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_TYPES_B type_table,
IEO_SVR_RT_INFO rt_table
WHERE
(svr_table.TYPE_ID = type_table.TYPE_ID) AND
(svr_table.SERVER_ID = rt_table.SERVER_ID) AND
(svr_table.SERVER_ID <> l_exclude_server_id) AND
(svr_table.MEMBER_SVR_GROUP_ID = P_GROUP_ID) AND
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(rt_table.STATUS > 0) AND
(
(l_timeout_tolerance IS NULL) OR
(
ABS( l_curr_time_secs -
(to_number(to_char(rt_table.LAST_UPDATE_DATE,'SSSSS'))) )
<= (l_refresh_rate_secs + l_timeout_tolerance)
)
);
SELECT
DISTINCT
svr_table.SERVER_ID
INTO
X_SERVER_ID
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_TYPES_B type_table,
IEO_SVR_RT_INFO rt_table
WHERE
(svr_table.TYPE_ID = type_table.TYPE_ID) AND
(svr_table.SERVER_ID = rt_table.SERVER_ID) AND
(svr_table.SERVER_ID <> l_exclude_server_id) AND
(svr_table.MEMBER_SVR_GROUP_ID = P_GROUP_ID) AND
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(rt_table.STATUS > 0) AND
(
(l_timeout_tolerance IS NULL) OR
(
ABS( l_curr_time_secs -
(to_number(to_char(rt_table.LAST_UPDATE_DATE,'SSSSS'))) )
<= (l_refresh_rate_secs + l_timeout_tolerance)
)
) AND
(rt_table.MAJOR_LOAD_FACTOR <= rt_major_load_min) AND
(ROWNUM <= 1);
SELECT
DISTINCT
svr_table.SERVER_ID
INTO
X_SERVER_ID
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_TYPES_B type_table,
IEO_SVR_RT_INFO rt_table
WHERE
(svr_table.TYPE_ID = type_table.TYPE_ID) AND
(svr_table.SERVER_ID = rt_table.SERVER_ID) AND
(svr_table.SERVER_ID <> l_exclude_server_id) AND
(svr_table.MEMBER_SVR_GROUP_ID = P_GROUP_ID) AND
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(rt_table.STATUS > 0) AND
(
(l_timeout_tolerance IS NULL) OR
(
ABS( l_curr_time_secs -
(to_number(to_char(rt_table.LAST_UPDATE_DATE,'SSSSS'))) )
<= (l_refresh_rate_secs + l_timeout_tolerance)
)
) AND
(rt_table.MINOR_LOAD_FACTOR <= rt_minor_load_min) AND
(ROWNUM <= 1);
SELECT
DISTINCT
svr_table.SERVER_ID
INTO
X_SERVER_ID
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_TYPES_B type_table,
IEO_SVR_RT_INFO rt_table
WHERE
(svr_table.TYPE_ID = type_table.TYPE_ID) AND
(svr_table.SERVER_ID = rt_table.SERVER_ID) AND
(svr_table.SERVER_ID <> l_exclude_server_id) AND
(svr_table.MEMBER_SVR_GROUP_ID = P_GROUP_ID) AND
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(rt_table.STATUS > 0) AND
(
(l_timeout_tolerance IS NULL) OR
(
ABS( l_curr_time_secs -
(to_number(to_char(rt_table.LAST_UPDATE_DATE,'SSSSS'))) )
<= (l_refresh_rate_secs + l_timeout_tolerance)
)
) AND
(ROWNUM <= 1);
SELECT
DISTINCT
type_table.MAX_MAJOR_LOAD_FACTOR,
(type_table.RT_REFRESH_RATE * 60)
INTO
ty_major_load_max,
l_refresh_rate_secs
FROM
IEO_SVR_TYPES_B type_table
WHERE
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(ROWNUM <= 1);
SELECT
DISTINCT
MIN(rt_table.MAJOR_LOAD_FACTOR),
MAX(rt_table.MAJOR_LOAD_FACTOR)
INTO
rt_major_load_min,
rt_major_load_max
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_TYPES_B type_table,
IEO_SVR_RT_INFO rt_table
WHERE
(svr_table.TYPE_ID = type_table.TYPE_ID) AND
(svr_table.SERVER_ID = rt_table.SERVER_ID) AND
(svr_table.SERVER_ID <> l_exclude_server_id) AND
(svr_table.MEMBER_SVR_GROUP_ID = P_GROUP_ID) AND
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(rt_table.STATUS > 1) AND
(
(l_timeout_tolerance IS NULL) OR
(
ABS( l_curr_time_secs -
(to_number(to_char(rt_table.LAST_UPDATE_DATE,'SSSSS'))) )
<= (l_refresh_rate_secs + l_timeout_tolerance)
)
);
SELECT
DISTINCT
svr_table.SERVER_ID
INTO
X_SERVER_ID
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_TYPES_B type_table,
IEO_SVR_RT_INFO rt_table
WHERE
(svr_table.TYPE_ID = type_table.TYPE_ID) AND
(svr_table.SERVER_ID = rt_table.SERVER_ID) AND
(svr_table.SERVER_ID <> l_exclude_server_id) AND
(svr_table.MEMBER_SVR_GROUP_ID = P_GROUP_ID) AND
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(rt_table.STATUS > 1) AND
(
(l_timeout_tolerance IS NULL) OR
(
ABS( l_curr_time_secs -
(to_number(to_char(rt_table.LAST_UPDATE_DATE,'SSSSS'))) )
<= (l_refresh_rate_secs + l_timeout_tolerance)
)
) AND
(rt_table.MAJOR_LOAD_FACTOR <= rt_major_load_min) AND
(ROWNUM <= 1);
SELECT
DISTINCT
svr_table.SERVER_ID
INTO
X_SERVER_ID
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_TYPES_B type_table,
IEO_SVR_RT_INFO rt_table
WHERE
(svr_table.TYPE_ID = type_table.TYPE_ID) AND
(svr_table.SERVER_ID = rt_table.SERVER_ID) AND
(svr_table.SERVER_ID <> l_exclude_server_id) AND
(svr_table.MEMBER_SVR_GROUP_ID = P_GROUP_ID) AND
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(rt_table.STATUS > 1) AND
(
(l_timeout_tolerance IS NULL) OR
(
ABS( l_curr_time_secs -
(to_number(to_char(rt_table.LAST_UPDATE_DATE,'SSSSS'))) )
<= (l_refresh_rate_secs + l_timeout_tolerance)
)
) AND
(ROWNUM <= 1);
SELECT
DISTINCT
type_table.MAX_MINOR_LOAD_FACTOR,
(type_table.RT_REFRESH_RATE * 60)
INTO
ty_minor_load_max,
l_refresh_rate_secs
FROM
IEO_SVR_TYPES_B type_table
WHERE
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(ROWNUM <= 1);
SELECT
DISTINCT
MIN(rt_table.MINOR_LOAD_FACTOR),
MAX(rt_table.MINOR_LOAD_FACTOR)
INTO
rt_minor_load_min,
rt_minor_load_max
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_TYPES_B type_table,
IEO_SVR_RT_INFO rt_table
WHERE
(svr_table.TYPE_ID = type_table.TYPE_ID) AND
(svr_table.SERVER_ID = rt_table.SERVER_ID) AND
(svr_table.SERVER_ID <> l_exclude_server_id) AND
(svr_table.MEMBER_SVR_GROUP_ID = P_GROUP_ID) AND
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(rt_table.STATUS > 1) AND
(
(l_timeout_tolerance IS NULL) OR
(
ABS( l_curr_time_secs -
(to_number(to_char(rt_table.LAST_UPDATE_DATE,'SSSSS'))) )
<= (l_refresh_rate_secs + l_timeout_tolerance)
)
);
SELECT
DISTINCT
svr_table.SERVER_ID
INTO
X_SERVER_ID
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_TYPES_B type_table,
IEO_SVR_RT_INFO rt_table
WHERE
(svr_table.TYPE_ID = type_table.TYPE_ID) AND
(svr_table.SERVER_ID = rt_table.SERVER_ID) AND
(svr_table.SERVER_ID <> l_exclude_server_id) AND
(svr_table.MEMBER_SVR_GROUP_ID = P_GROUP_ID) AND
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(rt_table.STATUS > 1) AND
(
(l_timeout_tolerance IS NULL) OR
(
ABS( l_curr_time_secs -
(to_number(to_char(rt_table.LAST_UPDATE_DATE,'SSSSS'))) )
<= (l_refresh_rate_secs + l_timeout_tolerance)
)
) AND
(rt_table.MINOR_LOAD_FACTOR <= rt_minor_load_min) AND
(ROWNUM <= 1);
SELECT
DISTINCT
svr_table.SERVER_ID
INTO
X_SERVER_ID
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_TYPES_B type_table,
IEO_SVR_RT_INFO rt_table
WHERE
(svr_table.TYPE_ID = type_table.TYPE_ID) AND
(svr_table.SERVER_ID = rt_table.SERVER_ID) AND
(svr_table.SERVER_ID <> l_exclude_server_id) AND
(svr_table.MEMBER_SVR_GROUP_ID = P_GROUP_ID) AND
(type_table.TYPE_UUID = P_SERVER_TYPE_UUID) AND
(rt_table.STATUS > 1) AND
(
(l_timeout_tolerance IS NULL) OR
(
ABS( l_curr_time_secs -
(to_number(to_char(rt_table.LAST_UPDATE_DATE,'SSSSS'))) )
<= (l_refresh_rate_secs + l_timeout_tolerance)
)
) AND
(ROWNUM <= 1);
SELECT
DISTINCT
NVL( svr_table.USING_SVR_GROUP_ID, svr_table.MEMBER_SVR_GROUP_ID )
INTO
l_group_id
FROM
IEO_SVR_SERVERS svr_table
WHERE
(svr_table.SERVER_ID = P_SERVER_ID_LOOKING) AND
(ROWNUM <= 1);
SELECT
DISTINCT
comp_table.COMP_NAME
INTO
X_COMP_NAME
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_COMP_DEFS cdef_table,
IEO_SVR_COMPS comp_table,
IEO_SVR_PROTOCOL_MAP prot_table
WHERE
(svr_table.SERVER_ID = comp_table.SERVER_ID) AND
(svr_table.SERVER_ID = x_server_id_found) AND
(comp_table.COMP_DEF_ID = cdef_table.COMP_DEF_ID) AND
(prot_table.COMP_ID = comp_table.COMP_ID) AND
(prot_table.WIRE_PROTOCOL = P_WIRE_PROTOCOL) AND
(cdef_table.COMP_DEF_NAME = P_COMP_DEF_NAME) AND
(cdef_table.COMP_DEF_VERSION = P_COMP_DEF_VERSION) AND
(cdef_table.IMPLEMENTATION = P_COMP_DEF_IMPL) AND
(ROWNUM <= 1);
SELECT
DISTINCT
svr_table.USER_ADDRESS,
svr_table.DNS_NAME,
svr_table.IP_ADDRESS,
prot_table.PORT
INTO
X_USER_ADDRESS,
X_DNS_NAME,
X_IP_ADDRESS,
X_PORT
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_COMP_DEFS cdef_table,
IEO_SVR_COMPS comp_table,
IEO_SVR_PROTOCOL_MAP prot_table
WHERE
(svr_table.SERVER_ID = x_server_id_found) AND
(svr_table.SERVER_ID = comp_table.SERVER_ID) AND
(comp_table.COMP_DEF_ID = cdef_table.COMP_DEF_ID) AND
(prot_table.COMP_ID = comp_table.COMP_ID) AND
(prot_table.WIRE_PROTOCOL = P_WIRE_PROTOCOL) AND
(cdef_table.COMP_DEF_NAME = P_COMP_DEF_NAME) AND
(cdef_table.COMP_DEF_VERSION = P_COMP_DEF_VERSION) AND
(cdef_table.IMPLEMENTATION = P_COMP_DEF_IMPL) AND
(comp_table.COMP_NAME = X_COMP_NAME) AND
(ROWNUM <= 1);
SELECT
DISTINCT
comp_table.COMP_NAME
INTO
X_COMP_NAME
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_COMP_DEFS cdef_table,
IEO_SVR_COMPS comp_table,
IEO_SVR_PROTOCOL_MAP prot_table
WHERE
(svr_table.SERVER_ID = comp_table.SERVER_ID) AND
(svr_table.SERVER_ID = x_server_id_found) AND
(comp_table.COMP_DEF_ID = cdef_table.COMP_DEF_ID) AND
(prot_table.COMP_ID = comp_table.COMP_ID) AND
(prot_table.WIRE_PROTOCOL = P_WIRE_PROTOCOL) AND
(cdef_table.COMP_DEF_NAME = P_COMP_DEF_NAME) AND
(cdef_table.COMP_DEF_VERSION = P_COMP_DEF_VERSION) AND
(cdef_table.IMPLEMENTATION = P_COMP_DEF_IMPL) AND
(ROWNUM <= 1);
SELECT
DISTINCT
svr_table.USER_ADDRESS,
svr_table.DNS_NAME,
svr_table.IP_ADDRESS,
prot_table.PORT
INTO
X_USER_ADDRESS,
X_DNS_NAME,
X_IP_ADDRESS,
X_PORT
FROM
IEO_SVR_SERVERS svr_table,
IEO_SVR_COMP_DEFS cdef_table,
IEO_SVR_COMPS comp_table,
IEO_SVR_PROTOCOL_MAP prot_table
WHERE
(svr_table.SERVER_ID = x_server_id_found) AND
(svr_table.SERVER_ID = comp_table.SERVER_ID) AND
(comp_table.COMP_DEF_ID = cdef_table.COMP_DEF_ID) AND
(prot_table.COMP_ID = comp_table.COMP_ID) AND
(prot_table.WIRE_PROTOCOL = P_WIRE_PROTOCOL) AND
(cdef_table.COMP_DEF_NAME = P_COMP_DEF_NAME) AND
(cdef_table.COMP_DEF_VERSION = P_COMP_DEF_VERSION) AND
(cdef_table.IMPLEMENTATION = P_COMP_DEF_IMPL) AND
(comp_table.COMP_NAME = X_COMP_NAME) AND
(ROWNUM <= 1);
select ip_address into x_ip
from ieo_svr_servers where server_id = p_server_id;
SELECT COMP_DEF_ID INTO l_comp_def_id FROM IEO_SVR_COMP_DEFS WHERE
COMP_DEF_NAME = p_comp_def_name and
COMP_DEF_VERSION = p_comp_def_version and
SERVER_TYPE_ID = p_server_type_id;
SELECT A.COMP_ID, A.COMP_NAME, B.WIRE_PROTOCOL, B.PORT
into x_comp_id, x_comp_name, x_wire_protocol, x_port
FROM IEO_SVR_COMPS A, IEO_SVR_PROTOCOL_MAP B
WHERE A.COMP_ID = B.COMP_ID
AND A.COMP_DEF_ID = l_comp_def_id
AND A.SERVER_ID = p_server_id;
l_last_update_date DATE;
SELECT RT_REFRESH_RATE into l_refresh_rate
FROM IEO_SVR_TYPES_B
WHERE TYPE_ID = p_server_type_id;
SELECT STATUS, LAST_UPDATE_DATE, SYSDATE NOW
into x_server_status, l_last_update_date, l_sysdate
FROM IEO_SVR_RT_INFO
WHERE SERVER_ID = p_server_id;
if (((l_sysdate - l_last_update_date)*1440) <= l_refresh_rate) then
x_is_server_up := FND_API.G_TRUE;
select a.server_name, b.group_name into x_server_name, x_server_group_name
from ieo_Svr_servers a, ieo_Svr_groups b
where a.server_id = p_server_id and a.member_svr_group_id = b.server_group_id;
UPDATE IEU_UWQ_AGENT_BINDINGS
SET
NOT_VALID = 'Y',
LAST_UPDATE_DATE = SYSDATE
WHERE
SERVER_ID = P_SERVER_ID;