1: PACKAGE BODY ARP_RECEIPTS_MAIN AS
2: /* $Header: ARRECACB.pls 120.60.12010000.2 2008/11/04 09:05:33 dgaurab ship $ */
3:
4: /* =======================================================================
5: | Package Globals
162: p_ae_event_rec IN ae_event_rec_type,
163: p_ae_deleted OUT NOCOPY BOOLEAN ) IS
164: BEGIN
165: IF PG_DEBUG in ('Y', 'C') THEN
166: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Delete_Acct()+');
167: END IF;
168:
169: /*----------------------------------------------------+
170: | Copy Document/Event Data to Global |
189:
190: END IF;
191:
192: IF PG_DEBUG in ('Y', 'C') THEN
193: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Delete_Acct()-');
194: END IF;
195:
196: EXCEPTION
197: WHEN OTHERS THEN
195:
196: EXCEPTION
197: WHEN OTHERS THEN
198: IF PG_DEBUG in ('Y', 'C') THEN
199: arp_standard.debug( 'EXCEPTION: ARP_RECEIPTS_MAIN.Delete_Acct');
200: END IF;
201: RAISE;
202:
203: END Delete_Acct;
239:
240:
241: BEGIN
242: IF PG_DEBUG in ('Y', 'C') THEN
243: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Execute()+');
244: END IF;
245: /*------------------------------------------------------+
246: | Initialize Accounting Entry Header and Lines |
247: +------------------------------------------------------*/
292:
293: END IF;
294:
295: IF PG_DEBUG in ('Y', 'C') THEN
296: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Execute()-');
297: END IF;
298:
299: EXCEPTION
300: WHEN NO_DATA_FOUND THEN
298:
299: EXCEPTION
300: WHEN NO_DATA_FOUND THEN
301: IF PG_DEBUG in ('Y', 'C') THEN
302: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Execute - NO_DATA_FOUND' );
303: END IF;
304: RAISE;
305:
306: WHEN OTHERS THEN
304: RAISE;
305:
306: WHEN OTHERS THEN
307: IF PG_DEBUG in ('Y', 'C') THEN
308: arp_standard.debug( 'EXCEPTION: ARP_RECEIPTS_MAIN.Execute');
309: END IF;
310: RAISE;
311:
312: END Execute;
326:
327: BEGIN
328:
329: IF PG_DEBUG in ('Y', 'C') THEN
330: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Init_Ae_Lines()+');
331: END IF;
332:
333: g_ae_line_tbl := g_empty_ae_line_tbl;
334:
332:
333: g_ae_line_tbl := g_empty_ae_line_tbl;
334:
335: IF PG_DEBUG in ('Y', 'C') THEN
336: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Init_Ae_Lines()-');
337: END IF;
338: EXCEPTION
339:
340: WHEN OTHERS THEN
338: EXCEPTION
339:
340: WHEN OTHERS THEN
341: IF PG_DEBUG in ('Y', 'C') THEN
342: arp_standard.debug( 'EXCEPTION: ARP_RECEIPTS_MAIN.Init_Ae_Lines');
343: END IF;
344: RAISE;
345:
346: END Init_Ae_Lines;
365: IS
366:
367: BEGIN
368: IF PG_DEBUG in ('Y', 'C') THEN
369: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Derive_Accounting_Entry()+');
370: arp_standard.debug( ' p_from_llca_call : '||p_from_llca_call);
371: arp_standard.debug( ' p_gt_id : '||p_gt_id);
372: END IF;
373: /*------------------------------------------------------------+
421:
422: END IF; -- accounting_entity_level = ALL?
423:
424: IF PG_DEBUG in ('Y', 'C') THEN
425: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Derive_Accounting_Entry()-');
426: END IF;
427:
428: EXCEPTION
429: WHEN OTHERS THEN
427:
428: EXCEPTION
429: WHEN OTHERS THEN
430: IF PG_DEBUG in ('Y', 'C') THEN
431: arp_standard.debug( 'EXCEPTION: ARP_RECEIPTS_MAIN.Derive_Accounting_Entry');
432: END IF;
433: RAISE;
434: END Derive_Accounting_Entry;
435:
454: l_ar_dist_key_value_list gl_ca_utility_pkg.r_key_value_arr;
455:
456: BEGIN
457: IF PG_DEBUG in ('Y', 'C') THEN
458: arp_standard.debug('ARP_RECEIPTS_MAIN.Delete_RA()+');
459: END IF;
460:
461: /*-------------------------------------------------------------------+
462: | Verify that the source id is a valid candidate for deletion |
502: RETURNING line_id
503: BULK COLLECT INTO l_ar_dist_key_value_list;
504:
505: IF PG_DEBUG in ('Y', 'C') THEN
506: arp_standard.debug('ARP_RECEIPTS_MAIN.Delete_RA()-');
507: END IF;
508:
509: EXCEPTION
510: WHEN NO_DATA_FOUND THEN
508:
509: EXCEPTION
510: WHEN NO_DATA_FOUND THEN
511: IF PG_DEBUG in ('Y', 'C') THEN
512: arp_standard.debug('ARP_RECEIPTS_MAIN.Delete_RA - NO_DATA_FOUND' );
513: END IF;
514: p_ae_deleted := FALSE;
515: RAISE;
516:
515: RAISE;
516:
517: WHEN OTHERS THEN
518: IF PG_DEBUG in ('Y', 'C') THEN
519: arp_standard.debug('EXCEPTION: ARP_RECEIPTS_MAIN.Delete_RA - OTHERS');
520: END IF;
521: p_ae_deleted := FALSE;
522: RAISE ;
523:
554: l_ar_dist_key_value_list gl_ca_utility_pkg.r_key_value_arr;
555:
556: BEGIN
557: IF PG_DEBUG in ('Y', 'C') THEN
558: arp_standard.debug('ARP_RECEIPTS_MAIN.Delete_MCD()+');
559: END IF;
560:
561: p_ae_deleted := FALSE;
562: l_dummy := 'N';
580: FROM dual
581: WHERE l_dummy = 'Y';
582:
583: IF PG_DEBUG in ('Y', 'C') THEN
584: arp_standard.debug('ARP_RECEIPTS_MAIN.Delete_MCD()-');
585: END IF;
586:
587: EXCEPTION
588: WHEN NO_DATA_FOUND THEN
586:
587: EXCEPTION
588: WHEN NO_DATA_FOUND THEN
589: IF PG_DEBUG in ('Y', 'C') THEN
590: arp_standard.debug('ARP_RECEIPTS_MAIN.Delete_MCD - NO_DATA_FOUND' );
591: END IF;
592: p_ae_deleted := FALSE;
593: RAISE;
594:
593: RAISE;
594:
595: WHEN OTHERS THEN
596: IF PG_DEBUG in ('Y', 'C') THEN
597: arp_standard.debug('EXCEPTION: ARP_RECEIPTS_MAIN.Delete_MCD');
598: END IF;
599: p_ae_deleted := FALSE;
600: RAISE ;
601:
841: l_ctl_rem_amt ctl_rem_amt_type;
842: l_index NUMBER := 0;
843: --}
844: BEGIN
845: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Reverse_Receipt_CM()+');
846:
847: -- Check for upgrade_method
848: OPEN verif_trx_mark(g_ae_doc_rec.source_id_old);
849: FETCH verif_trx_mark INTO l_record_mark;
1192: END IF; --application type is CM
1193:
1194: END LOOP; -- reconciliation routine called for applications
1195:
1196: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Reverse_Receipt_CM()-');
1197:
1198: EXCEPTION
1199: WHEN NO_DATA_FOUND THEN
1200: arp_standard.debug('ARP_RECEIPTS_MAIN.Reverse_Receipt_CM - NO_DATA_FOUND' );
1196: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Reverse_Receipt_CM()-');
1197:
1198: EXCEPTION
1199: WHEN NO_DATA_FOUND THEN
1200: arp_standard.debug('ARP_RECEIPTS_MAIN.Reverse_Receipt_CM - NO_DATA_FOUND' );
1201: RAISE;
1202:
1203: WHEN OTHERS THEN
1204: arp_standard.debug('EXCEPTION: ARP_RECEIPTS_MAIN.Reverse_Receipt_CM:'||SQLERRM);
1200: arp_standard.debug('ARP_RECEIPTS_MAIN.Reverse_Receipt_CM - NO_DATA_FOUND' );
1201: RAISE;
1202:
1203: WHEN OTHERS THEN
1204: arp_standard.debug('EXCEPTION: ARP_RECEIPTS_MAIN.Reverse_Receipt_CM:'||SQLERRM);
1205: RAISE ;
1206:
1207: END Reverse_Receipt_CM;
1208:
1263: l_return_status VARCHAR2(10);
1264: BEGIN
1265:
1266: IF PG_DEBUG in ('Y', 'C') THEN
1267: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Get_Doc_Entitity_Data()+');
1268: END IF;
1269:
1270: IF p_level = 'RA' then
1271:
1686: p_vat_rec.tax_account_id := g_ae_doc_rec.gl_tax_acct; /* Bug fix 2300268 */
1687: END IF;
1688:
1689: IF PG_DEBUG in ('Y', 'C') THEN
1690: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Get_Doc_Entitity_Data()-');
1691: END IF;
1692:
1693: EXCEPTION
1694: WHEN ARP_ALLOCATION_PKG.flex_subs_ccid_error THEN
1692:
1693: EXCEPTION
1694: WHEN ARP_ALLOCATION_PKG.flex_subs_ccid_error THEN
1695: IF PG_DEBUG in ('Y', 'C') THEN
1696: arp_standard.debug('ARP_RECEIPTS_MAIN.Get_Doc_Entitity_Data - flex_subs_ccid_error');
1697: END IF;
1698: RAISE;
1699:
1700: WHEN NO_DATA_FOUND THEN
1698: RAISE;
1699:
1700: WHEN NO_DATA_FOUND THEN
1701: IF PG_DEBUG in ('Y', 'C') THEN
1702: arp_standard.debug('ARP_RECEIPTS_MAIN.Get_Doc_Entitity_Data - NO_DATA_FOUND' );
1703: END IF;
1704: RAISE;
1705:
1706: WHEN OTHERS THEN
1704: RAISE;
1705:
1706: WHEN OTHERS THEN
1707: IF PG_DEBUG in ('Y', 'C') THEN
1708: arp_standard.debug('EXCEPTION: ARP_RECEIPTS_MAIN.Get_Doc_Entitity_Data');
1709: END IF;
1710: RAISE ;
1711:
1712: END Get_Doc_Entitity_Data;
1735:
1736: BEGIN
1737:
1738: IF PG_DEBUG in ('Y', 'C') THEN
1739: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Act_Tax_Non_Rec_Ccid()+');
1740: END IF;
1741:
1742: /*--------------------------------------------------------+
1743: | Get non recoverable tax account for asset or liability |
1779: p_act_tax_non_rec_ccid := NULL;
1780: END IF;
1781:
1782: IF PG_DEBUG in ('Y', 'C') THEN
1783: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Act_Tax_Non_Rec_Ccid()+');
1784: END IF;
1785:
1786: EXCEPTION
1787: /*-------------------------------------------------------------------+
1789: | null exception for no data found for non recoverable account. |
1790: +-------------------------------------------------------------------*/
1791: WHEN NO_DATA_FOUND THEN
1792: IF PG_DEBUG in ('Y', 'C') THEN
1793: arp_standard.debug('EXCEPTION: ARP_RECEIPTS_MAIN.Act_Tax_Non_Rec_Ccid - NO_DATA_FOUND');
1794: END IF;
1795: null;
1796:
1797: WHEN OTHERS THEN
1795: null;
1796:
1797: WHEN OTHERS THEN
1798: IF PG_DEBUG in ('Y', 'C') THEN
1799: arp_standard.debug('EXCEPTION: ARP_RECEIPTS_MAIN.Act_Tax_Non_Rec_Ccid');
1800: END IF;
1801: RAISE ;
1802:
1803: END Act_Tax_Non_Rec_Ccid;
1836:
1837: BEGIN
1838:
1839: IF PG_DEBUG in ('Y', 'C') THEN
1840: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Create_Ae_Lines_Common()+');
1841: END IF;
1842:
1843: /*-------------------------------------------------------------+
1844: | Get Document Entitity specific data |
1905:
1906: END IF;
1907:
1908: IF PG_DEBUG in ('Y', 'C') THEN
1909: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Create_Ae_Lines_Common()-');
1910: END IF;
1911:
1912: EXCEPTION
1913: WHEN OTHERS THEN
1911:
1912: EXCEPTION
1913: WHEN OTHERS THEN
1914: IF PG_DEBUG in ('Y', 'C') THEN
1915: arp_standard.debug('EXCEPTION: ARP_RECEIPTS_MAIN.Create_Ae_Lines_Common');
1916: END IF;
1917: RAISE;
1918:
1919: END Create_Ae_Lines_Common;
1976: --}
1977:
1978: BEGIN
1979: IF PG_DEBUG in ('Y', 'C') THEN
1980: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Create_Ae_Lines_RA()+');
1981: END IF;
1982:
1983:
1984: /*-------------------------------------------------------------------+
2711:
2712: END IF; -- reconciliation routine called for applications only
2713:
2714: IF PG_DEBUG in ('Y', 'C') THEN
2715: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Create_Ae_Lines_RA()-');
2716: END IF;
2717:
2718: EXCEPTION
2719: WHEN ARP_ALLOCATION_PKG.invalid_allocation_base THEN
2717:
2718: EXCEPTION
2719: WHEN ARP_ALLOCATION_PKG.invalid_allocation_base THEN
2720: IF PG_DEBUG in ('Y', 'C') THEN
2721: arp_standard.debug('ARP_RECEIPTS_MAIN.Create_Ae_Lines_RA - invalid_rule_error');
2722: END IF;
2723: fnd_message.set_name('AR','AR_INVALID_ACTIVITY');
2724: RAISE;
2725:
2724: RAISE;
2725:
2726: WHEN NO_DATA_FOUND THEN
2727: IF PG_DEBUG in ('Y', 'C') THEN
2728: arp_standard.debug('ARP_RECEIPTS_MAIN.Create_Ae_Lines_RA - NO_DATA_FOUND' );
2729: END IF;
2730: RAISE;
2731:
2732: WHEN OTHERS THEN
2730: RAISE;
2731:
2732: WHEN OTHERS THEN
2733: IF PG_DEBUG in ('Y', 'C') THEN
2734: arp_standard.debug('EXCEPTION: ARP_RECEIPTS_MAIN.Create_Ae_Lines_RA');
2735: END IF;
2736: RAISE;
2737:
2738: END Create_Ae_Lines_RA;
2822: l_min_acct_unit NUMBER := 0;
2823: /* end of bug 2494858 */
2824: BEGIN
2825: IF PG_DEBUG in ('Y', 'C') THEN
2826: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Create_Ae_Lines_MCD()+');
2827: END IF;
2828:
2829: /* Added the next two statements for bug 2494858 */
2830: l_rounding_rule := arp_standard.sysparm.tax_rounding_rule;
3069:
3070: END IF;
3071:
3072: IF PG_DEBUG in ('Y', 'C') THEN
3073: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Create_Ae_Lines_MCD()-');
3074: END IF;
3075:
3076: EXCEPTION
3077:
3076: EXCEPTION
3077:
3078: WHEN NO_DATA_FOUND THEN
3079: IF PG_DEBUG in ('Y', 'C') THEN
3080: arp_standard.debug('ARP_RECEIPTS_MAIN.Create_Ae_Lines_MCD - NO_DATA_FOUND' );
3081: END IF;
3082: RAISE;
3083:
3084: WHEN OTHERS THEN
3082: RAISE;
3083:
3084: WHEN OTHERS THEN
3085: IF PG_DEBUG in ('Y', 'C') THEN
3086: arp_standard.debug('EXCEPTION: ARP_RECEIPTS_MAIN.Create_Ae_Lines_MCD');
3087: END IF;
3088: RAISE;
3089:
3090: END Create_Ae_Lines_MCD;
3118:
3119: BEGIN
3120: arp_global.init_global; --bug6024475
3121: IF PG_DEBUG in ('Y', 'C') THEN
3122: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Assign_Ael_Elements()+');
3123: END IF;
3124:
3125: /*------------------------------------------------------+
3126: | Call Hook to Override Account |
3229: g_ae_line_tbl(g_ae_line_ctr).from_acctd_amount_dr := p_ae_line_rec.from_acctd_amount_dr;
3230: g_ae_line_tbl(g_ae_line_ctr).from_acctd_amount_cr := p_ae_line_rec.from_acctd_amount_cr;
3231: --}
3232: IF PG_DEBUG in ('Y', 'C') THEN
3233: arp_standard.debug( 'ARP_RECEIPTS_MAIN.Assign_Ael_Elements()-');
3234: END IF;
3235:
3236: EXCEPTION
3237: /*bug 6024475 adds a new exception.*/
3236: EXCEPTION
3237: /*bug 6024475 adds a new exception.*/
3238: WHEN invalid_ccid_error THEN
3239: IF PG_DEBUG in ('Y', 'C') THEN
3240: arp_standard.debug('Invalid Account ccid - ARP_RECEIPTS_MAIN.Assign_Ael_Elements' );
3241: END IF;
3242: fnd_message.set_name('AR','AR_INVALID_ACCOUNT');
3243: RAISE;
3244: /* bug6024475 end*/
3243: RAISE;
3244: /* bug6024475 end*/
3245: WHEN OTHERS THEN
3246: IF PG_DEBUG in ('Y', 'C') THEN
3247: arp_standard.debug('EXCEPTION: ARP_RECEIPTS_MAIN.Assign_Ael_Elements');
3248: END IF;
3249: RAISE;
3250:
3251: END Assign_Ael_Elements;
3291: END;
3292: --}
3293:
3294:
3295: END ARP_RECEIPTS_MAIN;