[Home] [Help]
590:
591: l_allow_interest_invoices VARCHAR2(1); --bugfix:4113223
592: l_option_defined_org NUMBER; -- bug 5140002
593:
594: TYPE numlist is TABLE OF ap_interface_rejections.parent_id%TYPE;
595:
596: enums numlist;
597: --bug:4930111
598: l_add_days_settlement_date NUMBER;
948: END IF; */
949:
950: /* BUG 8237318 - End modified the existing query to dynamic sql to skip the null checks
951: for passing parameters in the query. */
952: debug_info := '(Check_lines 3b) Delete invoices from ap_interface_rejections';
953:
954: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
955: AP_IMPORT_UTILITIES_PKG.Print(
956: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
956: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
957: END IF;
958:
959: -- Retropricing
960: --The PPA Rejections will be deleted from ap_interface_rejections
961: -- in the After Report Trigger of APXIIMPT.
962: IF enums.COUNT > 0 THEN
963:
964: ForALL i IN enums.FIRST .. enums.LAST
961: -- in the After Report Trigger of APXIIMPT.
962: IF enums.COUNT > 0 THEN
963:
964: ForALL i IN enums.FIRST .. enums.LAST
965: DELETE FROM ap_interface_rejections
966: WHERE parent_table = 'AP_INVOICES_INTERFACE'
967: AND parent_id = enums(i);
968:
969: ForALL i IN enums.FIRST .. enums.LAST
966: WHERE parent_table = 'AP_INVOICES_INTERFACE'
967: AND parent_id = enums(i);
968:
969: ForALL i IN enums.FIRST .. enums.LAST
970: DELETE FROM ap_interface_rejections
971: WHERE parent_table = 'AP_INVOICE_LINES_INTERFACE'
972: AND parent_id IN (SELECT invoice_line_id
973: FROM ap_invoice_lines_interface
974: WHERE invoice_id = enums(i));
4619: SELECT h.invoice_id BULK COLLECT
4620: INTO h_list
4621: FROM ap_invoices_interface h,
4622: ap_invoice_lines_interface l,
4623: ap_interface_rejections r
4624: WHERE DECODE(r.parent_table, 'AP_INVOICES_INTERFACE',
4625: h.invoice_id,
4626: 'AP_INVOICE_LINES_INTERFACE', l.invoice_line_id)
4627: = r.parent_id
4639: SELECT h.invoice_id BULK COLLECT
4640: INTO h_list
4641: FROM ap_invoices_interface h,
4642: ap_invoice_lines_interface l,
4643: ap_interface_rejections r
4644: WHERE DECODE(r.parent_table, 'AP_INVOICES_INTERFACE',
4645: h.invoice_id,
4646: 'AP_INVOICE_LINES_INTERFACE', l.invoice_line_id)
4647: = r.parent_id
4672: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4673: END IF;
4674:
4675: FORALL i IN nvl(h_list.FIRST,0) .. nvl(h_list.LAST,-1)
4676: DELETE FROM ap_interface_rejections r
4677: WHERE r.parent_id = h_list(i)
4678: AND r.parent_table = 'AP_INVOICES_INTERFACE';
4679:
4680: debug_info := '(XML Import Purge 3) before deleting line rejections';
4683: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4684: END IF;
4685:
4686: FORALL i IN nvl(h_list.FIRST,0) .. nvl(h_list.LAST,-1)
4687: DELETE FROM ap_interface_rejections r
4688: WHERE r.parent_id IN (SELECT l.invoice_line_id
4689: FROM ap_invoice_lines_interface l
4690: WHERE l.invoice_id = h_list(i) )
4691: AND r.parent_table = 'AP_INVOICE_LINES_INTERFACE';
4772: CURSOR c_rejections IS
4773: SELECT parent_table,
4774: parent_id,
4775: reject_lookup_code
4776: FROM ap_interface_rejections
4777: WHERE parent_table = 'AP_INVOICES_INTERFACE'
4778: AND parent_id = p_invoice_interface_id
4779: UNION
4780: SELECT parent_table,
4779: UNION
4780: SELECT parent_table,
4781: parent_id,
4782: reject_lookup_code
4783: FROM ap_interface_rejections
4784: WHERE parent_table = 'AP_INVOICE_LINES_INTERFACE'
4785: AND parent_id IN (SELECT invoice_line_id
4786: FROM ap_invoice_lines_interface
4787: WHERE invoice_id = p_invoice_interface_id);