690: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_PPA_INVOICE_LINES_GT';
691: AP_IMPORT_INVOICES_PKG.g_instructions_table := 'AP_PPA_INSTRUCTIONS_GT';
692: ELSE
693: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_INVOICES_INTERFACE';
694: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_INVOICE_LINES_INTERFACE';
695: AP_IMPORT_INVOICES_PKG.g_instructions_table := NULL;
696: END IF;
697:
698: -- Bug 5448579
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));
975: END IF;
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));
975: END IF;
976: --Start of Bug 6801046
977: debug_info := '(Check_lines 3c) Update requestid on the Selected Invoices';
4449: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4450: END IF;
4451:
4452: ------------------------------------------------------------------------
4453: -- Step 3, Delete records for ap_invoice_lines_interface
4454: -- Multiple lines
4455: ------------------------------------------------------------------------
4456: debug_info := '(Import_purge 3) Delete records in ' ||
4457: 'ap_invoice_lines_interface...';
4453: -- Step 3, Delete records for ap_invoice_lines_interface
4454: -- Multiple lines
4455: ------------------------------------------------------------------------
4456: debug_info := '(Import_purge 3) Delete records in ' ||
4457: 'ap_invoice_lines_interface...';
4458: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
4459: AP_IMPORT_UTILITIES_PKG.Print(
4460: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4461: END IF;
4459: AP_IMPORT_UTILITIES_PKG.Print(
4460: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4461: END IF;
4462:
4463: DELETE FROM AP_INVOICE_LINES_INTERFACE
4464: WHERE invoice_id = l_invoice_id;
4465:
4466: ------------------------------------------------------------------------
4467: -- Step 4, Delete records for ap_invoices_interface
4618: IF (p_group_id IS NULL) THEN
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)
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
4628: AND h.invoice_id = l.invoice_id
4629: AND nvl(r.notify_vendor_flag,'N') = 'Y'
4630: AND h.status = 'REJECTED'
4638: ELSE
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)
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
4648: AND h.invoice_id = l.invoice_id
4649: AND nvl(r.notify_vendor_flag,'N') = 'Y'
4650: AND h.status = 'REJECTED'
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';
4692:
4693: debug_info := '(XML Import Purge 4) before deleting header interface';
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';
4692:
4693: debug_info := '(XML Import Purge 4) before deleting header interface';
4694: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
4695: AP_IMPORT_UTILITIES_PKG.Print(
4695: AP_IMPORT_UTILITIES_PKG.Print(
4696: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4697: END IF;
4698:
4699: -- Delete from ap_invoice_lines_interface table
4700: FORALL i IN nvl(h_list.FIRST,0) .. nvl(h_list.LAST,-1)
4701: DELETE FROM ap_invoice_lines_interface l
4702: WHERE l.invoice_id = h_list(i);
4703:
4697: END IF;
4698:
4699: -- Delete from ap_invoice_lines_interface table
4700: FORALL i IN nvl(h_list.FIRST,0) .. nvl(h_list.LAST,-1)
4701: DELETE FROM ap_invoice_lines_interface l
4702: WHERE l.invoice_id = h_list(i);
4703:
4704: debug_info := '(XML Import Purge 5) before deleting line interface';
4705: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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);
4788:
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);
4788:
4789: BEGIN
4790: