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.61.12020000.9 2013/04/09 23:24:08 hvaladip 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 123: arp_util.debug('arp_etax_services_pkg.copy_inv_tax_dists()+');

119: l_rows NUMBER := 0;
120: BEGIN
121: IF PG_DEBUG in ('Y','C')
122: THEN
123: arp_util.debug('arp_etax_services_pkg.copy_inv_tax_dists()+');
124: END IF;
125:
126: /* Get base precision and minimum accountable unit */
127: base_min_acc_unit := arp_trx_global.system_info.base_min_acc_unit;

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

291:
292: IF PG_DEBUG in ('Y','C')
293: THEN
294: arp_util.debug(' tax dists inserted = ' || l_rows);
295: arp_util.debug('arp_etax_services_pkg.copy_inv_tax_dists()-');
296: END IF;
297: END copy_inv_tax_dists;
298:
299: /* Records tax accounting prior to deletion in global plsql tables.

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

349:
350: BEGIN
351: IF PG_DEBUG in ('Y','C')
352: THEN
353: arp_debug.debug('arp_etax_services_pkg.record_tax_accounts()+');
354: END IF;
355:
356: OPEN tax_line_and_dist(P_CUSTOMER_TRX_ID);
357: FETCH tax_line_and_dist BULK COLLECT INTO

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

391:
392: IF PG_DEBUG in ('Y','C')
393: THEN
394: arp_debug.debug(' distribution(s) recorded = ' || l_rows);
395: arp_debug.debug('arp_etax_services_pkg.record_tax_accounts()-');
396: END IF;
397: END record_tax_accounts;
398:
399: /* Uses tax account tables to bulk update ra_cust_trx_line_gl_dist with

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

404: l_rows NUMBER := 0;
405: BEGIN
406: IF PG_DEBUG in ('Y','C')
407: THEN
408: arp_debug.debug('arp_etax_services_pkg.replace_tax_accounts()+');
409:
410: /* Debug Code - start +/
411: -- this code dumps the cached accounting lines so we can
412: -- see what is happening during the caching process.

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

491:
492: IF PG_DEBUG in ('Y','C')
493: THEN
494: arp_debug.debug(' distribution(s) updated = ' || l_rows);
495: arp_debug.debug('arp_etax_services_pkg.replace_tax_accounts()-');
496: END IF;
497:
498: EXCEPTION
499: WHEN NO_DATA_FOUND THEN

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

539: l_event_type_code VARCHAR2(80);
540: l_success BOOLEAN;
541: l_rows NUMBER;
542: BEGIN
543: arp_util.debug('ARP_ETAX_SERVICES_PKG.Calculate(+)');
544: /* get event class code */
545: l_success := arp_etax_util.get_event_information(
546: p_customer_trx_id => p_customer_trx_id,
547: p_action => p_action,

Line 1377: arp_util_tax.debug( 'EXCEPTION: arp_etax_services_pkg.setting credit memo tax limit for over application');

1373: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.CTRL_TOTAL_HDR_TX_AMT(1) := NULL;
1374: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.CTRL_HDR_TX_APPL_FLAG(1) := 'N';
1375: END IF;
1376: WHEN OTHERS THEN
1377: arp_util_tax.debug( 'EXCEPTION: arp_etax_services_pkg.setting credit memo tax limit for over application');
1378: RAISE;
1379: END;
1380: END IF; -- l_allow_overapp = 'Y
1381: ELSE

Line 1396: arp_etax_services_pkg.print_ebt_plsql_vars;

1392: /** Following is for tax only CMs **/
1393: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.CTRL_TOTAL_LINE_TX_AMT(1) := p_tax_amount;
1394:
1395: IF PG_DEBUG in ('Y','C') THEN
1396: arp_etax_services_pkg.print_ebt_plsql_vars;
1397: arp_util.debug('populate_ebt_plsql_tables(-)');
1398: END IF;
1399: END populate_ebt_plsql_tables;
1400:

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

1451: l_warehouse_flag_changed BOOLEAN;
1452: l_ship_to_changed BOOLEAN;
1453:
1454: BEGIN
1455: arp_util.debug('ARP_ETAX_SERVICES_PKG.set_line_flags()+');
1456: arp_util.debug('p_cust_trx_line_id = ' || to_char(p_customer_trx_line_id));
1457:
1458: /*-----------------------------------------+
1459: | Fetch the old record from the database |

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

1611: p_ship_to_changed := l_ship_to_changed;
1612:
1613: pg_extended_amount_changed := l_extended_amount_changed;
1614:
1615: arp_util.debug('ARP_ETAX_SERVICES_PKG.set_line_flags()-');
1616:
1617: END set_line_flags;
1618:
1619: /*===========================================================================+

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

1649: AND line_type = 'TAX';
1650:
1651: BEGIN
1652:
1653: arp_util.debug('ARP_ETAX_SERVICES_PKG.delete_tax_f_ctl_id()+');
1654:
1655: FOR tax in s_tax_lines_for_inv_line( p_customer_trx_line_id )
1656: LOOP
1657:

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

1673: arp_ctl_pkg.delete_p( tax.customer_trx_line_id );
1674:
1675:
1676: END LOOP;
1677: arp_util.debug('ARP_ETAX_SERVICES_PKG.delete_tax_f_ctl_id()-');
1678:
1679: EXCEPTION
1680: WHEN OTHERS
1681: THEN

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

1679: EXCEPTION
1680: WHEN OTHERS
1681: THEN
1682: IF PG_DEBUG = 'Y' THEN
1683: arp_util_tax.debug( 'EXCEPTION: arp_etax_services_pkg.delete_tax_f_ctl_id()');
1684: END IF;
1685: RAISE;
1686:
1687: END delete_tax_f_ctl_id;

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

1727: l_ship_to_changed BOOLEAN;
1728: l_trx_id NUMBER;
1729:
1730: BEGIN
1731: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_update_line()+');
1732: arp_util.debug('customer_trx_line_id = ' || to_char(p_customer_trx_line_id));
1733:
1734: arp_etax_services_pkg.set_line_flags(
1735: p_customer_trx_line_id,

Line 1734: arp_etax_services_pkg.set_line_flags(

1730: BEGIN
1731: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_update_line()+');
1732: arp_util.debug('customer_trx_line_id = ' || to_char(p_customer_trx_line_id));
1733:
1734: arp_etax_services_pkg.set_line_flags(
1735: p_customer_trx_line_id,
1736: p_line_rec,
1737: l_inventory_item_changed,
1738: l_memo_line_changed,

Line 1761: arp_etax_services_pkg.delete_tax_f_ctl_id (p_customer_trx_line_id);

1757: l_ship_to_changed;
1758:
1759: IF (pg_line_changed) THEN
1760: -- need to delete tax lines and distributions associated with the line_id
1761: arp_etax_services_pkg.delete_tax_f_ctl_id (p_customer_trx_line_id);
1762: END IF;
1763:
1764: p_recalc_tax := pg_line_changed;
1765:

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

1762: END IF;
1763:
1764: p_recalc_tax := pg_line_changed;
1765:
1766: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_update_line()-');
1767:
1768: END before_update_line;
1769:
1770: /*=============================================================================

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

1810: l_return_status BOOLEAN := TRUE;
1811: l_success BOOLEAN;
1812: BEGIN
1813:
1814: arp_util.debug('ARP_ETAX_SERVICES_PKG.Mark_Tax_Lines_Deleted()+');
1815:
1816: -- populate the trx header local record.
1817: BEGIN
1818: OPEN Trx_Header;

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

1861: ELSE
1862: RETURN FALSE;
1863: END IF;
1864:
1865: arp_util.debug('ARP_ETAX_SERVICES_PKG.Mark_Tax_Lines_Deleted()-');
1866: RETURN l_return_status;
1867:
1868: EXCEPTION
1869: WHEN OTHERS THEN

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

1892: p_customer_trx_id IN Number) IS
1893: l_success BOOLEAN;
1894: BEGIN
1895:
1896: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_delete_line()+');
1897:
1898: -- delete tax line from ra_customer_Trx_lines and associated accting.
1899:
1900: arp_etax_services_pkg.delete_tax_f_ctl_id(

Line 1900: arp_etax_services_pkg.delete_tax_f_ctl_id(

1896: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_delete_line()+');
1897:
1898: -- delete tax line from ra_customer_Trx_lines and associated accting.
1899:
1900: arp_etax_services_pkg.delete_tax_f_ctl_id(
1901: p_customer_trx_line_id => p_customer_trx_line_id);
1902:
1903: l_success := arp_etax_services_pkg.Mark_Tax_Lines_Deleted (
1904: p_customer_trx_line_id => p_customer_trx_line_id,

Line 1903: l_success := arp_etax_services_pkg.Mark_Tax_Lines_Deleted (

1899:
1900: arp_etax_services_pkg.delete_tax_f_ctl_id(
1901: p_customer_trx_line_id => p_customer_trx_line_id);
1902:
1903: l_success := arp_etax_services_pkg.Mark_Tax_Lines_Deleted (
1904: p_customer_trx_line_id => p_customer_trx_line_id,
1905: p_customer_trx_id => p_customer_trx_id);
1906:
1907: IF (not l_success) THEN

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

1907: IF (not l_success) THEN
1908: arp_util.debug('unable to mark tax for deletion');
1909: END IF;
1910:
1911: arp_util.debug('ARP_ETAX_SERVICES_PKG.before_delete_line()-');
1912:
1913: END Before_Delete_Line;
1914:
1915:

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

2168: l_tax_amount NUMBER;
2169:
2170: BEGIN
2171:
2172: arp_util.debug('ARP_ETAX_SERVICES_PKG.Line_det_factors()+');
2173:
2174: IF (p_mode IN ('INSERT','INSERT_NO_TAX','INSERT_NO_TAX_EVER',
2175: 'INSERT_NO_LINE')) THEN
2176: l_action := 'CREATE';

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

2293: END IF;
2294: ELSE
2295: arp_util.debug('ERROR getting EVENT INFORMATION');
2296: END IF;
2297: arp_util.debug('ARP_ETAX_SERVICES_PKG.Line_det_factors()-');
2298:
2299: END line_det_factors;
2300:
2301: /*=============================================================================

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

2331: l_event_class_code zx_trx_headers_gt.event_class_code%TYPE;
2332: l_event_type_code zx_trx_headers_gt.event_type_code%TYPE;
2333: l_llst_exists NUMBER := 0; -- 4713671
2334: BEGIN
2335: arp_util.debug('arp_etax_services_pkg.Header_det_factors(+)');
2336:
2337: /* Initializing return status ..*/
2338: x_return_status := FND_API.G_RET_STS_SUCCESS;
2339:

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

2621: p_hdr_det_factors_rec => l_hdr_det_factors_rec
2622: );
2623:
2624: END IF;
2625: arp_util.debug('arp_etax_services_pkg.Header_det_factors(-)');
2626:
2627: END Header_det_factors;
2628:
2629: /*=============================================================================

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

2676: l_account_set_flag VARCHAR2(1);
2677: l_rtn NUMBER;
2678: l_xla_ev_rec ARP_XLA_EVENTS.XLA_EVENTS_TYPE;
2679: BEGIN
2680: arp_util.debug('ARP_ETAX_SERVICES_PKG.Calculate_tax(+)');
2681: arp_util.debug('p_action = ' || p_action);
2682:
2683: /* initializing precision, mau, hdr level rdn */
2684: pg_base_precision := arp_trx_global.system_info.base_precision;

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

