1: PACKAGE BODY AP_ETAX_UTILITY_PKG AS
2: /* $Header: apetxutb.pls 120.179.12020000.10 2013/02/15 12:31:04 cmaredup 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; /*Bug10101457: Commented the global variable and used sysdate where applicable*/
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 (
229: l_api_name CONSTANT VARCHAR2(100) := 'Get_Event_Class_Code';
230:
231: BEGIN
232:
233: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Event_Class_Code<-' ||
234: P_calling_sequence;
235:
236: -- The following invoice types are not included to get an event class due to:
237: -- AWT and INTEREST: Withholding Tax and Interest invoices do not require
355: l_api_name CONSTANT VARCHAR2(100) := 'Get_Event_Type_Code';
356:
357: BEGIN
358:
359: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Event_Type_Code<-' ||
360: P_calling_sequence;
361:
362: -- There are 3 different event classes defined for AP to handle tax in 11ix.
363: -- They are: STANDARD INVOICES, PREPAYMENT INVOICES and EXPENSE REPORTS.
532: WHERE invoice_id = c_corrected_inv_id;
533:
534: BEGIN
535:
536: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Corrected_Invoice_Info<-'||
537: P_calling_sequence;
538:
539: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
540: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
569: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
570: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
571: END IF;
572: --------------------------------------------------------------------------
573: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
574: P_Invoice_Type_Lookup_Code => l_corrected_invoice_type,
575: P_Event_Class_Code => P_Event_Class_Code,
576: P_error_code => P_error_code,
577: P_calling_sequence => l_curr_calling_sequence)) THEN
653: WHERE invoice_id = c_prepay_inv_id;
654:
655: BEGIN
656:
657: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Prepay_Invoice_Info<-' ||
658: P_calling_sequence;
659:
660: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
661: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
690: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
691: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
692: END IF;
693: --------------------------------------------------------------------------
694: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
695: P_Invoice_Type_Lookup_Code => l_prepay_invoice_type,
696: P_Event_Class_Code => P_Event_Class_Code,
697: P_error_code => P_error_code,
698: P_calling_sequence => l_curr_calling_sequence)) THEN
774: WHERE transaction_id = c_rcv_transaction;
775:
776: BEGIN
777:
778: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Receipt_Info<-' ||
779: P_calling_sequence;
780: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
781: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
782: END IF;
922: AND pll.unit_meas_lookup_code = mum.unit_of_measure (+);
923:
924: BEGIN
925:
926: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_PO_Info<-' ||
927: P_calling_sequence;
928: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
929: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
930: END IF;
1098: l_awt_group_id ap_invoice_lines_all.awt_group_id%TYPE;
1099:
1100: BEGIN
1101:
1102: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Prepay_Awt_Group_Id<-'||
1103: P_calling_sequence;
1104:
1105: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1106: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
1209: l_api_name CONSTANT VARCHAR2(100) := 'RETURN_TAX_LINES';
1210:
1211: BEGIN
1212:
1213: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Tax_Lines<-'||
1214: P_calling_sequence;
1215:
1216: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1217: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
2571: null,DECODE(NVL(asp.awt_include_tax_amt, 'N'),
2572: 'Y', DECODE(NVL(zd.inclusive_flag, 'N'),
2573: 'Y', DECODE(zd.applied_from_tax_dist_id,
2574: null, parent_taxable_dist.awt_group_id, --Bug8334059
2575: ap_etax_utility_pkg.Get_Prepay_Awt_Group_Id(
2576: parent_taxable_dist.prepay_distribution_id,
2577: P_Calling_Sequence)),
2578: 'N', parent_taxable_dist.awt_group_id),
2579: NULL),
2664: -- the prepay_distribution_id will be populated with
2665: -- invoice_distribution_id for the associated rec or
2666: -- nonrec tax distributions
2667: DECODE(parent_item_line.line_type_lookup_code,
2668: 'PREPAY', AP_ETAX_UTILITY_PKG.get_dist_id_for_tax_dist_id
2669: (zd.applied_from_tax_dist_id),
2670: decode(parent_taxable_dist.line_type_lookup_code,
2671: 'PREPAY', AP_ETAX_UTILITY_PKG.get_dist_id_for_tax_dist_id
2672: (zd.applied_from_tax_dist_id), NULL)) prepay_distribution_id,
2667: DECODE(parent_item_line.line_type_lookup_code,
2668: 'PREPAY', AP_ETAX_UTILITY_PKG.get_dist_id_for_tax_dist_id
2669: (zd.applied_from_tax_dist_id),
2670: decode(parent_taxable_dist.line_type_lookup_code,
2671: 'PREPAY', AP_ETAX_UTILITY_PKG.get_dist_id_for_tax_dist_id
2672: (zd.applied_from_tax_dist_id), NULL)) prepay_distribution_id,
2673: DECODE(parent_item_line.line_type_lookup_code,
2674: 'PREPAY', DECODE(NVL(zd.recoverable_flag, 'N'),
2675: 'N', (zd.prd_tax_amt - zd.rec_nrec_tax_amt), NULL),
2683: NULL, DECODE(NVL(asp.awt_include_tax_amt, 'N'),
2684: 'Y', DECODE(NVL(zd.inclusive_flag, 'N'),
2685: 'Y',DECODE(zd.applied_from_tax_dist_id,
2686: null, parent_taxable_dist.pay_awt_group_id,
2687: ap_etax_utility_pkg.Get_Prepay_Pay_Awt_Group_Id(
2688: parent_taxable_dist.prepay_distribution_id,
2689: P_Calling_Sequence)),
2690: 'N', parent_taxable_dist.pay_awt_group_id),
2691: NULL),
2731: or (ai.invoice_type_lookup_code = 'PREPAYMENT' and nvl(zd.recoverable_flag, 'N') = 'N' )
2732: or (parent_taxable_dist.prepay_distribution_id IS NOT NULL)
2733: or ( zd.rec_nrec_tax_amt = 0 and nvl(zd.recoverable_flag, 'N') = 'N'
2734: /* Commented for Bug 6906867*/ /* and zd.rec_nrec_rate = 100*/ ) -- added the condition for bug fix 6695517
2735: or zd.rec_nrec_tax_amt <> ap_etax_utility_pkg.get_tv
2736: (zd.rate_tax_factor, zd.trx_line_dist_qty, zd.per_unit_nrec_tax_amt,
2737: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2738: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
2739: parent_item_line.line_type_lookup_code, parent_item_line.line_source, ai.invoice_currency_code, --Bug10416960
2797: END) line_type_lookup_code,
2798: ap_utilities_pkg.get_gl_period_name(zd.gl_date,ai.org_id) period_name,
2799: (CASE dist.line_type
2800: WHEN 'TIPV' THEN -- bug 10291717
2801: ap_etax_utility_pkg.get_tipv(
2802: zd.rate_tax_factor, zd.trx_line_dist_qty,
2803: nvl2(parent_taxable_dist.rcv_transaction_id,
2804: ap_etax_utility_pkg.get_converted_price
2805: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2800: WHEN 'TIPV' THEN -- bug 10291717
2801: ap_etax_utility_pkg.get_tipv(
2802: zd.rate_tax_factor, zd.trx_line_dist_qty,
2803: nvl2(parent_taxable_dist.rcv_transaction_id,
2804: ap_etax_utility_pkg.get_converted_price
2805: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2806: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
2807: zd.price_diff, parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
2808: parent_item_line.line_source, ai.invoice_currency_code, --Bug10416960
2807: zd.price_diff, parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
2808: parent_item_line.line_source, ai.invoice_currency_code, --Bug10416960
2809: parent_item_line.match_type , zd.trx_line_dist_id , zd.ref_per_trx_curr_unit_nr_amt , zd.rec_nrec_tax_dist_id)
2810: WHEN 'TRV' THEN
2811: (ap_etax_utility_pkg.get_tv(
2812: zd.rate_tax_factor, zd.trx_line_dist_qty, zd.per_unit_nrec_tax_amt,
2813: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2814: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
2815: parent_item_line.line_type_lookup_code, parent_item_line.line_source, ai.invoice_currency_code, --Bug10416960
2813: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2814: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
2815: parent_item_line.line_type_lookup_code, parent_item_line.line_source, ai.invoice_currency_code, --Bug10416960
2816: parent_item_line.match_type, zd.unit_price , zd.trx_line_dist_id , zd.ref_doc_unit_price , zd.rec_nrec_tax_dist_id) -
2817: ap_etax_utility_pkg.get_tipv(
2818: zd.rate_tax_factor, zd.trx_line_dist_qty,
2819: nvl2(parent_taxable_dist.rcv_transaction_id,
2820: ap_etax_utility_pkg.get_converted_price
2821: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2816: parent_item_line.match_type, zd.unit_price , zd.trx_line_dist_id , zd.ref_doc_unit_price , zd.rec_nrec_tax_dist_id) -
2817: ap_etax_utility_pkg.get_tipv(
2818: zd.rate_tax_factor, zd.trx_line_dist_qty,
2819: nvl2(parent_taxable_dist.rcv_transaction_id,
2820: ap_etax_utility_pkg.get_converted_price
2821: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2822: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,per_trx_curr_unit_nr_amt),
2823: zd.price_diff, parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
2824: parent_item_line.line_source, ai.invoice_currency_code, parent_item_line.match_type , zd.trx_line_dist_id , --Bug10416960
2827: END) amount,
2828: (CASE dist.line_type
2829: WHEN 'TIPV' THEN
2830: ap_utilities_pkg.ap_round_currency( -- bug 10291717
2831: ap_etax_utility_pkg.get_tipv_base(
2832: zd.rate_tax_factor, zd.trx_line_dist_qty,
2833: nvl2(parent_taxable_dist.rcv_transaction_id,
2834: ap_etax_utility_pkg.get_converted_price
2835: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2830: ap_utilities_pkg.ap_round_currency( -- bug 10291717
2831: ap_etax_utility_pkg.get_tipv_base(
2832: zd.rate_tax_factor, zd.trx_line_dist_qty,
2833: nvl2(parent_taxable_dist.rcv_transaction_id,
2834: ap_etax_utility_pkg.get_converted_price
2835: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2836: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
2837: zd.price_diff, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate, NULL,
2838: parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
2840: parent_item_line.match_type , zd.trx_line_dist_id , zd.ref_per_trx_curr_unit_nr_amt , zd.rec_nrec_tax_dist_id)
2841: ,asp.base_currency_code)
2842: WHEN 'TRV' THEN
2843: ap_utilities_pkg.ap_round_currency(
2844: (ap_etax_utility_pkg.get_tv_base(
2845: zd.rate_tax_factor, zd.trx_line_dist_qty, zd.per_unit_nrec_tax_amt,
2846: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
2847: zd.ref_per_trx_curr_unit_nr_amt, nvl(zd.currency_conversion_rate,1),
2848: zd.ref_doc_curr_conv_rate, zd.price_diff, parent_tax_line.corrected_inv_id,
2847: zd.ref_per_trx_curr_unit_nr_amt, nvl(zd.currency_conversion_rate,1),
2848: zd.ref_doc_curr_conv_rate, zd.price_diff, parent_tax_line.corrected_inv_id,
2849: parent_item_line.line_type_lookup_code, parent_item_line.line_source, asp.base_currency_code, --Bug10416960
2850: parent_item_line.match_type, zd.unit_price , zd.trx_line_dist_id , zd.ref_doc_unit_price , zd.rec_nrec_tax_dist_id)
2851: - (DECODE(find_val(zd.trx_line_dist_id),0,1,0)*ap_etax_utility_pkg.get_terv(
2852: zd.trx_line_dist_qty, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate,
2853: zd.applied_to_doc_curr_conv_rate, NULL, zd.per_unit_nrec_tax_amt,
2854: nvl(zd.ref_doc_per_unit_nrec_tax_amt,zd.per_unit_nrec_tax_amt),
2855: parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
2854: nvl(zd.ref_doc_per_unit_nrec_tax_amt,zd.per_unit_nrec_tax_amt),
2855: parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
2856: parent_item_line.line_source, asp.base_currency_code , zd.trx_line_dist_id , zd.ref_doc_unit_price , --Bug10416960
2857: zd.ref_per_trx_curr_unit_nr_amt , zd.rec_nrec_tax_dist_id, zd.unit_price)) --Bug10416960
2858: - ap_etax_utility_pkg.get_tipv_base(
2859: zd.rate_tax_factor, zd.trx_line_dist_qty,
2860: nvl2(parent_taxable_dist.rcv_transaction_id,
2861: ap_etax_utility_pkg.get_converted_price
2862: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2857: zd.ref_per_trx_curr_unit_nr_amt , zd.rec_nrec_tax_dist_id, zd.unit_price)) --Bug10416960
2858: - ap_etax_utility_pkg.get_tipv_base(
2859: zd.rate_tax_factor, zd.trx_line_dist_qty,
2860: nvl2(parent_taxable_dist.rcv_transaction_id,
2861: ap_etax_utility_pkg.get_converted_price
2862: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
2863: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
2864: zd.price_diff, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate, NULL,
2865: parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
2867: parent_item_line.match_type , zd.trx_line_dist_id , zd.ref_per_trx_curr_unit_nr_amt , zd.rec_nrec_tax_dist_id)),
2868: asp.base_currency_code) -- bug 9231678
2869: WHEN 'TERV' THEN
2870: ap_utilities_pkg.ap_round_currency
2871: (ap_etax_utility_pkg.get_terv(
2872: zd.trx_line_dist_qty, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate,
2873: zd.applied_to_doc_curr_conv_rate, NULL, zd.per_unit_nrec_tax_amt,
2874: nvl(zd.ref_doc_per_unit_nrec_tax_amt,zd.per_unit_nrec_tax_amt),
2875: parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
2935: null,DECODE(NVL(asp.awt_include_tax_amt, 'N'),
2936: 'Y', DECODE(NVL(zd.inclusive_flag, 'N'),
2937: 'Y', DECODE(zd.applied_from_tax_dist_id,
2938: null, parent_taxable_dist.awt_group_id, --Bug8334059
2939: ap_etax_utility_pkg.Get_Prepay_Awt_Group_Id(
2940: parent_taxable_dist.prepay_distribution_id,
2941: P_Calling_Sequence)),
2942: 'N', parent_taxable_dist.awt_group_id),
2943: NULL),
3030: NULL, DECODE(NVL(asp.awt_include_tax_amt, 'N'),
3031: 'Y', DECODE(NVL(zd.inclusive_flag, 'N'),
3032: 'Y',DECODE(zd.applied_from_tax_dist_id,
3033: null, parent_taxable_dist.pay_awt_group_id,
3034: ap_etax_utility_pkg.Get_Prepay_Pay_Awt_Group_Id(
3035: parent_taxable_dist.prepay_distribution_id,
3036: P_Calling_Sequence)),
3037: 'N', parent_taxable_dist.pay_awt_group_id),
3038: NULL),
3096: --Bug7419940 Dont allow any insert from posted / frozen variacnes it should be reversed
3097: NVL(aid.reversal_flag,'N')='Y'))
3098: --Bug8481532 Added Condition To exclude reversed distribuion from getting changed
3099: AND ((dist.line_type = 'TIPV'
3100: AND (ap_etax_utility_pkg.get_tipv
3101: (zd.rate_tax_factor, zd.trx_line_dist_qty,
3102: nvl2(parent_taxable_dist.rcv_transaction_id,
3103: ap_etax_utility_pkg.get_converted_price
3104: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
3099: AND ((dist.line_type = 'TIPV'
3100: AND (ap_etax_utility_pkg.get_tipv
3101: (zd.rate_tax_factor, zd.trx_line_dist_qty,
3102: nvl2(parent_taxable_dist.rcv_transaction_id,
3103: ap_etax_utility_pkg.get_converted_price
3104: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
3105: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
3106: zd.price_diff, parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
3107: parent_item_line.line_source, ai.invoice_currency_code, parent_item_line.match_type , zd.trx_line_dist_id , --bug10416960
3109: or parent_taxable_dist.dist_match_type = 'PRICE_CORRECTION'
3110: ))
3111: OR
3112: (dist.line_type = 'TRV'
3113: and (ap_etax_utility_pkg.get_tv(
3114: zd.rate_tax_factor, zd.trx_line_dist_qty, zd.per_unit_nrec_tax_amt,
3115: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
3116: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
3117: parent_item_line.line_type_lookup_code, parent_item_line.line_source, ai.invoice_currency_code, --Bug10416960
3115: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
3116: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
3117: parent_item_line.line_type_lookup_code, parent_item_line.line_source, ai.invoice_currency_code, --Bug10416960
3118: parent_item_line.match_type, zd.unit_price , zd.trx_line_dist_id , zd.ref_doc_unit_price , zd.rec_nrec_tax_dist_id)
3119: - ap_etax_utility_pkg.get_tipv(
3120: zd.rate_tax_factor, zd.trx_line_dist_qty,
3121: nvl2(parent_taxable_dist.rcv_transaction_id,
3122: ap_etax_utility_pkg.get_converted_price
3123: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
3118: parent_item_line.match_type, zd.unit_price , zd.trx_line_dist_id , zd.ref_doc_unit_price , zd.rec_nrec_tax_dist_id)
3119: - ap_etax_utility_pkg.get_tipv(
3120: zd.rate_tax_factor, zd.trx_line_dist_qty,
3121: nvl2(parent_taxable_dist.rcv_transaction_id,
3122: ap_etax_utility_pkg.get_converted_price
3123: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
3124: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,per_trx_curr_unit_nr_amt),
3125: zd.price_diff, parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
3126: parent_item_line.line_source, ai.invoice_currency_code, parent_item_line.match_type , zd.trx_line_dist_id , --Bug10416960
3126: parent_item_line.line_source, ai.invoice_currency_code, parent_item_line.match_type , zd.trx_line_dist_id , --Bug10416960
3127: zd.ref_per_trx_curr_unit_nr_amt , zd.rec_nrec_tax_dist_id)) <> 0)
3128: OR
3129: (dist.line_type = 'TERV'
3130: AND (ap_etax_utility_pkg.get_terv(
3131: zd.trx_line_dist_qty, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate,
3132: zd.applied_to_doc_curr_conv_rate, NULL, zd.per_unit_nrec_tax_amt,
3133: nvl(zd.ref_doc_per_unit_nrec_tax_amt,zd.per_unit_nrec_tax_amt),
3134: parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
3379: END) line_type_lookup_code,
3380: ap_utilities_pkg.get_gl_period_name(zd.gl_date,ai.org_id) period_name,
3381: (CASE aid.line_type_lookup_code
3382: WHEN 'TIPV' THEN -- bug 10291717
3383: ap_etax_utility_pkg.get_tipv(
3384: zd.rate_tax_factor, zd.trx_line_dist_qty,
3385: nvl2(parent_taxable_dist.rcv_transaction_id,
3386: ap_etax_utility_pkg.get_converted_price
3387: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
3382: WHEN 'TIPV' THEN -- bug 10291717
3383: ap_etax_utility_pkg.get_tipv(
3384: zd.rate_tax_factor, zd.trx_line_dist_qty,
3385: nvl2(parent_taxable_dist.rcv_transaction_id,
3386: ap_etax_utility_pkg.get_converted_price
3387: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
3388: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
3389: zd.price_diff, parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
3390: parent_item_line.line_source, ai.invoice_currency_code, parent_item_line.match_type , --Bug10416960
3389: zd.price_diff, parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
3390: parent_item_line.line_source, ai.invoice_currency_code, parent_item_line.match_type , --Bug10416960
3391: zd.trx_line_dist_id , zd.ref_per_trx_curr_unit_nr_amt , zd.rec_nrec_tax_dist_id)
3392: WHEN 'TRV' THEN
3393: (ap_etax_utility_pkg.get_tv(
3394: zd.rate_tax_factor, zd.trx_line_dist_qty, zd.per_unit_nrec_tax_amt,
3395: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
3396: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
3397: parent_item_line.line_type_lookup_code, parent_item_line.line_source, ai.invoice_currency_code, --Bug10416960
3395: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
3396: zd.ref_per_trx_curr_unit_nr_amt, zd.price_diff, parent_tax_line.corrected_inv_id,
3397: parent_item_line.line_type_lookup_code, parent_item_line.line_source, ai.invoice_currency_code, --Bug10416960
3398: parent_item_line.match_type, zd.unit_price , zd.trx_line_dist_id , zd.ref_doc_unit_price , zd.rec_nrec_tax_dist_id) -
3399: ap_etax_utility_pkg.get_tipv(
3400: zd.rate_tax_factor, zd.trx_line_dist_qty,
3401: nvl2(parent_taxable_dist.rcv_transaction_id,
3402: ap_etax_utility_pkg.get_converted_price
3403: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
3398: parent_item_line.match_type, zd.unit_price , zd.trx_line_dist_id , zd.ref_doc_unit_price , zd.rec_nrec_tax_dist_id) -
3399: ap_etax_utility_pkg.get_tipv(
3400: zd.rate_tax_factor, zd.trx_line_dist_qty,
3401: nvl2(parent_taxable_dist.rcv_transaction_id,
3402: ap_etax_utility_pkg.get_converted_price
3403: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
3404: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,per_trx_curr_unit_nr_amt),
3405: zd.price_diff, parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
3406: parent_item_line.line_source, ai.invoice_currency_code, parent_item_line.match_type , zd.trx_line_dist_id , --Bug10416960
3409: END) amount,
3410: (CASE aid.line_type_lookup_code
3411: WHEN 'TIPV' THEN
3412: ap_utilities_pkg.ap_round_currency(
3413: ap_etax_utility_pkg.get_tipv_base(
3414: zd.rate_tax_factor, zd.trx_line_dist_qty,
3415: nvl2(parent_taxable_dist.rcv_transaction_id,
3416: ap_etax_utility_pkg.get_converted_price
3417: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
3412: ap_utilities_pkg.ap_round_currency(
3413: ap_etax_utility_pkg.get_tipv_base(
3414: zd.rate_tax_factor, zd.trx_line_dist_qty,
3415: nvl2(parent_taxable_dist.rcv_transaction_id,
3416: ap_etax_utility_pkg.get_converted_price
3417: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
3418: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
3419: zd.price_diff, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate, NULL,
3420: parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
3422: parent_item_line.match_type , zd.trx_line_dist_id , zd.ref_per_trx_curr_unit_nr_amt , zd.rec_nrec_tax_dist_id),
3423: asp.base_currency_code)
3424: WHEN 'TRV' THEN
3425: ap_utilities_pkg.ap_round_currency(
3426: (ap_etax_utility_pkg.get_tv_base(
3427: zd.rate_tax_factor, zd.trx_line_dist_qty, zd.per_unit_nrec_tax_amt,
3428: nvl(zd.ref_doc_per_unit_nrec_tax_amt,0), zd.per_trx_curr_unit_nr_amt,
3429: zd.ref_per_trx_curr_unit_nr_amt, nvl(zd.currency_conversion_rate,1),
3430: zd.ref_doc_curr_conv_rate, zd.price_diff, parent_tax_line.corrected_inv_id,
3429: zd.ref_per_trx_curr_unit_nr_amt, nvl(zd.currency_conversion_rate,1),
3430: zd.ref_doc_curr_conv_rate, zd.price_diff, parent_tax_line.corrected_inv_id,
3431: parent_item_line.line_type_lookup_code, parent_item_line.line_source, asp.base_currency_code, --Bug10416960
3432: parent_item_line.match_type, zd.unit_price , zd.trx_line_dist_id , zd.ref_doc_unit_price , zd.rec_nrec_tax_dist_id)
3433: - (DECODE(find_val(zd.trx_line_dist_id),0,1,0)*ap_etax_utility_pkg.get_terv(
3434: zd.trx_line_dist_qty, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate,
3435: zd.applied_to_doc_curr_conv_rate, NULL, zd.per_unit_nrec_tax_amt,
3436: nvl(zd.ref_doc_per_unit_nrec_tax_amt,zd.per_unit_nrec_tax_amt),
3437: parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
3436: nvl(zd.ref_doc_per_unit_nrec_tax_amt,zd.per_unit_nrec_tax_amt),
3437: parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
3438: parent_item_line.line_source, asp.base_currency_code , zd.trx_line_dist_id , zd.ref_doc_unit_price , --Bug10416960
3439: zd.ref_per_trx_curr_unit_nr_amt , zd.rec_nrec_tax_dist_id,zd.unit_price)) --Bug10416960
3440: - ap_etax_utility_pkg.get_tipv_base(
3441: zd.rate_tax_factor, zd.trx_line_dist_qty,
3442: nvl2(parent_taxable_dist.rcv_transaction_id,
3443: ap_etax_utility_pkg.get_converted_price
3444: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
3439: zd.ref_per_trx_curr_unit_nr_amt , zd.rec_nrec_tax_dist_id,zd.unit_price)) --Bug10416960
3440: - ap_etax_utility_pkg.get_tipv_base(
3441: zd.rate_tax_factor, zd.trx_line_dist_qty,
3442: nvl2(parent_taxable_dist.rcv_transaction_id,
3443: ap_etax_utility_pkg.get_converted_price
3444: (parent_taxable_dist.invoice_distribution_id), zd.unit_price),
3445: zd.ref_doc_unit_price, nvl(zd.ref_per_trx_curr_unit_nr_amt,zd.per_trx_curr_unit_nr_amt),
3446: zd.price_diff, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate, NULL,
3447: parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
3449: parent_item_line.match_type , zd.trx_line_dist_id , zd.ref_per_trx_curr_unit_nr_amt , zd.rec_nrec_tax_dist_id)),
3450: asp.base_currency_code) -- bug 9231678
3451: WHEN 'TERV' THEN
3452: ap_utilities_pkg.ap_round_currency
3453: (ap_etax_utility_pkg.get_terv(
3454: zd.trx_line_dist_qty, zd.currency_conversion_rate, zd.ref_doc_curr_conv_rate,
3455: zd.applied_to_doc_curr_conv_rate, NULL, zd.per_unit_nrec_tax_amt,
3456: nvl(zd.ref_doc_per_unit_nrec_tax_amt,zd.per_unit_nrec_tax_amt),
3457: parent_tax_line.corrected_inv_id, parent_item_line.line_type_lookup_code, --Bug10416960
3677: 'Y', DECODE(NVL(asp.awt_include_tax_amt, 'N'),
3678: 'Y', DECODE(NVL(zd.inclusive_flag, 'N'),
3679: 'Y', DECODE(zd.applied_from_tax_dist_id,
3680: null, parent_taxable_dist.awt_group_id, --Bug8334059
3681: ap_etax_utility_pkg.Get_Prepay_Awt_Group_Id(
3682: parent_taxable_dist.prepay_distribution_id,
3683: P_Calling_Sequence)),
3684: 'N', parent_taxable_dist.awt_group_id),
3685: NULL),
3766: -- invoice_distribution_id for the TAX rec or nonrec
3767: -- asociated
3768: DECODE(parent_item_line.line_type_lookup_code,
3769: 'PREPAY',
3770: AP_ETAX_UTILITY_PKG.Get_Dist_Id_For_Tax_Dist_Id(
3771: zd.applied_from_tax_dist_id),
3772: NULL) prepay_distribution_id,
3773: DECODE(parent_item_line.line_type_lookup_code,
3774: 'PREPAY', DECODE(NVL(zd.recoverable_flag, 'N'),
3902: 'Y', DECODE(NVL(asp.awt_include_tax_amt, 'N'),
3903: 'Y', DECODE(NVL(zd.inclusive_flag, 'N'),
3904: 'Y', DECODE(zd.applied_from_tax_dist_id,
3905: null, parent_taxable_dist.awt_group_id, --Bug8334059
3906: ap_etax_utility_pkg.Get_Prepay_Awt_Group_Id(
3907: parent_taxable_dist.prepay_distribution_id,
3908: P_Calling_Sequence)),
3909: 'N', parent_taxable_dist.awt_group_id),
3910: NULL),
4067: l_err varchar2(2000); --bug10140354
4068:
4069: BEGIN
4070:
4071: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Tax_Distributions<-'||
4072: P_calling_sequence;
4073:
4074: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4075: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_ETAX_UTILITY_PKG.Return_Tax_Distributions(+)');
4071: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Tax_Distributions<-'||
4072: P_calling_sequence;
4073:
4074: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4075: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_ETAX_UTILITY_PKG.Return_Tax_Distributions(+)');
4076: END IF;
4077:
4078: DELETE FROM AP_Line_Temp_GT;
4079:
4813: BEGIN
4814: SELECT dist_code_combination_id
4815: INTO l_dist_code_combination_id
4816: FROM ap_invoice_distributions_all
4817: WHERE invoice_distribution_id = AP_ETAX_UTILITY_PKG.Get_Dist_Id_For_Tax_Dist_Id
4818: (l_inv_dist_ins(i).applied_from_tax_dist_id);
4819: END;
4820:
4821: -------------------------------------------------------------------
4891: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4892: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4893: END IF;
4894:
4895: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
4896: P_All_Error_Messages => P_All_Error_Messages,
4897: P_Msg_Count => l_msg_count,
4898: P_Msg_Data => l_msg_data,
4899: P_Error_Code => P_Error_Code,
4967: where code_combination_id = l_dist_code_combination_id;
4968:
4969: END IF;
4970:
4971: ap_etax_utility_pkg.insert_tax_distributions
4972: (p_invoice_header_rec => p_invoice_header_rec,
4973: p_inv_dist_rec => l_inv_dist_ins(i),
4974: p_dist_code_combination_id => l_dist_code_combination_id,
4975: p_user_id => l_user_id,
5111: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5112: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5113: END IF;
5114:
5115: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
5116: P_All_Error_Messages => P_All_Error_Messages,
5117: P_Msg_Count => l_msg_count,
5118: P_Msg_Data => l_msg_data,
5119: P_Error_Code => P_Error_Code,
5143: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5144: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5145: END IF;
5146:
5147: ap_etax_utility_pkg.insert_tax_distributions(
5148: p_invoice_header_rec => p_invoice_header_rec,
5149: p_inv_dist_rec => l_inv_dist_ins(i),
5150: p_dist_code_combination_id => l_dist_code_combination_id,
5151: p_user_id => l_user_id,
5348: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5349: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5350: END IF;
5351:
5352: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
5353: P_All_Error_Messages => P_All_Error_Messages,
5354: P_Msg_Count => l_msg_count,
5355: P_Msg_Data => l_msg_data,
5356: P_Error_Code => P_Error_Code,
5533: 'N', -- accrual_posted_flag
5534: 'U', -- assets_addition_flag
5535: 'N', -- assets_tracking_flag
5536: 'N', -- cash_posted_flag
5537: AP_ETAX_UTILITY_PKG.get_max_dist_num_self(
5538: --P_Invoice_Header_Rec.invoice_id,
5539: l_inv_self_ins(i).invoice_id,
5540: l_inv_self_ins(i).invoice_line_number)+1, --Bug7611551
5541: -- distribution_line_number
6307: l_api_name CONSTANT VARCHAR2(100) := 'Return_Tax_Quote';
6308:
6309: BEGIN
6310:
6311: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Tax_Quote<-'||
6312: P_calling_sequence;
6313:
6314: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6315: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
6395: l_api_name CONSTANT VARCHAR2(100) := 'Return_Error_Messages';
6396:
6397: BEGIN
6398:
6399: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Error_Messages<-'||
6400: P_calling_sequence;
6401:
6402: -------------------------------------------------------------------
6403: l_debug_info := 'Get error message from eTax API';
6503: AND ROWNUM = 1; */
6504:
6505: BEGIN
6506:
6507: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Tax_Already_Called_Inv<-'||
6508: P_calling_sequence;
6509:
6510: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6511: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
6591:
6592:
6593: BEGIN
6594:
6595: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Tax_Already_Called_Inv<-'||
6596: P_calling_sequence;
6597:
6598: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6599: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
6683: AND ROWNUM = 1;
6684:
6685: BEGIN
6686:
6687: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Tax_Already_Dist_Inv<-'||
6688: P_calling_sequence;
6689:
6690: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6691: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
6806: IF (SQLCODE <> -20001) THEN
6807: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6808: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6809: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
6810: 'AP_ETAX_UTILITY_PKG.Get_Dist_Id_For_Tax_Dist_Id');
6811: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6812: ' P_Tax_Dist_Id = '||P_Tax_Dist_Id);
6813: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6814: END IF;
6869: l_tax_dist_frozen VARCHAR2(1) := 'N';
6870: l_curr_calling_sequence VARCHAR2(2000);
6871: BEGIN
6872:
6873: l_curr_calling_sequence := p_calling_sequence || ' -> AP_Etax_Utility_Pkg.Is_Tax_Dist_Frozen';
6874:
6875: l_debug_info := 'Select values from ap_invoice_distributions for tax distribution id';
6876:
6877: SELECT aid1.invoice_distribution_id parent_distribution_id,
7142: l_api_name CONSTANT VARCHAR2(100) := 'IS_TAX_LINE_DELETE_ALLOWED';
7143:
7144: BEGIN
7145:
7146: l_curr_calling_sequence := p_calling_sequence ||'->AP_Etax_Utility_Pkg.Is_Tax_Line_Delete_Allowed';
7147:
7148: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7149: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
7150: END IF;
7162: FETCH tax_distributions INTO l_tax_invoice_distribution_id;
7163:
7164: EXIT WHEN tax_distributions%NOTFOUND OR l_tax_line_delete_allowed = 'N';
7165:
7166: IF (ap_etax_utility_pkg.is_tax_dist_frozen(p_invoice_id => p_invoice_id,
7167: p_tax_dist_id => l_tax_invoice_distribution_id,
7168: p_calling_sequence => l_curr_calling_sequence)) THEN
7169: l_tax_line_delete_allowed := 'N';
7170: END IF;
7264: WHEN OTHERS THEN
7265: IF (SQLCODE <> -20001) THEN
7266: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7267: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7268: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'AP_ETAX_UTILITY_PKG.set_tax_security_context');
7269: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'p_org_id: ' || p_org_id ||
7270: 'p_legal_entity_id: ' || p_legal_entity_id ||
7271: 'p_transaction_date: ' || p_transaction_date ||
7272: 'p_related_doc_date: ' || p_related_doc_date);
8553: l_curr_calling_sequence VARCHAR2(4000);
8554: l_api_name CONSTANT VARCHAR2(100) := 'get_header_tax_attr_desc';
8555:
8556: BEGIN
8557: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Header_Tax_Attr_Desc<-' ||
8558: p_calling_sequence;
8559:
8560: --------------------------------------------------
8561: l_debug_info := 'Step 1: Get Taxation Country';
8712: l_api_name CONSTANT VARCHAR2(100) := 'get_taxable_line_attr_desc';
8713:
8714: BEGIN
8715:
8716: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Taxable_Line_Attr_Desc<-' ||
8717: p_calling_sequence;
8718:
8719: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8720: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
8904: l_curr_calling_sequence VARCHAR2(4000);
8905: l_api_name CONSTANT VARCHAR2(100) := 'get_tax_line_attr_desc';
8906:
8907: BEGIN
8908: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Taxable_Line_Attr_Desc<-' ||
8909: p_calling_sequence;
8910:
8911: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8912: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
9043: l_api_name CONSTANT VARCHAR2(100) := 'get_default_tax_det_attribs';
9044:
9045: BEGIN
9046:
9047: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Default_Tax_Det_Attribs<-' ||
9048: p_calling_sequence;
9049:
9050: ------------------------------------------------
9051: l_debug_info := 'Step 1: Get Taxation Country';
9070: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9071: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9072: END IF;
9073: -------------------------------------------
9074: l_success := AP_ETAX_UTILITY_PKG.Get_Event_Class_Code (
9075: p_invoice_type_lookup_code => p_doc_type,
9076: p_event_class_code => l_event_class_code,
9077: p_error_code => l_error_code,
9078: p_calling_sequence => l_curr_calling_sequence);
9084: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9085: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9086: END IF;
9087: ----------------------------------------------------
9088: AP_ETAX_UTILITY_PKG.set_tax_security_context (
9089: p_org_id => p_org_id,
9090: p_legal_entity_id => p_legal_entity_id,
9091: p_transaction_date => NVL(p_trx_date, sysdate),
9092: p_related_doc_date => NULL,
9170:
9171: l_curr_calling_sequence := 'Insert_Tax_Distributions <- '||p_calling_sequence;
9172:
9173: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9174: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_ETAX_UTILITY_PKG.Insert_Tax_Distributions(+)');
9175: END IF;
9176:
9177: l_debug_info := 'Step 11: Insert new distributions including variances';
9178:
9541: END IF;
9542: /* bug 10282701 Ends*/
9543:
9544: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9545: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_ETAX_UTILITY_PKG.Insert_Tax_Distributions(-)');
9546: END IF;
9547:
9548: -- Following code was introduce because of bug 7126676
9549: -- This code will generate withholding applicability for
9618: l_api_name CONSTANT VARCHAR2(100) := 'Get_Line_Class';
9619:
9620: BEGIN
9621:
9622: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Line_Class_Code<-' ||
9623: P_calling_sequence;
9624:
9625: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9626: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
9732: AND ROWNUM = 1;
9733:
9734: BEGIN
9735:
9736: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Tax_Already_Dist_Inv<-'||
9737: P_calling_sequence;
9738:
9739: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9740: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
9916: l_pay_awt_group_id ap_invoice_distributions_all.pay_awt_group_id%TYPE;
9917:
9918: BEGIN
9919:
9920: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Prepay_Pay_Awt_Group_Id<-'||
9921: P_calling_sequence;
9922:
9923: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9924: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
10012: l_debug_info VARCHAR2(4000);
10013: l_api_name CONSTANT VARCHAR2(100):='IS_INCLUSIVE_FLAG_UPDATABLE';
10014: BEGIN
10015:
10016: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Inclusive_Flag_Updatable<-'||
10017: P_calling_sequence;
10018:
10019:
10020: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10278: l_debug_info VARCHAR2(4000);
10279: l_api_name CONSTANT VARCHAR2(100):='Is_Inclusive_Tax_Driver_Updatable';
10280: BEGIN
10281:
10282: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Incl_Tax_Driver_Updatable<-'||
10283: P_calling_sequence;
10284:
10285:
10286: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10472: l_debug_info VARCHAR2(2000);
10473: l_distribution_set_id NUMBER ;
10474: BEGIN
10475:
10476: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Default_CCID<-'||
10477: P_calling_sequence;
10478:
10479: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10480: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
11411: l_debug_info VARCHAR2(4000);
11412: l_api_name CONSTANT VARCHAR2(100):='IS_LINE_POSTED_ENCUMBERED';
11413: BEGIN
11414:
11415: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.IS_LINE_POSTED_ENCUMBERED<-'||
11416: P_calling_sequence;
11417:
11418:
11419: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11463: END IF;
11464: END IS_LINE_POSTED_ENCUMBERED;
11465:
11466:
11467: END AP_ETAX_UTILITY_PKG;