95: p_ae_event_rec IN ae_event_rec_type,
96: p_ae_deleted OUT NOCOPY BOOLEAN ) IS
97: BEGIN
98: IF PG_DEBUG in ('Y', 'C') THEN
99: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Delete_Acct()+');
100: END IF;
101:
102: /*----------------------------------------------------+
103: | Copy Document/Event Data to Global |
112:
113: END IF;
114:
115: IF PG_DEBUG in ('Y', 'C') THEN
116: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Delete_Acct()-');
117: END IF;
118:
119: EXCEPTION
120: WHEN OTHERS THEN
118:
119: EXCEPTION
120: WHEN OTHERS THEN
121: IF PG_DEBUG in ('Y', 'C') THEN
122: arp_standard.debug( 'EXCEPTION: ARP_ADJUSTMENTS_MAIN.Delete_Acct');
123: END IF;
124: RAISE;
125:
126: END Delete_Acct;
159:
160:
161: BEGIN
162: IF PG_DEBUG in ('Y', 'C') THEN
163: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Execute()+');
164: END IF;
165: /*------------------------------------------------------+
166: | Initialize Accounting Entry Header and Lines |
167: +------------------------------------------------------*/
211:
212: END IF;
213:
214: IF PG_DEBUG in ('Y', 'C') THEN
215: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Execute()-');
216: END IF;
217:
218: EXCEPTION
219: WHEN NO_DATA_FOUND THEN
217:
218: EXCEPTION
219: WHEN NO_DATA_FOUND THEN
220: IF PG_DEBUG in ('Y', 'C') THEN
221: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Execute - NO_DATA_FOUND' );
222: END IF;
223: RAISE;
224:
225: WHEN OTHERS THEN
223: RAISE;
224:
225: WHEN OTHERS THEN
226: IF PG_DEBUG in ('Y', 'C') THEN
227: arp_standard.debug( 'EXCEPTION: ARP_ADJUSTMENTS_MAIN.Execute');
228: END IF;
229: RAISE;
230:
231: END Execute;
240:
241: BEGIN
242:
243: IF PG_DEBUG in ('Y', 'C') THEN
244: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Init_Ae_Lines()+');
245: END IF;
246:
247: g_ae_line_tbl := g_empty_ae_line_tbl;
248:
246:
247: g_ae_line_tbl := g_empty_ae_line_tbl;
248:
249: IF PG_DEBUG in ('Y', 'C') THEN
250: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Init_Ae_Lines()-');
251: END IF;
252: EXCEPTION
253:
254: WHEN OTHERS THEN
252: EXCEPTION
253:
254: WHEN OTHERS THEN
255: IF PG_DEBUG in ('Y', 'C') THEN
256: arp_standard.debug( 'EXCEPTION: ARP_ADJUSTMENTS_MAIN.Init_Ae_Lines');
257: END IF;
258: RAISE;
259:
260: END Init_Ae_Lines;
276: IS
277:
278: BEGIN
279: IF PG_DEBUG in ('Y', 'C') THEN
280: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Derive_Accounting_Entry()+');
281: END IF;
282: /*------------------------------------------------------------+
283: | Create Accounting Entries at the Document Entity level. |
284: +------------------------------------------------------------*/
310:
311: END IF; -- accounting_entity_level = ALL?
312:
313: IF PG_DEBUG in ('Y', 'C') THEN
314: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Derive_Accounting_Entry()-');
315: END IF;
316:
317: EXCEPTION
318: WHEN OTHERS THEN
316:
317: EXCEPTION
318: WHEN OTHERS THEN
319: IF PG_DEBUG in ('Y', 'C') THEN
320: arp_standard.debug( 'EXCEPTION: ARP_ADJUSTMENTS_MAIN.Derive_Accounting_Entry');
321: END IF;
322: RAISE;
323:
324: END Derive_Accounting_Entry;
344: l_ar_dist_key_value_list gl_ca_utility_pkg.r_key_value_arr;
345:
346: BEGIN
347: IF PG_DEBUG in ('Y', 'C') THEN
348: arp_standard.debug('ARP_ADJUSTMENTS_MAIN.Delete_ADJ()+');
349: END IF;
350:
351: /*-------------------------------------------------------------------+
352: | Verify that the source id is a valid candidate for deletion |
386: -- p_key_value_list => l_ar_dist_key_value_list);
387: --}
388:
389: IF PG_DEBUG in ('Y', 'C') THEN
390: arp_standard.debug('ARP_ADJUSTMENTS_MAIN.Delete_ADJ()-');
391: END IF;
392:
393: EXCEPTION
394: WHEN NO_DATA_FOUND THEN
392:
393: EXCEPTION
394: WHEN NO_DATA_FOUND THEN
395: IF PG_DEBUG in ('Y', 'C') THEN
396: arp_standard.debug('ARP_ADJUSTMENTS_MAIN.Delete_ADJ - NO_DATA_FOUND' );
397: END IF;
398: p_ae_deleted := FALSE;
399: RAISE;
400:
399: RAISE;
400:
401: WHEN OTHERS THEN
402: IF PG_DEBUG in ('Y', 'C') THEN
403: arp_standard.debug('EXCEPTION: ARP_ADJUSTMENTS_MAIN.Delete_ADJ');
404: END IF;
405: p_ae_deleted := FALSE;
406: RAISE ;
407:
679: --}
680:
681: BEGIN
682:
683: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Reverse_Adjustments()+');
684:
685: --Reverse all adjustment accounting
686: FOR l_ard_rec in get_old_ard LOOP
687:
733: Assign_Ael_Elements( p_ae_line_rec => l_ael_line_rec );
734:
735:
736: --{3377004
737: arp_standard.debug(' l_ard_rec.WHICH_BUCKET:'||l_ard_rec.WHICH_BUCKET);
738: arp_standard.debug(' l_ard_rec.ref_customer_trx_line_id:'||l_ard_rec.ref_customer_trx_line_id);
739: arp_standard.debug(' l_ard_rec.ref_line_id:'||l_ard_rec.ref_line_id);
740: IF l_ard_rec.WHICH_BUCKET = 'N' THEN
741: NULL;
734:
735:
736: --{3377004
737: arp_standard.debug(' l_ard_rec.WHICH_BUCKET:'||l_ard_rec.WHICH_BUCKET);
738: arp_standard.debug(' l_ard_rec.ref_customer_trx_line_id:'||l_ard_rec.ref_customer_trx_line_id);
739: arp_standard.debug(' l_ard_rec.ref_line_id:'||l_ard_rec.ref_line_id);
740: IF l_ard_rec.WHICH_BUCKET = 'N' THEN
741: NULL;
742: ELSIF l_ard_rec.WHICH_BUCKET = 'ADDCTL' THEN
735:
736: --{3377004
737: arp_standard.debug(' l_ard_rec.WHICH_BUCKET:'||l_ard_rec.WHICH_BUCKET);
738: arp_standard.debug(' l_ard_rec.ref_customer_trx_line_id:'||l_ard_rec.ref_customer_trx_line_id);
739: arp_standard.debug(' l_ard_rec.ref_line_id:'||l_ard_rec.ref_line_id);
740: IF l_ard_rec.WHICH_BUCKET = 'N' THEN
741: NULL;
742: ELSIF l_ard_rec.WHICH_BUCKET = 'ADDCTL' THEN
743:
761: NVL(l_ctl_rem_amt.acctd_amount_due_remaining(l_index),0)
762: -- + (NVL(l_ard_rec.acctd_amount_cr,0) - NVL(l_ard_rec.acctd_amount_dr,0));
763: + (NVL(l_ael_line_rec.accounted_cr,0) - NVL(l_ael_line_rec.accounted_dr,0));
764:
765: arp_standard.debug('l_ctl_rem_amt.customer_trx_line_id('||l_index||'):'||
766: l_ctl_rem_amt.customer_trx_line_id(l_index));
767: arp_standard.debug('l_ctl_rem_amt.amount_due_remaining('||l_index||'):'||
768: l_ctl_rem_amt.amount_due_remaining(l_index));
769: arp_standard.debug('l_ctl_rem_amt.acctd_amount_due_remaining('||l_index||'):'||
763: + (NVL(l_ael_line_rec.accounted_cr,0) - NVL(l_ael_line_rec.accounted_dr,0));
764:
765: arp_standard.debug('l_ctl_rem_amt.customer_trx_line_id('||l_index||'):'||
766: l_ctl_rem_amt.customer_trx_line_id(l_index));
767: arp_standard.debug('l_ctl_rem_amt.amount_due_remaining('||l_index||'):'||
768: l_ctl_rem_amt.amount_due_remaining(l_index));
769: arp_standard.debug('l_ctl_rem_amt.acctd_amount_due_remaining('||l_index||'):'||
770: l_ctl_rem_amt.acctd_amount_due_remaining(l_index));
771:
765: arp_standard.debug('l_ctl_rem_amt.customer_trx_line_id('||l_index||'):'||
766: l_ctl_rem_amt.customer_trx_line_id(l_index));
767: arp_standard.debug('l_ctl_rem_amt.amount_due_remaining('||l_index||'):'||
768: l_ctl_rem_amt.amount_due_remaining(l_index));
769: arp_standard.debug('l_ctl_rem_amt.acctd_amount_due_remaining('||l_index||'):'||
770: l_ctl_rem_amt.acctd_amount_due_remaining(l_index));
771:
772: ELSIF l_ard_rec.WHICH_BUCKET = 'ADDCHRG' THEN
773:
788: l_ctl_rem_amt.chrg_acctd_amount_remaining(l_index) :=
789: NVL(l_ctl_rem_amt.chrg_acctd_amount_remaining(l_index),0)
790: + (NVL(l_ard_rec.acctd_amount_cr,0) - NVL(l_ard_rec.acctd_amount_dr,0));
791:
792: arp_standard.debug('l_ctl_rem_amt.customer_trx_line_id('||l_index||'):'||
793: l_ctl_rem_amt.customer_trx_line_id(l_index));
794: arp_standard.debug('l_ctl_rem_amt.chrg_amount_remaining('||l_index||'):'||
795: l_ctl_rem_amt.chrg_amount_remaining(l_index));
796: arp_standard.debug('l_ctl_rem_amt.chrg_acctd_amount_remaining('||l_index||'):'||
790: + (NVL(l_ard_rec.acctd_amount_cr,0) - NVL(l_ard_rec.acctd_amount_dr,0));
791:
792: arp_standard.debug('l_ctl_rem_amt.customer_trx_line_id('||l_index||'):'||
793: l_ctl_rem_amt.customer_trx_line_id(l_index));
794: arp_standard.debug('l_ctl_rem_amt.chrg_amount_remaining('||l_index||'):'||
795: l_ctl_rem_amt.chrg_amount_remaining(l_index));
796: arp_standard.debug('l_ctl_rem_amt.chrg_acctd_amount_remaining('||l_index||'):'||
797: l_ctl_rem_amt.chrg_acctd_amount_remaining(l_index));
798:
792: arp_standard.debug('l_ctl_rem_amt.customer_trx_line_id('||l_index||'):'||
793: l_ctl_rem_amt.customer_trx_line_id(l_index));
794: arp_standard.debug('l_ctl_rem_amt.chrg_amount_remaining('||l_index||'):'||
795: l_ctl_rem_amt.chrg_amount_remaining(l_index));
796: arp_standard.debug('l_ctl_rem_amt.chrg_acctd_amount_remaining('||l_index||'):'||
797: l_ctl_rem_amt.chrg_acctd_amount_remaining(l_index));
798:
799: END IF;
800: --}
821: |this routine will always attempt do a reversal, first reverse accounting then call |
822: |the reconciliation routine. Note the reversal of Reconciliation entries is left to |
823: |The Reconciliation routine below i.e. we do not reverse them in the above cursor. |
824: +-----------------------------------------------------------------------------------*/
825: arp_standard.debug('Before call to Reconciliation routine');
826:
827: FOR l_get_adj in get_adj_details LOOP --loop executes once only for adjustment
828:
829: /*-------------------------------------------------------------------------------+
860: p_g_ae_ctr => g_ae_line_ctr );
861:
862: END LOOP; --get adjustment details
863:
864: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Reverse_Adjustments()-');
865:
866: EXCEPTION
867: WHEN NO_DATA_FOUND THEN
868: arp_standard.debug('ARP_ADJUSTMENTS_MAIN.Reverse_Adjustments - NO_DATA_FOUND' );
864: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Reverse_Adjustments()-');
865:
866: EXCEPTION
867: WHEN NO_DATA_FOUND THEN
868: arp_standard.debug('ARP_ADJUSTMENTS_MAIN.Reverse_Adjustments - NO_DATA_FOUND' );
869: RAISE;
870:
871: WHEN OTHERS THEN
872: arp_standard.debug('EXCEPTION: ARP_ADJUSTMENTS_MAIN.Reverse_Adjustments');
868: arp_standard.debug('ARP_ADJUSTMENTS_MAIN.Reverse_Adjustments - NO_DATA_FOUND' );
869: RAISE;
870:
871: WHEN OTHERS THEN
872: arp_standard.debug('EXCEPTION: ARP_ADJUSTMENTS_MAIN.Reverse_Adjustments');
873: RAISE ;
874:
875: END Reverse_Adjustment;
876:
908:
909: BEGIN
910:
911: IF PG_DEBUG in ('Y', 'C') THEN
912: arp_standard.debug('ARP_ADJUSTMENTS_MAIN.Get_Doc_Entitity_Data()+');
913: END IF;
914:
915: IF p_level = 'ADJ' then
916:
1293: p_validation_level => NULL,
1294: x_return_status => l_return_status,
1295: x_msg_count => l_msg_count,
1296: x_msg_data => l_msg_data,
1297: p_internal_org_id => arp_standard.sysparm.org_id,
1298: p_legal_entity_id => l_le_id,
1299: p_transaction_date => p_adj_rec.apply_date,
1300: p_related_doc_date => NULL,
1301: p_adjusted_doc_date=> NULL,
1326:
1327: EXCEPTION
1328: WHEN NO_DATA_FOUND THEN
1329: IF PG_DEBUG in ('Y', 'C') THEN
1330: arp_standard.debug('ARP_ADJUSTMENTS_MAIN.Get_Doc_Entitity_Data - ' ||
1331: 'ACT_TAX_NON_REC_CCID - '|| 'NO_DATA_FOUND' );
1332: END IF;
1333: NULL;
1334:
1333: NULL;
1334:
1335: WHEN OTHERS THEN
1336: IF PG_DEBUG in ('Y', 'C') THEN
1337: arp_standard.debug('EXCEPTION: ARP_ADJUSTMENTS_MAIN.'||
1338: 'Get_Doc_Entitity_Data - ACT_TAX_NON_REC_CCID ');
1339: END IF;
1340: RAISE ;
1341: END;
1344:
1345: END IF; --end if p_level = ADJ
1346:
1347: IF PG_DEBUG in ('Y', 'C') THEN
1348: arp_standard.debug('ARP_ADJUSTMENTS_MAIN.Get_Doc_Entitity_Data()-');
1349: END IF;
1350:
1351: EXCEPTION
1352: WHEN NO_DATA_FOUND THEN
1350:
1351: EXCEPTION
1352: WHEN NO_DATA_FOUND THEN
1353: IF PG_DEBUG in ('Y', 'C') THEN
1354: arp_standard.debug('ARP_ADJUSTMENTS_MAIN.Get_Doc_Entitity_Data - NO_DATA_FOUND' );
1355: END IF;
1356: RAISE;
1357:
1358: WHEN OTHERS THEN
1356: RAISE;
1357:
1358: WHEN OTHERS THEN
1359: IF PG_DEBUG in ('Y', 'C') THEN
1360: arp_standard.debug('EXCEPTION: ARP_ADJUSTMENTS_MAIN.Get_Doc_Entitity_Data');
1361: END IF;
1362: RAISE ;
1363:
1364: END Get_Doc_Entitity_Data;
1391:
1392: BEGIN
1393:
1394: IF PG_DEBUG in ('Y', 'C') THEN
1395: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Create_Ae_Lines_Common()+');
1396: END IF;
1397:
1398: /*-------------------------------------------------------------+
1399: | Get Document Entitity specific data |
1437:
1438: END IF;
1439:
1440: IF PG_DEBUG in ('Y', 'C') THEN
1441: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Create_Ae_Lines_Common()-');
1442: END IF;
1443:
1444: EXCEPTION
1445: WHEN OTHERS THEN
1443:
1444: EXCEPTION
1445: WHEN OTHERS THEN
1446: IF PG_DEBUG in ('Y', 'C') THEN
1447: arp_standard.debug('EXCEPTION: ARP_ADJUSTMENTS_MAIN.Create_Ae_Lines_Common');
1448: END IF;
1449: RAISE;
1450:
1451: END Create_Ae_Lines_Common;
1486: l_actual_ccid ar_adjustments.code_combination_id%TYPE := null;
1487:
1488: BEGIN
1489: IF PG_DEBUG in ('Y', 'C') THEN
1490: arp_standard.debug( 'Create_Ae_Lines_ADJ.Create_Ae_Lines_ADJ()+');
1491: END IF;
1492:
1493: /*-------------------------------------------------------------+
1494: | Get exchange rate and third part info from Invoice adjusted |
1581: | Tax accounting routine is called. Note for Bills Receivable we only move |
1582: | deferred tax as there is no discount. |
1583: +---------------------------------------------------------------------------*/
1584: IF PG_DEBUG in ('Y', 'C') THEN
1585: arp_standard.debug('g_ae_doc_rec.deferred_tax ' || g_ae_doc_rec.deferred_tax);
1586: arp_standard.debug('p_cust_inv_rec.drawee_site_use_id '
1587: || p_cust_inv_rec.drawee_site_use_id);
1588: END IF;
1589:
1582: | deferred tax as there is no discount. |
1583: +---------------------------------------------------------------------------*/
1584: IF PG_DEBUG in ('Y', 'C') THEN
1585: arp_standard.debug('g_ae_doc_rec.deferred_tax ' || g_ae_doc_rec.deferred_tax);
1586: arp_standard.debug('p_cust_inv_rec.drawee_site_use_id '
1587: || p_cust_inv_rec.drawee_site_use_id);
1588: END IF;
1589:
1590: IF (nvl(g_ae_doc_rec.deferred_tax,'Y') = 'Y') THEN
1710:
1711: ELSE --if adjustment is a zero amount adjustment then Credit the Write off account
1712:
1713: IF PG_DEBUG in ('Y', 'C') THEN
1714: arp_standard.debug('Processing Credit to Write Off for 0 amount adjustment ');
1715: END IF;
1716:
1717: --Substitute the balancing segment
1718: --Bugfix 1948917.
1823: p_g_ae_line_tbl => g_ae_line_tbl ,
1824: p_g_ae_ctr => g_ae_line_ctr );
1825:
1826: IF PG_DEBUG in ('Y', 'C') THEN
1827: arp_standard.debug('Create_Ae_Lines_ADJ.Create_Ae_Lines_ADJ()-');
1828: END IF;
1829:
1830: EXCEPTION
1831: WHEN ARP_ALLOCATION_PKG.invalid_allocation_base THEN
1829:
1830: EXCEPTION
1831: WHEN ARP_ALLOCATION_PKG.invalid_allocation_base THEN
1832: IF PG_DEBUG in ('Y', 'C') THEN
1833: arp_standard.debug('Create_Ae_Lines_ADJ.Create_Ae_Lines_ADJ - invalid_rule_error');
1834: END IF;
1835: fnd_message.set_name('AR','AR_INVALID_ACTIVITY');
1836: RAISE;
1837:
1836: RAISE;
1837:
1838: WHEN NO_DATA_FOUND THEN
1839: IF PG_DEBUG in ('Y', 'C') THEN
1840: arp_standard.debug('NO_DATA_FOUND' );
1841: END IF;
1842: RAISE;
1843:
1844: WHEN OTHERS THEN
1842: RAISE;
1843:
1844: WHEN OTHERS THEN
1845: IF PG_DEBUG in ('Y', 'C') THEN
1846: arp_standard.debug('EXCEPTION: Create_Ae_Lines_ADJ.Create_Ae_Lines_ADJ');
1847: END IF;
1848: RAISE;
1849:
1850: END Create_Ae_Lines_ADJ;
1878:
1879: BEGIN
1880:
1881: IF PG_DEBUG in ('Y', 'C') THEN
1882: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Assign_Ael_Elements()+');
1883: END IF;
1884:
1885: /*------------------------------------------------------+
1886: | Call Hook to Override Account |
1961: g_ae_line_tbl(g_ae_line_ctr).activity_bucket := p_ae_line_rec.activity_bucket;
1962: g_ae_line_tbl(g_ae_line_ctr).ref_dist_ccid := p_ae_line_rec.ref_dist_ccid;
1963:
1964: IF PG_DEBUG in ('Y', 'C') THEN
1965: arp_standard.debug( 'ARP_ADJUSTMENTS_MAIN.Assign_Ael_Elements()-');
1966: END IF;
1967:
1968: EXCEPTION
1969: WHEN OTHERS THEN
1967:
1968: EXCEPTION
1969: WHEN OTHERS THEN
1970: IF PG_DEBUG in ('Y', 'C') THEN
1971: arp_standard.debug('EXCEPTION: ARP_ADJUSTMENTS_MAIN.Assign_Ael_Elements');
1972: END IF;
1973: RAISE;
1974:
1975: END Assign_Ael_Elements;
1981: IS
1982: result NUMBER;
1983: cnt NUMBER := 0;
1984: BEGIN
1985: arp_standard.debug('ctl_id_index+');
1986: result := -1;
1987: cnt := p_ctl_id_tab.COUNT;
1988: IF cnt > 0 THEN
1989: FOR i IN p_ctl_id_tab.FIRST .. p_ctl_id_tab.LAST LOOP
1997: END IF;
1998: IF result = -1 THEN
1999: result := cnt + 1;
2000: END IF;
2001: arp_standard.debug(' result index:'||result);
2002: arp_standard.debug('ctl_id_index-');
2003: RETURN result;
2004: END;
2005:
1998: IF result = -1 THEN
1999: result := cnt + 1;
2000: END IF;
2001: arp_standard.debug(' result index:'||result);
2002: arp_standard.debug('ctl_id_index-');
2003: RETURN result;
2004: END;
2005:
2006: PROCEDURE init_rem_amt(x_rem_amt IN OUT NOCOPY ctl_rem_amt_type,