[Home] [Help]
412: --
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;
543: if(p_event.getErrorStack() is not null) then
544: set_string_property(p_jms_text_message, ERROR_STACK, p_event.getErrorStack());
545: end if;
546:
547: -- set the wf_event_t user-defined properties
548:
549: l_parameter_list := p_event.getParameterList();
550:
551: if(l_parameter_list is not null and
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:
582: l_jms_agent varchar2(2000);
591: l_boolean_value boolean;
592:
593: l_clob clob;
594: begin
595: p_event := wf_event_t(0, null, null, null, null, null, null, null, null,
596: null, null, null, null);
597:
598: if(p_jms_text_message.header.properties.count > 0) then
599: -- set the wf_event properties
755: --
756: -- p_event - the business event to enqueue
757: -- p_out_agent_override - the out agent override
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:
949: -- p_wait - the number of seconds to wait to dequeue the event
950: --------------------------------------------------------------------------------
951:
952: procedure dequeue(p_agent_guid in raw,
953: p_event out nocopy wf_event_t,
954: p_wait in binary_integer)
955: is
956: l_queue_name varchar2(80);
957: l_agent_name varchar2(30);