DBA Data[Home] [Help]

APPS.ARP_ETAX_SERVICES_PKG dependencies on ARP_ETAX_SERVICES_PKG

Line 1: PACKAGE BODY ARP_ETAX_SERVICES_PKG AS

1: PACKAGE BODY ARP_ETAX_SERVICES_PKG AS
2: /* $Header: AREBTSRB.pls 120.37.12010000.3 2008/11/13 20:15:18 mraymond ship $ */
3:
4:
5: /*=======================================================================+

Line 8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ARP_ETAX_SERVICES_PKG';

4:
5: /*=======================================================================+
6: | Package Globals
7: +=======================================================================*/
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ARP_ETAX_SERVICES_PKG';
9:
10: -- for Manual tax lines, store the line information that the user overrides:
11: pg_extended_amount_changed BOOLEAN := FALSE;
12: pg_new_line_rec ra_customer_trx_lines%rowtype;

Line 96: arp_util.debug('arp_etax_services_pkg.copy_inv_tax_dists()+');

92: l_rows NUMBER := 0;
93: BEGIN
94: IF PG_DEBUG in ('Y','C')
95: THEN
96: arp_util.debug('arp_etax_services_pkg.copy_inv_tax_dists()+');
97: END IF;
98:
99: /* Get base precision and minimum accountable unit */
100: base_min_acc_unit := arp_trx_global.system_info.base_min_acc_unit;

Line 268: arp_util.debug('arp_etax_services_pkg.copy_inv_tax_dists()-');

