335: and org_id = X_ORG_ID -- Bug 5407785
336: and ((X_ROWID is null) or (rowid <> X_ROWID));
337:
338: if (dummy_a >= 1) then
339: fnd_message.set_name('SQLAP','AP_ALL_DUPLICATE_VALUE');
340: app_exception.raise_exception;
341: end if;
342:
343: debug_info := 'Count for same vendor_id, invoice_num amount purged invoices';
349: and vendor_id = X_VENDOR_ID -- Bug 5407785
350: and org_id = X_ORG_ID;
351:
352: if (dummy_b >= 1) then
353: fnd_message.set_name('SQLAP','AP_ALL_DUPLICATE_VALUE');
354: app_exception.raise_exception;
355: end if;
356:
357:
357:
358: EXCEPTION
359: WHEN OTHERS THEN
360: IF (SQLCODE <> -20001) THEN
361: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
362: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
363: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
364: current_calling_sequence);
365: FND_MESSAGE.SET_TOKEN('PARAMETERS',
358: EXCEPTION
359: WHEN OTHERS THEN
360: IF (SQLCODE <> -20001) THEN
361: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
362: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
363: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
364: current_calling_sequence);
365: FND_MESSAGE.SET_TOKEN('PARAMETERS',
366: 'X_Rowid = ' ||X_Rowid
359: WHEN OTHERS THEN
360: IF (SQLCODE <> -20001) THEN
361: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
362: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
363: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
364: current_calling_sequence);
365: FND_MESSAGE.SET_TOKEN('PARAMETERS',
366: 'X_Rowid = ' ||X_Rowid
367: ||', X_INVOICE_NUM = '||X_INVOICE_NUM
361: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
362: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
363: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
364: current_calling_sequence);
365: FND_MESSAGE.SET_TOKEN('PARAMETERS',
366: 'X_Rowid = ' ||X_Rowid
367: ||', X_INVOICE_NUM = '||X_INVOICE_NUM
368: ||', X_VENDOR_ID = ' ||X_VENDOR_ID
369: );
366: 'X_Rowid = ' ||X_Rowid
367: ||', X_INVOICE_NUM = '||X_INVOICE_NUM
368: ||', X_VENDOR_ID = ' ||X_VENDOR_ID
369: );
370: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
371: END IF;
372: APP_EXCEPTION.RAISE_EXCEPTION;
373: end CHECK_UNIQUE;
374:
408: where voucher_num = X_VOUCHER_NUM
409: and ((X_ROWID is null) or (rowid <> X_ROWID));
410:
411: IF (dummy >= 1) THEN
412: fnd_message.set_name('SQLAP','AP_ALL_DUPLICATE_VALUE');
413: app_exception.raise_exception;
414: END IF;
415:
416: EXCEPTION
415:
416: EXCEPTION
417: WHEN OTHERS THEN
418: IF (SQLCODE <> -20001) THEN
419: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
420: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
421: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
422: current_calling_sequence);
423: FND_MESSAGE.SET_TOKEN('PARAMETERS',
416: EXCEPTION
417: WHEN OTHERS THEN
418: IF (SQLCODE <> -20001) THEN
419: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
420: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
421: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
422: current_calling_sequence);
423: FND_MESSAGE.SET_TOKEN('PARAMETERS',
424: 'X_Rowid = ' ||X_Rowid
417: WHEN OTHERS THEN
418: IF (SQLCODE <> -20001) THEN
419: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
420: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
421: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
422: current_calling_sequence);
423: FND_MESSAGE.SET_TOKEN('PARAMETERS',
424: 'X_Rowid = ' ||X_Rowid
425: ||', X_VOUCHER_NUM = '||X_VOUCHER_NUM);
419: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
420: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
421: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
422: current_calling_sequence);
423: FND_MESSAGE.SET_TOKEN('PARAMETERS',
424: 'X_Rowid = ' ||X_Rowid
425: ||', X_VOUCHER_NUM = '||X_VOUCHER_NUM);
426: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
427: END IF;
422: current_calling_sequence);
423: FND_MESSAGE.SET_TOKEN('PARAMETERS',
424: 'X_Rowid = ' ||X_Rowid
425: ||', X_VOUCHER_NUM = '||X_VOUCHER_NUM);
426: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
427: END IF;
428: APP_EXCEPTION.RAISE_EXCEPTION;
429:
430: END CHECK_UNIQUE_VOUCHER_NUM;
1718:
1719: EXCEPTION
1720: WHEN OTHERS THEN
1721: IF (SQLCODE <> -20001) THEN
1722: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1723: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1724: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1725: current_calling_sequence);
1726: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1719: EXCEPTION
1720: WHEN OTHERS THEN
1721: IF (SQLCODE <> -20001) THEN
1722: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1723: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1724: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1725: current_calling_sequence);
1726: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1727: 'P_vendor_id = ' ||P_vendor_id
1720: WHEN OTHERS THEN
1721: IF (SQLCODE <> -20001) THEN
1722: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1723: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1724: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1725: current_calling_sequence);
1726: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1727: 'P_vendor_id = ' ||P_vendor_id
1728: ||', P_vendor_site_id = ' ||P_vendor_site_id
1722: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1723: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1724: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1725: current_calling_sequence);
1726: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1727: 'P_vendor_id = ' ||P_vendor_id
1728: ||', P_vendor_site_id = ' ||P_vendor_site_id
1729: ||', P_invoice_amount = ' ||P_invoice_amount
1730: ||', P_invoice_type_lookup_code = '||P_invoice_type_lookup_code
1729: ||', P_invoice_amount = ' ||P_invoice_amount
1730: ||', P_invoice_type_lookup_code = '||P_invoice_type_lookup_code
1731: ||', P_invoice_currency_code = ' ||P_invoice_currency_code
1732: );
1733: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1734: END IF;
1735: APP_EXCEPTION.RAISE_EXCEPTION;
1736: END get_similar_drcr_memo;
1737:
1789:
1790: EXCEPTION
1791: WHEN OTHERS THEN
1792: IF (SQLCODE <> -20001) THEN
1793: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1794: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1795: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1796: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1797: 'P_vendor_site_id = '||P_vendor_site_id);
1790: EXCEPTION
1791: WHEN OTHERS THEN
1792: IF (SQLCODE <> -20001) THEN
1793: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1794: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1795: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1796: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1797: 'P_vendor_site_id = '||P_vendor_site_id);
1798: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1791: WHEN OTHERS THEN
1792: IF (SQLCODE <> -20001) THEN
1793: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1794: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1795: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1796: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1797: 'P_vendor_site_id = '||P_vendor_site_id);
1798: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1799: END IF;
1792: IF (SQLCODE <> -20001) THEN
1793: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1794: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1795: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1796: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1797: 'P_vendor_site_id = '||P_vendor_site_id);
1798: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1799: END IF;
1800: APP_EXCEPTION.RAISE_EXCEPTION;
1794: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1795: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1796: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1797: 'P_vendor_site_id = '||P_vendor_site_id);
1798: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1799: END IF;
1800: APP_EXCEPTION.RAISE_EXCEPTION;
1801: END eft_bank_details_exist;
1802:
1856:
1857: EXCEPTION
1858: WHEN OTHERS THEN
1859: IF (SQLCODE <> -20001) THEN
1860: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1861: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1862: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1863: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1864: 'P_vendor_site_id = '||P_vendor_site_id);
1857: EXCEPTION
1858: WHEN OTHERS THEN
1859: IF (SQLCODE <> -20001) THEN
1860: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1861: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1862: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1863: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1864: 'P_vendor_site_id = '||P_vendor_site_id);
1865: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1858: WHEN OTHERS THEN
1859: IF (SQLCODE <> -20001) THEN
1860: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1861: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1862: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1863: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1864: 'P_vendor_site_id = '||P_vendor_site_id);
1865: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1866: END IF;
1859: IF (SQLCODE <> -20001) THEN
1860: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1861: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1862: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1863: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1864: 'P_vendor_site_id = '||P_vendor_site_id);
1865: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1866: END IF;
1867: APP_EXCEPTION.RAISE_EXCEPTION;
1861: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1862: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1863: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1864: 'P_vendor_site_id = '||P_vendor_site_id);
1865: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1866: END IF;
1867: APP_EXCEPTION.RAISE_EXCEPTION;
1868: END eft_bank_curr_details_exist;
1869:
2846:
2847: EXCEPTION
2848: WHEN OTHERS THEN
2849: if (SQLCODE <> -20001) then
2850: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2851: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2852: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2853: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2854: 'Invoice Id = ' || X_Invoice_Id);
2847: EXCEPTION
2848: WHEN OTHERS THEN
2849: if (SQLCODE <> -20001) then
2850: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2851: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2852: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2853: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2854: 'Invoice Id = ' || X_Invoice_Id);
2855: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2848: WHEN OTHERS THEN
2849: if (SQLCODE <> -20001) then
2850: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2851: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2852: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2853: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2854: 'Invoice Id = ' || X_Invoice_Id);
2855: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2856: end if;
2849: if (SQLCODE <> -20001) then
2850: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2851: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2852: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2853: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2854: 'Invoice Id = ' || X_Invoice_Id);
2855: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2856: end if;
2857: debug_info := debug_info || 'Error occurred';
2851: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2852: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2853: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2854: 'Invoice Id = ' || X_Invoice_Id);
2855: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2856: end if;
2857: debug_info := debug_info || 'Error occurred';
2858: X_debug_context := current_calling_sequence;
2859: X_debug_info := debug_info;
2994:
2995: EXCEPTION
2996: WHEN OTHERS THEN
2997: if (SQLCODE <> -20001) then
2998: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2999: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3000: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3001: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3002: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2995: EXCEPTION
2996: WHEN OTHERS THEN
2997: if (SQLCODE <> -20001) then
2998: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2999: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3000: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3001: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3002: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3003: end if;
2996: WHEN OTHERS THEN
2997: if (SQLCODE <> -20001) then
2998: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2999: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3000: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3001: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3002: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3003: end if;
3004: debug_info := debug_info || 'Error occurred';
2997: if (SQLCODE <> -20001) then
2998: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2999: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3000: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3001: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3002: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3003: end if;
3004: debug_info := debug_info || 'Error occurred';
3005:
2998: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2999: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3000: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3001: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3002: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3003: end if;
3004: debug_info := debug_info || 'Error occurred';
3005:
3006: IF ( invoice_validation%ISOPEN ) THEN
3081:
3082: EXCEPTION
3083: WHEN OTHERS THEN
3084: if (SQLCODE <> -20001) then
3085: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3086: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3087: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3088: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3089: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3082: EXCEPTION
3083: WHEN OTHERS THEN
3084: if (SQLCODE <> -20001) then
3085: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3086: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3087: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3088: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3089: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3090: end if;
3083: WHEN OTHERS THEN
3084: if (SQLCODE <> -20001) then
3085: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3086: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3087: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3088: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3089: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3090: end if;
3091: debug_info := debug_info || 'Error occurred';
3084: if (SQLCODE <> -20001) then
3085: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3086: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3087: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3088: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3089: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3090: end if;
3091: debug_info := debug_info || 'Error occurred';
3092:
3085: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3086: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3087: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3088: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3089: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3090: end if;
3091: debug_info := debug_info || 'Error occurred';
3092:
3093: IF ( invoice_validation%ISOPEN ) THEN
3168:
3169: EXCEPTION
3170: WHEN OTHERS THEN
3171: if (SQLCODE <> -20001) then
3172: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3173: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3174: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3175: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3176: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3169: EXCEPTION
3170: WHEN OTHERS THEN
3171: if (SQLCODE <> -20001) then
3172: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3173: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3174: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3175: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3176: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3177: end if;
3170: WHEN OTHERS THEN
3171: if (SQLCODE <> -20001) then
3172: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3173: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3174: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3175: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3176: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3177: end if;
3178: debug_info := debug_info || 'Error occurred';
3171: if (SQLCODE <> -20001) then
3172: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3173: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3174: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3175: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3176: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3177: end if;
3178: debug_info := debug_info || 'Error occurred';
3179:
3172: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3173: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3174: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3175: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3176: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3177: end if;
3178: debug_info := debug_info || 'Error occurred';
3179:
3180: IF ( invoice_validation%ISOPEN ) THEN
3255:
3256: EXCEPTION
3257: WHEN OTHERS THEN
3258: if (SQLCODE <> -20001) then
3259: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3260: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3261: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3262: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3263: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3256: EXCEPTION
3257: WHEN OTHERS THEN
3258: if (SQLCODE <> -20001) then
3259: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3260: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3261: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3262: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3263: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3264: end if;
3257: WHEN OTHERS THEN
3258: if (SQLCODE <> -20001) then
3259: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3260: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3261: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3262: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3263: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3264: end if;
3265: debug_info := debug_info || 'Error occurred';
3258: if (SQLCODE <> -20001) then
3259: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3260: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3261: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3262: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3263: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3264: end if;
3265: debug_info := debug_info || 'Error occurred';
3266:
3259: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3260: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3261: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3262: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
3263: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3264: end if;
3265: debug_info := debug_info || 'Error occurred';
3266:
3267: IF ( invoice_validation%ISOPEN ) THEN