[Home] [Help]
1767: Print_Debug(l_api_name, l_debug_info);
1768: END LOOP;
1769:
1770: -- Throwing error messages to form to display
1771: FND_MESSAGE.SET_NAME('SQLAP','AP_LCM_EXCEPTION');
1772: /* Error Text is
1773: -- An error occurred while interfacing the invoice to Landed Cost Management.
1774: -- Error: &ERROR
1775: --
1773: -- An error occurred while interfacing the invoice to Landed Cost Management.
1774: -- Error: &ERROR
1775: --
1776: */
1777: FND_MESSAGE.SET_TOKEN('ERROR', l_lcm_msg_data);
1778: APP_EXCEPTION.RAISE_EXCEPTION;
1779:
1780: WHEN TAX_EXCEPTION THEN
1781: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
1777: FND_MESSAGE.SET_TOKEN('ERROR', l_lcm_msg_data);
1778: APP_EXCEPTION.RAISE_EXCEPTION;
1779:
1780: WHEN TAX_EXCEPTION THEN
1781: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
1782: IF l_error_code IS NOT NULL THEN
1783: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
1784: ELSE
1785: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1779:
1780: WHEN TAX_EXCEPTION THEN
1781: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
1782: IF l_error_code IS NOT NULL THEN
1783: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
1784: ELSE
1785: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1786: END IF;
1787:
1781: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
1782: IF l_error_code IS NOT NULL THEN
1783: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
1784: ELSE
1785: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1786: END IF;
1787:
1788: IF (approve_invoice_cur%ISOPEN) THEN
1789: CLOSE approve_invoice_cur;
1798: APP_EXCEPTION.RAISE_EXCEPTION;
1799:
1800: WHEN OTHERS THEN
1801: IF (SQLCODE <> -20001) THEN
1802: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1803: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1804: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1805: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1806: 'Run Option = '|| p_run_option
1799:
1800: WHEN OTHERS THEN
1801: IF (SQLCODE <> -20001) THEN
1802: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1803: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1804: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1805: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1806: 'Run Option = '|| p_run_option
1807: ||', Batch Id = '|| to_char(p_invoice_batch_id)
1800: WHEN OTHERS THEN
1801: IF (SQLCODE <> -20001) THEN
1802: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1803: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1804: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1805: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1806: 'Run Option = '|| p_run_option
1807: ||', Batch Id = '|| to_char(p_invoice_batch_id)
1808: ||', Begin Date = '|| to_char(p_begin_invoice_date)
1801: IF (SQLCODE <> -20001) THEN
1802: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1803: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1804: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1805: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1806: 'Run Option = '|| p_run_option
1807: ||', Batch Id = '|| to_char(p_invoice_batch_id)
1808: ||', Begin Date = '|| to_char(p_begin_invoice_date)
1809: ||', End Date = '|| to_char(p_end_invoice_date)
1811: ||', Pay Group = '|| p_pay_group
1812: ||', Invoice Id = '|| to_char(p_invoice_id)
1813: ||', Entered By = '|| to_char(p_entered_by)
1814: ||', Set of Books Id = '|| to_char(p_set_of_books_id));
1815: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1816: END IF;
1817:
1818: IF (approve_invoice_cur%ISOPEN) THEN
1819: CLOSE approve_invoice_cur;
2012:
2013: EXCEPTION
2014: WHEN OTHERS THEN
2015: IF (SQLCODE <> -20001) THEN
2016: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2017: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2018: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2019: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2020: END IF;
2013: EXCEPTION
2014: WHEN OTHERS THEN
2015: IF (SQLCODE <> -20001) THEN
2016: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2017: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2018: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2019: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2020: END IF;
2021: APP_EXCEPTION.RAISE_EXCEPTION;
2014: WHEN OTHERS THEN
2015: IF (SQLCODE <> -20001) THEN
2016: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2017: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2018: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2019: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2020: END IF;
2021: APP_EXCEPTION.RAISE_EXCEPTION;
2022: END Approval_Init;
2015: IF (SQLCODE <> -20001) THEN
2016: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2017: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2018: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2019: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2020: END IF;
2021: APP_EXCEPTION.RAISE_EXCEPTION;
2022: END Approval_Init;
2023:
2099:
2100: EXCEPTION
2101: WHEN OTHERS THEN
2102: IF (SQLCODE <> -20001) THEN
2103: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2104: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2105: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2106: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2107: 'Invoice_id = '|| to_char(p_invoice_id)
2100: EXCEPTION
2101: WHEN OTHERS THEN
2102: IF (SQLCODE <> -20001) THEN
2103: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2104: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2105: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2106: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2107: 'Invoice_id = '|| to_char(p_invoice_id)
2108: || 'Run Option = ' || p_run_option);
2101: WHEN OTHERS THEN
2102: IF (SQLCODE <> -20001) THEN
2103: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2104: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2105: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2106: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2107: 'Invoice_id = '|| to_char(p_invoice_id)
2108: || 'Run Option = ' || p_run_option);
2109: END IF;
2102: IF (SQLCODE <> -20001) THEN
2103: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2104: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2105: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2106: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2107: 'Invoice_id = '|| to_char(p_invoice_id)
2108: || 'Run Option = ' || p_run_option);
2109: END IF;
2110: APP_EXCEPTION.RAISE_EXCEPTION;
2190:
2191: EXCEPTION
2192: WHEN OTHERS THEN
2193: IF (SQLCODE <> -20001) THEN
2194: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2195: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2196: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2197: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2198: 'Invoice_id = '|| to_char(p_invoice_id)
2191: EXCEPTION
2192: WHEN OTHERS THEN
2193: IF (SQLCODE <> -20001) THEN
2194: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2195: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2196: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2197: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2198: 'Invoice_id = '|| to_char(p_invoice_id)
2199: || 'Run Option = ' || p_run_option);
2192: WHEN OTHERS THEN
2193: IF (SQLCODE <> -20001) THEN
2194: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2195: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2196: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2197: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2198: 'Invoice_id = '|| to_char(p_invoice_id)
2199: || 'Run Option = ' || p_run_option);
2200: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2193: IF (SQLCODE <> -20001) THEN
2194: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2195: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2196: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2197: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2198: 'Invoice_id = '|| to_char(p_invoice_id)
2199: || 'Run Option = ' || p_run_option);
2200: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2201: END IF;
2196: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2197: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2198: 'Invoice_id = '|| to_char(p_invoice_id)
2199: || 'Run Option = ' || p_run_option);
2200: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2201: END IF;
2202: APP_EXCEPTION.RAISE_EXCEPTION;
2203: END Update_Inv_Dists_To_Selected;
2204:
2320:
2321: EXCEPTION
2322: WHEN OTHERS THEN
2323: IF (SQLCODE <> -20001) THEN
2324: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2328: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
2321: EXCEPTION
2322: WHEN OTHERS THEN
2323: IF (SQLCODE <> -20001) THEN
2324: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2328: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
2329: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2322: WHEN OTHERS THEN
2323: IF (SQLCODE <> -20001) THEN
2324: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2328: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
2329: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2330: END IF;
2323: IF (SQLCODE <> -20001) THEN
2324: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2328: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
2329: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2330: END IF;
2331:
2325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2328: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
2329: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2330: END IF;
2331:
2332: IF ( Alloc_Rule_Cur%ISOPEN ) THEN
2333: CLOSE Alloc_Rule_Cur;
2736:
2737: EXCEPTION
2738: WHEN OTHERS THEN
2739: IF (SQLCODE <> -20001) THEN
2740: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2741: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2742: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2743: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2744: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
2737: EXCEPTION
2738: WHEN OTHERS THEN
2739: IF (SQLCODE <> -20001) THEN
2740: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2741: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2742: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2743: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2744: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
2745: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2738: WHEN OTHERS THEN
2739: IF (SQLCODE <> -20001) THEN
2740: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2741: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2742: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2743: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2744: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
2745: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2746: END IF;
2739: IF (SQLCODE <> -20001) THEN
2740: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2741: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2742: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2743: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2744: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
2745: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2746: END IF;
2747:
2741: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2742: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2743: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2744: 'Invoice_id = '|| to_char(p_inv_line_rec.invoice_id));
2745: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2746: END IF;
2747:
2748: IF ( Alloc_Rule_Cur%ISOPEN ) THEN
2749: CLOSE Alloc_Rule_Cur;
2901:
2902: EXCEPTION
2903: WHEN OTHERS THEN
2904: IF (SQLCODE <> -20001) THEN
2905: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2906: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2907: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2908: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2909: 'Invoice_id = '|| to_char(p_invoice_id)
2902: EXCEPTION
2903: WHEN OTHERS THEN
2904: IF (SQLCODE <> -20001) THEN
2905: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2906: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2907: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2908: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2909: 'Invoice_id = '|| to_char(p_invoice_id)
2910: ||', Set of Books Id = '|| to_char(p_set_of_books_id)
2903: WHEN OTHERS THEN
2904: IF (SQLCODE <> -20001) THEN
2905: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2906: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2907: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2908: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2909: 'Invoice_id = '|| to_char(p_invoice_id)
2910: ||', Set of Books Id = '|| to_char(p_set_of_books_id)
2911: ||', Base Currency Code = '|| p_base_currency_code);
2904: IF (SQLCODE <> -20001) THEN
2905: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2906: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2907: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2908: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2909: 'Invoice_id = '|| to_char(p_invoice_id)
2910: ||', Set of Books Id = '|| to_char(p_set_of_books_id)
2911: ||', Base Currency Code = '|| p_base_currency_code);
2912: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2908: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2909: 'Invoice_id = '|| to_char(p_invoice_id)
2910: ||', Set of Books Id = '|| to_char(p_set_of_books_id)
2911: ||', Base Currency Code = '|| p_base_currency_code);
2912: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2913: END IF;
2914: APP_EXCEPTION.RAISE_EXCEPTION;
2915: END Execute_General_Checks;
2916:
3061:
3062: EXCEPTION
3063: WHEN OTHERS THEN
3064: IF (SQLCODE <> -20001) THEN
3065: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3066: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3067: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3068: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3069: 'Invoice_id = '|| to_char(p_invoice_id));
3062: EXCEPTION
3063: WHEN OTHERS THEN
3064: IF (SQLCODE <> -20001) THEN
3065: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3066: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3067: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3068: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3069: 'Invoice_id = '|| to_char(p_invoice_id));
3070: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3063: WHEN OTHERS THEN
3064: IF (SQLCODE <> -20001) THEN
3065: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3066: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3067: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3068: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3069: 'Invoice_id = '|| to_char(p_invoice_id));
3070: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3071: END IF;
3064: IF (SQLCODE <> -20001) THEN
3065: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3066: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3067: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3068: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3069: 'Invoice_id = '|| to_char(p_invoice_id));
3070: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3071: END IF;
3072:
3066: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3067: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3068: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3069: 'Invoice_id = '|| to_char(p_invoice_id));
3070: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3071: END IF;
3072:
3073: IF ( Invalid_Dist_Acct_Cur%ISOPEN ) THEN
3074: CLOSE Invalid_Dist_Acct_Cur;
3171:
3172: EXCEPTION
3173: WHEN OTHERS THEN
3174: IF (SQLCODE <> -20001) THEN
3175: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3178: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3179: 'Invoice_id = '|| to_char(p_invoice_id));
3172: EXCEPTION
3173: WHEN OTHERS THEN
3174: IF (SQLCODE <> -20001) THEN
3175: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3178: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3179: 'Invoice_id = '|| to_char(p_invoice_id));
3180: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3173: WHEN OTHERS THEN
3174: IF (SQLCODE <> -20001) THEN
3175: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3178: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3179: 'Invoice_id = '|| to_char(p_invoice_id));
3180: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3181: END IF;
3174: IF (SQLCODE <> -20001) THEN
3175: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3178: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3179: 'Invoice_id = '|| to_char(p_invoice_id));
3180: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3181: END IF;
3182: IF ( PO_Required_Cur%ISOPEN ) THEN
3176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3178: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3179: 'Invoice_id = '|| to_char(p_invoice_id));
3180: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3181: END IF;
3182: IF ( PO_Required_Cur%ISOPEN ) THEN
3183: CLOSE PO_Required_Cur;
3184: END IF;
3264:
3265: EXCEPTION
3266: WHEN OTHERS THEN
3267: IF (SQLCODE <> -20001) THEN
3268: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3269: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3270: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3271: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3272: 'Invoice_id = '|| to_char(p_invoice_id)
3265: EXCEPTION
3266: WHEN OTHERS THEN
3267: IF (SQLCODE <> -20001) THEN
3268: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3269: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3270: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3271: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3272: 'Invoice_id = '|| to_char(p_invoice_id)
3273: ||', Base Currency Code = '|| p_base_currency_code);
3266: WHEN OTHERS THEN
3267: IF (SQLCODE <> -20001) THEN
3268: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3269: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3270: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3271: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3272: 'Invoice_id = '|| to_char(p_invoice_id)
3273: ||', Base Currency Code = '|| p_base_currency_code);
3274: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3267: IF (SQLCODE <> -20001) THEN
3268: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3269: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3270: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3271: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3272: 'Invoice_id = '|| to_char(p_invoice_id)
3273: ||', Base Currency Code = '|| p_base_currency_code);
3274: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3275: END IF;
3270: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3271: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3272: 'Invoice_id = '|| to_char(p_invoice_id)
3273: ||', Base Currency Code = '|| p_base_currency_code);
3274: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3275: END IF;
3276:
3277: IF ( No_Rate_Cur%ISOPEN ) THEN
3278: CLOSE No_Rate_Cur;
3428:
3429: EXCEPTION
3430: WHEN OTHERS THEN
3431: IF (SQLCODE <> -20001) THEN
3432: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3433: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3434: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3435: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3436: 'Invoice_id = '|| to_char(p_invoice_id));
3429: EXCEPTION
3430: WHEN OTHERS THEN
3431: IF (SQLCODE <> -20001) THEN
3432: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3433: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3434: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3435: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3436: 'Invoice_id = '|| to_char(p_invoice_id));
3437: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3430: WHEN OTHERS THEN
3431: IF (SQLCODE <> -20001) THEN
3432: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3433: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3434: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3435: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3436: 'Invoice_id = '|| to_char(p_invoice_id));
3437: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3438: END IF;
3431: IF (SQLCODE <> -20001) THEN
3432: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3433: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3434: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3435: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3436: 'Invoice_id = '|| to_char(p_invoice_id));
3437: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3438: END IF;
3439:
3433: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3434: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3435: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3436: 'Invoice_id = '|| to_char(p_invoice_id));
3437: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3438: END IF;
3439:
3440: IF ( Dist_Var_Cur%ISOPEN ) THEN
3441: CLOSE Dist_Var_Cur;
3593:
3594: EXCEPTION
3595: WHEN OTHERS THEN
3596: IF (SQLCODE <> -20001) THEN
3597: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3598: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3599: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3600: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3601: 'Invoice_id = '|| to_char(p_invoice_id));
3594: EXCEPTION
3595: WHEN OTHERS THEN
3596: IF (SQLCODE <> -20001) THEN
3597: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3598: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3599: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3600: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3601: 'Invoice_id = '|| to_char(p_invoice_id));
3602: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3595: WHEN OTHERS THEN
3596: IF (SQLCODE <> -20001) THEN
3597: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3598: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3599: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3600: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3601: 'Invoice_id = '|| to_char(p_invoice_id));
3602: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3603: END IF;
3596: IF (SQLCODE <> -20001) THEN
3597: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3598: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3599: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3600: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3601: 'Invoice_id = '|| to_char(p_invoice_id));
3602: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3603: END IF;
3604: IF ( Line_Var_Cur%ISOPEN ) THEN
3598: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3599: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3600: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3601: 'Invoice_id = '|| to_char(p_invoice_id));
3602: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3603: END IF;
3604: IF ( Line_Var_Cur%ISOPEN ) THEN
3605: CLOSE Line_Var_Cur;
3606: END IF;
3763:
3764: EXCEPTION
3765: WHEN OTHERS THEN
3766: IF (SQLCODE <> -20001) THEN
3767: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3768: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3769: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3770: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3771: 'Invoice_id = '|| to_char(p_invoice_id));
3764: EXCEPTION
3765: WHEN OTHERS THEN
3766: IF (SQLCODE <> -20001) THEN
3767: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3768: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3769: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3770: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3771: 'Invoice_id = '|| to_char(p_invoice_id));
3772: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3765: WHEN OTHERS THEN
3766: IF (SQLCODE <> -20001) THEN
3767: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3768: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3769: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3770: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3771: 'Invoice_id = '|| to_char(p_invoice_id));
3772: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3773: END IF;
3766: IF (SQLCODE <> -20001) THEN
3767: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3768: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3769: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3770: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3771: 'Invoice_id = '|| to_char(p_invoice_id));
3772: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3773: END IF;
3774: APP_EXCEPTION.RAISE_EXCEPTION;
3768: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3769: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3770: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3771: 'Invoice_id = '|| to_char(p_invoice_id));
3772: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3773: END IF;
3774: APP_EXCEPTION.RAISE_EXCEPTION;
3775: END Line_Base_Amount_Calculation;
3776:
3917:
3918: EXCEPTION
3919: WHEN OTHERS THEN
3920: IF (SQLCODE <> -20001) THEN
3921: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3922: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3923: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3924: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3925: 'Invoice_id = '|| to_char(p_invoice_id));
3918: EXCEPTION
3919: WHEN OTHERS THEN
3920: IF (SQLCODE <> -20001) THEN
3921: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3922: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3923: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3924: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3925: 'Invoice_id = '|| to_char(p_invoice_id));
3926: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3919: WHEN OTHERS THEN
3920: IF (SQLCODE <> -20001) THEN
3921: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3922: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3923: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3924: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3925: 'Invoice_id = '|| to_char(p_invoice_id));
3926: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3927: END IF;
3920: IF (SQLCODE <> -20001) THEN
3921: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3922: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3923: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3924: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3925: 'Invoice_id = '|| to_char(p_invoice_id));
3926: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3927: END IF;
3928: APP_EXCEPTION.RAISE_EXCEPTION;
3922: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3923: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3924: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3925: 'Invoice_id = '|| to_char(p_invoice_id));
3926: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3927: END IF;
3928: APP_EXCEPTION.RAISE_EXCEPTION;
3929: END Dist_Base_Amount_Calculation;
3930:
4005:
4006: EXCEPTION
4007: WHEN OTHERS THEN
4008: IF (SQLCODE <> -20001) THEN
4009: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4010: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4011: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4012: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4013: 'Invoice_id = '|| to_char(p_invoice_id));
4006: EXCEPTION
4007: WHEN OTHERS THEN
4008: IF (SQLCODE <> -20001) THEN
4009: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4010: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4011: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4012: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4013: 'Invoice_id = '|| to_char(p_invoice_id));
4014: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4007: WHEN OTHERS THEN
4008: IF (SQLCODE <> -20001) THEN
4009: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4010: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4011: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4012: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4013: 'Invoice_id = '|| to_char(p_invoice_id));
4014: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4015: END IF;
4008: IF (SQLCODE <> -20001) THEN
4009: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4010: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4011: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4012: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4013: 'Invoice_id = '|| to_char(p_invoice_id));
4014: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4015: END IF;
4016: APP_EXCEPTION.RAISE_EXCEPTION;
4010: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4011: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4012: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4013: 'Invoice_id = '|| to_char(p_invoice_id));
4014: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4015: END IF;
4016: APP_EXCEPTION.RAISE_EXCEPTION;
4017: END Generate_Account_Event;
4018:
4107:
4108: EXCEPTION
4109: WHEN OTHERS THEN
4110: IF (SQLCODE <> -20001) THEN
4111: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4112: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4113: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4114: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4115: 'Invoice_id = '|| to_char(p_invoice_id));
4108: EXCEPTION
4109: WHEN OTHERS THEN
4110: IF (SQLCODE <> -20001) THEN
4111: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4112: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4113: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4114: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4115: 'Invoice_id = '|| to_char(p_invoice_id));
4116: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4109: WHEN OTHERS THEN
4110: IF (SQLCODE <> -20001) THEN
4111: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4112: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4113: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4114: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4115: 'Invoice_id = '|| to_char(p_invoice_id));
4116: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4117: END IF;
4110: IF (SQLCODE <> -20001) THEN
4111: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4112: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4113: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4114: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4115: 'Invoice_id = '|| to_char(p_invoice_id));
4116: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4117: END IF;
4118: APP_EXCEPTION.RAISE_EXCEPTION;
4112: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4113: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4114: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4115: 'Invoice_id = '|| to_char(p_invoice_id));
4116: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4117: END IF;
4118: APP_EXCEPTION.RAISE_EXCEPTION;
4119: END Check_Prepaid_Amount;
4120:
4227:
4228: EXCEPTION
4229: WHEN OTHERS THEN
4230: IF (SQLCODE <> -20001) THEN
4231: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4232: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4233: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4234: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4235: 'Invoice_id = '|| to_char(p_invoice_id)
4228: EXCEPTION
4229: WHEN OTHERS THEN
4230: IF (SQLCODE <> -20001) THEN
4231: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4232: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4233: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4234: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4235: 'Invoice_id = '|| to_char(p_invoice_id)
4236: ||', Base Currency Code = '|| p_base_currency_code
4229: WHEN OTHERS THEN
4230: IF (SQLCODE <> -20001) THEN
4231: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4232: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4233: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4234: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4235: 'Invoice_id = '|| to_char(p_invoice_id)
4236: ||', Base Currency Code = '|| p_base_currency_code
4237: ||', Invoice Currency Code = '|| p_invoice_currency_code
4230: IF (SQLCODE <> -20001) THEN
4231: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4232: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4233: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4234: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4235: 'Invoice_id = '|| to_char(p_invoice_id)
4236: ||', Base Currency Code = '|| p_base_currency_code
4237: ||', Invoice Currency Code = '|| p_invoice_currency_code
4238: ||', Invoice Amount = '|| to_char(p_invoice_amount)
4238: ||', Invoice Amount = '|| to_char(p_invoice_amount)
4239: ||', Base Amount = '|| to_char(p_base_amount)
4240: ||', Invoice Amount Limit = '|| to_char(p_invoice_amount_limit)
4241: ||', Hold Future Payments Flag = '|| p_hold_future_payments_flag);
4242: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4243: END IF;
4244: APP_EXCEPTION.RAISE_EXCEPTION;
4245: END Check_invoice_vendor;
4246:
4404: WHEN NO_DATA_FOUND THEN
4405: return(FALSE);
4406: WHEN OTHERS THEN
4407: IF (SQLCODE <> -20001) THEN
4408: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4409: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4410: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4411: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4412: 'Invoice_id = '|| to_char(p_invoice_id));
4405: return(FALSE);
4406: WHEN OTHERS THEN
4407: IF (SQLCODE <> -20001) THEN
4408: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4409: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4410: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4411: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4412: 'Invoice_id = '|| to_char(p_invoice_id));
4413: END IF;
4406: WHEN OTHERS THEN
4407: IF (SQLCODE <> -20001) THEN
4408: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4409: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4410: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4411: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4412: 'Invoice_id = '|| to_char(p_invoice_id));
4413: END IF;
4414: APP_EXCEPTION.RAISE_EXCEPTION;
4407: IF (SQLCODE <> -20001) THEN
4408: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4409: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4410: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4411: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4412: 'Invoice_id = '|| to_char(p_invoice_id));
4413: END IF;
4414: APP_EXCEPTION.RAISE_EXCEPTION;
4415: END Get_Inv_Matched_Status;
4665:
4666: EXCEPTION
4667: WHEN OTHERS THEN
4668: IF (SQLCODE <> -20001) THEN
4669: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4670: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4671: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4672: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4673: 'Invoice_id = '|| to_char(p_invoice_id)
4666: EXCEPTION
4667: WHEN OTHERS THEN
4668: IF (SQLCODE <> -20001) THEN
4669: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4670: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4671: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4672: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4673: 'Invoice_id = '|| to_char(p_invoice_id)
4674: ||', Dist_line_num = '|| p_gl_date_from_receipt
4667: WHEN OTHERS THEN
4668: IF (SQLCODE <> -20001) THEN
4669: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4670: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4671: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4672: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4673: 'Invoice_id = '|| to_char(p_invoice_id)
4674: ||', Dist_line_num = '|| p_gl_date_from_receipt
4675: ||', Packet_id = '|| p_last_updated_by
4668: IF (SQLCODE <> -20001) THEN
4669: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4670: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4671: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4672: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4673: 'Invoice_id = '|| to_char(p_invoice_id)
4674: ||', Dist_line_num = '|| p_gl_date_from_receipt
4675: ||', Packet_id = '|| p_last_updated_by
4676: ||', Fundscheck mode = '|| p_last_update_login
4676: ||', Fundscheck mode = '|| p_last_update_login
4677: ||', Dist_line_num = '|| to_char(p_program_application_id)
4678: ||', Dist_line_num = '|| to_char(p_program_id)
4679: ||', Dist_line_num = '|| to_char(p_request_id));
4680: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4681: END IF;
4682: APP_EXCEPTION.RAISE_EXCEPTION;
4683: END Withhold_Tax_On;
4684:
4818:
4819: EXCEPTION
4820: WHEN OTHERS THEN
4821: IF (SQLCODE <> -20001) THEN
4822: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4823: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4825: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4826: 'Invoice_id = '|| to_char(p_invoice_id)
4819: EXCEPTION
4820: WHEN OTHERS THEN
4821: IF (SQLCODE <> -20001) THEN
4822: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4823: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4825: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4826: 'Invoice_id = '|| to_char(p_invoice_id)
4827: || 'Run Option = ' || p_user_id);
4820: WHEN OTHERS THEN
4821: IF (SQLCODE <> -20001) THEN
4822: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4823: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4825: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4826: 'Invoice_id = '|| to_char(p_invoice_id)
4827: || 'Run Option = ' || p_user_id);
4828: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4821: IF (SQLCODE <> -20001) THEN
4822: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4823: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4825: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4826: 'Invoice_id = '|| to_char(p_invoice_id)
4827: || 'Run Option = ' || p_user_id);
4828: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4829: END IF;
4824: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4825: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4826: 'Invoice_id = '|| to_char(p_invoice_id)
4827: || 'Run Option = ' || p_user_id);
4828: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4829: END IF;
4830: APP_EXCEPTION.RAISE_EXCEPTION;
4831: END Update_Inv_Dists_To_Approved;
4832:
4986:
4987: EXCEPTION
4988: WHEN OTHERS THEN
4989: IF (SQLCODE <> -20001) THEN
4990: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4991: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4992: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4993: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4994: 'Invoice_id = '|| to_char(p_invoice_id)
4987: EXCEPTION
4988: WHEN OTHERS THEN
4989: IF (SQLCODE <> -20001) THEN
4990: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4991: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4992: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4993: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4994: 'Invoice_id = '|| to_char(p_invoice_id)
4995: ||', Line_Location_id = '|| to_char(p_line_location_id)
4988: WHEN OTHERS THEN
4989: IF (SQLCODE <> -20001) THEN
4990: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4991: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4992: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4993: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4994: 'Invoice_id = '|| to_char(p_invoice_id)
4995: ||', Line_Location_id = '|| to_char(p_line_location_id)
4996: ||', Hold_code = '|| p_hold_lookup_code
4989: IF (SQLCODE <> -20001) THEN
4990: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4991: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4992: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4993: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4994: 'Invoice_id = '|| to_char(p_invoice_id)
4995: ||', Line_Location_id = '|| to_char(p_line_location_id)
4996: ||', Hold_code = '|| p_hold_lookup_code
4997: ||', Hold_reason = '|| p_hold_reason
4995: ||', Line_Location_id = '|| to_char(p_line_location_id)
4996: ||', Hold_code = '|| p_hold_lookup_code
4997: ||', Hold_reason = '|| p_hold_reason
4998: ||', Should_have_hold = '|| p_should_have_hold);
4999: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5000: END IF;
5001: APP_EXCEPTION.RAISE_EXCEPTION;
5002: END Process_Inv_Hold_Status;
5003:
5097:
5098: EXCEPTION
5099: WHEN OTHERS THEN
5100: IF (SQLCODE <> -20001) THEN
5101: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5102: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5103: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5104: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5105: 'Invoice_id = '|| to_char(p_invoice_id)
5098: EXCEPTION
5099: WHEN OTHERS THEN
5100: IF (SQLCODE <> -20001) THEN
5101: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5102: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5103: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5104: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5105: 'Invoice_id = '|| to_char(p_invoice_id)
5106: ||', Line Location Id = '|| to_char(p_line_location_id)
5099: WHEN OTHERS THEN
5100: IF (SQLCODE <> -20001) THEN
5101: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5102: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5103: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5104: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5105: 'Invoice_id = '|| to_char(p_invoice_id)
5106: ||', Line Location Id = '|| to_char(p_line_location_id)
5107: ||', System_User_id = '|| to_char(p_system_user)
5100: IF (SQLCODE <> -20001) THEN
5101: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5102: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5103: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5104: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5105: 'Invoice_id = '|| to_char(p_invoice_id)
5106: ||', Line Location Id = '|| to_char(p_line_location_id)
5107: ||', System_User_id = '|| to_char(p_system_user)
5108: ||', Hold Code = '|| p_hold_lookup_code);
5213:
5214: EXCEPTION
5215: WHEN OTHERS THEN
5216: IF (SQLCODE <> -20001) THEN
5217: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5218: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5219: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5220: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5221: 'Invoice_id = '|| to_char(p_invoice_id)
5214: EXCEPTION
5215: WHEN OTHERS THEN
5216: IF (SQLCODE <> -20001) THEN
5217: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5218: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5219: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5220: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5221: 'Invoice_id = '|| to_char(p_invoice_id)
5222: ||', Hold_Code = '|| p_hold_lookup_code
5215: WHEN OTHERS THEN
5216: IF (SQLCODE <> -20001) THEN
5217: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5218: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5219: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5220: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5221: 'Invoice_id = '|| to_char(p_invoice_id)
5222: ||', Hold_Code = '|| p_hold_lookup_code
5223: ||', Line Location Id = '|| (p_line_location_id));
5216: IF (SQLCODE <> -20001) THEN
5217: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5218: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5219: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5220: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5221: 'Invoice_id = '|| to_char(p_invoice_id)
5222: ||', Hold_Code = '|| p_hold_lookup_code
5223: ||', Line Location Id = '|| (p_line_location_id));
5224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5220: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5221: 'Invoice_id = '|| to_char(p_invoice_id)
5222: ||', Hold_Code = '|| p_hold_lookup_code
5223: ||', Line Location Id = '|| (p_line_location_id));
5224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5225: END IF;
5226: APP_EXCEPTION.RAISE_EXCEPTION;
5227: END Release_Hold;
5228:
5381:
5382: EXCEPTION
5383: WHEN OTHERS THEN
5384: IF (SQLCODE <> -20001) THEN
5385: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5386: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5387: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5388: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5389: 'Invoice_id = '|| to_char(p_invoice_id)
5382: EXCEPTION
5383: WHEN OTHERS THEN
5384: IF (SQLCODE <> -20001) THEN
5385: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5386: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5387: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5388: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5389: 'Invoice_id = '|| to_char(p_invoice_id)
5390: ||', Hold_Code = '|| p_hold_lookup_code
5383: WHEN OTHERS THEN
5384: IF (SQLCODE <> -20001) THEN
5385: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5386: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5387: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5388: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5389: 'Invoice_id = '|| to_char(p_invoice_id)
5390: ||', Hold_Code = '|| p_hold_lookup_code
5391: ||', Hold_Reason = '|| p_hold_reason);
5384: IF (SQLCODE <> -20001) THEN
5385: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5386: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5387: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5388: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5389: 'Invoice_id = '|| to_char(p_invoice_id)
5390: ||', Hold_Code = '|| p_hold_lookup_code
5391: ||', Hold_Reason = '|| p_hold_reason);
5392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5388: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5389: 'Invoice_id = '|| to_char(p_invoice_id)
5390: ||', Hold_Code = '|| p_hold_lookup_code
5391: ||', Hold_Reason = '|| p_hold_reason);
5392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5393: END IF;
5394: APP_EXCEPTION.RAISE_EXCEPTION;
5395: END Set_Hold;
5396:
5445:
5446: EXCEPTION
5447: WHEN OTHERS THEN
5448: IF (SQLCODE <> -20001) THEN
5449: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5450: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5451: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5452: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5453: 'Hold Code = '|| p_hold_lookup_code);
5446: EXCEPTION
5447: WHEN OTHERS THEN
5448: IF (SQLCODE <> -20001) THEN
5449: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5450: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5451: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5452: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5453: 'Hold Code = '|| p_hold_lookup_code);
5454: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5447: WHEN OTHERS THEN
5448: IF (SQLCODE <> -20001) THEN
5449: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5450: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5451: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5452: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5453: 'Hold Code = '|| p_hold_lookup_code);
5454: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5455: END IF;
5448: IF (SQLCODE <> -20001) THEN
5449: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5450: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5451: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5452: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5453: 'Hold Code = '|| p_hold_lookup_code);
5454: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5455: END IF;
5456: APP_EXCEPTION.RAISE_EXCEPTION;
5450: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5451: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5452: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5453: 'Hold Code = '|| p_hold_lookup_code);
5454: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5455: END IF;
5456: APP_EXCEPTION.RAISE_EXCEPTION;
5457: END Count_Hold;
5458:
5592: END IF;
5593:
5594: EXCEPTION
5595: WHEN Invalid_Hold THEN
5596: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5597: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5598: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5599: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5600: 'Hold Code = '|| p_hold_lookup_code
5593:
5594: EXCEPTION
5595: WHEN Invalid_Hold THEN
5596: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5597: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5598: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5599: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5600: 'Hold Code = '|| p_hold_lookup_code
5601: ||', Release Code = '|| p_release_lookup_code);
5594: EXCEPTION
5595: WHEN Invalid_Hold THEN
5596: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5597: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5598: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5599: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5600: 'Hold Code = '|| p_hold_lookup_code
5601: ||', Release Code = '|| p_release_lookup_code);
5602: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5595: WHEN Invalid_Hold THEN
5596: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5597: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5598: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5599: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5600: 'Hold Code = '|| p_hold_lookup_code
5601: ||', Release Code = '|| p_release_lookup_code);
5602: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5603: APP_EXCEPTION.RAISE_EXCEPTION;
5598: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5599: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5600: 'Hold Code = '|| p_hold_lookup_code
5601: ||', Release Code = '|| p_release_lookup_code);
5602: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5603: APP_EXCEPTION.RAISE_EXCEPTION;
5604: WHEN OTHERS THEN
5605: IF (SQLCODE <> -20001) THEN
5606: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5602: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5603: APP_EXCEPTION.RAISE_EXCEPTION;
5604: WHEN OTHERS THEN
5605: IF (SQLCODE <> -20001) THEN
5606: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5607: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5608: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5609: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5610: 'Hold Code = '|| p_hold_lookup_code
5603: APP_EXCEPTION.RAISE_EXCEPTION;
5604: WHEN OTHERS THEN
5605: IF (SQLCODE <> -20001) THEN
5606: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5607: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5608: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5609: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5610: 'Hold Code = '|| p_hold_lookup_code
5611: ||', Release Code = '|| p_release_lookup_code);
5604: WHEN OTHERS THEN
5605: IF (SQLCODE <> -20001) THEN
5606: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5607: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5608: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5609: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5610: 'Hold Code = '|| p_hold_lookup_code
5611: ||', Release Code = '|| p_release_lookup_code);
5612: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5605: IF (SQLCODE <> -20001) THEN
5606: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5607: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5608: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5609: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5610: 'Hold Code = '|| p_hold_lookup_code
5611: ||', Release Code = '|| p_release_lookup_code);
5612: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5613: END IF;
5608: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5609: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5610: 'Hold Code = '|| p_hold_lookup_code
5611: ||', Release Code = '|| p_release_lookup_code);
5612: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5613: END IF;
5614: APP_EXCEPTION.RAISE_EXCEPTION;
5615: END Get_Release_Lookup_For_Hold;
5616:
5674:
5675: EXCEPTION
5676: WHEN OTHERS THEN
5677: IF (SQLCODE <> -20001) THEN
5678: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5679: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5680: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5681: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5682: 'Hold Code = '|| to_char(p_invoice_id));
5675: EXCEPTION
5676: WHEN OTHERS THEN
5677: IF (SQLCODE <> -20001) THEN
5678: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5679: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5680: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5681: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5682: 'Hold Code = '|| to_char(p_invoice_id));
5683: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5676: WHEN OTHERS THEN
5677: IF (SQLCODE <> -20001) THEN
5678: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5679: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5680: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5681: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5682: 'Hold Code = '|| to_char(p_invoice_id));
5683: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5684: END IF;
5677: IF (SQLCODE <> -20001) THEN
5678: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5679: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5680: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5681: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5682: 'Hold Code = '|| to_char(p_invoice_id));
5683: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5684: END IF;
5685: APP_EXCEPTION.RAISE_EXCEPTION;
5679: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5680: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5681: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5682: 'Hold Code = '|| to_char(p_invoice_id));
5683: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5684: END IF;
5685: APP_EXCEPTION.RAISE_EXCEPTION;
5686: END Get_Invoice_Statuses;
5687:
6149:
6150: EXCEPTION
6151: WHEN OTHERS THEN
6152: IF (SQLCODE <> -20001) THEN
6153: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6154: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6155: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6156: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6157: ', Invoice Id = '|| to_char(p_invoice_id)
6150: EXCEPTION
6151: WHEN OTHERS THEN
6152: IF (SQLCODE <> -20001) THEN
6153: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6154: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6155: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6156: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6157: ', Invoice Id = '|| to_char(p_invoice_id)
6158: ||', Exclude Tax from Discount = '|| p_exclude_tax_from_discount
6151: WHEN OTHERS THEN
6152: IF (SQLCODE <> -20001) THEN
6153: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6154: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6155: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6156: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6157: ', Invoice Id = '|| to_char(p_invoice_id)
6158: ||', Exclude Tax from Discount = '|| p_exclude_tax_from_discount
6159: ||', Invoice Type = '|| p_invoice_type_lookup_code );
6152: IF (SQLCODE <> -20001) THEN
6153: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6154: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6155: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6156: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6157: ', Invoice Id = '|| to_char(p_invoice_id)
6158: ||', Exclude Tax from Discount = '|| p_exclude_tax_from_discount
6159: ||', Invoice Type = '|| p_invoice_type_lookup_code );
6160: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6156: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6157: ', Invoice Id = '|| to_char(p_invoice_id)
6158: ||', Exclude Tax from Discount = '|| p_exclude_tax_from_discount
6159: ||', Invoice Type = '|| p_invoice_type_lookup_code );
6160: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6161: END IF;
6162: APP_EXCEPTION.RAISE_EXCEPTION;
6163:
6164: END Exclude_Tax_Freight_From_Disc;
6335:
6336: EXCEPTION
6337: WHEN OTHERS then
6338: if (SQLCODE <> -20001 ) then
6339: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6340: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6341: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
6342:
6343: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
6336: EXCEPTION
6337: WHEN OTHERS then
6338: if (SQLCODE <> -20001 ) then
6339: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6340: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6341: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
6342:
6343: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
6344: ||' Apply_amount = '||TO_CHAR(p_apply_amount)
6337: WHEN OTHERS then
6338: if (SQLCODE <> -20001 ) then
6339: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6340: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6341: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
6342:
6343: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
6344: ||' Apply_amount = '||TO_CHAR(p_apply_amount)
6345: ||' Amount_positive = '||p_amount_positive
6339: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6340: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6341: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
6342:
6343: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id)
6344: ||' Apply_amount = '||TO_CHAR(p_apply_amount)
6345: ||' Amount_positive = '||p_amount_positive
6346: ||' Apply_amount_remaining = '||
6347: TO_CHAR(l_apply_amount_remaining)
6350: ||' User_id = '||TO_CHAR(p_user_id)
6351: ||' Last_update_login = '||TO_CHAR(p_last_update_login)
6352: ||' Payment_Currency_code = '||p_payment_currency_code);
6353:
6354: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6355:
6356: end if;
6357:
6358: APP_EXCEPTION.RAISE_EXCEPTION;
6462:
6463: EXCEPTION
6464: when OTHERS then
6465: IF (SQLCODE <> -20001) THEN
6466: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6467: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6468: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
6469: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6470: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
6463: EXCEPTION
6464: when OTHERS then
6465: IF (SQLCODE <> -20001) THEN
6466: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6467: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6468: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
6469: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6470: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
6471: ', Calling module = ' || 'Manual_withhold_tax' );
6464: when OTHERS then
6465: IF (SQLCODE <> -20001) THEN
6466: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6467: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6468: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
6469: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6470: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
6471: ', Calling module = ' || 'Manual_withhold_tax' );
6472: END IF;
6465: IF (SQLCODE <> -20001) THEN
6466: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6467: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6468: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
6469: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6470: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
6471: ', Calling module = ' || 'Manual_withhold_tax' );
6472: END IF;
6473: APP_EXCEPTION.RAISE_EXCEPTION;
6573:
6574: EXCEPTION
6575: when OTHERS then
6576: IF (SQLCODE <> -20001) THEN
6577: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6578: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6579: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
6580: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6581: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
6574: EXCEPTION
6575: when OTHERS then
6576: IF (SQLCODE <> -20001) THEN
6577: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6578: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6579: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
6580: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6581: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
6582: ', Calling module = ' || 'Update_Pay_Sched_For_Awt' );
6575: when OTHERS then
6576: IF (SQLCODE <> -20001) THEN
6577: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6578: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6579: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
6580: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6581: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
6582: ', Calling module = ' || 'Update_Pay_Sched_For_Awt' );
6583: END IF;
6576: IF (SQLCODE <> -20001) THEN
6577: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6578: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6579: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',p_calling_sequence);
6580: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6581: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
6582: ', Calling module = ' || 'Update_Pay_Sched_For_Awt' );
6583: END IF;
6584: APP_EXCEPTION.RAISE_EXCEPTION;
6693:
6694: EXCEPTION
6695: when OTHERS then
6696: IF (SQLCODE <> -20001) THEN
6697: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6698: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6699: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6700: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6701: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
6694: EXCEPTION
6695: when OTHERS then
6696: IF (SQLCODE <> -20001) THEN
6697: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6698: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6699: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6700: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6701: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
6702: ', Calling module = ' || 'createPaymentSchedules' );
6695: when OTHERS then
6696: IF (SQLCODE <> -20001) THEN
6697: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6698: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6699: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6700: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6701: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
6702: ', Calling module = ' || 'createPaymentSchedules' );
6703: END IF;
6696: IF (SQLCODE <> -20001) THEN
6697: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6698: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6699: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6700: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6701: ' Invoice Id = ' || to_char(P_Invoice_Id) ||
6702: ', Calling module = ' || 'createPaymentSchedules' );
6703: END IF;
6704: APP_EXCEPTION.RAISE_EXCEPTION;
6738:
6739: EXCEPTION
6740: WHEN OTHERS then
6741: IF (SQLCODE <> -20001) THEN
6742: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6743: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6744: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6745: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6746: ' Application Id = ' || to_char(P_Application_Id) );
6739: EXCEPTION
6740: WHEN OTHERS then
6741: IF (SQLCODE <> -20001) THEN
6742: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6743: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6744: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6745: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6746: ' Application Id = ' || to_char(P_Application_Id) );
6747: END IF;
6740: WHEN OTHERS then
6741: IF (SQLCODE <> -20001) THEN
6742: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6743: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6744: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6745: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6746: ' Application Id = ' || to_char(P_Application_Id) );
6747: END IF;
6748: APP_EXCEPTION.RAISE_EXCEPTION;
6741: IF (SQLCODE <> -20001) THEN
6742: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6743: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6744: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6745: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6746: ' Application Id = ' || to_char(P_Application_Id) );
6747: END IF;
6748: APP_EXCEPTION.RAISE_EXCEPTION;
6749:
7029: IF (SQLCODE <> -20001) THEN
7030: l_debug_info := 'In others exception '||sqlerrm;
7031: Print_Debug(l_api_name,l_debug_info);
7032:
7033: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7034: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7035: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
7036: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7037: ' Invoice Id = ' || to_char(P_invoice_line_rec.Invoice_Id) ||
7030: l_debug_info := 'In others exception '||sqlerrm;
7031: Print_Debug(l_api_name,l_debug_info);
7032:
7033: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7034: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7035: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
7036: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7037: ' Invoice Id = ' || to_char(P_invoice_line_rec.Invoice_Id) ||
7038: ', Invoice Line Number = '||to_char(p_invoice_line_rec.Line_Number) ||
7031: Print_Debug(l_api_name,l_debug_info);
7032:
7033: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7034: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7035: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
7036: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7037: ' Invoice Id = ' || to_char(P_invoice_line_rec.Invoice_Id) ||
7038: ', Invoice Line Number = '||to_char(p_invoice_line_rec.Line_Number) ||
7039: ', Registration Api = '||P_Registration_Api ||
7032:
7033: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
7034: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
7035: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
7036: FND_MESSAGE.SET_TOKEN('PARAMETERS',
7037: ' Invoice Id = ' || to_char(P_invoice_line_rec.Invoice_Id) ||
7038: ', Invoice Line Number = '||to_char(p_invoice_line_rec.Line_Number) ||
7039: ', Registration Api = '||P_Registration_Api ||
7040: ', Registration View = '||P_Registration_View);
7389: p_debug_switch
7390: );
7391: /*commented for bug 6858309
7392: ELSE
7393: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
7394: fnd_message.set_token('INV_NUM', l_invoice_num);
7395: fnd_file.put_line(fnd_file.log, fnd_message.get);
7396: END IF; */
7397:
7390: );
7391: /*commented for bug 6858309
7392: ELSE
7393: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
7394: fnd_message.set_token('INV_NUM', l_invoice_num);
7395: fnd_file.put_line(fnd_file.log, fnd_message.get);
7396: END IF; */
7397:
7398: UPDATE ap_invoices_all
7391: /*commented for bug 6858309
7392: ELSE
7393: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
7394: fnd_message.set_token('INV_NUM', l_invoice_num);
7395: fnd_file.put_line(fnd_file.log, fnd_message.get);
7396: END IF; */
7397:
7398: UPDATE ap_invoices_all
7399: SET validation_request_id = NULL
7401:
7402: END IF;
7403:
7404: ELSE /*bug6858309- changed location of the call*/
7405: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
7406: fnd_message.set_token('INV_NUM', l_invoice_num);
7407: fnd_file.put_line(fnd_file.log, fnd_message.get);
7408:
7409: END IF; --if validate_period(p_invoice_id)
7402: END IF;
7403:
7404: ELSE /*bug6858309- changed location of the call*/
7405: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
7406: fnd_message.set_token('INV_NUM', l_invoice_num);
7407: fnd_file.put_line(fnd_file.log, fnd_message.get);
7408:
7409: END IF; --if validate_period(p_invoice_id)
7410:
7403:
7404: ELSE /*bug6858309- changed location of the call*/
7405: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
7406: fnd_message.set_token('INV_NUM', l_invoice_num);
7407: fnd_file.put_line(fnd_file.log, fnd_message.get);
7408:
7409: END IF; --if validate_period(p_invoice_id)
7410:
7411: ---------------------------------------------------------------------
7739: 'APXAPRVL',
7740: p_debug_switch
7741: );
7742: ELSE
7743: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
7744: fnd_message.set_token('INV_NUM', l_invoice_num);
7745: fnd_file.put_line(fnd_file.log, fnd_message.get);
7746: END IF;
7747:
7740: p_debug_switch
7741: );
7742: ELSE
7743: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
7744: fnd_message.set_token('INV_NUM', l_invoice_num);
7745: fnd_file.put_line(fnd_file.log, fnd_message.get);
7746: END IF;
7747:
7748: END IF;
7741: );
7742: ELSE
7743: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
7744: fnd_message.set_token('INV_NUM', l_invoice_num);
7745: fnd_file.put_line(fnd_file.log, fnd_message.get);
7746: END IF;
7747:
7748: END IF;
7749: -- BUG 7509921 Update Validation Request id to null
7943: 'APXAPRVL',
7944: p_debug_switch
7945: );
7946: ELSE
7947: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
7948: fnd_message.set_token('INV_NUM', l_invoice_num);
7949: fnd_file.put_line(fnd_file.log, fnd_message.get);
7950: END IF;
7951:
7944: p_debug_switch
7945: );
7946: ELSE
7947: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
7948: fnd_message.set_token('INV_NUM', l_invoice_num);
7949: fnd_file.put_line(fnd_file.log, fnd_message.get);
7950: END IF;
7951:
7952: END IF;
7945: );
7946: ELSE
7947: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
7948: fnd_message.set_token('INV_NUM', l_invoice_num);
7949: fnd_file.put_line(fnd_file.log, fnd_message.get);
7950: END IF;
7951:
7952: END IF;
7953: -- BUG 7509921 Update Validation Request id to null
8055: p_debug_switch
8056: );
8057:
8058: ELSE
8059: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
8060: fnd_message.set_token('INV_NUM', AP_APPROVAL_PKG.G_SELECTED_INVOICES(i).invoice_num);
8061: fnd_file.put_line(fnd_file.log, fnd_message.get);
8062: END IF;
8063:
8056: );
8057:
8058: ELSE
8059: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
8060: fnd_message.set_token('INV_NUM', AP_APPROVAL_PKG.G_SELECTED_INVOICES(i).invoice_num);
8061: fnd_file.put_line(fnd_file.log, fnd_message.get);
8062: END IF;
8063:
8064: -- Update Validation Request_ID to NULL;
8057:
8058: ELSE
8059: fnd_message.set_name('SQLAP', 'AP_INV_NEVER_OPEN_PERIOD');
8060: fnd_message.set_token('INV_NUM', AP_APPROVAL_PKG.G_SELECTED_INVOICES(i).invoice_num);
8061: fnd_file.put_line(fnd_file.log, fnd_message.get);
8062: END IF;
8063:
8064: -- Update Validation Request_ID to NULL;
8065: UPDATE ap_invoices_all
8124: Print_Debug(l_api_name, 'Exception: '||sqlerrm);
8125:
8126: --Bug7246971
8127:
8128: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
8129: IF l_error_code IS NOT NULL THEN
8130: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
8131: ELSE
8132: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8126: --Bug7246971
8127:
8128: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
8129: IF l_error_code IS NOT NULL THEN
8130: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
8131: ELSE
8132: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8133: END IF;
8134: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8128: FND_MESSAGE.SET_NAME('SQLAP','AP_TAX_EXCEPTION');
8129: IF l_error_code IS NOT NULL THEN
8130: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
8131: ELSE
8132: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8133: END IF;
8134: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8135: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8136: 'Run Option = '|| p_run_option
8130: FND_MESSAGE.SET_TOKEN('ERROR', l_error_code);
8131: ELSE
8132: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8133: END IF;
8134: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8135: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8136: 'Run Option = '|| p_run_option
8137: ||', Batch Id = '|| to_char(p_inv_batch_id)
8138: ||', Begin Date = '|| to_char(p_inv_start_date)
8131: ELSE
8132: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8133: END IF;
8134: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8135: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8136: 'Run Option = '|| p_run_option
8137: ||', Batch Id = '|| to_char(p_inv_batch_id)
8138: ||', Begin Date = '|| to_char(p_inv_start_date)
8139: ||', End Date = '|| to_char(p_inv_end_date)
8157:
8158: --Bug7246971
8159:
8160: IF (SQLCODE <> -20001) THEN
8161: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8162: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8163: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8164: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8165: 'Run Option = '|| p_run_option
8158: --Bug7246971
8159:
8160: IF (SQLCODE <> -20001) THEN
8161: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8162: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8163: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8164: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8165: 'Run Option = '|| p_run_option
8166: ||', Batch Id = '|| to_char(p_inv_batch_id)
8159:
8160: IF (SQLCODE <> -20001) THEN
8161: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8162: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8163: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8164: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8165: 'Run Option = '|| p_run_option
8166: ||', Batch Id = '|| to_char(p_inv_batch_id)
8167: ||', Begin Date = '|| to_char(p_inv_start_date)
8160: IF (SQLCODE <> -20001) THEN
8161: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8162: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8163: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8164: FND_MESSAGE.SET_TOKEN('PARAMETERS',
8165: 'Run Option = '|| p_run_option
8166: ||', Batch Id = '|| to_char(p_inv_batch_id)
8167: ||', Begin Date = '|| to_char(p_inv_start_date)
8168: ||', End Date = '|| to_char(p_inv_end_date)
8285:
8286: EXCEPTION
8287: WHEN OTHERS THEN
8288: IF (SQLCODE <> -20001) THEN
8289: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8290: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8291: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8292: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8293: END IF;
8286: EXCEPTION
8287: WHEN OTHERS THEN
8288: IF (SQLCODE <> -20001) THEN
8289: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8290: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8291: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8292: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8293: END IF;
8294:
8287: WHEN OTHERS THEN
8288: IF (SQLCODE <> -20001) THEN
8289: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8290: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8291: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8292: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8293: END IF;
8294:
8295: IF C_Options_Query%ISOPEN THEN
8288: IF (SQLCODE <> -20001) THEN
8289: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8290: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8291: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8292: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8293: END IF;
8294:
8295: IF C_Options_Query%ISOPEN THEN
8296: CLOSE C_Options_Query;
8371:
8372: EXCEPTION
8373: WHEN OTHERS THEN
8374: IF (SQLCODE <> -20001) THEN
8375: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8376: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8377: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8378: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8379: END IF;
8372: EXCEPTION
8373: WHEN OTHERS THEN
8374: IF (SQLCODE <> -20001) THEN
8375: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8376: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8377: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8378: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8379: END IF;
8380: APP_EXCEPTION.RAISE_EXCEPTION;
8373: WHEN OTHERS THEN
8374: IF (SQLCODE <> -20001) THEN
8375: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8376: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8377: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8378: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8379: END IF;
8380: APP_EXCEPTION.RAISE_EXCEPTION;
8381: END Cache_Tolerance_Templates;
8374: IF (SQLCODE <> -20001) THEN
8375: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8376: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8377: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8378: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8379: END IF;
8380: APP_EXCEPTION.RAISE_EXCEPTION;
8381: END Cache_Tolerance_Templates;
8382:
8770:
8771: EXCEPTION
8772: WHEN OTHERS THEN
8773: IF (SQLCODE <> -20001) THEN
8774: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8775: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8776: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8777: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
8778: END IF;
8771: EXCEPTION
8772: WHEN OTHERS THEN
8773: IF (SQLCODE <> -20001) THEN
8774: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8775: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8776: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8777: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
8778: END IF;
8779: APP_EXCEPTION.RAISE_EXCEPTION;
8772: WHEN OTHERS THEN
8773: IF (SQLCODE <> -20001) THEN
8774: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8775: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8776: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8777: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
8778: END IF;
8779: APP_EXCEPTION.RAISE_EXCEPTION;
8780: END Generate_Distributions;
8773: IF (SQLCODE <> -20001) THEN
8774: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8775: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8776: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
8777: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
8778: END IF;
8779: APP_EXCEPTION.RAISE_EXCEPTION;
8780: END Generate_Distributions;
8781:
8822:
8823: EXCEPTION
8824: WHEN OTHERS then
8825: if (SQLCODE <> -20001 ) then
8826: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8827: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8828: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8829: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id));
8830: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8823: EXCEPTION
8824: WHEN OTHERS then
8825: if (SQLCODE <> -20001 ) then
8826: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8827: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8828: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8829: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id));
8830: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8831: end if;
8824: WHEN OTHERS then
8825: if (SQLCODE <> -20001 ) then
8826: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8827: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8828: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8829: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id));
8830: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8831: end if;
8832:
8825: if (SQLCODE <> -20001 ) then
8826: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8827: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8828: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8829: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id));
8830: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8831: end if;
8832:
8833: APP_EXCEPTION.RAISE_EXCEPTION;
8826: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8827: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8828: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8829: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = '||TO_CHAR(p_invoice_id));
8830: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8831: end if;
8832:
8833: APP_EXCEPTION.RAISE_EXCEPTION;
8834:
8902:
8903: EXCEPTION
8904: WHEN OTHERS then
8905: if (SQLCODE <> -20001 ) then
8906: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8907: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8908: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8909: FND_MESSAGE.SET_TOKEN('PARAMETERS','Org_Id = '||to_char(p_org_id)
8910: ||' Hold = '||p_hold_lookup_code
8903: EXCEPTION
8904: WHEN OTHERS then
8905: if (SQLCODE <> -20001 ) then
8906: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8907: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8908: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8909: FND_MESSAGE.SET_TOKEN('PARAMETERS','Org_Id = '||to_char(p_org_id)
8910: ||' Hold = '||p_hold_lookup_code
8911: ||' Action = '||p_place_or_release);
8904: WHEN OTHERS then
8905: if (SQLCODE <> -20001 ) then
8906: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8907: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8908: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8909: FND_MESSAGE.SET_TOKEN('PARAMETERS','Org_Id = '||to_char(p_org_id)
8910: ||' Hold = '||p_hold_lookup_code
8911: ||' Action = '||p_place_or_release);
8912: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8905: if (SQLCODE <> -20001 ) then
8906: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
8907: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
8908: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8909: FND_MESSAGE.SET_TOKEN('PARAMETERS','Org_Id = '||to_char(p_org_id)
8910: ||' Hold = '||p_hold_lookup_code
8911: ||' Action = '||p_place_or_release);
8912: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8913: end if;
8908: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
8909: FND_MESSAGE.SET_TOKEN('PARAMETERS','Org_Id = '||to_char(p_org_id)
8910: ||' Hold = '||p_hold_lookup_code
8911: ||' Action = '||p_place_or_release);
8912: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
8913: end if;
8914:
8915: APP_EXCEPTION.RAISE_EXCEPTION;
8916: End Count_Org_Hold;