1: PACKAGE BODY AR_TRX_GLOBAL_PROCESS_LINES AS
2: /* $Header: ARINGTLB.pls 120.17 2007/06/21 21:03:39 mraymond ship $ */
3:
4: pg_debug VARCHAR2(1) := nvl(fnd_profile.value('AFLOG_ENABLED'),'N');
5:
10: BEGIN
11:
12: IF pg_debug = 'Y'
13: THEN
14: ar_invoice_utils.debug ('AR_TRX_GLOBAL_PROCESS_LINES.INSERT_ROW (+)');
15: END IF;
16: x_return_status := FND_API.G_RET_STS_SUCCESS;
17: -- Now populate the lines global Temp. Table
18: FOR i IN p_trx_lines_tbl.FIRST .. p_trx_lines_tbl.LAST
303: END LOOP;
304:
305: IF pg_debug = 'Y'
306: THEN
307: ar_invoice_utils.debug ('AR_TRX_GLOBAL_PROCESS_LINES.INSERT_ROW (-)');
308: END IF;
309: EXCEPTION
310: WHEN OTHERS THEN
311: x_errmsg := 'Error in AR_TRX_GLOBAL_PROCESS_LINES.INSERT_ROW '||sqlerrm;
307: ar_invoice_utils.debug ('AR_TRX_GLOBAL_PROCESS_LINES.INSERT_ROW (-)');
308: END IF;
309: EXCEPTION
310: WHEN OTHERS THEN
311: x_errmsg := 'Error in AR_TRX_GLOBAL_PROCESS_LINES.INSERT_ROW '||sqlerrm;
312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
313: return;
314:
315: END INSERT_ROW;
313: return;
314:
315: END INSERT_ROW;
316:
317: END AR_TRX_GLOBAL_PROCESS_LINES;