[Home] [Help]
1: PACKAGE BODY AP_ETAX_UTILITY_PKG AS
2: /* $Header: apetxutb.pls 120.102.12010000.16 2008/12/12 01:03:27 hchaudha ship $*/
3: -- Create global variables to maintain the session info
4: l_user_id ap_invoices_all.created_by%TYPE := FND_GLOBAL.user_id;
5: l_login_id ap_invoices_all.last_update_login%TYPE := FND_GLOBAL.login_id;
6: l_sysdate DATE := sysdate;
7:
8: Global_Exception EXCEPTION; -- bug 7126676
9:
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_ETAX_UTILITY_PKG';
11: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
12: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
13: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
14: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
22: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
23: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
24: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
25: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
26: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'AP.PLSQL.AP_ETAX_UTILITY_PKG.';
27:
28: -- This record type is used for ap_invoice_distributions_all and ap_self_assessed_tax_dist_all
29:
30: TYPE r_ins_tax_dist_info IS RECORD (
168: l_return_var BOOLEAN := TRUE;
169:
170: BEGIN
171:
172: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Event_Class_Code<-' ||
173: P_calling_sequence;
174:
175: -- The following invoice types are not included to get an event class due to:
176: -- AWT and INTEREST: Withholding Tax and Interest invoices do not require
281: l_action_section VARCHAR2(500);
282:
283: BEGIN
284:
285: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Event_Type_Code<-' ||
286: P_calling_sequence;
287:
288: -- There are 3 different event classes defined for AP to handle tax in 11ix.
289: -- They are: STANDARD INVOICES, PREPAYMENT INVOICES and EXPENSE REPORTS.
443: WHERE invoice_id = c_corrected_inv_id;
444:
445: BEGIN
446:
447: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Corrected_Invoice_Info<-'||
448: P_calling_sequence;
449:
450: -------------------------------------------------------------------
451: l_debug_info := 'Step 1: Get corrected invoice info';
465:
466: --------------------------------------------------------------------------
467: l_debug_info := 'Step 2: Get event class code corrected_invoice_id';
468: --------------------------------------------------------------------------
469: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
470: P_Invoice_Type_Lookup_Code => l_corrected_invoice_type,
471: P_Event_Class_Code => P_Event_Class_Code,
472: P_error_code => P_error_code,
473: P_calling_sequence => l_curr_calling_sequence)) THEN
541: WHERE invoice_id = c_prepay_inv_id;
542:
543: BEGIN
544:
545: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Prepay_Invoice_Info<-' ||
546: P_calling_sequence;
547:
548: -------------------------------------------------------------------
549: l_debug_info := 'Step 1: Get applied prepayment invoice info';
563:
564: --------------------------------------------------------------------------
565: l_debug_info := 'Step 2: Get event class code prepay_invoice_id';
566: --------------------------------------------------------------------------
567: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
568: P_Invoice_Type_Lookup_Code => l_prepay_invoice_type,
569: P_Event_Class_Code => P_Event_Class_Code,
570: P_error_code => P_error_code,
571: P_calling_sequence => l_curr_calling_sequence)) THEN
639: WHERE transaction_id = c_rcv_transaction;
640:
641: BEGIN
642:
643: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Receipt_Info<-' ||
644: P_calling_sequence;
645:
646: -------------------------------------------------------------------
647: l_debug_info := 'Step 1: Get receipt info';
764: AND pll.unit_meas_lookup_code = mum.unit_of_measure (+);
765:
766: BEGIN
767:
768: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_PO_Info<-' ||
769: P_calling_sequence;
770:
771: -------------------------------------------------------------------
772: l_debug_info := 'Step 1: Get PO additional info';
881: l_awt_group_id ap_invoice_lines_all.awt_group_id%TYPE;
882:
883: BEGIN
884:
885: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Prepay_Awt_Group_Id<-'||
886: P_calling_sequence;
887:
888: -------------------------------------------------------------------
889: l_debug_info := 'Step 1: Get awt_group_id from prepay item line';
982: l_api_name CONSTANT VARCHAR2(100) := 'RETURN_TAX_LINES';
983:
984: BEGIN
985:
986: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Tax_Lines<-'||
987: P_calling_sequence;
988:
989: -------------------------------------------------------------------
990: l_debug_info := 'Incorrect Summary Tax Line Check';
2206: 'Y', DECODE(NVL(asp.awt_include_tax_amt, 'N'),
2207: 'Y', DECODE(NVL(zd.inclusive_flag, 'N'),
2208: 'Y', DECODE(zd.applied_from_tax_dist_id,
2209: null, parent_item_line.awt_group_id,
2210: ap_etax_utility_pkg.Get_Prepay_Awt_Group_Id(
2211: parent_taxable_dist.prepay_distribution_id,
2212: P_Calling_Sequence)),
2213: 'N',parent_tax_line.awt_group_id), --Bug6648050
2214: NULL),
2290: -- the prepay_distribution_id will be populated with
2291: -- invoice_distribution_id for the associated rec or
2292: -- nonrec tax distributions
2293: DECODE(parent_item_line.line_type_lookup_code,
2294: 'PREPAY', AP_ETAX_UTILITY_PKG.get_dist_id_for_tax_dist_id
2295: (zd.applied_from_tax_dist_id),
2296: decode(parent_taxable_dist.line_type_lookup_code,
2297: 'PREPAY', AP_ETAX_UTILITY_PKG.get_dist_id_for_tax_dist_id
2298: (zd.applied_from_tax_dist_id), NULL)) prepay_distribution_id,
2293: DECODE(parent_item_line.line_type_lookup_code,
2294: 'PREPAY', AP_ETAX_UTILITY_PKG.get_dist_id_for_tax_dist_id
2295: (zd.applied_from_tax_dist_id),
2296: decode(parent_taxable_dist.line_type_lookup_code,
2297: 'PREPAY', AP_ETAX_UTILITY_PKG.get_dist_id_for_tax_dist_id
2298: (zd.applied_from_tax_dist_id), NULL)) prepay_distribution_id,
2299: DECODE(parent_item_line.line_type_lookup_code,
2300: 'PREPAY', DECODE(NVL(zd.recoverable_flag, 'N'),
2301: 'N', (zd.prd_tax_amt - zd.rec_nrec_tax_amt), NULL),
2343: or parent_item_line.line_type_lookup_code <> 'PREPAY'))
2344: or ( zd.rec_nrec_tax_amt = 0
2345: and nvl(zd.recoverable_flag, 'N') = 'N'
2346: /* Commented for Bug 6906867*/ /* and zd.rec_nrec_rate = 100*/ ) -- added the condition for bug fix 6695517
2347: or zd.rec_nrec_tax_amt <> ap_etax_utility_pkg.get_tv
2348: (zd.rate_tax_factor, zd.trx_line_dist_qty, zd.per_unit_nrec_tax_amt,
2349: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2350: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
2351: parent_tax_line.line_type_lookup_code, parent_tax_line.line_source, ai.invoice_currency_code,
2398: (CASE dist.line_type
2399: WHEN 'TIPV' THEN
2400: decode(parent_taxable_dist.dist_match_type,
2401: 'PRICE_CORRECTION', zd.rec_nrec_tax_amt,
2402: ap_etax_utility_pkg.get_tipv(
2403: zd.rate_tax_factor, zd.trx_line_dist_qty,
2404: nvl2(parent_taxable_dist.rcv_transaction_id,
2405: ap_etax_utility_pkg.get_converted_price
2406: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2401: 'PRICE_CORRECTION', zd.rec_nrec_tax_amt,
2402: ap_etax_utility_pkg.get_tipv(
2403: zd.rate_tax_factor, zd.trx_line_dist_qty,
2404: nvl2(parent_taxable_dist.rcv_transaction_id,
2405: ap_etax_utility_pkg.get_converted_price
2406: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2407: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
2408: zd.price_diff, parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2409: parent_tax_line.line_source, ai.invoice_currency_code,
2408: zd.price_diff, parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2409: parent_tax_line.line_source, ai.invoice_currency_code,
2410: parent_item_line.match_type))
2411: WHEN 'TRV' THEN
2412: (ap_etax_utility_pkg.get_tv(
2413: zd.rate_tax_factor, zd.trx_line_dist_qty, zd.per_unit_nrec_tax_amt,
2414: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2415: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
2416: parent_tax_line.line_type_lookup_code, parent_tax_line.line_source, ai.invoice_currency_code,
2414: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2415: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
2416: parent_tax_line.line_type_lookup_code, parent_tax_line.line_source, ai.invoice_currency_code,
2417: parent_item_line.match_type, zd.unit_price) -
2418: ap_etax_utility_pkg.get_tipv(
2419: zd.rate_tax_factor, zd.trx_line_dist_qty,
2420: nvl2(parent_taxable_dist.rcv_transaction_id,
2421: ap_etax_utility_pkg.get_converted_price
2422: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2417: parent_item_line.match_type, zd.unit_price) -
2418: ap_etax_utility_pkg.get_tipv(
2419: zd.rate_tax_factor, zd.trx_line_dist_qty,
2420: nvl2(parent_taxable_dist.rcv_transaction_id,
2421: ap_etax_utility_pkg.get_converted_price
2422: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2423: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,per_trx_curr_unit_nr_amt),
2424: zd.price_diff, parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2425: parent_tax_line.line_source, ai.invoice_currency_code, parent_item_line.match_type))
2429: WHEN 'TIPV' THEN
2430: ap_utilities_pkg.ap_round_currency(
2431: decode(parent_taxable_dist.dist_match_type,
2432: 'PRICE_CORRECTION', zd.rec_nrec_tax_amt,
2433: ap_etax_utility_pkg.get_tipv_base(
2434: zd.rate_tax_factor, zd.trx_line_dist_qty,
2435: nvl2(parent_taxable_dist.rcv_transaction_id,
2436: ap_etax_utility_pkg.get_converted_price
2437: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2432: 'PRICE_CORRECTION', zd.rec_nrec_tax_amt,
2433: ap_etax_utility_pkg.get_tipv_base(
2434: zd.rate_tax_factor, zd.trx_line_dist_qty,
2435: nvl2(parent_taxable_dist.rcv_transaction_id,
2436: ap_etax_utility_pkg.get_converted_price
2437: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2438: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
2439: zd.price_diff, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate, NULL,
2440: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2442: parent_item_line.match_type)),
2443: asp.base_currency_code)
2444: WHEN 'TRV' THEN
2445: ap_utilities_pkg.ap_round_currency(
2446: (ap_etax_utility_pkg.get_tv_base(
2447: zd.rate_tax_factor, zd.trx_line_dist_qty, zd.per_unit_nrec_tax_amt,
2448: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2449: zd.ref_per_trx_curr_unit_nr_amt, nvl(zd.currency_conversion_rate,1),
2450: zd.ref_doc_curr_conv_rate, zd.price_diff, parent_tax_line.corrected_inv_id,
2449: zd.ref_per_trx_curr_unit_nr_amt, nvl(zd.currency_conversion_rate,1),
2450: zd.ref_doc_curr_conv_rate, zd.price_diff, parent_tax_line.corrected_inv_id,
2451: parent_tax_line.line_type_lookup_code, parent_tax_line.line_source, asp.base_currency_code,
2452: parent_item_line.match_type, zd.unit_price) -
2453: ap_etax_utility_pkg.get_tipv_base(
2454: zd.rate_tax_factor, zd.trx_line_dist_qty,
2455: nvl2(parent_taxable_dist.rcv_transaction_id,
2456: ap_etax_utility_pkg.get_converted_price
2457: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2452: parent_item_line.match_type, zd.unit_price) -
2453: ap_etax_utility_pkg.get_tipv_base(
2454: zd.rate_tax_factor, zd.trx_line_dist_qty,
2455: nvl2(parent_taxable_dist.rcv_transaction_id,
2456: ap_etax_utility_pkg.get_converted_price
2457: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2458: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
2459: zd.price_diff, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate, NULL,
2460: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2460: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2461: parent_tax_line.line_source, ai.invoice_currency_code, asp.base_currency_code,
2462: parent_item_line.match_type) -
2463: decode (parent_tax_line.match_type, 'PRICE_CORRECTION', 0,
2464: ap_etax_utility_pkg.get_terv(
2465: zd.trx_line_dist_qty, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate,
2466: zd.applied_to_doc_curr_conv_rate, NULL, zd.per_unit_nrec_tax_amt,
2467: nvl(zd.ref_doc_per_unit_nrec_tax_amt,zd.per_unit_nrec_tax_amt),
2468: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2468: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2469: parent_tax_line.line_source, asp.base_currency_code))), asp.base_currency_code)
2470: WHEN 'TERV' THEN
2471: ap_utilities_pkg.ap_round_currency
2472: (ap_etax_utility_pkg.get_terv(
2473: zd.trx_line_dist_qty, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate,
2474: zd.applied_to_doc_curr_conv_rate, NULL, zd.per_unit_nrec_tax_amt,
2475: nvl(zd.ref_doc_per_unit_nrec_tax_amt,zd.per_unit_nrec_tax_amt),
2476: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2536: 'Y', DECODE(NVL(asp.awt_include_tax_amt, 'N'),
2537: 'Y', DECODE(NVL(zd.inclusive_flag, 'N'),
2538: 'Y', DECODE(zd.applied_from_tax_dist_id,
2539: null, parent_item_line.awt_group_id,
2540: ap_etax_utility_pkg.Get_Prepay_Awt_Group_Id(
2541: parent_taxable_dist.prepay_distribution_id,
2542: P_Calling_Sequence)),
2543: 'N', parent_tax_line.awt_group_id),
2544: NULL),
2658: WHERE aid.invoice_id = zd.trx_id
2659: AND aid.detail_tax_dist_id = zd.rec_nrec_tax_dist_id
2660: AND aid.line_type_lookup_code IN ('TIPV', 'TERV', 'TRV'))
2661: AND ((dist.line_type = 'TIPV'
2662: and (ap_etax_utility_pkg.get_tipv
2663: (zd.rate_tax_factor, zd.trx_line_dist_qty,
2664: nvl2(parent_taxable_dist.rcv_transaction_id,
2665: ap_etax_utility_pkg.get_converted_price
2666: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2661: AND ((dist.line_type = 'TIPV'
2662: and (ap_etax_utility_pkg.get_tipv
2663: (zd.rate_tax_factor, zd.trx_line_dist_qty,
2664: nvl2(parent_taxable_dist.rcv_transaction_id,
2665: ap_etax_utility_pkg.get_converted_price
2666: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2667: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
2668: zd.price_diff, parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2669: parent_tax_line.line_source, ai.invoice_currency_code, parent_item_line.match_type) <> 0
2670: or parent_taxable_dist.dist_match_type = 'PRICE_CORRECTION'
2671: ))
2672: OR
2673: (dist.line_type = 'TRV'
2674: and (ap_etax_utility_pkg.get_tv(
2675: zd.rate_tax_factor, zd.trx_line_dist_qty, zd.per_unit_nrec_tax_amt,
2676: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2677: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
2678: parent_tax_line.line_type_lookup_code, parent_tax_line.line_source, ai.invoice_currency_code,
2676: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2677: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
2678: parent_tax_line.line_type_lookup_code, parent_tax_line.line_source, ai.invoice_currency_code,
2679: parent_item_line.match_type, zd.unit_price) -
2680: ap_etax_utility_pkg.get_tipv(
2681: zd.rate_tax_factor, zd.trx_line_dist_qty,
2682: nvl2(parent_taxable_dist.rcv_transaction_id,
2683: ap_etax_utility_pkg.get_converted_price
2684: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2679: parent_item_line.match_type, zd.unit_price) -
2680: ap_etax_utility_pkg.get_tipv(
2681: zd.rate_tax_factor, zd.trx_line_dist_qty,
2682: nvl2(parent_taxable_dist.rcv_transaction_id,
2683: ap_etax_utility_pkg.get_converted_price
2684: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2685: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,per_trx_curr_unit_nr_amt),
2686: zd.price_diff, parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2687: parent_tax_line.line_source, ai.invoice_currency_code, parent_item_line.match_type)) <> 0)
2686: zd.price_diff, parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2687: parent_tax_line.line_source, ai.invoice_currency_code, parent_item_line.match_type)) <> 0)
2688: OR
2689: (dist.line_type = 'TERV'
2690: and (ap_etax_utility_pkg.get_terv(
2691: zd.trx_line_dist_qty, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate,
2692: zd.applied_to_doc_curr_conv_rate, NULL, zd.per_unit_nrec_tax_amt,
2693: nvl(zd.ref_doc_per_unit_nrec_tax_amt,zd.per_unit_nrec_tax_amt),
2694: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2935: (CASE aid.line_type_lookup_code
2936: WHEN 'TIPV' THEN
2937: decode(parent_taxable_dist.dist_match_type, -- Bug 5639076
2938: 'PRICE_CORRECTION', zd.rec_nrec_tax_amt,
2939: ap_etax_utility_pkg.get_tipv(
2940: zd.rate_tax_factor, zd.trx_line_dist_qty,
2941: nvl2(parent_taxable_dist.rcv_transaction_id,
2942: ap_etax_utility_pkg.get_converted_price
2943: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2938: 'PRICE_CORRECTION', zd.rec_nrec_tax_amt,
2939: ap_etax_utility_pkg.get_tipv(
2940: zd.rate_tax_factor, zd.trx_line_dist_qty,
2941: nvl2(parent_taxable_dist.rcv_transaction_id,
2942: ap_etax_utility_pkg.get_converted_price
2943: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2944: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
2945: zd.price_diff, parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2946: parent_tax_line.line_source, ai.invoice_currency_code, parent_item_line.match_type))
2944: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
2945: zd.price_diff, parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2946: parent_tax_line.line_source, ai.invoice_currency_code, parent_item_line.match_type))
2947: WHEN 'TRV' THEN
2948: (ap_etax_utility_pkg.get_tv(
2949: zd.rate_tax_factor, zd.trx_line_dist_qty, zd.per_unit_nrec_tax_amt,
2950: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2951: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
2952: parent_tax_line.line_type_lookup_code, parent_tax_line.line_source, ai.invoice_currency_code,
2950: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2951: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
2952: parent_tax_line.line_type_lookup_code, parent_tax_line.line_source, ai.invoice_currency_code,
2953: parent_item_line.match_type, zd.unit_price) -
2954: ap_etax_utility_pkg.get_tipv(
2955: zd.rate_tax_factor, zd.trx_line_dist_qty,
2956: nvl2(parent_taxable_dist.rcv_transaction_id,
2957: ap_etax_utility_pkg.get_converted_price
2958: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2953: parent_item_line.match_type, zd.unit_price) -
2954: ap_etax_utility_pkg.get_tipv(
2955: zd.rate_tax_factor, zd.trx_line_dist_qty,
2956: nvl2(parent_taxable_dist.rcv_transaction_id,
2957: ap_etax_utility_pkg.get_converted_price
2958: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2959: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,per_trx_curr_unit_nr_amt),
2960: zd.price_diff, parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2961: parent_tax_line.line_source, ai.invoice_currency_code, parent_item_line.match_type))
2963: END) amount,
2964: (CASE aid.line_type_lookup_code
2965: WHEN 'TIPV' THEN
2966: ap_utilities_pkg.ap_round_currency(
2967: ap_etax_utility_pkg.get_tipv_base(
2968: zd.rate_tax_factor, zd.trx_line_dist_qty,
2969: nvl2(parent_taxable_dist.rcv_transaction_id,
2970: ap_etax_utility_pkg.get_converted_price
2971: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2966: ap_utilities_pkg.ap_round_currency(
2967: ap_etax_utility_pkg.get_tipv_base(
2968: zd.rate_tax_factor, zd.trx_line_dist_qty,
2969: nvl2(parent_taxable_dist.rcv_transaction_id,
2970: ap_etax_utility_pkg.get_converted_price
2971: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2972: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
2973: zd.price_diff, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate, NULL,
2974: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2976: parent_item_line.match_type),
2977: asp.base_currency_code)
2978: WHEN 'TRV' THEN
2979: ap_utilities_pkg.ap_round_currency(
2980: (ap_etax_utility_pkg.get_tv_base(
2981: zd.rate_tax_factor, zd.trx_line_dist_qty, zd.per_unit_nrec_tax_amt,
2982: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2983: zd.ref_per_trx_curr_unit_nr_amt, nvl(zd.currency_conversion_rate,1),
2984: zd.ref_doc_curr_conv_rate, zd.price_diff, parent_tax_line.corrected_inv_id,
2983: zd.ref_per_trx_curr_unit_nr_amt, nvl(zd.currency_conversion_rate,1),
2984: zd.ref_doc_curr_conv_rate, zd.price_diff, parent_tax_line.corrected_inv_id,
2985: parent_tax_line.line_type_lookup_code, parent_tax_line.line_source, asp.base_currency_code,
2986: parent_item_line.match_type, zd.unit_price) -
2987: ap_etax_utility_pkg.get_tipv_base(
2988: zd.rate_tax_factor, zd.trx_line_dist_qty,
2989: nvl2(parent_taxable_dist.rcv_transaction_id,
2990: ap_etax_utility_pkg.get_converted_price
2991: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2986: parent_item_line.match_type, zd.unit_price) -
2987: ap_etax_utility_pkg.get_tipv_base(
2988: zd.rate_tax_factor, zd.trx_line_dist_qty,
2989: nvl2(parent_taxable_dist.rcv_transaction_id,
2990: ap_etax_utility_pkg.get_converted_price
2991: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2992: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
2993: zd.price_diff, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate, NULL,
2994: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2994: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
2995: parent_tax_line.line_source, ai.invoice_currency_code, asp.base_currency_code,
2996: parent_item_line.match_type) -
2997: decode (parent_tax_line.match_type, 'PRICE_CORRECTION', 0,
2998: ap_etax_utility_pkg.get_terv(
2999: zd.trx_line_dist_qty, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate,
3000: zd.applied_to_doc_curr_conv_rate, NULL, zd.per_unit_nrec_tax_amt,
3001: nvl(zd.ref_doc_per_unit_nrec_tax_amt,zd.per_unit_nrec_tax_amt),
3002: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
3002: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
3003: parent_tax_line.line_source, asp.base_currency_code))), asp.base_currency_code)
3004: WHEN 'TERV' THEN
3005: ap_utilities_pkg.ap_round_currency
3006: (ap_etax_utility_pkg.get_terv(
3007: zd.trx_line_dist_qty, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate,
3008: zd.applied_to_doc_curr_conv_rate, NULL, zd.per_unit_nrec_tax_amt,
3009: nvl(zd.ref_doc_per_unit_nrec_tax_amt,zd.per_unit_nrec_tax_amt),
3010: parent_tax_line.corrected_inv_id, parent_tax_line.line_type_lookup_code,
3214: 'Y', DECODE(NVL(asp.awt_include_tax_amt, 'N'),
3215: 'Y', DECODE(NVL(zd.inclusive_flag, 'N'),
3216: 'Y', DECODE(zd.applied_from_tax_dist_id,
3217: null, parent_item_line.awt_group_id,
3218: ap_etax_utility_pkg.Get_Prepay_Awt_Group_Id(
3219: parent_taxable_dist.prepay_distribution_id,
3220: P_Calling_Sequence)),
3221: 'N', parent_taxable_dist.awt_group_id),
3222: NULL),
3296: -- invoice_distribution_id for the TAX rec or nonrec
3297: -- asociated
3298: DECODE(parent_item_line.line_type_lookup_code,
3299: 'PREPAY',
3300: AP_ETAX_UTILITY_PKG.Get_Dist_Id_For_Tax_Dist_Id(
3301: zd.applied_from_tax_dist_id),
3302: NULL) prepay_distribution_id,
3303: DECODE(parent_item_line.line_type_lookup_code,
3304: 'PREPAY', DECODE(NVL(zd.recoverable_flag, 'N'),
3429: 'Y', DECODE(NVL(asp.awt_include_tax_amt, 'N'),
3430: 'Y', DECODE(NVL(zd.inclusive_flag, 'N'),
3431: 'Y', DECODE(zd.applied_from_tax_dist_id,
3432: null, parent_item_line.awt_group_id,
3433: ap_etax_utility_pkg.Get_Prepay_Awt_Group_Id(
3434: parent_taxable_dist.prepay_distribution_id,
3435: P_Calling_Sequence)),
3436: 'N', parent_taxable_dist.awt_group_id),
3437: NULL),
3577: linetype LineList := LineList('TIPV', 'TRV', 'TERV');
3578:
3579: BEGIN
3580:
3581: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Tax_Distributions<-'||
3582: P_calling_sequence;
3583:
3584: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3585: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_ETAX_UTILITY_PKG.Return_Tax_Distributions(+)');
3581: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Tax_Distributions<-'||
3582: P_calling_sequence;
3583:
3584: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3585: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_ETAX_UTILITY_PKG.Return_Tax_Distributions(+)');
3586: END IF;
3587:
3588: DELETE FROM AP_Line_Temp_GT;
3589:
4097: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4098: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4099: END IF;
4100:
4101: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
4102: P_All_Error_Messages => P_All_Error_Messages,
4103: P_Msg_Count => l_msg_count,
4104: P_Msg_Data => l_msg_data,
4105: P_Error_Code => P_Error_Code,
4118: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4119: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4120: END IF;
4121:
4122: ap_etax_utility_pkg.insert_tax_distributions
4123: (p_invoice_header_rec => p_invoice_header_rec,
4124: p_inv_dist_rec => l_inv_dist_ins(i),
4125: p_dist_code_combination_id => l_dist_code_combination_id,
4126: p_user_id => l_user_id,
4186: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4187: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4188: END IF;
4189:
4190: ap_etax_utility_pkg.insert_tax_distributions(
4191: p_invoice_header_rec => p_invoice_header_rec,
4192: p_inv_dist_rec => l_inv_dist_ins(i),
4193: p_dist_code_combination_id => l_dist_code_combination_id,
4194: p_user_id => l_user_id,
4334: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4335: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4336: END IF;
4337:
4338: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
4339: P_All_Error_Messages => P_All_Error_Messages,
4340: P_Msg_Count => l_msg_count,
4341: P_Msg_Data => l_msg_data,
4342: P_Error_Code => P_Error_Code,
4519: 'N', -- accrual_posted_flag
4520: 'U', -- assets_addition_flag
4521: 'N', -- assets_tracking_flag
4522: 'N', -- cash_posted_flag
4523: AP_ETAX_UTILITY_PKG.get_max_dist_num_self(
4524: --P_Invoice_Header_Rec.invoice_id,
4525: l_inv_self_ins(i).invoice_id,
4526: l_inv_self_ins(i).invoice_line_number)+1, --Bug7611551
4527: -- distribution_line_number
5138: l_curr_calling_sequence VARCHAR2(4000);
5139:
5140: BEGIN
5141:
5142: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Tax_Quote<-'||
5143: P_calling_sequence;
5144:
5145: -------------------------------------------------------------------
5146: l_debug_info := 'Step 1: Get data from zx_detail_tax_lines_gt and '||
5220: l_api_name CONSTANT VARCHAR2(100) := 'Return_Error_Messages';
5221:
5222: BEGIN
5223:
5224: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Error_Messages<-'||
5225: P_calling_sequence;
5226:
5227: -------------------------------------------------------------------
5228: l_debug_info := 'Get error message from eTax API';
5327: AND ROWNUM = 1; */
5328:
5329: BEGIN
5330:
5331: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Tax_Already_Called_Inv<-'||
5332: P_calling_sequence;
5333:
5334: -------------------------------------------------------------------
5335: l_debug_info := 'Step 1: Get tax_already_calculated_flag for any '||
5401:
5402:
5403: BEGIN
5404:
5405: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Tax_Already_Called_Inv<-'||
5406: P_calling_sequence;
5407:
5408: -------------------------------------------------------------------
5409: l_debug_info := 'Step 1: Get tax_already_calculated_flag for any '||
5476: AND ROWNUM = 1;
5477:
5478: BEGIN
5479:
5480: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Tax_Already_Dist_Inv<-'||
5481: P_calling_sequence;
5482:
5483: -------------------------------------------------------------------
5484: l_debug_info := 'Step 1: Get tax_already_Distributed_flag for any '||
5578: IF (SQLCODE <> -20001) THEN
5579: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5580: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5581: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
5582: 'AP_ETAX_UTILITY_PKG.Get_Dist_Id_For_Tax_Dist_Id');
5583: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5584: ' P_Tax_Dist_Id = '||P_Tax_Dist_Id);
5585: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5586: END IF;
5641: l_tax_dist_frozen VARCHAR2(1) := 'N';
5642: l_curr_calling_sequence VARCHAR2(2000);
5643: BEGIN
5644:
5645: l_curr_calling_sequence := p_calling_sequence || ' -> AP_Etax_Utility_Pkg.Is_Tax_Dist_Frozen';
5646:
5647: l_debug_info := 'Select values from ap_invoice_distributions for tax distribution id';
5648:
5649: SELECT aid1.invoice_distribution_id parent_distribution_id,
5913: l_curr_calling_sequence varchar2(2000);
5914:
5915: BEGIN
5916:
5917: l_curr_calling_sequence := p_calling_sequence ||'->AP_Etax_Utility_Pkg.Is_Tax_Line_Delete_Allowed';
5918: l_debug_info := 'Open Tax_Distributions Cursor';
5919:
5920: OPEN tax_distributions;
5921:
5924: FETCH tax_distributions INTO l_tax_invoice_distribution_id;
5925:
5926: EXIT WHEN tax_distributions%NOTFOUND OR l_tax_line_delete_allowed = 'N';
5927:
5928: IF (ap_etax_utility_pkg.is_tax_dist_frozen(p_invoice_id => p_invoice_id,
5929: p_tax_dist_id => l_tax_invoice_distribution_id,
5930: p_calling_sequence => l_curr_calling_sequence)) THEN
5931: l_tax_line_delete_allowed := 'N';
5932: END IF;
6017: WHEN OTHERS THEN
6018: IF (SQLCODE <> -20001) THEN
6019: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6020: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6021: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'AP_ETAX_UTILITY_PKG.set_tax_security_context');
6022: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'p_org_id: ' || p_org_id ||
6023: 'p_legal_entity_id: ' || p_legal_entity_id ||
6024: 'p_transaction_date: ' || p_transaction_date ||
6025: 'p_related_doc_date: ' || p_related_doc_date);
6479: l_debug_info VARCHAR2(240);
6480: l_curr_calling_sequence VARCHAR2(4000);
6481:
6482: BEGIN
6483: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Header_Tax_Attr_Desc<-' ||
6484: p_calling_sequence;
6485:
6486: --------------------------------------------------
6487: l_debug_info := 'Step 1: Get Taxation Country';
6628: l_curr_calling_sequence VARCHAR2(4000);
6629:
6630: BEGIN
6631:
6632: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Taxable_Line_Attr_Desc<-' ||
6633: p_calling_sequence;
6634:
6635: ------------------------------------------------------------------
6636: l_debug_info := 'Step 1: Get Business Category';
6797: l_debug_info VARCHAR2(240);
6798: l_curr_calling_sequence VARCHAR2(4000);
6799:
6800: BEGIN
6801: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Taxable_Line_Attr_Desc<-' ||
6802: p_calling_sequence;
6803:
6804: ------------------------------------------------
6805: l_debug_info := 'Step 1: Get Tax Regime';
6919: l_curr_calling_sequence VARCHAR2(4000);
6920:
6921: BEGIN
6922:
6923: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Default_Tax_Det_Attribs<-' ||
6924: p_calling_sequence;
6925:
6926: ------------------------------------------------
6927: l_debug_info := 'Step 1: Get Taxation Country';
6940:
6941: -------------------------------------------
6942: l_debug_info := 'Step 2: Get Event Class';
6943: -------------------------------------------
6944: l_success := AP_ETAX_UTILITY_PKG.Get_Event_Class_Code (
6945: p_invoice_type_lookup_code => p_doc_type,
6946: p_event_class_code => l_event_class_code,
6947: p_error_code => l_error_code,
6948: p_calling_sequence => l_curr_calling_sequence);
6951:
6952: ----------------------------------------------------
6953: l_debug_info := 'Step 3: Set Tax Security Context';
6954: ----------------------------------------------------
6955: AP_ETAX_UTILITY_PKG.set_tax_security_context (
6956: p_org_id => p_org_id,
6957: p_legal_entity_id => p_legal_entity_id,
6958: p_transaction_date => NVL(p_trx_date, sysdate),
6959: p_related_doc_date => NULL,
7033:
7034: l_curr_calling_sequence := 'Insert_Tax_Distributions <- '||p_calling_sequence;
7035:
7036: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7037: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_ETAX_UTILITY_PKG.Insert_Tax_Distributions(+)');
7038: END IF;
7039:
7040: l_debug_info := 'Step 11: Insert new distributions including variances';
7041:
7377: 'N' -- rcv_charge_addition_flag
7378: );
7379:
7380: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7381: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_ETAX_UTILITY_PKG.Insert_Tax_Distributions(-)');
7382: END IF;
7383:
7384: -- Following code was introduce because of bug 7126676
7385: -- This code will generate withholding applicability for
7453: l_curr_calling_sequence VARCHAR2(4000);
7454:
7455: BEGIN
7456:
7457: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Line_Class_Code<-' ||
7458: P_calling_sequence;
7459:
7460: IF (P_Invoice_Type_Lookup_Code IN ('STANDARD',
7461: 'MIXED',
7558: AND ROWNUM = 1;
7559:
7560: BEGIN
7561:
7562: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Tax_Already_Dist_Inv<-'||
7563: P_calling_sequence;
7564:
7565: -------------------------------------------------------------------
7566: l_debug_info := 'Step 1: Get tax_already_Distributed_flag for any '||
7675: RETURN(l_max_dist_line_num);
7676:
7677: END Get_Max_Dist_Num_Self;
7678:
7679: END AP_ETAX_UTILITY_PKG;