9: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_APPROVAL_MATCHED_PKG.';
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_APPROVAL_MATCHED_PKG.';
21: --bug 9242891
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_APPROVAL_MATCHED_PKG.';
21: --bug 9242891
22:
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_APPROVAL_MATCHED_PKG.';
21: --bug 9242891
22:
23: /*===========================================================================
469: l_curr_calling_sequence := 'AP_APPROVAL_MATCHED_PKG.'||l_debug_loc||'<-'||
470: p_calling_sequence;
471: --bug 9242891
472: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
473: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'AP_APPROVAL_MATCHED_PKG.Exec_Matched_Variance_Checks(+)');
474: END IF; --bug 9242891
475:
476: IF ( AP_APPROVAL_PKG.g_debug_mode = 'Y' ) THEN
477: g_debug_mode := 'Y';
550: END IF;
551:
552: --bug 9242891
553: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
554: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
555: END IF; --bug 9242891
556:
557: OPEN Distribution_Cur;
558:
564: END IF;
565:
566: --bug 9242891
567: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
568: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
569: END IF; --bug 9242891
570:
571: OPEN Retainage_Distribution_Cur;
572:
604: END IF;
605:
606: --bug 9242891
607: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
608: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
609: END IF; --bug 9242891
610:
611: FETCH Retainage_Distribution_Cur
612: INTO l_invoice_distribution_id
1438: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1439:
1440: --bug 9242891
1441: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1442: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1443: END IF; --bug 9242891
1444: END IF;
1445:
1446: END LOOP;
2335: IF (g_debug_mode = 'Y') THEN
2336: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2337: END IF;
2338: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2339: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2340: END IF;
2341:
2342: OPEN Matched_Cur;
2343: LOOP
2348: IF (g_debug_mode = 'Y') THEN
2349: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2350: END IF;
2351: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2352: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2353: END IF;
2354:
2355: FETCH Matched_Cur
2356: INTO l_line_location_id,
2471: IF (g_debug_mode = 'Y') THEN
2472: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2473: END IF;
2474: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2475: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2476: END IF;
2477:
2478: /*-----------------------------------------------------------------+
2479: | Set final_matching_exists to 'Y' when po_close_code is final |
2540: IF (g_debug_mode = 'Y') THEN
2541: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2542: END IF;
2543: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2544: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2545: END IF;
2546:
2547: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2548: p_invoice_id,
2563: IF (g_debug_mode = 'Y') THEN
2564: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2565: END IF;
2566: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2567: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2568: END IF;
2569:
2570: IF (l_inv_currency_code <> l_po_currency_code) THEN
2571:
2579: IF (g_debug_mode = 'Y') THEN
2580: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2581: END IF;
2582: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2583: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2584: END IF;
2585:
2586: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2587: p_invoice_id,
2602: IF (g_debug_mode = 'Y') THEN
2603: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2604: END IF;
2605: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2606: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2607: END IF;
2608:
2609: --Bug8971070: Corrected the conditional operator from '<>' to '='
2610: --for l_discarded_flag and l_cancelled_flag
2622: IF (g_debug_mode = 'Y') THEN
2623: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2624: END IF;
2625: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2626: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2627: END IF;
2628:
2629: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2630: p_invoice_id,
2645: IF (g_debug_mode = 'Y') THEN
2646: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2647: END IF;
2648: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2649: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2650: END IF;
2651:
2652: Check_Receipt_Exception(
2653: p_invoice_id,
2666: IF (g_debug_mode = 'Y') THEN
2667: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2668: END IF;
2669: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2670: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2671: END IF;
2672:
2673: IF (l_payment_type <> 'MILESTONE') THEN
2674:
2689: IF (g_debug_mode = 'Y') THEN
2690: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2691: END IF;
2692: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2693: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2694: END IF;
2695:
2696: IF (p_qty_tol IS NOT NULL) THEN
2697: IF (l_qty_billed > (p_qty_tol * l_qty_ordered)) THEN
2709: IF (g_debug_mode = 'Y') THEN
2710: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2711: END IF;
2712: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2713: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2714: END IF;
2715:
2716: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2717: p_invoice_id,
2729: -------------------------------------------------
2730: l_debug_info := 'Check Maximim Quantity Ordered';
2731: -------------------------------------------------
2732: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2733: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2734: END IF;
2735: IF (p_max_qty_ord_tol IS NOT NULL) THEN
2736: IF (l_qty_billed > (p_max_qty_ord_tol + l_qty_ordered)) THEN
2737: l_max_qty_ord_error_exists := 'Y';
2746: IF (g_debug_mode = 'Y') THEN
2747: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2748: END IF;
2749: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2750: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2751: END IF;
2752:
2753: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2754: p_invoice_id,
2769: IF (g_debug_mode = 'Y') THEN
2770: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2771: END IF;
2772: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2773: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2774: END IF;
2775:
2776: /*-----------------------------------------------------------------+
2777: | Calculate the net quantity received. the values are got from |
2812: IF (g_debug_mode = 'Y') THEN
2813: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2814: END IF;
2815: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2816: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2817: END IF;
2818:
2819: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2820: p_invoice_id,
2835: IF (g_debug_mode = 'Y') THEN
2836: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2837: END IF;
2838: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2839: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2840: END IF;
2841:
2842: IF (p_max_qty_rec_tol IS NOT NULL) THEN
2843: IF ( (l_billed_quantity_used >
2857: IF (g_debug_mode = 'Y') THEN
2858: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2859: END IF;
2860: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2861: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2862: END IF;
2863:
2864: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2865: p_invoice_id,
2880: IF (g_debug_mode = 'Y') THEN
2881: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2882: END IF;
2883: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2884: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2885: END IF;
2886:
2887: Check_Price(
2888: p_invoice_id,
2907: IF (g_debug_mode = 'Y') THEN
2908: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2909: END IF;
2910: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2911: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2912: END IF;
2913:
2914: IF (l_match_option = 'R') THEN
2915: l_billed_quantity_used := nvl(l_billed_txn_qty,0); -- from po api
2931: IF (g_debug_mode = 'Y') THEN
2932: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2933: END IF;
2934: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2935: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2936: END IF;
2937:
2938: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2939: p_invoice_id,
2967: IF (g_debug_mode = 'Y') THEN
2968: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2969: END IF;
2970: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2971: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2972: END IF;
2973:
2974: IF (p_amt_tol IS NOT NULL) THEN
2975: IF (l_amt_billed > (p_amt_tol * l_amt_ordered)) THEN
2987: IF (g_debug_mode = 'Y') THEN
2988: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2989: END IF;
2990: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2991: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2992: END IF;
2993:
2994: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2995: p_invoice_id,
3007: -------------------------------------------------
3008: l_debug_info := 'Check Maximum Amount Ordered';
3009: -------------------------------------------------
3010: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3011: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3012: END IF;
3013: IF (p_max_amt_ord_tol IS NOT NULL) THEN
3014: IF (l_amt_billed > (p_max_amt_ord_tol + l_amt_ordered)) THEN
3015: l_max_amt_ord_error_exists := 'Y';
3024: IF (g_debug_mode = 'Y') THEN
3025: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3026: END IF;
3027: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3028: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3029: END IF;
3030:
3031: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3032: p_invoice_id,
3047: IF (g_debug_mode = 'Y') THEN
3048: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3049: END IF;
3050: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3051: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3052: END IF;
3053:
3054: /*-----------------------------------------------------------------+
3055: | Calculate the net amount received. the values are got from |
3085: IF (g_debug_mode = 'Y') THEN
3086: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3087: END IF;
3088: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3089: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3090: END IF;
3091:
3092: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3093: p_invoice_id,
3108: IF (g_debug_mode = 'Y') THEN
3109: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3110: END IF;
3111: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3112: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3113: END IF;
3114:
3115: IF (p_max_amt_rec_tol IS NOT NULL) THEN
3116: IF ( (l_billed_amount_used >
3130: IF (g_debug_mode = 'Y') THEN
3131: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3132: END IF;
3133: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3134: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3135: END IF;
3136:
3137: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3138: p_invoice_id,
3178: IF (g_debug_mode = 'Y') THEN
3179: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3180: END IF;
3181: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3182: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3183: END IF;
3184: --
3185: -- Bug 5077550
3186: -- When the pay item type is milestone and the match basis is
3214: IF (g_debug_mode = 'Y') THEN
3215: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3216: END IF;
3217: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3218: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3219: END IF;
3220:
3221: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3222: p_invoice_id,
3240: IF (g_debug_mode = 'Y') THEN
3241: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3242: END IF;
3243: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3244: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3245: END IF;
3246:
3247: /*-----------------------------------------------------------------+
3248: | Calculate the net quantity received. the values are got from |
3283: IF (g_debug_mode = 'Y') THEN
3284: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3285: END IF;
3286: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3287: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3288: END IF;
3289:
3290: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3291: p_invoice_id,
3320: IF (g_debug_mode = 'Y') THEN
3321: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3322: END IF;
3323: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3324: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3325: END IF;
3326:
3327: --Bug6830703
3328: --added the condition l_amt_billed<>0 to avoid checking
3344: IF (g_debug_mode = 'Y') THEN
3345: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3346: END IF;
3347: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3348: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3349: END IF;
3350:
3351: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3352: p_invoice_id,
3370: IF (g_debug_mode = 'Y') THEN
3371: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3372: END IF;
3373: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3374: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3375: END IF;
3376:
3377: /*-----------------------------------------------------------------+
3378: | Calculate the net amount received. the values are got from |
3406: IF (g_debug_mode = 'Y') THEN
3407: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3408: END IF;
3409: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3410: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3411: END IF;
3412:
3413: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3414: p_invoice_id,
3438: IF (g_debug_mode = 'Y') THEN
3439: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3440: END IF;
3441: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3442: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3443: END IF;
3444:
3445: IF (l_final_match_flag NOT IN ('Y', 'D')) THEN
3446:
3467: IF (g_debug_mode = 'Y') THEN
3468: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3469: END IF;
3470: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3471: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3472: END IF;
3473:
3474:
3475: IF (l_payment_type <> 'MILESTONE') THEN
3510: IF (g_debug_mode = 'Y') THEN
3511: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3512: END IF;
3513: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3514: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3515: END IF;
3516:
3517: IF FV_INSTALL.Enabled(l_org_id) THEN
3518: --------------------------------------------------
3521: IF (g_debug_mode = 'Y') THEN
3522: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3523: END IF;
3524: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3525: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3526: END IF;
3527:
3528: FV_AP_MATCH_PKG.Shipment_Tolerance(l_ship_trx_amt_var,
3529: l_ship_amount,
3540: IF (g_debug_mode = 'Y') THEN
3541: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3542: END IF;
3543: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3544: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3545: END IF;
3546:
3547: END IF;
3548:
3571: IF (g_debug_mode = 'Y') THEN
3572: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3573: END IF;
3574: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3575: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3576: END IF;
3577:
3578: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3579: p_invoice_id,
3594: IF (g_debug_mode = 'Y') THEN
3595: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3596: END IF;
3597: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3598: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3599: END IF;
3600:
3601: IF ((l_matching_basis = 'QUANTITY' and p_goods_rate_amt_tolerance IS NOT NULL)
3602: OR (l_matching_basis = 'AMOUNT' and p_services_rate_amt_tolerance IS NOT NULL))
3633: IF (g_debug_mode = 'Y') THEN
3634: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3635: END IF;
3636: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3637: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3638: END IF;
3639:
3640: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3641: p_invoice_id,
3656: IF (g_debug_mode = 'Y') THEN
3657: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3658: END IF;
3659: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3660: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3661: END IF;
3662:
3663: IF (((l_matching_basis = 'QUANTITY' and p_goods_total_amt_tolerance IS NOT NULL) OR
3664: (l_matching_basis = 'AMOUNT' and p_services_total_amt_tolerance IS NOT NULL)) /* bug 12991841 */
3701: IF (g_debug_mode = 'Y') THEN
3702: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3703: END IF;
3704: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3705: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3706: END IF;
3707:
3708: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3709: p_invoice_id,
6510: IF AP_APPROVAL_PKG.g_debug_mode = 'Y' THEN
6511: AP_Debug_Pkg.Print('Y', p_debug_info );
6512: END IF;
6513:
6514: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6515: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'AP.PLSQL.AP_APPROVAL_MATCHED_PKG'||p_api_name,p_debug_info);
6516: END IF;
6517:
6518: END Print_Debug;
6511: AP_Debug_Pkg.Print('Y', p_debug_info );
6512: END IF;
6513:
6514: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6515: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'AP.PLSQL.AP_APPROVAL_MATCHED_PKG'||p_api_name,p_debug_info);
6516: END IF;
6517:
6518: END Print_Debug;
6519: