[Home] [Help]
896: l_amount NUMBER;
897: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
898: l_msg_count NUMBER;
899: l_msg_data VARCHAR2(2000);
900: l_currency_code okl_txl_cntrct_lns.currency_code%TYPE;
901: l_fnd_profile VARCHAR2(256);
902: l_cust_trx_type_id NUMBER;
903: l_has_trans VARCHAR2(1);
904:
3143: -- Populate distribution info
3144: p_dist_info_tbl(i).SOURCE_ID := p_tclv_tbl(i).id;
3145: p_dist_info_tbl(i).amount := p_tclv_tbl(i).amount;
3146: p_dist_info_tbl(i).ACCOUNTING_DATE := p_trxh_out_rec.date_transaction_occurred;
3147: p_dist_info_tbl(i).SOURCE_TABLE := 'OKL_TXL_CNTRCT_LNS';
3148: p_dist_info_tbl(i).GL_REVERSAL_FLAG := 'N';
3149: p_dist_info_tbl(i).POST_TO_GL := 'Y';
3150: p_dist_info_tbl(i).CONTRACT_ID := p_trxh_out_rec.khr_id;
3151: p_dist_info_tbl(i).currency_conversion_rate := p_trxh_out_rec.currency_conversion_rate;
3173: -- This procedure logic will be executed in its entirety, only if SLA accounting
3174: -- option AMB is enabled.
3175: -- When enabled, it creates:
3176: -- 1. TRX header in OKL_TRX_CONTRACTS for type 'Upfront Tax'
3177: -- 2. TRX lines in OKL_TXL_CNTRCT_LNS for each line in ZX_LINES,
3178: -- store values for cle-id, tax_line_id, tax_amount, etc.
3179: -- 3. Identify tax treatment for each asset line, to derive stream type
3180: -- 4. Call a/c API for upfront tax records in OKL_TXL_CNTRCT_LNS
3181: -- Business Rules :
3176: -- 1. TRX header in OKL_TRX_CONTRACTS for type 'Upfront Tax'
3177: -- 2. TRX lines in OKL_TXL_CNTRCT_LNS for each line in ZX_LINES,
3178: -- store values for cle-id, tax_line_id, tax_amount, etc.
3179: -- 3. Identify tax treatment for each asset line, to derive stream type
3180: -- 4. Call a/c API for upfront tax records in OKL_TXL_CNTRCT_LNS
3181: -- Business Rules :
3182: -- Parameters :
3183: -- Version : 1.0
3184: -- End of comments
3640:
3641: CLOSE fnd_lookups_csr;
3642:
3643: -- Get Stream ID's for 'Financed' and 'Capitalized' Fee stream purposes,
3644: -- this ID will be populated in OKL_TXL_CNTRCT_LNS depending on
3645: -- each inserted record's tax treatment
3646:
3647: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3648: THEN