[Home] [Help]
PACKAGE BODY: APPS.ICX_AP_CHECKS_PKG
Source
1 PACKAGE BODY ICX_AP_CHECKS_PKG AS
2 /* $Header: ICXAPCKB.pls 115.3 2002/01/04 14:00:27 pkm ship $ */
3 -----------------------------------------------------------------------
4 -- Function get_invoices_paid returns a comma delimited list of
5 -- invoices paid by this check.
6 --
7 FUNCTION get_invoices_paid (l_check_id IN NUMBER)
8 RETURN VARCHAR2
9 IS
10 l_inv_num AP_INVOICES.INVOICE_NUM%TYPE;
11 l_inv_num_list VARCHAR2(4000) := NULL;
12 l_inv_num_good VARCHAR2(4000) := NULL; -- newly added
13
14 -------------------------------------------------------------------
15 -- Declare cursor to return the Invoice number
16 --
17 CURSOR inv_num_cursor IS
18 SELECT ai.invoice_num
19 FROM ap_invoices ai,
20 ap_invoice_payments aip
21 WHERE aip.check_id = l_check_id
22 AND aip.invoice_id = ai.invoice_id;
23
24 BEGIN
25
26 OPEN inv_num_cursor;
27
28 LOOP
29 FETCH inv_num_cursor INTO l_inv_num;
30 EXIT WHEN inv_num_cursor%NOTFOUND;
31
32 IF (l_inv_num_list IS NOT NULL) THEN
33 l_inv_num_list := l_inv_num_list || ', ';
34 END IF;
35
36 l_inv_num_list := l_inv_num_list || l_inv_num;
37
38 l_inv_num_good := l_inv_num_list; -- newly added
39
40 END LOOP;
41
42 CLOSE inv_num_cursor;
43
44 RETURN(l_inv_num_list);
45
46 EXCEPTION -- newly added
47 WHEN OTHERS THEN -- newly added
48
49 RETURN(l_inv_num_good); -- newly added
50
51 END get_invoices_paid;
52
53 END ICX_AP_CHECKS_PKG;