[Home] [Help]
1395: CURSOR c_rejected_invoices(l_request_id IN NUMBER) IS
1396: SELECT to_number(aii.reference_key1) report_header_id,
1397: reject_lookup_code,
1398: aii.invoice_id
1399: FROM ap_interface_rejections air, ap_invoices_interface aii
1400: WHERE air.parent_table = 'AP_INVOICES_INTERFACE'
1401: AND air.parent_id = aii.invoice_id
1402: AND aii.request_id = l_request_id
1403: UNION ALL
1396: SELECT to_number(aii.reference_key1) report_header_id,
1397: reject_lookup_code,
1398: aii.invoice_id
1399: FROM ap_interface_rejections air, ap_invoices_interface aii
1400: WHERE air.parent_table = 'AP_INVOICES_INTERFACE'
1401: AND air.parent_id = aii.invoice_id
1402: AND aii.request_id = l_request_id
1403: UNION ALL
1404: SELECT to_number(aii.reference_key1) report_header_id,
1404: SELECT to_number(aii.reference_key1) report_header_id,
1405: reject_lookup_code,
1406: aii.invoice_id
1407: FROM ap_interface_rejections air,
1408: ap_invoices_interface aii,
1409: ap_invoice_lines_interface aili
1410: WHERE air.parent_table = 'AP_INVOICE_LINES_INTERFACE'
1411: AND air.parent_id = aili.invoice_line_id
1412: AND aii.invoice_id = aili.invoice_id
1689: TYPE ReportHeaderIdType IS TABLE OF ap_expense_report_headers.report_header_id%TYPE
1690: INDEX BY BINARY_INTEGER;
1691: TYPE RejectCodeType IS TABLE OF ap_interface_rejections.reject_lookup_code%TYPE
1692: INDEX BY BINARY_INTEGER;
1693: TYPE InvoiceIdType IS TABLE OF ap_invoices_interface.invoice_id%TYPE
1694: INDEX BY BINARY_INTEGER;
1695: TYPE AdvAppliedType IS TABLE OF ap_expense_report_headers.maximum_amount_to_apply%TYPE
1696: INDEX BY BINARY_INTEGER;
1697:
2181: IF g_debug_switch = 'Y' THEN
2182: fnd_file.put_line(fnd_file.log, l_debug_info);
2183: END IF;
2184:
2185: SELECT AP_INVOICES_INTERFACE_S.nextval
2186: INTO l_invoice_rec.invoice_id
2187: FROM DUAL;
2188:
2189:
2611:
2612:
2613:
2614: ----------------------------------------------------------
2615: l_debug_info := 'Insert into AP Invoices Interface table';
2616: ----------------------------------------------------------
2617: IF g_debug_switch = 'Y' THEN
2618: fnd_file.put_line(fnd_file.log, l_debug_info);
2619: END IF;
2930: END IF;
2931:
2932: --Bug#8464009 - Deleting records from Interface tables that are left out by IMPORT_PURGE
2933: DELETE FROM ap_interface_rejections
2934: WHERE parent_table = 'AP_INVOICES_INTERFACE'
2935: AND parent_id IN (SELECT invoice_id
2936: FROM ap_invoices_interface
2937: WHERE request_id = l_request_id
2938: );
2932: --Bug#8464009 - Deleting records from Interface tables that are left out by IMPORT_PURGE
2933: DELETE FROM ap_interface_rejections
2934: WHERE parent_table = 'AP_INVOICES_INTERFACE'
2935: AND parent_id IN (SELECT invoice_id
2936: FROM ap_invoices_interface
2937: WHERE request_id = l_request_id
2938: );
2939:
2940: DELETE FROM ap_interface_rejections
2939:
2940: DELETE FROM ap_interface_rejections
2941: WHERE parent_table = 'AP_INVOICE_LINES_INTERFACE'
2942: and parent_id IN (SELECT aili.invoice_line_id
2943: FROM ap_invoices_interface aii, ap_invoice_lines_interface aili
2944: WHERE aii.invoice_id = aili.invoice_id
2945: AND aii.request_id = l_request_id
2946: );
2947:
2946: );
2947:
2948: DELETE FROM ap_invoice_lines_interface
2949: WHERE invoice_id IN (SELECT invoice_id
2950: FROM ap_invoices_interface
2951: WHERE request_id = l_request_id
2952: );
2953:
2954: DELETE FROM ap_invoices_interface
2950: FROM ap_invoices_interface
2951: WHERE request_id = l_request_id
2952: );
2953:
2954: DELETE FROM ap_invoices_interface
2955: WHERE request_id = l_request_id;
2956:
2957: END IF; /* l_expenses_fetched <> 0 */
2958:
3242: EXCEPTION
3243: WHEN OTHERS THEN
3244: l_payment_priority := NULL;
3245: END;
3246: INSERT INTO AP_INVOICES_INTERFACE
3247: (INVOICE_ID,
3248: APPLICATION_ID,
3249: PRODUCT_TABLE,
3250: REFERENCE_KEY1,