264:
265: IF PG_DEBUG in ('Y','C')
266: THEN
267: arp_util.debug(' tax dists inserted = ' || l_rows);
268: arp_util.debug('arp_etax_services_pkg.copy_inv_tax_dists()-');
269: END IF;
270: END copy_inv_tax_dists;
271:
272: /* Records tax accounting prior to deletion in global plsql tables.

Line 306: arp_debug.debug('arp_etax_services_pkg.record_tax_accounts()+');

302:
303: BEGIN
304: IF PG_DEBUG in ('Y','C')
305: THEN
306: arp_debug.debug('arp_etax_services_pkg.record_tax_accounts()+');
307: END IF;
308:
309: OPEN tax_line_and_dist(P_CUSTOMER_TRX_ID);
310: FETCH tax_line_and_dist BULK COLLECT INTO

Line 331: arp_debug.debug('arp_etax_services_pkg.record_tax_accounts()-');

327:
328: IF PG_DEBUG in ('Y','C')
329: THEN
330: arp_debug.debug(' distribution(s) recorded = ' || l_rows);
331: arp_debug.debug('arp_etax_services_pkg.record_tax_accounts()-');
332: END IF;
333: END record_tax_accounts;
334:
335: /* Uses tax account tables to bulk update ra_cust_trx_line_gl_dist with

Line 344: arp_debug.debug('arp_etax_services_pkg.replace_tax_accounts()+');

340: l_rows NUMBER := 0;
341: BEGIN
342: IF PG_DEBUG in ('Y','C')
343: THEN
344: arp_debug.debug('arp_etax_services_pkg.replace_tax_accounts()+');
345:
346: /* Debug Code - start +/
347: -- this code dumps the cached accounting lines so we can
348: -- see what is happening during the caching process.

Line 407: arp_debug.debug('arp_etax_services_pkg.replace_tax_accounts()-');

403:
404: IF PG_DEBUG in ('Y','C')
405: THEN
406: arp_debug.debug(' distribution(s) updated = ' || l_rows);
407: arp_debug.debug('arp_etax_services_pkg.replace_tax_accounts()-');
408: END IF;
409:
410: EXCEPTION
411: WHEN NO_DATA_FOUND THEN

Line 455: arp_util.debug('ARP_ETAX_SERVICES_PKG.Calculate(+)');

451: l_event_type_code VARCHAR2(80);
452: l_success BOOLEAN;
453: l_rows NUMBER;
454: BEGIN
455: arp_util.debug('ARP_ETAX_SERVICES_PKG.Calculate(+)');
456: /* get event class code */
457: l_success := arp_etax_util.get_event_information(
458: p_customer_trx_id => p_customer_trx_id,
459: p_action => p_action,

Line 1162: arp_etax_services_pkg.print_ebt_plsql_vars;

1158: /** Following is for tax only CMs **/
1159: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.CTRL_TOTAL_LINE_TX_AMT(1) := p_tax_amount;
1160:
1161: IF PG_DEBUG in ('Y','C') THEN
1162: arp_etax_services_pkg.print_ebt_plsql_vars;
1163: arp_util.debug('populate_ebt_plsql_tables(-)');
1164: END IF;
1165: END populate_ebt_plsql_tables;
1166:

Line 1221: arp_util.debug('ARP_ETAX_SERVICES_PKG.set_line_flags()+');

1217: l_warehouse_flag_changed BOOLEAN;
1218: l_ship_to_changed BOOLEAN;
1219:
1220: BEGIN
1221: arp_util.debug('ARP_ETAX_SERVICES_PKG.set_line_flags()+');
1222: arp_util.debug('p_cust_trx_line_id = ' || to_char(p_customer_trx_line_id));
1223:
1224: /*-----------------------------------------+
1225: | Fetch the old record from the database |

Line 1381: arp_util.debug('ARP_ETAX_SERVICES_PKG.set_line_flags()-');

1377: p_ship_to_changed := l_ship_to_changed;
1378:
1379: pg_extended_amount_changed := l_extended_amount_changed;
1380:
1381: arp_util.debug('ARP_ETAX_SERVICES_PKG.set_line_flags()-');
1382:
1383: END set_line_flags;
1384:
1385: /*===========================================================================+

Line 1419: arp_util.debug('ARP_ETAX_SERVICES_PKG.delete_tax_f_ctl_id()+');

1415: AND line_type = 'TAX';
1416:
1417: BEGIN
1418:
1419: arp_util.debug('ARP_ETAX_SERVICES_PKG.delete_tax_f_ctl_id()+');
1420:
1421: FOR tax in s_tax_lines_for_inv_line( p_customer_trx_line_id )
1422: LOOP
1423:

Line 1443: arp_util.debug('ARP_ETAX_SERVICES_PKG.delete_tax_f_ctl_id()-');

1439: arp_ctl_pkg.delete_p( tax.customer_trx_line_id );
1440:
1441:
1442: END LOOP;
1443: arp_util.debug('ARP_ETAX_SERVICES_PKG.delete_tax_f_ctl_id()-');
1444:
1445: EXCEPTION
1446: WHEN OTHERS
1447: THEN

Line 1449: arp_util_tax.debug( 'EXCEPTION: arp_etax_services_pkg.delete_tax_f_ctl_id()');

1445: EXCEPTION
1446: WHEN OTHERS
1447: THEN
1448: IF PG_DEBUG = 'Y' THEN
1449: arp_util_tax.debug( 'EXCEPTION: arp_etax_services_pkg.delete_tax_f_ctl_id()');
1450: END IF;
1451: RAISE;
1452:
1453: END delete_tax_f_ctl_id;

Line 1497: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_update_line()+');

1493: l_ship_to_changed BOOLEAN;
1494: l_trx_id NUMBER;
1495:
1496: BEGIN
1497: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_update_line()+');
1498: arp_util.debug('customer_trx_line_id = ' || to_char(p_customer_trx_line_id));
1499:
1500: arp_etax_services_pkg.set_line_flags(
1501: p_customer_trx_line_id,

Line 1500: arp_etax_services_pkg.set_line_flags(

1496: BEGIN
1497: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_update_line()+');
1498: arp_util.debug('customer_trx_line_id = ' || to_char(p_customer_trx_line_id));
1499:
1500: arp_etax_services_pkg.set_line_flags(
1501: p_customer_trx_line_id,
1502: p_line_rec,
1503: l_inventory_item_changed,
1504: l_memo_line_changed,

Line 1527: arp_etax_services_pkg.delete_tax_f_ctl_id (p_customer_trx_line_id);

1523: l_ship_to_changed;
1524:
1525: IF (pg_line_changed) THEN
1526: -- need to delete tax lines and distributions associated with the line_id
1527: arp_etax_services_pkg.delete_tax_f_ctl_id (p_customer_trx_line_id);
1528: END IF;
1529:
1530: p_recalc_tax := pg_line_changed;
1531:

Line 1532: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_update_line()-');

1528: END IF;
1529:
1530: p_recalc_tax := pg_line_changed;
1531:
1532: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_update_line()-');
1533:
1534: END before_update_line;
1535:
1536: /*=============================================================================

Line 1580: arp_util.debug('ARP_ETAX_SERVICES_PKG.Mark_Tax_Lines_Deleted()+');

1576: l_return_status BOOLEAN := TRUE;
1577: l_success BOOLEAN;
1578: BEGIN
1579:
1580: arp_util.debug('ARP_ETAX_SERVICES_PKG.Mark_Tax_Lines_Deleted()+');
1581:
1582: -- populate the trx header local record.
1583: BEGIN
1584: OPEN Trx_Header;

Line 1631: arp_util.debug('ARP_ETAX_SERVICES_PKG.Mark_Tax_Lines_Deleted()-');

1627: ELSE
1628: RETURN FALSE;
1629: END IF;
1630:
1631: arp_util.debug('ARP_ETAX_SERVICES_PKG.Mark_Tax_Lines_Deleted()-');
1632: RETURN l_return_status;
1633:
1634: EXCEPTION
1635: WHEN OTHERS THEN

Line 1662: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_delete_line()+');

1658: p_customer_trx_id IN Number) IS
1659: l_success BOOLEAN;
1660: BEGIN
1661:
1662: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_delete_line()+');
1663:
1664: -- delete tax line from ra_customer_Trx_lines and associated accting.
1665:
1666: arp_etax_services_pkg.delete_tax_f_ctl_id(

Line 1666: arp_etax_services_pkg.delete_tax_f_ctl_id(

1662: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_delete_line()+');
1663:
1664: -- delete tax line from ra_customer_Trx_lines and associated accting.
1665:
1666: arp_etax_services_pkg.delete_tax_f_ctl_id(
1667: p_customer_trx_line_id => p_customer_trx_line_id);
1668:
1669: l_success := arp_etax_services_pkg.Mark_Tax_Lines_Deleted (
1670: p_customer_trx_line_id => p_customer_trx_line_id,

Line 1669: l_success := arp_etax_services_pkg.Mark_Tax_Lines_Deleted (

1665:
1666: arp_etax_services_pkg.delete_tax_f_ctl_id(
1667: p_customer_trx_line_id => p_customer_trx_line_id);
1668:
1669: l_success := arp_etax_services_pkg.Mark_Tax_Lines_Deleted (
1670: p_customer_trx_line_id => p_customer_trx_line_id,
1671: p_customer_trx_id => p_customer_trx_id);
1672:
1673: IF (not l_success) THEN

Line 1677: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_delete_line()-');

1673: IF (not l_success) THEN
1674: arp_util.debug('unable to mark tax for deletion');
1675: END IF;
1676:
1677: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_delete_line()-');
1678:
1679: END Before_Delete_Line;
1680:
1681:

Line 1936: arp_util.debug('ARP_ETAX_SERVICES_PKG.Line_det_factors()+');

1932: l_tax_amount NUMBER;
1933:
1934: BEGIN
1935:
1936: arp_util.debug('ARP_ETAX_SERVICES_PKG.Line_det_factors()+');
1937:
1938: IF (p_mode IN ('INSERT','INSERT_NO_TAX','INSERT_NO_TAX_EVER',
1939: 'INSERT_NO_LINE')) THEN
1940: l_action := 'CREATE';

Line 2052: arp_util.debug('ARP_ETAX_SERVICES_PKG.Line_det_factors()-');

2048: END IF;
2049: ELSE
2050: arp_util.debug('ERROR getting EVENT INFORMATION');
2051: END IF;
2052: arp_util.debug('ARP_ETAX_SERVICES_PKG.Line_det_factors()-');
2053:
2054: END line_det_factors;
2055:
2056: /*=============================================================================

Line 2090: arp_util.debug('arp_etax_services_pkg.Header_det_factors(+)');

2086: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
2087: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
2088: l_llst_exists NUMBER := 0; -- 4713671
2089: BEGIN
2090: arp_util.debug('arp_etax_services_pkg.Header_det_factors(+)');
2091:
2092: /* Initializing return status ..*/
2093: x_return_status := FND_API.G_RET_STS_SUCCESS;
2094:

Line 2376: arp_util.debug('arp_etax_services_pkg.Header_det_factors(-)');

2372: p_hdr_det_factors_rec => l_hdr_det_factors_rec
2373: );
2374:
2375: END IF;
2376: arp_util.debug('arp_etax_services_pkg.Header_det_factors(-)');
2377:
2378: END Header_det_factors;
2379:
2380: /*=============================================================================

Line 2431: arp_util.debug('ARP_ETAX_SERVICES_PKG.Calculate_tax(+)');

2427: l_account_set_flag VARCHAR2(1);
2428: l_rtn NUMBER;
2429: l_xla_ev_rec ARP_XLA_EVENTS.XLA_EVENTS_TYPE;
2430: BEGIN
2431: arp_util.debug('ARP_ETAX_SERVICES_PKG.Calculate_tax(+)');
2432: arp_util.debug('p_action = ' || p_action);
2433:
2434: /* initializing precision, mau, hdr level rdn */
2435: pg_base_precision := arp_trx_global.system_info.base_precision;