2862: pg_trx_header_level_rounding ,
2863: 'N',
2864: 'N') = 0 -- FALSE
2865: THEN
2866: arp_util.debug('EXCEPTION: arp_etax_services_pkg.calculate_tax()');
2867: arp_util.debug(l_error_message);
2868: fnd_message.set_name('AR', 'AR_ROUNDING_ERROR');
2869: fnd_message.set_token('ROUTINE','ARP_ETAX_SERVICES_PKG.CALCULATE_TAX');
2870: APP_EXCEPTION.raise_exception;

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

2865: THEN
2866: arp_util.debug('EXCEPTION: arp_etax_services_pkg.calculate_tax()');
2867: arp_util.debug(l_error_message);
2868: fnd_message.set_name('AR', 'AR_ROUNDING_ERROR');
2869: fnd_message.set_token('ROUTINE','ARP_ETAX_SERVICES_PKG.CALCULATE_TAX');
2870: APP_EXCEPTION.raise_exception;
2871: END IF;
2872: /* end 5211848 */
2873: END IF; -- l_rows

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

2877: ELSE
2878: arp_standard.debug('could not get an event class code');
2879: END IF;
2880:
2881: arp_util.debug('ARP_ETAX_SERVICES_PKG.Calculate_tax(-)');
2882: END Calculate_tax;
2883:
2884: /*=============================================================================
2885: | FUNCTION - Get_Tax_Action()

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

2903: l_action VARCHAR2(12);
2904:
2905: BEGIN
2906:
2907: arp_util.debug('ARP_ETAX_SERVICES_PKG.Get_Tax_Action(+)');
2908:
2909: select count(customer_trx_id)
2910: INTO l_count
2911: FROM ra_customer_trx_lines

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

2917: ELSE
2918: l_action := 'UPDATE';
2919: END IF;
2920:
2921: arp_util.debug('ARP_ETAX_SERVICES_PKG.Get_Tax_Action(-)');
2922:
2923: return l_action;
2924:
2925: END Get_Tax_Action;

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

2966: pg_base_min_acc_unit fnd_currencies.minimum_accountable_unit%type;
2967: pg_trx_header_level_rounding ar_system_parameters.trx_header_level_rounding%type;
2968:
2969: BEGIN
2970: arp_util.debug('ARP_ETAX_SERVICES_PKG.Override_Tax_Lines(+)');
2971:
2972: /* Bug 8220233: Initializing precision, mau, hdr level rounding */
2973: pg_base_precision := arp_trx_global.system_info.base_precision;
2974: pg_base_min_acc_unit := arp_trx_global.system_info.base_min_acc_unit;

