[Home] [Help]
1: PACKAGE BODY ARP_PROCESS_CHARGEBACK AS
2: /* $Header: ARCECBB.pls 120.16 2007/01/12 10:14:29 ugummall ship $*/
3: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
4:
5: NULL_VAR ar_payment_schedules%ROWTYPE; /* Added for Bug 460966 - Oracle 8 */
6: PROCEDURE validate_args_revcb(
7: p_cb_ct_id IN ra_customer_trx.customer_trx_id%TYPE,
1771: | Balancing segment of chargeback application should be replaced with|
1772: | that of Receipt's UNAPP record |
1773: +--------------------------------------------------------------------*/
1774: -- Bugfix 1948917.
1775: IF NVL(FND_PROFILE.value('AR_DISABLE_REC_ACTIVITY_BALSEG_SUBSTITUTION'), 'N') = 'N' THEN
1776: arp_util.Substitute_Ccid(p_coa_id => arp_global.chart_of_accounts_id ,
1777: p_original_ccid => l_ctlgd_row.code_combination_id ,
1778: p_subs_ccid => l_cr_unapp_ccid ,
1779: p_actual_ccid => l_actual_ccid );
1782: END IF;
1783: ELSE
1784: -- Regular chargeback should replace the balancing segment of the invoice REC
1785: -- Bugfix 1948917.
1786: IF NVL(FND_PROFILE.value('AR_DISABLE_REC_ACTIVITY_BALSEG_SUBSTITUTION'), 'N') = 'N' THEN
1787: arp_util.Substitute_Ccid(p_coa_id => arp_global.chart_of_accounts_id ,
1788: p_original_ccid => l_ctlgd_row.code_combination_id ,
1789: p_subs_ccid => l_inv_rec_ccid ,
1790: p_actual_ccid => l_actual_ccid );
2024: -- Profile option values:
2025: -- 'A' = always used
2026: -- 'P' = Partially Used
2027: -- 'N' = not used
2028: IF (NVL(fnd_profile.value('UNIQUE:SEQ_NUMBERS'),'N') <> 'N')
2029: THEN
2030: -- Set up sequential numbering stuff
2031: SELECT rt.name
2032: INTO l_rec_name
2073: END IF;
2074: EXCEPTION
2075: WHEN OTHERS THEN
2076: --Fix for Bug 1421614: For 'Partial' we should not raise the exception.
2077: IF NVL(fnd_profile.value('UNIQUE:SEQ_NUMBERS'),'N') = 'A' THEN
2078: FND_MESSAGE.set_name ('AR', 'AR_RW_NO_DOC_SEQ' );
2079: APP_EXCEPTION.raise_exception;
2080: END IF;
2081: END;