Line 2617: arp_util.debug('EXCEPTION: arp_etax_services_pkg.calculate_tax()');

2613: pg_trx_header_level_rounding ,
2614: 'N',
2615: 'N') = 0 -- FALSE
2616: THEN
2617: arp_util.debug('EXCEPTION: arp_etax_services_pkg.calculate_tax()');
2618: arp_util.debug(l_error_message);
2619: fnd_message.set_name('AR', 'AR_ROUNDING_ERROR');
2620: fnd_message.set_token('ROUTINE','ARP_ETAX_SERVICES_PKG.CALCULATE_TAX');
2621: APP_EXCEPTION.raise_exception;

Line 2620: fnd_message.set_token('ROUTINE','ARP_ETAX_SERVICES_PKG.CALCULATE_TAX');

2616: THEN
2617: arp_util.debug('EXCEPTION: arp_etax_services_pkg.calculate_tax()');
2618: arp_util.debug(l_error_message);
2619: fnd_message.set_name('AR', 'AR_ROUNDING_ERROR');
2620: fnd_message.set_token('ROUTINE','ARP_ETAX_SERVICES_PKG.CALCULATE_TAX');
2621: APP_EXCEPTION.raise_exception;
2622: END IF;
2623: /* end 5211848 */
2624: END IF; -- l_rows

