412: OR (party_site_id is null and X_PARTY_SITE_ID is null)) /*Bug9105666*/
413: and ((X_ROWID is null) or (rowid <> X_ROWID));
414:
415: if (dummy_a >= 1) then
416: fnd_message.set_name('SQLAP','AP_ALL_DUPLICATE_VALUE');
417: app_exception.raise_exception;
418: end if;
419:
420: debug_info := 'Count for same vendor_id,party_site_id invoice_num amount purged invoices'; /*Bug9105666*/
431: AND (ass.party_site_id = X_PARTY_SITE_ID /*Bug9105666*/
432: OR (ass.party_site_id is null and X_PARTY_SITE_ID is null)); /*Bug9105666*/
433:
434: if (dummy_b >= 1) then
435: fnd_message.set_name('SQLAP','AP_ALL_DUPLICATE_VALUE');
436: app_exception.raise_exception;
437: end if;
438:
439:
439:
440: EXCEPTION
441: WHEN OTHERS THEN
442: IF (SQLCODE <> -20001) THEN
443: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
444: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
445: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
446: current_calling_sequence);
447: FND_MESSAGE.SET_TOKEN('PARAMETERS',
440: EXCEPTION
441: WHEN OTHERS THEN
442: IF (SQLCODE <> -20001) THEN
443: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
444: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
445: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
446: current_calling_sequence);
447: FND_MESSAGE.SET_TOKEN('PARAMETERS',
448: 'X_Rowid = ' ||X_Rowid
441: WHEN OTHERS THEN
442: IF (SQLCODE <> -20001) THEN
443: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
444: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
445: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
446: current_calling_sequence);
447: FND_MESSAGE.SET_TOKEN('PARAMETERS',
448: 'X_Rowid = ' ||X_Rowid
449: ||', X_INVOICE_NUM = '||X_INVOICE_NUM
443: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
444: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
445: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
446: current_calling_sequence);
447: FND_MESSAGE.SET_TOKEN('PARAMETERS',
448: 'X_Rowid = ' ||X_Rowid
449: ||', X_INVOICE_NUM = '||X_INVOICE_NUM
450: ||', X_VENDOR_ID = ' ||X_VENDOR_ID
451: );
448: 'X_Rowid = ' ||X_Rowid
449: ||', X_INVOICE_NUM = '||X_INVOICE_NUM
450: ||', X_VENDOR_ID = ' ||X_VENDOR_ID
451: );
452: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
453: END IF;
454: APP_EXCEPTION.RAISE_EXCEPTION;
455: end CHECK_UNIQUE;
456:
490: where voucher_num = X_VOUCHER_NUM
491: and ((X_ROWID is null) or (rowid <> X_ROWID));
492:
493: IF (dummy >= 1) THEN
494: fnd_message.set_name('SQLAP','AP_ALL_DUPLICATE_VALUE');
495: app_exception.raise_exception;
496: END IF;
497:
498: EXCEPTION
497:
498: EXCEPTION
499: WHEN OTHERS THEN
500: IF (SQLCODE <> -20001) THEN
501: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
502: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
503: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
504: current_calling_sequence);
505: FND_MESSAGE.SET_TOKEN('PARAMETERS',
498: EXCEPTION
499: WHEN OTHERS THEN
500: IF (SQLCODE <> -20001) THEN
501: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
502: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
503: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
504: current_calling_sequence);
505: FND_MESSAGE.SET_TOKEN('PARAMETERS',
506: 'X_Rowid = ' ||X_Rowid
499: WHEN OTHERS THEN
500: IF (SQLCODE <> -20001) THEN
501: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
502: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
503: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
504: current_calling_sequence);
505: FND_MESSAGE.SET_TOKEN('PARAMETERS',
506: 'X_Rowid = ' ||X_Rowid
507: ||', X_VOUCHER_NUM = '||X_VOUCHER_NUM);
501: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
502: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
503: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
504: current_calling_sequence);
505: FND_MESSAGE.SET_TOKEN('PARAMETERS',
506: 'X_Rowid = ' ||X_Rowid
507: ||', X_VOUCHER_NUM = '||X_VOUCHER_NUM);
508: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
509: END IF;
504: current_calling_sequence);
505: FND_MESSAGE.SET_TOKEN('PARAMETERS',
506: 'X_Rowid = ' ||X_Rowid
507: ||', X_VOUCHER_NUM = '||X_VOUCHER_NUM);
508: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
509: END IF;
510: APP_EXCEPTION.RAISE_EXCEPTION;
511:
512: END CHECK_UNIQUE_VOUCHER_NUM;
1790:
1791: EXCEPTION
1792: WHEN OTHERS THEN
1793: IF (SQLCODE <> -20001) THEN
1794: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1795: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1796: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1797: current_calling_sequence);
1798: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1791: EXCEPTION
1792: WHEN OTHERS THEN
1793: IF (SQLCODE <> -20001) THEN
1794: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1795: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1796: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1797: current_calling_sequence);
1798: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1799: 'P_vendor_id = ' ||P_vendor_id
1792: WHEN OTHERS THEN
1793: IF (SQLCODE <> -20001) THEN
1794: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1795: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1796: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1797: current_calling_sequence);
1798: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1799: 'P_vendor_id = ' ||P_vendor_id
1800: ||', P_vendor_site_id = ' ||P_vendor_site_id
1794: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1795: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1796: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1797: current_calling_sequence);
1798: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1799: 'P_vendor_id = ' ||P_vendor_id
1800: ||', P_vendor_site_id = ' ||P_vendor_site_id
1801: ||', P_invoice_amount = ' ||P_invoice_amount
1802: ||', P_invoice_type_lookup_code = '||P_invoice_type_lookup_code
1801: ||', P_invoice_amount = ' ||P_invoice_amount
1802: ||', P_invoice_type_lookup_code = '||P_invoice_type_lookup_code
1803: ||', P_invoice_currency_code = ' ||P_invoice_currency_code
1804: );
1805: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1806: END IF;
1807: APP_EXCEPTION.RAISE_EXCEPTION;
1808: END get_similar_drcr_memo;
1809:
1861:
1862: EXCEPTION
1863: WHEN OTHERS THEN
1864: IF (SQLCODE <> -20001) THEN
1865: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1866: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1867: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1868: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1869: 'P_vendor_site_id = '||P_vendor_site_id);
1862: EXCEPTION
1863: WHEN OTHERS THEN
1864: IF (SQLCODE <> -20001) THEN
1865: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1866: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1867: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1868: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1869: 'P_vendor_site_id = '||P_vendor_site_id);
1870: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1863: WHEN OTHERS THEN
1864: IF (SQLCODE <> -20001) THEN
1865: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1866: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1867: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1868: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1869: 'P_vendor_site_id = '||P_vendor_site_id);
1870: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1871: END IF;
1864: IF (SQLCODE <> -20001) THEN
1865: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1866: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1867: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1868: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1869: 'P_vendor_site_id = '||P_vendor_site_id);
1870: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1871: END IF;
1872: APP_EXCEPTION.RAISE_EXCEPTION;
1866: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1867: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1868: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1869: 'P_vendor_site_id = '||P_vendor_site_id);
1870: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1871: END IF;
1872: APP_EXCEPTION.RAISE_EXCEPTION;
1873: END eft_bank_details_exist;
1874:
1928:
1929: EXCEPTION
1930: WHEN OTHERS THEN
1931: IF (SQLCODE <> -20001) THEN
1932: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1933: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1934: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1935: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1936: 'P_vendor_site_id = '||P_vendor_site_id);
1929: EXCEPTION
1930: WHEN OTHERS THEN
1931: IF (SQLCODE <> -20001) THEN
1932: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1933: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1934: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1935: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1936: 'P_vendor_site_id = '||P_vendor_site_id);
1937: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1930: WHEN OTHERS THEN
1931: IF (SQLCODE <> -20001) THEN
1932: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1933: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1934: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1935: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1936: 'P_vendor_site_id = '||P_vendor_site_id);
1937: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1938: END IF;
1931: IF (SQLCODE <> -20001) THEN
1932: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1933: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1934: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1935: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1936: 'P_vendor_site_id = '||P_vendor_site_id);
1937: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1938: END IF;
1939: APP_EXCEPTION.RAISE_EXCEPTION;
1933: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1934: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1935: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1936: 'P_vendor_site_id = '||P_vendor_site_id);
1937: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1938: END IF;
1939: APP_EXCEPTION.RAISE_EXCEPTION;
1940: END eft_bank_curr_details_exist;
1941:
2919:
2920: EXCEPTION
2921: WHEN OTHERS THEN
2922: if (SQLCODE <> -20001) then
2923: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2924: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2925: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2926: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2927: 'Invoice Id = ' || X_Invoice_Id);
2920: EXCEPTION
2921: WHEN OTHERS THEN
2922: if (SQLCODE <> -20001) then
2923: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2924: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2925: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2926: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2927: 'Invoice Id = ' || X_Invoice_Id);
2928: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2921: WHEN OTHERS THEN
2922: if (SQLCODE <> -20001) then
2923: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2924: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2925: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2926: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2927: 'Invoice Id = ' || X_Invoice_Id);
2928: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2929: end if;
2922: if (SQLCODE <> -20001) then
2923: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2924: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2925: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2926: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2927: 'Invoice Id = ' || X_Invoice_Id);
2928: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2929: end if;
2930: debug_info := debug_info || 'Error occurred';
2924: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2925: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2926: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2927: 'Invoice Id = ' || X_Invoice_Id);
2928: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2929: end if;
2930: debug_info := debug_info || 'Error occurred';
2931: X_debug_context := current_calling_sequence;
2932: X_debug_info := debug_info;
3067:
3068: EXCEPTION
3069: WHEN OTHERS THEN
3070: if (SQLCODE <> -20001) then
3071: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3072: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3073: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3074: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3075: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3068: EXCEPTION
3069: WHEN OTHERS THEN
3070: if (SQLCODE <> -20001) then
3071: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3072: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3073: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3074: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3075: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3076: end if;
3069: WHEN OTHERS THEN
3070: if (SQLCODE <> -20001) then
3071: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3072: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3073: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3074: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3075: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3076: end if;
3077: debug_info := debug_info || 'Error occurred';
3070: if (SQLCODE <> -20001) then
3071: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3072: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3073: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3074: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3075: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3076: end if;
3077: debug_info := debug_info || 'Error occurred';
3078:
3071: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3072: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3073: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3074: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3075: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3076: end if;
3077: debug_info := debug_info || 'Error occurred';
3078:
3079: IF ( invoice_validation%ISOPEN ) THEN
3154:
3155: EXCEPTION
3156: WHEN OTHERS THEN
3157: if (SQLCODE <> -20001) then
3158: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3159: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3160: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3161: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3162: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3155: EXCEPTION
3156: WHEN OTHERS THEN
3157: if (SQLCODE <> -20001) then
3158: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3159: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3160: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3161: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3162: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3163: end if;
3156: WHEN OTHERS THEN
3157: if (SQLCODE <> -20001) then
3158: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3159: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3160: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3161: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3162: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3163: end if;
3164: debug_info := debug_info || 'Error occurred';
3157: if (SQLCODE <> -20001) then
3158: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3159: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3160: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3161: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3162: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3163: end if;
3164: debug_info := debug_info || 'Error occurred';
3165:
3158: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3159: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3160: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3161: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3162: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3163: end if;
3164: debug_info := debug_info || 'Error occurred';
3165:
3166: IF ( invoice_validation%ISOPEN ) THEN
3241:
3242: EXCEPTION
3243: WHEN OTHERS THEN
3244: if (SQLCODE <> -20001) then
3245: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3246: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3247: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3248: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3249: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3242: EXCEPTION
3243: WHEN OTHERS THEN
3244: if (SQLCODE <> -20001) then
3245: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3246: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3247: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3248: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3249: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3250: end if;
3243: WHEN OTHERS THEN
3244: if (SQLCODE <> -20001) then
3245: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3246: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3247: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3248: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3249: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3250: end if;
3251: debug_info := debug_info || 'Error occurred';
3244: if (SQLCODE <> -20001) then
3245: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3246: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3247: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3248: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3249: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3250: end if;
3251: debug_info := debug_info || 'Error occurred';
3252:
3245: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3246: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3247: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3248: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3249: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3250: end if;
3251: debug_info := debug_info || 'Error occurred';
3252:
3253: IF ( invoice_validation%ISOPEN ) THEN
3328:
3329: EXCEPTION
3330: WHEN OTHERS THEN
3331: if (SQLCODE <> -20001) then
3332: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3333: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3334: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3335: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3336: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3329: EXCEPTION
3330: WHEN OTHERS THEN
3331: if (SQLCODE <> -20001) then
3332: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3333: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3334: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3335: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3336: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3337: end if;
3330: WHEN OTHERS THEN
3331: if (SQLCODE <> -20001) then
3332: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3333: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3334: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3335: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3336: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3337: end if;
3338: debug_info := debug_info || 'Error occurred';
3331: if (SQLCODE <> -20001) then
3332: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3333: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3334: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3335: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3336: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3337: end if;
3338: debug_info := debug_info || 'Error occurred';
3339:
3332: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3333: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3334: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3335: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3336: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3337: end if;
3338: debug_info := debug_info || 'Error occurred';
3339:
3340: IF ( invoice_validation%ISOPEN ) THEN
3854: RETURN (l_success);
3855:
3856: EXCEPTION
3857: WHEN NO_DATA_FOUND THEN
3858: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice id = '||to_char(p_invoice_id) || ' is Not a Credit Memo');
3859:
3860: WHEN OTHERS THEN
3861: IF (SQLCODE <> -20001) THEN
3862: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3858: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice id = '||to_char(p_invoice_id) || ' is Not a Credit Memo');
3859:
3860: WHEN OTHERS THEN
3861: IF (SQLCODE <> -20001) THEN
3862: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3863: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3864: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
3865: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice id = '||to_char(p_invoice_id));
3866: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3859:
3860: WHEN OTHERS THEN
3861: IF (SQLCODE <> -20001) THEN
3862: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3863: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3864: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
3865: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice id = '||to_char(p_invoice_id));
3866: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3867: END IF;
3860: WHEN OTHERS THEN
3861: IF (SQLCODE <> -20001) THEN
3862: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3863: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3864: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
3865: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice id = '||to_char(p_invoice_id));
3866: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3867: END IF;
3868:
3861: IF (SQLCODE <> -20001) THEN
3862: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3863: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3864: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
3865: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice id = '||to_char(p_invoice_id));
3866: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3867: END IF;
3868:
3869: APP_EXCEPTION.RAISE_EXCEPTION;
3862: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3863: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3864: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_current_calling_sequence);
3865: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice id = '||to_char(p_invoice_id));
3866: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3867: END IF;
3868:
3869: APP_EXCEPTION.RAISE_EXCEPTION;
3870: RETURN FALSE;
3962: P_return_code, --hold code /reject code/null if valid
3963: l_return_status); --procedure success without any exceptions
3964:
3965: IF NOT (l_return_status)THEN
3966: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3967: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3968: current_calling_sequence);
3969: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3970: 'P_id = ' ||P_id
3963: l_return_status); --procedure success without any exceptions
3964:
3965: IF NOT (l_return_status)THEN
3966: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3967: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3968: current_calling_sequence);
3969: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3970: 'P_id = ' ||P_id
3971: ||', P_calling_mode = '||P_calling_mode
3965: IF NOT (l_return_status)THEN
3966: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3967: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
3968: current_calling_sequence);
3969: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3970: 'P_id = ' ||P_id
3971: ||', P_calling_mode = '||P_calling_mode
3972: ||', P_table_name = ' ||P_table_name
3973: ||', P_hold_reject_exists_flag = ' ||P_hold_reject_exists_flag
3971: ||', P_calling_mode = '||P_calling_mode
3972: ||', P_table_name = ' ||P_table_name
3973: ||', P_hold_reject_exists_flag = ' ||P_hold_reject_exists_flag
3974: ||', P_return_code = ' ||P_return_code);
3975: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
3976: APP_EXCEPTION.RAISE_EXCEPTION;
3977: END IF;
3978:
3979: END IF;