38: --q_name := 'WF_JAVA_DEFERRED';
39: l_event_name := 'oracle.apps.m4u.inbound.ALL';
40:
41: IF (l_Debug_Level <= 2) THEN
42: cln_debug_pub.Add('=========== Entering m4u_ucc_adapter.pushtoAQ =========== ',2);
43: END IF;
44:
45: SELECT SYS_GUID()
46: INTO msg_id
50: INTO l_nextval
51: FROM DUAL;
52:
53: IF (l_Debug_Level <= 1) THEN
54: cln_debug_pub.Add('Payload clob created',1);
55: END IF;
56:
57: l_parameter_list :=
58: WF_PARAMETER_LIST_T(
66: WF_PARAMETER_T('ECX_MESSAGE_STANDARD', 'UCCNET' )
67: );
68:
69: IF (l_Debug_Level <= 1) THEN
70: cln_debug_pub.Add('Event created with the following paramters' ,1);
71: cln_debug_pub.Add('ECX_PARAMETER1 - 0' ,1);
72: cln_debug_pub.Add('ECX_PARAMETER2 - M4U' ,1);
73: cln_debug_pub.Add('ECX_TRANSACTION_TYPE - M4U' ,1);
74: cln_debug_pub.Add('ECX_TRANSACTION_SUBTYPE - GENERIC' ,1);
67: );
68:
69: IF (l_Debug_Level <= 1) THEN
70: cln_debug_pub.Add('Event created with the following paramters' ,1);
71: cln_debug_pub.Add('ECX_PARAMETER1 - 0' ,1);
72: cln_debug_pub.Add('ECX_PARAMETER2 - M4U' ,1);
73: cln_debug_pub.Add('ECX_TRANSACTION_TYPE - M4U' ,1);
74: cln_debug_pub.Add('ECX_TRANSACTION_SUBTYPE - GENERIC' ,1);
75: cln_debug_pub.Add('ECX_PARTY_SITE_ID - UCCNET_HUB' ,1);
68:
69: IF (l_Debug_Level <= 1) THEN
70: cln_debug_pub.Add('Event created with the following paramters' ,1);
71: cln_debug_pub.Add('ECX_PARAMETER1 - 0' ,1);
72: cln_debug_pub.Add('ECX_PARAMETER2 - M4U' ,1);
73: cln_debug_pub.Add('ECX_TRANSACTION_TYPE - M4U' ,1);
74: cln_debug_pub.Add('ECX_TRANSACTION_SUBTYPE - GENERIC' ,1);
75: cln_debug_pub.Add('ECX_PARTY_SITE_ID - UCCNET_HUB' ,1);
76: cln_debug_pub.Add('ECX_DOCUMENT_ID - ' || l_nextval,1);
69: IF (l_Debug_Level <= 1) THEN
70: cln_debug_pub.Add('Event created with the following paramters' ,1);
71: cln_debug_pub.Add('ECX_PARAMETER1 - 0' ,1);
72: cln_debug_pub.Add('ECX_PARAMETER2 - M4U' ,1);
73: cln_debug_pub.Add('ECX_TRANSACTION_TYPE - M4U' ,1);
74: cln_debug_pub.Add('ECX_TRANSACTION_SUBTYPE - GENERIC' ,1);
75: cln_debug_pub.Add('ECX_PARTY_SITE_ID - UCCNET_HUB' ,1);
76: cln_debug_pub.Add('ECX_DOCUMENT_ID - ' || l_nextval,1);
77: cln_debug_pub.Add('ECX_MSGID - ' || msg_id ,1);
70: cln_debug_pub.Add('Event created with the following paramters' ,1);
71: cln_debug_pub.Add('ECX_PARAMETER1 - 0' ,1);
72: cln_debug_pub.Add('ECX_PARAMETER2 - M4U' ,1);
73: cln_debug_pub.Add('ECX_TRANSACTION_TYPE - M4U' ,1);
74: cln_debug_pub.Add('ECX_TRANSACTION_SUBTYPE - GENERIC' ,1);
75: cln_debug_pub.Add('ECX_PARTY_SITE_ID - UCCNET_HUB' ,1);
76: cln_debug_pub.Add('ECX_DOCUMENT_ID - ' || l_nextval,1);
77: cln_debug_pub.Add('ECX_MSGID - ' || msg_id ,1);
78: cln_debug_pub.Add('ECX_MESSAGE_STANDARD - UCCNET' ,1);
71: cln_debug_pub.Add('ECX_PARAMETER1 - 0' ,1);
72: cln_debug_pub.Add('ECX_PARAMETER2 - M4U' ,1);
73: cln_debug_pub.Add('ECX_TRANSACTION_TYPE - M4U' ,1);
74: cln_debug_pub.Add('ECX_TRANSACTION_SUBTYPE - GENERIC' ,1);
75: cln_debug_pub.Add('ECX_PARTY_SITE_ID - UCCNET_HUB' ,1);
76: cln_debug_pub.Add('ECX_DOCUMENT_ID - ' || l_nextval,1);
77: cln_debug_pub.Add('ECX_MSGID - ' || msg_id ,1);
78: cln_debug_pub.Add('ECX_MESSAGE_STANDARD - UCCNET' ,1);
79: END IF;
72: cln_debug_pub.Add('ECX_PARAMETER2 - M4U' ,1);
73: cln_debug_pub.Add('ECX_TRANSACTION_TYPE - M4U' ,1);
74: cln_debug_pub.Add('ECX_TRANSACTION_SUBTYPE - GENERIC' ,1);
75: cln_debug_pub.Add('ECX_PARTY_SITE_ID - UCCNET_HUB' ,1);
76: cln_debug_pub.Add('ECX_DOCUMENT_ID - ' || l_nextval,1);
77: cln_debug_pub.Add('ECX_MSGID - ' || msg_id ,1);
78: cln_debug_pub.Add('ECX_MESSAGE_STANDARD - UCCNET' ,1);
79: END IF;
80:
73: cln_debug_pub.Add('ECX_TRANSACTION_TYPE - M4U' ,1);
74: cln_debug_pub.Add('ECX_TRANSACTION_SUBTYPE - GENERIC' ,1);
75: cln_debug_pub.Add('ECX_PARTY_SITE_ID - UCCNET_HUB' ,1);
76: cln_debug_pub.Add('ECX_DOCUMENT_ID - ' || l_nextval,1);
77: cln_debug_pub.Add('ECX_MSGID - ' || msg_id ,1);
78: cln_debug_pub.Add('ECX_MESSAGE_STANDARD - UCCNET' ,1);
79: END IF;
80:
81:
74: cln_debug_pub.Add('ECX_TRANSACTION_SUBTYPE - GENERIC' ,1);
75: cln_debug_pub.Add('ECX_PARTY_SITE_ID - UCCNET_HUB' ,1);
76: cln_debug_pub.Add('ECX_DOCUMENT_ID - ' || l_nextval,1);
77: cln_debug_pub.Add('ECX_MSGID - ' || msg_id ,1);
78: cln_debug_pub.Add('ECX_MESSAGE_STANDARD - UCCNET' ,1);
79: END IF;
80:
81:
82:
88:
89: wf_event_ojmstext_qh.SERIALIZE(l_event,jms_msg);
90:
91: IF (l_Debug_Level <= 1) THEN
92: cln_debug_pub.Add('Event to be enqueued initialized',2);
93: END IF;
94:
95: dbms_aq.enqueue(
96: queue_name => q_schema_name || '.' || q_name,
100: msgid => x_out_msg_id
101: );
102:
103: IF (l_Debug_Level <= 1) THEN
104: cln_debug_pub.Add('dbms_aq.enqueue msgid returned - ' || x_out_msg_id,2);
105: END IF;
106:
107:
108: IF (l_Debug_Level <= 2) THEN
105: END IF;
106:
107:
108: IF (l_Debug_Level <= 2) THEN
109: cln_debug_pub.Add('=========== Exiting m4u_ucc_adapter.pushtoAQ normal - Success =========== ',2);
110: END IF;
111:
112: RETURN 'SUCCESS';
113: EXCEPTION
112: RETURN 'SUCCESS';
113: EXCEPTION
114: WHEN OTHERS THEN
115: IF (l_Debug_Level <= 5) THEN
116: cln_debug_pub.Add('Error : ' || SQLCODE || ':' || SQLERRM, 5);
117: END IF;
118: IF (l_Debug_Level <= 2) THEN
119: cln_debug_pub.Add('=========== Exiting m4u_ucc_adapter.pushtoAQ - on Exception =========== ',2);
120: END IF;
115: IF (l_Debug_Level <= 5) THEN
116: cln_debug_pub.Add('Error : ' || SQLCODE || ':' || SQLERRM, 5);
117: END IF;
118: IF (l_Debug_Level <= 2) THEN
119: cln_debug_pub.Add('=========== Exiting m4u_ucc_adapter.pushtoAQ - on Exception =========== ',2);
120: END IF;
121:
122: RETURN 'F:'||SQLERRM;
123: END;