1: PACKAGE BODY m4u_cln_pkg AS
2: /* $Header: M4UDCLNB.pls 120.2 2007/06/13 10:27:36 bsaratna noship $ */
3:
4: FUNCTION log_payload
5: (
20: l_ret_msg VARCHAR2(4000);
21: BEGIN
22:
23:
24: m4u_dmd_utils.log('Entering m4u_cln_pkg.log_payload',2);
25:
26: l_event_key := p_event.getEventKey();
27: l_event_name := p_event.getEventName();
28:
36: l_direction := wf_event.getValueForParameter('PAYLOAD_DIR' ,l_params);
37:
38: l_ecx_doc_num := l_payload_type || '.' || l_payload_id;
39: IF l_direction = m4u_dmd_utils.c_dir_out THEN
40: l_txn_styp := m4u_cln_pkg.c_xmlg_styp_out;
41: ELSE
42: l_txn_styp := m4u_cln_pkg.c_xmlg_styp_in;
43: END IF;
44:
38: l_ecx_doc_num := l_payload_type || '.' || l_payload_id;
39: IF l_direction = m4u_dmd_utils.c_dir_out THEN
40: l_txn_styp := m4u_cln_pkg.c_xmlg_styp_out;
41: ELSE
42: l_txn_styp := m4u_cln_pkg.c_xmlg_styp_in;
43: END IF;
44:
45:
46: m4u_dmd_utils.log('l_ecx_doc_num -|' || l_ecx_doc_num || '|',6);
72: o_retcode => l_ret_sts,
73: o_retmsg => l_ret_msg,
74: i_msgid => SYS_GUID,
75: i_message_type => 'XML',
76: i_message_standard => m4u_cln_pkg.c_xmlg_std,
77: i_transaction_type => m4u_cln_pkg.c_xmlg_type,
78: i_transaction_subtype => l_txn_styp,
79: i_document_number => l_ecx_doc_num,
80: i_partyid => m4u_cln_pkg.g_party_id,
73: o_retmsg => l_ret_msg,
74: i_msgid => SYS_GUID,
75: i_message_type => 'XML',
76: i_message_standard => m4u_cln_pkg.c_xmlg_std,
77: i_transaction_type => m4u_cln_pkg.c_xmlg_type,
78: i_transaction_subtype => l_txn_styp,
79: i_document_number => l_ecx_doc_num,
80: i_partyid => m4u_cln_pkg.g_party_id,
81: i_party_site_id => m4u_cln_pkg.g_party_site_id,
76: i_message_standard => m4u_cln_pkg.c_xmlg_std,
77: i_transaction_type => m4u_cln_pkg.c_xmlg_type,
78: i_transaction_subtype => l_txn_styp,
79: i_document_number => l_ecx_doc_num,
80: i_partyid => m4u_cln_pkg.g_party_id,
81: i_party_site_id => m4u_cln_pkg.g_party_site_id,
82: i_party_type => m4u_cln_pkg.c_party_type,
83: i_protocol_type => 'HTTP',
84: i_protocol_address => null,
77: i_transaction_type => m4u_cln_pkg.c_xmlg_type,
78: i_transaction_subtype => l_txn_styp,
79: i_document_number => l_ecx_doc_num,
80: i_partyid => m4u_cln_pkg.g_party_id,
81: i_party_site_id => m4u_cln_pkg.g_party_site_id,
82: i_party_type => m4u_cln_pkg.c_party_type,
83: i_protocol_type => 'HTTP',
84: i_protocol_address => null,
85: i_username => null,
78: i_transaction_subtype => l_txn_styp,
79: i_document_number => l_ecx_doc_num,
80: i_partyid => m4u_cln_pkg.g_party_id,
81: i_party_site_id => m4u_cln_pkg.g_party_site_id,
82: i_party_type => m4u_cln_pkg.c_party_type,
83: i_protocol_type => 'HTTP',
84: i_protocol_address => null,
85: i_username => null,
86: i_password => null,
106: );
107:
108: m4u_dmd_utils.log('l_ret_sts -|' || l_ret_sts || '|',2);
109: m4u_dmd_utils.log('l_ret_msg -|' || l_ret_msg || '|',2);
110: m4u_dmd_utils.log('Exiting m4u_cln_pkg.log_payload - Success' ,2);
111:
112: RETURN 'SUCCESS';
113:
114: EXCEPTION
112: RETURN 'SUCCESS';
113:
114: EXCEPTION
115: WHEN OTHERS THEN
116: m4u_dmd_utils.log('m4u_cln_pkg.log_payload',6);
117: m4u_dmd_utils.log('Unexpected error occured while processing',6);
118: m4u_dmd_utils.log(SQLCODE || '-' || SQLERRM,6);
119: RETURN 'SUCCESS';
120: END log_payload;
168: l_m4u_doc_rec m4u_dmd_documents%ROWTYPE;
169: l_m4u_msg_rec m4u_dmd_messages%ROWTYPE;
170: BEGIN
171:
172: m4u_dmd_utils.log('Entering m4u_cln_pkg.update_collab',6);
173: l_event_key := p_event.getEventKey();
174: l_event_name := p_event.getEventName();
175:
176: m4u_dmd_utils.log('l_event_key -|' || l_event_key || '|',1);
221:
222: --xmlg payload reference
223: IF l_payload_id IS NOT NULL THEN
224: l_xmlg_doc_id := l_payload_type || '.' || l_payload_id;
225: l_xmlg_type := m4u_cln_pkg.c_xmlg_type;
226:
227: IF l_payload_dir = m4u_dmd_utils.c_dir_out THEN
228: l_xmlg_styp := m4u_cln_pkg.c_xmlg_styp_out;
229: ELSE
224: l_xmlg_doc_id := l_payload_type || '.' || l_payload_id;
225: l_xmlg_type := m4u_cln_pkg.c_xmlg_type;
226:
227: IF l_payload_dir = m4u_dmd_utils.c_dir_out THEN
228: l_xmlg_styp := m4u_cln_pkg.c_xmlg_styp_out;
229: ELSE
230: l_xmlg_styp := m4u_cln_pkg.c_xmlg_styp_in;
231: END IF;
232: END IF;
226:
227: IF l_payload_dir = m4u_dmd_utils.c_dir_out THEN
228: l_xmlg_styp := m4u_cln_pkg.c_xmlg_styp_out;
229: ELSE
230: l_xmlg_styp := m4u_cln_pkg.c_xmlg_styp_in;
231: END IF;
232: END IF;
233:
234:
603: p_xmlg_transaction_subtype => l_xmlg_styp,
604: p_xmlg_document_id => l_xmlg_doc_id,
605: p_partner_doc_no => null,
606: p_coll_type => l_cln_type,
607: p_tr_partner_type => m4u_cln_pkg.c_party_type,
608: p_tr_partner_id => m4u_cln_pkg.g_party_id,
609: p_tr_partner_site => m4u_cln_pkg.g_party_site_id,
610: p_resend_flag => 'N',
611: p_resend_count => 0,
604: p_xmlg_document_id => l_xmlg_doc_id,
605: p_partner_doc_no => null,
606: p_coll_type => l_cln_type,
607: p_tr_partner_type => m4u_cln_pkg.c_party_type,
608: p_tr_partner_id => m4u_cln_pkg.g_party_id,
609: p_tr_partner_site => m4u_cln_pkg.g_party_site_id,
610: p_resend_flag => 'N',
611: p_resend_count => 0,
612: p_doc_owner => fnd_global.user_id,
605: p_partner_doc_no => null,
606: p_coll_type => l_cln_type,
607: p_tr_partner_type => m4u_cln_pkg.c_party_type,
608: p_tr_partner_id => m4u_cln_pkg.g_party_id,
609: p_tr_partner_site => m4u_cln_pkg.g_party_site_id,
610: p_resend_flag => 'N',
611: p_resend_count => 0,
612: p_doc_owner => fnd_global.user_id,
613: p_init_date => sysdate,
683: p_org_ref => NULL,
684: p_doc_status => l_cln_doc_sts,
685: p_notification_id => NULL,
686: p_msg_text => l_cln_msg,
687: p_tr_partner_type => m4u_cln_pkg.c_party_type,
688: p_tr_partner_id => m4u_cln_pkg.g_party_id,
689: p_tr_partner_site => m4u_cln_pkg.g_party_site_id,
690: p_sender_component => NULL,
691: p_rosettanet_check_required => false,
684: p_doc_status => l_cln_doc_sts,
685: p_notification_id => NULL,
686: p_msg_text => l_cln_msg,
687: p_tr_partner_type => m4u_cln_pkg.c_party_type,
688: p_tr_partner_id => m4u_cln_pkg.g_party_id,
689: p_tr_partner_site => m4u_cln_pkg.g_party_site_id,
690: p_sender_component => NULL,
691: p_rosettanet_check_required => false,
692: p_xmlg_msg_id => null,
685: p_notification_id => NULL,
686: p_msg_text => l_cln_msg,
687: p_tr_partner_type => m4u_cln_pkg.c_party_type,
688: p_tr_partner_id => m4u_cln_pkg.g_party_id,
689: p_tr_partner_site => m4u_cln_pkg.g_party_site_id,
690: p_sender_component => NULL,
691: p_rosettanet_check_required => false,
692: p_xmlg_msg_id => null,
693: p_attribute1 => l_m4u_doc_rec.msg_id,
735: END IF;
736:
737: m4u_dmd_utils.log('l_ret_sts -|' || l_ret_sts || '|',6);
738: m4u_dmd_utils.log('l_ret_msg -|' || l_ret_msg || '|',6);
739: m4u_dmd_utils.log('Exiting m4u_cln_pkg.update_collab - Success' ,6);
740:
741: RETURN 'SUCCESS';
742:
743: EXCEPTION
741: RETURN 'SUCCESS';
742:
743: EXCEPTION
744: WHEN OTHERS THEN
745: m4u_dmd_utils.log('m4u_cln_pkg.update_collab',6);
746: m4u_dmd_utils.log('Unexpected error occured while processing',6);
747: m4u_dmd_utils.log(SQLCODE || '-' || SQLERRM,6);
748: RETURN 'SUCCESS';
749: END update_collab;
789: l_ext_process_id NUMBER;
790: BEGIN
791:
792:
793: m4u_dmd_utils.log('Entering m4u_cln_pkg.add_or_update_tp_detail',2);
794: m4u_dmd_utils.log('p_tp_hdr_id -|' || p_tp_hdr_id || '|',1);
795: m4u_dmd_utils.log('p_direction -|' || p_direction || '|',1);
796:
797:
796:
797:
798: --------------------------------------------------------------------------
799: --Set ECX api input params
800: l_ext_type := m4u_cln_pkg.c_xmlg_type;
801: l_standard_code := m4u_cln_pkg.c_xmlg_std;
802: l_txn_type := m4u_cln_pkg.c_xmlg_type;
803: l_party_type := m4u_cln_pkg.c_party_type;
804: l_doc_conf := '2';
797:
798: --------------------------------------------------------------------------
799: --Set ECX api input params
800: l_ext_type := m4u_cln_pkg.c_xmlg_type;
801: l_standard_code := m4u_cln_pkg.c_xmlg_std;
802: l_txn_type := m4u_cln_pkg.c_xmlg_type;
803: l_party_type := m4u_cln_pkg.c_party_type;
804: l_doc_conf := '2';
805: l_map := 'm4u_230_cin_out';
798: --------------------------------------------------------------------------
799: --Set ECX api input params
800: l_ext_type := m4u_cln_pkg.c_xmlg_type;
801: l_standard_code := m4u_cln_pkg.c_xmlg_std;
802: l_txn_type := m4u_cln_pkg.c_xmlg_type;
803: l_party_type := m4u_cln_pkg.c_party_type;
804: l_doc_conf := '2';
805: l_map := 'm4u_230_cin_out';
806:
799: --Set ECX api input params
800: l_ext_type := m4u_cln_pkg.c_xmlg_type;
801: l_standard_code := m4u_cln_pkg.c_xmlg_std;
802: l_txn_type := m4u_cln_pkg.c_xmlg_type;
803: l_party_type := m4u_cln_pkg.c_party_type;
804: l_doc_conf := '2';
805: l_map := 'm4u_230_cin_out';
806:
807: IF p_direction = m4u_dmd_utils.c_dir_out THEN
806:
807: IF p_direction = m4u_dmd_utils.c_dir_out THEN
808: --out specific values
809: l_src_loc := 7777;
810: l_ext_subtype := m4u_cln_pkg.c_xmlg_styp_out;
811: l_txn_subtype := m4u_cln_pkg.c_xmlg_styp_out;
812: l_conn_type := 'DIRECT';
813: l_protocol := 'HTTP';
814: l_protocol_addr := 'http://none';
807: IF p_direction = m4u_dmd_utils.c_dir_out THEN
808: --out specific values
809: l_src_loc := 7777;
810: l_ext_subtype := m4u_cln_pkg.c_xmlg_styp_out;
811: l_txn_subtype := m4u_cln_pkg.c_xmlg_styp_out;
812: l_conn_type := 'DIRECT';
813: l_protocol := 'HTTP';
814: l_protocol_addr := 'http://none';
815: l_user := 'operations';
816: l_passwd := 'welcome';
817: ELSE
818: --in specific values
819: l_src_loc := 7777;
820: l_ext_subtype := m4u_cln_pkg.c_xmlg_styp_in;
821: l_txn_subtype := m4u_cln_pkg.c_xmlg_styp_in;
822: l_conn_type := null;
823: l_protocol := null;
824: l_protocol_addr := null;
817: ELSE
818: --in specific values
819: l_src_loc := 7777;
820: l_ext_subtype := m4u_cln_pkg.c_xmlg_styp_in;
821: l_txn_subtype := m4u_cln_pkg.c_xmlg_styp_in;
822: l_conn_type := null;
823: l_protocol := null;
824: l_protocol_addr := null;
825: l_user := null;
1008: BEGIN
1009:
1010: m4u_dmd_utils.log('Entering m4u_dmd_utils.setup_cln',2);
1011:
1012: l_location_code := m4u_cln_pkg.c_party_site;
1013: l_description := 'Dummy seeded location for M4U transactions';
1014: l_addr_line_1 := 'Princeton';
1015: l_style := 'US_GLB';
1016: l_country := 'US';
1111: (
1112: x_return_status => l_ret_sts,
1113: x_msg => l_ret_msg,
1114: x_tp_header_id => l_tp_hdr_id,
1115: p_party_type => m4u_cln_pkg.c_party_type,
1116: p_party_id => l_location_id,
1117: p_party_site_id => l_location_id,
1118: p_company_admin_email => m4u_cln_pkg.c_tp_email
1119: );
1114: x_tp_header_id => l_tp_hdr_id,
1115: p_party_type => m4u_cln_pkg.c_party_type,
1116: p_party_id => l_location_id,
1117: p_party_site_id => l_location_id,
1118: p_company_admin_email => m4u_cln_pkg.c_tp_email
1119: );
1120:
1121: m4u_dmd_utils.log('l_ret_msg -|'||l_ret_msg ||'|', 1);
1122: m4u_dmd_utils.log('l_ret_sts -|'||l_ret_sts ||'|', 1);
1135: (
1136: x_return_status => l_ret_sts,
1137: x_msg => l_ret_msg,
1138: p_tp_header_id => l_tp_hdr_id,
1139: p_company_admin_email => m4u_cln_pkg.c_tp_email
1140: );
1141:
1142: m4u_dmd_utils.log('l_ret_msg -|'||l_ret_msg ||'|', 1);
1143: m4u_dmd_utils.log('l_ret_sts -|'||l_ret_sts ||'|', 1);
1186: INTO g_party_id, g_party_site_id
1187: FROM hr_locations_all h,
1188: ecx_tp_headers e
1189: WHERE h.location_id = e.party_id
1190: AND e.party_type = m4u_cln_pkg.c_party_type
1191: AND h.location_code = m4u_cln_pkg.c_party_site;
1192:
1193: g_init_success := TRUE;
1194:
1187: FROM hr_locations_all h,
1188: ecx_tp_headers e
1189: WHERE h.location_id = e.party_id
1190: AND e.party_type = m4u_cln_pkg.c_party_type
1191: AND h.location_code = m4u_cln_pkg.c_party_site;
1192:
1193: g_init_success := TRUE;
1194:
1195: EXCEPTION
1197: --Indicate that package has NOT been properly initialized -
1198: -- g_party_id and g_party_site_id are not valid for XMLG and CLN usage.
1199: g_init_success := FALSE;
1200:
1201: END m4u_cln_pkg;