[Home] [Help]
1018: RETURN(TRUE);
1019: --
1020: EXCEPTION
1021: WHEN OTHERS THEN
1022: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1023: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1024: debug_info);
1025: debug_info := 'In Others Exception';
1026: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1019: --
1020: EXCEPTION
1021: WHEN OTHERS THEN
1022: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1023: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1024: debug_info);
1025: debug_info := 'In Others Exception';
1026: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1027: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
1028: END IF;
1029: END IF;
1030: --
1031: IF (SQLCODE < 0) then
1032: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1033: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1034: SQLERRM);
1035: END IF;
1036: END IF;
1029: END IF;
1030: --
1031: IF (SQLCODE < 0) then
1032: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1033: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1034: SQLERRM);
1035: END IF;
1036: END IF;
1037: --
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
1345: AP_IMPORT_UTILITIES_PKG.Print(
1346: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1347: 'insert_rejections<- '||current_calling_sequence);
1348: END IF;
1342: current_calling_sequence) <> TRUE) THEN
1343: --
1344: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1345: AP_IMPORT_UTILITIES_PKG.Print(
1346: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1347: 'insert_rejections<- '||current_calling_sequence);
1348: END IF;
1349: --
1350: Raise Ppa_Line_Reversal_failure;
1359: l_ppa_lines_rec,
1360: l_existing_ppa_lines_rec,
1361: current_calling_sequence) <> TRUE) THEN
1362: --
1363: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1364: AP_IMPORT_UTILITIES_PKG.Print(
1365: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1366: 'Reverse_Existing_Ppa_Dists<- '||current_calling_sequence);
1367: END IF;
1361: current_calling_sequence) <> TRUE) THEN
1362: --
1363: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1364: AP_IMPORT_UTILITIES_PKG.Print(
1365: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1366: 'Reverse_Existing_Ppa_Dists<- '||current_calling_sequence);
1367: END IF;
1368: --
1369: Raise Ppa_Line_Reversal_failure;
1380: RETURN(TRUE);
1381: --
1382: EXCEPTION
1383: WHEN OTHERS THEN
1384: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1385: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1386: debug_info);
1387: END IF;
1388:
1381: --
1382: EXCEPTION
1383: WHEN OTHERS THEN
1384: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1385: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1386: debug_info);
1387: END IF;
1388:
1389: IF (SQLCODE < 0) then
1386: debug_info);
1387: END IF;
1388:
1389: IF (SQLCODE < 0) then
1390: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1391: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1392: SQLERRM);
1393: END IF;
1394: END IF;
1387: END IF;
1388:
1389: IF (SQLCODE < 0) then
1390: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1391: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1392: SQLERRM);
1393: END IF;
1394: END IF;
1395: --
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
1497: AP_IMPORT_UTILITIES_PKG.Print(
1498: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1499: 'Create_Line<- '||current_calling_sequence);
1500: END IF;
1494: current_calling_sequence) <> TRUE) THEN
1495: --
1496: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1497: AP_IMPORT_UTILITIES_PKG.Print(
1498: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1499: 'Create_Line<- '||current_calling_sequence);
1500: END IF;
1501: --
1502: Raise Zero_Amt_Adj_Line_Failure;
1508: RETURN (TRUE);
1509: --
1510: EXCEPTION
1511: WHEN OTHERS THEN
1512: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1513: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1514: debug_info);
1515: END IF;
1516:
1509: --
1510: EXCEPTION
1511: WHEN OTHERS THEN
1512: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1513: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1514: debug_info);
1515: END IF;
1516:
1517: IF (SQLCODE < 0) then
1514: debug_info);
1515: END IF;
1516:
1517: IF (SQLCODE < 0) then
1518: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1519: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1520: SQLERRM);
1521: END IF;
1522: END IF;
1515: END IF;
1516:
1517: IF (SQLCODE < 0) then
1518: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1519: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1520: SQLERRM);
1521: END IF;
1522: END IF;
1523:
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
1724: AP_IMPORT_UTILITIES_PKG.Print(
1725: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1726: 'insert_rejections<- '||current_calling_sequence);
1727: END IF;
1721: current_calling_sequence) <> TRUE) THEN
1722: --
1723: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1724: AP_IMPORT_UTILITIES_PKG.Print(
1725: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1726: 'insert_rejections<- '||current_calling_sequence);
1727: END IF;
1728: --
1729: Raise Adj_Correction_Lines_Failure;
1792: RETURN(TRUE);
1793:
1794: EXCEPTION
1795: WHEN OTHERS THEN
1796: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1797: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1798: debug_info);
1799: END IF;
1800: --
1793:
1794: EXCEPTION
1795: WHEN OTHERS THEN
1796: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1797: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1798: debug_info);
1799: END IF;
1800: --
1801: IF (SQLCODE < 0) then
1798: debug_info);
1799: END IF;
1800: --
1801: IF (SQLCODE < 0) then
1802: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1803: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1804: SQLERRM);
1805: END IF;
1806: END IF;
1799: END IF;
1800: --
1801: IF (SQLCODE < 0) then
1802: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1803: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1804: SQLERRM);
1805: END IF;
1806: END IF;
1807: --
2009: p_lines_rec,
2010: l_adj_lines_rec, --OUT
2011: current_calling_sequence) <> TRUE) THEN
2012: --
2013: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2014: AP_IMPORT_UTILITIES_PKG.Print(
2015: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2016: 'Create_Zero_Amt_Adj_Line<- '||current_calling_sequence);
2017: END IF;
2011: current_calling_sequence) <> TRUE) THEN
2012: --
2013: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2014: AP_IMPORT_UTILITIES_PKG.Print(
2015: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2016: 'Create_Zero_Amt_Adj_Line<- '||current_calling_sequence);
2017: END IF;
2018: --
2019: Raise Reverse_Redist_IPV_FAILURE;
2036: p_lines_rec.invoice_id,
2037: p_lines_rec.line_number,
2038: p_erv_dists_exist) <> TRUE) THEN
2039: --
2040: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2041: AP_IMPORT_UTILITIES_PKG.Print(
2042: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2043: 'Erv_Dists_exists<- '||current_calling_sequence);
2044: END IF;
2038: p_erv_dists_exist) <> TRUE) THEN
2039: --
2040: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2041: AP_IMPORT_UTILITIES_PKG.Print(
2042: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2043: 'Erv_Dists_exists<- '||current_calling_sequence);
2044: END IF;
2045: --
2046: Raise Reverse_Redist_IPV_FAILURE;
2243: p_base_currency_code,
2244: l_adj_lines_rec,
2245: current_calling_sequence) <> TRUE) THEN
2246: --
2247: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2248: AP_IMPORT_UTILITIES_PKG.Print(
2249: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2250: 'Create_Adjustment_Corrections<- '||current_calling_sequence);
2251: END IF;
2245: current_calling_sequence) <> TRUE) THEN
2246: --
2247: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2248: AP_IMPORT_UTILITIES_PKG.Print(
2249: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2250: 'Create_Adjustment_Corrections<- '||current_calling_sequence);
2251: END IF;
2252: --
2253: Raise Reverse_Redist_IPV_FAILURE;
2258: RETURN (TRUE);
2259:
2260: EXCEPTION
2261: WHEN OTHERS THEN
2262: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2263: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2264: debug_info);
2265: END IF;
2266:
2259:
2260: EXCEPTION
2261: WHEN OTHERS THEN
2262: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2263: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2264: debug_info);
2265: END IF;
2266:
2267: IF (SQLCODE < 0) then
2264: debug_info);
2265: END IF;
2266:
2267: IF (SQLCODE < 0) then
2268: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2269: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2270: SQLERRM);
2271: END IF;
2272: END IF;
2265: END IF;
2266:
2267: IF (SQLCODE < 0) then
2268: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2269: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2270: SQLERRM);
2271: END IF;
2272: END IF;
2273: --
2482: p_tax_lines_rec,
2483: l_tipv_adj_lines_rec, --OUT
2484: current_calling_sequence) <> TRUE) THEN
2485: --
2486: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2487: AP_IMPORT_UTILITIES_PKG.Print(
2488: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2489: 'Create_Zero_Amt_Adj_Line<- '||current_calling_sequence);
2490: END IF;
2484: current_calling_sequence) <> TRUE) THEN
2485: --
2486: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2487: AP_IMPORT_UTILITIES_PKG.Print(
2488: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2489: 'Create_Zero_Amt_Adj_Line<- '||current_calling_sequence);
2490: END IF;
2491: --
2492: Raise Tipv_Adjustment_Corr_Failure;
2501: p_tax_lines_rec.invoice_id,
2502: p_tax_lines_rec.line_number,
2503: l_terv_dists_exist) <> TRUE) THEN
2504: --
2505: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2506: AP_IMPORT_UTILITIES_PKG.Print(
2507: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2508: 'Terv_Dists_exists<- '||current_calling_sequence);
2509: END IF;
2503: l_terv_dists_exist) <> TRUE) THEN
2504: --
2505: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2506: AP_IMPORT_UTILITIES_PKG.Print(
2507: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2508: 'Terv_Dists_exists<- '||current_calling_sequence);
2509: END IF;
2510: --
2511: Raise Tipv_Adjustment_Corr_Failure;
2695: p_base_currency_code,
2696: l_tipv_adj_lines_rec,
2697: current_calling_sequence) <> TRUE) THEN
2698: --
2699: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2700: AP_IMPORT_UTILITIES_PKG.Print(
2701: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2702: 'Create_Adjustment_Corrections<- '||current_calling_sequence);
2703: END IF;
2697: current_calling_sequence) <> TRUE) THEN
2698: --
2699: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2700: AP_IMPORT_UTILITIES_PKG.Print(
2701: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2702: 'Create_Adjustment_Corrections<- '||current_calling_sequence);
2703: END IF;
2704: --
2705: Raise Tipv_Adjustment_Corr_Failure;
2711:
2712:
2713: EXCEPTION
2714: WHEN OTHERS THEN
2715: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2716: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2717: debug_info);
2718: END IF;
2719:
2712:
2713: EXCEPTION
2714: WHEN OTHERS THEN
2715: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2716: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2717: debug_info);
2718: END IF;
2719:
2720: IF (SQLCODE < 0) then
2717: debug_info);
2718: END IF;
2719:
2720: IF (SQLCODE < 0) then
2721: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2722: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2723: SQLERRM);
2724: END IF;
2725: END IF;
2718: END IF;
2719:
2720: IF (SQLCODE < 0) then
2721: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2722: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2723: SQLERRM);
2724: END IF;
2725: END IF;
2726: --
2806: LOOP
2807: --
2808: l_tax_lines_rec := p_tax_lines_list(i);
2809: --
2810: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2811: AP_IMPORT_UTILITIES_PKG.Print(
2812: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2813: END IF;
2814: IF (Reverse_Redistribute_TIPV(
2808: l_tax_lines_rec := p_tax_lines_list(i);
2809: --
2810: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2811: AP_IMPORT_UTILITIES_PKG.Print(
2812: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2813: END IF;
2814: IF (Reverse_Redistribute_TIPV(
2815: p_ppa_invoice_rec,
2816: p_base_currency_code,
2819: l_original_exchange_rate,
2820: p_lines_rec,
2821: l_tax_lines_rec,
2822: p_calling_sequence) <> TRUE) THEN
2823: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2824: AP_IMPORT_UTILITIES_PKG.Print(
2825: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2826: 'Reverse_Redistribute_TIPV<- '||current_calling_sequence);
2827: END IF;
2821: l_tax_lines_rec,
2822: p_calling_sequence) <> TRUE) THEN
2823: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2824: AP_IMPORT_UTILITIES_PKG.Print(
2825: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2826: 'Reverse_Redistribute_TIPV<- '||current_calling_sequence);
2827: END IF;
2828: Raise Process_TIPV_Adj_failure;
2829: END IF;
2833: RETURN(TRUE);
2834: --
2835: EXCEPTION
2836: WHEN OTHERS THEN
2837: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2838: AP_IMPORT_UTILITIES_PKG.Print(
2839: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2840: END IF;
2841:
2835: EXCEPTION
2836: WHEN OTHERS THEN
2837: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2838: AP_IMPORT_UTILITIES_PKG.Print(
2839: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2840: END IF;
2841:
2842: IF (SQLCODE < 0) then
2843: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2839: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2840: END IF;
2841:
2842: IF (SQLCODE < 0) then
2843: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2844: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
2845: END IF;
2846: END IF;
2847: RETURN(FALSE);
2840: END IF;
2841:
2842: IF (SQLCODE < 0) then
2843: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2844: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
2845: END IF;
2846: END IF;
2847: RETURN(FALSE);
2848:
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
3084: AP_IMPORT_UTILITIES_PKG.Print(
3085: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3086: 'insert_rejections<- '||current_calling_sequence);
3087: END IF;
3081: current_calling_sequence) <> TRUE) THEN
3082: --
3083: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3084: AP_IMPORT_UTILITIES_PKG.Print(
3085: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3086: 'insert_rejections<- '||current_calling_sequence);
3087: END IF;
3088: --
3089: Raise Po_Price_Adj_Failure;
3223: RETURN(TRUE);
3224: --
3225: EXCEPTION
3226: WHEN OTHERS THEN
3227: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3228: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3229: debug_info);
3230: END IF;
3231: --
3224: --
3225: EXCEPTION
3226: WHEN OTHERS THEN
3227: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3228: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3229: debug_info);
3230: END IF;
3231: --
3232: IF (SQLCODE < 0) then
3229: debug_info);
3230: END IF;
3231: --
3232: IF (SQLCODE < 0) then
3233: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3234: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3235: SQLERRM);
3236: END IF;
3237: END IF;
3230: END IF;
3231: --
3232: IF (SQLCODE < 0) then
3233: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3234: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3235: SQLERRM);
3236: END IF;
3237: END IF;
3238: --
3278: *============================================================================*/
3279: FUNCTION Process_Retroprice_Adjustments(
3280: p_base_currency_code IN VARCHAR2,
3281: p_base_match_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,
3282: p_instruction_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
3283: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
3284: p_batch_id IN NUMBER,
3285: p_calling_sequence IN VARCHAR2)
3286: RETURN BOOLEAN IS
3321: END IF;
3322:
3323: debug_info := 'Inside the procedure Process_Retroprice Adjustments';
3324:
3325: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3326: AP_IMPORT_UTILITIES_PKG.Print(
3327: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3328: END IF;
3329:
3323: debug_info := 'Inside the procedure Process_Retroprice Adjustments';
3324:
3325: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3326: AP_IMPORT_UTILITIES_PKG.Print(
3327: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3328: END IF;
3329:
3330: FOR i IN 1..p_base_match_lines_list.COUNT
3331: LOOP
3333: l_base_match_lines_rec := p_base_match_lines_list(i);
3334:
3335: ------------------------------------------------------------------------------
3336: debug_info := 'Process Retroprice Adjustments Step 1. Insert Temp PPA Invoice l_base_match_lines_rec.invoice_id,l_prev_invoice_id '||l_base_match_lines_rec.invoice_id||','||l_prev_invoice_id;
3337: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3338: AP_IMPORT_UTILITIES_PKG.Print(
3339: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3340: END IF;
3341: ------------------------------------------------------------------------------
3335: ------------------------------------------------------------------------------
3336: debug_info := 'Process Retroprice Adjustments Step 1. Insert Temp PPA Invoice l_base_match_lines_rec.invoice_id,l_prev_invoice_id '||l_base_match_lines_rec.invoice_id||','||l_prev_invoice_id;
3337: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3338: AP_IMPORT_UTILITIES_PKG.Print(
3339: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3340: END IF;
3341: ------------------------------------------------------------------------------
3342: --Bugfix:4281253
3343: IF (l_base_match_lines_rec.invoice_id <> nvl(l_prev_invoice_id,0))
3342: --Bugfix:4281253
3343: IF (l_base_match_lines_rec.invoice_id <> nvl(l_prev_invoice_id,0))
3344: THEN
3345: --
3346: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3347: AP_IMPORT_UTILITIES_PKG.Print(
3348: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3349: END IF;
3350: --
3344: THEN
3345: --
3346: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3347: AP_IMPORT_UTILITIES_PKG.Print(
3348: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3349: END IF;
3350: --
3351: debug_info := '8889999 l_base_match_lines_rec.amount is '||l_base_match_lines_rec.amount;
3352: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3348: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3349: END IF;
3350: --
3351: debug_info := '8889999 l_base_match_lines_rec.amount is '||l_base_match_lines_rec.amount;
3352: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3353: AP_IMPORT_UTILITIES_PKG.Print(
3354: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3355: END IF;
3356:
3350: --
3351: debug_info := '8889999 l_base_match_lines_rec.amount is '||l_base_match_lines_rec.amount;
3352: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3353: AP_IMPORT_UTILITIES_PKG.Print(
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(
3362: p_batch_id,
3363: l_ppa_invoice_rec, --OUT
3364: current_calling_sequence) <> TRUE) THEN
3365:
3366: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3367: AP_IMPORT_UTILITIES_PKG.Print(
3368: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3369: 'Create_ppa_Invoice<- '||current_calling_sequence);
3370: END IF;
3364: current_calling_sequence) <> TRUE) THEN
3365:
3366: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3367: AP_IMPORT_UTILITIES_PKG.Print(
3368: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3369: 'Create_ppa_Invoice<- '||current_calling_sequence);
3370: END IF;
3371: Raise Process_Retro_Adj_failure;
3372:
3379:
3380: --------------------------------------------------------------------------
3381: debug_info := 'Process Retroprice Adjustments Step 2. Check if '
3382: ||'ppa_already_exists';
3383: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3384: AP_IMPORT_UTILITIES_PKG.Print(
3385: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3386: END IF;
3387: --------------------------------------------------------------------------
3381: debug_info := 'Process Retroprice Adjustments Step 2. Check if '
3382: ||'ppa_already_exists';
3383: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
3391: l_ppa_exists, --OUT
3392: l_existing_ppa_inv_id --OUT
3393: ) <> TRUE) THEN
3394:
3395: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3396: AP_IMPORT_UTILITIES_PKG.Print(
3397: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3398: 'ppa_already_exists<- '||current_calling_sequence);
3399: END IF;
3393: ) <> TRUE) THEN
3394:
3395: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3396: AP_IMPORT_UTILITIES_PKG.Print(
3397: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3398: 'ppa_already_exists<- '||current_calling_sequence);
3399: END IF;
3400: Raise Process_Retro_Adj_failure;
3401: END IF;
3400: Raise Process_Retro_Adj_failure;
3401: END IF;
3402:
3403: debug_info := 'Existing PPA Invoice Id: '||l_existing_ppa_inv_id;
3404: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3405: AP_IMPORT_UTILITIES_PKG.Print(
3406: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3407: END IF;
3408:
3402:
3403: debug_info := 'Existing PPA Invoice Id: '||l_existing_ppa_inv_id;
3404: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3405: AP_IMPORT_UTILITIES_PKG.Print(
3406: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3407: END IF;
3408:
3409:
3410: -- PPA Docs have two types of lines --
3415: -- Corrections on the PPA.
3416:
3417: ----------------------------------------------------------------------------
3418: debug_info := 'Process Retroprice Adjustments Step 3. Reverse_Existing_Ppa';
3419: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3420: AP_IMPORT_UTILITIES_PKG.Print(
3421: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3422: END IF;
3423: ----------------------------------------------------------------------------
3417: ----------------------------------------------------------------------------
3418: debug_info := 'Process Retroprice Adjustments Step 3. Reverse_Existing_Ppa';
3419: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3420: AP_IMPORT_UTILITIES_PKG.Print(
3421: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3422: END IF;
3423: ----------------------------------------------------------------------------
3424: IF (l_ppa_exists = 'Y') THEN
3425: -- l_base_match_lines_rec.invoice_id <> l_prev_invoice_id) THEN
3423: ----------------------------------------------------------------------------
3424: IF (l_ppa_exists = 'Y') THEN
3425: -- l_base_match_lines_rec.invoice_id <> l_prev_invoice_id) THEN
3426: debug_info := 'PPA exists for this Invoice ';
3427: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3428: AP_IMPORT_UTILITIES_PKG.Print(
3429: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3430: END IF;
3431: IF (Reverse_Existing_Ppa(
3425: -- l_base_match_lines_rec.invoice_id <> l_prev_invoice_id) THEN
3426: debug_info := 'PPA exists for this Invoice ';
3427: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3428: AP_IMPORT_UTILITIES_PKG.Print(
3429: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3430: END IF;
3431: IF (Reverse_Existing_Ppa(
3432: p_instruction_rec.invoice_id,
3433: l_ppa_invoice_rec,
3434: p_instruction_lines_rec,
3435: l_existing_ppa_inv_id,
3436: current_calling_sequence) <> TRUE) THEN
3437: --
3438: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3439: AP_IMPORT_UTILITIES_PKG.Print(
3440: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3441: 'Reverse_Existing_Ppa<- '||current_calling_sequence);
3442: END IF;
3436: current_calling_sequence) <> TRUE) THEN
3437: --
3438: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3439: AP_IMPORT_UTILITIES_PKG.Print(
3440: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3441: 'Reverse_Existing_Ppa<- '||current_calling_sequence);
3442: END IF;
3443: --
3444: Raise Process_Retro_Adj_failure;
3453:
3454: ----------------------------------------------------------------------------
3455: debug_info := 'Process Retroprice Adjustments Step 4. Check if IPV Dists'
3456: ||' Exists';
3457: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3458: AP_IMPORT_UTILITIES_PKG.Print(
3459: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3460: END IF;
3461: ----------------------------------------------------------------------------
3455: debug_info := 'Process Retroprice Adjustments Step 4. Check if IPV Dists'
3456: ||' Exists';
3457: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3458: AP_IMPORT_UTILITIES_PKG.Print(
3459: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3460: END IF;
3461: ----------------------------------------------------------------------------
3462: -- If this base matched line has already been Adjusted by a line
3463: -- then no adjustments are required on this line. However adjustments
3468: l_base_match_lines_rec.line_number,
3469: l_ipv_dists_exist --OUT
3470: ) <> TRUE) THEN
3471: --
3472: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3473: AP_IMPORT_UTILITIES_PKG.Print(
3474: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3475: 'Ipv_Dists_exists<- '||current_calling_sequence);
3476: END IF;
3470: ) <> TRUE) THEN
3471: --
3472: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3473: AP_IMPORT_UTILITIES_PKG.Print(
3474: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3475: 'Ipv_Dists_exists<- '||current_calling_sequence);
3476: END IF;
3477: --
3478: Raise Process_Retro_Adj_failure;
3480: --
3481: ------------------------------------------------------------------------
3482: debug_info := 'Process Retroprice Adjustments Step 5. Check if Adj Corr'
3483: ||' Exists';
3484: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3485: AP_IMPORT_UTILITIES_PKG.Print(
3486: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3487: END IF;
3488: -------------------------------------------------------------------------
3482: debug_info := 'Process Retroprice Adjustments Step 5. Check if Adj Corr'
3483: ||' Exists';
3484: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
3490: l_base_match_lines_rec.invoice_id,
3491: l_base_match_lines_rec.line_number,
3492: l_adj_corr_exists) <> TRUE) THEN
3493: --
3494: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3495: AP_IMPORT_UTILITIES_PKG.Print(
3496: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3497: 'Adj_Corr_Exists<- '||current_calling_sequence);
3498: END IF;
3492: l_adj_corr_exists) <> TRUE) THEN
3493: --
3494: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3495: AP_IMPORT_UTILITIES_PKG.Print(
3496: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3497: 'Adj_Corr_Exists<- '||current_calling_sequence);
3498: END IF;
3499: Raise Process_Retro_Adj_failure;
3500: END IF;
3503: --
3504: -----------------------------------------------------------------------
3505: debug_info := 'Process Retroprice Adjustments Step 6. '
3506: ||'Reverse_Redistribute_IPV for the base matched line';
3507: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3508: AP_IMPORT_UTILITIES_PKG.Print(
3509: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3510: END IF;
3511: -----------------------------------------------------------------------
3505: debug_info := 'Process Retroprice Adjustments Step 6. '
3506: ||'Reverse_Redistribute_IPV for the base matched line';
3507: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3508: AP_IMPORT_UTILITIES_PKG.Print(
3509: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3510: END IF;
3511: -----------------------------------------------------------------------
3512: --
3513: IF (Reverse_Redistribute_IPV(
3518: l_base_match_lines_rec,
3519: l_erv_dists_exist,
3520: current_calling_sequence) <> TRUE) THEN
3521: --
3522: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3523: AP_IMPORT_UTILITIES_PKG.Print(
3524: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3525: 'Reverse_Redistribute_IPV<- '||current_calling_sequence);
3526: END IF;
3520: current_calling_sequence) <> TRUE) THEN
3521: --
3522: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3523: AP_IMPORT_UTILITIES_PKG.Print(
3524: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3525: 'Reverse_Redistribute_IPV<- '||current_calling_sequence);
3526: END IF;
3527: --
3528: Raise Process_Retro_Adj_failure;
3532:
3533: ----------------------------------------------------------------------
3534: debug_info := 'Process Retroprice Adjustments Step 7. '||
3535: 'Check if TIPV Dists Exists for the base matched Line';
3536: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3537: AP_IMPORT_UTILITIES_PKG.Print(
3538: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3539: END IF;
3540: ----------------------------------------------------------------------
3534: debug_info := 'Process Retroprice Adjustments Step 7. '||
3535: 'Check if TIPV Dists Exists for the base matched Line';
3536: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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
3546: --
3547: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3548: AP_IMPORT_UTILITIES_PKG.Print(
3549: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3550: 'Tipv_Exists<- '||current_calling_sequence);
3551: END IF;
3545: l_tipv_exist) <> TRUE) THEN
3546: --
3547: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3548: AP_IMPORT_UTILITIES_PKG.Print(
3549: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3550: 'Tipv_Exists<- '||current_calling_sequence);
3551: END IF;
3552: --
3553: Raise Process_Retro_Adj_failure;
3558: --
3559: -----------------------------------------------------------------
3560: debug_info := 'Process Retroprice Adjustments Step 8. '
3561: ||'Process_TIPV_Reversal for the base matched line';
3562: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3563: AP_IMPORT_UTILITIES_PKG.Print(
3564: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3565: END IF;
3566: -----------------------------------------------------------------
3560: debug_info := 'Process Retroprice Adjustments Step 8. '
3561: ||'Process_TIPV_Reversal for the base matched line';
3562: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3563: AP_IMPORT_UTILITIES_PKG.Print(
3564: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3565: END IF;
3566: -----------------------------------------------------------------
3567: IF (Process_TIPV_Reversal(
3568: l_ppa_invoice_rec,
3572: l_base_match_lines_rec,
3573: l_tax_lines_list,
3574: current_calling_sequence) <> TRUE) THEN
3575: --
3576: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3577: AP_IMPORT_UTILITIES_PKG.Print(
3578: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3579: 'Process_TIPV_Reversal<- '||current_calling_sequence);
3580: END IF;
3574: current_calling_sequence) <> TRUE) THEN
3575: --
3576: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3577: AP_IMPORT_UTILITIES_PKG.Print(
3578: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3579: 'Process_TIPV_Reversal<- '||current_calling_sequence);
3580: END IF;
3581: --
3582: Raise Process_Retro_Adj_failure;
3590: -- Create PPA Line even if the IPV's don't exist for the Base Match Line
3591: --------------------------------------------------------------------------
3592: debug_info := 'Process Retroprice Adjustments Step 9. '
3593: ||'Create_Po_Price_Adjustments for the base matched line';
3594: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3595: AP_IMPORT_UTILITIES_PKG.Print(
3596: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3597: END IF;
3598: --------------------------------------------------------------------------
3592: debug_info := 'Process Retroprice Adjustments Step 9. '
3593: ||'Create_Po_Price_Adjustments for the base matched line';
3594: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3595: AP_IMPORT_UTILITIES_PKG.Print(
3596: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3597: END IF;
3598: --------------------------------------------------------------------------
3599: --
3600: -- Bug 5469166. Not Calling Create_Po_Price_Adjustment id the wash scenario
3607: p_instruction_lines_rec,
3608: l_base_match_lines_rec,
3609: current_calling_sequence) <> TRUE) THEN
3610: --
3611: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3612: AP_IMPORT_UTILITIES_PKG.Print(
3613: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3614: 'Create_Po_Price_Adjustments<- '||current_calling_sequence);
3615: END IF;
3609: current_calling_sequence) <> TRUE) THEN
3610: --
3611: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3612: AP_IMPORT_UTILITIES_PKG.Print(
3613: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3614: 'Create_Po_Price_Adjustments<- '||current_calling_sequence);
3615: END IF;
3616: --
3617: Raise Process_Retro_Adj_failure;
3623: -- Price Corrections
3624: -------------------------------------------------------------------------
3625: debug_info := 'Process Retroprice Adjustments Step 10. IF PC Exists';
3626: -------------------------------------------------------------------------
3627: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3628: AP_IMPORT_UTILITIES_PKG.Print(
3629: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3630: END IF;
3631: --
3625: debug_info := 'Process Retroprice Adjustments Step 10. IF PC Exists';
3626: -------------------------------------------------------------------------
3627: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
3635: 'PRICE_CORRECTIONS',
3636: l_pc_lines_list,
3637: l_pc_exists) <> TRUE) THEN
3638: --
3639: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3640: AP_IMPORT_UTILITIES_PKG.Print(
3641: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3642: 'Corrections_exists<- '||current_calling_sequence);
3643: END IF;
3637: l_pc_exists) <> TRUE) THEN
3638: --
3639: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3640: AP_IMPORT_UTILITIES_PKG.Print(
3641: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3642: 'Corrections_exists<- '||current_calling_sequence);
3643: END IF;
3644: --
3645: Raise Process_Retro_Adj_failure;
3656: -- IPV Dists always exist for Price Corrections
3657: ---------------------------------------------------------------------
3658: debug_info := 'Process Retroprice Adjustments Step 11. Check if IPV '
3659: ||'Dists Exist for PC';
3660: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3661: AP_IMPORT_UTILITIES_PKG.Print(
3662: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3663: END IF;
3664: ---------------------------------------------------------------------
3658: debug_info := 'Process Retroprice Adjustments Step 11. Check if IPV '
3659: ||'Dists Exist for PC';
3660: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
3666: l_pc_lines_rec.invoice_id,
3667: l_pc_lines_rec.line_number,
3668: l_ipv_dists_exist) <> TRUE) THEN
3669: --
3670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3671: AP_IMPORT_UTILITIES_PKG.Print(
3672: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3673: 'Ipv_Dists_exists<- '||current_calling_sequence);
3674: END IF;
3668: l_ipv_dists_exist) <> TRUE) THEN
3669: --
3670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3671: AP_IMPORT_UTILITIES_PKG.Print(
3672: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3673: 'Ipv_Dists_exists<- '||current_calling_sequence);
3674: END IF;
3675: Raise Process_Retro_Adj_failure;
3676: END IF;
3677: --
3678: ---------------------------------------------------------------------
3679: debug_info := 'Process Retroprice Adjustments Step 12. Check if Adj '
3680: ||'Corr Exists for PC';
3681: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3682: AP_IMPORT_UTILITIES_PKG.Print(
3683: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3684: END IF;
3685: ---------------------------------------------------------------------
3679: debug_info := 'Process Retroprice Adjustments Step 12. Check if Adj '
3680: ||'Corr Exists for PC';
3681: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
3687: l_pc_lines_rec.invoice_id,
3688: l_pc_lines_rec.line_number,
3689: l_adj_corr_exists) <> TRUE) THEN
3690: --
3691: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3692: AP_IMPORT_UTILITIES_PKG.Print(
3693: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3694: 'Adj_Corr_Exists<- '||current_calling_sequence);
3695: END IF;
3689: l_adj_corr_exists) <> TRUE) THEN
3690: --
3691: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3692: AP_IMPORT_UTILITIES_PKG.Print(
3693: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3694: 'Adj_Corr_Exists<- '||current_calling_sequence);
3695: END IF;
3696: Raise Process_Retro_Adj_failure;
3697: END IF;
3700: --
3701: ------------------------------------------------------------------
3702: debug_info := 'Process Retroprice Adjustments Step 13. '
3703: ||'Reverse_Redistribute_IPV for the PC line';
3704: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3705: AP_IMPORT_UTILITIES_PKG.Print(
3706: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3707: END IF;
3708: ------------------------------------------------------------------
3702: debug_info := 'Process Retroprice Adjustments Step 13. '
3703: ||'Reverse_Redistribute_IPV for the PC line';
3704: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3705: AP_IMPORT_UTILITIES_PKG.Print(
3706: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3707: END IF;
3708: ------------------------------------------------------------------
3709: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3710: AP_IMPORT_UTILITIES_PKG.Print(
3705: AP_IMPORT_UTILITIES_PKG.Print(
3706: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3707: END IF;
3708: ------------------------------------------------------------------
3709: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3710: AP_IMPORT_UTILITIES_PKG.Print(
3711: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3712: END IF;
3713: --
3707: END IF;
3708: ------------------------------------------------------------------
3709: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3710: AP_IMPORT_UTILITIES_PKG.Print(
3711: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3712: END IF;
3713: --
3714: IF (Reverse_Redistribute_IPV(
3715: l_ppa_invoice_rec,
3719: l_pc_lines_rec,
3720: l_erv_dists_exist,
3721: current_calling_sequence) <> TRUE) THEN
3722: --
3723: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3724: AP_IMPORT_UTILITIES_PKG.Print(
3725: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3726: 'Reverse_Redistribute_IPV<- '||current_calling_sequence);
3727: END IF;
3721: current_calling_sequence) <> TRUE) THEN
3722: --
3723: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3724: AP_IMPORT_UTILITIES_PKG.Print(
3725: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3726: 'Reverse_Redistribute_IPV<- '||current_calling_sequence);
3727: END IF;
3728: --
3729: Raise Process_Retro_Adj_failure;
3732: --
3733: -------------------------------------------------------------------
3734: debug_info := 'Process Retroprice Adjustments Step 14. '||
3735: 'Check if TIPV Dists Exists for the PC Line';
3736: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3737: AP_IMPORT_UTILITIES_PKG.Print(
3738: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3739: END IF;
3740: -------------------------------------------------------------------
3734: debug_info := 'Process Retroprice Adjustments Step 14. '||
3735: 'Check if TIPV Dists Exists for the PC Line';
3736: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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
3746: --
3747: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3748: AP_IMPORT_UTILITIES_PKG.Print(
3749: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3750: 'Tipv_Exists<- '||current_calling_sequence);
3751: END IF;
3745: l_tipv_exist) <> TRUE) THEN
3746: --
3747: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3748: AP_IMPORT_UTILITIES_PKG.Print(
3749: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3750: 'Tipv_Exists<- '||current_calling_sequence);
3751: END IF;
3752: --
3753: Raise Process_Retro_Adj_failure;
3758: --
3759: --------------------------------------------------------------
3760: debug_info := 'Process Retroprice Adjustments Step 15. '
3761: ||'Process_TIPV_Reversal for the PC line';
3762: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3763: AP_IMPORT_UTILITIES_PKG.Print(
3764: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3765: END IF;
3766: --------------------------------------------------------------
3760: debug_info := 'Process Retroprice Adjustments Step 15. '
3761: ||'Process_TIPV_Reversal for the PC line';
3762: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3763: AP_IMPORT_UTILITIES_PKG.Print(
3764: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3765: END IF;
3766: --------------------------------------------------------------
3767: IF (Process_TIPV_Reversal(
3768: l_ppa_invoice_rec,
3772: l_pc_lines_rec,
3773: l_tax_lines_list,
3774: current_calling_sequence) <> TRUE) THEN
3775: --
3776: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3777: AP_IMPORT_UTILITIES_PKG.Print(
3778: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3779: 'Process_TIPV_Reversal<- '||current_calling_sequence);
3780: END IF;
3774: current_calling_sequence) <> TRUE) THEN
3775: --
3776: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3777: AP_IMPORT_UTILITIES_PKG.Print(
3778: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3779: 'Process_TIPV_Reversal<- '||current_calling_sequence);
3780: END IF;
3781: --
3782: Raise Process_Retro_Adj_failure;
3792: -----------------------------------------------------------------
3793: debug_info := 'Process Retroprice Adjustments Step 16. '
3794: ||'Create_Po_Price_Adjustments for the PC line';
3795: ------------------------------------------------------------------
3796: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3797: AP_IMPORT_UTILITIES_PKG.Print(
3798: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3799: END IF;
3800: --
3794: ||'Create_Po_Price_Adjustments for the PC line';
3795: ------------------------------------------------------------------
3796: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3797: AP_IMPORT_UTILITIES_PKG.Print(
3798: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3799: END IF;
3800: --
3801:
3802: END IF; --ipv dists and l_adj_corr
3808: -- Quantity Corrections
3809: ----------------------------------------------------------------------
3810: debug_info := 'Process Retroprice Adjustments Step 17. IF QC Exists';
3811: ----------------------------------------------------------------------
3812: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3813: AP_IMPORT_UTILITIES_PKG.Print(
3814: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3815: END IF;
3816: --
3810: debug_info := 'Process Retroprice Adjustments Step 17. IF QC Exists';
3811: ----------------------------------------------------------------------
3812: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
3820: 'QUANTITY_CORRECTIONS',
3821: l_qc_lines_list,
3822: l_qc_exists) <> TRUE) THEN
3823: --
3824: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3825: AP_IMPORT_UTILITIES_PKG.Print(
3826: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3827: 'Corrections_exists<- '||current_calling_sequence);
3828: END IF;
3822: l_qc_exists) <> TRUE) THEN
3823: --
3824: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3825: AP_IMPORT_UTILITIES_PKG.Print(
3826: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3827: 'Corrections_exists<- '||current_calling_sequence);
3828: END IF;
3829: --
3830: Raise Process_Retro_Adj_failure;
3846: l_qc_lines_rec.invoice_id,
3847: l_qc_lines_rec.line_number,
3848: l_ipv_dists_exist) <> TRUE) THEN
3849: --
3850: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3851: AP_IMPORT_UTILITIES_PKG.Print(
3852: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3853: 'Ipv_Dists_exists<- '||current_calling_sequence);
3854: END IF;
3848: l_ipv_dists_exist) <> TRUE) THEN
3849: --
3850: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3851: AP_IMPORT_UTILITIES_PKG.Print(
3852: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3853: 'Ipv_Dists_exists<- '||current_calling_sequence);
3854: END IF;
3855: Raise Process_Retro_Adj_failure;
3856: END IF;
3863: l_qc_lines_rec.invoice_id,
3864: l_qc_lines_rec.line_number,
3865: l_adj_corr_exists) <> TRUE) THEN
3866: --
3867: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3868: AP_IMPORT_UTILITIES_PKG.Print(
3869: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3870: 'Adj_Corr_Exists<- '||current_calling_sequence);
3871: END IF;
3865: l_adj_corr_exists) <> TRUE) THEN
3866: --
3867: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3868: AP_IMPORT_UTILITIES_PKG.Print(
3869: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3870: 'Adj_Corr_Exists<- '||current_calling_sequence);
3871: END IF;
3872: Raise Process_Retro_Adj_failure;
3873: END IF;
3877: --------------------------------------------------------------
3878: debug_info := 'Process Retroprice Adjustments Step 20. '
3879: ||'Reverse_Redistribute_IPV for the QC line';
3880: ----------------------------------------------------------------
3881: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3882: AP_IMPORT_UTILITIES_PKG.Print(
3883: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3884: END IF;
3885: --
3879: ||'Reverse_Redistribute_IPV for the QC line';
3880: ----------------------------------------------------------------
3881: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3882: AP_IMPORT_UTILITIES_PKG.Print(
3883: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3884: END IF;
3885: --
3886: IF (Reverse_Redistribute_IPV(
3887: l_ppa_invoice_rec,
3891: l_qc_lines_rec,
3892: l_erv_dists_exist,
3893: current_calling_sequence) <> TRUE) THEN
3894: --
3895: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3896: AP_IMPORT_UTILITIES_PKG.Print(
3897: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3898: 'Reverse_Redistribute_IPV<- '||current_calling_sequence);
3899: END IF;
3893: current_calling_sequence) <> TRUE) THEN
3894: --
3895: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3896: AP_IMPORT_UTILITIES_PKG.Print(
3897: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3898: 'Reverse_Redistribute_IPV<- '||current_calling_sequence);
3899: END IF;
3900: --
3901: Raise Process_Retro_Adj_failure;
3912: l_qc_lines_rec.line_number,
3913: l_tax_lines_list,
3914: l_tipv_exist) <> TRUE) THEN
3915: --
3916: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3917: AP_IMPORT_UTILITIES_PKG.Print(
3918: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3919: 'Tipv_Exists<- '||current_calling_sequence);
3920: END IF;
3914: l_tipv_exist) <> TRUE) THEN
3915: --
3916: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3917: AP_IMPORT_UTILITIES_PKG.Print(
3918: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3919: 'Tipv_Exists<- '||current_calling_sequence);
3920: END IF;
3921: --
3922: Raise Process_Retro_Adj_failure;
3937: l_qc_lines_rec,
3938: l_tax_lines_list,
3939: current_calling_sequence) <> TRUE) THEN
3940: --
3941: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3942: AP_IMPORT_UTILITIES_PKG.Print(
3943: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3944: 'Process_TIPV_Reversal<- '||current_calling_sequence);
3945: END IF;
3939: current_calling_sequence) <> TRUE) THEN
3940: --
3941: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3942: AP_IMPORT_UTILITIES_PKG.Print(
3943: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3944: 'Process_TIPV_Reversal<- '||current_calling_sequence);
3945: END IF;
3946: --
3947: Raise Process_Retro_Adj_failure;
3956: -----------------------------------------------------------------
3957: debug_info := 'Process Retroprice Adjustments Step 23. '
3958: ||'Create_Po_Price_Adjustments for the QC line';
3959: ------------------------------------------------------------------
3960: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3961: AP_IMPORT_UTILITIES_PKG.Print(
3962: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3963: END IF;
3964: --
3958: ||'Create_Po_Price_Adjustments for the QC line';
3959: ------------------------------------------------------------------
3960: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3961: AP_IMPORT_UTILITIES_PKG.Print(
3962: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3963: END IF;
3964: --
3965: IF (Create_Po_Price_Adjustments(
3966: p_base_currency_code,
3969: p_instruction_lines_rec,
3970: l_qc_lines_rec,
3971: current_calling_sequence) <> TRUE) THEN
3972: --
3973: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3974: AP_IMPORT_UTILITIES_PKG.Print(
3975: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3976: 'Create_Po_Price_Adjustments<- '||current_calling_sequence);
3977: END IF;
3971: current_calling_sequence) <> TRUE) THEN
3972: --
3973: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3974: AP_IMPORT_UTILITIES_PKG.Print(
3975: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3976: 'Create_Po_Price_Adjustments<- '||current_calling_sequence);
3977: END IF;
3978: --
3979: Raise Process_Retro_Adj_failure;
3999: RETURN(TRUE);
4000: --
4001: EXCEPTION
4002: WHEN OTHERS THEN
4003: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4004: AP_IMPORT_UTILITIES_PKG.Print(
4005: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4006: END IF;
4007:
4001: EXCEPTION
4002: WHEN OTHERS THEN
4003: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4004: AP_IMPORT_UTILITIES_PKG.Print(
4005: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4006: END IF;
4007:
4008: IF (SQLCODE < 0) then
4009: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4005: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4006: END IF;
4007:
4008: IF (SQLCODE < 0) then
4009: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4010: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
4011: END IF;
4012: END IF;
4013: RETURN(FALSE);
4006: END IF;
4007:
4008: IF (SQLCODE < 0) then
4009: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4010: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
4011: END IF;
4012: END IF;
4013: RETURN(FALSE);
4014:
4539: --
4540:
4541: EXCEPTION
4542: WHEN OTHERS THEN
4543: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4544: AP_IMPORT_UTILITIES_PKG.Print(
4545: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4546: END IF;
4547:
4541: EXCEPTION
4542: WHEN OTHERS THEN
4543: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4544: AP_IMPORT_UTILITIES_PKG.Print(
4545: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4546: END IF;
4547:
4548: IF (SQLCODE < 0) then
4549: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4545: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4546: END IF;
4547:
4548: IF (SQLCODE < 0) then
4549: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4550: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
4551: END IF;
4552: END IF;
4553: RETURN(FALSE);
4546: END IF;
4547:
4548: IF (SQLCODE < 0) then
4549: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4550: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
4551: END IF;
4552: END IF;
4553: RETURN(FALSE);
4554:
4956: FROM ap_ppa_invoice_lines_gt
4957: WHERE invoice_id = c_invoice_id
4958: ORDER BY line_number;
4959:
4960: l_invoice_header_rec AP_IMPORT_INVOICES_PKG.r_invoice_info_rec;
4961: l_invoice_header_list AP_IMPORT_INVOICES_PKG.t_invoice_table;
4962: l_invoice_lines_rec AP_IMPORT_INVOICES_PKG.r_line_info_Rec;
4963: l_invoice_lines_list AP_IMPORT_INVOICES_PKG.t_lines_table;
4964:
4957: WHERE invoice_id = c_invoice_id
4958: ORDER BY line_number;
4959:
4960: l_invoice_header_rec AP_IMPORT_INVOICES_PKG.r_invoice_info_rec;
4961: l_invoice_header_list AP_IMPORT_INVOICES_PKG.t_invoice_table;
4962: l_invoice_lines_rec AP_IMPORT_INVOICES_PKG.r_line_info_Rec;
4963: l_invoice_lines_list AP_IMPORT_INVOICES_PKG.t_lines_table;
4964:
4965:
4958: ORDER BY line_number;
4959:
4960: l_invoice_header_rec AP_IMPORT_INVOICES_PKG.r_invoice_info_rec;
4961: l_invoice_header_list AP_IMPORT_INVOICES_PKG.t_invoice_table;
4962: l_invoice_lines_rec AP_IMPORT_INVOICES_PKG.r_line_info_Rec;
4963: l_invoice_lines_list AP_IMPORT_INVOICES_PKG.t_lines_table;
4964:
4965:
4966: l_fatal_error_flag VARCHAR2(1); -- OUT NOCOPY
4959:
4960: l_invoice_header_rec AP_IMPORT_INVOICES_PKG.r_invoice_info_rec;
4961: l_invoice_header_list AP_IMPORT_INVOICES_PKG.t_invoice_table;
4962: l_invoice_lines_rec AP_IMPORT_INVOICES_PKG.r_line_info_Rec;
4963: l_invoice_lines_list AP_IMPORT_INVOICES_PKG.t_lines_table;
4964:
4965:
4966: l_fatal_error_flag VARCHAR2(1); -- OUT NOCOPY
4967: l_invoice_status VARCHAR2(1) :='Y';
5071: l_conc_request_id, --IN
5072: l_allow_interest_invoices, --
5073: current_calling_sequence) <> TRUE) THEN
5074: --
5075: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5076: AP_IMPORT_UTILITIES_PKG.Print(
5077: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5078: 'v_check_invoice_validation<-'||current_calling_sequence);
5079: END IF;
5073: current_calling_sequence) <> TRUE) THEN
5074: --
5075: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5076: AP_IMPORT_UTILITIES_PKG.Print(
5077: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5078: 'v_check_invoice_validation<-'||current_calling_sequence);
5079: END IF;
5080: Raise ppa_validation_failure;
5081: --
5081: --
5082: END IF; --v_check_invoice_validation
5083:
5084: debug_info := 'Temp Invoice Validation Status,fatal_error_flag are : '||l_invoice_status||','||l_fatal_error_flag;
5085: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5086: AP_IMPORT_UTILITIES_PKG.Print(
5087: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5088: END IF;
5089:
5083:
5084: debug_info := 'Temp Invoice Validation Status,fatal_error_flag are : '||l_invoice_status||','||l_fatal_error_flag;
5085: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5086: AP_IMPORT_UTILITIES_PKG.Print(
5087: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5088: END IF;
5089:
5090: IF (( l_invoice_status = 'Y') AND
5091: (NVL(l_fatal_error_flag,'N') = 'N')) THEN
5129: p_default_last_update_login, -- IN
5130: l_invoice_status, -- OUT NOCOPY
5131: current_calling_sequence) <> TRUE) THEN
5132:
5133: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5134: AP_IMPORT_UTILITIES_PKG.Print(
5135: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5136: 'v_check_lines_validation<-'||current_calling_sequence);
5137: END IF;
5131: current_calling_sequence) <> TRUE) THEN
5132:
5133: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5134: AP_IMPORT_UTILITIES_PKG.Print(
5135: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5136: 'v_check_lines_validation<-'||current_calling_sequence);
5137: END IF;
5138: --
5139: Raise ppa_validation_failure;
5142: --
5143: END IF; -- l_invoice_status
5144: --
5145: debug_info := 'Temp Invoice Line Validation Status,fatal_error_flag are : '||l_invoice_status||','||l_fatal_error_flag;
5146: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5147: AP_IMPORT_UTILITIES_PKG.Print(
5148: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5149: END IF;
5150:
5144: --
5145: debug_info := 'Temp Invoice Line Validation Status,fatal_error_flag are : '||l_invoice_status||','||l_fatal_error_flag;
5146: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5147: AP_IMPORT_UTILITIES_PKG.Print(
5148: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5149: END IF;
5150:
5151: IF ((l_invoice_status = 'N') AND
5152: NVL(l_fatal_error_flag,'N') = 'N' ) THEN
5173: RETURN(TRUE);
5174: --
5175: EXCEPTION
5176: WHEN OTHERS THEN
5177: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5178: AP_IMPORT_UTILITIES_PKG.Print(
5179: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5180: END IF;
5181:
5175: EXCEPTION
5176: WHEN OTHERS THEN
5177: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5178: AP_IMPORT_UTILITIES_PKG.Print(
5179: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5180: END IF;
5181:
5182: IF (SQLCODE < 0) then
5183: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5179: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5180: END IF;
5181:
5182: IF (SQLCODE < 0) then
5183: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5184: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
5185: END IF;
5186: END IF;
5187: --
5180: END IF;
5181:
5182: IF (SQLCODE < 0) then
5183: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5184: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
5185: END IF;
5186: END IF;
5187: --
5188: IF ( invoice_header%ISOPEN ) THEN
5298: l_ppa_invoices_total := 0;
5299: --
5300: -----------------------------------------------------------------------
5301: debug_info := 'Insert_Ppa_Invoices Step 1. Open cursor Ppa_invoices';
5302: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5303: AP_IMPORT_UTILITIES_PKG.Print(
5304: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5305: END IF;
5306:
5300: -----------------------------------------------------------------------
5301: debug_info := 'Insert_Ppa_Invoices Step 1. Open cursor Ppa_invoices';
5302: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5303: AP_IMPORT_UTILITIES_PKG.Print(
5304: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5305: END IF;
5306:
5307: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5308: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5334: l_ppa_invoices_total := l_ppa_invoices_total + l_invoice_amount;
5335: --
5336: ------------------------------------------------------------------
5337: debug_info := 'Insert_Ppa_Invoices Step 2. Get Info';
5338: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5339: AP_IMPORT_UTILITIES_PKG.Print(
5340: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5341: END IF;
5342:
5336: ------------------------------------------------------------------
5337: debug_info := 'Insert_Ppa_Invoices Step 2. Get Info';
5338: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5339: AP_IMPORT_UTILITIES_PKG.Print(
5340: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5341: END IF;
5342:
5343: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5344: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5373: AND vendor_site_id = l_vendor_site_id;
5374: --
5375: ------------------------------------------------------------------------
5376: debug_info := 'Insert_Ppa_Invoices Step 3. Insert into AP_INVOICES_ALL, l_ppa_invoice_id is'||l_ppa_invoice_id;
5377: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5378: AP_IMPORT_UTILITIES_PKG.Print(
5379: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5380: END IF;
5381:
5375: ------------------------------------------------------------------------
5376: debug_info := 'Insert_Ppa_Invoices Step 3. Insert into AP_INVOICES_ALL, l_ppa_invoice_id is'||l_ppa_invoice_id;
5377: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5378: AP_IMPORT_UTILITIES_PKG.Print(
5379: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5380: END IF;
5381:
5382: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5383: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5666: ||',p_payment_method : '||l_payment_method_code
5667: ||',p_invoice_currency : '||l_invoice_currency_code
5668: ||',p_payment_currency : '||l_payment_currency_code;
5669:
5670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5671: AP_IMPORT_UTILITIES_PKG.Print(
5672: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5673: END IF;
5674:
5668: ||',p_payment_currency : '||l_payment_currency_code;
5669:
5670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5671: AP_IMPORT_UTILITIES_PKG.Print(
5672: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5673: END IF;
5674:
5675: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5676: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5697: --
5698: ------------------------------------------------------------------------
5699: debug_info := 'Insert_Ppa_Invoices Step 5. Insert into '
5700: ||'AP_INVOICE_LINES_ALL ';
5701: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5702: AP_IMPORT_UTILITIES_PKG.Print(
5703: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5704: END IF;
5705:
5699: debug_info := 'Insert_Ppa_Invoices Step 5. Insert into '
5700: ||'AP_INVOICE_LINES_ALL ';
5701: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5702: AP_IMPORT_UTILITIES_PKG.Print(
5703: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5704: END IF;
5705:
5706: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5707: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5986: --
5987: ------------------------------------------------------------------------
5988: debug_info := 'Insert_Ppa_Invoices Step 5. Insert into '
5989: ||'AP_INVOICE_DISTRIBUTIONS_ALL ';
5990: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5991: AP_IMPORT_UTILITIES_PKG.Print(
5992: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5993: END IF;
5994:
5988: debug_info := 'Insert_Ppa_Invoices Step 5. Insert into '
5989: ||'AP_INVOICE_DISTRIBUTIONS_ALL ';
5990: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5991: AP_IMPORT_UTILITIES_PKG.Print(
5992: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5993: END IF;
5994:
5995: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5996: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
6230: RETURN(TRUE);
6231: --
6232: EXCEPTION
6233: WHEN OTHERS THEN
6234: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6235: AP_IMPORT_UTILITIES_PKG.Print(
6236: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6237: END IF;
6238:
6232: EXCEPTION
6233: WHEN OTHERS THEN
6234: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6235: AP_IMPORT_UTILITIES_PKG.Print(
6236: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6237: END IF;
6238:
6239: IF (SQLCODE < 0) then
6240: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6236: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6237: END IF;
6238:
6239: IF (SQLCODE < 0) then
6240: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6241: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
6242: END IF;
6243: END IF;
6244: IF ( ppa_invoices%ISOPEN ) THEN
6237: END IF;
6238:
6239: IF (SQLCODE < 0) then
6240: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6241: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
6242: END IF;
6243: END IF;
6244: IF ( ppa_invoices%ISOPEN ) THEN
6245: CLOSE ppa_invoices;
6299: | 29-JUL-2003 dgulraja Creation
6300: |
6301: *============================================================================*/
6302: FUNCTION Import_Retroprice_Adjustments(
6303: p_instruction_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
6304: p_base_currency_code IN VARCHAR2,
6305: p_multi_currency_flag IN VARCHAR2,
6306: p_set_of_books_id IN NUMBER,
6307: p_default_exchange_rate_type IN VARCHAR2,
6425: --affected base match Invoices should be valid for the vendor.
6426: ---------------------------------------------------------------------------
6427: debug_info := 'Import_Retroprice_Adjustments Step 1. '
6428: ||'Are_Original_Invoices_Valid';
6429: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6430: AP_IMPORT_UTILITIES_PKG.Print(
6431: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6432: END IF;
6433: --
6427: debug_info := 'Import_Retroprice_Adjustments Step 1. '
6428: ||'Are_Original_Invoices_Valid';
6429: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
6435: p_instruction_rec.invoice_id,
6436: p_instruction_rec.org_id,
6437: l_orig_invoices_valid) <> TRUE) THEN
6438: --
6439: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6440: AP_IMPORT_UTILITIES_PKG.Print(
6441: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6442: 'Are_Original_Invoices_Valid<-' ||current_calling_sequence);
6443: END IF;
6437: l_orig_invoices_valid) <> TRUE) THEN
6438: --
6439: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6440: AP_IMPORT_UTILITIES_PKG.Print(
6441: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6442: 'Are_Original_Invoices_Valid<-' ||current_calling_sequence);
6443: END IF;
6444: RAISE Import_Retro_Adj_failure;
6445: END IF;
6453: FND_GLOBAL.user_id,
6454: FND_GLOBAL.login_id,
6455: current_calling_sequence) <> TRUE) THEN
6456: --
6457: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6458: AP_IMPORT_UTILITIES_PKG.Print(
6459: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6460: 'insert_rejections<- '||current_calling_sequence);
6461: END IF;
6455: current_calling_sequence) <> TRUE) THEN
6456: --
6457: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6458: AP_IMPORT_UTILITIES_PKG.Print(
6459: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6460: 'insert_rejections<- '||current_calling_sequence);
6461: END IF;
6462: Raise Import_Retro_Adj_failure;
6463: END IF; -- Insert rejections
6470: -- Step 2. Are there any Holds other than the Price Holds on the base
6471: -- matched Invoices(along with the PC and QC) for the vendor
6472: ------------------------------------------------------------------------
6473: debug_info := 'Import_Retroprice_Adjustments Step 2. Are_Holds_Ok';
6474: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6475: AP_IMPORT_UTILITIES_PKG.Print(
6476: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6477: END IF;
6478: --
6472: ------------------------------------------------------------------------
6473: debug_info := 'Import_Retroprice_Adjustments Step 2. Are_Holds_Ok';
6474: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
6480: p_instruction_rec.invoice_id,
6481: p_instruction_rec.org_id,
6482: l_orig_invoices_valid) <> TRUE) THEN
6483: --
6484: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6485: AP_IMPORT_UTILITIES_PKG.Print(
6486: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6487: 'Are_Holds_Ok<-' ||current_calling_sequence);
6488: END IF;
6482: l_orig_invoices_valid) <> TRUE) THEN
6483: --
6484: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6485: AP_IMPORT_UTILITIES_PKG.Print(
6486: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6487: 'Are_Holds_Ok<-' ||current_calling_sequence);
6488: END IF;
6489: RAISE Import_Retro_Adj_failure;
6490: END IF;
6497: 'ORIGINAL INVOICE HAS A HOLD',
6498: FND_GLOBAL.user_id,
6499: FND_GLOBAL.login_id,
6500: current_calling_sequence) <> TRUE) THEN
6501: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6502: AP_IMPORT_UTILITIES_PKG.Print(
6503: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6504: 'insert_rejections<- '||current_calling_sequence);
6505: END IF;
6499: FND_GLOBAL.login_id,
6500: current_calling_sequence) <> TRUE) THEN
6501: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6502: AP_IMPORT_UTILITIES_PKG.Print(
6503: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6504: 'insert_rejections<- '||current_calling_sequence);
6505: END IF;
6506: Raise Import_Retro_Adj_failure;
6507: END IF; -- Insert rejections
6516: -- assigned to the document class of 'PO ADJ INV'
6517: -- Added for the bug5769161
6518: ------------------------------------------------------------------------
6519: debug_info := 'Import_Retroprice_Adjustments Step 2.1 Is sequence Assigned';
6520: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6521: AP_IMPORT_UTILITIES_PKG.Print(
6522: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6523: END IF;
6524: --
6518: ------------------------------------------------------------------------
6519: debug_info := 'Import_Retroprice_Adjustments Step 2.1 Is sequence Assigned';
6520: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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',
6526: 'PO ADJ INV',
6527: p_instruction_rec.set_of_books_id,
6528: l_orig_invoices_valid) <> TRUE) THEN
6529: --
6530: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6531: AP_IMPORT_UTILITIES_PKG.Print(
6532: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6533: 'Is_Sequence_Assigned<-' ||current_calling_sequence);
6534: END IF;
6528: l_orig_invoices_valid) <> TRUE) THEN
6529: --
6530: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6531: AP_IMPORT_UTILITIES_PKG.Print(
6532: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6533: 'Is_Sequence_Assigned<-' ||current_calling_sequence);
6534: END IF;
6535: RAISE Import_Retro_Adj_failure;
6536: END IF;
6544: 'NO SEQUENCE DEFINED FOR PPA',
6545: FND_GLOBAL.user_id,
6546: FND_GLOBAL.login_id,
6547: current_calling_sequence) <> TRUE) THEN
6548: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6549: AP_IMPORT_UTILITIES_PKG.Print(
6550: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6551: 'insert_rejections<- '||current_calling_sequence);
6552: END IF;
6546: FND_GLOBAL.login_id,
6547: current_calling_sequence) <> TRUE) THEN
6548: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6549: AP_IMPORT_UTILITIES_PKG.Print(
6550: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6551: 'insert_rejections<- '||current_calling_sequence);
6552: END IF;
6553: Raise Import_Retro_Adj_failure;
6554: END IF; -- Insert rejections
6563: -----------------------------------------------------------------------
6564: debug_info := 'Import_Retroprice_Adjustments Step 3. Derive Batch_Id';
6565: IF l_instr_status_flag = 'Y' THEN
6566: debug_info := 'Import_Retroprice_Adjustments 3. Derive Batch Id, p_instruction_rec.group_id is'||p_instruction_rec.group_id;
6567: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6568: AP_IMPORT_UTILITIES_PKG.Print(
6569: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6570: END IF;
6571: --
6565: IF l_instr_status_flag = 'Y' THEN
6566: debug_info := 'Import_Retroprice_Adjustments 3. Derive Batch Id, p_instruction_rec.group_id is'||p_instruction_rec.group_id;
6567: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6568: AP_IMPORT_UTILITIES_PKG.Print(
6569: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6570: END IF;
6571: --
6572: --Bugfix:4681253
6573: l_batch_id := TO_NUMBER(substr(p_instruction_rec.group_id, 5));
6579: -- Shipment Lines) for the vendor
6580: --------------------------------------------------------------------------
6581: debug_info := 'Import_Retroprice_Adjustments Step 4.Open instruction_lines';
6582: IF l_instr_status_flag = 'Y' THEN
6583: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6584: AP_IMPORT_UTILITIES_PKG.Print(
6585: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6586: END IF;
6587:
6581: debug_info := 'Import_Retroprice_Adjustments Step 4.Open instruction_lines';
6582: IF l_instr_status_flag = 'Y' THEN
6583: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6584: AP_IMPORT_UTILITIES_PKG.Print(
6585: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6586: END IF;
6587:
6588: OPEN instruction_lines;
6589: FETCH instruction_lines
6595: ----------------------------------------------------------------------
6596: -- STEP 4.1. Get Base Match Lines for the instruction_line(Shipment)
6597: ----------------------------------------------------------------------
6598: debug_info := 'Import_Retroprice_Adjustments Step 4.1. Get Base Match Lines';
6599: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6600: AP_IMPORT_UTILITIES_PKG.Print(
6601: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6602: END IF;
6603:
6597: ----------------------------------------------------------------------
6598: debug_info := 'Import_Retroprice_Adjustments Step 4.1. Get Base Match Lines';
6599: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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
6609: --
6610: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6611: AP_IMPORT_UTILITIES_PKG.Print(
6612: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6613: 'Get_Base_Match_Lines<- '||current_calling_sequence);
6614: END IF;
6608: current_calling_sequence) <> TRUE) THEN
6609: --
6610: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6611: AP_IMPORT_UTILITIES_PKG.Print(
6612: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6613: 'Get_Base_Match_Lines<- '||current_calling_sequence);
6614: END IF;
6615: Raise Import_Retro_Adj_failure;
6616: --
6620: -- STEP 4.2 Process Retroprice Adjustments for the affected Shipment
6621: ----------------------------------------------------------------------
6622: debug_info := 'Import_Retroprice_Adjustments Step 4.2.'
6623: ||' Process_Retroprice_Adjustments ';
6624: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6625: AP_IMPORT_UTILITIES_PKG.Print(
6626: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6627: END IF;
6628: --
6622: debug_info := 'Import_Retroprice_Adjustments Step 4.2.'
6623: ||' Process_Retroprice_Adjustments ';
6624: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6625: AP_IMPORT_UTILITIES_PKG.Print(
6626: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6627: END IF;
6628: --
6629:
6630: IF (AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(
6634: l_instruction_lines_list(i),
6635: l_batch_id,
6636: current_calling_sequence) <> TRUE) THEN
6637: --
6638: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6639: AP_IMPORT_UTILITIES_PKG.Print(
6640: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6641: 'Process_Retroprice_Adjustments<- '||current_calling_sequence);
6642: END IF;
6636: current_calling_sequence) <> TRUE) THEN
6637: --
6638: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6639: AP_IMPORT_UTILITIES_PKG.Print(
6640: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6641: 'Process_Retroprice_Adjustments<- '||current_calling_sequence);
6642: END IF;
6643: Raise Import_Retro_Adj_failure;
6644: --
6658: -- STEP 5. Update Invoice Totals for PPA Documents created in the Temp
6659: -- tables.
6660: -----------------------------------------------------------------------
6661: debug_info := 'Import_Retroprice_Adjustments 5. Update Invoice Amounts, p_instruction_rec.invoice_id is'||p_instruction_rec.invoice_id;
6662: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6663: AP_IMPORT_UTILITIES_PKG.Print(
6664: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6665: END IF;
6666:
6660: -----------------------------------------------------------------------
6661: debug_info := 'Import_Retroprice_Adjustments 5. Update Invoice Amounts, p_instruction_rec.invoice_id is'||p_instruction_rec.invoice_id;
6662: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6663: AP_IMPORT_UTILITIES_PKG.Print(
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(
6673: --------------------------------------------------------------------------
6674: -- STEP 6. Validate PPA Invoices
6675: --------------------------------------------------------------------------
6676: debug_info := 'Import_Retroprice_Adjustments 6. Validate_Temp_Ppa_Invoices';
6677: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6678: AP_IMPORT_UTILITIES_PKG.Print(
6679: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6680: END IF;
6681:
6675: --------------------------------------------------------------------------
6676: debug_info := 'Import_Retroprice_Adjustments 6. Validate_Temp_Ppa_Invoices';
6677: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6678: AP_IMPORT_UTILITIES_PKG.Print(
6679: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6680: END IF;
6681:
6682: IF (Validate_Temp_Ppa_Invoices(
6683: p_instruction_rec.invoice_id,
6702: p_default_last_update_login,
6703: l_instr_status_flag1, --Bug5769161
6704: current_calling_sequence) <> TRUE) THEN
6705: --
6706: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6707: AP_IMPORT_UTILITIES_PKG.Print(
6708: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6709: 'Validate_Temp_Ppa_Invoices<- '||current_calling_sequence);
6710: END IF;
6704: current_calling_sequence) <> TRUE) THEN
6705: --
6706: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6707: AP_IMPORT_UTILITIES_PKG.Print(
6708: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6709: 'Validate_Temp_Ppa_Invoices<- '||current_calling_sequence);
6710: END IF;
6711: RAISE Import_Retro_Adj_failure;
6712: --
6726: ----------------------------------------------------------------------------
6727: -- STEP 7. Update insr_status in the Global Temp Table
6728: ----------------------------------------------------------------------------
6729: debug_info := 'l_instr_status_flag: '||l_instr_status_flag;
6730: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6731: AP_IMPORT_UTILITIES_PKG.Print(
6732: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6733: END IF;
6734:
6728: ----------------------------------------------------------------------------
6729: debug_info := 'l_instr_status_flag: '||l_instr_status_flag;
6730: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6731: AP_IMPORT_UTILITIES_PKG.Print(
6732: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6733: END IF;
6734:
6735:
6736: debug_info := 'Import_Retroprice_Adjustments 8. Update Instruction Status';
6733: END IF;
6734:
6735:
6736: debug_info := 'Import_Retroprice_Adjustments 8. Update Instruction Status';
6737: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6738: AP_IMPORT_UTILITIES_PKG.Print(
6739: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6740: END IF;
6741:
6735:
6736: debug_info := 'Import_Retroprice_Adjustments 8. Update Instruction Status';
6737: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6738: AP_IMPORT_UTILITIES_PKG.Print(
6739: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6740: END IF;
6741:
6742: p_instr_status_flag := l_instr_status_flag;
6743:
6755: -- STEP 8. Discard all lines for a PPA Header if they add up to zero for
6756: -- a shipment line(There is only one PPA for a Shipment)
6757: --------------------------------------------------------------------------
6758: debug_info := 'Import_Retroprice_Adjustments 8. Discard PPA lines if SUM=0';
6759: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6760: AP_IMPORT_UTILITIES_PKG.Print(
6761: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6762: END IF;
6763:
6757: --------------------------------------------------------------------------
6758: debug_info := 'Import_Retroprice_Adjustments 8. Discard PPA lines if SUM=0';
6759: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6760: AP_IMPORT_UTILITIES_PKG.Print(
6761: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6762: END IF;
6763:
6764: -- Bug 5469166. Uncomment the following section. In case of wash there is no
6765: -- need to create PPA invoice
6793: -- STEP 9. Insert Zero Amount Adjustments for Original Invoices
6794: -------------------------------------------------------------------------
6795: debug_info := 'Import_Retroprice_Adjustments 9.0. '||
6796: ' Processing for base match line zero adjustment';
6797: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6798: AP_IMPORT_UTILITIES_PKG.Print(
6799: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6800: END IF;
6801:
6795: debug_info := 'Import_Retroprice_Adjustments 9.0. '||
6796: ' Processing for base match line zero adjustment';
6797: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6798: AP_IMPORT_UTILITIES_PKG.Print(
6799: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6800: END IF;
6801:
6802:
6803: FOR i IN 1..l_base_match_lines_list.COUNT
6805: --
6806: l_base_match_lines_rec := l_base_match_lines_list(i);
6807:
6808: debug_info := 'Import_Retroprice_Adjustments 9.1 Check PPA already exists';
6809: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6810: AP_IMPORT_UTILITIES_PKG.Print(
6811: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6812: END IF;
6813:
6807:
6808: debug_info := 'Import_Retroprice_Adjustments 9.1 Check PPA already exists';
6809: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
6817: l_ppa_exists, --OUT
6818: l_existing_ppa_inv_id --OUT
6819: ) <> TRUE) THEN
6820:
6821: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6822: AP_IMPORT_UTILITIES_PKG.Print(
6823: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6824: 'ppa_already_exists<- '||current_calling_sequence);
6825: END IF;
6819: ) <> TRUE) THEN
6820:
6821: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6822: AP_IMPORT_UTILITIES_PKG.Print(
6823: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6824: 'ppa_already_exists<- '||current_calling_sequence);
6825: END IF;
6826: Raise Import_Retro_Adj_failure;
6827: END IF;
6826: Raise Import_Retro_Adj_failure;
6827: END IF;
6828:
6829: debug_info := 'Import_Retroprice_Adjustments 9.2 Zero Amount Adjustments';
6830: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6831: AP_IMPORT_UTILITIES_PKG.Print(
6832: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6833: END IF;
6834:
6828:
6829: debug_info := 'Import_Retroprice_Adjustments 9.2 Zero Amount Adjustments';
6830: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6831: AP_IMPORT_UTILITIES_PKG.Print(
6832: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6833: END IF;
6834:
6835: IF (l_instr_status_flag = 'Y' AND
6836: l_ppa_exists = 'N') THEN -- Bug 5525506
6838: IF (Insert_Zero_Amt_Adjustments(
6839: p_instruction_rec.invoice_id,
6840: current_calling_sequence) <> TRUE) THEN
6841: --
6842: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6843: AP_IMPORT_UTILITIES_PKG.Print(
6844: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6845: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
6846: END IF;
6840: current_calling_sequence) <> TRUE) THEN
6841: --
6842: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6843: AP_IMPORT_UTILITIES_PKG.Print(
6844: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6845: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
6846: END IF;
6847: Raise Import_Retro_Adj_failure;
6848: --
6869: ---------------------------------------------------------------------------
6870: -- STEP 10. Insert PPA Invoices
6871: ---------------------------------------------------------------------------
6872: debug_info := 'Import_Retroprice_Adjustments 10. Insert_Ppa_Invoices l_instr_status_flag is '||l_instr_status_flag;
6873: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6874: AP_IMPORT_UTILITIES_PKG.Print(
6875: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6876: END IF;
6877:
6871: ---------------------------------------------------------------------------
6872: debug_info := 'Import_Retroprice_Adjustments 10. Insert_Ppa_Invoices l_instr_status_flag is '||l_instr_status_flag;
6873: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6874: AP_IMPORT_UTILITIES_PKG.Print(
6875: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6876: END IF;
6877:
6878: IF l_instr_status_flag = 'Y' THEN
6879: --
6882: p_invoices_count,
6883: p_invoices_total,
6884: current_calling_sequence) <> TRUE) THEN
6885: --
6886: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6887: AP_IMPORT_UTILITIES_PKG.Print(
6888: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6889: 'Insert_Ppa_Invoices<- '||current_calling_sequence);
6890: END IF;
6884: current_calling_sequence) <> TRUE) THEN
6885: --
6886: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6887: AP_IMPORT_UTILITIES_PKG.Print(
6888: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6889: 'Insert_Ppa_Invoices<- '||current_calling_sequence);
6890: END IF;
6891: Raise Import_Retro_Adj_failure;
6892: --
6897: --------------------------------------------------------------------------
6898: -- STEP 10. Update Amount, Invoice Adjustment Flag in PO Distributions
6899: --------------------------------------------------------------------------
6900: debug_info := 'Import_Retroprice_Adjustments 11. Update PO_DISTRIBUTIONS';
6901: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6902: AP_IMPORT_UTILITIES_PKG.Print(
6903: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6904: END IF;
6905:
6899: --------------------------------------------------------------------------
6900: debug_info := 'Import_Retroprice_Adjustments 11. Update PO_DISTRIBUTIONS';
6901: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6902: AP_IMPORT_UTILITIES_PKG.Print(
6903: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6904: END IF;
6905:
6906:
6907:
7000: RETURN (TRUE);
7001: --
7002: EXCEPTION
7003: WHEN OTHERS THEN
7004: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7005: AP_IMPORT_UTILITIES_PKG.Print(
7006: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7007:
7008: debug_info := 'In Others Exception';
7002: EXCEPTION
7003: WHEN OTHERS THEN
7004: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7005: AP_IMPORT_UTILITIES_PKG.Print(
7006: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7007:
7008: debug_info := 'In Others Exception';
7009: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7010: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
7012:
7013: END IF;
7014:
7015: IF (SQLCODE < 0) then
7016: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7017: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
7018: END IF;
7019: END IF;
7020: --
7013: END IF;
7014:
7015: IF (SQLCODE < 0) then
7016: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7017: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
7018: END IF;
7019: END IF;
7020: --
7021: IF ( instruction_lines%ISOPEN ) THEN