59: 'N',efd.description),
60: efd.org_id -- Bug 5592139
61: from ap_expense_feed_lines efl,
62: ap_expense_feed_dists efd,
63: ap_card_programs cp
64: where efl.feed_line_id = efd.feed_line_id
65: and efl.card_program_id = P_CARD_PROGRAM_ID
66: and efl.card_program_id = cp.card_program_id
67: and nvl(efd.invoiced_flag,'N') = 'N'
104: AP_EXPENSE_FEED_DISTS.amount_includes_tax_flag%TYPE;
105: l_transaction_date date;
106: l_description AP_EXPENSE_FEED_DISTS.description%TYPE := '';
107: l_invoice_currency_code
108: AP_CARD_PROGRAMS.card_program_currency_code%TYPE := '';
109: l_count number := 0;
110: l_sum number := 0;
111: l_invoice_id number;
112: l_invoice_line_id number;
234: and dist_code_combination_id = l_ccid
235: and exists
236: (select 'Parent record meets group criteria from lines_cursor'
237: from AP_EXPENSE_FEED_LINES EFL,
238: AP_CARD_PROGRAMS CP
239: where EFL.feed_line_id = EFD.feed_line_id
240: and EFL.card_program_id = P_CARD_PROGRAM_ID
241: and EFL.card_program_id = CP.card_program_id
242: and ((nvl(efd.status_lookup_code,'VALIDATED') = 'APPROVED')
273: -- then insert a single header record into AP_INVOICES_INTERFACE.
274: --
275: if (l_count > 0) then
276: --
277: -- Need vendor (payee) information from AP_CARD_PROGRAMS
278: --
279: -----------------------------------------------------------------------
280: l_debug_info := 'Retrieving vendor info from card program';
281: -----------------------------------------------------------------------
284: card_program_currency_code
285: into l_vendor_id,
286: l_vendor_site_id,
287: l_invoice_currency_code
288: from ap_card_programs
289: where card_program_id = P_CARD_PROGRAM_ID;
290:
291: -----------------------------------------------------------------------
292: l_debug_info := 'Inserting into AP_INVOICES_INTERFACE';