The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Q_Status (
p_q_name IN VARCHAR2,
p_action_code IN VARCHAR2,
p_sql_code OUT NUMBER,
p_sql_desc OUT VARCHAR2)
IS
l_CurrentState VARCHAR2(10);
SELECT display_name, state, num_of_dqer INTO l_ResourceName, l_CurrentState, l_CurrentCount
FROM XDP_DQ_CONFIGURATION_VL
--skilaru 03/28/2001
--WHERE UPPERi(nternal_q_name) = UPPER(p_q_name)
WHERE internal_q_name = UPPER(p_q_name)
and DQ_PROC_NAME <> 'NODQPROC'
FOR UPDATE NOWAIT;
update XDP_DQ_CONFIGURATION set
STATE = 'SUSPENDED',
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
--skilaru 03/28/2001
--where UPPER(INTERNAL_Q_NAME) = UPPER(p_q_name);
p_sql_desc := 'Location: XDP_Q_ADMIN_PKG.UPDATE_Q_STATUS. Invalid action code :'
||p_action_code||': passed';
p_sql_desc := SUBSTR ('Location: XDP_Q_ADMIN_PKG.UPDATE_Q_STATUS, Error Desc.: '||
SQLERRM, 1, 2000);
p_sql_desc := 'Location: XDP_Q_ADMIN_PKG.UPDATE_Q_STATUS, Other non-SQL error';
END UPDATE_Q_STATUS;
-- caller Update_Q_Status or Start_All_Qs
XDP_ADAPTER_ADMIN.LockVerifyController
(
errbuf => p_sql_desc,
retcode => p_sql_code,
IsControllerLocked => l_ControllerFlag1,
IsControllerDown => l_ControllerFlag2,
MaxTries => p_max_tries,
MaxTriesLock => p_max_tries,
Caller => p_caller
);
SELECT 1 INTO l_RetNumber
FROM XDP_DQ_CONFIGURATION
--skilaru 03/27/2001
--WHERE UPPER(internal_q_name) = UPPER(p_q_name)
WHERE internal_q_name = UPPER(p_q_name)
FOR UPDATE NOWAIT;
update XDP_DQ_CONFIGURATION
set STATE = 'SHUTDOWN',
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
where internal_q_name = UPPER(p_q_name);
update XDP_DQ_CONFIGURATION
set STATE = 'SHUTDOWN',
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
where internal_q_name = UPPER(p_q_name);
select INTERNAL_Q_NAME, DISPLAY_NAME, STATE, NUM_OF_DQER
from XDP_DQ_CONFIGURATION_VL
where DQ_PROC_NAME <> 'NODQPROC'
and STATE in
('ENABLED', decode (lc_caller, 'CONC_JOB', 'SHUTDOWN', 'ENABLED'))
order by STATE, INTERNAL_Q_NAME;
SELECT 1 INTO l_RetNumber
FROM XDP_DQ_CONFIGURATION
--skilaru 03/27/2001
--WHERE UPPER(internal_q_name) = UPPER(v_QData.INTERNAL_Q_NAME)
WHERE internal_q_name = UPPER(v_QData.INTERNAL_Q_NAME)
FOR UPDATE NOWAIT;
select excep.MESSAGE, excep.ERROR_TIMESTAMP
from XDP_ERROR_LOG_V excep
where excep.OBJECT_KEY = UPPER(q_name) and excep.OBJECT_TYPE = 'QUEUE'
order by ERROR_TIMESTAMP desc;
p_message_list.DELETE;
p_message_list.DELETE;
select DQER_PROCESS_ID
from XDP_DQER_REGISTRATION a
--skilaru 03/28/2001
--where UPPER(a.INTERNAL_Q_NAME) = UPPER(q_name )
where a.INTERNAL_Q_NAME = UPPER(q_name )
FOR UPDATE OF DQER_PROCESS_ID NOWAIT
order by DQER_PROCESS_ID;
-- Delete the row from XDP_DQER_REGISTRATION
DELETE XDP_DQER_REGISTRATION
WHERE CURRENT OF c_GetDQPIDsForQ;