113:
114: EXCEPTION
115: WHEN OTHERS THEN
116: IF (SQLCODE <> -20001) THEN
117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
119: END IF;
120: APP_EXCEPTION.RAISE_EXCEPTION;
121: END Encumbrance_Enabled;
114: EXCEPTION
115: WHEN OTHERS THEN
116: IF (SQLCODE <> -20001) THEN
117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
119: END IF;
120: APP_EXCEPTION.RAISE_EXCEPTION;
121: END Encumbrance_Enabled;
122:
207:
208: EXCEPTION
209: WHEN OTHERS THEN
210: IF (SQLCODE <> -20001) THEN
211: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
212: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
213: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
214: FND_MESSAGE.SET_TOKEN('PARAMETERS',
215: 'Called_by = '|| p_called_by
208: EXCEPTION
209: WHEN OTHERS THEN
210: IF (SQLCODE <> -20001) THEN
211: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
212: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
213: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
214: FND_MESSAGE.SET_TOKEN('PARAMETERS',
215: 'Called_by = '|| p_called_by
216: ||', Mode = '|| p_bc_mode);
209: WHEN OTHERS THEN
210: IF (SQLCODE <> -20001) THEN
211: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
212: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
213: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
214: FND_MESSAGE.SET_TOKEN('PARAMETERS',
215: 'Called_by = '|| p_called_by
216: ||', Mode = '|| p_bc_mode);
217: END IF;
210: IF (SQLCODE <> -20001) THEN
211: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
212: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
213: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
214: FND_MESSAGE.SET_TOKEN('PARAMETERS',
215: 'Called_by = '|| p_called_by
216: ||', Mode = '|| p_bc_mode);
217: END IF;
218: APP_EXCEPTION.RAISE_EXCEPTION;
333: END IF;
334: EXCEPTION
335: WHEN OTHERS THEN
336: IF (SQLCODE <> -20001) THEN
337: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
338: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
339: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
340: FND_MESSAGE.SET_TOKEN('PARAMETERS',
341: 'Invoice_id = '|| to_char(p_invoice_id)
334: EXCEPTION
335: WHEN OTHERS THEN
336: IF (SQLCODE <> -20001) THEN
337: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
338: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
339: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
340: FND_MESSAGE.SET_TOKEN('PARAMETERS',
341: 'Invoice_id = '|| to_char(p_invoice_id)
342: ||', system_user = '|| to_char(p_system_user) );
335: WHEN OTHERS THEN
336: IF (SQLCODE <> -20001) THEN
337: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
338: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
339: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
340: FND_MESSAGE.SET_TOKEN('PARAMETERS',
341: 'Invoice_id = '|| to_char(p_invoice_id)
342: ||', system_user = '|| to_char(p_system_user) );
343: END IF;
336: IF (SQLCODE <> -20001) THEN
337: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
338: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
339: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
340: FND_MESSAGE.SET_TOKEN('PARAMETERS',
341: 'Invoice_id = '|| to_char(p_invoice_id)
342: ||', system_user = '|| to_char(p_system_user) );
343: END IF;
344: APP_EXCEPTION.RAISE_EXCEPTION;
446:
447: EXCEPTION
448: WHEN OTHERS THEN
449: IF (SQLCODE <> -20001) THEN
450: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
451: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
452: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
453: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
454: END IF;
447: EXCEPTION
448: WHEN OTHERS THEN
449: IF (SQLCODE <> -20001) THEN
450: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
451: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
452: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
453: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
454: END IF;
455: APP_EXCEPTION.RAISE_EXCEPTION;
448: WHEN OTHERS THEN
449: IF (SQLCODE <> -20001) THEN
450: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
451: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
452: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
453: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
454: END IF;
455: APP_EXCEPTION.RAISE_EXCEPTION;
456: END FundsCheck_Init;
449: IF (SQLCODE <> -20001) THEN
450: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
451: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
452: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
453: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
454: END IF;
455: APP_EXCEPTION.RAISE_EXCEPTION;
456: END FundsCheck_Init;
457:
519:
520: EXCEPTION
521: WHEN OTHERS THEN
522: IF (SQLCODE <> -20001) THEN
523: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
524: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
525: END IF;
526: APP_EXCEPTION.RAISE_EXCEPTION;
527: END Get_GL_FundsChk_Result_Code;
520: EXCEPTION
521: WHEN OTHERS THEN
522: IF (SQLCODE <> -20001) THEN
523: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
524: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
525: END IF;
526: APP_EXCEPTION.RAISE_EXCEPTION;
527: END Get_GL_FundsChk_Result_Code;
528:
1319:
1320: EXCEPTION
1321:
1322: WHEN PSA_API_EXCEPTION THEN
1323: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1326: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1327: 'invoice_id = '|| to_char(p_invoice_id) );
1320: EXCEPTION
1321:
1322: WHEN PSA_API_EXCEPTION THEN
1323: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1326: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1327: 'invoice_id = '|| to_char(p_invoice_id) );
1328: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_msg_data);
1321:
1322: WHEN PSA_API_EXCEPTION THEN
1323: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1326: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1327: 'invoice_id = '|| to_char(p_invoice_id) );
1328: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_msg_data);
1329: APP_EXCEPTION.RAISE_EXCEPTION;
1322: WHEN PSA_API_EXCEPTION THEN
1323: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1326: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1327: 'invoice_id = '|| to_char(p_invoice_id) );
1328: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_msg_data);
1329: APP_EXCEPTION.RAISE_EXCEPTION;
1330:
1324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1326: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1327: 'invoice_id = '|| to_char(p_invoice_id) );
1328: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_msg_data);
1329: APP_EXCEPTION.RAISE_EXCEPTION;
1330:
1331: WHEN OTHERS THEN
1332: IF (SQLCODE <> -20001) THEN
1329: APP_EXCEPTION.RAISE_EXCEPTION;
1330:
1331: WHEN OTHERS THEN
1332: IF (SQLCODE <> -20001) THEN
1333: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1334: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1335: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1336: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1337: 'Invoice_id = '|| to_char(p_invoice_id)
1330:
1331: WHEN OTHERS THEN
1332: IF (SQLCODE <> -20001) THEN
1333: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1334: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1335: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1336: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1337: 'Invoice_id = '|| to_char(p_invoice_id)
1338: ||' Set of books id = '||to_char(p_set_of_books_id)
1331: WHEN OTHERS THEN
1332: IF (SQLCODE <> -20001) THEN
1333: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1334: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1335: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1336: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1337: 'Invoice_id = '|| to_char(p_invoice_id)
1338: ||' Set of books id = '||to_char(p_set_of_books_id)
1339: ||' System user = '||to_char(p_system_user));
1332: IF (SQLCODE <> -20001) THEN
1333: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1334: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1335: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1336: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1337: 'Invoice_id = '|| to_char(p_invoice_id)
1338: ||' Set of books id = '||to_char(p_set_of_books_id)
1339: ||' System user = '||to_char(p_system_user));
1340: END IF;
1518: END IF;
1519: EXCEPTION
1520: WHEN OTHERS THEN
1521: IF (SQLCODE <> -20001) THEN
1522: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1523: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1524: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1525: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1526: END IF;
1519: EXCEPTION
1520: WHEN OTHERS THEN
1521: IF (SQLCODE <> -20001) THEN
1522: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1523: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1524: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1525: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1526: END IF;
1527: APP_EXCEPTION.RAISE_EXCEPTION;
1520: WHEN OTHERS THEN
1521: IF (SQLCODE <> -20001) THEN
1522: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1523: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1524: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1525: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1526: END IF;
1527: APP_EXCEPTION.RAISE_EXCEPTION;
1528: END GET_ERV_CCID;
1521: IF (SQLCODE <> -20001) THEN
1522: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1523: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1524: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1525: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1526: END IF;
1527: APP_EXCEPTION.RAISE_EXCEPTION;
1528: END GET_ERV_CCID;
1529:
1902:
1903: EXCEPTION
1904: WHEN OTHERS THEN
1905: IF (SQLCODE <> -20001) THEN
1906: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1907: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1908: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1909: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1910: 'Invoice_id = '|| to_char(p_invoice_id)
1903: EXCEPTION
1904: WHEN OTHERS THEN
1905: IF (SQLCODE <> -20001) THEN
1906: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1907: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1908: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1909: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1910: 'Invoice_id = '|| to_char(p_invoice_id)
1911: ||', Po_dist_id = '|| to_char(p_po_dist_id)
1904: WHEN OTHERS THEN
1905: IF (SQLCODE <> -20001) THEN
1906: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1907: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1908: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1909: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1910: 'Invoice_id = '|| to_char(p_invoice_id)
1911: ||', Po_dist_id = '|| to_char(p_po_dist_id)
1912: ||', Inv_currency_code = '|| p_inv_currency_code
1905: IF (SQLCODE <> -20001) THEN
1906: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1907: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1908: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1909: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1910: 'Invoice_id = '|| to_char(p_invoice_id)
1911: ||', Po_dist_id = '|| to_char(p_po_dist_id)
1912: ||', Inv_currency_code = '|| p_inv_currency_code
1913: ||', Po_price = '|| to_char(p_po_price)
1911: ||', Po_dist_id = '|| to_char(p_po_dist_id)
1912: ||', Inv_currency_code = '|| p_inv_currency_code
1913: ||', Po_price = '|| to_char(p_po_price)
1914: ||', Po_qty = '|| to_char(p_po_qty));
1915: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1916: END IF;
1917: APP_EXCEPTION.RAISE_EXCEPTION;
1918: END Calc_QV;
1919:
2201:
2202: EXCEPTION
2203: WHEN OTHERS THEN
2204: IF (SQLCODE <> -20001) THEN
2205: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2206: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2207: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2208: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2209: 'Invoice_id = '|| to_char(p_invoice_id)
2202: EXCEPTION
2203: WHEN OTHERS THEN
2204: IF (SQLCODE <> -20001) THEN
2205: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2206: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2207: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2208: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2209: 'Invoice_id = '|| to_char(p_invoice_id)
2210: ||', Po_dist_id = '|| to_char(p_po_dist_id)
2203: WHEN OTHERS THEN
2204: IF (SQLCODE <> -20001) THEN
2205: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2206: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2207: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2208: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2209: 'Invoice_id = '|| to_char(p_invoice_id)
2210: ||', Po_dist_id = '|| to_char(p_po_dist_id)
2211: ||', Inv_currency_code = '|| p_inv_currency_code
2204: IF (SQLCODE <> -20001) THEN
2205: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2206: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2207: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2208: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2209: 'Invoice_id = '|| to_char(p_invoice_id)
2210: ||', Po_dist_id = '|| to_char(p_po_dist_id)
2211: ||', Inv_currency_code = '|| p_inv_currency_code
2212: ||', Po_amt = '|| to_char(p_po_amt));
2209: 'Invoice_id = '|| to_char(p_invoice_id)
2210: ||', Po_dist_id = '|| to_char(p_po_dist_id)
2211: ||', Inv_currency_code = '|| p_inv_currency_code
2212: ||', Po_amt = '|| to_char(p_po_amt));
2213: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2214: END IF;
2215: APP_EXCEPTION.RAISE_EXCEPTION;
2216: END Calc_AV;
2217:
2714: END IF;
2715:
2716: EXCEPTION
2717: WHEN PSA_API_EXCEPTION THEN
2718: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2719: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2720: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2721: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2722: 'invoice_id = '|| to_char(p_invoice_id) );
2715:
2716: EXCEPTION
2717: WHEN PSA_API_EXCEPTION THEN
2718: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2719: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2720: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2721: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2722: 'invoice_id = '|| to_char(p_invoice_id) );
2723: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_msg_data);
2716: EXCEPTION
2717: WHEN PSA_API_EXCEPTION THEN
2718: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2719: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2720: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2721: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2722: 'invoice_id = '|| to_char(p_invoice_id) );
2723: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_msg_data);
2724: APP_EXCEPTION.RAISE_EXCEPTION;
2717: WHEN PSA_API_EXCEPTION THEN
2718: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2719: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2720: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2721: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2722: 'invoice_id = '|| to_char(p_invoice_id) );
2723: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_msg_data);
2724: APP_EXCEPTION.RAISE_EXCEPTION;
2725:
2719: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2720: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2721: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2722: 'invoice_id = '|| to_char(p_invoice_id) );
2723: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_msg_data);
2724: APP_EXCEPTION.RAISE_EXCEPTION;
2725:
2726: WHEN OTHERS THEN
2727: IF (SQLCODE <> -20001) THEN
2724: APP_EXCEPTION.RAISE_EXCEPTION;
2725:
2726: WHEN OTHERS THEN
2727: IF (SQLCODE <> -20001) THEN
2728: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2729: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2730: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2731: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2732: 'Invoice_id = '|| to_char(p_invoice_id)
2725:
2726: WHEN OTHERS THEN
2727: IF (SQLCODE <> -20001) THEN
2728: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2729: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2730: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2731: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2732: 'Invoice_id = '|| to_char(p_invoice_id)
2733: ||', Invoice_line_num = '|| to_char(p_inv_line_num)
2726: WHEN OTHERS THEN
2727: IF (SQLCODE <> -20001) THEN
2728: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2729: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2730: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2731: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2732: 'Invoice_id = '|| to_char(p_invoice_id)
2733: ||', Invoice_line_num = '|| to_char(p_inv_line_num)
2734: ||', Dist_line_num = '|| to_char(p_dist_line_num));
2727: IF (SQLCODE <> -20001) THEN
2728: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2729: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2730: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2731: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2732: 'Invoice_id = '|| to_char(p_invoice_id)
2733: ||', Invoice_line_num = '|| to_char(p_inv_line_num)
2734: ||', Dist_line_num = '|| to_char(p_dist_line_num));
2735: END IF;
3164:
3165: EXCEPTION
3166: WHEN OTHERS THEN
3167: IF (SQLCODE <> -20001) THEN
3168: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3171: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3172: 'Invoice_id = '|| to_char(p_invoice_id));
3165: EXCEPTION
3166: WHEN OTHERS THEN
3167: IF (SQLCODE <> -20001) THEN
3168: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3171: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3172: 'Invoice_id = '|| to_char(p_invoice_id));
3173: END IF;
3166: WHEN OTHERS THEN
3167: IF (SQLCODE <> -20001) THEN
3168: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3171: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3172: 'Invoice_id = '|| to_char(p_invoice_id));
3173: END IF;
3174:
3167: IF (SQLCODE <> -20001) THEN
3168: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3171: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3172: 'Invoice_id = '|| to_char(p_invoice_id));
3173: END IF;
3174:
3175: APP_EXCEPTION.RAISE_EXCEPTION;