1: PACKAGE BODY cse_ipv_fa_pkg AS
2: /* $Header: CSEIPVFB.pls 120.20.12020000.3 2012/08/27 18:21:54 devijay ship $ */
3:
4: l_debug varchar2(1) := NVL(fnd_profile.value('CSE_DEBUG_OPTION'),'N');
5:
6: TYPE ap_ft_rec IS RECORD (
7: invoice_type varchar2(15),
8: chrg_dist_id number,
296: END IF;
297:
298: debug(' deprn_expense_ccid : '||l_expense_ccid);
299:
300: SELECT fnd_profile.value('CSE_FA_BOOK_TYPE_CODE')
301: INTO l_dflt_book_type_code
302: FROM sys.dual;
303:
304: FOR asset_rec in asset_cur(csi_txn_rec.transaction_id, p_invoice_rec.po_dist_id)