1: PACKAGE BODY CSTPAPPR AS
2: /* $Header: CSTAPPRB.pls 120.23.12020000.6 2013/03/04 09:03:04 penpan ship $ */
3:
4: l_debug_flag constant VARCHAR2(1) := FND_PROFILE.VALUE('MRP_DEBUG');
5:
6:
7: /*============================================================================+
8: | This procedure is called by the Accounting Package for the Accounting Lib. |
3858: l_stmt_num := 40;
3859:
3860: IF (o_purch_encumbrance_flag = 'Y') THEN
3861: -- Get profile CREATE_BUDGETARY_ENCUMBRANCES
3862: FND_PROFILE.get('CREATE_BUDGETARY_ENCUMBRANCES', l_bud_enc_flag);
3863: o_enc_flag := nvl(l_bud_enc_flag,'N');
3864: END IF;
3865:
3866: IF (o_enc_flag = 'Y' and o_purch_encumbrance_flag = 'Y' and i_encumbrance_account_id = -1) THEN