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;
414: RETURN(l_line_total);
415:
416: EXCEPTION WHEN OTHERS THEN
417: IF (SQLCODE <> -20001) THEN
418: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
419: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
420: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
421: FND_MESSAGE.SET_TOKEN('PARAMETERS','Corrected Invoice Id = '||TO_CHAR(X_Corrected_Invoice_Id));
422: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
415:
416: EXCEPTION WHEN OTHERS THEN
417: IF (SQLCODE <> -20001) THEN
418: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
419: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
420: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
421: FND_MESSAGE.SET_TOKEN('PARAMETERS','Corrected Invoice Id = '||TO_CHAR(X_Corrected_Invoice_Id));
422: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
423: END IF;
416: EXCEPTION WHEN OTHERS THEN
417: IF (SQLCODE <> -20001) THEN
418: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
419: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
420: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
421: FND_MESSAGE.SET_TOKEN('PARAMETERS','Corrected Invoice Id = '||TO_CHAR(X_Corrected_Invoice_Id));
422: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
423: END IF;
424: app_exception.raise_exception;
417: IF (SQLCODE <> -20001) THEN
418: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
419: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
420: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
421: FND_MESSAGE.SET_TOKEN('PARAMETERS','Corrected Invoice Id = '||TO_CHAR(X_Corrected_Invoice_Id));
422: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
423: END IF;
424: app_exception.raise_exception;
425:
418: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
419: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
420: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
421: FND_MESSAGE.SET_TOKEN('PARAMETERS','Corrected Invoice Id = '||TO_CHAR(X_Corrected_Invoice_Id));
422: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
423: END IF;
424: app_exception.raise_exception;
425:
426: END;
563:
564: EXCEPTION
565: WHEN OTHERS THEN
566: IF (SQLCODE <> -20001) THEN
567: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
568: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
569: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
570: FND_MESSAGE.SET_TOKEN('PARAMETERS',
571: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
564: EXCEPTION
565: WHEN OTHERS THEN
566: IF (SQLCODE <> -20001) THEN
567: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
568: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
569: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
570: FND_MESSAGE.SET_TOKEN('PARAMETERS',
571: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
572: ||', Correction Amount = '||to_char(x_correction_amount)
565: WHEN OTHERS THEN
566: IF (SQLCODE <> -20001) THEN
567: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
568: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
569: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
570: FND_MESSAGE.SET_TOKEN('PARAMETERS',
571: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
572: ||', Correction Amount = '||to_char(x_correction_amount)
573: ||', Prorate Lines Flag = '||x_prorate_lines_flag);
566: IF (SQLCODE <> -20001) THEN
567: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
568: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
569: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
570: FND_MESSAGE.SET_TOKEN('PARAMETERS',
571: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
572: ||', Correction Amount = '||to_char(x_correction_amount)
573: ||', Prorate Lines Flag = '||x_prorate_lines_flag);
574: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
570: FND_MESSAGE.SET_TOKEN('PARAMETERS',
571: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
572: ||', Correction Amount = '||to_char(x_correction_amount)
573: ||', Prorate Lines Flag = '||x_prorate_lines_flag);
574: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
575: END IF;
576:
577: --Clean up the PL/SQL table
578: x_line_tab.delete;
725:
726: EXCEPTION
727: WHEN OTHERS THEN
728: IF (SQLCODE <> -20001) THEN
729: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
730: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
731: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
732: FND_MESSAGE.SET_TOKEN('PARAMETERS',
733: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
726: EXCEPTION
727: WHEN OTHERS THEN
728: IF (SQLCODE <> -20001) THEN
729: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
730: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
731: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
732: FND_MESSAGE.SET_TOKEN('PARAMETERS',
733: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
734: ||', Line Amount = '||to_char(x_line_amount)
727: WHEN OTHERS THEN
728: IF (SQLCODE <> -20001) THEN
729: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
730: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
731: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
732: FND_MESSAGE.SET_TOKEN('PARAMETERS',
733: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
734: ||', Line Amount = '||to_char(x_line_amount)
735: ||', Prorate Distributions Flag = '||x_prorate_dists_flag);
728: IF (SQLCODE <> -20001) THEN
729: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
730: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
731: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
732: FND_MESSAGE.SET_TOKEN('PARAMETERS',
733: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
734: ||', Line Amount = '||to_char(x_line_amount)
735: ||', Prorate Distributions Flag = '||x_prorate_dists_flag);
736: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
732: FND_MESSAGE.SET_TOKEN('PARAMETERS',
733: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
734: ||', Line Amount = '||to_char(x_line_amount)
735: ||', Prorate Distributions Flag = '||x_prorate_dists_flag);
736: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
737: END IF;
738:
739: --Clean up the PL/SQL table
740: x_dist_tab.delete;
768: RETURN(l_dist_total);
769:
770: EXCEPTION WHEN OTHERS THEN
771: IF (SQLCODE <> -20001) THEN
772: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
773: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
774: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
775: FND_MESSAGE.SET_TOKEN('PARAMETERS',
776: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
769:
770: EXCEPTION WHEN OTHERS THEN
771: IF (SQLCODE <> -20001) THEN
772: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
773: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
774: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
775: FND_MESSAGE.SET_TOKEN('PARAMETERS',
776: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
777: ||',Corrected Line Number = '||to_char(x_corrected_line_number));
770: EXCEPTION WHEN OTHERS THEN
771: IF (SQLCODE <> -20001) THEN
772: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
773: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
774: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
775: FND_MESSAGE.SET_TOKEN('PARAMETERS',
776: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
777: ||',Corrected Line Number = '||to_char(x_corrected_line_number));
778: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
771: IF (SQLCODE <> -20001) THEN
772: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
773: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
774: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
775: FND_MESSAGE.SET_TOKEN('PARAMETERS',
776: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
777: ||',Corrected Line Number = '||to_char(x_corrected_line_number));
778: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
779: END IF;
774: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
775: FND_MESSAGE.SET_TOKEN('PARAMETERS',
776: 'Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
777: ||',Corrected Line Number = '||to_char(x_corrected_line_number));
778: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
779: END IF;
780:
781: app_exception.raise_exception;
782:
918:
919:
920: EXCEPTION WHEN OTHERS THEN
921: IF (SQLCODE <> -20001) THEN
922: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
923: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
924: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
925: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
926: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
919:
920: EXCEPTION WHEN OTHERS THEN
921: IF (SQLCODE <> -20001) THEN
922: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
923: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
924: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
925: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
926: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
927: ||', Corrected line Number = '||to_char(x_corrected_line_number)
920: EXCEPTION WHEN OTHERS THEN
921: IF (SQLCODE <> -20001) THEN
922: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
923: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
924: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
925: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
926: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
927: ||', Corrected line Number = '||to_char(x_corrected_line_number)
928: ||', Correction Quantity = '||to_char(x_correction_quantity)
921: IF (SQLCODE <> -20001) THEN
922: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
923: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
924: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
925: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
926: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
927: ||', Corrected line Number = '||to_char(x_corrected_line_number)
928: ||', Correction Quantity = '||to_char(x_correction_quantity)
929: ||', Correction Price = '||to_char(x_correction_price)
928: ||', Correction Quantity = '||to_char(x_correction_quantity)
929: ||', Correction Price = '||to_char(x_correction_price)
930: ||', Total Correction Amount = '||to_char(x_total_correction_amount));
931:
932: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
933: END IF;
934: --Clean up the PL/SQL tables.
935: x_line_tab.delete;
936: x_dist_tab.delete;
1289:
1290:
1291: EXCEPTION WHEN OTHERS THEN
1292: IF (SQLCODE <> -20001) THEN
1293: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1294: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1296: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
1297: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
1290:
1291: EXCEPTION WHEN OTHERS THEN
1292: IF (SQLCODE <> -20001) THEN
1293: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1294: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1296: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
1297: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
1298: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
1291: EXCEPTION WHEN OTHERS THEN
1292: IF (SQLCODE <> -20001) THEN
1293: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1294: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1296: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
1297: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
1298: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
1299: ||', Corrected line Number = '||to_char(x_corrected_line_number));
1292: IF (SQLCODE <> -20001) THEN
1293: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1294: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1295: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1296: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
1297: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
1298: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
1299: ||', Corrected line Number = '||to_char(x_corrected_line_number));
1300:
1297: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
1298: ||', Corrected Invoice Id = '||to_char(x_corrected_invoice_id)
1299: ||', Corrected line Number = '||to_char(x_corrected_line_number));
1300:
1301: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1302: END IF;
1303:
1304: APP_EXCEPTION.RAISE_EXCEPTION;
1305:
1694: EXCEPTION
1695: WHEN OTHERS THEN
1696:
1697: IF (SQLCODE <> -20001) THEN
1698: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1699: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1700: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1701: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
1702: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
1695: WHEN OTHERS THEN
1696:
1697: IF (SQLCODE <> -20001) THEN
1698: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1699: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1700: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1701: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
1702: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
1703: ||', Invoice Line Number = '||X_Invoice_Line_Number
1696:
1697: IF (SQLCODE <> -20001) THEN
1698: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1699: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1700: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1701: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
1702: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
1703: ||', Invoice Line Number = '||X_Invoice_Line_Number
1704: ||', Dist_num = '||l_distribution_line_number);
1697: IF (SQLCODE <> -20001) THEN
1698: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1699: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1700: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1701: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
1702: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
1703: ||', Invoice Line Number = '||X_Invoice_Line_Number
1704: ||', Dist_num = '||l_distribution_line_number);
1705: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1701: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
1702: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
1703: ||', Invoice Line Number = '||X_Invoice_Line_Number
1704: ||', Dist_num = '||l_distribution_line_number);
1705: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1706: END IF;
1707: --Clean up the PL/SQL tables.
1708: X_DIST_TAB.DELETE;
1709: