[Home] [Help]
174: -- This procedure sets the given event object to the Object cache. This
175: -- procedure set the event object to the appropriate cache created for
176: -- events
177: procedure Get_Event_Object(p_event_name in varchar2,
178: p_event_obj in out nocopy WF_Event_Obj)
179: is
180: l_any_data AnyData;
181: l_dummy pls_integer;
182: begin
192: -- Set_Event_Object (PRIVATE)
193: -- This procedure gets the event object from the Object cache for the given
194: -- event name.
195: procedure Set_Event_Object(p_event_name in varchar2,
196: p_event_obj in WF_Event_Obj)
197: is
198: l_any_data AnyData;
199: begin
200: -- Store this object in the cache for future use
203: end Set_Event_Object;
204:
205: -- Load_Event (PRIVATE)
206: -- Given the event name, this procedure loads the event information to the
207: -- wf_event_obj instance
208: procedure Load_Event(p_event_name in varchar2,
209: p_event_obj in out nocopy wf_event_obj)
210: is
211:
205: -- Load_Event (PRIVATE)
206: -- Given the event name, this procedure loads the event information to the
207: -- wf_event_obj instance
208: procedure Load_Event(p_event_name in varchar2,
209: p_event_obj in out nocopy wf_event_obj)
210: is
211:
212: CURSOR c_get_event (cp_event_name varchar2) IS
213: SELECT guid, name, type, status, generate_function,
216: WHERE name = cp_event_name;
217:
218: begin
219: if (p_event_obj is null) then
220: wf_event_obj.Initialize(p_event_obj);
221: end if;
222:
223: open c_get_event(p_event_name);
224: fetch c_get_event into p_event_obj.guid, p_event_obj.name, p_event_obj.type,
229: wf_log_pkg.string(wf_log_pkg.level_statement,
230: 'wf.plsql.WF_BES_CACHE.Load_Event.Not_Found',
231: 'Event {'||p_event_name||'} not found in the database');
232: end if;
233: -- If event not found in the set wf_event_obj to null
234: p_event_obj := null;
235: end if;
236: close c_get_event;
237:
238: end Load_Event;
239:
240: -- Load_Subscriptions (PRIVATE)
241: -- Given the event name this procedure loads all the valid subscriptions
242: -- into the wf_event_obj
243: procedure Load_Subscriptions(p_event_name in varchar2,
244: p_source_type in varchar2,
245: p_source_agent in raw,
246: p_subs_count in out nocopy number,
243: procedure Load_Subscriptions(p_event_name in varchar2,
244: p_source_type in varchar2,
245: p_source_agent in raw,
246: p_subs_count in out nocopy number,
247: p_event_obj in out nocopy wf_event_obj)
248: is
249:
250: -- Cursor from wf_event.Dispatch that fetches all the valid subscriptions to the
251: -- event and the event group to which the event belongs
443: p_subs_count := l_count;
444: end Load_Subscriptions;
445:
446: -- GetEventByName
447: -- This function returns an instance of WF_Event_Obj object type which
448: -- contains the complete event information along with valid subscriptions
449: -- to the event. The information could come from the cache memory or from
450: -- the database.
451: -- IN
450: -- the database.
451: -- IN
452: -- p_event_name - Event name whose information is required
453: function GetEventByName(p_event_name in varchar2)
454: return wf_event_obj
455: is
456: l_event_obj wf_event_obj;
457: l_any_data anyData;
458: l_dummy pls_integer;
452: -- p_event_name - Event name whose information is required
453: function GetEventByName(p_event_name in varchar2)
454: return wf_event_obj
455: is
456: l_event_obj wf_event_obj;
457: l_any_data anyData;
458: l_dummy pls_integer;
459: begin
460: if (wf_log_pkg.level_procedure >= fnd_log.g_current_runtime_level) then
533: p_source_type in varchar2,
534: p_source_agent in raw)
535: return wf_event_subs_tab
536: is
537: l_event_obj wf_event_obj;
538: l_any_data anyData;
539: l_dummy pls_integer;
540: l_subs_count number;
541: begin
602: function GetSubscriptionByGUID(p_event_name in varchar2,
603: p_sub_guid in raw)
604: return wf_event_subs_obj
605: is
606: l_event_obj WF_Event_Obj;
607: l_subs_count number;
608: l_subs_loaded boolean;
609: begin
610: -- If either of the parameter values are null, no info can be returned