[Home] [Help]
1: PACKAGE BODY AP_XML_INVOICE_INBOUND_PKG as
2: /* $Header: apxmlinb.pls 120.2 2006/02/14 08:55:14 kgurumur noship $ */
3:
4: function get_token_display_field(p_lookup_code in VARCHAR2) return VARCHAR2 as
5:
26: procedure correct_freight_line(p_invoice_id in NUMBER) as
27:
28: begin
29: ap_debug_pkg.print('Y',
30: 'AP_XML_INVOICE_INBOUND_PKG.correct_freight_line(+)');
31:
32: update ap_invoice_lines_interface
33: set DIST_CODE_COMBINATION_ID =
34: (select FREIGHT_CODE_COMBINATION_ID
37: where line_type_lookup_code = 'FREIGHT' and
38: invoice_id = p_invoice_id;
39:
40: ap_debug_pkg.print('Y',
41: 'AP_XML_INVOICE_INBOUND_PKG.correct_freight)lihe(-)');
42: end;
43:
44:
45: /*===========================================================================+
73: p_out_string out NOCOPY VARCHAR2,
74: p_direction in VARCHAR2 default 'U') as
75:
76: begin
77: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.change_case(+)');
78:
79: if p_direction = 'U' then
80: p_out_string := upper(p_in_string);
81: elsif p_direction = 'L' then
83: else
84: null;
85: end if;
86:
87: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.change_case(-)');
88: end;
89:
90: /*===========================================================================+
91: | PROCEDURE |
97: procedure derive_org_id(p_po_number in VARCHAR2 default NULL,
98: p_org_id out NOCOPY NUMBER) as
99: l_org_id NUMBER;
100: begin
101: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.derive_org_id(+)');
102: begin
103: select distinct org_id into l_org_id
104: from po_headers_all
105: where segment1 = p_po_number;
105: where segment1 = p_po_number;
106: exception
107: when others then
108: ap_debug_pkg.print('Y',
109: 'AP_XML_INVOICE_INBOUND_PKG.derive_org_id(EXCEPTION)');
110: l_org_id := NULL;
111: end;
112: p_org_id := l_org_id;
113: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.derive_org_id(-)');
109: 'AP_XML_INVOICE_INBOUND_PKG.derive_org_id(EXCEPTION)');
110: l_org_id := NULL;
111: end;
112: p_org_id := l_org_id;
113: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.derive_org_id(-)');
114: end;
115:
116: /*===========================================================================+
117: | PROCEDURE |
123: procedure derive_vendor_id(p_vendor_site_id in NUMBER,
124: p_org_id in NUMBER,
125: p_vendor_id out NOCOPY NUMBER) as
126: begin
127: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.derive_vendor_id(+)');
128: select vendor_id into p_vendor_id
129: from po_vendor_sites_all
130: where org_id = p_org_id and vendor_site_id = p_vendor_site_id;
131: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.derive_vendor_id(-)');
127: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.derive_vendor_id(+)');
128: select vendor_id into p_vendor_id
129: from po_vendor_sites_all
130: where org_id = p_org_id and vendor_site_id = p_vendor_site_id;
131: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.derive_vendor_id(-)');
132: exception
133: when others then
134: ap_debug_pkg.print('Y',
135: 'AP_XML_INVOICE_INBOUND_PKG.derive_vendor_id(EXCEPTION)');
131: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.derive_vendor_id(-)');
132: exception
133: when others then
134: ap_debug_pkg.print('Y',
135: 'AP_XML_INVOICE_INBOUND_PKG.derive_vendor_id(EXCEPTION)');
136: p_vendor_id := NULL;
137: end;
138: /*===========================================================================+
139: | PROCEDURE |
151:
152:
153: begin
154: ap_debug_pkg.print('Y',
155: 'AP_XML_INVOICE_INBOUND_PKG.derive_email_address(+)');
156:
157: /* Bug 2079388
158: Replace the sql below with dynamic sql to prevent dependency on XML
159: datamodel in some cases. Details mentioned in the bug
164: where party_type = 'S' and
165: party_site_id = p_vendor_site_id and
166: party_id = p_vendor_id;
167: ap_debug_pkg.print('Y',
168: 'AP_XML_INVOICE_INBOUND_PKG.derive_email_address(-)');
169:
170: */
171: l_statement :=
172: 'SELECT company_admin_email INTO :tab FROM ecx_tp_headers
182:
183: exception
184: when others then
185: ap_debug_pkg.print('Y',
186: 'AP_XML_INVOICE_INBOUND_PKG.derive_email_address(EXCEPTION)');
187: p_email_address := NULL;
188: end;
189:
190: /*===========================================================================+
210: h.vendor_name is NOT NULL;
211:
212: begin
213: ap_debug_pkg.print('Y',
214: 'AP_XML_INVOICE_INBOUND_PKG.start_open_interface(+)');
215:
216: open inv_csr;
217: fetch inv_csr bulk collect into l_inv_ids, l_vendor_ids;
218: close inv_csr;
249: sub_request=>FALSE,
250: argument1=>'XML GATEWAY');
251: arp_util_tax.debug('Request_id:'||l_request_id);
252: */
253: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.start_open_interface(-)');
254: end;
255:
256:
257: procedure send_email(p_mail_subject in VARCHAR2,
262: l_display_role_name VARCHAR2(100);
263: l_item_key VARCHAR2(100);
264:
265: begin
266: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.send_email(+)');
267: arp_util_tax.debug('Creating adhoc role(+)');
268: l_role := null;
269: l_display_role_name := null;
270: WF_DIRECTORY.createAdhocRole(role_name => l_role,
308: --
309: ap_debug_pkg.print('Y','Starting the process(+)');
310: WF_ENGINE.startProcess('P2P', l_item_key);
311: ap_debug_pkg.print('Y','Starting the process(-)');
312: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.send_email(-)');
313:
314: commit;
315: end;
316:
505: l_call_3c4_invoice_id ap_invoices_interface.invoice_id%TYPE;
506: -- Bug 4065112 ends
507:
508: begin
509: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.notify_supplier(+)');
510: ap_debug_pkg.print('Y','request_id: '||to_char(p_request_id));
511: --
512: open l_invoice_number_csr;
513: fetch l_invoice_number_csr into l_invoice_number;
736: to_char(nvl(l_invoice_line_id_table.last,0)));
737: l_result := ap_utilities_pkg.delete_invoice_from_interface(
738: l_invoice_id_table,
739: l_invoice_line_id_table,
740: 'AP_XML_INVOICE_INBOUND_PKG.notify_supplier');
741: ap_debug_pkg.print('Y','Deleting from the interfaces(-)');
742: --
743: --
744: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.notify_supplier(-)');
740: 'AP_XML_INVOICE_INBOUND_PKG.notify_supplier');
741: ap_debug_pkg.print('Y','Deleting from the interfaces(-)');
742: --
743: --
744: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.notify_supplier(-)');
745: end;
746:
747: /*===========================================================================+
748: | PROCEDURE |
772: l_requests varchar2(3000);
773: l_email_address varchar2(200);
774:
775: begin
776: ap_debug_pkg.print('Y','AP_XML_INVOICE_INBOUND_PKG.notify_recipient(+)');
777: fnd_profile.get('AP_NOTIFICATION_EMAIL', l_email_address);
778: ap_debug_pkg.print('Y','email address: '||l_email_address);
779:
780: open parent_req;
805: ap_debug_pkg.print('Y','sending email -');
806: end if;
807:
808: p_return_code := '0';
809: ap_debug_pkg.print('Y','ap_xml_invoice_inbound_pkg.notify_recipient(-)');
810: exception
811: when others then
812: ap_debug_pkg.print('Y',
813: 'ap_xml_invoice_inbound_pkg.notify_recipient EXCEPTION(-)');
809: ap_debug_pkg.print('Y','ap_xml_invoice_inbound_pkg.notify_recipient(-)');
810: exception
811: when others then
812: ap_debug_pkg.print('Y',
813: 'ap_xml_invoice_inbound_pkg.notify_recipient EXCEPTION(-)');
814: p_return_code := '2';
815:
816: end notify_recipient;
817:
903: AND SOURCE = 'XML GATEWAY';
904:
905: begin
906: ap_debug_pkg.print('Y',
907: 'AP_XML_INVOICE_INBOUND_PKG.correct_charge_ccid(+)');
908:
909: open org_csr;
910: loop
911: fetch org_csr into l_org_id;
954: end loop; -- finish looping through org_id
955: close org_csr;
956:
957: ap_debug_pkg.print('Y',
958: 'AP_XML_INVOICE_INBOUND_PKG.correct_charge_ccid(-)');
959: end correct_charge_ccid;
960:
961: /*===========================================================================+
962: | PROCEDURE |
972: set_taxable_flag(p_group_id);
973: end after_map;
974:
975:
976: END AP_XML_INVOICE_INBOUND_PKG;