253:
254: EXCEPTION
255: WHEN OTHERS THEN
256: IF (SQLCODE <> -20001) THEN
257: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
258: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
259: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
260: FND_MESSAGE.SET_TOKEN('PARAMETERS',' Invoice Id = '||to_char(x_invoice_id)
261: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
254: EXCEPTION
255: WHEN OTHERS THEN
256: IF (SQLCODE <> -20001) THEN
257: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
258: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
259: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
260: FND_MESSAGE.SET_TOKEN('PARAMETERS',' Invoice Id = '||to_char(x_invoice_id)
261: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
262: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
255: WHEN OTHERS THEN
256: IF (SQLCODE <> -20001) THEN
257: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
258: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
259: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
260: FND_MESSAGE.SET_TOKEN('PARAMETERS',' Invoice Id = '||to_char(x_invoice_id)
261: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
262: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
263: ||', Corrected Line Number = '||to_char(x_corrected_line_number)
256: IF (SQLCODE <> -20001) THEN
257: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
258: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
259: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
260: FND_MESSAGE.SET_TOKEN('PARAMETERS',' Invoice Id = '||to_char(x_invoice_id)
261: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
262: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
263: ||', Corrected Line Number = '||to_char(x_corrected_line_number)
264: ||', Correction amount = '||to_char(x_correction_amount));
261: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
262: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
263: ||', Corrected Line Number = '||to_char(x_corrected_line_number)
264: ||', Correction amount = '||to_char(x_correction_amount));
265: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
266: END IF;
267:
268: --Clean up the PL/SQL tables.
269: x_line_tab.delete;
364: p_period_name => g_period_name,
365: p_gl_date => g_accounting_date);
366:
367: IF (g_accounting_date IS NULL) THEN
368: fnd_message.set_name('SQLAP','AP_DISTS_NO_OPEN_FUT_PERIOD');
369: app_exception.raise_exception;
370: END IF;
371:
372: END IF;
384:
385: EXCEPTION
386: WHEN OTHERS THEN
387: IF (SQLCODE <> -20001) THEN
388: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
389: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
390: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
391: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
385: EXCEPTION
386: WHEN OTHERS THEN
387: IF (SQLCODE <> -20001) THEN
388: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
389: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
390: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
391: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
393: END IF;
386: WHEN OTHERS THEN
387: IF (SQLCODE <> -20001) THEN
388: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
389: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
390: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
391: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
393: END IF;
394: app_exception.raise_exception;
387: IF (SQLCODE <> -20001) THEN
388: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
389: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
390: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
391: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
393: END IF;
394: app_exception.raise_exception;
395:
388: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
389: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
390: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
391: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
393: END IF;
394: app_exception.raise_exception;
395:
396: END Get_Info;
420: RETURN(l_line_total);
421:
422: EXCEPTION WHEN OTHERS THEN
423: IF (SQLCODE <> -20001) THEN
424: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
425: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
426: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
427: FND_MESSAGE.SET_TOKEN('PARAMETERS','Corrected Invoice Id = '||TO_CHAR(X_Corrected_Invoice_Id));
428: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
421:
422: EXCEPTION WHEN OTHERS THEN
423: IF (SQLCODE <> -20001) THEN
424: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
425: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
426: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
427: FND_MESSAGE.SET_TOKEN('PARAMETERS','Corrected Invoice Id = '||TO_CHAR(X_Corrected_Invoice_Id));
428: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
429: END IF;
422: EXCEPTION WHEN OTHERS THEN
423: IF (SQLCODE <> -20001) THEN
424: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
425: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
426: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
427: FND_MESSAGE.SET_TOKEN('PARAMETERS','Corrected Invoice Id = '||TO_CHAR(X_Corrected_Invoice_Id));
428: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
429: END IF;
430: app_exception.raise_exception;
423: IF (SQLCODE <> -20001) THEN
424: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
425: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
426: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
427: FND_MESSAGE.SET_TOKEN('PARAMETERS','Corrected Invoice Id = '||TO_CHAR(X_Corrected_Invoice_Id));
428: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
429: END IF;
430: app_exception.raise_exception;
431:
424: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
425: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
426: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
427: FND_MESSAGE.SET_TOKEN('PARAMETERS','Corrected Invoice Id = '||TO_CHAR(X_Corrected_Invoice_Id));
428: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
429: END IF;
430: app_exception.raise_exception;
431:
432: END;
577:
578: EXCEPTION
579: WHEN OTHERS THEN
580: IF (SQLCODE <> -20001) THEN
581: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
582: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
583: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
584: FND_MESSAGE.SET_TOKEN('PARAMETERS',
585: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
578: EXCEPTION
579: WHEN OTHERS THEN
580: IF (SQLCODE <> -20001) THEN
581: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
582: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
583: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
584: FND_MESSAGE.SET_TOKEN('PARAMETERS',
585: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
586: ||', Correction Amount = '||to_char(x_correction_amount)
579: WHEN OTHERS THEN
580: IF (SQLCODE <> -20001) THEN
581: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
582: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
583: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
584: FND_MESSAGE.SET_TOKEN('PARAMETERS',
585: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
586: ||', Correction Amount = '||to_char(x_correction_amount)
587: ||', Prorate Lines Flag = '||x_prorate_lines_flag);
580: IF (SQLCODE <> -20001) THEN
581: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
582: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
583: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
584: FND_MESSAGE.SET_TOKEN('PARAMETERS',
585: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
586: ||', Correction Amount = '||to_char(x_correction_amount)
587: ||', Prorate Lines Flag = '||x_prorate_lines_flag);
588: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
584: FND_MESSAGE.SET_TOKEN('PARAMETERS',
585: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
586: ||', Correction Amount = '||to_char(x_correction_amount)
587: ||', Prorate Lines Flag = '||x_prorate_lines_flag);
588: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
589: END IF;
590:
591: --Clean up the PL/SQL table
592: x_line_tab.delete;
747:
748: EXCEPTION
749: WHEN OTHERS THEN
750: IF (SQLCODE <> -20001) THEN
751: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
752: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
753: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
754: FND_MESSAGE.SET_TOKEN('PARAMETERS',
755: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
748: EXCEPTION
749: WHEN OTHERS THEN
750: IF (SQLCODE <> -20001) THEN
751: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
752: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
753: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
754: FND_MESSAGE.SET_TOKEN('PARAMETERS',
755: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
756: ||', Line Amount = '||to_char(x_line_amount)
749: WHEN OTHERS THEN
750: IF (SQLCODE <> -20001) THEN
751: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
752: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
753: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
754: FND_MESSAGE.SET_TOKEN('PARAMETERS',
755: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
756: ||', Line Amount = '||to_char(x_line_amount)
757: ||', Prorate Distributions Flag = '||x_prorate_dists_flag);
750: IF (SQLCODE <> -20001) THEN
751: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
752: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
753: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
754: FND_MESSAGE.SET_TOKEN('PARAMETERS',
755: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
756: ||', Line Amount = '||to_char(x_line_amount)
757: ||', Prorate Distributions Flag = '||x_prorate_dists_flag);
758: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
754: FND_MESSAGE.SET_TOKEN('PARAMETERS',
755: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
756: ||', Line Amount = '||to_char(x_line_amount)
757: ||', Prorate Distributions Flag = '||x_prorate_dists_flag);
758: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
759: END IF;
760:
761: --Clean up the PL/SQL table
762: x_dist_tab.delete;
795: RETURN(l_dist_total);
796:
797: EXCEPTION WHEN OTHERS THEN
798: IF (SQLCODE <> -20001) THEN
799: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
800: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
801: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
802: FND_MESSAGE.SET_TOKEN('PARAMETERS',
803: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
796:
797: EXCEPTION WHEN OTHERS THEN
798: IF (SQLCODE <> -20001) THEN
799: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
800: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
801: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
802: FND_MESSAGE.SET_TOKEN('PARAMETERS',
803: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
804: ||',Corrected Line Number = '||to_char(x_corrected_line_number));
797: EXCEPTION WHEN OTHERS THEN
798: IF (SQLCODE <> -20001) THEN
799: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
800: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
801: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
802: FND_MESSAGE.SET_TOKEN('PARAMETERS',
803: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
804: ||',Corrected Line Number = '||to_char(x_corrected_line_number));
805: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
798: IF (SQLCODE <> -20001) THEN
799: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
800: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
801: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
802: FND_MESSAGE.SET_TOKEN('PARAMETERS',
803: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
804: ||',Corrected Line Number = '||to_char(x_corrected_line_number));
805: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
806: END IF;
801: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
802: FND_MESSAGE.SET_TOKEN('PARAMETERS',
803: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
804: ||',Corrected Line Number = '||to_char(x_corrected_line_number));
805: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
806: END IF;
807:
808: app_exception.raise_exception;
809:
945:
946:
947: EXCEPTION WHEN OTHERS THEN
948: IF (SQLCODE <> -20001) THEN
949: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
950: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
951: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
952: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
953: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
946:
947: EXCEPTION WHEN OTHERS THEN
948: IF (SQLCODE <> -20001) THEN
949: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
950: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
951: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
952: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
953: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
954: ||', Corrected line Number = '||to_char(x_corrected_line_number)
947: EXCEPTION WHEN OTHERS THEN
948: IF (SQLCODE <> -20001) THEN
949: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
950: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
951: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
952: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
953: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
954: ||', Corrected line Number = '||to_char(x_corrected_line_number)
955: ||', Correction Quantity = '||to_char(x_correction_quantity)
948: IF (SQLCODE <> -20001) THEN
949: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
950: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
951: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
952: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
953: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
954: ||', Corrected line Number = '||to_char(x_corrected_line_number)
955: ||', Correction Quantity = '||to_char(x_correction_quantity)
956: ||', Correction Price = '||to_char(x_correction_price)
955: ||', Correction Quantity = '||to_char(x_correction_quantity)
956: ||', Correction Price = '||to_char(x_correction_price)
957: ||', Total Correction Amount = '||to_char(x_total_correction_amount));
958:
959: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
960: END IF;
961: --Clean up the PL/SQL tables.
962: x_line_tab.delete;
963: x_dist_tab.delete;
1321:
1322:
1323: EXCEPTION WHEN OTHERS THEN
1324: IF (SQLCODE <> -20001) THEN
1325: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1326: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1327: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1328: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
1329: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
1322:
1323: EXCEPTION WHEN OTHERS THEN
1324: IF (SQLCODE <> -20001) THEN
1325: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1326: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1327: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1328: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
1329: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
1330: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
1323: EXCEPTION WHEN OTHERS THEN
1324: IF (SQLCODE <> -20001) THEN
1325: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1326: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1327: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1328: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
1329: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
1330: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
1331: ||', Corrected line Number = '||to_char(x_corrected_line_number));
1324: IF (SQLCODE <> -20001) THEN
1325: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1326: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1327: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1328: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
1329: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
1330: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
1331: ||', Corrected line Number = '||to_char(x_corrected_line_number));
1332:
1329: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
1330: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
1331: ||', Corrected line Number = '||to_char(x_corrected_line_number));
1332:
1333: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1334: END IF;
1335:
1336: APP_EXCEPTION.RAISE_EXCEPTION;
1337:
1730: EXCEPTION
1731: WHEN OTHERS THEN
1732:
1733: IF (SQLCODE <> -20001) THEN
1734: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1735: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1736: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1737: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
1738: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
1731: WHEN OTHERS THEN
1732:
1733: IF (SQLCODE <> -20001) THEN
1734: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1735: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1736: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1737: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
1738: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
1739: ||', Invoice Line Number = '||X_Invoice_Line_Number
1732:
1733: IF (SQLCODE <> -20001) THEN
1734: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1735: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1736: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1737: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
1738: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
1739: ||', Invoice Line Number = '||X_Invoice_Line_Number
1740: ||', Dist_num = '||l_distribution_line_number);
1733: IF (SQLCODE <> -20001) THEN
1734: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1735: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1736: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1737: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
1738: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
1739: ||', Invoice Line Number = '||X_Invoice_Line_Number
1740: ||', Dist_num = '||l_distribution_line_number);
1741: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1737: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
1738: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
1739: ||', Invoice Line Number = '||X_Invoice_Line_Number
1740: ||', Dist_num = '||l_distribution_line_number);
1741: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1742: END IF;
1743: --Clean up the PL/SQL tables.
1744: X_DIST_TAB.DELETE;
1745: