[Home] [Help]
1052: RETURN(TRUE);
1053: --
1054: EXCEPTION
1055: WHEN OTHERS THEN
1056: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1057: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1058: debug_info);
1059: debug_info := 'In Others Exception';
1060: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1053: --
1054: EXCEPTION
1055: WHEN OTHERS THEN
1056: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1057: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1058: debug_info);
1059: debug_info := 'In Others Exception';
1060: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1061: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
1062: END IF;
1063: END IF;
1064: --
1065: IF (SQLCODE < 0) then
1066: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1067: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1068: SQLERRM);
1069: END IF;
1070: END IF;
1063: END IF;
1064: --
1065: IF (SQLCODE < 0) then
1066: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1067: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1068: SQLERRM);
1069: END IF;
1070: END IF;
1071: --
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
1379: AP_IMPORT_UTILITIES_PKG.Print(
1380: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1381: 'insert_rejections<- '||current_calling_sequence);
1382: END IF;
1376: current_calling_sequence) <> TRUE) THEN
1377: --
1378: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1379: AP_IMPORT_UTILITIES_PKG.Print(
1380: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1381: 'insert_rejections<- '||current_calling_sequence);
1382: END IF;
1383: --
1384: Raise Ppa_Line_Reversal_failure;
1393: l_ppa_lines_rec,
1394: l_existing_ppa_lines_rec,
1395: current_calling_sequence) <> TRUE) THEN
1396: --
1397: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1398: AP_IMPORT_UTILITIES_PKG.Print(
1399: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1400: 'Reverse_Existing_Ppa_Dists<- '||current_calling_sequence);
1401: END IF;
1395: current_calling_sequence) <> TRUE) THEN
1396: --
1397: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1398: AP_IMPORT_UTILITIES_PKG.Print(
1399: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1400: 'Reverse_Existing_Ppa_Dists<- '||current_calling_sequence);
1401: END IF;
1402: --
1403: Raise Ppa_Line_Reversal_failure;
1414: RETURN(TRUE);
1415: --
1416: EXCEPTION
1417: WHEN OTHERS THEN
1418: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1419: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1420: debug_info);
1421: END IF;
1422:
1415: --
1416: EXCEPTION
1417: WHEN OTHERS THEN
1418: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1419: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1420: debug_info);
1421: END IF;
1422:
1423: IF (SQLCODE < 0) then
1420: debug_info);
1421: END IF;
1422:
1423: IF (SQLCODE < 0) then
1424: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1425: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1426: SQLERRM);
1427: END IF;
1428: END IF;
1421: END IF;
1422:
1423: IF (SQLCODE < 0) then
1424: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1425: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1426: SQLERRM);
1427: END IF;
1428: END IF;
1429: --
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
1531: AP_IMPORT_UTILITIES_PKG.Print(
1532: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1533: 'Create_Line<- '||current_calling_sequence);
1534: END IF;
1528: current_calling_sequence) <> TRUE) THEN
1529: --
1530: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1531: AP_IMPORT_UTILITIES_PKG.Print(
1532: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1533: 'Create_Line<- '||current_calling_sequence);
1534: END IF;
1535: --
1536: Raise Zero_Amt_Adj_Line_Failure;
1542: RETURN (TRUE);
1543: --
1544: EXCEPTION
1545: WHEN OTHERS THEN
1546: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1547: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1548: debug_info);
1549: END IF;
1550:
1543: --
1544: EXCEPTION
1545: WHEN OTHERS THEN
1546: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1547: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1548: debug_info);
1549: END IF;
1550:
1551: IF (SQLCODE < 0) then
1548: debug_info);
1549: END IF;
1550:
1551: IF (SQLCODE < 0) then
1552: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1553: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1554: SQLERRM);
1555: END IF;
1556: END IF;
1549: END IF;
1550:
1551: IF (SQLCODE < 0) then
1552: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1553: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1554: SQLERRM);
1555: END IF;
1556: END IF;
1557:
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
1769: AP_IMPORT_UTILITIES_PKG.Print(
1770: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1771: 'insert_rejections<- '||current_calling_sequence);
1772: END IF;
1766: current_calling_sequence) <> TRUE) THEN
1767: --
1768: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1769: AP_IMPORT_UTILITIES_PKG.Print(
1770: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1771: 'insert_rejections<- '||current_calling_sequence);
1772: END IF;
1773: --
1774: Raise Adj_Correction_Lines_Failure;
1866: RETURN(TRUE);
1867:
1868: EXCEPTION
1869: WHEN OTHERS THEN
1870: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1871: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1872: debug_info);
1873: END IF;
1874: --
1867:
1868: EXCEPTION
1869: WHEN OTHERS THEN
1870: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1871: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1872: debug_info);
1873: END IF;
1874: --
1875: IF (SQLCODE < 0) then
1872: debug_info);
1873: END IF;
1874: --
1875: IF (SQLCODE < 0) then
1876: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1877: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1878: SQLERRM);
1879: END IF;
1880: END IF;
1873: END IF;
1874: --
1875: IF (SQLCODE < 0) then
1876: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1877: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1878: SQLERRM);
1879: END IF;
1880: END IF;
1881: --
2090: p_lines_rec,
2091: l_adj_lines_rec, --OUT
2092: current_calling_sequence) <> TRUE) THEN
2093: --
2094: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2095: AP_IMPORT_UTILITIES_PKG.Print(
2096: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2097: 'Create_Zero_Amt_Adj_Line<- '||current_calling_sequence);
2098: END IF;
2092: current_calling_sequence) <> TRUE) THEN
2093: --
2094: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2095: AP_IMPORT_UTILITIES_PKG.Print(
2096: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2097: 'Create_Zero_Amt_Adj_Line<- '||current_calling_sequence);
2098: END IF;
2099: --
2100: Raise Reverse_Redist_IPV_FAILURE;
2118: p_lines_rec.invoice_id,
2119: p_lines_rec.line_number,
2120: p_erv_dists_exist) <> TRUE) THEN
2121: --
2122: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2123: AP_IMPORT_UTILITIES_PKG.Print(
2124: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2125: 'Erv_Dists_exists<- '||current_calling_sequence);
2126: END IF;
2120: p_erv_dists_exist) <> TRUE) THEN
2121: --
2122: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2123: AP_IMPORT_UTILITIES_PKG.Print(
2124: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2125: 'Erv_Dists_exists<- '||current_calling_sequence);
2126: END IF;
2127: --
2128: Raise Reverse_Redist_IPV_FAILURE;
2403: p_base_currency_code,
2404: l_adj_lines_rec,
2405: current_calling_sequence) <> TRUE) THEN
2406: --
2407: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2408: AP_IMPORT_UTILITIES_PKG.Print(
2409: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2410: 'Create_Adjustment_Corrections<- '||current_calling_sequence);
2411: END IF;
2405: current_calling_sequence) <> TRUE) THEN
2406: --
2407: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2408: AP_IMPORT_UTILITIES_PKG.Print(
2409: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2410: 'Create_Adjustment_Corrections<- '||current_calling_sequence);
2411: END IF;
2412: --
2413: Raise Reverse_Redist_IPV_FAILURE;
2418: RETURN (TRUE);
2419:
2420: EXCEPTION
2421: WHEN OTHERS THEN
2422: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2423: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2424: debug_info);
2425: END IF;
2426:
2419:
2420: EXCEPTION
2421: WHEN OTHERS THEN
2422: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2423: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2424: debug_info);
2425: END IF;
2426:
2427: IF (SQLCODE < 0) then
2424: debug_info);
2425: END IF;
2426:
2427: IF (SQLCODE < 0) then
2428: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2429: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2430: SQLERRM);
2431: END IF;
2432: END IF;
2425: END IF;
2426:
2427: IF (SQLCODE < 0) then
2428: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2429: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2430: SQLERRM);
2431: END IF;
2432: END IF;
2433: --
2651: p_tax_lines_rec,
2652: l_tipv_adj_lines_rec, --OUT
2653: current_calling_sequence) <> TRUE) THEN
2654: --
2655: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2656: AP_IMPORT_UTILITIES_PKG.Print(
2657: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2658: 'Create_Zero_Amt_Adj_Line<- '||current_calling_sequence);
2659: END IF;
2653: current_calling_sequence) <> TRUE) THEN
2654: --
2655: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2656: AP_IMPORT_UTILITIES_PKG.Print(
2657: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2658: 'Create_Zero_Amt_Adj_Line<- '||current_calling_sequence);
2659: END IF;
2660: --
2661: Raise Tipv_Adjustment_Corr_Failure;
2670: p_tax_lines_rec.invoice_id,
2671: p_tax_lines_rec.line_number,
2672: l_terv_dists_exist) <> TRUE) THEN
2673: --
2674: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2675: AP_IMPORT_UTILITIES_PKG.Print(
2676: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2677: 'Terv_Dists_exists<- '||current_calling_sequence);
2678: END IF;
2672: l_terv_dists_exist) <> TRUE) THEN
2673: --
2674: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2675: AP_IMPORT_UTILITIES_PKG.Print(
2676: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2677: 'Terv_Dists_exists<- '||current_calling_sequence);
2678: END IF;
2679: --
2680: Raise Tipv_Adjustment_Corr_Failure;
2941: p_base_currency_code,
2942: l_tipv_adj_lines_rec,
2943: current_calling_sequence) <> TRUE) THEN
2944: --
2945: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2946: AP_IMPORT_UTILITIES_PKG.Print(
2947: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2948: 'Create_Adjustment_Corrections<- '||current_calling_sequence);
2949: END IF;
2943: current_calling_sequence) <> TRUE) THEN
2944: --
2945: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2946: AP_IMPORT_UTILITIES_PKG.Print(
2947: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2948: 'Create_Adjustment_Corrections<- '||current_calling_sequence);
2949: END IF;
2950: --
2951: Raise Tipv_Adjustment_Corr_Failure;
2957:
2958:
2959: EXCEPTION
2960: WHEN OTHERS THEN
2961: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2962: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2963: debug_info);
2964: END IF;
2965:
2958:
2959: EXCEPTION
2960: WHEN OTHERS THEN
2961: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2962: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2963: debug_info);
2964: END IF;
2965:
2966: IF (SQLCODE < 0) then
2963: debug_info);
2964: END IF;
2965:
2966: IF (SQLCODE < 0) then
2967: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2968: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2969: SQLERRM);
2970: END IF;
2971: END IF;
2964: END IF;
2965:
2966: IF (SQLCODE < 0) then
2967: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2968: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2969: SQLERRM);
2970: END IF;
2971: END IF;
2972: --
3052: LOOP
3053: --
3054: l_tax_lines_rec := p_tax_lines_list(i);
3055: --
3056: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3057: AP_IMPORT_UTILITIES_PKG.Print(
3058: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3059: END IF;
3060: IF (Reverse_Redistribute_TIPV(
3054: l_tax_lines_rec := p_tax_lines_list(i);
3055: --
3056: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3057: AP_IMPORT_UTILITIES_PKG.Print(
3058: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3059: END IF;
3060: IF (Reverse_Redistribute_TIPV(
3061: p_ppa_invoice_rec,
3062: p_base_currency_code,
3065: l_original_exchange_rate,
3066: p_lines_rec,
3067: l_tax_lines_rec,
3068: p_calling_sequence) <> TRUE) THEN
3069: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3070: AP_IMPORT_UTILITIES_PKG.Print(
3071: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3072: 'Reverse_Redistribute_TIPV<- '||current_calling_sequence);
3073: END IF;
3067: l_tax_lines_rec,
3068: p_calling_sequence) <> TRUE) THEN
3069: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3070: AP_IMPORT_UTILITIES_PKG.Print(
3071: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3072: 'Reverse_Redistribute_TIPV<- '||current_calling_sequence);
3073: END IF;
3074: Raise Process_TIPV_Adj_failure;
3075: END IF;
3079: RETURN(TRUE);
3080: --
3081: EXCEPTION
3082: WHEN OTHERS THEN
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,debug_info);
3086: END IF;
3087:
3081: EXCEPTION
3082: WHEN OTHERS THEN
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,debug_info);
3086: END IF;
3087:
3088: IF (SQLCODE < 0) then
3089: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3085: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3086: END IF;
3087:
3088: IF (SQLCODE < 0) then
3089: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3090: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3091: END IF;
3092: END IF;
3093: RETURN(FALSE);
3086: END IF;
3087:
3088: IF (SQLCODE < 0) then
3089: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3090: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3091: END IF;
3092: END IF;
3093: RETURN(FALSE);
3094:
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
3333: AP_IMPORT_UTILITIES_PKG.Print(
3334: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3335: 'insert_rejections<- '||current_calling_sequence);
3336: END IF;
3330: current_calling_sequence) <> TRUE) THEN
3331: --
3332: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3333: AP_IMPORT_UTILITIES_PKG.Print(
3334: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3335: 'insert_rejections<- '||current_calling_sequence);
3336: END IF;
3337: --
3338: Raise Po_Price_Adj_Failure;
3473: RETURN(TRUE);
3474: --
3475: EXCEPTION
3476: WHEN OTHERS THEN
3477: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3478: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3479: debug_info);
3480: END IF;
3481: --
3474: --
3475: EXCEPTION
3476: WHEN OTHERS THEN
3477: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3478: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3479: debug_info);
3480: END IF;
3481: --
3482: IF (SQLCODE < 0) then
3479: debug_info);
3480: END IF;
3481: --
3482: IF (SQLCODE < 0) then
3483: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3484: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3485: SQLERRM);
3486: END IF;
3487: END IF;
3480: END IF;
3481: --
3482: IF (SQLCODE < 0) then
3483: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3484: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3485: SQLERRM);
3486: END IF;
3487: END IF;
3488: --
3528: *============================================================================*/
3529: FUNCTION Process_Retroprice_Adjustments(
3530: p_base_currency_code IN VARCHAR2,
3531: p_base_match_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,
3532: p_instruction_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
3533: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
3534: p_batch_id IN NUMBER,
3535: p_calling_sequence IN VARCHAR2)
3536: RETURN BOOLEAN IS
3571: END IF;
3572:
3573: debug_info := 'Inside the procedure Process_Retroprice Adjustments';
3574:
3575: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3576: AP_IMPORT_UTILITIES_PKG.Print(
3577: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3578: END IF;
3579:
3573: debug_info := 'Inside the procedure Process_Retroprice Adjustments';
3574:
3575: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3576: AP_IMPORT_UTILITIES_PKG.Print(
3577: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3578: END IF;
3579:
3580: FOR i IN 1..p_base_match_lines_list.COUNT
3581: LOOP
3583: l_base_match_lines_rec := p_base_match_lines_list(i);
3584:
3585: ------------------------------------------------------------------------------
3586: 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;
3587: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3588: AP_IMPORT_UTILITIES_PKG.Print(
3589: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3590: END IF;
3591: ------------------------------------------------------------------------------
3585: ------------------------------------------------------------------------------
3586: 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;
3587: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3588: AP_IMPORT_UTILITIES_PKG.Print(
3589: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3590: END IF;
3591: ------------------------------------------------------------------------------
3592: --Bugfix:4281253
3593: IF (l_base_match_lines_rec.invoice_id <> nvl(l_prev_invoice_id,0))
3592: --Bugfix:4281253
3593: IF (l_base_match_lines_rec.invoice_id <> nvl(l_prev_invoice_id,0))
3594: THEN
3595: --
3596: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3597: AP_IMPORT_UTILITIES_PKG.Print(
3598: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3599: END IF;
3600: --
3594: THEN
3595: --
3596: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3597: AP_IMPORT_UTILITIES_PKG.Print(
3598: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3599: END IF;
3600: --
3601: debug_info := '8889999 l_base_match_lines_rec.amount is '||l_base_match_lines_rec.amount;
3602: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3598: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3599: END IF;
3600: --
3601: debug_info := '8889999 l_base_match_lines_rec.amount is '||l_base_match_lines_rec.amount;
3602: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3603: AP_IMPORT_UTILITIES_PKG.Print(
3604: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3605: END IF;
3606:
3600: --
3601: debug_info := '8889999 l_base_match_lines_rec.amount is '||l_base_match_lines_rec.amount;
3602: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3603: AP_IMPORT_UTILITIES_PKG.Print(
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(
3612: p_batch_id,
3613: l_ppa_invoice_rec, --OUT
3614: current_calling_sequence) <> TRUE) THEN
3615:
3616: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3617: AP_IMPORT_UTILITIES_PKG.Print(
3618: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3619: 'Create_ppa_Invoice<- '||current_calling_sequence);
3620: END IF;
3614: current_calling_sequence) <> TRUE) THEN
3615:
3616: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3617: AP_IMPORT_UTILITIES_PKG.Print(
3618: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3619: 'Create_ppa_Invoice<- '||current_calling_sequence);
3620: END IF;
3621: Raise Process_Retro_Adj_failure;
3622:
3629:
3630: --------------------------------------------------------------------------
3631: debug_info := 'Process Retroprice Adjustments Step 2. Check if '
3632: ||'ppa_already_exists';
3633: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3634: AP_IMPORT_UTILITIES_PKG.Print(
3635: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3636: END IF;
3637: --------------------------------------------------------------------------
3631: debug_info := 'Process Retroprice Adjustments Step 2. Check if '
3632: ||'ppa_already_exists';
3633: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
3641: l_ppa_exists, --OUT
3642: l_existing_ppa_inv_id --OUT
3643: ) <> TRUE) THEN
3644:
3645: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3646: AP_IMPORT_UTILITIES_PKG.Print(
3647: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3648: 'ppa_already_exists<- '||current_calling_sequence);
3649: END IF;
3643: ) <> TRUE) THEN
3644:
3645: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3646: AP_IMPORT_UTILITIES_PKG.Print(
3647: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3648: 'ppa_already_exists<- '||current_calling_sequence);
3649: END IF;
3650: Raise Process_Retro_Adj_failure;
3651: END IF;
3650: Raise Process_Retro_Adj_failure;
3651: END IF;
3652:
3653: debug_info := 'Existing PPA Invoice Id: '||l_existing_ppa_inv_id;
3654: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3655: AP_IMPORT_UTILITIES_PKG.Print(
3656: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3657: END IF;
3658:
3652:
3653: debug_info := 'Existing PPA Invoice Id: '||l_existing_ppa_inv_id;
3654: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3655: AP_IMPORT_UTILITIES_PKG.Print(
3656: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3657: END IF;
3658:
3659:
3660: -- PPA Docs have two types of lines --
3665: -- Corrections on the PPA.
3666:
3667: ----------------------------------------------------------------------------
3668: debug_info := 'Process Retroprice Adjustments Step 3. Reverse_Existing_Ppa';
3669: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3670: AP_IMPORT_UTILITIES_PKG.Print(
3671: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3672: END IF;
3673: ----------------------------------------------------------------------------
3667: ----------------------------------------------------------------------------
3668: debug_info := 'Process Retroprice Adjustments Step 3. Reverse_Existing_Ppa';
3669: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3670: AP_IMPORT_UTILITIES_PKG.Print(
3671: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3672: END IF;
3673: ----------------------------------------------------------------------------
3674: IF (l_ppa_exists = 'Y') THEN
3675: -- l_base_match_lines_rec.invoice_id <> l_prev_invoice_id) THEN
3673: ----------------------------------------------------------------------------
3674: IF (l_ppa_exists = 'Y') THEN
3675: -- l_base_match_lines_rec.invoice_id <> l_prev_invoice_id) THEN
3676: debug_info := 'PPA exists for this Invoice ';
3677: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3678: AP_IMPORT_UTILITIES_PKG.Print(
3679: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3680: END IF;
3681: IF (Reverse_Existing_Ppa(
3675: -- l_base_match_lines_rec.invoice_id <> l_prev_invoice_id) THEN
3676: debug_info := 'PPA exists for this Invoice ';
3677: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3678: AP_IMPORT_UTILITIES_PKG.Print(
3679: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3680: END IF;
3681: IF (Reverse_Existing_Ppa(
3682: p_instruction_rec.invoice_id,
3683: l_ppa_invoice_rec,
3684: p_instruction_lines_rec,
3685: l_existing_ppa_inv_id,
3686: current_calling_sequence) <> TRUE) THEN
3687: --
3688: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3689: AP_IMPORT_UTILITIES_PKG.Print(
3690: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3691: 'Reverse_Existing_Ppa<- '||current_calling_sequence);
3692: END IF;
3686: current_calling_sequence) <> TRUE) THEN
3687: --
3688: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3689: AP_IMPORT_UTILITIES_PKG.Print(
3690: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3691: 'Reverse_Existing_Ppa<- '||current_calling_sequence);
3692: END IF;
3693: --
3694: Raise Process_Retro_Adj_failure;
3703:
3704: ----------------------------------------------------------------------------
3705: debug_info := 'Process Retroprice Adjustments Step 4. Check if IPV Dists'
3706: ||' Exists';
3707: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3708: AP_IMPORT_UTILITIES_PKG.Print(
3709: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3710: END IF;
3711: ----------------------------------------------------------------------------
3705: debug_info := 'Process Retroprice Adjustments Step 4. Check if IPV Dists'
3706: ||' Exists';
3707: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3708: AP_IMPORT_UTILITIES_PKG.Print(
3709: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3710: END IF;
3711: ----------------------------------------------------------------------------
3712: -- If this base matched line has already been Adjusted by a line
3713: -- then no adjustments are required on this line. However adjustments
3718: l_base_match_lines_rec.line_number,
3719: l_ipv_dists_exist --OUT
3720: ) <> TRUE) THEN
3721: --
3722: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3723: AP_IMPORT_UTILITIES_PKG.Print(
3724: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3725: 'Ipv_Dists_exists<- '||current_calling_sequence);
3726: END IF;
3720: ) <> TRUE) THEN
3721: --
3722: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3723: AP_IMPORT_UTILITIES_PKG.Print(
3724: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3725: 'Ipv_Dists_exists<- '||current_calling_sequence);
3726: END IF;
3727: --
3728: Raise Process_Retro_Adj_failure;
3730: --
3731: ------------------------------------------------------------------------
3732: debug_info := 'Process Retroprice Adjustments Step 5. Check if Adj Corr'
3733: ||' Exists';
3734: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3735: AP_IMPORT_UTILITIES_PKG.Print(
3736: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3737: END IF;
3738: -------------------------------------------------------------------------
3732: debug_info := 'Process Retroprice Adjustments Step 5. Check if Adj Corr'
3733: ||' Exists';
3734: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
3740: l_base_match_lines_rec.invoice_id,
3741: l_base_match_lines_rec.line_number,
3742: l_adj_corr_exists) <> TRUE) THEN
3743: --
3744: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3745: AP_IMPORT_UTILITIES_PKG.Print(
3746: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3747: 'Adj_Corr_Exists<- '||current_calling_sequence);
3748: END IF;
3742: l_adj_corr_exists) <> TRUE) THEN
3743: --
3744: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3745: AP_IMPORT_UTILITIES_PKG.Print(
3746: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3747: 'Adj_Corr_Exists<- '||current_calling_sequence);
3748: END IF;
3749: Raise Process_Retro_Adj_failure;
3750: END IF;
3753: --
3754: -----------------------------------------------------------------------
3755: debug_info := 'Process Retroprice Adjustments Step 6. '
3756: ||'Reverse_Redistribute_IPV for the base matched line';
3757: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3758: AP_IMPORT_UTILITIES_PKG.Print(
3759: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3760: END IF;
3761: -----------------------------------------------------------------------
3755: debug_info := 'Process Retroprice Adjustments Step 6. '
3756: ||'Reverse_Redistribute_IPV for the base matched line';
3757: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3758: AP_IMPORT_UTILITIES_PKG.Print(
3759: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3760: END IF;
3761: -----------------------------------------------------------------------
3762: --
3763: IF (Reverse_Redistribute_IPV(
3768: l_base_match_lines_rec,
3769: l_erv_dists_exist,
3770: current_calling_sequence) <> TRUE) THEN
3771: --
3772: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3773: AP_IMPORT_UTILITIES_PKG.Print(
3774: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3775: 'Reverse_Redistribute_IPV<- '||current_calling_sequence);
3776: END IF;
3770: current_calling_sequence) <> TRUE) THEN
3771: --
3772: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3773: AP_IMPORT_UTILITIES_PKG.Print(
3774: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3775: 'Reverse_Redistribute_IPV<- '||current_calling_sequence);
3776: END IF;
3777: --
3778: Raise Process_Retro_Adj_failure;
3782:
3783: ----------------------------------------------------------------------
3784: debug_info := 'Process Retroprice Adjustments Step 7. '||
3785: 'Check if TIPV Dists Exists for the base matched Line';
3786: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3787: AP_IMPORT_UTILITIES_PKG.Print(
3788: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3789: END IF;
3790: ----------------------------------------------------------------------
3784: debug_info := 'Process Retroprice Adjustments Step 7. '||
3785: 'Check if TIPV Dists Exists for the base matched Line';
3786: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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
3796: --
3797: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3798: AP_IMPORT_UTILITIES_PKG.Print(
3799: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3800: 'Tipv_Exists<- '||current_calling_sequence);
3801: END IF;
3795: l_tipv_exist) <> TRUE) THEN
3796: --
3797: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3798: AP_IMPORT_UTILITIES_PKG.Print(
3799: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3800: 'Tipv_Exists<- '||current_calling_sequence);
3801: END IF;
3802: --
3803: Raise Process_Retro_Adj_failure;
3808: --
3809: -----------------------------------------------------------------
3810: debug_info := 'Process Retroprice Adjustments Step 8. '
3811: ||'Process_TIPV_Reversal for the base matched line';
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 8. '
3811: ||'Process_TIPV_Reversal for the base matched line';
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 (Process_TIPV_Reversal(
3818: l_ppa_invoice_rec,
3822: l_base_match_lines_rec,
3823: l_tax_lines_list,
3824: current_calling_sequence) <> TRUE) THEN
3825: --
3826: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3827: AP_IMPORT_UTILITIES_PKG.Print(
3828: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3829: 'Process_TIPV_Reversal<- '||current_calling_sequence);
3830: END IF;
3824: current_calling_sequence) <> TRUE) THEN
3825: --
3826: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3827: AP_IMPORT_UTILITIES_PKG.Print(
3828: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3829: 'Process_TIPV_Reversal<- '||current_calling_sequence);
3830: END IF;
3831: --
3832: Raise Process_Retro_Adj_failure;
3840: -- Create PPA Line even if the IPV's don't exist for the Base Match Line
3841: --------------------------------------------------------------------------
3842: debug_info := 'Process Retroprice Adjustments Step 9. '
3843: ||'Create_Po_Price_Adjustments for the base matched line';
3844: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3845: AP_IMPORT_UTILITIES_PKG.Print(
3846: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3847: END IF;
3848: --------------------------------------------------------------------------
3842: debug_info := 'Process Retroprice Adjustments Step 9. '
3843: ||'Create_Po_Price_Adjustments for the base matched line';
3844: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3845: AP_IMPORT_UTILITIES_PKG.Print(
3846: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3847: END IF;
3848: --------------------------------------------------------------------------
3849: --
3850: -- Bug 5469166. Not Calling Create_Po_Price_Adjustment id the wash scenario
3857: p_instruction_lines_rec,
3858: l_base_match_lines_rec,
3859: current_calling_sequence) <> TRUE) THEN
3860: --
3861: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3862: AP_IMPORT_UTILITIES_PKG.Print(
3863: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3864: 'Create_Po_Price_Adjustments<- '||current_calling_sequence);
3865: END IF;
3859: current_calling_sequence) <> TRUE) THEN
3860: --
3861: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3862: AP_IMPORT_UTILITIES_PKG.Print(
3863: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3864: 'Create_Po_Price_Adjustments<- '||current_calling_sequence);
3865: END IF;
3866: --
3867: Raise Process_Retro_Adj_failure;
3873: -- Price Corrections
3874: -------------------------------------------------------------------------
3875: debug_info := 'Process Retroprice Adjustments Step 10. IF PC Exists';
3876: -------------------------------------------------------------------------
3877: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3878: AP_IMPORT_UTILITIES_PKG.Print(
3879: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3880: END IF;
3881: --
3875: debug_info := 'Process Retroprice Adjustments Step 10. IF PC Exists';
3876: -------------------------------------------------------------------------
3877: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
3885: 'PRICE_CORRECTION', --Modified spelling for bug#9573078
3886: l_pc_lines_list,
3887: l_pc_exists) <> TRUE) THEN
3888: --
3889: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3890: AP_IMPORT_UTILITIES_PKG.Print(
3891: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3892: 'Corrections_exists<- '||current_calling_sequence);
3893: END IF;
3887: l_pc_exists) <> TRUE) THEN
3888: --
3889: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3890: AP_IMPORT_UTILITIES_PKG.Print(
3891: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3892: 'Corrections_exists<- '||current_calling_sequence);
3893: END IF;
3894: --
3895: Raise Process_Retro_Adj_failure;
3906: -- IPV Dists always exist for Price Corrections
3907: ---------------------------------------------------------------------
3908: debug_info := 'Process Retroprice Adjustments Step 11. Check if IPV '
3909: ||'Dists Exist for PC';
3910: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3911: AP_IMPORT_UTILITIES_PKG.Print(
3912: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3913: END IF;
3914: ---------------------------------------------------------------------
3908: debug_info := 'Process Retroprice Adjustments Step 11. Check if IPV '
3909: ||'Dists Exist for PC';
3910: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
3916: l_pc_lines_rec.invoice_id,
3917: l_pc_lines_rec.line_number,
3918: l_ipv_dists_exist) <> TRUE) THEN
3919: --
3920: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3921: AP_IMPORT_UTILITIES_PKG.Print(
3922: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3923: 'Ipv_Dists_exists<- '||current_calling_sequence);
3924: END IF;
3918: l_ipv_dists_exist) <> TRUE) THEN
3919: --
3920: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3921: AP_IMPORT_UTILITIES_PKG.Print(
3922: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3923: 'Ipv_Dists_exists<- '||current_calling_sequence);
3924: END IF;
3925: Raise Process_Retro_Adj_failure;
3926: END IF;
3927: --
3928: ---------------------------------------------------------------------
3929: debug_info := 'Process Retroprice Adjustments Step 12. Check if Adj '
3930: ||'Corr Exists for PC';
3931: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3932: AP_IMPORT_UTILITIES_PKG.Print(
3933: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3934: END IF;
3935: ---------------------------------------------------------------------
3929: debug_info := 'Process Retroprice Adjustments Step 12. Check if Adj '
3930: ||'Corr Exists for PC';
3931: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
3937: l_pc_lines_rec.invoice_id,
3938: l_pc_lines_rec.line_number,
3939: l_adj_corr_exists) <> 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: 'Adj_Corr_Exists<- '||current_calling_sequence);
3945: END IF;
3939: l_adj_corr_exists) <> 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: 'Adj_Corr_Exists<- '||current_calling_sequence);
3945: END IF;
3946: Raise Process_Retro_Adj_failure;
3947: END IF;
3950: --
3951: ------------------------------------------------------------------
3952: debug_info := 'Process Retroprice Adjustments Step 13. '
3953: ||'Reverse_Redistribute_IPV for the PC line';
3954: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3955: AP_IMPORT_UTILITIES_PKG.Print(
3956: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3957: END IF;
3958: ------------------------------------------------------------------
3952: debug_info := 'Process Retroprice Adjustments Step 13. '
3953: ||'Reverse_Redistribute_IPV for the PC line';
3954: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3955: AP_IMPORT_UTILITIES_PKG.Print(
3956: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3957: END IF;
3958: ------------------------------------------------------------------
3959: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3960: AP_IMPORT_UTILITIES_PKG.Print(
3955: AP_IMPORT_UTILITIES_PKG.Print(
3956: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3957: END IF;
3958: ------------------------------------------------------------------
3959: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3960: AP_IMPORT_UTILITIES_PKG.Print(
3961: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3962: END IF;
3963: --
3957: END IF;
3958: ------------------------------------------------------------------
3959: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3960: AP_IMPORT_UTILITIES_PKG.Print(
3961: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3962: END IF;
3963: --
3964: IF (Reverse_Redistribute_IPV(
3965: l_ppa_invoice_rec,
3969: l_pc_lines_rec,
3970: l_erv_dists_exist,
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: 'Reverse_Redistribute_IPV<- '||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: 'Reverse_Redistribute_IPV<- '||current_calling_sequence);
3977: END IF;
3978: --
3979: Raise Process_Retro_Adj_failure;
3982: --
3983: -------------------------------------------------------------------
3984: debug_info := 'Process Retroprice Adjustments Step 14. '||
3985: 'Check if TIPV Dists Exists for the PC Line';
3986: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3987: AP_IMPORT_UTILITIES_PKG.Print(
3988: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3989: END IF;
3990: -------------------------------------------------------------------
3984: debug_info := 'Process Retroprice Adjustments Step 14. '||
3985: 'Check if TIPV Dists Exists for the PC Line';
3986: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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
3996: --
3997: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3998: AP_IMPORT_UTILITIES_PKG.Print(
3999: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4000: 'Tipv_Exists<- '||current_calling_sequence);
4001: END IF;
3995: l_tipv_exist) <> TRUE) THEN
3996: --
3997: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3998: AP_IMPORT_UTILITIES_PKG.Print(
3999: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4000: 'Tipv_Exists<- '||current_calling_sequence);
4001: END IF;
4002: --
4003: Raise Process_Retro_Adj_failure;
4008: --
4009: --------------------------------------------------------------
4010: debug_info := 'Process Retroprice Adjustments Step 15. '
4011: ||'Process_TIPV_Reversal for the PC line';
4012: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
4013: AP_IMPORT_UTILITIES_PKG.Print(
4014: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4015: END IF;
4016: --------------------------------------------------------------
4010: debug_info := 'Process Retroprice Adjustments Step 15. '
4011: ||'Process_TIPV_Reversal for the PC line';
4012: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
4013: AP_IMPORT_UTILITIES_PKG.Print(
4014: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4015: END IF;
4016: --------------------------------------------------------------
4017: IF (Process_TIPV_Reversal(
4018: l_ppa_invoice_rec,
4022: l_pc_lines_rec,
4023: l_tax_lines_list,
4024: current_calling_sequence) <> TRUE) THEN
4025: --
4026: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4027: AP_IMPORT_UTILITIES_PKG.Print(
4028: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4029: 'Process_TIPV_Reversal<- '||current_calling_sequence);
4030: END IF;
4024: current_calling_sequence) <> TRUE) THEN
4025: --
4026: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4027: AP_IMPORT_UTILITIES_PKG.Print(
4028: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4029: 'Process_TIPV_Reversal<- '||current_calling_sequence);
4030: END IF;
4031: --
4032: Raise Process_Retro_Adj_failure;
4042: -----------------------------------------------------------------
4043: debug_info := 'Process Retroprice Adjustments Step 16. '
4044: ||'Create_Po_Price_Adjustments for the PC line';
4045: ------------------------------------------------------------------
4046: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
4047: AP_IMPORT_UTILITIES_PKG.Print(
4048: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4049: END IF;
4050: --
4044: ||'Create_Po_Price_Adjustments for the PC line';
4045: ------------------------------------------------------------------
4046: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
4047: AP_IMPORT_UTILITIES_PKG.Print(
4048: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4049: END IF;
4050: --
4051:
4052: END IF; --ipv dists and l_adj_corr
4058: -- Quantity Corrections
4059: ----------------------------------------------------------------------
4060: debug_info := 'Process Retroprice Adjustments Step 17. IF QC Exists';
4061: ----------------------------------------------------------------------
4062: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
4063: AP_IMPORT_UTILITIES_PKG.Print(
4064: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4065: END IF;
4066: --
4060: debug_info := 'Process Retroprice Adjustments Step 17. IF QC Exists';
4061: ----------------------------------------------------------------------
4062: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
4070: 'QTY_CORRECTION', --Modified spelling for bug#9573078
4071: l_qc_lines_list,
4072: l_qc_exists) <> TRUE) THEN
4073: --
4074: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4075: AP_IMPORT_UTILITIES_PKG.Print(
4076: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4077: 'Corrections_exists<- '||current_calling_sequence);
4078: END IF;
4072: l_qc_exists) <> TRUE) THEN
4073: --
4074: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4075: AP_IMPORT_UTILITIES_PKG.Print(
4076: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4077: 'Corrections_exists<- '||current_calling_sequence);
4078: END IF;
4079: --
4080: Raise Process_Retro_Adj_failure;
4096: l_qc_lines_rec.invoice_id,
4097: l_qc_lines_rec.line_number,
4098: l_ipv_dists_exist) <> TRUE) THEN
4099: --
4100: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4101: AP_IMPORT_UTILITIES_PKG.Print(
4102: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4103: 'Ipv_Dists_exists<- '||current_calling_sequence);
4104: END IF;
4098: l_ipv_dists_exist) <> TRUE) THEN
4099: --
4100: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4101: AP_IMPORT_UTILITIES_PKG.Print(
4102: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4103: 'Ipv_Dists_exists<- '||current_calling_sequence);
4104: END IF;
4105: Raise Process_Retro_Adj_failure;
4106: END IF;
4113: l_qc_lines_rec.invoice_id,
4114: l_qc_lines_rec.line_number,
4115: l_adj_corr_exists) <> TRUE) THEN
4116: --
4117: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4118: AP_IMPORT_UTILITIES_PKG.Print(
4119: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4120: 'Adj_Corr_Exists<- '||current_calling_sequence);
4121: END IF;
4115: l_adj_corr_exists) <> TRUE) THEN
4116: --
4117: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4118: AP_IMPORT_UTILITIES_PKG.Print(
4119: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4120: 'Adj_Corr_Exists<- '||current_calling_sequence);
4121: END IF;
4122: Raise Process_Retro_Adj_failure;
4123: END IF;
4127: --------------------------------------------------------------
4128: debug_info := 'Process Retroprice Adjustments Step 20. '
4129: ||'Reverse_Redistribute_IPV for the QC line';
4130: ----------------------------------------------------------------
4131: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
4132: AP_IMPORT_UTILITIES_PKG.Print(
4133: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4134: END IF;
4135: --
4129: ||'Reverse_Redistribute_IPV for the QC line';
4130: ----------------------------------------------------------------
4131: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
4132: AP_IMPORT_UTILITIES_PKG.Print(
4133: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4134: END IF;
4135: --
4136: IF (Reverse_Redistribute_IPV(
4137: l_ppa_invoice_rec,
4141: l_qc_lines_rec,
4142: l_erv_dists_exist,
4143: current_calling_sequence) <> TRUE) THEN
4144: --
4145: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4146: AP_IMPORT_UTILITIES_PKG.Print(
4147: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4148: 'Reverse_Redistribute_IPV<- '||current_calling_sequence);
4149: END IF;
4143: current_calling_sequence) <> TRUE) THEN
4144: --
4145: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4146: AP_IMPORT_UTILITIES_PKG.Print(
4147: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4148: 'Reverse_Redistribute_IPV<- '||current_calling_sequence);
4149: END IF;
4150: --
4151: Raise Process_Retro_Adj_failure;
4162: l_qc_lines_rec.line_number,
4163: l_tax_lines_list,
4164: l_tipv_exist) <> TRUE) THEN
4165: --
4166: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4167: AP_IMPORT_UTILITIES_PKG.Print(
4168: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4169: 'Tipv_Exists<- '||current_calling_sequence);
4170: END IF;
4164: l_tipv_exist) <> TRUE) THEN
4165: --
4166: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4167: AP_IMPORT_UTILITIES_PKG.Print(
4168: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4169: 'Tipv_Exists<- '||current_calling_sequence);
4170: END IF;
4171: --
4172: Raise Process_Retro_Adj_failure;
4187: l_qc_lines_rec,
4188: l_tax_lines_list,
4189: current_calling_sequence) <> TRUE) THEN
4190: --
4191: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4192: AP_IMPORT_UTILITIES_PKG.Print(
4193: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4194: 'Process_TIPV_Reversal<- '||current_calling_sequence);
4195: END IF;
4189: current_calling_sequence) <> TRUE) THEN
4190: --
4191: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4192: AP_IMPORT_UTILITIES_PKG.Print(
4193: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4194: 'Process_TIPV_Reversal<- '||current_calling_sequence);
4195: END IF;
4196: --
4197: Raise Process_Retro_Adj_failure;
4206: -----------------------------------------------------------------
4207: debug_info := 'Process Retroprice Adjustments Step 23. '
4208: ||'Create_Po_Price_Adjustments for the QC line';
4209: ------------------------------------------------------------------
4210: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
4211: AP_IMPORT_UTILITIES_PKG.Print(
4212: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4213: END IF;
4214: --
4208: ||'Create_Po_Price_Adjustments for the QC line';
4209: ------------------------------------------------------------------
4210: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
4211: AP_IMPORT_UTILITIES_PKG.Print(
4212: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4213: END IF;
4214: --
4215:
4216: --Introduced below IF clause for bug#9573078
4222: p_instruction_lines_rec,
4223: l_qc_lines_rec,
4224: current_calling_sequence) <> TRUE) THEN
4225: --
4226: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4227: AP_IMPORT_UTILITIES_PKG.Print(
4228: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4229: 'Create_Po_Price_Adjustments<- '||current_calling_sequence);
4230: END IF;
4224: current_calling_sequence) <> TRUE) THEN
4225: --
4226: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4227: AP_IMPORT_UTILITIES_PKG.Print(
4228: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4229: 'Create_Po_Price_Adjustments<- '||current_calling_sequence);
4230: END IF;
4231: --
4232: Raise Process_Retro_Adj_failure;
4253: RETURN(TRUE);
4254: --
4255: EXCEPTION
4256: WHEN OTHERS THEN
4257: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4258: AP_IMPORT_UTILITIES_PKG.Print(
4259: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4260: END IF;
4261:
4255: EXCEPTION
4256: WHEN OTHERS THEN
4257: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4258: AP_IMPORT_UTILITIES_PKG.Print(
4259: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4260: END IF;
4261:
4262: IF (SQLCODE < 0) then
4263: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4259: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4260: END IF;
4261:
4262: IF (SQLCODE < 0) then
4263: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4264: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
4265: END IF;
4266: END IF;
4267: RETURN(FALSE);
4260: END IF;
4261:
4262: IF (SQLCODE < 0) then
4263: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4264: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
4265: END IF;
4266: END IF;
4267: RETURN(FALSE);
4268:
4842: --
4843:
4844: EXCEPTION
4845: WHEN OTHERS THEN
4846: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4847: AP_IMPORT_UTILITIES_PKG.Print(
4848: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4849: END IF;
4850:
4844: EXCEPTION
4845: WHEN OTHERS THEN
4846: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4847: AP_IMPORT_UTILITIES_PKG.Print(
4848: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4849: END IF;
4850:
4851: IF (SQLCODE < 0) then
4852: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4848: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4849: END IF;
4850:
4851: IF (SQLCODE < 0) then
4852: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4853: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
4854: END IF;
4855: END IF;
4856: RETURN(FALSE);
4849: END IF;
4850:
4851: IF (SQLCODE < 0) then
4852: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4853: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
4854: END IF;
4855: END IF;
4856: RETURN(FALSE);
4857:
5276: --Bug6277609 ends
5277: /* Added for bug 10226070 */
5278: ,NULL /* Requester_last_name */
5279: ,NULL /* Requester_first_name */
5280: ,NULL /* Bug10175718 CASCADE_RECEIPTS_FLAG Added to r_line_info_rec record type in AP_IMPORT_INVOICES_PKG*/
5281: /* Added for bug 13074325 */
5282: ,NULL /* REQUESTER_EMPLOYEE_NUM */
5283: ,invoice_id --bug 15862708
5284: ,NULL
5293: FROM ap_ppa_invoice_lines_gt
5294: WHERE invoice_id = c_invoice_id
5295: ORDER BY line_number;
5296:
5297: l_invoice_header_rec AP_IMPORT_INVOICES_PKG.r_invoice_info_rec;
5298: l_invoice_header_list AP_IMPORT_INVOICES_PKG.t_invoice_table;
5299: l_invoice_lines_rec AP_IMPORT_INVOICES_PKG.r_line_info_Rec;
5300: l_invoice_lines_list AP_IMPORT_INVOICES_PKG.t_lines_table;
5301:
5294: WHERE invoice_id = c_invoice_id
5295: ORDER BY line_number;
5296:
5297: l_invoice_header_rec AP_IMPORT_INVOICES_PKG.r_invoice_info_rec;
5298: l_invoice_header_list AP_IMPORT_INVOICES_PKG.t_invoice_table;
5299: l_invoice_lines_rec AP_IMPORT_INVOICES_PKG.r_line_info_Rec;
5300: l_invoice_lines_list AP_IMPORT_INVOICES_PKG.t_lines_table;
5301:
5302:
5295: ORDER BY line_number;
5296:
5297: l_invoice_header_rec AP_IMPORT_INVOICES_PKG.r_invoice_info_rec;
5298: l_invoice_header_list AP_IMPORT_INVOICES_PKG.t_invoice_table;
5299: l_invoice_lines_rec AP_IMPORT_INVOICES_PKG.r_line_info_Rec;
5300: l_invoice_lines_list AP_IMPORT_INVOICES_PKG.t_lines_table;
5301:
5302:
5303: l_fatal_error_flag VARCHAR2(1); -- OUT NOCOPY
5296:
5297: l_invoice_header_rec AP_IMPORT_INVOICES_PKG.r_invoice_info_rec;
5298: l_invoice_header_list AP_IMPORT_INVOICES_PKG.t_invoice_table;
5299: l_invoice_lines_rec AP_IMPORT_INVOICES_PKG.r_line_info_Rec;
5300: l_invoice_lines_list AP_IMPORT_INVOICES_PKG.t_lines_table;
5301:
5302:
5303: l_fatal_error_flag VARCHAR2(1); -- OUT NOCOPY
5304: l_invoice_status VARCHAR2(1) :='Y';
5408: l_conc_request_id, --IN
5409: l_allow_interest_invoices, --
5410: current_calling_sequence) <> TRUE) THEN
5411: --
5412: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5413: AP_IMPORT_UTILITIES_PKG.Print(
5414: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5415: 'v_check_invoice_validation<-'||current_calling_sequence);
5416: END IF;
5410: current_calling_sequence) <> TRUE) THEN
5411: --
5412: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5413: AP_IMPORT_UTILITIES_PKG.Print(
5414: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5415: 'v_check_invoice_validation<-'||current_calling_sequence);
5416: END IF;
5417: Raise ppa_validation_failure;
5418: --
5418: --
5419: END IF; --v_check_invoice_validation
5420:
5421: debug_info := 'Temp Invoice Validation Status,fatal_error_flag are : '||l_invoice_status||','||l_fatal_error_flag;
5422: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5423: AP_IMPORT_UTILITIES_PKG.Print(
5424: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5425: END IF;
5426:
5420:
5421: debug_info := 'Temp Invoice Validation Status,fatal_error_flag are : '||l_invoice_status||','||l_fatal_error_flag;
5422: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5423: AP_IMPORT_UTILITIES_PKG.Print(
5424: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5425: END IF;
5426:
5427: IF (( l_invoice_status = 'Y') AND
5428: (NVL(l_fatal_error_flag,'N') = 'N')) THEN
5483: p_default_last_update_login, -- IN
5484: l_invoice_status, -- OUT NOCOPY
5485: current_calling_sequence) <> TRUE) THEN
5486:
5487: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5488: AP_IMPORT_UTILITIES_PKG.Print(
5489: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5490: 'v_check_lines_validation<-'||current_calling_sequence);
5491: END IF;
5485: current_calling_sequence) <> TRUE) THEN
5486:
5487: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5488: AP_IMPORT_UTILITIES_PKG.Print(
5489: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5490: 'v_check_lines_validation<-'||current_calling_sequence);
5491: END IF;
5492: --
5493: Raise ppa_validation_failure;
5496: --
5497: END IF; -- l_invoice_status
5498: --
5499: debug_info := 'Temp Invoice Line Validation Status,fatal_error_flag are : '||l_invoice_status||','||l_fatal_error_flag;
5500: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5501: AP_IMPORT_UTILITIES_PKG.Print(
5502: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5503: END IF;
5504:
5498: --
5499: debug_info := 'Temp Invoice Line Validation Status,fatal_error_flag are : '||l_invoice_status||','||l_fatal_error_flag;
5500: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5501: AP_IMPORT_UTILITIES_PKG.Print(
5502: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5503: END IF;
5504:
5505: IF ((l_invoice_status = 'N') AND
5506: NVL(l_fatal_error_flag,'N') = 'N' ) THEN
5527: RETURN(TRUE);
5528: --
5529: EXCEPTION
5530: WHEN OTHERS THEN
5531: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5532: AP_IMPORT_UTILITIES_PKG.Print(
5533: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5534: END IF;
5535:
5529: EXCEPTION
5530: WHEN OTHERS THEN
5531: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5532: AP_IMPORT_UTILITIES_PKG.Print(
5533: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5534: END IF;
5535:
5536: IF (SQLCODE < 0) then
5537: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5533: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5534: END IF;
5535:
5536: IF (SQLCODE < 0) then
5537: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5538: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
5539: END IF;
5540: END IF;
5541: --
5534: END IF;
5535:
5536: IF (SQLCODE < 0) then
5537: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5538: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
5539: END IF;
5540: END IF;
5541: --
5542: IF ( invoice_header%ISOPEN ) THEN
5662: l_ppa_invoices_total := 0;
5663: --
5664: -----------------------------------------------------------------------
5665: debug_info := 'Insert_Ppa_Invoices Step 1. Open cursor Ppa_invoices';
5666: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5667: AP_IMPORT_UTILITIES_PKG.Print(
5668: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5669: END IF;
5670:
5664: -----------------------------------------------------------------------
5665: debug_info := 'Insert_Ppa_Invoices Step 1. Open cursor Ppa_invoices';
5666: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5667: AP_IMPORT_UTILITIES_PKG.Print(
5668: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5669: END IF;
5670:
5671: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5672: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5699: l_ppa_invoices_total := l_ppa_invoices_total + l_invoice_amount;
5700: --
5701: ------------------------------------------------------------------
5702: debug_info := 'Insert_Ppa_Invoices Step 2. Get Info';
5703: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5704: AP_IMPORT_UTILITIES_PKG.Print(
5705: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5706: END IF;
5707:
5701: ------------------------------------------------------------------
5702: debug_info := 'Insert_Ppa_Invoices Step 2. Get Info';
5703: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5704: AP_IMPORT_UTILITIES_PKG.Print(
5705: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5706: END IF;
5707:
5708: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5709: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5741: -- doc sequence value from apretrub.pls at the time of PPA GT
5742: -- insertion, to the time of actual invoice creation
5743: -------------------------------------------
5744: debug_info := 'Create_Ppa_Invoice Step :4 Doc_sequence_Num';
5745: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5746: AP_IMPORT_UTILITIES_PKG.Print(
5747: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5748: END IF;
5749: -------------------------------------------
5743: -------------------------------------------
5744: debug_info := 'Create_Ppa_Invoice Step :4 Doc_sequence_Num';
5745: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5746: AP_IMPORT_UTILITIES_PKG.Print(
5747: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5748: END IF;
5749: -------------------------------------------
5750: FND_PROFILE.GET('UNIQUE:SEQ_NUMBERS',l_seq_num_profile);
5751: IF (l_seq_num_profile IN ('A','P')) THEN
5777: AND NVL(SA.end_date, TO_DATE('31/12/4712','DD/MM/YYYY'));
5778:
5779: ---------------------------------------
5780: debug_info := 'Create_Ppa_Invoice Step :5 Get doc sequence val';
5781: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5782: AP_IMPORT_UTILITIES_PKG.Print(
5783: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5784: END IF;
5785: ----------------------------------------
5779: ---------------------------------------
5780: debug_info := 'Create_Ppa_Invoice Step :5 Get doc sequence val';
5781: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5782: AP_IMPORT_UTILITIES_PKG.Print(
5783: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5784: END IF;
5785: ----------------------------------------
5786:
5787: l_return_code := FND_SEQNUM.GET_SEQ_VAL(
5799: l_set_of_books_id||'--'||
5800: l_doc_sequence_value||'--'||
5801: l_doc_sequence_id;
5802:
5803: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5804: AP_IMPORT_UTILITIES_PKG.Print(
5805: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5806: END IF;
5807:
5801: l_doc_sequence_id;
5802:
5803: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5804: AP_IMPORT_UTILITIES_PKG.Print(
5805: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5806: END IF;
5807:
5808: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5809: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
5816:
5817: END;
5818:
5819: debug_info := 'after FND_SEQNUM.GET_SEQ_VAL';
5820: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5821: AP_IMPORT_UTILITIES_PKG.Print(
5822: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5823: END IF;
5824:
5818:
5819: debug_info := 'after FND_SEQNUM.GET_SEQ_VAL';
5820: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5821: AP_IMPORT_UTILITIES_PKG.Print(
5822: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5823: END IF;
5824:
5825: END IF;
5826:
5825: END IF;
5826:
5827: ------------------------------------------------------------------------
5828: debug_info := 'Insert_Ppa_Invoices Step 3. Insert into AP_INVOICES_ALL, l_ppa_invoice_id is'||l_ppa_invoice_id;
5829: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5830: AP_IMPORT_UTILITIES_PKG.Print(
5831: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5832: END IF;
5833:
5827: ------------------------------------------------------------------------
5828: debug_info := 'Insert_Ppa_Invoices Step 3. Insert into AP_INVOICES_ALL, l_ppa_invoice_id is'||l_ppa_invoice_id;
5829: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5830: AP_IMPORT_UTILITIES_PKG.Print(
5831: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5832: END IF;
5833:
5834: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5835: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
6124: ||',p_payment_method : '||l_payment_method_code
6125: ||',p_invoice_currency : '||l_invoice_currency_code
6126: ||',p_payment_currency : '||l_payment_currency_code;
6127:
6128: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6129: AP_IMPORT_UTILITIES_PKG.Print(
6130: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6131: END IF;
6132:
6126: ||',p_payment_currency : '||l_payment_currency_code;
6127:
6128: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6129: AP_IMPORT_UTILITIES_PKG.Print(
6130: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6131: END IF;
6132:
6133: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6134: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
6155: --
6156: ------------------------------------------------------------------------
6157: debug_info := 'Insert_Ppa_Invoices Step 5. Insert into '
6158: ||'AP_INVOICE_LINES_ALL ';
6159: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6160: AP_IMPORT_UTILITIES_PKG.Print(
6161: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6162: END IF;
6163:
6157: debug_info := 'Insert_Ppa_Invoices Step 5. Insert into '
6158: ||'AP_INVOICE_LINES_ALL ';
6159: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6160: AP_IMPORT_UTILITIES_PKG.Print(
6161: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6162: END IF;
6163:
6164: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6165: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
6445: --
6446: ------------------------------------------------------------------------
6447: debug_info := 'Insert_Ppa_Invoices Step 5. Insert into '
6448: ||'AP_INVOICE_DISTRIBUTIONS_ALL ';
6449: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6450: AP_IMPORT_UTILITIES_PKG.Print(
6451: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6452: END IF;
6453:
6447: debug_info := 'Insert_Ppa_Invoices Step 5. Insert into '
6448: ||'AP_INVOICE_DISTRIBUTIONS_ALL ';
6449: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6450: AP_IMPORT_UTILITIES_PKG.Print(
6451: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6452: END IF;
6453:
6454: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6455: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
6701: RETURN(TRUE);
6702: --
6703: EXCEPTION
6704: WHEN OTHERS THEN
6705: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6706: AP_IMPORT_UTILITIES_PKG.Print(
6707: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6708: END IF;
6709:
6703: EXCEPTION
6704: WHEN OTHERS THEN
6705: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6706: AP_IMPORT_UTILITIES_PKG.Print(
6707: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6708: END IF;
6709:
6710: IF (SQLCODE < 0) then
6711: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6707: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6708: END IF;
6709:
6710: IF (SQLCODE < 0) then
6711: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6712: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
6713: END IF;
6714: END IF;
6715: IF ( ppa_invoices%ISOPEN ) THEN
6708: END IF;
6709:
6710: IF (SQLCODE < 0) then
6711: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6712: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
6713: END IF;
6714: END IF;
6715: IF ( ppa_invoices%ISOPEN ) THEN
6716: CLOSE ppa_invoices;
6770: | 29-JUL-2003 dgulraja Creation
6771: |
6772: *============================================================================*/
6773: FUNCTION Import_Retroprice_Adjustments(
6774: p_instruction_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
6775: p_base_currency_code IN VARCHAR2,
6776: p_multi_currency_flag IN VARCHAR2,
6777: p_set_of_books_id IN NUMBER,
6778: p_default_exchange_rate_type IN VARCHAR2,
6916: --affected base match Invoices should be valid for the vendor.
6917: ---------------------------------------------------------------------------
6918: debug_info := 'Import_Retroprice_Adjustments Step 1. '
6919: ||'Are_Original_Invoices_Valid';
6920: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6921: AP_IMPORT_UTILITIES_PKG.Print(
6922: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6923: END IF;
6924: --
6918: debug_info := 'Import_Retroprice_Adjustments Step 1. '
6919: ||'Are_Original_Invoices_Valid';
6920: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
6926: p_instruction_rec.invoice_id,
6927: p_instruction_rec.org_id,
6928: l_orig_invoices_valid) <> TRUE) THEN
6929: --
6930: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6931: AP_IMPORT_UTILITIES_PKG.Print(
6932: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6933: 'Are_Original_Invoices_Valid<-' ||current_calling_sequence);
6934: END IF;
6928: l_orig_invoices_valid) <> TRUE) THEN
6929: --
6930: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6931: AP_IMPORT_UTILITIES_PKG.Print(
6932: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6933: 'Are_Original_Invoices_Valid<-' ||current_calling_sequence);
6934: END IF;
6935: RAISE Import_Retro_Adj_failure;
6936: END IF;
6944: FND_GLOBAL.user_id,
6945: FND_GLOBAL.login_id,
6946: current_calling_sequence) <> TRUE) THEN
6947: --
6948: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6949: AP_IMPORT_UTILITIES_PKG.Print(
6950: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6951: 'insert_rejections<- '||current_calling_sequence);
6952: END IF;
6946: current_calling_sequence) <> TRUE) THEN
6947: --
6948: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6949: AP_IMPORT_UTILITIES_PKG.Print(
6950: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6951: 'insert_rejections<- '||current_calling_sequence);
6952: END IF;
6953: Raise Import_Retro_Adj_failure;
6954: END IF; -- Insert rejections
6961: -- Step 2. Are there any Holds other than the Price Holds on the base
6962: -- matched Invoices(along with the PC and QC) for the vendor
6963: ------------------------------------------------------------------------
6964: debug_info := 'Import_Retroprice_Adjustments Step 2. Are_Holds_Ok';
6965: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
6966: AP_IMPORT_UTILITIES_PKG.Print(
6967: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6968: END IF;
6969: --
6963: ------------------------------------------------------------------------
6964: debug_info := 'Import_Retroprice_Adjustments Step 2. Are_Holds_Ok';
6965: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
6971: p_instruction_rec.invoice_id,
6972: p_instruction_rec.org_id,
6973: l_orig_invoices_valid) <> TRUE) THEN
6974: --
6975: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6976: AP_IMPORT_UTILITIES_PKG.Print(
6977: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6978: 'Are_Holds_Ok<-' ||current_calling_sequence);
6979: END IF;
6973: l_orig_invoices_valid) <> TRUE) THEN
6974: --
6975: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6976: AP_IMPORT_UTILITIES_PKG.Print(
6977: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6978: 'Are_Holds_Ok<-' ||current_calling_sequence);
6979: END IF;
6980: RAISE Import_Retro_Adj_failure;
6981: END IF;
6988: 'ORIGINAL INVOICE HAS A HOLD',
6989: FND_GLOBAL.user_id,
6990: FND_GLOBAL.login_id,
6991: current_calling_sequence) <> TRUE) THEN
6992: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6993: AP_IMPORT_UTILITIES_PKG.Print(
6994: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6995: 'insert_rejections<- '||current_calling_sequence);
6996: END IF;
6990: FND_GLOBAL.login_id,
6991: current_calling_sequence) <> TRUE) THEN
6992: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6993: AP_IMPORT_UTILITIES_PKG.Print(
6994: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6995: 'insert_rejections<- '||current_calling_sequence);
6996: END IF;
6997: Raise Import_Retro_Adj_failure;
6998: END IF; -- Insert rejections
7007: -- assigned to the document class of 'PO ADJ INV'
7008: -- Added for the bug5769161
7009: ------------------------------------------------------------------------
7010: debug_info := 'Import_Retroprice_Adjustments Step 2.1 Is sequence Assigned';
7011: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7012: AP_IMPORT_UTILITIES_PKG.Print(
7013: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7014: END IF;
7015: --
7009: ------------------------------------------------------------------------
7010: debug_info := 'Import_Retroprice_Adjustments Step 2.1 Is sequence Assigned';
7011: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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',
7017: 'PO ADJ INV',
7018: p_instruction_rec.org_id,
7019: l_orig_invoices_valid) <> TRUE) THEN
7020: --
7021: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7022: AP_IMPORT_UTILITIES_PKG.Print(
7023: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7024: 'Is_Sequence_Assigned<-' ||current_calling_sequence);
7025: END IF;
7019: l_orig_invoices_valid) <> TRUE) THEN
7020: --
7021: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7022: AP_IMPORT_UTILITIES_PKG.Print(
7023: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7024: 'Is_Sequence_Assigned<-' ||current_calling_sequence);
7025: END IF;
7026: RAISE Import_Retro_Adj_failure;
7027: END IF;
7035: 'NO SEQUENCE DEFINED FOR PPA',
7036: FND_GLOBAL.user_id,
7037: FND_GLOBAL.login_id,
7038: current_calling_sequence) <> TRUE) THEN
7039: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7040: AP_IMPORT_UTILITIES_PKG.Print(
7041: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7042: 'insert_rejections<- '||current_calling_sequence);
7043: END IF;
7037: FND_GLOBAL.login_id,
7038: current_calling_sequence) <> TRUE) THEN
7039: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7040: AP_IMPORT_UTILITIES_PKG.Print(
7041: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7042: 'insert_rejections<- '||current_calling_sequence);
7043: END IF;
7044: Raise Import_Retro_Adj_failure;
7045: END IF; -- Insert rejections
7054: -----------------------------------------------------------------------
7055: debug_info := 'Import_Retroprice_Adjustments Step 3. Derive Batch_Id';
7056: IF l_instr_status_flag = 'Y' THEN
7057: debug_info := 'Import_Retroprice_Adjustments 3. Derive Batch Id, p_instruction_rec.group_id is'||p_instruction_rec.group_id;
7058: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7059: AP_IMPORT_UTILITIES_PKG.Print(
7060: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7061: END IF;
7062: --
7056: IF l_instr_status_flag = 'Y' THEN
7057: debug_info := 'Import_Retroprice_Adjustments 3. Derive Batch Id, p_instruction_rec.group_id is'||p_instruction_rec.group_id;
7058: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7059: AP_IMPORT_UTILITIES_PKG.Print(
7060: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7061: END IF;
7062: --
7063: --Bugfix:4681253
7064: l_batch_id := TO_NUMBER(substr(p_instruction_rec.group_id, 5));
7070: -- Shipment Lines) for the vendor
7071: --------------------------------------------------------------------------
7072: debug_info := 'Import_Retroprice_Adjustments Step 4.Open instruction_lines';
7073: IF l_instr_status_flag = 'Y' THEN
7074: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7075: AP_IMPORT_UTILITIES_PKG.Print(
7076: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7077: END IF;
7078:
7072: debug_info := 'Import_Retroprice_Adjustments Step 4.Open instruction_lines';
7073: IF l_instr_status_flag = 'Y' THEN
7074: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7075: AP_IMPORT_UTILITIES_PKG.Print(
7076: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7077: END IF;
7078:
7079: OPEN instruction_lines;
7080: FETCH instruction_lines
7086: ----------------------------------------------------------------------
7087: -- STEP 4.1. Get Base Match Lines for the instruction_line(Shipment)
7088: ----------------------------------------------------------------------
7089: debug_info := 'Import_Retroprice_Adjustments Step 4.1. Get Base Match Lines';
7090: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7091: AP_IMPORT_UTILITIES_PKG.Print(
7092: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7093: END IF;
7094:
7088: ----------------------------------------------------------------------
7089: debug_info := 'Import_Retroprice_Adjustments Step 4.1. Get Base Match Lines';
7090: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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
7100: --
7101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7102: AP_IMPORT_UTILITIES_PKG.Print(
7103: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7104: 'Get_Base_Match_Lines<- '||current_calling_sequence);
7105: END IF;
7099: current_calling_sequence) <> TRUE) THEN
7100: --
7101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7102: AP_IMPORT_UTILITIES_PKG.Print(
7103: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7104: 'Get_Base_Match_Lines<- '||current_calling_sequence);
7105: END IF;
7106: Raise Import_Retro_Adj_failure;
7107: --
7111: -- STEP 4.2 Process Retroprice Adjustments for the affected Shipment
7112: ----------------------------------------------------------------------
7113: debug_info := 'Import_Retroprice_Adjustments Step 4.2.'
7114: ||' Process_Retroprice_Adjustments ';
7115: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7116: AP_IMPORT_UTILITIES_PKG.Print(
7117: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7118: END IF;
7119: --
7113: debug_info := 'Import_Retroprice_Adjustments Step 4.2.'
7114: ||' Process_Retroprice_Adjustments ';
7115: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7116: AP_IMPORT_UTILITIES_PKG.Print(
7117: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7118: END IF;
7119: --
7120:
7121: IF (AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(
7125: l_instruction_lines_list(i),
7126: l_batch_id,
7127: current_calling_sequence) <> TRUE) THEN
7128: --
7129: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7130: AP_IMPORT_UTILITIES_PKG.Print(
7131: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7132: 'Process_Retroprice_Adjustments<- '||current_calling_sequence);
7133: END IF;
7127: current_calling_sequence) <> TRUE) THEN
7128: --
7129: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7130: AP_IMPORT_UTILITIES_PKG.Print(
7131: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7132: 'Process_Retroprice_Adjustments<- '||current_calling_sequence);
7133: END IF;
7134: Raise Import_Retro_Adj_failure;
7135: --
7152: -- STEP 5. Update Invoice Totals for PPA Documents created in the Temp
7153: -- tables.
7154: -----------------------------------------------------------------------
7155: debug_info := 'Import_Retroprice_Adjustments 5. Update Invoice Amounts, p_instruction_rec.invoice_id is'||p_instruction_rec.invoice_id;
7156: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7157: AP_IMPORT_UTILITIES_PKG.Print(
7158: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7159: END IF;
7160:
7154: -----------------------------------------------------------------------
7155: debug_info := 'Import_Retroprice_Adjustments 5. Update Invoice Amounts, p_instruction_rec.invoice_id is'||p_instruction_rec.invoice_id;
7156: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7157: AP_IMPORT_UTILITIES_PKG.Print(
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(
7167: --------------------------------------------------------------------------
7168: -- STEP 6. Validate PPA Invoices
7169: --------------------------------------------------------------------------
7170: debug_info := 'Import_Retroprice_Adjustments 6. Validate_Temp_Ppa_Invoices';
7171: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7172: AP_IMPORT_UTILITIES_PKG.Print(
7173: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7174: END IF;
7175:
7169: --------------------------------------------------------------------------
7170: debug_info := 'Import_Retroprice_Adjustments 6. Validate_Temp_Ppa_Invoices';
7171: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7172: AP_IMPORT_UTILITIES_PKG.Print(
7173: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7174: END IF;
7175:
7176: IF (Validate_Temp_Ppa_Invoices(
7177: p_instruction_rec.invoice_id,
7196: p_default_last_update_login,
7197: l_instr_status_flag1, --Bug5769161
7198: current_calling_sequence) <> TRUE) THEN
7199: --
7200: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7201: AP_IMPORT_UTILITIES_PKG.Print(
7202: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7203: 'Validate_Temp_Ppa_Invoices<- '||current_calling_sequence);
7204: END IF;
7198: current_calling_sequence) <> TRUE) THEN
7199: --
7200: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7201: AP_IMPORT_UTILITIES_PKG.Print(
7202: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7203: 'Validate_Temp_Ppa_Invoices<- '||current_calling_sequence);
7204: END IF;
7205: RAISE Import_Retro_Adj_failure;
7206: --
7220: ----------------------------------------------------------------------------
7221: -- STEP 7. Update insr_status in the Global Temp Table
7222: ----------------------------------------------------------------------------
7223: debug_info := 'l_instr_status_flag: '||l_instr_status_flag;
7224: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7225: AP_IMPORT_UTILITIES_PKG.Print(
7226: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7227: END IF;
7228:
7222: ----------------------------------------------------------------------------
7223: debug_info := 'l_instr_status_flag: '||l_instr_status_flag;
7224: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7225: AP_IMPORT_UTILITIES_PKG.Print(
7226: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7227: END IF;
7228:
7229:
7230: debug_info := 'Import_Retroprice_Adjustments 8. Update Instruction Status';
7227: END IF;
7228:
7229:
7230: debug_info := 'Import_Retroprice_Adjustments 8. Update Instruction Status';
7231: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7232: AP_IMPORT_UTILITIES_PKG.Print(
7233: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7234: END IF;
7235:
7229:
7230: debug_info := 'Import_Retroprice_Adjustments 8. Update Instruction Status';
7231: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7232: AP_IMPORT_UTILITIES_PKG.Print(
7233: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7234: END IF;
7235:
7236: p_instr_status_flag := l_instr_status_flag;
7237:
7249: -- STEP 8. Discard all lines for a PPA Header if they add up to zero for
7250: -- a shipment line(There is only one PPA for a Shipment)
7251: --------------------------------------------------------------------------
7252: debug_info := 'Import_Retroprice_Adjustments 8. Discard PPA lines if SUM=0';
7253: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7254: AP_IMPORT_UTILITIES_PKG.Print(
7255: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7256: END IF;
7257:
7251: --------------------------------------------------------------------------
7252: debug_info := 'Import_Retroprice_Adjustments 8. Discard PPA lines if SUM=0';
7253: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7254: AP_IMPORT_UTILITIES_PKG.Print(
7255: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7256: END IF;
7257:
7258: -- Bug 5469166. Uncomment the following section. In case of wash there is no
7259: -- need to create PPA invoice
7292: -- STEP 9. Insert Zero Amount Adjustments for Original Invoices
7293: -------------------------------------------------------------------------
7294: debug_info := 'Import_Retroprice_Adjustments 9.0. '||
7295: ' Processing for base match line zero adjustment';
7296: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7297: AP_IMPORT_UTILITIES_PKG.Print(
7298: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7299: END IF;
7300:
7294: debug_info := 'Import_Retroprice_Adjustments 9.0. '||
7295: ' Processing for base match line zero adjustment';
7296: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7297: AP_IMPORT_UTILITIES_PKG.Print(
7298: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7299: END IF;
7300:
7301: FOR i IN 1..l_instruction_lines_list.COUNT
7302: LOOP
7307: -- STEP 9.1. Get Base Match Lines for the instruction_line(Shipment)
7308: ----------------------------------------------------------------------
7309: debug_info := 'Import_Retroprice_Adjustments Step 9.1. Get Base Match
7310: Lines';
7311: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7312: AP_IMPORT_UTILITIES_PKG.Print(
7313: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7314: END IF;
7315:
7309: debug_info := 'Import_Retroprice_Adjustments Step 9.1. Get Base Match
7310: Lines';
7311: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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
7321: --
7322: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7323: AP_IMPORT_UTILITIES_PKG.Print(
7324: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7325: 'Get_Base_Match_Lines<- '||current_calling_sequence);
7326: END IF;
7320: current_calling_sequence) <> TRUE) THEN
7321: --
7322: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7323: AP_IMPORT_UTILITIES_PKG.Print(
7324: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7325: 'Get_Base_Match_Lines<- '||current_calling_sequence);
7326: END IF;
7327: Raise Import_Retro_Adj_failure;
7328: --
7334: --
7335: l_base_match_lines_rec := l_base_match_lines_list(i);
7336:
7337: debug_info := 'Import_Retroprice_Adjustments 9.1 Check PPA already exists';
7338: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7339: AP_IMPORT_UTILITIES_PKG.Print(
7340: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7341: END IF;
7342:
7336:
7337: debug_info := 'Import_Retroprice_Adjustments 9.1 Check PPA already exists';
7338: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
7346: l_ppa_exists, --OUT
7347: l_existing_ppa_inv_id --OUT
7348: ) <> TRUE) THEN
7349:
7350: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7351: AP_IMPORT_UTILITIES_PKG.Print(
7352: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7353: 'ppa_already_exists<- '||current_calling_sequence);
7354: END IF;
7348: ) <> TRUE) THEN
7349:
7350: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7351: AP_IMPORT_UTILITIES_PKG.Print(
7352: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7353: 'ppa_already_exists<- '||current_calling_sequence);
7354: END IF;
7355: Raise Import_Retro_Adj_failure;
7356: END IF;
7355: Raise Import_Retro_Adj_failure;
7356: END IF;
7357:
7358: debug_info := 'Import_Retroprice_Adjustments 9.2 Zero Amount Adjustments';
7359: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7360: AP_IMPORT_UTILITIES_PKG.Print(
7361: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7362: END IF;
7363:
7357:
7358: debug_info := 'Import_Retroprice_Adjustments 9.2 Zero Amount Adjustments';
7359: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7360: AP_IMPORT_UTILITIES_PKG.Print(
7361: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7362: END IF;
7363:
7364: IF (l_instr_status_flag = 'Y' AND
7365: l_ppa_exists = 'N') THEN -- Bug 5525506
7372: l_base_match_lines_rec.invoice_id,
7373: l_base_match_lines_rec.line_number,
7374: current_calling_sequence) <> TRUE) THEN
7375: --
7376: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7377: AP_IMPORT_UTILITIES_PKG.Print(
7378: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7379: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
7380: END IF;
7374: current_calling_sequence) <> TRUE) THEN
7375: --
7376: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7377: AP_IMPORT_UTILITIES_PKG.Print(
7378: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7379: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
7380: END IF;
7381: Raise Import_Retro_Adj_failure;
7382: --
7383: END IF;
7384: --Bug#10416960
7385: ----------------------------------------------------------------------
7386: debug_info := 'Import_Retroprice_Adjustments 9.3 Zero Amount Adjustments';
7387: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7388: AP_IMPORT_UTILITIES_PKG.Print(
7389: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7390: END IF;
7391: ----------------------------------------------------------------------
7385: ----------------------------------------------------------------------
7386: debug_info := 'Import_Retroprice_Adjustments 9.3 Zero Amount Adjustments';
7387: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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
7397: --
7398: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7399: AP_IMPORT_UTILITIES_PKG.Print(
7400: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7401: 'Tipv_Exists<- '||current_calling_sequence);
7402: END IF;
7396: l_tipv_exists) <> TRUE) THEN
7397: --
7398: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7399: AP_IMPORT_UTILITIES_PKG.Print(
7400: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7401: 'Tipv_Exists<- '||current_calling_sequence);
7402: END IF;
7403: --
7404: Raise Import_Retro_Adj_failure;
7411: l_tax_lines_rec := l_tax_lines_list(i);
7412:
7413: -----------------------------------------------------------------
7414: debug_info := 'Import_Retroprice_Adjustments 9.4 Zero Amount Adjustments';
7415: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7416: AP_IMPORT_UTILITIES_PKG.Print(
7417: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7418: END IF;
7419: -----------------------------------------------------------------
7413: -----------------------------------------------------------------
7414: debug_info := 'Import_Retroprice_Adjustments 9.4 Zero Amount Adjustments';
7415: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7416: AP_IMPORT_UTILITIES_PKG.Print(
7417: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7418: END IF;
7419: -----------------------------------------------------------------
7420: IF (Insert_Zero_Amt_Adjustments(
7421: l_tax_lines_rec.invoice_id,
7424: l_base_match_lines_rec.invoice_id,
7425: l_base_match_lines_rec.line_number,
7426: current_calling_sequence) <> TRUE) THEN
7427:
7428: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7429: AP_IMPORT_UTILITIES_PKG.Print(
7430: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7431: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
7432: END IF;
7426: current_calling_sequence) <> TRUE) THEN
7427:
7428: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7429: AP_IMPORT_UTILITIES_PKG.Print(
7430: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7431: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
7432: END IF;
7433: Raise Import_Retro_Adj_failure;
7434: END IF;
7465: --Introduced below code to insert all adjustment lines/dists of base match lines
7466: --price and quantity corrections, in corresponding actual invoices
7467:
7468: debug_info := 'Import_Retroprice_Adjustments Step 9.4. Get price corrections for base match line';
7469: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7470: AP_IMPORT_UTILITIES_PKG.Print(
7471: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7472: END IF;
7473:
7467:
7468: debug_info := 'Import_Retroprice_Adjustments Step 9.4. Get price corrections for base match line';
7469: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
7477: 'PRICE_CORRECTION',
7478: l_pc_lines_list,
7479: l_pc_exists) <> TRUE) THEN
7480:
7481: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7482: AP_IMPORT_UTILITIES_PKG.Print(
7483: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7484: 'Corrections_exists<- '||current_calling_sequence);
7485: END IF;
7479: l_pc_exists) <> TRUE) THEN
7480:
7481: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7482: AP_IMPORT_UTILITIES_PKG.Print(
7483: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7484: 'Corrections_exists<- '||current_calling_sequence);
7485: END IF;
7486:
7487: Raise Import_Retro_Adj_failure;
7498: l_pc_lines_rec.invoice_id,
7499: l_pc_lines_rec.line_number,
7500: current_calling_sequence) <> TRUE) THEN
7501:
7502: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7503: AP_IMPORT_UTILITIES_PKG.Print(
7504: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7505: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
7506: END IF;
7500: current_calling_sequence) <> TRUE) THEN
7501:
7502: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7503: AP_IMPORT_UTILITIES_PKG.Print(
7504: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7505: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
7506: END IF;
7507: Raise Import_Retro_Adj_failure;
7508: END IF;
7513: l_pc_lines_rec.line_number,
7514: l_tax_lines_list,
7515: l_tipv_exists) <> TRUE) THEN
7516: --
7517: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7518: AP_IMPORT_UTILITIES_PKG.Print(
7519: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7520: 'Tipv_Exists<- '||current_calling_sequence);
7521: END IF;
7515: l_tipv_exists) <> TRUE) THEN
7516: --
7517: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7518: AP_IMPORT_UTILITIES_PKG.Print(
7519: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7520: 'Tipv_Exists<- '||current_calling_sequence);
7521: END IF;
7522: --
7523: Raise Import_Retro_Adj_failure;
7529: l_tax_lines_rec := l_tax_lines_list(i);
7530:
7531: -----------------------------------------------------------------
7532: debug_info := 'Import_Retroprice_Adjustments 9.4 Zero Amount Adjustments';
7533: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7534: AP_IMPORT_UTILITIES_PKG.Print(
7535: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7536: END IF;
7537: -----------------------------------------------------------------
7531: -----------------------------------------------------------------
7532: debug_info := 'Import_Retroprice_Adjustments 9.4 Zero Amount Adjustments';
7533: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7534: AP_IMPORT_UTILITIES_PKG.Print(
7535: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7536: END IF;
7537: -----------------------------------------------------------------
7538: IF (Insert_Zero_Amt_Adjustments(
7539: l_tax_lines_rec.invoice_id,
7542: l_pc_lines_rec.invoice_id,
7543: l_pc_lines_rec.line_number,
7544: current_calling_sequence) <> TRUE) THEN
7545:
7546: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7547: AP_IMPORT_UTILITIES_PKG.Print(
7548: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7549: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
7550: END IF;
7544: current_calling_sequence) <> TRUE) THEN
7545:
7546: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7547: AP_IMPORT_UTILITIES_PKG.Print(
7548: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7549: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
7550: END IF;
7551: Raise Import_Retro_Adj_failure;
7552: END IF;
7558: END LOOP;
7559: END IF;
7560:
7561: debug_info := 'Import_Retroprice_Adjustments Step 9.5. Get Quantity corrections for base match line';
7562: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7563: AP_IMPORT_UTILITIES_PKG.Print(
7564: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7565: END IF;
7566:
7560:
7561: debug_info := 'Import_Retroprice_Adjustments Step 9.5. Get Quantity corrections for base match line';
7562: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
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,
7570: 'QTY_CORRECTION',
7571: l_qc_lines_list,
7572: l_qc_exists) <> TRUE) THEN
7573:
7574: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7575: AP_IMPORT_UTILITIES_PKG.Print(
7576: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7577: 'Corrections_exists<- '||current_calling_sequence);
7578: END IF;
7572: l_qc_exists) <> TRUE) THEN
7573:
7574: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7575: AP_IMPORT_UTILITIES_PKG.Print(
7576: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7577: 'Corrections_exists<- '||current_calling_sequence);
7578: END IF;
7579:
7580: Raise Import_Retro_Adj_failure;
7591: l_qc_lines_rec.invoice_id,
7592: l_qc_lines_rec.line_number,
7593: current_calling_sequence) <> TRUE) THEN
7594:
7595: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7596: AP_IMPORT_UTILITIES_PKG.Print(
7597: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7598: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
7599: END IF;
7593: current_calling_sequence) <> TRUE) THEN
7594:
7595: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7596: AP_IMPORT_UTILITIES_PKG.Print(
7597: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7598: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
7599: END IF;
7600: Raise Import_Retro_Adj_failure;
7601: END IF;
7605: l_qc_lines_rec.line_number,
7606: l_tax_lines_list,
7607: l_tipv_exists) <> TRUE) THEN
7608: --
7609: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7610: AP_IMPORT_UTILITIES_PKG.Print(
7611: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7612: 'Tipv_Exists<- '||current_calling_sequence);
7613: END IF;
7607: l_tipv_exists) <> TRUE) THEN
7608: --
7609: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7610: AP_IMPORT_UTILITIES_PKG.Print(
7611: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7612: 'Tipv_Exists<- '||current_calling_sequence);
7613: END IF;
7614: --
7615: Raise Import_Retro_Adj_failure;
7621: l_tax_lines_rec := l_tax_lines_list(i);
7622:
7623: -----------------------------------------------------------------
7624: debug_info := 'Import_Retroprice_Adjustments 9.4 Zero Amount Adjustments';
7625: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7626: AP_IMPORT_UTILITIES_PKG.Print(
7627: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7628: END IF;
7629: -----------------------------------------------------------------
7623: -----------------------------------------------------------------
7624: debug_info := 'Import_Retroprice_Adjustments 9.4 Zero Amount Adjustments';
7625: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7626: AP_IMPORT_UTILITIES_PKG.Print(
7627: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7628: END IF;
7629: -----------------------------------------------------------------
7630: IF (Insert_Zero_Amt_Adjustments(
7631: l_tax_lines_rec.invoice_id,
7634: l_qc_lines_rec.invoice_id,
7635: l_qc_lines_rec.line_number,
7636: current_calling_sequence) <> TRUE) THEN
7637:
7638: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7639: AP_IMPORT_UTILITIES_PKG.Print(
7640: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7641: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
7642: END IF;
7636: current_calling_sequence) <> TRUE) THEN
7637:
7638: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7639: AP_IMPORT_UTILITIES_PKG.Print(
7640: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7641: 'Insert_Zero_Amt_Adjustments<- '||current_calling_sequence);
7642: END IF;
7643: Raise Import_Retro_Adj_failure;
7644: END IF;
7658: ---------------------------------------------------------------------------
7659: -- STEP 10. Insert PPA Invoices
7660: ---------------------------------------------------------------------------
7661: debug_info := 'Import_Retroprice_Adjustments 10. Insert_Ppa_Invoices l_instr_status_flag is '||l_instr_status_flag;
7662: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7663: AP_IMPORT_UTILITIES_PKG.Print(
7664: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7665: END IF;
7666:
7660: ---------------------------------------------------------------------------
7661: debug_info := 'Import_Retroprice_Adjustments 10. Insert_Ppa_Invoices l_instr_status_flag is '||l_instr_status_flag;
7662: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7663: AP_IMPORT_UTILITIES_PKG.Print(
7664: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7665: END IF;
7666:
7667: IF l_instr_status_flag = 'Y' THEN
7668: --
7671: p_invoices_count,
7672: p_invoices_total,
7673: current_calling_sequence) <> TRUE) THEN
7674: --
7675: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7676: AP_IMPORT_UTILITIES_PKG.Print(
7677: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7678: 'Insert_Ppa_Invoices<- '||current_calling_sequence);
7679: END IF;
7673: current_calling_sequence) <> TRUE) THEN
7674: --
7675: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7676: AP_IMPORT_UTILITIES_PKG.Print(
7677: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7678: 'Insert_Ppa_Invoices<- '||current_calling_sequence);
7679: END IF;
7680: Raise Import_Retro_Adj_failure;
7681: --
7758: --------------------------------------------------------------------------
7759: -- STEP 10. Update Amount, Invoice Adjustment Flag in PO Distributions
7760: --------------------------------------------------------------------------
7761: debug_info := 'Import_Retroprice_Adjustments 11. Update PO_DISTRIBUTIONS';
7762: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7763: AP_IMPORT_UTILITIES_PKG.Print(
7764: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7765: END IF;
7766:
7760: --------------------------------------------------------------------------
7761: debug_info := 'Import_Retroprice_Adjustments 11. Update PO_DISTRIBUTIONS';
7762: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
7763: AP_IMPORT_UTILITIES_PKG.Print(
7764: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7765: END IF;
7766:
7767:
7768:
7877: RETURN (TRUE);
7878: --
7879: EXCEPTION
7880: WHEN OTHERS THEN
7881: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7882: AP_IMPORT_UTILITIES_PKG.Print(
7883: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7884:
7885: debug_info := 'In Others Exception';
7879: EXCEPTION
7880: WHEN OTHERS THEN
7881: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7882: AP_IMPORT_UTILITIES_PKG.Print(
7883: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7884:
7885: debug_info := 'In Others Exception';
7886: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7887: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
7889:
7890: END IF;
7891:
7892: IF (SQLCODE < 0) then
7893: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7894: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
7895: END IF;
7896: END IF;
7897: --
7890: END IF;
7891:
7892: IF (SQLCODE < 0) then
7893: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7894: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
7895: END IF;
7896: END IF;
7897: --
7898: --Bug#15996840