APPS.WF_EVENT_OJMSTEXT_QH dependencies on AQ$_JMS_TEXT_MESSAGE

Line 22: -- procedures to emulate the native aq$_jms_text_message methods available in RDBMS 9.2

18: ERROR_MESSAGE constant varchar2(30) := 'BES_ERROR_MESSAGE';
19: ERROR_STACK constant varchar2(30) := 'BES_ERROR_STACK';
20: PAYLOAD_OBJECT constant varchar2(30) := 'BES_PAYLOAD_OBJECT';
21:
22: -- procedures to emulate the native aq$_jms_text_message methods available in RDBMS 9.2
23:
24: procedure set_type(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
25: type in varchar)
26: is

Line 24: procedure set_type(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

20: PAYLOAD_OBJECT constant varchar2(30) := 'BES_PAYLOAD_OBJECT';
21:
22: -- procedures to emulate the native aq$_jms_text_message methods available in RDBMS 9.2
23:
24: procedure set_type(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
25: type in varchar)
26: is
27: begin
28: if(p_jms_text_message.header is null) then

Line 35: procedure set_userid(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

31:
32: p_jms_text_message.header.type := type;
33: end set_type;
34:
35: procedure set_userid(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
36: userid in varchar)
37: is
38: begin
39: if(p_jms_text_message.header is null) then

Line 46: procedure set_appid(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

42:
43: p_jms_text_message.header.userid := userid;
44: end set_userid;
45:
46: procedure set_appid(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
47: appid in varchar)
48: is
49: begin
50: if(p_jms_text_message.header is null) then

Line 57: procedure set_groupid(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

53:
54: p_jms_text_message.header.appid := appid;
55: end set_appid;
56:
57: procedure set_groupid(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
58: groupid in varchar)
59: is
60: begin
61: if(p_jms_text_message.header is null) then

Line 68: procedure set_groupseq(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

64:
65: p_jms_text_message.header.groupid := groupid;
66: end set_groupid;
67:
68: procedure set_groupseq(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
69: groupseq in int)
70: is
71: begin
72: if(p_jms_text_message.header is null) then

Line 79: procedure set_replyto(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

75:
76: p_jms_text_message.header.groupseq := groupseq;
77: end set_groupseq;
78:
79: procedure set_replyto(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
80: replyto in sys.aq$_agent)
81: is
82: begin
83: if(p_jms_text_message.header is null) then

Line 110: procedure set_int_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

106: end if;
107: end loop;
108: end lookup_property_name;
109:
110: procedure set_int_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
111: property_name in varchar,
112: property_value in int)
113: is
114: begin

Line 135: procedure set_string_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

131: sys.aq$_jms_userproperty(property_name, 200, null, property_value, 23);
132: end if;
133: end set_int_property;
134:
135: procedure set_string_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
136: property_name in varchar,
137: property_value in varchar)
138: is
139: l_property_value varchar2(2000);

Line 157: function get_boolean_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

153: sys.aq$_jms_userproperty(property_name, 100, l_property_value, null, 27);
154: end if;
155: end set_string_property;
156:
157: function get_boolean_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
158: property_name in varchar)
159: return boolean
160: is
161: begin

Line 181: function get_byte_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

177:
178: return null;
179: end get_boolean_property;
180:
181: function get_byte_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
182: property_name in varchar)
183: return int
184: is
185: begin

Line 197: function get_short_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

193:
194: return null;
195: end get_byte_property;
196:
197: function get_short_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
198: property_name in varchar)
199: return int
200: is
201: begin

Line 213: function get_int_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

209:
210: return null;
211: end get_short_property;
212:
213: function get_int_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
214: property_name in varchar)
215: return int
216: is
217: begin

Line 229: function get_long_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

225:
226: return null;
227: end get_int_property;
228:
229: function get_long_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
230: property_name in varchar)
231: return number
232: is
233: begin

Line 245: function get_float_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

241:
242: return null;
243: end get_long_property;
244:
245: function get_float_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
246: property_name in varchar)
247: return float
248: is
249: begin

Line 261: function get_double_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

257:
258: return null;
259: end get_float_property;
260:
261: function get_double_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
262: property_name in varchar)
263: return double precision
264: is
265: begin

Line 277: function get_string_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

273:
274: return null;
275: end get_double_property;
276:
277: function get_string_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
278: property_name in varchar)
279: return varchar
280: is
281: begin

Line 293: procedure set_text(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

289:
290: return null;
291: end get_string_property;
292:
293: procedure set_text(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
294: payload in clob)
295: is
296: l_text varchar2(4000);
297: l_length number;

Line 350: procedure get_text(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

346: end;
347: end if;
348: end set_text;
349:
350: procedure get_text(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
351: payload out nocopy clob)
352: is
353: l_text_lob_length number;
354: begin

Line 417: p_jms_text_message out nocopy sys.aq$_jms_text_message)

413: -- p_event - the business event to transform
414: -- p_jms_text_message - the JMS Text Message
415: --------------------------------------------------------------------------------
416: procedure serialize(p_event in wf_event_t,
417: p_jms_text_message out nocopy sys.aq$_jms_text_message)
418: is
419: l_replyto varchar2(2000);
420: l_priority int;
421: i1 integer;

Line 431: p_jms_text_message := sys.aq$_jms_text_message(

427: l_wf_agent wf_agent_t;
428: l_parameter_list wf_parameter_list_t;
429: l_correlation_id varchar2(240);
430: begin
431: p_jms_text_message := sys.aq$_jms_text_message(
432: sys.aq$_jms_header(null, null, null, null, null, 0, null), 0, null, null);
433:
434: -- set the JMS properties
435:

Line 577: procedure deserialize(p_jms_text_message in out nocopy sys.aq$_jms_text_message,

573: --
574: -- p_jms_text_message - the JMS Text Message
575: -- p_event - the business event
576: --------------------------------------------------------------------------------
577: procedure deserialize(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
578: p_event out nocopy wf_event_t)
579: is
580: i1 integer;
581:

Line 762: l_jms_text_message sys.aq$_jms_text_message;

758: --------------------------------------------------------------------------------
759: procedure enqueue(p_event in wf_event_t,
760: p_out_agent_override in wf_agent_t)
761: is
762: l_jms_text_message sys.aq$_jms_text_message;
763:
764: l_out_agent_name varchar2(30);
765: l_out_system_name varchar2(30);
766: l_out_queue_name varchar2(80);

Line 960: l_jms_text_message sys.aq$_jms_text_message;

956: l_queue_name varchar2(80);
957: l_agent_name varchar2(30);
958: l_dequeue_options dbms_aq.dequeue_options_t;
959: l_message_properties dbms_aq.message_properties_t;
960: l_jms_text_message sys.aq$_jms_text_message;
961: l_msgid raw(16);
962:
963: no_messages exception;
964: pragma exception_init(no_messages, -25228);