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

APPS.AP_RETRO_PRICING_PKG dependencies on AP_IMPORT_UTILITIES_PKG

Line 1057: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 1067: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 1379: AP_IMPORT_UTILITIES_PKG.Print(

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;
1383: --

Line 1398: AP_IMPORT_UTILITIES_PKG.Print(

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;
1402: --

Line 1419: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1425: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 1531: AP_IMPORT_UTILITIES_PKG.Print(

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;
1535: --

Line 1547: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1553: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 1769: AP_IMPORT_UTILITIES_PKG.Print(

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;
1773: --

Line 1871: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1877: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 2095: AP_IMPORT_UTILITIES_PKG.Print(

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;
2099: --

Line 2123: AP_IMPORT_UTILITIES_PKG.Print(

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;
2127: --

Line 2408: AP_IMPORT_UTILITIES_PKG.Print(

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;
2412: --

Line 2423: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2429: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 2656: AP_IMPORT_UTILITIES_PKG.Print(

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;
2660: --

Line 2675: AP_IMPORT_UTILITIES_PKG.Print(

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;
2679: --

Line 2946: AP_IMPORT_UTILITIES_PKG.Print(

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;
2950: --

Line 2962: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2968: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 3057: AP_IMPORT_UTILITIES_PKG.Print(

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(
3061: p_ppa_invoice_rec,

Line 3070: AP_IMPORT_UTILITIES_PKG.Print(

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;
3074: Raise Process_TIPV_Adj_failure;

Line 3084: AP_IMPORT_UTILITIES_PKG.Print(

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:
3088: IF (SQLCODE < 0) then

Line 3090: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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:

Line 3333: AP_IMPORT_UTILITIES_PKG.Print(

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;
3337: --

Line 3478: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3484: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 3576: AP_IMPORT_UTILITIES_PKG.Print(

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:
3580: FOR i IN 1..p_base_match_lines_list.COUNT

Line 3588: AP_IMPORT_UTILITIES_PKG.Print(

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: ------------------------------------------------------------------------------
3592: --Bugfix:4281253

Line 3597: AP_IMPORT_UTILITIES_PKG.Print(

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: --
3601: debug_info := '8889999 l_base_match_lines_rec.amount is '||l_base_match_lines_rec.amount;

Line 3603: AP_IMPORT_UTILITIES_PKG.Print(

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:
3607:

Line 3617: AP_IMPORT_UTILITIES_PKG.Print(

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;
3621: Raise Process_Retro_Adj_failure;

Line 3634: AP_IMPORT_UTILITIES_PKG.Print(

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: --------------------------------------------------------------------------
3638: IF (AP_RETRO_PRICING_UTIL_PKG.ppa_already_exists(

Line 3646: AP_IMPORT_UTILITIES_PKG.Print(

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;
3650: Raise Process_Retro_Adj_failure;

Line 3655: AP_IMPORT_UTILITIES_PKG.Print(

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:
3659:

Line 3670: AP_IMPORT_UTILITIES_PKG.Print(

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: ----------------------------------------------------------------------------
3674: IF (l_ppa_exists = 'Y') THEN

Line 3678: AP_IMPORT_UTILITIES_PKG.Print(

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(
3682: p_instruction_rec.invoice_id,

Line 3689: AP_IMPORT_UTILITIES_PKG.Print(

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;
3693: --

Line 3708: AP_IMPORT_UTILITIES_PKG.Print(

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: ----------------------------------------------------------------------------
3712: -- If this base matched line has already been Adjusted by a line

Line 3723: AP_IMPORT_UTILITIES_PKG.Print(

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;
3727: --

Line 3735: AP_IMPORT_UTILITIES_PKG.Print(

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: -------------------------------------------------------------------------
3739: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(

Line 3745: AP_IMPORT_UTILITIES_PKG.Print(

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;
3749: Raise Process_Retro_Adj_failure;

Line 3758: AP_IMPORT_UTILITIES_PKG.Print(

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: -----------------------------------------------------------------------
3762: --

Line 3773: AP_IMPORT_UTILITIES_PKG.Print(

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;
3777: --

Line 3787: AP_IMPORT_UTILITIES_PKG.Print(

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: ----------------------------------------------------------------------
3791: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(

Line 3798: AP_IMPORT_UTILITIES_PKG.Print(

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;
3802: --

Line 3813: AP_IMPORT_UTILITIES_PKG.Print(

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: -----------------------------------------------------------------
3817: IF (Process_TIPV_Reversal(

Line 3827: AP_IMPORT_UTILITIES_PKG.Print(

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;
3831: --

Line 3845: AP_IMPORT_UTILITIES_PKG.Print(

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: --------------------------------------------------------------------------
3849: --

Line 3862: AP_IMPORT_UTILITIES_PKG.Print(

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;
3866: --

Line 3878: AP_IMPORT_UTILITIES_PKG.Print(

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: --
3882: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(

Line 3890: AP_IMPORT_UTILITIES_PKG.Print(

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;
3894: --

Line 3911: AP_IMPORT_UTILITIES_PKG.Print(

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: ---------------------------------------------------------------------
3915: IF (AP_RETRO_PRICING_UTIL_PKG.Ipv_Dists_exists(

Line 3921: AP_IMPORT_UTILITIES_PKG.Print(

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;
3925: Raise Process_Retro_Adj_failure;

Line 3932: AP_IMPORT_UTILITIES_PKG.Print(

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: ---------------------------------------------------------------------
3936: IF (AP_RETRO_PRICING_UTIL_PKG.Adj_Corr_Exists(

Line 3942: AP_IMPORT_UTILITIES_PKG.Print(

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;
3946: Raise Process_Retro_Adj_failure;

Line 3955: AP_IMPORT_UTILITIES_PKG.Print(

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: ------------------------------------------------------------------
3959: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN

Line 3960: 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: --
3964: IF (Reverse_Redistribute_IPV(

Line 3974: AP_IMPORT_UTILITIES_PKG.Print(

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;
3978: --

Line 3987: AP_IMPORT_UTILITIES_PKG.Print(

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: -------------------------------------------------------------------
3991: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(

Line 3998: AP_IMPORT_UTILITIES_PKG.Print(

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;
4002: --

Line 4013: AP_IMPORT_UTILITIES_PKG.Print(

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: --------------------------------------------------------------
4017: IF (Process_TIPV_Reversal(

Line 4027: AP_IMPORT_UTILITIES_PKG.Print(

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;
4031: --

Line 4047: AP_IMPORT_UTILITIES_PKG.Print(

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: --
4051:

Line 4063: AP_IMPORT_UTILITIES_PKG.Print(

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: --
4067: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(

Line 4075: AP_IMPORT_UTILITIES_PKG.Print(

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;
4079: --

Line 4101: AP_IMPORT_UTILITIES_PKG.Print(

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;
4105: Raise Process_Retro_Adj_failure;

Line 4118: AP_IMPORT_UTILITIES_PKG.Print(

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;
4122: Raise Process_Retro_Adj_failure;

Line 4132: AP_IMPORT_UTILITIES_PKG.Print(

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: --
4136: IF (Reverse_Redistribute_IPV(

Line 4146: AP_IMPORT_UTILITIES_PKG.Print(

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;
4150: --

Line 4167: AP_IMPORT_UTILITIES_PKG.Print(

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;
4171: --

Line 4192: AP_IMPORT_UTILITIES_PKG.Print(

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;
4196: --

Line 4211: AP_IMPORT_UTILITIES_PKG.Print(

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: --
4215:

Line 4227: AP_IMPORT_UTILITIES_PKG.Print(

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;
4231: --

Line 4258: AP_IMPORT_UTILITIES_PKG.Print(

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:
4262: IF (SQLCODE < 0) then

Line 4264: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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:

Line 4847: AP_IMPORT_UTILITIES_PKG.Print(

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:
4851: IF (SQLCODE < 0) then

Line 4853: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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:

Line 5413: AP_IMPORT_UTILITIES_PKG.Print(

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;
5417: Raise ppa_validation_failure;

Line 5423: AP_IMPORT_UTILITIES_PKG.Print(

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:
5427: IF (( l_invoice_status = 'Y') AND

Line 5488: AP_IMPORT_UTILITIES_PKG.Print(

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;
5492: --

Line 5501: AP_IMPORT_UTILITIES_PKG.Print(

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:
5505: IF ((l_invoice_status = 'N') AND

Line 5532: AP_IMPORT_UTILITIES_PKG.Print(

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:
5536: IF (SQLCODE < 0) then

Line 5538: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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

Line 5667: AP_IMPORT_UTILITIES_PKG.Print(

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:
5671: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 5704: AP_IMPORT_UTILITIES_PKG.Print(

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:
5708: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 5746: AP_IMPORT_UTILITIES_PKG.Print(

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: -------------------------------------------
5750: FND_PROFILE.GET('UNIQUE:SEQ_NUMBERS',l_seq_num_profile);

Line 5782: AP_IMPORT_UTILITIES_PKG.Print(

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: ----------------------------------------
5786:

Line 5804: AP_IMPORT_UTILITIES_PKG.Print(

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:
5808: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 5821: AP_IMPORT_UTILITIES_PKG.Print(

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:
5825: END IF;

Line 5830: AP_IMPORT_UTILITIES_PKG.Print(

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:
5834: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 6129: AP_IMPORT_UTILITIES_PKG.Print(

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:
6133: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 6160: AP_IMPORT_UTILITIES_PKG.Print(

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:
6164: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 6450: AP_IMPORT_UTILITIES_PKG.Print(

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:
6454: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 6706: AP_IMPORT_UTILITIES_PKG.Print(

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:
6710: IF (SQLCODE < 0) then

Line 6712: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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;

Line 6921: AP_IMPORT_UTILITIES_PKG.Print(

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: --
6925: IF (AP_RETRO_PRICING_UTIL_PKG.Are_Original_Invoices_Valid(

Line 6931: AP_IMPORT_UTILITIES_PKG.Print(

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;
6935: RAISE Import_Retro_Adj_failure;

Line 6940: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

6936: END IF;
6937: --
6938: IF l_orig_invoices_valid = 'N' THEN
6939: --
6940: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
6941: 'AP_INVOICES_INTERFACE',
6942: p_instruction_rec.invoice_id,
6943: 'ORIGINAL INVOICE NOT VALIDATED',
6944: FND_GLOBAL.user_id,

Line 6949: AP_IMPORT_UTILITIES_PKG.Print(

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;
6953: Raise Import_Retro_Adj_failure;

Line 6966: AP_IMPORT_UTILITIES_PKG.Print(

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: --
6970: IF (AP_RETRO_PRICING_UTIL_PKG.Are_Holds_Ok(

Line 6976: AP_IMPORT_UTILITIES_PKG.Print(

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;
6980: RAISE Import_Retro_Adj_failure;

Line 6985: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

6981: END IF;
6982: --
6983: IF l_orig_invoices_valid = 'N' THEN
6984: --Insert rejections
6985: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6986: ('AP_INVOICES_INTERFACE',
6987: p_instruction_rec.invoice_id,
6988: 'ORIGINAL INVOICE HAS A HOLD',
6989: FND_GLOBAL.user_id,

Line 6993: AP_IMPORT_UTILITIES_PKG.Print(

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;
6997: Raise Import_Retro_Adj_failure;

Line 7012: AP_IMPORT_UTILITIES_PKG.Print(

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: --
7016: IF (AP_RETRO_PRICING_UTIL_PKG.Is_Sequence_Assigned(

Line 7022: AP_IMPORT_UTILITIES_PKG.Print(

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;
7026: RAISE Import_Retro_Adj_failure;

Line 7032: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

7028: --
7029: FND_PROFILE.GET('UNIQUE:SEQ_NUMBERS',l_seq_num_profile);
7030: IF ((l_orig_invoices_valid = 'N') and (l_seq_num_profile = 'A')) THEN
7031: --Insert rejections
7032: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
7033: ('AP_INVOICES_INTERFACE',
7034: p_instruction_rec.invoice_id,
7035: 'NO SEQUENCE DEFINED FOR PPA',
7036: FND_GLOBAL.user_id,

Line 7040: AP_IMPORT_UTILITIES_PKG.Print(

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;
7044: Raise Import_Retro_Adj_failure;

Line 7059: AP_IMPORT_UTILITIES_PKG.Print(

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: --
7063: --Bugfix:4681253

Line 7075: AP_IMPORT_UTILITIES_PKG.Print(

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:
7079: OPEN instruction_lines;

Line 7091: AP_IMPORT_UTILITIES_PKG.Print(

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:
7095: IF (AP_RETRO_PRICING_UTIL_PKG.Get_Base_Match_Lines(

Line 7102: AP_IMPORT_UTILITIES_PKG.Print(

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;
7106: Raise Import_Retro_Adj_failure;

Line 7116: AP_IMPORT_UTILITIES_PKG.Print(

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: --
7120:

Line 7130: AP_IMPORT_UTILITIES_PKG.Print(

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;
7134: Raise Import_Retro_Adj_failure;

Line 7157: AP_IMPORT_UTILITIES_PKG.Print(

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:
7161: UPDATE AP_ppa_invoices_gt H

Line 7172: AP_IMPORT_UTILITIES_PKG.Print(

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:
7176: IF (Validate_Temp_Ppa_Invoices(

Line 7201: AP_IMPORT_UTILITIES_PKG.Print(

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;
7205: RAISE Import_Retro_Adj_failure;

Line 7225: AP_IMPORT_UTILITIES_PKG.Print(

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:
7229:

Line 7232: AP_IMPORT_UTILITIES_PKG.Print(

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:
7236: p_instr_status_flag := l_instr_status_flag;

Line 7254: AP_IMPORT_UTILITIES_PKG.Print(

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:
7258: -- Bug 5469166. Uncomment the following section. In case of wash there is no

Line 7297: AP_IMPORT_UTILITIES_PKG.Print(

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:
7301: FOR i IN 1..l_instruction_lines_list.COUNT

Line 7312: AP_IMPORT_UTILITIES_PKG.Print(

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:
7316: IF (AP_RETRO_PRICING_UTIL_PKG.Get_Base_Match_Lines(

Line 7323: AP_IMPORT_UTILITIES_PKG.Print(

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;
7327: Raise Import_Retro_Adj_failure;

Line 7339: AP_IMPORT_UTILITIES_PKG.Print(

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:
7343: IF (AP_RETRO_PRICING_UTIL_PKG.ppa_already_exists(

Line 7351: AP_IMPORT_UTILITIES_PKG.Print(

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;
7355: Raise Import_Retro_Adj_failure;

Line 7360: AP_IMPORT_UTILITIES_PKG.Print(

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:
7364: IF (l_instr_status_flag = 'Y' AND

Line 7377: AP_IMPORT_UTILITIES_PKG.Print(

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;
7381: Raise Import_Retro_Adj_failure;

Line 7388: AP_IMPORT_UTILITIES_PKG.Print(

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: ----------------------------------------------------------------------
7392: IF (AP_RETRO_PRICING_UTIL_PKG.Tipv_Exists(

Line 7399: AP_IMPORT_UTILITIES_PKG.Print(

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;
7403: --

Line 7416: AP_IMPORT_UTILITIES_PKG.Print(

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: -----------------------------------------------------------------
7420: IF (Insert_Zero_Amt_Adjustments(

Line 7429: AP_IMPORT_UTILITIES_PKG.Print(

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;
7433: Raise Import_Retro_Adj_failure;

Line 7470: AP_IMPORT_UTILITIES_PKG.Print(

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:
7474: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(

Line 7482: AP_IMPORT_UTILITIES_PKG.Print(

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;
7486:

Line 7503: AP_IMPORT_UTILITIES_PKG.Print(

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;
7507: Raise Import_Retro_Adj_failure;

Line 7518: AP_IMPORT_UTILITIES_PKG.Print(

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;
7522: --

Line 7534: AP_IMPORT_UTILITIES_PKG.Print(

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: -----------------------------------------------------------------
7538: IF (Insert_Zero_Amt_Adjustments(

Line 7547: AP_IMPORT_UTILITIES_PKG.Print(

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;
7551: Raise Import_Retro_Adj_failure;

Line 7563: AP_IMPORT_UTILITIES_PKG.Print(

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:
7567: IF (AP_RETRO_PRICING_UTIL_PKG.Corrections_exists(

Line 7575: AP_IMPORT_UTILITIES_PKG.Print(

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;
7579:

Line 7596: AP_IMPORT_UTILITIES_PKG.Print(

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;
7600: Raise Import_Retro_Adj_failure;

Line 7610: AP_IMPORT_UTILITIES_PKG.Print(

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;
7614: --

Line 7626: AP_IMPORT_UTILITIES_PKG.Print(

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: -----------------------------------------------------------------
7630: IF (Insert_Zero_Amt_Adjustments(

Line 7639: AP_IMPORT_UTILITIES_PKG.Print(

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;
7643: Raise Import_Retro_Adj_failure;

Line 7663: AP_IMPORT_UTILITIES_PKG.Print(

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:
7667: IF l_instr_status_flag = 'Y' THEN

Line 7676: AP_IMPORT_UTILITIES_PKG.Print(

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;
7680: Raise Import_Retro_Adj_failure;

Line 7763: AP_IMPORT_UTILITIES_PKG.Print(

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:
7767:

Line 7882: AP_IMPORT_UTILITIES_PKG.Print(

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';
7886: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 7894: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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