[Home] [Help]
178: -- This procedure sets the given event object to the Object cache. This
179: -- procedure set the event object to the appropriate cache created for
180: -- events
181: procedure Get_Event_Object(p_event_name in varchar2,
182: p_event_obj in out nocopy WF_Event_Obj)
183: is
184: l_any_data AnyData;
185: l_dummy pls_integer;
186: begin
196: -- Set_Event_Object (PRIVATE)
197: -- This procedure gets the event object from the Object cache for the given
198: -- event name.
199: procedure Set_Event_Object(p_event_name in varchar2,
200: p_event_obj in WF_Event_Obj)
201: is
202: l_any_data AnyData;
203: begin
204: -- Store this object in the cache for future use
207: end Set_Event_Object;
208:
209: -- Load_Event (PRIVATE)
210: -- Given the event name, this procedure loads the event information to the
211: -- wf_event_obj instance
212: procedure Load_Event(p_event_name in varchar2,
213: p_event_obj in out nocopy wf_event_obj)
214: is
215:
209: -- Load_Event (PRIVATE)
210: -- Given the event name, this procedure loads the event information to the
211: -- wf_event_obj instance
212: procedure Load_Event(p_event_name in varchar2,
213: p_event_obj in out nocopy wf_event_obj)
214: is
215:
216: CURSOR c_get_event (cp_event_name varchar2) IS
217: SELECT guid, name, type, status, generate_function,
220: WHERE name = cp_event_name;
221:
222: begin
223: if (p_event_obj is null) then
224: wf_event_obj.Initialize(p_event_obj);
225: end if;
226:
227: open c_get_event(p_event_name);
228: fetch c_get_event into p_event_obj.guid, p_event_obj.name, p_event_obj.type,
233: wf_log_pkg.string(wf_log_pkg.level_statement,
234: 'wf.plsql.WF_BES_CACHE.Load_Event.Not_Found',
235: 'Event {'||p_event_name||'} not found in the database');
236: end if;
237: -- If event not found in the set wf_event_obj to null
238: p_event_obj := null;
239: end if;
240: close c_get_event;
241:
242: end Load_Event;
243:
244: -- Load_Subscriptions (PRIVATE)
245: -- Given the event name this procedure loads all the valid subscriptions
246: -- into the wf_event_obj
247: procedure Load_Subscriptions(p_event_name in varchar2,
248: p_source_type in varchar2,
249: p_source_agent in raw,
250: p_subs_count in out nocopy number,
247: procedure Load_Subscriptions(p_event_name in varchar2,
248: p_source_type in varchar2,
249: p_source_agent in raw,
250: p_subs_count in out nocopy number,
251: p_event_obj in out nocopy wf_event_obj)
252: is
253:
254: -- Cursor from wf_event.Dispatch that fetches all the valid subscriptions to the
255: -- event and the event group to which the event belongs
447: p_subs_count := l_count;
448: end Load_Subscriptions;
449:
450: -- GetEventByName
451: -- This function returns an instance of WF_Event_Obj object type which
452: -- contains the complete event information along with valid subscriptions
453: -- to the event. The information could come from the cache memory or from
454: -- the database.
455: -- IN
454: -- the database.
455: -- IN
456: -- p_event_name - Event name whose information is required
457: function GetEventByName(p_event_name in varchar2)
458: return wf_event_obj
459: is
460: l_event_obj wf_event_obj;
461: l_any_data anyData;
462: l_dummy pls_integer;
456: -- p_event_name - Event name whose information is required
457: function GetEventByName(p_event_name in varchar2)
458: return wf_event_obj
459: is
460: l_event_obj wf_event_obj;
461: l_any_data anyData;
462: l_dummy pls_integer;
463: begin
464: if (wf_log_pkg.level_procedure >= fnd_log.g_current_runtime_level) then
537: p_source_type in varchar2,
538: p_source_agent in raw)
539: return wf_event_subs_tab
540: is
541: l_event_obj wf_event_obj;
542: l_any_data anyData;
543: l_dummy pls_integer;
544: l_subs_count number;
545: begin
606: function GetSubscriptionByGUID(p_event_name in varchar2,
607: p_sub_guid in raw)
608: return wf_event_subs_obj
609: is
610: l_event_obj WF_Event_Obj;
611: l_subs_count number;
612: l_subs_loaded boolean;
613: begin
614: -- If either of the parameter values are null, no info can be returned