Line 2632: arp_util.debug('ARP_ETAX_SERVICES_PKG.Calculate_tax(-)');

2628: ELSE
2629: arp_standard.debug('could not get an event class code');
2630: END IF;
2631:
2632: arp_util.debug('ARP_ETAX_SERVICES_PKG.Calculate_tax(-)');
2633: END Calculate_tax;
2634:
2635: /*=============================================================================
2636: | FUNCTION - Get_Tax_Action()

Line 2658: arp_util.debug('ARP_ETAX_SERVICES_PKG.Get_Tax_Action(+)');

2654: l_action VARCHAR2(12);
2655:
2656: BEGIN
2657:
2658: arp_util.debug('ARP_ETAX_SERVICES_PKG.Get_Tax_Action(+)');
2659:
2660: select count(customer_trx_id)
2661: INTO l_count
2662: FROM ra_customer_trx_lines

Line 2672: arp_util.debug('ARP_ETAX_SERVICES_PKG.Get_Tax_Action(-)');

2668: ELSE
2669: l_action := 'UPDATE';
2670: END IF;
2671:
2672: arp_util.debug('ARP_ETAX_SERVICES_PKG.Get_Tax_Action(-)');
2673:
2674: return l_action;
2675:
2676: END Get_Tax_Action;

Line 2713: arp_util.debug('ARP_ETAX_SERVICES_PKG.Override_Tax_Lines(+)');

2709: l_num_failed_dist_rows NUMBER;
2710: l_msg_data VARCHAR2(4000);
2711: l_rows NUMBER;
2712: BEGIN
2713: arp_util.debug('ARP_ETAX_SERVICES_PKG.Override_Tax_Lines(+)');
2714:
2715: /* Initializing return status ..*/
2716: x_return_status := FND_API.G_RET_STS_SUCCESS;
2717:

Line 2804: arp_util.debug('ARP_ETAX_SERVICES_PKG.Override_Tax_Lines(-)');

2800: END IF; -- l_rows
2801: END IF;
2802:
2803: END IF; -- if event codes were derived.
2804: arp_util.debug('ARP_ETAX_SERVICES_PKG.Override_Tax_Lines(-)');
2805: END Override_Tax_Lines;
2806:
2807: /*=============================================================================
2808: | FUNCTION - is_trx_completed()

Line 2834: arp_util.debug('ARP_ETAX_SERVICES_PKG.is_tax_update_allowed()+');

2830: l_update boolean;
2831: l_complete_flag varchar2(1);
2832: BEGIN
2833:
2834: arp_util.debug('ARP_ETAX_SERVICES_PKG.is_tax_update_allowed()+');
2835:
2836: SELECT complete_flag
2837: INTO l_complete_flag
2838: FROM ra_customer_trx

Line 2851: arp_util.debug('ARP_ETAX_SERVICES_PKG.is_tax_update_allowed()-');

2847: /* trx is incomplete, changes are allowed */
2848: l_update := TRUE;
2849: END IF;
2850:
2851: arp_util.debug('ARP_ETAX_SERVICES_PKG.is_tax_update_allowed()-');
2852:
2853: return l_update;
2854:
2855: END is_tax_update_allowed;

Line 2907: arp_debug.debug('arp_etax_services_pkg.validate_for_tax()+');

2903:
2904: BEGIN
2905: IF PG_DEBUG in ('Y', 'C')
2906: THEN
2907: arp_debug.debug('arp_etax_services_pkg.validate_for_tax()+');
2908: END IF;
2909:
2910: /* Set l_trx_rec values before call to API */
2911: select t.customer_trx_id,

Line 3019: arp_debug.debug('arp_etax_services_pkg.validate_for_tax()-');

3015:
3016: IF PG_DEBUG in ('Y', 'C')
3017: THEN
3018: arp_debug.debug(' validation_status = ' || l_validation_status);
3019: arp_debug.debug('arp_etax_services_pkg.validate_for_tax()-');
3020: END IF;
3021:
3022: END validate_for_tax;
3023:

Line 3024: END ARP_ETAX_SERVICES_PKG;

3020: END IF;
3021:
3022: END validate_for_tax;
3023:
3024: END ARP_ETAX_SERVICES_PKG;