The following lines contain the word 'select', 'insert', 'update' or 'delete':
* This Procedure checks if the queue name is valid. If yes, inserts
* the DQer instance entry in the DQer registration table and
* returns the correct deque procedure to be executed by the DQer.
* Else raises application error which is inturn trapped by the caller
*
*
* Usage: General
*/
Procedure RegisterDQ (p_QueueName in varchar2,
p_DQPid in number,
p_QueueProc OUT NOCOPY varchar2)
is
e_InvalidQueueException exception;
select DQ_PROC_NAME, INTERNAL_Q_NAME
into p_QueueProc, l_InternalQName
from XDP_DQ_CONFIGURATION
-- INTERNAL_Q_NAME is upper so no need to check
-- where UPPER( INTERNAL_Q_NAME ) = upper( p_QueueName);
/* Every thing kewl insert into XDP_DQ_REGISTRATION with the Dequeuer */
/* Get an Unique Queue Name */
select to_char(XDP_DQER_NAME_S.NEXTVAL) into l_temp from dual;
insert into XDP_DQER_REGISTRATION (DQER_NAME,
DQER_PROCESS_ID,
INTERNAL_Q_NAME,
MODULE_NAME,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login
)
values (l_temp,
p_DQPid,
l_InternalQName,
'DONTKNOW',
FND_GLOBAL.USER_ID,
sysdate,
FND_GLOBAL.USER_ID,
sysdate,
FND_GLOBAL.LOGIN_ID);
delete from XDP_DQER_REGISTRATION
where DQER_PROCESS_ID = p_DQPid;