2519:
2520: EXCEPTION
2521: --Bug9021265
2522: WHEN TAX_UNFREEZE_EXCEPTION THEN
2523: fnd_message.set_name( 'SQLAP', 'AP_UNFRZN_TAX_DIST' ); -- Bug 9777752
2524:
2525: IF (approve_invoice_cur%ISOPEN) THEN
2526: CLOSE approve_invoice_cur;
2527: END IF;
2551: END IF;
2552: END LOOP;
2553:
2554: -- Throwing error messages to form to display
2555: FND_MESSAGE.SET_NAME('SQLAP','AP_LCM_EXCEPTION');
2556: /* Error Text is
2557: -- An error occurred while interfacing the invoice to Landed Cost Management.
2558: -- Error: ERROR
2559: --
2557: -- An error occurred while interfacing the invoice to Landed Cost Management.
2558: -- Error: ERROR
2559: --
2560: */
2561: FND_MESSAGE.SET_TOKEN('ERROR', l_lcm_msg_data);
2562: APP_EXCEPTION.RAISE_EXCEPTION;
2563:
2564: WHEN TAX_EXCEPTION THEN
2565:
2562: APP_EXCEPTION.RAISE_EXCEPTION;
2563:
2564: WHEN TAX_EXCEPTION THEN
2565:
2566: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
2567: IF l_error_code IS NOT NULL THEN
2568: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
2569: ELSE
2570: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2564: WHEN TAX_EXCEPTION THEN
2565:
2566: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
2567: IF l_error_code IS NOT NULL THEN
2568: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
2569: ELSE
2570: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2571: END IF;
2572:
2566: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
2567: IF l_error_code IS NOT NULL THEN
2568: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
2569: ELSE
2570: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2571: END IF;
2572:
2573: IF (approve_invoice_cur%ISOPEN) THEN
2574: CLOSE approve_invoice_cur;
2583: APP_EXCEPTION.RAISE_EXCEPTION;
2584:
2585: WHEN OTHERS THEN
2586: IF (SQLCODE <> -20001) THEN
2587: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2588: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2589: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2590: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2591: 'Run Option = '|| p_run_option
2584:
2585: WHEN OTHERS THEN
2586: IF (SQLCODE <> -20001) THEN
2587: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2588: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2589: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2590: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2591: 'Run Option = '|| p_run_option
2592: ||', Batch Id = '|| to_char(p_invoice_batch_id)
2585: WHEN OTHERS THEN
2586: IF (SQLCODE <> -20001) THEN
2587: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2588: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2589: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2590: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2591: 'Run Option = '|| p_run_option
2592: ||', Batch Id = '|| to_char(p_invoice_batch_id)
2593: ||', Begin Date = '|| to_char(p_begin_invoice_date)
2586: IF (SQLCODE <> -20001) THEN
2587: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2588: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2589: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2590: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2591: 'Run Option = '|| p_run_option
2592: ||', Batch Id = '|| to_char(p_invoice_batch_id)
2593: ||', Begin Date = '|| to_char(p_begin_invoice_date)
2594: ||', End Date = '|| to_char(p_end_invoice_date)
2596: ||', Pay Group = '|| p_pay_group
2597: ||', Invoice Id = '|| to_char(p_invoice_id)
2598: ||', Entered By = '|| to_char(p_entered_by)
2599: ||', Set of Books Id = '|| to_char(p_set_of_books_id));
2600: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2601: END IF;
2602:
2603: IF (approve_invoice_cur%ISOPEN) THEN
2604: CLOSE approve_invoice_cur;
2818:
2819: EXCEPTION
2820: WHEN OTHERS THEN
2821: IF (SQLCODE <> -20001) THEN
2822: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2823: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2825: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2826: END IF;
2819: EXCEPTION
2820: WHEN OTHERS THEN
2821: IF (SQLCODE <> -20001) THEN
2822: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2823: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2825: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2826: END IF;
2827: APP_EXCEPTION.RAISE_EXCEPTION;
2820: WHEN OTHERS THEN
2821: IF (SQLCODE <> -20001) THEN
2822: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2823: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2825: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2826: END IF;
2827: APP_EXCEPTION.RAISE_EXCEPTION;
2828: END Approval_Init;
2821: IF (SQLCODE <> -20001) THEN
2822: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2823: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2825: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2826: END IF;
2827: APP_EXCEPTION.RAISE_EXCEPTION;
2828: END Approval_Init;
2829:
2912:
2913: EXCEPTION
2914: WHEN OTHERS THEN
2915: IF (SQLCODE <> -20001) THEN
2916: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2917: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2918: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2919: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2920: 'Invoice_id = '|| to_char(p_invoice_id)
2913: EXCEPTION
2914: WHEN OTHERS THEN
2915: IF (SQLCODE <> -20001) THEN
2916: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2917: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2918: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2919: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2920: 'Invoice_id = '|| to_char(p_invoice_id)
2921: || 'Run Option = ' || p_run_option);
2914: WHEN OTHERS THEN
2915: IF (SQLCODE <> -20001) THEN
2916: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2917: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2918: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2919: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2920: 'Invoice_id = '|| to_char(p_invoice_id)
2921: || 'Run Option = ' || p_run_option);
2922: END IF;
2915: IF (SQLCODE <> -20001) THEN
2916: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2917: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2918: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2919: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2920: 'Invoice_id = '|| to_char(p_invoice_id)
2921: || 'Run Option = ' || p_run_option);
2922: END IF;
2923: APP_EXCEPTION.RAISE_EXCEPTION;
3021:
3022: EXCEPTION
3023: WHEN OTHERS THEN
3024: IF (SQLCODE <> -20001) THEN
3025: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3026: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3028: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3029: 'Invoice_id = '|| to_char(p_invoice_id)
3022: EXCEPTION
3023: WHEN OTHERS THEN
3024: IF (SQLCODE <> -20001) THEN
3025: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3026: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3028: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3029: 'Invoice_id = '|| to_char(p_invoice_id)
3030: || 'Run Option = ' || p_run_option);
3023: WHEN OTHERS THEN
3024: IF (SQLCODE <> -20001) THEN
3025: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3026: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3028: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3029: 'Invoice_id = '|| to_char(p_invoice_id)
3030: || 'Run Option = ' || p_run_option);
3031: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3024: IF (SQLCODE <> -20001) THEN
3025: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3026: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3028: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3029: 'Invoice_id = '|| to_char(p_invoice_id)
3030: || 'Run Option = ' || p_run_option);
3031: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3032: END IF;
3027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3028: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3029: 'Invoice_id = '|| to_char(p_invoice_id)
3030: || 'Run Option = ' || p_run_option);
3031: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3032: END IF;
3033: APP_EXCEPTION.RAISE_EXCEPTION;
3034: END Update_Inv_Dists_To_Selected;
3035:
3165:
3166: EXCEPTION
3167: WHEN OTHERS THEN
3168: IF (SQLCODE <> -20001) THEN
3169: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3170: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3171: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3172: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3173: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3166: EXCEPTION
3167: WHEN OTHERS THEN
3168: IF (SQLCODE <> -20001) THEN
3169: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3170: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3171: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3172: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3173: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3174: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3167: WHEN OTHERS THEN
3168: IF (SQLCODE <> -20001) THEN
3169: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3170: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3171: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3172: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3173: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3174: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3175: END IF;
3168: IF (SQLCODE <> -20001) THEN
3169: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3170: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3171: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3172: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3173: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3174: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3175: END IF;
3176:
3170: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3171: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3172: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3173: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3174: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3175: END IF;
3176:
3177: IF ( Alloc_Rule_Cur%ISOPEN ) THEN
3178: CLOSE Alloc_Rule_Cur;
3515:
3516:
3517: IF l_success = FALSE THEN
3518:
3519: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3520: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3521: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3522: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3523: FND_MESSAGE.SET_TOKEN('l_error_code',l_error_code);
3516:
3517: IF l_success = FALSE THEN
3518:
3519: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3520: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3521: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3522: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3523: FND_MESSAGE.SET_TOKEN('l_error_code',l_error_code);
3524: FND_MESSAGE.SET_TOKEN('PARAMETERS','fail '|| 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3517: IF l_success = FALSE THEN
3518:
3519: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3520: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3521: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3522: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3523: FND_MESSAGE.SET_TOKEN('l_error_code',l_error_code);
3524: FND_MESSAGE.SET_TOKEN('PARAMETERS','fail '|| 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3525: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3518:
3519: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3520: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3521: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3522: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3523: FND_MESSAGE.SET_TOKEN('l_error_code',l_error_code);
3524: FND_MESSAGE.SET_TOKEN('PARAMETERS','fail '|| 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3525: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3526: APP_EXCEPTION.RAISE_EXCEPTION;
3519: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3520: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3521: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3522: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3523: FND_MESSAGE.SET_TOKEN('l_error_code',l_error_code);
3524: FND_MESSAGE.SET_TOKEN('PARAMETERS','fail '|| 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3525: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3526: APP_EXCEPTION.RAISE_EXCEPTION;
3527:
3520: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3521: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3522: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3523: FND_MESSAGE.SET_TOKEN('l_error_code',l_error_code);
3524: FND_MESSAGE.SET_TOKEN('PARAMETERS','fail '|| 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3525: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3526: APP_EXCEPTION.RAISE_EXCEPTION;
3527:
3528: END IF;
3521: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3522: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3523: FND_MESSAGE.SET_TOKEN('l_error_code',l_error_code);
3524: FND_MESSAGE.SET_TOKEN('PARAMETERS','fail '|| 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3525: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3526: APP_EXCEPTION.RAISE_EXCEPTION;
3527:
3528: END IF;
3529: ELSE
3703:
3704: EXCEPTION
3705: WHEN OTHERS THEN
3706: IF (SQLCODE <> -20001) THEN
3707: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3708: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3709: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3710: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3711: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3704: EXCEPTION
3705: WHEN OTHERS THEN
3706: IF (SQLCODE <> -20001) THEN
3707: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3708: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3709: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3710: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3711: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3712: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3705: WHEN OTHERS THEN
3706: IF (SQLCODE <> -20001) THEN
3707: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3708: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3709: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3710: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3711: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3712: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3713: END IF;
3706: IF (SQLCODE <> -20001) THEN
3707: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3708: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3709: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3710: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3711: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3712: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3713: END IF;
3714:
3708: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3709: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3710: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3711: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
3712: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3713: END IF;
3714:
3715: IF ( Alloc_Rule_Cur%ISOPEN ) THEN
3716: CLOSE Alloc_Rule_Cur;
4004:
4005: EXCEPTION
4006: WHEN OTHERS THEN
4007: IF (SQLCODE <> -20001) THEN
4008: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4009: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4010: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4011: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4012: 'Invoice_id = '|| to_char(p_invoice_id)
4005: EXCEPTION
4006: WHEN OTHERS THEN
4007: IF (SQLCODE <> -20001) THEN
4008: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4009: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4010: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4011: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4012: 'Invoice_id = '|| to_char(p_invoice_id)
4013: ||', Set of Books Id = '|| to_char(p_set_of_books_id)
4006: WHEN OTHERS THEN
4007: IF (SQLCODE <> -20001) THEN
4008: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4009: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4010: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4011: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4012: 'Invoice_id = '|| to_char(p_invoice_id)
4013: ||', Set of Books Id = '|| to_char(p_set_of_books_id)
4014: ||', Base Currency Code = '|| p_base_currency_code);
4007: IF (SQLCODE <> -20001) THEN
4008: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4009: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4010: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4011: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4012: 'Invoice_id = '|| to_char(p_invoice_id)
4013: ||', Set of Books Id = '|| to_char(p_set_of_books_id)
4014: ||', Base Currency Code = '|| p_base_currency_code);
4015: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4011: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4012: 'Invoice_id = '|| to_char(p_invoice_id)
4013: ||', Set of Books Id = '|| to_char(p_set_of_books_id)
4014: ||', Base Currency Code = '|| p_base_currency_code);
4015: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4016: END IF;
4017: APP_EXCEPTION.RAISE_EXCEPTION;
4018: END Execute_General_Checks;
4019:
4164:
4165: EXCEPTION
4166: WHEN OTHERS THEN
4167: IF (SQLCODE <> -20001) THEN
4168: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4171: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4172: 'Invoice_id = '|| to_char(p_invoice_id));
4165: EXCEPTION
4166: WHEN OTHERS THEN
4167: IF (SQLCODE <> -20001) THEN
4168: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4171: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4172: 'Invoice_id = '|| to_char(p_invoice_id));
4173: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4166: WHEN OTHERS THEN
4167: IF (SQLCODE <> -20001) THEN
4168: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4171: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4172: 'Invoice_id = '|| to_char(p_invoice_id));
4173: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4174: END IF;
4167: IF (SQLCODE <> -20001) THEN
4168: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4171: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4172: 'Invoice_id = '|| to_char(p_invoice_id));
4173: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4174: END IF;
4175:
4169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4171: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4172: 'Invoice_id = '|| to_char(p_invoice_id));
4173: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4174: END IF;
4175:
4176: IF ( Invalid_Dist_Acct_Cur%ISOPEN ) THEN
4177: CLOSE Invalid_Dist_Acct_Cur;
4282:
4283: EXCEPTION
4284: WHEN OTHERS THEN
4285: IF (SQLCODE <> -20001) THEN
4286: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4287: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4288: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4289: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4290: 'Invoice_id = '|| to_char(p_invoice_id));
4283: EXCEPTION
4284: WHEN OTHERS THEN
4285: IF (SQLCODE <> -20001) THEN
4286: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4287: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4288: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4289: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4290: 'Invoice_id = '|| to_char(p_invoice_id));
4291: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4284: WHEN OTHERS THEN
4285: IF (SQLCODE <> -20001) THEN
4286: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4287: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4288: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4289: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4290: 'Invoice_id = '|| to_char(p_invoice_id));
4291: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4292: END IF;
4285: IF (SQLCODE <> -20001) THEN
4286: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4287: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4288: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4289: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4290: 'Invoice_id = '|| to_char(p_invoice_id));
4291: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4292: END IF;
4293: IF ( PO_Required_Cur%ISOPEN ) THEN
4287: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4288: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4289: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4290: 'Invoice_id = '|| to_char(p_invoice_id));
4291: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4292: END IF;
4293: IF ( PO_Required_Cur%ISOPEN ) THEN
4294: CLOSE PO_Required_Cur;
4295: END IF;
4382:
4383: EXCEPTION
4384: WHEN OTHERS THEN
4385: IF (SQLCODE <> -20001) THEN
4386: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4387: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4388: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4389: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4390: 'Invoice_id = '|| to_char(p_invoice_id)
4383: EXCEPTION
4384: WHEN OTHERS THEN
4385: IF (SQLCODE <> -20001) THEN
4386: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4387: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4388: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4389: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4390: 'Invoice_id = '|| to_char(p_invoice_id)
4391: ||', Base Currency Code = '|| p_base_currency_code);
4384: WHEN OTHERS THEN
4385: IF (SQLCODE <> -20001) THEN
4386: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4387: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4388: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4389: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4390: 'Invoice_id = '|| to_char(p_invoice_id)
4391: ||', Base Currency Code = '|| p_base_currency_code);
4392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4385: IF (SQLCODE <> -20001) THEN
4386: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4387: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4388: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4389: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4390: 'Invoice_id = '|| to_char(p_invoice_id)
4391: ||', Base Currency Code = '|| p_base_currency_code);
4392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4393: END IF;
4388: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4389: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4390: 'Invoice_id = '|| to_char(p_invoice_id)
4391: ||', Base Currency Code = '|| p_base_currency_code);
4392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4393: END IF;
4394:
4395: IF ( No_Rate_Cur%ISOPEN ) THEN
4396: CLOSE No_Rate_Cur;
4493:
4494: EXCEPTION
4495: WHEN OTHERS THEN
4496: IF (SQLCODE <> -20001) THEN
4497: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4498: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4499: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4500: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4501: 'Invoice_id = '|| to_char(p_invoice_id)
4494: EXCEPTION
4495: WHEN OTHERS THEN
4496: IF (SQLCODE <> -20001) THEN
4497: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4498: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4499: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4500: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4501: 'Invoice_id = '|| to_char(p_invoice_id)
4502: );
4495: WHEN OTHERS THEN
4496: IF (SQLCODE <> -20001) THEN
4497: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4498: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4499: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4500: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4501: 'Invoice_id = '|| to_char(p_invoice_id)
4502: );
4503: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4496: IF (SQLCODE <> -20001) THEN
4497: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4498: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4499: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4500: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4501: 'Invoice_id = '|| to_char(p_invoice_id)
4502: );
4503: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4504: END IF;
4499: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4500: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4501: 'Invoice_id = '|| to_char(p_invoice_id)
4502: );
4503: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4504: END IF;
4505:
4506: APP_EXCEPTION.RAISE_EXCEPTION;
4507: END Check_project_commitments;
4668:
4669: EXCEPTION
4670: WHEN OTHERS THEN
4671: IF (SQLCODE <> -20001) THEN
4672: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4673: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4674: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4675: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4676: 'Invoice_id = '|| to_char(p_invoice_id));
4669: EXCEPTION
4670: WHEN OTHERS THEN
4671: IF (SQLCODE <> -20001) THEN
4672: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4673: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4674: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4675: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4676: 'Invoice_id = '|| to_char(p_invoice_id));
4677: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4670: WHEN OTHERS THEN
4671: IF (SQLCODE <> -20001) THEN
4672: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4673: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4674: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4675: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4676: 'Invoice_id = '|| to_char(p_invoice_id));
4677: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4678: END IF;
4671: IF (SQLCODE <> -20001) THEN
4672: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4673: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4674: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4675: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4676: 'Invoice_id = '|| to_char(p_invoice_id));
4677: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4678: END IF;
4679:
4673: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4674: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4675: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4676: 'Invoice_id = '|| to_char(p_invoice_id));
4677: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4678: END IF;
4679:
4680: IF ( Dist_Var_Cur%ISOPEN ) THEN
4681: CLOSE Dist_Var_Cur;
4807:
4808: WHEN OTHERS then
4809:
4810: IF (SQLCODE <> -20001) THEN
4811: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4812: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4813: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
4814: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
4815: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4808: WHEN OTHERS then
4809:
4810: IF (SQLCODE <> -20001) THEN
4811: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4812: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4813: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
4814: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
4815: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4816: 'Invoice_id = '|| to_char(p_invoice_id)
4809:
4810: IF (SQLCODE <> -20001) THEN
4811: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4812: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4813: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
4814: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
4815: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4816: 'Invoice_id = '|| to_char(p_invoice_id)
4817: ||', Vendor_id = '|| to_char(p_vendor_id)
4810: IF (SQLCODE <> -20001) THEN
4811: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4812: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4813: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
4814: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
4815: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4816: 'Invoice_id = '|| to_char(p_invoice_id)
4817: ||', Vendor_id = '|| to_char(p_vendor_id)
4818: ||', Vendor_site_id = '|| to_char(p_vendor_site_id)
4811: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4812: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4813: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
4814: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
4815: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4816: 'Invoice_id = '|| to_char(p_invoice_id)
4817: ||', Vendor_id = '|| to_char(p_vendor_id)
4818: ||', Vendor_site_id = '|| to_char(p_vendor_site_id)
4819: ||', Remit_to_supplier_site_id = '||to_char(p_remit_to_supplier_site_id));
4981:
4982: EXCEPTION
4983: WHEN OTHERS THEN
4984: IF (SQLCODE <> -20001) THEN
4985: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4986: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4987: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4988: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4989: 'Invoice_id = '|| to_char(p_invoice_id));
4982: EXCEPTION
4983: WHEN OTHERS THEN
4984: IF (SQLCODE <> -20001) THEN
4985: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4986: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4987: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4988: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4989: 'Invoice_id = '|| to_char(p_invoice_id));
4990: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4983: WHEN OTHERS THEN
4984: IF (SQLCODE <> -20001) THEN
4985: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4986: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4987: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4988: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4989: 'Invoice_id = '|| to_char(p_invoice_id));
4990: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4991: END IF;
4984: IF (SQLCODE <> -20001) THEN
4985: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4986: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4987: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4988: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4989: 'Invoice_id = '|| to_char(p_invoice_id));
4990: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4991: END IF;
4992: IF ( Line_Var_Cur%ISOPEN ) THEN
4986: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4987: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4988: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4989: 'Invoice_id = '|| to_char(p_invoice_id));
4990: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4991: END IF;
4992: IF ( Line_Var_Cur%ISOPEN ) THEN
4993: CLOSE Line_Var_Cur;
4994: END IF;
5178:
5179: EXCEPTION
5180: WHEN OTHERS THEN
5181: IF (SQLCODE <> -20001) THEN
5182: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5183: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5184: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5185: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5186: 'Invoice_id = '|| to_char(p_invoice_id));
5179: EXCEPTION
5180: WHEN OTHERS THEN
5181: IF (SQLCODE <> -20001) THEN
5182: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5183: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5184: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5185: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5186: 'Invoice_id = '|| to_char(p_invoice_id));
5187: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5180: WHEN OTHERS THEN
5181: IF (SQLCODE <> -20001) THEN
5182: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5183: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5184: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5185: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5186: 'Invoice_id = '|| to_char(p_invoice_id));
5187: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5188: END IF;
5181: IF (SQLCODE <> -20001) THEN
5182: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5183: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5184: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5185: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5186: 'Invoice_id = '|| to_char(p_invoice_id));
5187: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5188: END IF;
5189: APP_EXCEPTION.RAISE_EXCEPTION;
5183: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5184: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5185: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5186: 'Invoice_id = '|| to_char(p_invoice_id));
5187: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5188: END IF;
5189: APP_EXCEPTION.RAISE_EXCEPTION;
5190: END Line_Base_Amount_Calculation;
5191:
5344:
5345: EXCEPTION
5346: WHEN OTHERS THEN
5347: IF (SQLCODE <> -20001) THEN
5348: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5349: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5350: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5351: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5352: 'Invoice_id = '|| to_char(p_invoice_id));
5345: EXCEPTION
5346: WHEN OTHERS THEN
5347: IF (SQLCODE <> -20001) THEN
5348: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5349: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5350: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5351: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5352: 'Invoice_id = '|| to_char(p_invoice_id));
5353: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5346: WHEN OTHERS THEN
5347: IF (SQLCODE <> -20001) THEN
5348: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5349: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5350: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5351: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5352: 'Invoice_id = '|| to_char(p_invoice_id));
5353: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5354: END IF;
5347: IF (SQLCODE <> -20001) THEN
5348: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5349: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5350: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5351: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5352: 'Invoice_id = '|| to_char(p_invoice_id));
5353: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5354: END IF;
5355: APP_EXCEPTION.RAISE_EXCEPTION;
5349: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5350: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5351: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5352: 'Invoice_id = '|| to_char(p_invoice_id));
5353: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5354: END IF;
5355: APP_EXCEPTION.RAISE_EXCEPTION;
5356: END Dist_Base_Amount_Calculation;
5357:
5462:
5463: EXCEPTION
5464: WHEN OTHERS THEN
5465: IF (SQLCODE <> -20001) THEN
5466: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5467: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5468: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5469: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5470: 'Invoice_id = '|| to_char(p_invoice_id));
5463: EXCEPTION
5464: WHEN OTHERS THEN
5465: IF (SQLCODE <> -20001) THEN
5466: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5467: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5468: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5469: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5470: 'Invoice_id = '|| to_char(p_invoice_id));
5471: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5464: WHEN OTHERS THEN
5465: IF (SQLCODE <> -20001) THEN
5466: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5467: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5468: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5469: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5470: 'Invoice_id = '|| to_char(p_invoice_id));
5471: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5472: END IF;
5465: IF (SQLCODE <> -20001) THEN
5466: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5467: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5468: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5469: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5470: 'Invoice_id = '|| to_char(p_invoice_id));
5471: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5472: END IF;
5473: APP_EXCEPTION.RAISE_EXCEPTION;
5467: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5468: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5469: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5470: 'Invoice_id = '|| to_char(p_invoice_id));
5471: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5472: END IF;
5473: APP_EXCEPTION.RAISE_EXCEPTION;
5474: END Generate_Account_Event;
5475:
5595:
5596: EXCEPTION
5597: WHEN OTHERS THEN
5598: IF (SQLCODE <> -20001) THEN
5599: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5600: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5601: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5602: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5603: 'Invoice_id = '|| to_char(p_invoice_id));
5596: EXCEPTION
5597: WHEN OTHERS THEN
5598: IF (SQLCODE <> -20001) THEN
5599: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5600: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5601: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5602: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5603: 'Invoice_id = '|| to_char(p_invoice_id));
5604: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5597: WHEN OTHERS THEN
5598: IF (SQLCODE <> -20001) THEN
5599: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5600: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5601: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5602: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5603: 'Invoice_id = '|| to_char(p_invoice_id));
5604: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5605: END IF;
5598: IF (SQLCODE <> -20001) THEN
5599: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5600: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5601: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5602: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5603: 'Invoice_id = '|| to_char(p_invoice_id));
5604: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5605: END IF;
5606: APP_EXCEPTION.RAISE_EXCEPTION;
5600: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5601: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5602: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5603: 'Invoice_id = '|| to_char(p_invoice_id));
5604: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5605: END IF;
5606: APP_EXCEPTION.RAISE_EXCEPTION;
5607: END Check_Prepaid_Amount;
5608:
5729:
5730: EXCEPTION
5731: WHEN OTHERS THEN
5732: IF (SQLCODE <> -20001) THEN
5733: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5734: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5735: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5736: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5737: 'Invoice_id = '|| to_char(p_invoice_id)
5730: EXCEPTION
5731: WHEN OTHERS THEN
5732: IF (SQLCODE <> -20001) THEN
5733: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5734: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5735: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5736: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5737: 'Invoice_id = '|| to_char(p_invoice_id)
5738: ||', Base Currency Code = '|| p_base_currency_code
5731: WHEN OTHERS THEN
5732: IF (SQLCODE <> -20001) THEN
5733: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5734: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5735: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5736: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5737: 'Invoice_id = '|| to_char(p_invoice_id)
5738: ||', Base Currency Code = '|| p_base_currency_code
5739: ||', Invoice Currency Code = '|| p_invoice_currency_code
5732: IF (SQLCODE <> -20001) THEN
5733: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5734: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5735: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5736: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5737: 'Invoice_id = '|| to_char(p_invoice_id)
5738: ||', Base Currency Code = '|| p_base_currency_code
5739: ||', Invoice Currency Code = '|| p_invoice_currency_code
5740: ||', Invoice Amount = '|| to_char(p_invoice_amount)
5740: ||', Invoice Amount = '|| to_char(p_invoice_amount)
5741: ||', Base Amount = '|| to_char(p_base_amount)
5742: ||', Invoice Amount Limit = '|| to_char(p_invoice_amount_limit)
5743: ||', Hold Future Payments Flag = '|| p_hold_future_payments_flag);
5744: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5745: END IF;
5746: APP_EXCEPTION.RAISE_EXCEPTION;
5747: END Check_invoice_vendor;
5748:
5909: WHEN NO_DATA_FOUND THEN
5910: return(FALSE);
5911: WHEN OTHERS THEN
5912: IF (SQLCODE <> -20001) THEN
5913: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5914: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5915: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5916: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5917: 'Invoice_id = '|| to_char(p_invoice_id));
5910: return(FALSE);
5911: WHEN OTHERS THEN
5912: IF (SQLCODE <> -20001) THEN
5913: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5914: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5915: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5916: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5917: 'Invoice_id = '|| to_char(p_invoice_id));
5918: END IF;
5911: WHEN OTHERS THEN
5912: IF (SQLCODE <> -20001) THEN
5913: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5914: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5915: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5916: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5917: 'Invoice_id = '|| to_char(p_invoice_id));
5918: END IF;
5919: APP_EXCEPTION.RAISE_EXCEPTION;
5912: IF (SQLCODE <> -20001) THEN
5913: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5914: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5915: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5916: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5917: 'Invoice_id = '|| to_char(p_invoice_id));
5918: END IF;
5919: APP_EXCEPTION.RAISE_EXCEPTION;
5920: END Get_Inv_Matched_Status;
6188:
6189: EXCEPTION
6190: WHEN OTHERS THEN
6191: IF (SQLCODE <> -20001) THEN
6192: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6193: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6194: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6195: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6196: 'Invoice_id = '|| to_char(p_invoice_id)
6189: EXCEPTION
6190: WHEN OTHERS THEN
6191: IF (SQLCODE <> -20001) THEN
6192: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6193: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6194: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6195: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6196: 'Invoice_id = '|| to_char(p_invoice_id)
6197: ||', Dist_line_num = '|| p_gl_date_from_receipt
6190: WHEN OTHERS THEN
6191: IF (SQLCODE <> -20001) THEN
6192: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6193: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6194: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6195: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6196: 'Invoice_id = '|| to_char(p_invoice_id)
6197: ||', Dist_line_num = '|| p_gl_date_from_receipt
6198: ||', Packet_id = '|| p_last_updated_by
6191: IF (SQLCODE <> -20001) THEN
6192: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6193: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6194: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6195: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6196: 'Invoice_id = '|| to_char(p_invoice_id)
6197: ||', Dist_line_num = '|| p_gl_date_from_receipt
6198: ||', Packet_id = '|| p_last_updated_by
6199: ||', Fundscheck mode = '|| p_last_update_login
6199: ||', Fundscheck mode = '|| p_last_update_login
6200: ||', Dist_line_num = '|| to_char(p_program_application_id)
6201: ||', Dist_line_num = '|| to_char(p_program_id)
6202: ||', Dist_line_num = '|| to_char(p_request_id));
6203: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6204: END IF;
6205: APP_EXCEPTION.RAISE_EXCEPTION;
6206: END Withhold_Tax_On;
6207:
6356:
6357: EXCEPTION
6358: WHEN OTHERS THEN
6359: IF (SQLCODE <> -20001) THEN
6360: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6361: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6362: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6363: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6364: 'Invoice_id = '|| to_char(p_invoice_id)
6357: EXCEPTION
6358: WHEN OTHERS THEN
6359: IF (SQLCODE <> -20001) THEN
6360: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6361: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6362: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6363: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6364: 'Invoice_id = '|| to_char(p_invoice_id)
6365: || 'Run Option = ' || p_user_id);
6358: WHEN OTHERS THEN
6359: IF (SQLCODE <> -20001) THEN
6360: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6361: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6362: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6363: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6364: 'Invoice_id = '|| to_char(p_invoice_id)
6365: || 'Run Option = ' || p_user_id);
6366: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6359: IF (SQLCODE <> -20001) THEN
6360: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6361: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6362: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6363: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6364: 'Invoice_id = '|| to_char(p_invoice_id)
6365: || 'Run Option = ' || p_user_id);
6366: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6367: END IF;
6362: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6363: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6364: 'Invoice_id = '|| to_char(p_invoice_id)
6365: || 'Run Option = ' || p_user_id);
6366: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6367: END IF;
6368: APP_EXCEPTION.RAISE_EXCEPTION;
6369: END Update_Inv_Dists_To_Approved;
6370:
6559:
6560: EXCEPTION
6561: WHEN OTHERS THEN
6562: IF (SQLCODE <> -20001) THEN
6563: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6564: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6565: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6566: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6567: 'Invoice_id = '|| to_char(p_invoice_id)
6560: EXCEPTION
6561: WHEN OTHERS THEN
6562: IF (SQLCODE <> -20001) THEN
6563: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6564: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6565: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6566: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6567: 'Invoice_id = '|| to_char(p_invoice_id)
6568: ||', Line_Location_id = '|| to_char(p_line_location_id)
6561: WHEN OTHERS THEN
6562: IF (SQLCODE <> -20001) THEN
6563: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6564: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6565: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6566: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6567: 'Invoice_id = '|| to_char(p_invoice_id)
6568: ||', Line_Location_id = '|| to_char(p_line_location_id)
6569: ||', Hold_code = '|| p_hold_lookup_code
6562: IF (SQLCODE <> -20001) THEN
6563: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6564: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6565: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6566: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6567: 'Invoice_id = '|| to_char(p_invoice_id)
6568: ||', Line_Location_id = '|| to_char(p_line_location_id)
6569: ||', Hold_code = '|| p_hold_lookup_code
6570: ||', Hold_reason = '|| p_hold_reason
6568: ||', Line_Location_id = '|| to_char(p_line_location_id)
6569: ||', Hold_code = '|| p_hold_lookup_code
6570: ||', Hold_reason = '|| p_hold_reason
6571: ||', Should_have_hold = '|| p_should_have_hold);
6572: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6573: END IF;
6574: APP_EXCEPTION.RAISE_EXCEPTION;
6575: END Process_Inv_Hold_Status;
6576:
6670:
6671: EXCEPTION
6672: WHEN OTHERS THEN
6673: IF (SQLCODE <> -20001) THEN
6674: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6675: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6676: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6677: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6678: 'Invoice_id = '|| to_char(p_invoice_id)
6671: EXCEPTION
6672: WHEN OTHERS THEN
6673: IF (SQLCODE <> -20001) THEN
6674: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6675: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6676: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6677: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6678: 'Invoice_id = '|| to_char(p_invoice_id)
6679: ||', Line Location Id = '|| to_char(p_line_location_id)
6672: WHEN OTHERS THEN
6673: IF (SQLCODE <> -20001) THEN
6674: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6675: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6676: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6677: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6678: 'Invoice_id = '|| to_char(p_invoice_id)
6679: ||', Line Location Id = '|| to_char(p_line_location_id)
6680: ||', System_User_id = '|| to_char(p_system_user)
6673: IF (SQLCODE <> -20001) THEN
6674: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6675: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6676: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6677: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6678: 'Invoice_id = '|| to_char(p_invoice_id)
6679: ||', Line Location Id = '|| to_char(p_line_location_id)
6680: ||', System_User_id = '|| to_char(p_system_user)
6681: ||', Hold Code = '|| p_hold_lookup_code);
6825:
6826: EXCEPTION
6827: WHEN OTHERS THEN
6828: IF (SQLCODE <> -20001) THEN
6829: FND_MESSAGE.SET_NAME ('SQLAP','AP_DEBUG');
6830: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6831: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
6832: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6833: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '|| P_INVOICE_ID);
6826: EXCEPTION
6827: WHEN OTHERS THEN
6828: IF (SQLCODE <> -20001) THEN
6829: FND_MESSAGE.SET_NAME ('SQLAP','AP_DEBUG');
6830: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6831: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
6832: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6833: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '|| P_INVOICE_ID);
6834: END IF;
6827: WHEN OTHERS THEN
6828: IF (SQLCODE <> -20001) THEN
6829: FND_MESSAGE.SET_NAME ('SQLAP','AP_DEBUG');
6830: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6831: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
6832: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6833: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '|| P_INVOICE_ID);
6834: END IF;
6835: APP_EXCEPTION.RAISE_EXCEPTION;
6828: IF (SQLCODE <> -20001) THEN
6829: FND_MESSAGE.SET_NAME ('SQLAP','AP_DEBUG');
6830: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6831: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
6832: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6833: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '|| P_INVOICE_ID);
6834: END IF;
6835: APP_EXCEPTION.RAISE_EXCEPTION;
6836: END UPDATE_SCHEDULES;
6829: FND_MESSAGE.SET_NAME ('SQLAP','AP_DEBUG');
6830: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6831: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
6832: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6833: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '|| P_INVOICE_ID);
6834: END IF;
6835: APP_EXCEPTION.RAISE_EXCEPTION;
6836: END UPDATE_SCHEDULES;
6837:
7010:
7011: EXCEPTION
7012: WHEN OTHERS THEN
7013: IF (SQLCODE <> -20001) THEN
7014: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7015: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7016: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7017: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7018: 'Invoice_id = '|| to_char(p_invoice_id)
7011: EXCEPTION
7012: WHEN OTHERS THEN
7013: IF (SQLCODE <> -20001) THEN
7014: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7015: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7016: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7017: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7018: 'Invoice_id = '|| to_char(p_invoice_id)
7019: ||', Hold_Code = '|| p_hold_lookup_code
7012: WHEN OTHERS THEN
7013: IF (SQLCODE <> -20001) THEN
7014: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7015: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7016: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7017: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7018: 'Invoice_id = '|| to_char(p_invoice_id)
7019: ||', Hold_Code = '|| p_hold_lookup_code
7020: ||', Line Location Id = '|| (p_line_location_id));
7013: IF (SQLCODE <> -20001) THEN
7014: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7015: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7016: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7017: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7018: 'Invoice_id = '|| to_char(p_invoice_id)
7019: ||', Hold_Code = '|| p_hold_lookup_code
7020: ||', Line Location Id = '|| (p_line_location_id));
7021: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7017: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7018: 'Invoice_id = '|| to_char(p_invoice_id)
7019: ||', Hold_Code = '|| p_hold_lookup_code
7020: ||', Line Location Id = '|| (p_line_location_id));
7021: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7022: END IF;
7023: APP_EXCEPTION.RAISE_EXCEPTION;
7024: END Release_Hold;
7025:
7226:
7227: EXCEPTION
7228: WHEN OTHERS THEN
7229: IF (SQLCODE <> -20001) THEN
7230: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7231: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7232: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7233: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7234: 'Invoice_id = '|| to_char(p_invoice_id)
7227: EXCEPTION
7228: WHEN OTHERS THEN
7229: IF (SQLCODE <> -20001) THEN
7230: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7231: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7232: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7233: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7234: 'Invoice_id = '|| to_char(p_invoice_id)
7235: ||', Hold_Code = '|| p_hold_lookup_code
7228: WHEN OTHERS THEN
7229: IF (SQLCODE <> -20001) THEN
7230: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7231: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7232: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7233: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7234: 'Invoice_id = '|| to_char(p_invoice_id)
7235: ||', Hold_Code = '|| p_hold_lookup_code
7236: ||', Hold_Reason = '|| p_hold_reason);
7229: IF (SQLCODE <> -20001) THEN
7230: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7231: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7232: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7233: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7234: 'Invoice_id = '|| to_char(p_invoice_id)
7235: ||', Hold_Code = '|| p_hold_lookup_code
7236: ||', Hold_Reason = '|| p_hold_reason);
7237: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7233: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7234: 'Invoice_id = '|| to_char(p_invoice_id)
7235: ||', Hold_Code = '|| p_hold_lookup_code
7236: ||', Hold_Reason = '|| p_hold_reason);
7237: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7238: END IF;
7239: APP_EXCEPTION.RAISE_EXCEPTION;
7240: END Set_Hold;
7241:
7290:
7291: EXCEPTION
7292: WHEN OTHERS THEN
7293: IF (SQLCODE <> -20001) THEN
7294: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7295: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7296: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7297: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7298: 'Hold Code = '|| p_hold_lookup_code);
7291: EXCEPTION
7292: WHEN OTHERS THEN
7293: IF (SQLCODE <> -20001) THEN
7294: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7295: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7296: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7297: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7298: 'Hold Code = '|| p_hold_lookup_code);
7299: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7292: WHEN OTHERS THEN
7293: IF (SQLCODE <> -20001) THEN
7294: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7295: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7296: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7297: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7298: 'Hold Code = '|| p_hold_lookup_code);
7299: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7300: END IF;
7293: IF (SQLCODE <> -20001) THEN
7294: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7295: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7296: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7297: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7298: 'Hold Code = '|| p_hold_lookup_code);
7299: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7300: END IF;
7301: APP_EXCEPTION.RAISE_EXCEPTION;
7295: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7296: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7297: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7298: 'Hold Code = '|| p_hold_lookup_code);
7299: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7300: END IF;
7301: APP_EXCEPTION.RAISE_EXCEPTION;
7302: END Count_Hold;
7303:
7474: END IF;
7475:
7476: EXCEPTION
7477: WHEN Invalid_Hold THEN
7478: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7479: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7480: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7481: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7482: 'Hold Code = '|| p_hold_lookup_code
7475:
7476: EXCEPTION
7477: WHEN Invalid_Hold THEN
7478: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7479: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7480: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7481: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7482: 'Hold Code = '|| p_hold_lookup_code
7483: ||', Release Code = '|| p_release_lookup_code);
7476: EXCEPTION
7477: WHEN Invalid_Hold THEN
7478: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7479: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7480: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7481: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7482: 'Hold Code = '|| p_hold_lookup_code
7483: ||', Release Code = '|| p_release_lookup_code);
7484: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7477: WHEN Invalid_Hold THEN
7478: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7479: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7480: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7481: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7482: 'Hold Code = '|| p_hold_lookup_code
7483: ||', Release Code = '|| p_release_lookup_code);
7484: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7485: APP_EXCEPTION.RAISE_EXCEPTION;
7480: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7481: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7482: 'Hold Code = '|| p_hold_lookup_code
7483: ||', Release Code = '|| p_release_lookup_code);
7484: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7485: APP_EXCEPTION.RAISE_EXCEPTION;
7486: WHEN OTHERS THEN
7487: IF (SQLCODE <> -20001) THEN
7488: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7484: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7485: APP_EXCEPTION.RAISE_EXCEPTION;
7486: WHEN OTHERS THEN
7487: IF (SQLCODE <> -20001) THEN
7488: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7489: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7490: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7491: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7492: 'Hold Code = '|| p_hold_lookup_code
7485: APP_EXCEPTION.RAISE_EXCEPTION;
7486: WHEN OTHERS THEN
7487: IF (SQLCODE <> -20001) THEN
7488: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7489: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7490: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7491: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7492: 'Hold Code = '|| p_hold_lookup_code
7493: ||', Release Code = '|| p_release_lookup_code);
7486: WHEN OTHERS THEN
7487: IF (SQLCODE <> -20001) THEN
7488: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7489: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7490: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7491: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7492: 'Hold Code = '|| p_hold_lookup_code
7493: ||', Release Code = '|| p_release_lookup_code);
7494: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7487: IF (SQLCODE <> -20001) THEN
7488: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7489: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7490: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7491: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7492: 'Hold Code = '|| p_hold_lookup_code
7493: ||', Release Code = '|| p_release_lookup_code);
7494: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7495: END IF;
7490: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7491: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7492: 'Hold Code = '|| p_hold_lookup_code
7493: ||', Release Code = '|| p_release_lookup_code);
7494: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7495: END IF;
7496: APP_EXCEPTION.RAISE_EXCEPTION;
7497: END Get_Release_Lookup_For_Hold;
7498:
7563:
7564: EXCEPTION
7565: WHEN OTHERS THEN
7566: IF (SQLCODE <> -20001) THEN
7567: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7568: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7569: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7570: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7571: 'Hold Code = '|| to_char(p_invoice_id));
7564: EXCEPTION
7565: WHEN OTHERS THEN
7566: IF (SQLCODE <> -20001) THEN
7567: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7568: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7569: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7570: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7571: 'Hold Code = '|| to_char(p_invoice_id));
7572: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7565: WHEN OTHERS THEN
7566: IF (SQLCODE <> -20001) THEN
7567: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7568: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7569: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7570: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7571: 'Hold Code = '|| to_char(p_invoice_id));
7572: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7573: END IF;
7566: IF (SQLCODE <> -20001) THEN
7567: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7568: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7569: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7570: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7571: 'Hold Code = '|| to_char(p_invoice_id));
7572: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7573: END IF;
7574: APP_EXCEPTION.RAISE_EXCEPTION;
7568: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7569: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
7570: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7571: 'Hold Code = '|| to_char(p_invoice_id));
7572: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
7573: END IF;
7574: APP_EXCEPTION.RAISE_EXCEPTION;
7575: END Get_Invoice_Statuses;
7576:
8126:
8127: EXCEPTION
8128: WHEN OTHERS THEN
8129: IF (SQLCODE <> -20001) THEN
8130: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8131: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8133: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8134: ', Invoice Id = '|| to_char(p_invoice_id)
8127: EXCEPTION
8128: WHEN OTHERS THEN
8129: IF (SQLCODE <> -20001) THEN
8130: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8131: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8133: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8134: ', Invoice Id = '|| to_char(p_invoice_id)
8135: ||', Exclude Tax from Discount = '|| p_exclude_tax_from_discount
8128: WHEN OTHERS THEN
8129: IF (SQLCODE <> -20001) THEN
8130: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8131: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8133: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8134: ', Invoice Id = '|| to_char(p_invoice_id)
8135: ||', Exclude Tax from Discount = '|| p_exclude_tax_from_discount
8136: ||', Invoice Type = '|| p_invoice_type_lookup_code );
8129: IF (SQLCODE <> -20001) THEN
8130: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8131: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8133: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8134: ', Invoice Id = '|| to_char(p_invoice_id)
8135: ||', Exclude Tax from Discount = '|| p_exclude_tax_from_discount
8136: ||', Invoice Type = '|| p_invoice_type_lookup_code );
8137: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8133: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8134: ', Invoice Id = '|| to_char(p_invoice_id)
8135: ||', Exclude Tax from Discount = '|| p_exclude_tax_from_discount
8136: ||', Invoice Type = '|| p_invoice_type_lookup_code );
8137: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8138: END IF;
8139: APP_EXCEPTION.RAISE_EXCEPTION;
8140:
8141: END Exclude_Tax_Freight_From_Disc;
8312:
8313: EXCEPTION
8314: WHEN OTHERS then
8315: if (SQLCODE <> -20001 ) then
8316: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8317: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8318: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8319:
8320: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
8313: EXCEPTION
8314: WHEN OTHERS then
8315: if (SQLCODE <> -20001 ) then
8316: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8317: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8318: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8319:
8320: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
8321: ||' Apply_amount = '||TO_CHAR(p_apply_amount)
8314: WHEN OTHERS then
8315: if (SQLCODE <> -20001 ) then
8316: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8317: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8318: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8319:
8320: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
8321: ||' Apply_amount = '||TO_CHAR(p_apply_amount)
8322: ||' Amount_positive = '||p_amount_positive
8316: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8317: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8318: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8319:
8320: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
8321: ||' Apply_amount = '||TO_CHAR(p_apply_amount)
8322: ||' Amount_positive = '||p_amount_positive
8323: ||' Apply_amount_remaining = '||
8324: TO_CHAR(l_apply_amount_remaining)
8327: ||' User_id = '||TO_CHAR(p_user_id)
8328: ||' Last_update_login = '||TO_CHAR(p_last_update_login)
8329: ||' Payment_Currency_code = '||p_payment_currency_code);
8330:
8331: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8332:
8333: end if;
8334:
8335: APP_EXCEPTION.RAISE_EXCEPTION;
8440:
8441: EXCEPTION
8442: when OTHERS then
8443: IF (SQLCODE <> -20001) THEN
8444: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8445: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8446: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
8447: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8448: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
8441: EXCEPTION
8442: when OTHERS then
8443: IF (SQLCODE <> -20001) THEN
8444: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8445: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8446: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
8447: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8448: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
8449: ', Calling module = ' || 'Manual_withhold_tax' );
8442: when OTHERS then
8443: IF (SQLCODE <> -20001) THEN
8444: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8445: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8446: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
8447: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8448: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
8449: ', Calling module = ' || 'Manual_withhold_tax' );
8450: END IF;
8443: IF (SQLCODE <> -20001) THEN
8444: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8445: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8446: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
8447: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8448: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
8449: ', Calling module = ' || 'Manual_withhold_tax' );
8450: END IF;
8451: APP_EXCEPTION.RAISE_EXCEPTION;
8551:
8552: EXCEPTION
8553: when OTHERS then
8554: IF (SQLCODE <> -20001) THEN
8555: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8556: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8557: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
8558: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8559: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
8552: EXCEPTION
8553: when OTHERS then
8554: IF (SQLCODE <> -20001) THEN
8555: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8556: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8557: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
8558: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8559: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
8560: ', Calling module = ' || 'Update_Pay_Sched_For_Awt' );
8553: when OTHERS then
8554: IF (SQLCODE <> -20001) THEN
8555: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8556: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8557: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
8558: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8559: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
8560: ', Calling module = ' || 'Update_Pay_Sched_For_Awt' );
8561: END IF;
8554: IF (SQLCODE <> -20001) THEN
8555: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8556: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8557: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
8558: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8559: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
8560: ', Calling module = ' || 'Update_Pay_Sched_For_Awt' );
8561: END IF;
8562: APP_EXCEPTION.RAISE_EXCEPTION;
8692:
8693: EXCEPTION
8694: when OTHERS then
8695: IF (SQLCODE <> -20001) THEN
8696: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8697: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8698: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
8699: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8700: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
8693: EXCEPTION
8694: when OTHERS then
8695: IF (SQLCODE <> -20001) THEN
8696: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8697: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8698: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
8699: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8700: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
8701: ', Calling module = ' || 'createPaymentSchedules' );
8694: when OTHERS then
8695: IF (SQLCODE <> -20001) THEN
8696: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8697: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8698: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
8699: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8700: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
8701: ', Calling module = ' || 'createPaymentSchedules' );
8702: END IF;
8695: IF (SQLCODE <> -20001) THEN
8696: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8697: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8698: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
8699: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8700: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
8701: ', Calling module = ' || 'createPaymentSchedules' );
8702: END IF;
8703: APP_EXCEPTION.RAISE_EXCEPTION;
8737:
8738: EXCEPTION
8739: WHEN OTHERS then
8740: IF (SQLCODE <> -20001) THEN
8741: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8742: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8743: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
8744: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8745: ' Application Id = ' || to_char(P_Application_Id) );
8738: EXCEPTION
8739: WHEN OTHERS then
8740: IF (SQLCODE <> -20001) THEN
8741: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8742: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8743: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
8744: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8745: ' Application Id = ' || to_char(P_Application_Id) );
8746: END IF;
8739: WHEN OTHERS then
8740: IF (SQLCODE <> -20001) THEN
8741: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8742: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8743: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
8744: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8745: ' Application Id = ' || to_char(P_Application_Id) );
8746: END IF;
8747: APP_EXCEPTION.RAISE_EXCEPTION;
8740: IF (SQLCODE <> -20001) THEN
8741: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8742: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8743: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
8744: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8745: ' Application Id = ' || to_char(P_Application_Id) );
8746: END IF;
8747: APP_EXCEPTION.RAISE_EXCEPTION;
8748:
9135: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9136: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9137: END IF;
9138:
9139: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
9140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
9141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
9142: FND_MESSAGE.SET_TOKEN('PARAMETERS',
9143: ' Invoice Id = ' || to_char(P_invoice_line_rec.Invoice_Id) ||
9136: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9137: END IF;
9138:
9139: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
9140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
9141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
9142: FND_MESSAGE.SET_TOKEN('PARAMETERS',
9143: ' Invoice Id = ' || to_char(P_invoice_line_rec.Invoice_Id) ||
9144: ', Invoice Line Number = '||to_char(p_invoice_line_rec.Line_Number) ||
9137: END IF;
9138:
9139: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
9140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
9141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
9142: FND_MESSAGE.SET_TOKEN('PARAMETERS',
9143: ' Invoice Id = ' || to_char(P_invoice_line_rec.Invoice_Id) ||
9144: ', Invoice Line Number = '||to_char(p_invoice_line_rec.Line_Number) ||
9145: ', Registration Api = '||P_Registration_Api ||
9138:
9139: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
9140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
9141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
9142: FND_MESSAGE.SET_TOKEN('PARAMETERS',
9143: ' Invoice Id = ' || to_char(P_invoice_line_rec.Invoice_Id) ||
9144: ', Invoice Line Number = '||to_char(p_invoice_line_rec.Line_Number) ||
9145: ', Registration Api = '||P_Registration_Api ||
9146: ', Registration View = '||P_Registration_View);
9694: p_debug_switch
9695: );
9696: /*commented for bug 6858309
9697: ELSE
9698: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
9699: fnd_message.set_token('INV_NUM', l_invoice_num);
9700: fnd_file.put_line(fnd_file.log, fnd_message.get);
9701: END IF; */
9702:
9695: );
9696: /*commented for bug 6858309
9697: ELSE
9698: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
9699: fnd_message.set_token('INV_NUM', l_invoice_num);
9700: fnd_file.put_line(fnd_file.log, fnd_message.get);
9701: END IF; */
9702:
9703: UPDATE ap_invoices_all
9696: /*commented for bug 6858309
9697: ELSE
9698: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
9699: fnd_message.set_token('INV_NUM', l_invoice_num);
9700: fnd_file.put_line(fnd_file.log, fnd_message.get);
9701: END IF; */
9702:
9703: UPDATE ap_invoices_all
9704: SET validation_request_id = NULL
9706:
9707: END IF;
9708:
9709: ELSE /*bug6858309- changed location of the call*/
9710: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
9711: fnd_message.set_token('INV_NUM', l_invoice_num);
9712: fnd_file.put_line(fnd_file.log, fnd_message.get);
9713:
9714: END IF; --if validate_period(p_invoice_id)
9707: END IF;
9708:
9709: ELSE /*bug6858309- changed location of the call*/
9710: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
9711: fnd_message.set_token('INV_NUM', l_invoice_num);
9712: fnd_file.put_line(fnd_file.log, fnd_message.get);
9713:
9714: END IF; --if validate_period(p_invoice_id)
9715:
9708:
9709: ELSE /*bug6858309- changed location of the call*/
9710: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
9711: fnd_message.set_token('INV_NUM', l_invoice_num);
9712: fnd_file.put_line(fnd_file.log, fnd_message.get);
9713:
9714: END IF; --if validate_period(p_invoice_id)
9715:
9716: ELSE /*Bug 9304530 - Exclude already validated invoices*/
9713:
9714: END IF; --if validate_period(p_invoice_id)
9715:
9716: ELSE /*Bug 9304530 - Exclude already validated invoices*/
9717: fnd_message.set_name('SQLAP', 'AP_APPRVL_INV_NOT_FOUND');
9718: fnd_file.put_line(fnd_file.log, fnd_message.get);
9719: -----------------------------------------------------------------
9720: -- Print_Debug(l_api_name, 'Invoice is already approved/cancelled');
9721: IF g_debug_mode = 'Y' THEN
9714: END IF; --if validate_period(p_invoice_id)
9715:
9716: ELSE /*Bug 9304530 - Exclude already validated invoices*/
9717: fnd_message.set_name('SQLAP', 'AP_APPRVL_INV_NOT_FOUND');
9718: fnd_file.put_line(fnd_file.log, fnd_message.get);
9719: -----------------------------------------------------------------
9720: -- Print_Debug(l_api_name, 'Invoice is already approved/cancelled');
9721: IF g_debug_mode = 'Y' THEN
9722: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice is already approved/cancelled' );
10370: 'APXAPRVL',
10371: p_debug_switch
10372: );
10373: ELSE
10374: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
10375: --Bug9436217
10376: fnd_message.set_token('INV_NUM', l_selected_invoices_cursor(i).invoice_num);
10377: --Bug9436217
10378: fnd_file.put_line(fnd_file.log, fnd_message.get);
10372: );
10373: ELSE
10374: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
10375: --Bug9436217
10376: fnd_message.set_token('INV_NUM', l_selected_invoices_cursor(i).invoice_num);
10377: --Bug9436217
10378: fnd_file.put_line(fnd_file.log, fnd_message.get);
10379: END IF;
10380: --Bug9436217
10374: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
10375: --Bug9436217
10376: fnd_message.set_token('INV_NUM', l_selected_invoices_cursor(i).invoice_num);
10377: --Bug9436217
10378: fnd_file.put_line(fnd_file.log, fnd_message.get);
10379: END IF;
10380: --Bug9436217
10381: --END IF;
10382: --Bug9436217
10798: 'APXAPRVL',
10799: p_debug_switch
10800: );
10801: ELSE
10802: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
10803: --Bug9436217
10804: fnd_message.set_token('INV_NUM', l_selected_invoices_cursor(i).invoice_num);
10805: --Bug9436217
10806: fnd_file.put_line(fnd_file.log, fnd_message.get);
10800: );
10801: ELSE
10802: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
10803: --Bug9436217
10804: fnd_message.set_token('INV_NUM', l_selected_invoices_cursor(i).invoice_num);
10805: --Bug9436217
10806: fnd_file.put_line(fnd_file.log, fnd_message.get);
10807: END IF;
10808: --Bug9436217
10802: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
10803: --Bug9436217
10804: fnd_message.set_token('INV_NUM', l_selected_invoices_cursor(i).invoice_num);
10805: --Bug9436217
10806: fnd_file.put_line(fnd_file.log, fnd_message.get);
10807: END IF;
10808: --Bug9436217
10809: --END IF;
10810: --Bug9436217
11038: p_debug_switch
11039: );
11040:
11041: ELSE
11042: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
11043: fnd_message.set_token('INV_NUM', AP_APPROVAL_PKG.G_SELECTED_INVOICES(i).invoice_num);
11044: fnd_file.put_line(fnd_file.log, fnd_message.get);
11045: END IF;
11046:
11039: );
11040:
11041: ELSE
11042: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
11043: fnd_message.set_token('INV_NUM', AP_APPROVAL_PKG.G_SELECTED_INVOICES(i).invoice_num);
11044: fnd_file.put_line(fnd_file.log, fnd_message.get);
11045: END IF;
11046:
11047: END LOOP;
11040:
11041: ELSE
11042: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
11043: fnd_message.set_token('INV_NUM', AP_APPROVAL_PKG.G_SELECTED_INVOICES(i).invoice_num);
11044: fnd_file.put_line(fnd_file.log, fnd_message.get);
11045: END IF;
11046:
11047: END LOOP;
11048:
11150: END IF;
11151:
11152: --Bug7246971
11153:
11154: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
11155: IF l_error_code IS NOT NULL THEN
11156: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
11157: ELSE
11158: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
11152: --Bug7246971
11153:
11154: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
11155: IF l_error_code IS NOT NULL THEN
11156: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
11157: ELSE
11158: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
11159: END IF;
11160: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11154: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
11155: IF l_error_code IS NOT NULL THEN
11156: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
11157: ELSE
11158: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
11159: END IF;
11160: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11161: FND_MESSAGE.SET_TOKEN('PARAMETERS',
11162: 'Run Option = '|| p_run_option
11156: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
11157: ELSE
11158: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
11159: END IF;
11160: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11161: FND_MESSAGE.SET_TOKEN('PARAMETERS',
11162: 'Run Option = '|| p_run_option
11163: ||', Batch Id = '|| to_char(p_inv_batch_id)
11164: ||', Begin Date = '|| to_char(p_inv_start_date)
11157: ELSE
11158: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
11159: END IF;
11160: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11161: FND_MESSAGE.SET_TOKEN('PARAMETERS',
11162: 'Run Option = '|| p_run_option
11163: ||', Batch Id = '|| to_char(p_inv_batch_id)
11164: ||', Begin Date = '|| to_char(p_inv_start_date)
11165: ||', End Date = '|| to_char(p_inv_end_date)
11190:
11191: --Bug7246971
11192:
11193: IF (SQLCODE <> -20001) THEN
11194: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11195: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11196: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11197: FND_MESSAGE.SET_TOKEN('PARAMETERS',
11198: 'Run Option = '|| p_run_option
11191: --Bug7246971
11192:
11193: IF (SQLCODE <> -20001) THEN
11194: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11195: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11196: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11197: FND_MESSAGE.SET_TOKEN('PARAMETERS',
11198: 'Run Option = '|| p_run_option
11199: ||', Batch Id = '|| to_char(p_inv_batch_id)
11192:
11193: IF (SQLCODE <> -20001) THEN
11194: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11195: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11196: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11197: FND_MESSAGE.SET_TOKEN('PARAMETERS',
11198: 'Run Option = '|| p_run_option
11199: ||', Batch Id = '|| to_char(p_inv_batch_id)
11200: ||', Begin Date = '|| to_char(p_inv_start_date)
11193: IF (SQLCODE <> -20001) THEN
11194: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11195: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11196: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11197: FND_MESSAGE.SET_TOKEN('PARAMETERS',
11198: 'Run Option = '|| p_run_option
11199: ||', Batch Id = '|| to_char(p_inv_batch_id)
11200: ||', Begin Date = '|| to_char(p_inv_start_date)
11201: ||', End Date = '|| to_char(p_inv_end_date)
11325:
11326: EXCEPTION
11327: WHEN OTHERS THEN
11328: IF (SQLCODE <> -20001) THEN
11329: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11330: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11331: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11332: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
11333: END IF;
11326: EXCEPTION
11327: WHEN OTHERS THEN
11328: IF (SQLCODE <> -20001) THEN
11329: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11330: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11331: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11332: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
11333: END IF;
11334:
11327: WHEN OTHERS THEN
11328: IF (SQLCODE <> -20001) THEN
11329: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11330: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11331: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11332: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
11333: END IF;
11334:
11335: IF C_Options_Query%ISOPEN THEN
11328: IF (SQLCODE <> -20001) THEN
11329: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11330: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11331: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11332: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
11333: END IF;
11334:
11335: IF C_Options_Query%ISOPEN THEN
11336: CLOSE C_Options_Query;
11418:
11419: EXCEPTION
11420: WHEN OTHERS THEN
11421: IF (SQLCODE <> -20001) THEN
11422: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11425: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
11426: END IF;
11419: EXCEPTION
11420: WHEN OTHERS THEN
11421: IF (SQLCODE <> -20001) THEN
11422: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11425: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
11426: END IF;
11427: APP_EXCEPTION.RAISE_EXCEPTION;
11420: WHEN OTHERS THEN
11421: IF (SQLCODE <> -20001) THEN
11422: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11425: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
11426: END IF;
11427: APP_EXCEPTION.RAISE_EXCEPTION;
11428: END Cache_Tolerance_Templates;
11421: IF (SQLCODE <> -20001) THEN
11422: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11425: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
11426: END IF;
11427: APP_EXCEPTION.RAISE_EXCEPTION;
11428: END Cache_Tolerance_Templates;
11429:
11945:
11946: EXCEPTION
11947: WHEN OTHERS THEN
11948: IF (SQLCODE <> -20001) THEN
11949: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11950: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11951: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11952: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
11953: END IF;
11946: EXCEPTION
11947: WHEN OTHERS THEN
11948: IF (SQLCODE <> -20001) THEN
11949: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11950: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11951: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11952: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
11953: END IF;
11954: APP_EXCEPTION.RAISE_EXCEPTION;
11947: WHEN OTHERS THEN
11948: IF (SQLCODE <> -20001) THEN
11949: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11950: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11951: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11952: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
11953: END IF;
11954: APP_EXCEPTION.RAISE_EXCEPTION;
11955: END Generate_Distributions;
11948: IF (SQLCODE <> -20001) THEN
11949: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
11950: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
11951: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
11952: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
11953: END IF;
11954: APP_EXCEPTION.RAISE_EXCEPTION;
11955: END Generate_Distributions;
11956:
11997:
11998: EXCEPTION
11999: WHEN OTHERS then
12000: if (SQLCODE <> -20001 ) then
12001: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12002: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12003: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
12004: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id));
12005: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
11998: EXCEPTION
11999: WHEN OTHERS then
12000: if (SQLCODE <> -20001 ) then
12001: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12002: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12003: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
12004: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id));
12005: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
12006: end if;
11999: WHEN OTHERS then
12000: if (SQLCODE <> -20001 ) then
12001: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12002: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12003: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
12004: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id));
12005: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
12006: end if;
12007:
12000: if (SQLCODE <> -20001 ) then
12001: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12002: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12003: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
12004: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id));
12005: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
12006: end if;
12007:
12008: APP_EXCEPTION.RAISE_EXCEPTION;
12001: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12002: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12003: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
12004: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id));
12005: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
12006: end if;
12007:
12008: APP_EXCEPTION.RAISE_EXCEPTION;
12009:
12077:
12078: EXCEPTION
12079: WHEN OTHERS then
12080: if (SQLCODE <> -20001 ) then
12081: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12082: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12083: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
12084: FND_MESSAGE.SET_TOKEN('PARAMETERS','Org_Id = '||to_char(p_org_id)
12085: ||' Hold = '||p_hold_lookup_code
12078: EXCEPTION
12079: WHEN OTHERS then
12080: if (SQLCODE <> -20001 ) then
12081: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12082: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12083: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
12084: FND_MESSAGE.SET_TOKEN('PARAMETERS','Org_Id = '||to_char(p_org_id)
12085: ||' Hold = '||p_hold_lookup_code
12086: ||' Action = '||p_place_or_release);
12079: WHEN OTHERS then
12080: if (SQLCODE <> -20001 ) then
12081: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12082: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12083: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
12084: FND_MESSAGE.SET_TOKEN('PARAMETERS','Org_Id = '||to_char(p_org_id)
12085: ||' Hold = '||p_hold_lookup_code
12086: ||' Action = '||p_place_or_release);
12087: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
12080: if (SQLCODE <> -20001 ) then
12081: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12082: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12083: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
12084: FND_MESSAGE.SET_TOKEN('PARAMETERS','Org_Id = '||to_char(p_org_id)
12085: ||' Hold = '||p_hold_lookup_code
12086: ||' Action = '||p_place_or_release);
12087: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
12088: end if;
12083: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
12084: FND_MESSAGE.SET_TOKEN('PARAMETERS','Org_Id = '||to_char(p_org_id)
12085: ||' Hold = '||p_hold_lookup_code
12086: ||' Action = '||p_place_or_release);
12087: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
12088: end if;
12089:
12090: APP_EXCEPTION.RAISE_EXCEPTION;
12091: End Count_Org_Hold;
12466:
12467: EXCEPTION
12468: WHEN OTHERS THEN
12469: IF (SQLCODE <> -20001) THEN
12470: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12471: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12472: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
12473: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
12474: END IF;
12467: EXCEPTION
12468: WHEN OTHERS THEN
12469: IF (SQLCODE <> -20001) THEN
12470: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12471: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12472: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
12473: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
12474: END IF;
12475: APP_EXCEPTION.RAISE_EXCEPTION;
12468: WHEN OTHERS THEN
12469: IF (SQLCODE <> -20001) THEN
12470: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12471: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12472: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
12473: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
12474: END IF;
12475: APP_EXCEPTION.RAISE_EXCEPTION;
12476: END Generate_Manual_Awt_Dist;
12469: IF (SQLCODE <> -20001) THEN
12470: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12471: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12472: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
12473: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
12474: END IF;
12475: APP_EXCEPTION.RAISE_EXCEPTION;
12476: END Generate_Manual_Awt_Dist;
12477:
12556:
12557: WHEN OTHERS then
12558:
12559: IF (SQLCODE <> -20001) THEN
12560: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12561: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12562: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
12563: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12564: FND_MESSAGE.SET_TOKEN('PARAMETERS','Vendor Id = '|| p_vendor_id);
12557: WHEN OTHERS then
12558:
12559: IF (SQLCODE <> -20001) THEN
12560: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12561: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12562: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
12563: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12564: FND_MESSAGE.SET_TOKEN('PARAMETERS','Vendor Id = '|| p_vendor_id);
12565: END IF;
12558:
12559: IF (SQLCODE <> -20001) THEN
12560: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12561: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12562: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
12563: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12564: FND_MESSAGE.SET_TOKEN('PARAMETERS','Vendor Id = '|| p_vendor_id);
12565: END IF;
12566: APP_EXCEPTION.RAISE_EXCEPTION;
12559: IF (SQLCODE <> -20001) THEN
12560: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12561: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12562: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
12563: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12564: FND_MESSAGE.SET_TOKEN('PARAMETERS','Vendor Id = '|| p_vendor_id);
12565: END IF;
12566: APP_EXCEPTION.RAISE_EXCEPTION;
12567:
12560: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12561: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12562: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
12563: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12564: FND_MESSAGE.SET_TOKEN('PARAMETERS','Vendor Id = '|| p_vendor_id);
12565: END IF;
12566: APP_EXCEPTION.RAISE_EXCEPTION;
12567:
12568: End BATCH_APPROVAL_FOR_VENDOR;
12660:
12661: EXCEPTION
12662: WHEN OTHERS then
12663: IF (SQLCODE <> -20001) THEN
12664: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12665: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12666: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
12667: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12668: END IF;
12661: EXCEPTION
12662: WHEN OTHERS then
12663: IF (SQLCODE <> -20001) THEN
12664: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12665: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12666: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
12667: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12668: END IF;
12669: APP_EXCEPTION.RAISE_EXCEPTION;
12662: WHEN OTHERS then
12663: IF (SQLCODE <> -20001) THEN
12664: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12665: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12666: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
12667: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12668: END IF;
12669: APP_EXCEPTION.RAISE_EXCEPTION;
12670: END;
12663: IF (SQLCODE <> -20001) THEN
12664: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12665: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12666: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
12667: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12668: END IF;
12669: APP_EXCEPTION.RAISE_EXCEPTION;
12670: END;
12671:
12845:
12846: EXCEPTION
12847: WHEN OTHERS then
12848: IF (SQLCODE <> -20001) THEN
12849: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12850: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12851: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
12852: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12853: FND_MESSAGE.SET_TOKEN('PARAMETERS',
12846: EXCEPTION
12847: WHEN OTHERS then
12848: IF (SQLCODE <> -20001) THEN
12849: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12850: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12851: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
12852: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12853: FND_MESSAGE.SET_TOKEN('PARAMETERS',
12854: 'Invoice_id = '|| to_char(p_invoice_id));
12847: WHEN OTHERS then
12848: IF (SQLCODE <> -20001) THEN
12849: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12850: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12851: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
12852: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12853: FND_MESSAGE.SET_TOKEN('PARAMETERS',
12854: 'Invoice_id = '|| to_char(p_invoice_id));
12855: END IF;
12848: IF (SQLCODE <> -20001) THEN
12849: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12850: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12851: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
12852: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12853: FND_MESSAGE.SET_TOKEN('PARAMETERS',
12854: 'Invoice_id = '|| to_char(p_invoice_id));
12855: END IF;
12856: APP_EXCEPTION.RAISE_EXCEPTION;
12849: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
12850: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
12851: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence );
12852: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
12853: FND_MESSAGE.SET_TOKEN('PARAMETERS',
12854: 'Invoice_id = '|| to_char(p_invoice_id));
12855: END IF;
12856: APP_EXCEPTION.RAISE_EXCEPTION;
12857: End CHECK_GDF_VALID;