Line 3104: arp_util.debug('EXCEPTION: arp_etax_services_pkg.Override_Tax_Lines()');

3100: pg_trx_header_level_rounding ,
3101: 'N',
3102: 'N') = 0 -- FALSE
3103: THEN
3104: arp_util.debug('EXCEPTION: arp_etax_services_pkg.Override_Tax_Lines()');
3105: arp_util.debug(l_error_message);
3106: fnd_message.set_name('AR', 'AR_ROUNDING_ERROR');
3107: fnd_message.set_token('ROUTINE','ARP_ETAX_SERVICES_PKG.OVERRIDE_TAX_LINES');
3108: APP_EXCEPTION.raise_exception;

Line 3107: fnd_message.set_token('ROUTINE','ARP_ETAX_SERVICES_PKG.OVERRIDE_TAX_LINES');

3103: THEN
3104: arp_util.debug('EXCEPTION: arp_etax_services_pkg.Override_Tax_Lines()');
3105: arp_util.debug(l_error_message);
3106: fnd_message.set_name('AR', 'AR_ROUNDING_ERROR');
3107: fnd_message.set_token('ROUTINE','ARP_ETAX_SERVICES_PKG.OVERRIDE_TAX_LINES');
3108: APP_EXCEPTION.raise_exception;
3109: END IF;
3110:
3111: /* End Bug 8220233 */

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

