1: PACKAGE BODY ICX_AP_INVOICE_PAYMENTS_PKG AS
2: /* $Header: ICXAPPAB.pls 115.0 99/08/09 17:21:56 porting ship $ */
3:
4: -----------------------------------------------------------------------
5: -- Declare record type used to hold records returned from generic cursor
95: LOOP
96: FETCH payment_cursor INTO l_payment_record;
97: EXIT WHEN payment_cursor%NOTFOUND;
98:
99: l_paid_by := ICX_AP_INVOICE_PAYMENTS_PKG.CONCAT_DOCUMENT_NUM_TYPE(
100: l_payment_record);
101:
102: IF (l_paid_by_list IS NOT NULL) THEN
103: l_paid_by_list := l_paid_by_list || ', ';
112: RETURN(l_paid_by_list);
113:
114: END get_paid_by_list;
115:
116: END ICX_AP_INVOICE_PAYMENTS_PKG;