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;