3113: END IF; -- l_rows
3114: END IF;
3115:
3116: END IF; -- if event codes were derived.
3117: arp_util.debug('ARP_ETAX_SERVICES_PKG.Override_Tax_Lines(-)');
3118: END Override_Tax_Lines;
3119:
3120: /*=============================================================================
3121: | FUNCTION - is_trx_completed()

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

3143: l_update boolean;
3144: l_complete_flag varchar2(1);
3145: BEGIN
3146:
3147: arp_util.debug('ARP_ETAX_SERVICES_PKG.is_tax_update_allowed()+');
3148:
3149: SELECT complete_flag
3150: INTO l_complete_flag
3151: FROM ra_customer_trx

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

3160: /* trx is incomplete, changes are allowed */
3161: l_update := TRUE;
3162: END IF;
3163:
3164: arp_util.debug('ARP_ETAX_SERVICES_PKG.is_tax_update_allowed()-');
3165:
3166: return l_update;
3167:
3168: END is_tax_update_allowed;

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

3218:
3219: BEGIN
3220: IF PG_DEBUG in ('Y', 'C')
3221: THEN
3222: arp_debug.debug('arp_etax_services_pkg.validate_for_tax()+');
3223: END IF;
3224:
3225: /* Set l_trx_rec values before call to API */
3226: select t.customer_trx_id,

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

3379:
3380: IF PG_DEBUG in ('Y', 'C')
3381: THEN
3382: arp_debug.debug(' validation_status = ' || l_validation_status);
3383: arp_debug.debug('arp_etax_services_pkg.validate_for_tax()-');
3384: END IF;
3385:
3386: END validate_for_tax;
3387:

Line 3428: arp_debug.debug('arp_etax_services_pkg.update_exchange_info (+)');

3424:
3425: BEGIN
3426:
3427: IF PG_DEBUG in ('Y','C') THEN
3428: arp_debug.debug('arp_etax_services_pkg.update_exchange_info (+)');
3429: END IF;
3430:
3431: l_success := arp_etax_util.get_event_information(
3432: p_customer_trx_id => p_customer_trx_id,

Line 3510: arp_debug.debug('arp_etax_services_pkg.update_exchange_info (-)');

3506: END IF;
3507: END IF; -- END IF for l_success
3508:
3509: IF PG_DEBUG in ('Y','C') THEN
3510: arp_debug.debug('arp_etax_services_pkg.update_exchange_info (-)');
3511: END IF;
3512:
3513: END update_exchange_info;
3514:

Line 3515: END ARP_ETAX_SERVICES_PKG;

3511: END IF;
3512:
3513: END update_exchange_info;
3514:
3515: END ARP_ETAX_SERVICES_PKG;