[Home] [Help]
1: PACKAGE BODY ARP_PROCESS_CHARGEBACK AS
2: /* $Header: ARCECBB.pls 120.17.12020000.6 2012/10/08 11:36:47 ankuagar 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,
1898: | Balancing segment of chargeback application should be replaced with|
1899: | that of Receipt's UNAPP record |
1900: +--------------------------------------------------------------------*/
1901: -- Bugfix 1948917.
1902: IF NVL(FND_PROFILE.value('AR_DISABLE_REC_ACTIVITY_BALSEG_SUBSTITUTION'), 'N') = 'N' THEN
1903: arp_util.Substitute_Ccid(p_coa_id => arp_global.chart_of_accounts_id ,
1904: p_original_ccid => l_ctlgd_row.code_combination_id ,
1905: p_subs_ccid => l_cr_unapp_ccid ,
1906: p_actual_ccid => l_actual_ccid );
1909: END IF;
1910: ELSE
1911: -- Regular chargeback should replace the balancing segment of the invoice REC
1912: -- Bugfix 1948917.
1913: IF NVL(FND_PROFILE.value('AR_DISABLE_REC_ACTIVITY_BALSEG_SUBSTITUTION'), 'N') = 'N' THEN
1914: arp_util.Substitute_Ccid(p_coa_id => arp_global.chart_of_accounts_id ,
1915: p_original_ccid => l_ctlgd_row.code_combination_id ,
1916: p_subs_ccid => l_inv_rec_ccid ,
1917: p_actual_ccid => l_actual_ccid );
2151: -- Profile option values:
2152: -- 'A' = always used
2153: -- 'P' = Partially Used
2154: -- 'N' = not used
2155: IF (NVL(fnd_profile.value('UNIQUE:SEQ_NUMBERS'),'N') <> 'N')
2156: THEN
2157: -- Set up sequential numbering stuff
2158: SELECT rt.name
2159: INTO l_rec_name
2200: END IF;
2201: EXCEPTION
2202: WHEN OTHERS THEN
2203: --Fix for Bug 1421614: For 'Partial' we should not raise the exception.
2204: IF NVL(fnd_profile.value('UNIQUE:SEQ_NUMBERS'),'N') = 'A' THEN
2205: FND_MESSAGE.set_name ('AR', 'AR_RW_NO_DOC_SEQ' );
2206: APP_EXCEPTION.raise_exception;
2207: END IF;
2208: END;