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;