1: package body WF_ERROR_QH as
2: /* $Header: wferrqhb.pls 120.2 2006/02/16 05:49:22 nravindr ship $ */
3: ------------------------------------------------------------------------------
4: PROCEDURE dequeue(p_agent_guid in raw,
5: p_event out nocopy wf_event_t)
6: is
7: x_queue_name varchar2(80);
8: x_agent_name varchar2(30);
9: x_dequeue_options dbms_aq.dequeue_options_t;
108: -- Bug 5034154
109: -- Added as a wrapper over the existing dequeue
110: -- calls existing dequeue with two parameters ignoring p_wait
111: PROCEDURE dequeue(p_agent_guid in raw,
112: p_event out nocopy wf_event_t,
113: p_wait in binary_integer)
114: is
115: begin
116: dequeue(p_agent_guid, p_event);
115: begin
116: dequeue(p_agent_guid, p_event);
117: end dequeue;
118: ------------------------------------------------------------------------------
119: PROCEDURE enqueue(p_event in wf_event_t,
120: p_out_agent_override in wf_agent_t )
121: is
122: x_out_agent_name varchar2(30);
123: x_out_system_name varchar2(30);