eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AP_RETRO_PRICING_PKG dependencies on AP_RETRO_PRICING_UTIL_PKG

Line 951: -- l_ppa_invoice_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;

947: LOOP
948: l_ppa_invoice_dists_list(i) := l_existing_ppa_dist_list(i);
949: l_ppa_invoice_dists_list(i).invoice_id := p_ppa_lines_rec.invoice_id;
950: l_ppa_invoice_dists_list(i).invoice_line_number := p_ppa_lines_rec.line_number;
951: -- l_ppa_invoice_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
952: l_ppa_invoice_dists_list(i).invoice_distribution_id := Null;
953: l_ppa_invoice_dists_list(i).distribution_line_number := i; -- Bug 5525506
954: l_ppa_invoice_dists_list(i).dist_match_type := 'ADJUSTMENT_CORRECTION';
955: l_ppa_invoice_dists_list(i).distribution_class := 'PERMANENT';

Line 1276: l_ppa_lines_rec.line_number := AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(

1272: --
1273: l_ppa_lines_rec := l_existing_ppa_lines_rec;
1274: --
1275: l_ppa_lines_rec.invoice_id := p_ppa_invoice_rec.invoice_id;
1276: l_ppa_lines_rec.line_number := AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(
1277: p_ppa_invoice_Rec.invoice_id) + 1;
1278: l_ppa_lines_rec.line_source := 'ADJUSTMENT CORRECTION';
1279: l_ppa_lines_rec.line_type_lookup_code := 'RETROITEM';
1280: l_ppa_lines_rec.requester_id := NVL(p_instruction_lines_rec.requester_id,

Line 1340: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(

1336: ------------------------------------------------------------------------
1337: debug_info := 'Reverse_Existing_Ppa Step 3. Insert temp PPA Reversal '
1338: ||'Line';
1339: ------------------------------------------------------------------------
1340: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(
1341: l_ppa_lines_rec,
1342: current_calling_sequence) <> TRUE) THEN
1343: --
1344: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 1450: AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(

1446: ---------------------------------------------------------------------------
1447: l_adj_lines_rec := p_lines_rec;
1448: l_adj_lines_rec.line_number := AP_INVOICES_UTILITY_PKG.get_max_inv_line_num(
1449: p_lines_rec.invoice_id) +
1450: AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(
1451: p_lines_rec.invoice_id) + 1;
1452: IF p_correcting = 'IPV' THEN
1453: l_adj_lines_rec.line_type_lookup_code := 'RETROITEM' ;
1454: --'Redistribution of IPV due to Retroactive Pricing of Purchase Order'

Line 1492: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(

1488: ---------------------------------------------------------------------------
1489: debug_info := 'Create_Zero_Amt_Adj_Line Step 2. Insert the Adj Line in '
1490: ||'the Global Temp Table';
1491: ----------------------------------------------------------------------------
1492: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(
1493: l_adj_lines_rec,
1494: current_calling_sequence) <> TRUE) THEN
1495: --
1496: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 1710: l_ppa_lines_rec.line_number := AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(

1706: ---------------------------------------------------------------------------
1707: -- Compute PPA Line
1708: l_ppa_lines_rec := p_adj_lines_rec;
1709: l_ppa_lines_rec.invoice_id := p_ppa_invoice_rec.invoice_id;
1710: l_ppa_lines_rec.line_number := AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(
1711: p_ppa_invoice_rec.invoice_id) + 1;
1712: l_ppa_lines_rec.corrected_inv_id := p_adj_lines_rec.invoice_id;
1713: l_ppa_lines_rec.corrected_line_number := p_adj_lines_rec.line_number;
1714: --

Line 1719: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(

1715: ----------------------------------------------------------------------------
1716: debug_info := 'Create_Adjustment_Corrections Step 2. Insert the Adj Line in the'
1717: ||' Global Temp Table';
1718: ----------------------------------------------------------------------------
1719: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(
1720: l_ppa_lines_rec,
1721: current_calling_sequence) <> TRUE) THEN
1722: --
1723: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 1749: -- l_ppa_invoice_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;

1745: l_ppa_invoice_dists_list(i) := l_adj_dists_list(i);
1746: --
1747: l_ppa_invoice_dists_list(i).invoice_id := l_ppa_lines_rec.invoice_id;
1748: l_ppa_invoice_dists_list(i).invoice_line_number := l_ppa_lines_rec.line_number;
1749: -- l_ppa_invoice_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
1750: l_ppa_invoice_dists_list(i).invoice_distribution_id := Null;
1751: l_ppa_invoice_dists_list(i).distribution_line_number := i;
1752: l_ppa_invoice_dists_list(i).amount := (-1)*l_adj_dists_list(i).amount;
1753: l_ppa_invoice_dists_list(i).base_amount := (-1)*l_adj_dists_list(i).base_amount;

Line 2035: IF (AP_RETRO_PRICING_UTIL_PKG.Erv_Dists_exists(

2031:
2032: --------------------------------------------------------------------------
2033: debug_info := 'Reverse_Redistribute_IPV Step 3. Check IF Erv Dists Exist';
2034: --------------------------------------------------------------------------
2035: IF (AP_RETRO_PRICING_UTIL_PKG.Erv_Dists_exists(
2036: p_lines_rec.invoice_id,
2037: p_lines_rec.line_number,
2038: p_erv_dists_exist) <> TRUE) THEN
2039: --

Line 2081: --l_adj_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;

2077: --IPV Adj Dist copies Existing IPV Dist
2078: l_adj_dists_list(i) := l_ipv_dists_list(i);
2079: l_adj_dists_list(i).invoice_id := l_adj_lines_rec.invoice_id;
2080: l_adj_dists_list(i).invoice_line_number := l_adj_lines_rec.line_number;
2081: --l_adj_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
2082: l_adj_dists_list(i).invoice_distribution_id := Null;
2083: l_adj_dists_list(i).distribution_line_number := i;
2084: l_adj_dists_list(i).line_type_lookup_code := 'IPV';
2085: l_adj_dists_list(i).dist_match_type := 'ADJUSTMENT_CORRECTION';

Line 2127: --l_adj_dists_list(i+1).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;

2123: ---------------
2124: -- Expense Dist
2125: ---------------
2126: l_adj_dists_list(i+1) := l_adj_dists_list(i);
2127: --l_adj_dists_list(i+1).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
2128: l_adj_dists_list(i+1).invoice_distribution_id := Null;
2129: l_adj_dists_list(i+1).distribution_line_number := i+1;
2130: --
2131: IF p_lines_rec.match_type = 'PRICE_CORRECTION' THEN

Line 2132: l_adj_dists_list(i+1).line_type_lookup_code := AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(

2128: l_adj_dists_list(i+1).invoice_distribution_id := Null;
2129: l_adj_dists_list(i+1).distribution_line_number := i+1;
2130: --
2131: IF p_lines_rec.match_type = 'PRICE_CORRECTION' THEN
2132: l_adj_dists_list(i+1).line_type_lookup_code := AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(
2133: l_ipv_dists_list(i).corrected_invoice_dist_id);
2134: l_adj_dists_list(i+1).dist_code_combination_id :=
2135: AP_RETRO_PRICING_UTIL_PKG.get_ccid(l_ipv_dists_list(i).corrected_invoice_dist_id);
2136:

Line 2135: AP_RETRO_PRICING_UTIL_PKG.get_ccid(l_ipv_dists_list(i).corrected_invoice_dist_id);

2131: IF p_lines_rec.match_type = 'PRICE_CORRECTION' THEN
2132: l_adj_dists_list(i+1).line_type_lookup_code := AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(
2133: l_ipv_dists_list(i).corrected_invoice_dist_id);
2134: l_adj_dists_list(i+1).dist_code_combination_id :=
2135: AP_RETRO_PRICING_UTIL_PKG.get_ccid(l_ipv_dists_list(i).corrected_invoice_dist_id);
2136:
2137: ELSE --p_lines_rec.match_type IN ('ITEM_TO_PO', 'ITEM_TO_RECEIPT', 'QTY_CORRECTION') THEN
2138: l_adj_dists_list(i+1).line_type_lookup_code := AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(
2139: l_ipv_dists_list(i).related_id);

Line 2138: l_adj_dists_list(i+1).line_type_lookup_code := AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(

2134: l_adj_dists_list(i+1).dist_code_combination_id :=
2135: AP_RETRO_PRICING_UTIL_PKG.get_ccid(l_ipv_dists_list(i).corrected_invoice_dist_id);
2136:
2137: ELSE --p_lines_rec.match_type IN ('ITEM_TO_PO', 'ITEM_TO_RECEIPT', 'QTY_CORRECTION') THEN
2138: l_adj_dists_list(i+1).line_type_lookup_code := AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(
2139: l_ipv_dists_list(i).related_id);
2140: l_adj_dists_list(i+1).dist_code_combination_id :=
2141: AP_RETRO_PRICING_UTIL_PKG.get_ccid(l_ipv_dists_list(i).related_id);
2142: --

Line 2141: AP_RETRO_PRICING_UTIL_PKG.get_ccid(l_ipv_dists_list(i).related_id);

2137: ELSE --p_lines_rec.match_type IN ('ITEM_TO_PO', 'ITEM_TO_RECEIPT', 'QTY_CORRECTION') THEN
2138: l_adj_dists_list(i+1).line_type_lookup_code := AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(
2139: l_ipv_dists_list(i).related_id);
2140: l_adj_dists_list(i+1).dist_code_combination_id :=
2141: AP_RETRO_PRICING_UTIL_PKG.get_ccid(l_ipv_dists_list(i).related_id);
2142: --
2143: END IF;
2144: --
2145: l_adj_dists_list(i+1).amount := l_ipv_dists_list(i).amount;

Line 2173: --l_adj_dists_list(i+2).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;

2169: -------------
2170: -- Only if the base invoice has ERV create the Erv Dist
2171: IF l_rows=3 THEN
2172: l_adj_dists_list(i+2) := l_adj_dists_list(i+1);
2173: --l_adj_dists_list(i+2).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
2174: l_adj_dists_list(i+2).invoice_distribution_id := Null;
2175: l_adj_dists_list(i+2).distribution_line_number := i+2;
2176:
2177: l_adj_dists_list(i+2).line_type_lookup_code := 'ERV';

Line 2185: l_rcv_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(

2181:
2182: l_adj_dists_list(i+2).amount := 0;
2183: --
2184: IF (p_lines_rec.rcv_transaction_id IS NOT NULL) THEN
2185: l_rcv_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(
2186: 'RECEIPT',
2187: p_lines_rec.rcv_transaction_id);
2188: l_adj_dists_list(i+2).base_amount :=
2189: AP_UTILITIES_PKG.ap_round_currency(

Line 2193: l_po_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(

2189: AP_UTILITIES_PKG.ap_round_currency(
2190: l_ipv_dists_list(i+2).amount*(l_original_exchange_rate - l_rcv_exchange_rate),
2191: p_base_currency_code);
2192: ELSE
2193: l_po_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(
2194: 'PO',
2195: p_lines_rec.po_header_id);
2196: l_adj_dists_list(i+2).base_amount :=
2197: AP_UTILITIES_PKG.ap_round_currency(

Line 2205: l_adj_dists_list(i+2).dist_code_combination_id := AP_RETRO_PRICING_UTIL_PKG.get_erv_ccid(

2201: -- Adjust Expense Dist Amount
2202:
2203: l_adj_dists_list(i+2).rounding_amt := 0;
2204:
2205: l_adj_dists_list(i+2).dist_code_combination_id := AP_RETRO_PRICING_UTIL_PKG.get_erv_ccid(
2206: l_adj_dists_list(i+2).corrected_invoice_dist_id);
2207: -- l_adj_dists_list(i+2).corrected_invoice_dist_id := l_ipv_dists_list(i).invoice_distribution_id;
2208: l_adj_dists_list(i+2).unit_price := NULL;
2209:

Line 2500: IF (AP_RETRO_PRICING_UTIL_PKG.Terv_Dists_exists(

2496: ---------------------------------------------------------------------------
2497: debug_info := 'Reverse_Redistribute_TIPV Step 2. Check IF Terv Dists '
2498: ||'exists ';
2499: --------------------------------------------------------------------------
2500: IF (AP_RETRO_PRICING_UTIL_PKG.Terv_Dists_exists(
2501: p_tax_lines_rec.invoice_id,
2502: p_tax_lines_rec.line_number,
2503: l_terv_dists_exist) <> TRUE) THEN
2504: --

Line 2545: --l_tipv_adj_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;

2541: --TIPV Adj Dist copies Existing TIPV Dist
2542: l_tipv_adj_dists_list(i) := l_tipv_dists_list(i);
2543: l_tipv_adj_dists_list(i).invoice_id := l_tipv_adj_lines_rec.invoice_id;
2544: l_tipv_adj_dists_list(i).invoice_line_number := l_tipv_adj_lines_rec.line_number;
2545: --l_tipv_adj_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
2546: l_tipv_adj_dists_list(i).invoice_distribution_id := Null;
2547: l_tipv_adj_dists_list(i).distribution_line_number := i;
2548: l_tipv_adj_dists_list(i).line_type_lookup_code := 'TIPV';
2549: l_tipv_adj_dists_list(i).dist_match_type := 'ADJUSTMENT_CORRECTION';

Line 2590: --l_tipv_adj_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;

2586: --------------------------
2587: -- NonRecoverable Tax Dist
2588: ----------------------------
2589: l_tipv_adj_dists_list(i+1) := l_tipv_adj_dists_list(i);
2590: --l_tipv_adj_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
2591: l_tipv_adj_dists_list(i+1).invoice_distribution_id := Null;
2592: l_tipv_adj_dists_list(i+1).distribution_line_number := i+1;
2593:
2594: l_tipv_adj_dists_list(i+1).line_type_lookup_code := 'NONREC_TAX';

Line 2612: AP_RETRO_PRICING_UTIL_PKG.Get_corresponding_retro_DistId(

2608: l_tipv_adj_dists_list(i+1).related_id := NULL;
2609: END IF;
2610:
2611: l_tipv_adj_dists_list(i+1).charge_applicable_to_dist_id :=
2612: AP_RETRO_PRICING_UTIL_PKG.Get_corresponding_retro_DistId(
2613: p_lines_rec.match_type,
2614: l_tipv_dists_list(i+1).charge_applicable_to_dist_id);
2615:
2616: l_tipv_adj_dists_list(i+1).dist_code_combination_id :=

Line 2617: AP_RETRO_PRICING_UTIL_PKG.Get_ccid(

2613: p_lines_rec.match_type,
2614: l_tipv_dists_list(i+1).charge_applicable_to_dist_id);
2615:
2616: l_tipv_adj_dists_list(i+1).dist_code_combination_id :=
2617: AP_RETRO_PRICING_UTIL_PKG.Get_ccid(
2618: l_tipv_dists_list(i+1).charge_applicable_to_dist_id); --Bug5485084 replaced l_tipv_adj_dists_list with l_tipv_dists_list
2619:
2620: -- Bug 5509712
2621: l_tipv_adj_dists_list(i+1).po_distribution_id := l_tipv_dists_list(i).po_distribution_id;

Line 2631: -- AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;

2627: -- Only if the base invoice has ERV create the Terv Dist
2628: IF l_rows=3 THEN
2629: l_tipv_adj_dists_list(i+2) := l_tipv_adj_dists_list(i+1);
2630: --l_tipv_adj_dists_list(i+2).invoice_distribution_id :=
2631: -- AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
2632: l_tipv_adj_dists_list(i+2).invoice_distribution_id := Null;
2633: l_tipv_adj_dists_list(i+2).distribution_line_number := i+2;
2634:
2635: l_tipv_adj_dists_list(i+2).line_type_lookup_code := 'TERV';

Line 2640: l_rcv_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(

2636: l_tipv_adj_dists_list(i+2).amount := 0;
2637: --
2638: --NOTE: Exchange Rate is always calculated w.r.t base match line
2639: IF (p_lines_rec.rcv_transaction_id IS NOT NULL) THEN
2640: l_rcv_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(
2641: 'RECEIPT',
2642: p_lines_rec.rcv_transaction_id);
2643: l_tipv_adj_dists_list(i+2).base_amount :=
2644: AP_UTILITIES_PKG.ap_round_currency(

Line 2648: l_po_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(

2644: AP_UTILITIES_PKG.ap_round_currency(
2645: l_tipv_dists_list(i+2).amount*(p_original_exchange_rate - l_rcv_exchange_rate),
2646: p_base_currency_code);
2647: ELSE
2648: l_po_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(
2649: 'PO',
2650: p_lines_rec.po_header_id);
2651: l_tipv_adj_dists_list(i+2).base_amount :=
2652: AP_UTILITIES_PKG.ap_round_currency(

Line 2663: l_tipv_adj_dists_list(i+2).dist_code_combination_id := AP_RETRO_PRICING_UTIL_PKG.get_terv_ccid(

2659: --l_tipv_adj_dists_list(i+2).related_id := l_tipv_adj_dists_list(i+1).invoice_distribution_id; --or related_dist_id
2660: l_tipv_adj_dists_list(i+2).charge_applicable_to_dist_id :=
2661: l_tipv_adj_dists_list(i+1).charge_applicable_to_dist_id;
2662:
2663: l_tipv_adj_dists_list(i+2).dist_code_combination_id := AP_RETRO_PRICING_UTIL_PKG.get_terv_ccid(
2664: l_tipv_adj_dists_list(i+2).corrected_invoice_dist_id);
2665:
2666: -- Bug 5509712
2667: l_tipv_adj_dists_list(i+2).po_distribution_id := l_tipv_dists_list(i).po_distribution_id;

Line 3034: l_ppa_lines_rec.line_number := AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(

3030: ---------------------------------------------------------------------------
3031: -- Compute PPA Line
3032: l_ppa_lines_rec := p_lines_rec;
3033: l_ppa_lines_rec.invoice_id := p_ppa_invoice_rec.invoice_id;
3034: l_ppa_lines_rec.line_number := AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(
3035: p_ppa_invoice_rec.invoice_id) + 1;
3036: l_ppa_lines_rec.line_type_lookup_code := 'RETROITEM';
3037: l_ppa_lines_rec.requester_id := NVL(p_instruction_lines_rec.requester_id, p_lines_rec.requester_id);
3038: l_ppa_lines_rec.description := NVL(p_instruction_lines_rec.description, p_lines_rec.description);

Line 3079: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(

3075: l_ppa_lines_rec.instruction_id := p_instruction_id;
3076: l_ppa_lines_rec.adj_type := 'PPA';
3077:
3078: debug_info := 'Insert the PPA Line in the Global Temp Table';
3079: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(
3080: l_ppa_lines_rec,
3081: current_calling_sequence) <> TRUE) THEN
3082: --
3083: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 3111: --l_ppa_invoice_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;

3107: l_ppa_invoice_dists_list(i) := l_item_dists_list(i);
3108:
3109: l_ppa_invoice_dists_list(i).invoice_id := l_ppa_lines_rec.invoice_id;
3110: l_ppa_invoice_dists_list(i).invoice_line_number := l_ppa_lines_rec.line_number;
3111: --l_ppa_invoice_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
3112: l_ppa_invoice_dists_list(i).invoice_distribution_id := Null;
3113: l_ppa_invoice_dists_list(i).distribution_line_number := i;
3114: /*select max(distribution_line_number) + 1
3115: into l_ppa_invoice_dists_list(i).distribution_line_number

Line 3120: l_ppa_invoice_dists_list(i).line_type_lookup_code := AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(

3116: from ap_ppa_invoice_dists_gt
3117: where invoice_id = l_ppa_lines_rec.invoice_id
3118: and invoice_line_number = l_ppa_lines_rec.line_number; */
3119: -- line_type_lookup_code = 'RETROITEM' for Price Corrections
3120: l_ppa_invoice_dists_list(i).line_type_lookup_code := AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(
3121: l_item_dists_list(i).invoice_distribution_id);
3122: l_ppa_invoice_dists_list(i).dist_match_type := 'PO_PRICE_ADJUSTMENT';
3123: l_ppa_invoice_dists_list(i).distribution_class := 'PERMANENT';
3124: l_ppa_invoice_dists_list(i).accounting_date := SYSDATE;

Line 3358: IF (AP_RETRO_PRICING_UTIL_PKG.Create_ppa_Invoice(

3354: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3355: END IF;
3356:
3357:
3358: IF (AP_RETRO_PRICING_UTIL_PKG.Create_ppa_Invoice(
3359: p_instruction_rec.invoice_id,
3360: l_base_match_lines_rec.invoice_id,
3361: l_base_match_lines_rec.line_number,
3362: p_batch_id,

Line 3388: IF (AP_RETRO_PRICING_UTIL_PKG.ppa_already_exists(

3384: AP_IMPORT_UTILITIES_PKG.Print(
3385: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3386: END IF;
3387: --------------------------------------------------------------------------
3388: IF (AP_RETRO_PRICING_UTIL_PKG.ppa_already_exists(
3389: l_base_match_lines_rec.invoice_id,
3390: l_base_match_lines_rec.line_number,
3391: l_ppa_exists, --OUT
3392: l_existing_ppa_inv_id --OUT

Line 3466: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(

3462: -- If this base matched line has already been Adjusted by a line
3463: -- then no adjustments are required on this line. However adjustments
3464: -- may be required on the PC or QC for this base matched line
3465: --
3466: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(
3467: l_base_match_lines_rec.invoice_id,
3468: l_base_match_lines_rec.line_number,
3469: l_ipv_dists_exist --OUT
3470: ) <> TRUE) THEN

Line 3489: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(

3485: AP_IMPORT_UTILITIES_PKG.Print(
3486: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3487: END IF;
3488: -------------------------------------------------------------------------
3489: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(
3490: l_base_match_lines_rec.invoice_id,
3491: l_base_match_lines_rec.line_number,
3492: l_adj_corr_exists) <> TRUE) THEN
3493: --

Line 3541: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(

3537: AP_IMPORT_UTILITIES_PKG.Print(
3538: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3539: END IF;
3540: ----------------------------------------------------------------------
3541: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(
3542: l_base_match_lines_rec.invoice_id,
3543: l_base_match_lines_rec.line_number,
3544: l_tax_lines_list,
3545: l_tipv_exist) <> TRUE) THEN

Line 3632: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(

3628: AP_IMPORT_UTILITIES_PKG.Print(
3629: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3630: END IF;
3631: --
3632: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(
3633: l_base_match_lines_rec.invoice_id,
3634: l_base_match_lines_rec.line_number,
3635: 'PRICE_CORRECTIONS',
3636: l_pc_lines_list,

Line 3665: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(

3661: AP_IMPORT_UTILITIES_PKG.Print(
3662: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3663: END IF;
3664: ---------------------------------------------------------------------
3665: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(
3666: l_pc_lines_rec.invoice_id,
3667: l_pc_lines_rec.line_number,
3668: l_ipv_dists_exist) <> TRUE) THEN
3669: --

Line 3686: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(

3682: AP_IMPORT_UTILITIES_PKG.Print(
3683: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3684: END IF;
3685: ---------------------------------------------------------------------
3686: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(
3687: l_pc_lines_rec.invoice_id,
3688: l_pc_lines_rec.line_number,
3689: l_adj_corr_exists) <> TRUE) THEN
3690: --

Line 3741: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(

3737: AP_IMPORT_UTILITIES_PKG.Print(
3738: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3739: END IF;
3740: -------------------------------------------------------------------
3741: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(
3742: l_pc_lines_rec.invoice_id,
3743: l_pc_lines_rec.line_number,
3744: l_tax_lines_list,
3745: l_tipv_exist) <> TRUE) THEN

Line 3817: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(

3813: AP_IMPORT_UTILITIES_PKG.Print(
3814: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3815: END IF;
3816: --
3817: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(
3818: l_base_match_lines_rec.invoice_id,
3819: l_base_match_lines_rec.line_number,
3820: 'QUANTITY_CORRECTIONS',
3821: l_qc_lines_list,

Line 3845: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(

3841: ---------------------------------------------------------------------
3842: debug_info := 'Process Retroprice Adjustments Step 18. Check if IPV '
3843: ||'Dists Exist for QC';
3844: ---------------------------------------------------------------------
3845: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(
3846: l_qc_lines_rec.invoice_id,
3847: l_qc_lines_rec.line_number,
3848: l_ipv_dists_exist) <> TRUE) THEN
3849: --

Line 3862: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(

3858: -------------------------------------------------------------------------
3859: debug_info := 'Process Retroprice Adjustments Step 19. Check if Adj '
3860: ||'Corr Exists for QC';
3861: -------------------------------------------------------------------------
3862: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(
3863: l_qc_lines_rec.invoice_id,
3864: l_qc_lines_rec.line_number,
3865: l_adj_corr_exists) <> TRUE) THEN
3866: --

Line 3910: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(

3906: --------------------------------------------------------------------
3907: debug_info := 'Process Retroprice Adjustments Step 21. '||
3908: 'Check if TIPV Dists Exists for the QC Line';
3909: -------------------------------------------------------------------
3910: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(
3911: l_qc_lines_rec.invoice_id,
3912: l_qc_lines_rec.line_number,
3913: l_tax_lines_list,
3914: l_tipv_exist) <> TRUE) THEN

Line 6434: IF (AP_RETRO_PRICING_UTIL_PKG.Are_Original_Invoices_Valid(

6430: AP_IMPORT_UTILITIES_PKG.Print(
6431: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6432: END IF;
6433: --
6434: IF (AP_RETRO_PRICING_UTIL_PKG.Are_Original_Invoices_Valid(
6435: p_instruction_rec.invoice_id,
6436: p_instruction_rec.org_id,
6437: l_orig_invoices_valid) <> TRUE) THEN
6438: --

Line 6479: IF (AP_RETRO_PRICING_UTIL_PKG.Are_Holds_Ok(

6475: AP_IMPORT_UTILITIES_PKG.Print(
6476: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6477: END IF;
6478: --
6479: IF (AP_RETRO_PRICING_UTIL_PKG.Are_Holds_Ok(
6480: p_instruction_rec.invoice_id,
6481: p_instruction_rec.org_id,
6482: l_orig_invoices_valid) <> TRUE) THEN
6483: --

Line 6525: IF (AP_RETRO_PRICING_UTIL_PKG.Is_Sequence_Assigned(

6521: AP_IMPORT_UTILITIES_PKG.Print(
6522: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6523: END IF;
6524: --
6525: IF (AP_RETRO_PRICING_UTIL_PKG.Is_Sequence_Assigned(
6526: 'PO ADJ INV',
6527: p_instruction_rec.set_of_books_id,
6528: l_orig_invoices_valid) <> TRUE) THEN
6529: --

Line 6604: IF (AP_RETRO_PRICING_UTIL_PKG.Get_Base_Match_Lines(

6600: AP_IMPORT_UTILITIES_PKG.Print(
6601: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6602: END IF;
6603:
6604: IF (AP_RETRO_PRICING_UTIL_PKG.Get_Base_Match_Lines(
6605: p_instruction_rec.invoice_id,
6606: l_instruction_lines_list(i).invoice_line_id,
6607: l_base_match_lines_list,
6608: current_calling_sequence) <> TRUE) THEN

Line 6668: SET invoice_amount = AP_RETRO_PRICING_UTIL_PKG.get_invoice_amount(

6664: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6665: END IF;
6666:
6667: UPDATE AP_ppa_invoices_gt H
6668: SET invoice_amount = AP_RETRO_PRICING_UTIL_PKG.get_invoice_amount(
6669: invoice_id,
6670: invoice_currency_code)
6671: WHERE instruction_id = p_instruction_rec.invoice_id;
6672:

Line 6814: IF (AP_RETRO_PRICING_UTIL_PKG.ppa_already_exists(

6810: AP_IMPORT_UTILITIES_PKG.Print(
6811: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6812: END IF;
6813:
6814: IF (AP_RETRO_PRICING_UTIL_PKG.ppa_already_exists(
6815: l_base_match_lines_rec.invoice_id,
6816: l_base_match_lines_rec.line_number,
6817: l_ppa_exists, --OUT
6818: l_existing_ppa_inv_id --OUT