100: Begin
101:
102: Select invoice_num
103: into cp_invoice_number
104: from ap_invoices
105: where invoice_id = p_invoice_id;
106:
107: Exception
108: When No_data_found Then
268: WHERE invoice_id = p_invoice_id
269: and NVL(match_status_flag,'N') = 'N';
270: CURSOR get_inv_source IS
271: SELECT upper(nvl(source, 'X'))
272: FROM ap_invoices
273: WHERE invoice_id = p_invoice_id;
274:
275: l_source ap_invoices.source%TYPE;
276: BEGIN
271: SELECT upper(nvl(source, 'X'))
272: FROM ap_invoices
273: WHERE invoice_id = p_invoice_id;
274:
275: l_source ap_invoices.source%TYPE;
276: BEGIN
277: OPEN get_inv_source;
278: FETCH get_inv_source INTO l_source;
279: CLOSE get_inv_source;