[Home] [Help]
26: R_ECX_PAYLOAD CLOB := ecx_payload;
27:
28:
29: R_ECX_MSG_BODY_PAYLOAD CLOB;
30: R_ECX_HEADER sys.AQ$_JMS_HEADER;
31: R_ECX_MESSAGE sys.AQ$_JMS_TEXT_MESSAGE;
32: l_enqueue_options dbms_aq.enqueue_options_t;
33: l_message_properties dbms_aq.message_properties_t;
34:
77: -- Fetching date_time to pass as BES_EVENT_KEY
78: SELECT TO_CHAR(SYSDATE,'DD-MM-YYY:HH24-MI-SS') INTO date_time FROM DUAL;
79: SELECT SUBSTR(ADDRESS,INSTR(ADDRESS,'.',1,1)+1) INTO agent_name FROM WF_AGENTS WHERE NAME = 'WF_WS_JMS_IN';
80:
81: R_ECX_HEADER := sys.AQ$_JMS_HEADER(NULL, NULL, NULL, NULL, NULL, NULL,
82: sys.AQ$_JMS_USERPROPARRAY(
83: sys.AQ$_JMS_USERPROPERTY('BES_EVENT_NAME',100,'oracle.apps.fnd.wf.ws.inbound.xmltx.receive', NULL, 27),
84: --sys.AQ$_JMS_USERPROPERTY('BES_EVENT_KEY', 100, '-621902048', NULL, 27),
85: sys.AQ$_JMS_USERPROPERTY('BES_EVENT_KEY', 100, date_time, NULL, 27),