[Home] [Help]
PACKAGE BODY: APPS.WF_AGT_DYN_FUNCS
Source
1 package body WF_AGT_DYN_FUNCS as
2 /* $Header: WFAGTDFNB.pls 120.2 2005/09/02 16:25:27 vshanmug noship $ */
3 --
4 --Static enqueue procedure calls
5 --
6 PROCEDURE StaticEnqueue(p_qh_name in varchar2,
7 p_event in wf_event_t,
8 p_out_agent_override in wf_agent_t,
9 p_executed out nocopy boolean)
10 as
11 l_qh_name varchar2(240);
12 begin
13 p_executed := FALSE;
14 l_qh_name := upper(trim(p_qh_name));
15
16 if (l_qh_name = 'WF_EVENT_OJMSTEXT_QH') then
17 WF_EVENT_OJMSTEXT_QH.Enqueue(p_event, p_out_agent_override);
18 p_executed := TRUE;
19 return;
20 end if;
21 if (l_qh_name = 'WF_EVENT_QH') then
22 WF_EVENT_QH.Enqueue(p_event, p_out_agent_override);
23 p_executed := TRUE;
24 return;
25 end if;
26
27 end StaticEnqueue;
28
29 --
30 --Static dequeue procedure calls
31 --
32 PROCEDURE StaticDequeue(p_qh_name in varchar2,
33 p_agent_guid in raw,
34 p_event in out nocopy wf_event_t,
35 p_wait in binary_integer,
36 p_executed out nocopy boolean)
37 as
38 l_qh_name varchar2(240);
39 begin
40 p_executed := FALSE;
41 l_qh_name := upper(trim(p_qh_name));
42
43 if (l_qh_name = 'WF_EVENT_OJMSTEXT_QH') then
44 WF_EVENT_OJMSTEXT_QH.Dequeue(p_agent_guid, p_event, p_wait);
45 p_executed := TRUE;
46 return;
47 end if;
48 if (l_qh_name = 'WF_EVENT_QH') then
49 WF_EVENT_QH.Dequeue(p_agent_guid, p_event, p_wait);
50 p_executed := TRUE;
51 return;
52 end if;
53
54 end StaticDequeue;
55
56 end WF_AGT_DYN_FUNCS;