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 969: l_ppa_invoice_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;

965: l_ppa_invoice_dists_list(i) := l_existing_ppa_dist_list(i);
966: l_ppa_invoice_dists_list(i).invoice_id := p_ppa_lines_rec.invoice_id;
967: l_ppa_invoice_dists_list(i).invoice_line_number := p_ppa_lines_rec.line_number;
968: --Bug#10416960
969: l_ppa_invoice_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
970: -- l_ppa_invoice_dists_list(i).invoice_distribution_id := Null;
971: l_ppa_invoice_dists_list(i).distribution_line_number := i; -- Bug 5525506
972: --Bug#10416960
973: --l_ppa_invoice_dists_list(i).dist_match_type := 'ADJUSTMENT_CORRECTION';

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

1306: --
1307: l_ppa_lines_rec := l_existing_ppa_lines_rec;
1308: --
1309: l_ppa_lines_rec.invoice_id := p_ppa_invoice_rec.invoice_id;
1310: l_ppa_lines_rec.line_number := AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(
1311: p_ppa_invoice_Rec.invoice_id) + 1;
1312: l_ppa_lines_rec.line_source := 'ADJUSTMENT CORRECTION';
1313: l_ppa_lines_rec.line_type_lookup_code := 'RETROITEM';
1314: l_ppa_lines_rec.requester_id := NVL(p_instruction_lines_rec.requester_id,

Line 1374: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(

1370: ------------------------------------------------------------------------
1371: debug_info := 'Reverse_Existing_Ppa Step 3. Insert temp PPA Reversal '
1372: ||'Line';
1373: ------------------------------------------------------------------------
1374: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(
1375: l_ppa_lines_rec,
1376: current_calling_sequence) <> TRUE) THEN
1377: --
1378: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 1484: AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(

1480: ---------------------------------------------------------------------------
1481: l_adj_lines_rec := p_lines_rec;
1482: l_adj_lines_rec.line_number := AP_INVOICES_UTILITY_PKG.get_max_inv_line_num(
1483: p_lines_rec.invoice_id) +
1484: AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(
1485: p_lines_rec.invoice_id) + 1;
1486: IF p_correcting = 'IPV' THEN
1487: l_adj_lines_rec.line_type_lookup_code := 'RETROITEM' ;
1488: --'Redistribution of IPV due to Retroactive Pricing of Purchase Order'

Line 1526: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(

1522: ---------------------------------------------------------------------------
1523: debug_info := 'Create_Zero_Amt_Adj_Line Step 2. Insert the Adj Line in '
1524: ||'the Global Temp Table';
1525: ----------------------------------------------------------------------------
1526: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(
1527: l_adj_lines_rec,
1528: current_calling_sequence) <> TRUE) THEN
1529: --
1530: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

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

1750: ---------------------------------------------------------------------------
1751: -- Compute PPA Line
1752: l_ppa_lines_rec := p_adj_lines_rec;
1753: l_ppa_lines_rec.invoice_id := p_ppa_invoice_rec.invoice_id;
1754: l_ppa_lines_rec.line_number := AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(
1755: p_ppa_invoice_rec.invoice_id) + 1;
1756: l_ppa_lines_rec.corrected_inv_id := p_adj_lines_rec.invoice_id;
1757: l_ppa_lines_rec.corrected_line_number := p_adj_lines_rec.line_number;
1758: --

Line 1764: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(

1760: debug_info := 'Create_Adjustment_Corrections Step 2. Insert the Adj Line in the'
1761: ||' Global Temp Table';
1762: ----------------------------------------------------------------------------
1763:
1764: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(
1765: l_ppa_lines_rec,
1766: current_calling_sequence) <> TRUE) THEN
1767: --
1768: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

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

1792: --
1793: l_ppa_invoice_dists_list(i).invoice_id := l_ppa_lines_rec.invoice_id;
1794: l_ppa_invoice_dists_list(i).invoice_line_number := l_ppa_lines_rec.line_number;
1795: --Bug#10416960
1796: l_ppa_invoice_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
1797: --l_ppa_invoice_dists_list(i).invoice_distribution_id := Null;
1798: l_ppa_invoice_dists_list(i).corrected_invoice_dist_id := l_adj_dists_list(i).invoice_distribution_id;
1799: --End Bug#10416960
1800: l_ppa_invoice_dists_list(i).distribution_line_number := i;

Line 1810: AP_RETRO_PRICING_UTIL_PKG.Get_corresponding_retro_DistId(

1806: --
1807: --Bug#10416960
1808: IF(l_ppa_invoice_dists_list(i).line_type_lookup_code not in ('RETROEXPENSE', 'RETROACCRUAL', 'ERV')) THEN
1809: l_ppa_invoice_dists_list(i).charge_applicable_to_dist_id :=
1810: AP_RETRO_PRICING_UTIL_PKG.Get_corresponding_retro_DistId(
1811: l_ppa_lines_rec.match_type,
1812: l_adj_dists_list(i).charge_applicable_to_dist_id);
1813: END IF;
1814:

Line 2117: IF (AP_RETRO_PRICING_UTIL_PKG.Erv_Dists_exists(

2113:
2114: --------------------------------------------------------------------------
2115: debug_info := 'Reverse_Redistribute_IPV Step 3. Check IF Erv Dists Exist';
2116: --------------------------------------------------------------------------
2117: IF (AP_RETRO_PRICING_UTIL_PKG.Erv_Dists_exists(
2118: p_lines_rec.invoice_id,
2119: p_lines_rec.line_number,
2120: p_erv_dists_exist) <> TRUE) THEN
2121: --

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

2166: l_adj_dists_list(i) := l_ipv_dists_list(i);
2167: l_adj_dists_list(i).invoice_id := l_adj_lines_rec.invoice_id;
2168: l_adj_dists_list(i).invoice_line_number := l_adj_lines_rec.line_number;
2169: --Bug#10416960
2170: l_adj_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
2171: --l_adj_dists_list(i).invoice_distribution_id := Null;
2172: l_adj_dists_list(i).distribution_line_number := i;
2173: --Bug#10416960
2174: -- l_adj_dists_list(i).line_type_lookup_code := 'IPV';

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

2222: -- Expense Dist
2223: ---------------
2224: l_adj_dists_list(i+1) := l_adj_dists_list(i);
2225: --Bug#10416960
2226: l_adj_dists_list(i+1).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
2227: --l_adj_dists_list(i+1).invoice_distribution_id := Null;
2228: l_adj_dists_list(i+1).distribution_line_number := i+1;
2229: --
2230:

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

2232:
2233: IF(l_adj_dists_list(i).line_type_lookup_code='IPV'
2234: AND p_lines_rec.match_type = 'PRICE_CORRECTION') THEN
2235: l_adj_dists_list(i+1).dist_code_combination_id :=
2236: AP_RETRO_PRICING_UTIL_PKG.get_ccid(l_ipv_dists_list(i).corrected_invoice_dist_id);
2237: ELSE
2238: --ERV case. For ERV always related_id only get stamped
2239: --IPV for base match case
2240: l_adj_dists_list(i+1).dist_code_combination_id :=

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

2237: ELSE
2238: --ERV case. For ERV always related_id only get stamped
2239: --IPV for base match case
2240: l_adj_dists_list(i+1).dist_code_combination_id :=
2241: AP_RETRO_PRICING_UTIL_PKG.get_ccid(l_ipv_dists_list(i).related_id);
2242: END IF;
2243:
2244:
2245: IF(l_adj_dists_list(i).line_type_lookup_code='IPV'

Line 2248: AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(

2244:
2245: IF(l_adj_dists_list(i).line_type_lookup_code='IPV'
2246: AND p_lines_rec.match_type = 'PRICE_CORRECTION') THEN
2247: l_adj_dists_list(i+1).line_type_lookup_code :=
2248: AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(
2249: l_ipv_dists_list(i).corrected_invoice_dist_id);
2250: ELSIF (l_adj_dists_list(i).line_type_lookup_code='IPV'
2251: AND p_lines_rec.match_type <> 'PRICE_CORRECTION') THEN
2252: l_adj_dists_list(i+1).line_type_lookup_code :=

Line 2253: AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(

2249: l_ipv_dists_list(i).corrected_invoice_dist_id);
2250: ELSIF (l_adj_dists_list(i).line_type_lookup_code='IPV'
2251: AND p_lines_rec.match_type <> 'PRICE_CORRECTION') THEN
2252: l_adj_dists_list(i+1).line_type_lookup_code :=
2253: AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(
2254: l_ipv_dists_list(i).related_id);
2255: ELSE
2256: --Non IPV(ERV) case. Same as previous line type
2257: l_adj_dists_list(i+1).line_type_lookup_code := l_adj_dists_list(i).line_type_lookup_code;

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

2293: and p_lines_rec.match_type <> 'PRICE_CORRECTION') THEN
2294:
2295: l_adj_dists_list(i+2) := l_adj_dists_list(i+1);
2296: --Bug#10416960
2297: l_adj_dists_list(i+2).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
2298: --l_adj_dists_list(i+2).invoice_distribution_id := Null;
2299: l_adj_dists_list(i+2).distribution_line_number := i+2;
2300:
2301: l_adj_dists_list(i+2).line_type_lookup_code := 'ERV';

Line 2313: l_rcv_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(

2309:
2310: l_adj_dists_list(i+2).amount := 0;
2311: --
2312: IF (p_lines_rec.rcv_transaction_id IS NOT NULL) THEN
2313: l_rcv_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(
2314: 'RECEIPT',
2315: p_lines_rec.rcv_transaction_id);
2316: --Bug#10416960
2317: l_adj_dists_list(i+2).base_amount :=

Line 2322: l_po_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(

2318: AP_UTILITIES_PKG.ap_round_currency(
2319: l_ipv_dists_list(i).amount*(l_original_exchange_rate - l_rcv_exchange_rate),
2320: p_base_currency_code);
2321: ELSE
2322: l_po_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(
2323: 'PO',
2324: l_adj_dists_list(i).po_distribution_id );
2325: /*Bug#10416960 p_lines_rec.po_header_id */
2326:

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

2339: END IF;
2340:
2341: l_adj_dists_list(i+2).rounding_amt := 0;
2342:
2343: l_adj_dists_list(i+2).dist_code_combination_id := AP_RETRO_PRICING_UTIL_PKG.get_erv_ccid(
2344: l_adj_dists_list(i+2).corrected_invoice_dist_id);
2345: -- l_adj_dists_list(i+2).corrected_invoice_dist_id := l_ipv_dists_list(i).invoice_distribution_id;
2346: l_adj_dists_list(i+2).unit_price := NULL;
2347:

Line 2669: IF (AP_RETRO_PRICING_UTIL_PKG.Terv_Dists_exists(

2665: ---------------------------------------------------------------------------
2666: debug_info := 'Reverse_Redistribute_TIPV Step 2. Check IF Terv Dists '
2667: ||'exists ';
2668: --------------------------------------------------------------------------
2669: IF (AP_RETRO_PRICING_UTIL_PKG.Terv_Dists_exists(
2670: p_tax_lines_rec.invoice_id,
2671: p_tax_lines_rec.line_number,
2672: l_terv_dists_exist) <> TRUE) THEN
2673: --

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

2717: l_tipv_adj_dists_list(i) := l_tipv_dists_list(i);
2718: l_tipv_adj_dists_list(i).invoice_id := l_tipv_adj_lines_rec.invoice_id;
2719: l_tipv_adj_dists_list(i).invoice_line_number := l_tipv_adj_lines_rec.line_number;
2720: --Bug#10416960
2721: l_tipv_adj_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
2722: --l_tipv_adj_dists_list(i).invoice_distribution_id := Null;
2723: l_tipv_adj_dists_list(i).distribution_line_number := i;
2724: --Bug#10416960
2725: --l_tipv_adj_dists_list(i).line_type_lookup_code := 'TIPV';

Line 2754: AP_RETRO_PRICING_UTIL_PKG.Get_corresponding_retro_DistId(

2750: -- Bug#10416960
2751: --l_tipv_adj_dists_list(i).charge_applicable_to_dist_id := l_tipv_dists_list(i).charge_applicable_to_dist_id;
2752:
2753: l_tipv_adj_dists_list(i).charge_applicable_to_dist_id :=
2754: AP_RETRO_PRICING_UTIL_PKG.Get_corresponding_retro_DistId(
2755: p_lines_rec.match_type,
2756: l_tipv_dists_list(i).charge_applicable_to_dist_id);
2757:
2758: l_tipv_adj_dists_list(i).cash_posted_flag := 'N';

Line 2782: l_tipv_adj_dists_list(i+1).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;

2778: -- NonRecoverable Tax Dist
2779: ----------------------------
2780: l_tipv_adj_dists_list(i+1) := l_tipv_adj_dists_list(i);
2781: --Bug#10416960
2782: l_tipv_adj_dists_list(i+1).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
2783: --l_tipv_adj_dists_list(i+1).invoice_distribution_id := Null;
2784: l_tipv_adj_dists_list(i+1).distribution_line_number := i+1;
2785:
2786: --Bug#10416960

Line 2814: AP_RETRO_PRICING_UTIL_PKG.Get_corresponding_retro_DistId(

2810:
2811:
2812: --Bug#10416960
2813: l_tipv_adj_dists_list(i+1).charge_applicable_to_dist_id :=
2814: AP_RETRO_PRICING_UTIL_PKG.Get_corresponding_retro_DistId(
2815: p_lines_rec.match_type,
2816: l_tipv_adj_dists_list(i).charge_applicable_to_dist_id);
2817:
2818: l_tipv_adj_dists_list(i+1).dist_code_combination_id :=

Line 2819: AP_RETRO_PRICING_UTIL_PKG.Get_ccid(

2815: p_lines_rec.match_type,
2816: l_tipv_adj_dists_list(i).charge_applicable_to_dist_id);
2817:
2818: l_tipv_adj_dists_list(i+1).dist_code_combination_id :=
2819: AP_RETRO_PRICING_UTIL_PKG.Get_ccid(
2820: l_tipv_dists_list(i+1).charge_applicable_to_dist_id); --Bug5485084 replaced l_tipv_adj_dists_list with l_tipv_dists_list
2821:
2822: -- Bug 5509712
2823: l_tipv_adj_dists_list(i+1).po_distribution_id := l_tipv_dists_list(i).po_distribution_id;

Line 2841: AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;

2837:
2838: l_tipv_adj_dists_list(i+2) := l_tipv_adj_dists_list(i+1);
2839: --Bug#10416960
2840: l_tipv_adj_dists_list(i+2).invoice_distribution_id :=
2841: AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
2842: -- l_tipv_adj_dists_list(i+2).invoice_distribution_id := Null;
2843: l_tipv_adj_dists_list(i+2).distribution_line_number := i+2;
2844:
2845: l_tipv_adj_dists_list(i+2).line_type_lookup_code := 'TERV';

Line 2850: l_rcv_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(

2846: l_tipv_adj_dists_list(i+2).amount := 0;
2847: --
2848: --NOTE: Exchange Rate is always calculated w.r.t base match line
2849: IF (p_lines_rec.rcv_transaction_id IS NOT NULL) THEN
2850: l_rcv_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(
2851: 'RECEIPT',
2852: p_lines_rec.rcv_transaction_id);
2853: --Bug#10416960
2854: l_tipv_adj_dists_list(i+2).base_amount :=

Line 2859: l_po_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(

2855: AP_UTILITIES_PKG.ap_round_currency(
2856: l_tipv_dists_list(i).amount*(p_original_exchange_rate - l_rcv_exchange_rate),
2857: p_base_currency_code);
2858: ELSE
2859: l_po_exchange_rate := AP_RETRO_PRICING_UTIL_PKG.get_exchange_rate(
2860: 'PO',
2861: l_tipv_adj_dists_list(i).po_distribution_id );
2862: /*Bug#10416960 p_lines_rec.po_header_id */
2863: --Bug#10416960

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

2882:
2883: l_tipv_adj_dists_list(i+2).charge_applicable_to_dist_id :=
2884: l_tipv_adj_dists_list(i+1).charge_applicable_to_dist_id;
2885:
2886: l_tipv_adj_dists_list(i+2).dist_code_combination_id := AP_RETRO_PRICING_UTIL_PKG.get_terv_ccid(
2887: l_tipv_adj_dists_list(i+2).corrected_invoice_dist_id);
2888:
2889: -- Bug 5509712
2890: l_tipv_adj_dists_list(i+2).po_distribution_id := l_tipv_dists_list(i).po_distribution_id;

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

3279: ---------------------------------------------------------------------------
3280: -- Compute PPA Line
3281: l_ppa_lines_rec := p_lines_rec;
3282: l_ppa_lines_rec.invoice_id := p_ppa_invoice_rec.invoice_id;
3283: l_ppa_lines_rec.line_number := AP_RETRO_PRICING_UTIL_PKG.get_max_ppa_line_num(
3284: p_ppa_invoice_rec.invoice_id) + 1;
3285: l_ppa_lines_rec.line_type_lookup_code := 'RETROITEM';
3286: l_ppa_lines_rec.requester_id := NVL(p_instruction_lines_rec.requester_id, p_lines_rec.requester_id);
3287: l_ppa_lines_rec.description := NVL(p_instruction_lines_rec.description, p_lines_rec.description);

Line 3328: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(

3324: l_ppa_lines_rec.instruction_id := p_instruction_id;
3325: l_ppa_lines_rec.adj_type := 'PPA';
3326:
3327: debug_info := 'Insert the PPA Line in the Global Temp Table';
3328: IF (AP_RETRO_PRICING_UTIL_PKG.Create_Line(
3329: l_ppa_lines_rec,
3330: current_calling_sequence) <> TRUE) THEN
3331: --
3332: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

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

3357:
3358: l_ppa_invoice_dists_list(i).invoice_id := l_ppa_lines_rec.invoice_id;
3359: l_ppa_invoice_dists_list(i).invoice_line_number := l_ppa_lines_rec.line_number;
3360: --Bug#10416960
3361: l_ppa_invoice_dists_list(i).invoice_distribution_id := AP_RETRO_PRICING_UTIL_PKG.get_invoice_distribution_id;
3362: --l_ppa_invoice_dists_list(i).invoice_distribution_id := Null;
3363: l_ppa_invoice_dists_list(i).distribution_line_number := i;
3364: /*select max(distribution_line_number) + 1
3365: into l_ppa_invoice_dists_list(i).distribution_line_number

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

3366: from ap_ppa_invoice_dists_gt
3367: where invoice_id = l_ppa_lines_rec.invoice_id
3368: and invoice_line_number = l_ppa_lines_rec.line_number; */
3369: -- line_type_lookup_code = 'RETROITEM' for Price Corrections
3370: l_ppa_invoice_dists_list(i).line_type_lookup_code := AP_RETRO_PRICING_UTIL_PKG.get_dist_type_lookup_code(
3371: l_item_dists_list(i).invoice_distribution_id);
3372: l_ppa_invoice_dists_list(i).dist_match_type := 'PO_PRICE_ADJUSTMENT';
3373: l_ppa_invoice_dists_list(i).distribution_class := 'PERMANENT';
3374: l_ppa_invoice_dists_list(i).accounting_date := SYSDATE;

Line 3608: IF (AP_RETRO_PRICING_UTIL_PKG.Create_ppa_Invoice(

3604: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3605: END IF;
3606:
3607:
3608: IF (AP_RETRO_PRICING_UTIL_PKG.Create_ppa_Invoice(
3609: p_instruction_rec.invoice_id,
3610: l_base_match_lines_rec.invoice_id,
3611: l_base_match_lines_rec.line_number,
3612: p_batch_id,

Line 3638: IF (AP_RETRO_PRICING_UTIL_PKG.ppa_already_exists(

3634: AP_IMPORT_UTILITIES_PKG.Print(
3635: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3636: END IF;
3637: --------------------------------------------------------------------------
3638: IF (AP_RETRO_PRICING_UTIL_PKG.ppa_already_exists(
3639: l_base_match_lines_rec.invoice_id,
3640: l_base_match_lines_rec.line_number,
3641: l_ppa_exists, --OUT
3642: l_existing_ppa_inv_id --OUT

Line 3716: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(

3712: -- If this base matched line has already been Adjusted by a line
3713: -- then no adjustments are required on this line. However adjustments
3714: -- may be required on the PC or QC for this base matched line
3715: --
3716: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(
3717: l_base_match_lines_rec.invoice_id,
3718: l_base_match_lines_rec.line_number,
3719: l_ipv_dists_exist --OUT
3720: ) <> TRUE) THEN

Line 3739: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(

3735: AP_IMPORT_UTILITIES_PKG.Print(
3736: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3737: END IF;
3738: -------------------------------------------------------------------------
3739: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(
3740: l_base_match_lines_rec.invoice_id,
3741: l_base_match_lines_rec.line_number,
3742: l_adj_corr_exists) <> TRUE) THEN
3743: --

Line 3791: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(

3787: AP_IMPORT_UTILITIES_PKG.Print(
3788: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3789: END IF;
3790: ----------------------------------------------------------------------
3791: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(
3792: l_base_match_lines_rec.invoice_id,
3793: l_base_match_lines_rec.line_number,
3794: l_tax_lines_list,
3795: l_tipv_exist) <> TRUE) THEN

Line 3882: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(

3878: AP_IMPORT_UTILITIES_PKG.Print(
3879: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3880: END IF;
3881: --
3882: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(
3883: l_base_match_lines_rec.invoice_id,
3884: l_base_match_lines_rec.line_number,
3885: 'PRICE_CORRECTION', --Modified spelling for bug#9573078
3886: l_pc_lines_list,

Line 3915: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(

3911: AP_IMPORT_UTILITIES_PKG.Print(
3912: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3913: END IF;
3914: ---------------------------------------------------------------------
3915: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(
3916: l_pc_lines_rec.invoice_id,
3917: l_pc_lines_rec.line_number,
3918: l_ipv_dists_exist) <> TRUE) THEN
3919: --

Line 3936: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(

3932: AP_IMPORT_UTILITIES_PKG.Print(
3933: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3934: END IF;
3935: ---------------------------------------------------------------------
3936: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(
3937: l_pc_lines_rec.invoice_id,
3938: l_pc_lines_rec.line_number,
3939: l_adj_corr_exists) <> TRUE) THEN
3940: --

Line 3991: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(

3987: AP_IMPORT_UTILITIES_PKG.Print(
3988: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3989: END IF;
3990: -------------------------------------------------------------------
3991: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(
3992: l_pc_lines_rec.invoice_id,
3993: l_pc_lines_rec.line_number,
3994: l_tax_lines_list,
3995: l_tipv_exist) <> TRUE) THEN

Line 4067: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(

4063: AP_IMPORT_UTILITIES_PKG.Print(
4064: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4065: END IF;
4066: --
4067: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(
4068: l_base_match_lines_rec.invoice_id,
4069: l_base_match_lines_rec.line_number,
4070: 'QTY_CORRECTION', --Modified spelling for bug#9573078
4071: l_qc_lines_list,

Line 4095: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(

4091: ---------------------------------------------------------------------
4092: debug_info := 'Process Retroprice Adjustments Step 18. Check if IPV '
4093: ||'Dists Exist for QC';
4094: ---------------------------------------------------------------------
4095: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(
4096: l_qc_lines_rec.invoice_id,
4097: l_qc_lines_rec.line_number,
4098: l_ipv_dists_exist) <> TRUE) THEN
4099: --

Line 4112: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(

4108: -------------------------------------------------------------------------
4109: debug_info := 'Process Retroprice Adjustments Step 19. Check if Adj '
4110: ||'Corr Exists for QC';
4111: -------------------------------------------------------------------------
4112: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(
4113: l_qc_lines_rec.invoice_id,
4114: l_qc_lines_rec.line_number,
4115: l_adj_corr_exists) <> TRUE) THEN
4116: --

Line 4160: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(

4156: --------------------------------------------------------------------
4157: debug_info := 'Process Retroprice Adjustments Step 21. '||
4158: 'Check if TIPV Dists Exists for the QC Line';
4159: -------------------------------------------------------------------
4160: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(
4161: l_qc_lines_rec.invoice_id,
4162: l_qc_lines_rec.line_number,
4163: l_tax_lines_list,
4164: l_tipv_exist) <> TRUE) THEN

Line 6925: IF (AP_RETRO_PRICING_UTIL_PKG.Are_Original_Invoices_Valid(

6921: AP_IMPORT_UTILITIES_PKG.Print(
6922: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6923: END IF;
6924: --
6925: IF (AP_RETRO_PRICING_UTIL_PKG.Are_Original_Invoices_Valid(
6926: p_instruction_rec.invoice_id,
6927: p_instruction_rec.org_id,
6928: l_orig_invoices_valid) <> TRUE) THEN
6929: --

Line 6970: IF (AP_RETRO_PRICING_UTIL_PKG.Are_Holds_Ok(

6966: AP_IMPORT_UTILITIES_PKG.Print(
6967: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6968: END IF;
6969: --
6970: IF (AP_RETRO_PRICING_UTIL_PKG.Are_Holds_Ok(
6971: p_instruction_rec.invoice_id,
6972: p_instruction_rec.org_id,
6973: l_orig_invoices_valid) <> TRUE) THEN
6974: --

Line 7016: IF (AP_RETRO_PRICING_UTIL_PKG.Is_Sequence_Assigned(

7012: AP_IMPORT_UTILITIES_PKG.Print(
7013: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7014: END IF;
7015: --
7016: IF (AP_RETRO_PRICING_UTIL_PKG.Is_Sequence_Assigned(
7017: 'PO ADJ INV',
7018: p_instruction_rec.org_id,
7019: l_orig_invoices_valid) <> TRUE) THEN
7020: --

Line 7095: IF (AP_RETRO_PRICING_UTIL_PKG.Get_Base_Match_Lines(

7091: AP_IMPORT_UTILITIES_PKG.Print(
7092: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7093: END IF;
7094:
7095: IF (AP_RETRO_PRICING_UTIL_PKG.Get_Base_Match_Lines(
7096: p_instruction_rec.invoice_id,
7097: l_instruction_lines_list(i).invoice_line_id,
7098: l_base_match_lines_list,
7099: current_calling_sequence) <> TRUE) THEN

Line 7162: SET invoice_amount = AP_RETRO_PRICING_UTIL_PKG.get_invoice_amount(

7158: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7159: END IF;
7160:
7161: UPDATE AP_ppa_invoices_gt H
7162: SET invoice_amount = AP_RETRO_PRICING_UTIL_PKG.get_invoice_amount(
7163: invoice_id,
7164: invoice_currency_code)
7165: WHERE instruction_id = p_instruction_rec.invoice_id;
7166:

Line 7304: -- call to AP_RETRO_PRICING_UTIL_PKG.Get_Base_Match_Lines to fetch

7300:
7301: FOR i IN 1..l_instruction_lines_list.COUNT
7302: LOOP
7303: -- Bug 9010175 - Added outer loop over l_instruction_lines_list and
7304: -- call to AP_RETRO_PRICING_UTIL_PKG.Get_Base_Match_Lines to fetch
7305: -- l_base_match_lines_list for each instruction lines list.
7306: ----------------------------------------------------------------------
7307: -- STEP 9.1. Get Base Match Lines for the instruction_line(Shipment)
7308: ----------------------------------------------------------------------

Line 7316: IF (AP_RETRO_PRICING_UTIL_PKG.Get_Base_Match_Lines(

7312: AP_IMPORT_UTILITIES_PKG.Print(
7313: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7314: END IF;
7315:
7316: IF (AP_RETRO_PRICING_UTIL_PKG.Get_Base_Match_Lines(
7317: p_instruction_rec.invoice_id,
7318: l_instruction_lines_list(i).invoice_line_id,
7319: l_base_match_lines_list,
7320: current_calling_sequence) <> TRUE) THEN

Line 7343: IF (AP_RETRO_PRICING_UTIL_PKG.ppa_already_exists(

7339: AP_IMPORT_UTILITIES_PKG.Print(
7340: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7341: END IF;
7342:
7343: IF (AP_RETRO_PRICING_UTIL_PKG.ppa_already_exists(
7344: l_base_match_lines_rec.invoice_id,
7345: l_base_match_lines_rec.line_number,
7346: l_ppa_exists, --OUT
7347: l_existing_ppa_inv_id --OUT

Line 7392: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(

7388: AP_IMPORT_UTILITIES_PKG.Print(
7389: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7390: END IF;
7391: ----------------------------------------------------------------------
7392: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(
7393: l_base_match_lines_rec.invoice_id,
7394: l_base_match_lines_rec.line_number,
7395: l_tax_lines_list,
7396: l_tipv_exists) <> TRUE) THEN

Line 7474: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(

7470: AP_IMPORT_UTILITIES_PKG.Print(
7471: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7472: END IF;
7473:
7474: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(
7475: l_base_match_lines_rec.invoice_id,
7476: l_base_match_lines_rec.line_number,
7477: 'PRICE_CORRECTION',
7478: l_pc_lines_list,

Line 7511: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(

7507: Raise Import_Retro_Adj_failure;
7508: END IF;
7509:
7510: --Bug#10416960
7511: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(
7512: l_pc_lines_rec.invoice_id,
7513: l_pc_lines_rec.line_number,
7514: l_tax_lines_list,
7515: l_tipv_exists) <> TRUE) THEN

Line 7567: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(

7563: AP_IMPORT_UTILITIES_PKG.Print(
7564: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7565: END IF;
7566:
7567: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(
7568: l_base_match_lines_rec.invoice_id,
7569: l_base_match_lines_rec.line_number,
7570: 'QTY_CORRECTION',
7571: l_qc_lines_list,

Line 7603: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(

7599: END IF;
7600: Raise Import_Retro_Adj_failure;
7601: END IF;
7602: --Bug#10416960
7603: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(
7604: l_qc_lines_rec.invoice_id,
7605: l_qc_lines_rec.line_number,
7606: l_tax_lines_list,
7607: l_tipv_exists) <> TRUE) THEN