126: begin
127: return g_Object_List(p_cache_key).Cache_Objs.EXISTS(p_object_key);
128: end isDuplicate;
129:
130: procedure Assign_Object(p_object in anydata,
131: p_cache_key in number,
132: p_object_key in number)
133: is
134: l_object anyData;
130: procedure Assign_Object(p_object in anydata,
131: p_cache_key in number,
132: p_object_key in number)
133: is
134: l_object anyData;
135: l_exists boolean;
136: l_currIdx number;
137:
138: l_event wf_event_obj;
136: l_currIdx number;
137:
138: l_event wf_event_obj;
139: dummy pls_integer;
140: l_anyData sys.anyData;
141: begin
142: -- Set object would be called only if the required object was not already
143: -- in the cache.
144: if (wf_log_pkg.level_procedure >= fnd_log.g_current_runtime_level) then
167: end if;
168: end Assign_Object;
169:
170: -- SetObject
171: -- This procedure helps to store an object of type ANYDATA within a cache
172: -- that was previously created with CreateCache. The object is stored
173: -- within a PLSQL table under a subscript that is a hash value generated
174: -- from the object key.
175: -- For example,
176: -- If an event object is to be cached whose name is oracle.apps.vj.test,
177: -- a hash value is generated for event name oracle.apps.vj.test and the object
178: -- is stored under that location within the PLSQL table.
179: procedure SetObject(p_cache_index in number,
180: p_object in anydata,
181: p_object_key in varchar2)
182: is
183: l_cacheLoc number;
184: l_objHashVal number;
223: raise;
224: end SetObject;
225:
226: -- GetObject
227: -- This procedure returns ANYDATA object from a given cache for a given
228: -- object cache.
229: function GetObject(p_cache_index in number,
230: p_object_key in varchar2)
231: return anyData
227: -- This procedure returns ANYDATA object from a given cache for a given
228: -- object cache.
229: function GetObject(p_cache_index in number,
230: p_object_key in varchar2)
231: return anyData
232: is
233: l_cacheLoc number;
234: l_objHashVal number;
235: l_idx number;
232: is
233: l_cacheLoc number;
234: l_objHashVal number;
235: l_idx number;
236: l_anyData sys.anyData;
237: dummy pls_integer;
238: l_event wf_event_obj;
239: begin
240:
270: raise;
271: end GetObject;
272:
273: -- GetAllObjects
274: -- This procedure returns all the ANYDATA objects cached under a given cache
275: function GetAllObjects(p_cache_index in number)
276: return wf_objects_t
277: is
278: l_objs wf_objects_t;