116:
117: EXCEPTION
118: WHEN OTHERS THEN
119: IF (SQLCODE <> -20001) THEN
120: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
121: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
122: END IF;
123: APP_EXCEPTION.RAISE_EXCEPTION;
124: END Encumbrance_Enabled;
117: EXCEPTION
118: WHEN OTHERS THEN
119: IF (SQLCODE <> -20001) THEN
120: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
121: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
122: END IF;
123: APP_EXCEPTION.RAISE_EXCEPTION;
124: END Encumbrance_Enabled;
125:
251:
252: EXCEPTION
253: WHEN OTHERS THEN
254: IF (SQLCODE <> -20001) THEN
255: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
256: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
257: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
258: FND_MESSAGE.SET_TOKEN('PARAMETERS',
259: 'Invoice_id ='|| p_invoice_id);
252: EXCEPTION
253: WHEN OTHERS THEN
254: IF (SQLCODE <> -20001) THEN
255: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
256: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
257: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
258: FND_MESSAGE.SET_TOKEN('PARAMETERS',
259: 'Invoice_id ='|| p_invoice_id);
260: END IF;
253: WHEN OTHERS THEN
254: IF (SQLCODE <> -20001) THEN
255: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
256: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
257: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
258: FND_MESSAGE.SET_TOKEN('PARAMETERS',
259: 'Invoice_id ='|| p_invoice_id);
260: END IF;
261: APP_EXCEPTION.RAISE_EXCEPTION;
254: IF (SQLCODE <> -20001) THEN
255: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
256: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
257: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
258: FND_MESSAGE.SET_TOKEN('PARAMETERS',
259: 'Invoice_id ='|| p_invoice_id);
260: END IF;
261: APP_EXCEPTION.RAISE_EXCEPTION;
262:
354:
355: EXCEPTION
356: WHEN OTHERS THEN
357: IF (SQLCODE <> -20001) THEN
358: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
359: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
360: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
361: FND_MESSAGE.SET_TOKEN('PARAMETERS',
362: 'Called_by = '|| p_called_by
355: EXCEPTION
356: WHEN OTHERS THEN
357: IF (SQLCODE <> -20001) THEN
358: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
359: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
360: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
361: FND_MESSAGE.SET_TOKEN('PARAMETERS',
362: 'Called_by = '|| p_called_by
363: ||', Mode = '|| p_bc_mode);
356: WHEN OTHERS THEN
357: IF (SQLCODE <> -20001) THEN
358: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
359: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
360: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
361: FND_MESSAGE.SET_TOKEN('PARAMETERS',
362: 'Called_by = '|| p_called_by
363: ||', Mode = '|| p_bc_mode);
364: END IF;
357: IF (SQLCODE <> -20001) THEN
358: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
359: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
360: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
361: FND_MESSAGE.SET_TOKEN('PARAMETERS',
362: 'Called_by = '|| p_called_by
363: ||', Mode = '|| p_bc_mode);
364: END IF;
365: APP_EXCEPTION.RAISE_EXCEPTION;
480: END IF;
481: EXCEPTION
482: WHEN OTHERS THEN
483: IF (SQLCODE <> -20001) THEN
484: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
485: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
486: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
487: FND_MESSAGE.SET_TOKEN('PARAMETERS',
488: 'Invoice_id = '|| to_char(p_invoice_id)
481: EXCEPTION
482: WHEN OTHERS THEN
483: IF (SQLCODE <> -20001) THEN
484: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
485: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
486: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
487: FND_MESSAGE.SET_TOKEN('PARAMETERS',
488: 'Invoice_id = '|| to_char(p_invoice_id)
489: ||', system_user = '|| to_char(p_system_user) );
482: WHEN OTHERS THEN
483: IF (SQLCODE <> -20001) THEN
484: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
485: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
486: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
487: FND_MESSAGE.SET_TOKEN('PARAMETERS',
488: 'Invoice_id = '|| to_char(p_invoice_id)
489: ||', system_user = '|| to_char(p_system_user) );
490: END IF;
483: IF (SQLCODE <> -20001) THEN
484: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
485: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
486: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
487: FND_MESSAGE.SET_TOKEN('PARAMETERS',
488: 'Invoice_id = '|| to_char(p_invoice_id)
489: ||', system_user = '|| to_char(p_system_user) );
490: END IF;
491: APP_EXCEPTION.RAISE_EXCEPTION;
593:
594: EXCEPTION
595: WHEN OTHERS THEN
596: IF (SQLCODE <> -20001) THEN
597: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
598: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
599: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
600: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
601: END IF;
594: EXCEPTION
595: WHEN OTHERS THEN
596: IF (SQLCODE <> -20001) THEN
597: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
598: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
599: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
600: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
601: END IF;
602: APP_EXCEPTION.RAISE_EXCEPTION;
595: WHEN OTHERS THEN
596: IF (SQLCODE <> -20001) THEN
597: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
598: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
599: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
600: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
601: END IF;
602: APP_EXCEPTION.RAISE_EXCEPTION;
603: END FundsCheck_Init;
596: IF (SQLCODE <> -20001) THEN
597: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
598: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
599: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
600: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
601: END IF;
602: APP_EXCEPTION.RAISE_EXCEPTION;
603: END FundsCheck_Init;
604:
666:
667: EXCEPTION
668: WHEN OTHERS THEN
669: IF (SQLCODE <> -20001) THEN
670: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
671: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
672: END IF;
673: APP_EXCEPTION.RAISE_EXCEPTION;
674: END Get_GL_FundsChk_Result_Code;
667: EXCEPTION
668: WHEN OTHERS THEN
669: IF (SQLCODE <> -20001) THEN
670: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
671: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
672: END IF;
673: APP_EXCEPTION.RAISE_EXCEPTION;
674: END Get_GL_FundsChk_Result_Code;
675:
1704: l_curr_calling_sequence);
1705:
1706: WHEN OTHERS THEN
1707: IF (SQLCODE <> -20001) THEN
1708: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1709: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1710: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1711: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1712: 'Invoice_id = '|| to_char(p_invoice_id)
1705:
1706: WHEN OTHERS THEN
1707: IF (SQLCODE <> -20001) THEN
1708: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1709: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1710: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1711: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1712: 'Invoice_id = '|| to_char(p_invoice_id)
1713: ||' Set of books id = '||to_char(p_set_of_books_id)
1706: WHEN OTHERS THEN
1707: IF (SQLCODE <> -20001) THEN
1708: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1709: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1710: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1711: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1712: 'Invoice_id = '|| to_char(p_invoice_id)
1713: ||' Set of books id = '||to_char(p_set_of_books_id)
1714: ||' System user = '||to_char(p_system_user));
1707: IF (SQLCODE <> -20001) THEN
1708: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1709: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1710: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1711: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1712: 'Invoice_id = '|| to_char(p_invoice_id)
1713: ||' Set of books id = '||to_char(p_set_of_books_id)
1714: ||' System user = '||to_char(p_system_user));
1715: END IF;
1893: END IF;
1894: EXCEPTION
1895: WHEN OTHERS THEN
1896: IF (SQLCODE <> -20001) THEN
1897: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1898: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1899: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1900: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1901: END IF;
1894: EXCEPTION
1895: WHEN OTHERS THEN
1896: IF (SQLCODE <> -20001) THEN
1897: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1898: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1899: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1900: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1901: END IF;
1902: APP_EXCEPTION.RAISE_EXCEPTION;
1895: WHEN OTHERS THEN
1896: IF (SQLCODE <> -20001) THEN
1897: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1898: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1899: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1900: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1901: END IF;
1902: APP_EXCEPTION.RAISE_EXCEPTION;
1903: END GET_ERV_CCID;
1896: IF (SQLCODE <> -20001) THEN
1897: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1898: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1899: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1900: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1901: END IF;
1902: APP_EXCEPTION.RAISE_EXCEPTION;
1903: END GET_ERV_CCID;
1904:
2307:
2308: EXCEPTION
2309: WHEN OTHERS THEN
2310: IF (SQLCODE <> -20001) THEN
2311: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2312: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2313: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2314: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2315: 'Invoice_id = '|| to_char(p_invoice_id)
2308: EXCEPTION
2309: WHEN OTHERS THEN
2310: IF (SQLCODE <> -20001) THEN
2311: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2312: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2313: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2314: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2315: 'Invoice_id = '|| to_char(p_invoice_id)
2316: ||', Po_dist_id = '|| to_char(p_po_dist_id)
2309: WHEN OTHERS THEN
2310: IF (SQLCODE <> -20001) THEN
2311: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2312: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2313: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2314: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2315: 'Invoice_id = '|| to_char(p_invoice_id)
2316: ||', Po_dist_id = '|| to_char(p_po_dist_id)
2317: ||', Inv_currency_code = '|| p_inv_currency_code
2310: IF (SQLCODE <> -20001) THEN
2311: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2312: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2313: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2314: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2315: 'Invoice_id = '|| to_char(p_invoice_id)
2316: ||', Po_dist_id = '|| to_char(p_po_dist_id)
2317: ||', Inv_currency_code = '|| p_inv_currency_code
2318: ||', Po_price = '|| to_char(p_po_price)
2316: ||', Po_dist_id = '|| to_char(p_po_dist_id)
2317: ||', Inv_currency_code = '|| p_inv_currency_code
2318: ||', Po_price = '|| to_char(p_po_price)
2319: ||', Po_qty = '|| to_char(p_po_qty));
2320: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2321: END IF;
2322: APP_EXCEPTION.RAISE_EXCEPTION;
2323: END Calc_QV;
2324:
2606:
2607: EXCEPTION
2608: WHEN OTHERS THEN
2609: IF (SQLCODE <> -20001) THEN
2610: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2611: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2612: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2613: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2614: 'Invoice_id = '|| to_char(p_invoice_id)
2607: EXCEPTION
2608: WHEN OTHERS THEN
2609: IF (SQLCODE <> -20001) THEN
2610: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2611: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2612: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2613: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2614: 'Invoice_id = '|| to_char(p_invoice_id)
2615: ||', Po_dist_id = '|| to_char(p_po_dist_id)
2608: WHEN OTHERS THEN
2609: IF (SQLCODE <> -20001) THEN
2610: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2611: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2612: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2613: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2614: 'Invoice_id = '|| to_char(p_invoice_id)
2615: ||', Po_dist_id = '|| to_char(p_po_dist_id)
2616: ||', Inv_currency_code = '|| p_inv_currency_code
2609: IF (SQLCODE <> -20001) THEN
2610: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2611: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2612: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2613: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2614: 'Invoice_id = '|| to_char(p_invoice_id)
2615: ||', Po_dist_id = '|| to_char(p_po_dist_id)
2616: ||', Inv_currency_code = '|| p_inv_currency_code
2617: ||', Po_amt = '|| to_char(p_po_amt));
2614: 'Invoice_id = '|| to_char(p_invoice_id)
2615: ||', Po_dist_id = '|| to_char(p_po_dist_id)
2616: ||', Inv_currency_code = '|| p_inv_currency_code
2617: ||', Po_amt = '|| to_char(p_po_amt));
2618: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2619: END IF;
2620: APP_EXCEPTION.RAISE_EXCEPTION;
2621: END Calc_AV;
2622:
3135: END IF;
3136:
3137: EXCEPTION
3138: WHEN PSA_API_EXCEPTION THEN
3139: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3142: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3143: 'invoice_id = '|| to_char(p_invoice_id) );
3136:
3137: EXCEPTION
3138: WHEN PSA_API_EXCEPTION THEN
3139: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3142: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3143: 'invoice_id = '|| to_char(p_invoice_id) );
3144: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_msg_data);
3137: EXCEPTION
3138: WHEN PSA_API_EXCEPTION THEN
3139: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3142: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3143: 'invoice_id = '|| to_char(p_invoice_id) );
3144: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_msg_data);
3145: APP_EXCEPTION.RAISE_EXCEPTION;
3138: WHEN PSA_API_EXCEPTION THEN
3139: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3142: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3143: 'invoice_id = '|| to_char(p_invoice_id) );
3144: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_msg_data);
3145: APP_EXCEPTION.RAISE_EXCEPTION;
3146:
3140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3141: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3142: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3143: 'invoice_id = '|| to_char(p_invoice_id) );
3144: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_msg_data);
3145: APP_EXCEPTION.RAISE_EXCEPTION;
3146:
3147: WHEN OTHERS THEN
3148: IF (SQLCODE <> -20001) THEN
3145: APP_EXCEPTION.RAISE_EXCEPTION;
3146:
3147: WHEN OTHERS THEN
3148: IF (SQLCODE <> -20001) THEN
3149: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3150: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3151: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3152: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3153: 'Invoice_id = '|| to_char(p_invoice_id)
3146:
3147: WHEN OTHERS THEN
3148: IF (SQLCODE <> -20001) THEN
3149: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3150: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3151: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3152: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3153: 'Invoice_id = '|| to_char(p_invoice_id)
3154: ||', Invoice_line_num = '|| to_char(p_inv_line_num)
3147: WHEN OTHERS THEN
3148: IF (SQLCODE <> -20001) THEN
3149: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3150: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3151: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3152: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3153: 'Invoice_id = '|| to_char(p_invoice_id)
3154: ||', Invoice_line_num = '|| to_char(p_inv_line_num)
3155: ||', Dist_line_num = '|| to_char(p_dist_line_num));
3148: IF (SQLCODE <> -20001) THEN
3149: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3150: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3151: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3152: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3153: 'Invoice_id = '|| to_char(p_invoice_id)
3154: ||', Invoice_line_num = '|| to_char(p_inv_line_num)
3155: ||', Dist_line_num = '|| to_char(p_dist_line_num));
3156: END IF;
3585:
3586: EXCEPTION
3587: WHEN OTHERS THEN
3588: IF (SQLCODE <> -20001) THEN
3589: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3590: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3591: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3592: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3593: 'Invoice_id = '|| to_char(p_invoice_id));
3586: EXCEPTION
3587: WHEN OTHERS THEN
3588: IF (SQLCODE <> -20001) THEN
3589: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3590: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3591: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3592: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3593: 'Invoice_id = '|| to_char(p_invoice_id));
3594: END IF;
3587: WHEN OTHERS THEN
3588: IF (SQLCODE <> -20001) THEN
3589: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3590: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3591: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3592: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3593: 'Invoice_id = '|| to_char(p_invoice_id));
3594: END IF;
3595:
3588: IF (SQLCODE <> -20001) THEN
3589: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3590: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3591: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3592: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3593: 'Invoice_id = '|| to_char(p_invoice_id));
3594: END IF;
3595:
3596: APP_EXCEPTION.RAISE_EXCEPTION;