519:
520:
521: EXCEPTION WHEN OTHERS THEN
522: IF ( SQLCODE = -54 ) THEN
523: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVOICE_UPDATED_REQUERY');
524: IF (G_INVOICE_LINES_CURSOR%ISOPEN ) THEN
525: CLOSE G_Invoice_Lines_Cursor ;
526: END IF;
527: ELSIF (SQLCODE <> -20001) THEN
524: IF (G_INVOICE_LINES_CURSOR%ISOPEN ) THEN
525: CLOSE G_Invoice_Lines_Cursor ;
526: END IF;
527: ELSIF (SQLCODE <> -20001) THEN
528: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
529: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
530: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
531: FND_MESSAGE.SET_TOKEN('PARAMETERS',
532: 'Invoice Id = '|| to_char(p_invoice_id));
525: CLOSE G_Invoice_Lines_Cursor ;
526: END IF;
527: ELSIF (SQLCODE <> -20001) THEN
528: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
529: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
530: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
531: FND_MESSAGE.SET_TOKEN('PARAMETERS',
532: 'Invoice Id = '|| to_char(p_invoice_id));
533: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
526: END IF;
527: ELSIF (SQLCODE <> -20001) THEN
528: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
529: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
530: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
531: FND_MESSAGE.SET_TOKEN('PARAMETERS',
532: 'Invoice Id = '|| to_char(p_invoice_id));
533: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
534:
527: ELSIF (SQLCODE <> -20001) THEN
528: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
529: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
530: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
531: FND_MESSAGE.SET_TOKEN('PARAMETERS',
532: 'Invoice Id = '|| to_char(p_invoice_id));
533: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
534:
535: IF (G_INVOICE_LINES_CURSOR%ISOPEN ) THEN
529: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
530: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
531: FND_MESSAGE.SET_TOKEN('PARAMETERS',
532: 'Invoice Id = '|| to_char(p_invoice_id));
533: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
534:
535: IF (G_INVOICE_LINES_CURSOR%ISOPEN ) THEN
536: CLOSE G_Invoice_Lines_Cursor ;
537: END IF;
795: RETURN(TRUE);
796:
797: EXCEPTION WHEN OTHERS THEN
798: IF ( SQLCODE = -54 ) THEN
799: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVOICE_UPDATED_REQUERY');
800: IF (G_INVOICE_LINES_CURSOR%ISOPEN ) THEN
801: CLOSE G_Invoice_Lines_Cursor ;
802: END IF;
803: ELSIF (SQLCODE <> -20001) THEN
800: IF (G_INVOICE_LINES_CURSOR%ISOPEN ) THEN
801: CLOSE G_Invoice_Lines_Cursor ;
802: END IF;
803: ELSIF (SQLCODE <> -20001) THEN
804: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
805: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
806: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
807: FND_MESSAGE.SET_TOKEN('PARAMETERS',
808: 'Invoice Id = '|| to_char(p_invoice_id)
801: CLOSE G_Invoice_Lines_Cursor ;
802: END IF;
803: ELSIF (SQLCODE <> -20001) THEN
804: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
805: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
806: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
807: FND_MESSAGE.SET_TOKEN('PARAMETERS',
808: 'Invoice Id = '|| to_char(p_invoice_id)
809: ||'Invoice Line Number = '||to_char(p_invoice_line_number));
802: END IF;
803: ELSIF (SQLCODE <> -20001) THEN
804: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
805: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
806: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
807: FND_MESSAGE.SET_TOKEN('PARAMETERS',
808: 'Invoice Id = '|| to_char(p_invoice_id)
809: ||'Invoice Line Number = '||to_char(p_invoice_line_number));
810: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
803: ELSIF (SQLCODE <> -20001) THEN
804: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
805: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
806: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
807: FND_MESSAGE.SET_TOKEN('PARAMETERS',
808: 'Invoice Id = '|| to_char(p_invoice_id)
809: ||'Invoice Line Number = '||to_char(p_invoice_line_number));
810: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
811: IF (G_Invoice_Lines_Cursor%ISOPEN ) THEN
806: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
807: FND_MESSAGE.SET_TOKEN('PARAMETERS',
808: 'Invoice Id = '|| to_char(p_invoice_id)
809: ||'Invoice Line Number = '||to_char(p_invoice_line_number));
810: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
811: IF (G_Invoice_Lines_Cursor%ISOPEN ) THEN
812: CLOSE G_Invoice_Lines_Cursor ;
813: END IF;
814: END IF;
875:
876:
877: EXCEPTION WHEN OTHERS THEN
878: IF (SQLCODE <> -20001) THEN
879: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
880: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
881: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
882: FND_MESSAGE.SET_TOKEN('PARAMETERS',
883: 'Invoice Id = '|| to_char(p_invoice_id));
876:
877: EXCEPTION WHEN OTHERS THEN
878: IF (SQLCODE <> -20001) THEN
879: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
880: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
881: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
882: FND_MESSAGE.SET_TOKEN('PARAMETERS',
883: 'Invoice Id = '|| to_char(p_invoice_id));
884: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
877: EXCEPTION WHEN OTHERS THEN
878: IF (SQLCODE <> -20001) THEN
879: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
880: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
881: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
882: FND_MESSAGE.SET_TOKEN('PARAMETERS',
883: 'Invoice Id = '|| to_char(p_invoice_id));
884: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
885:
878: IF (SQLCODE <> -20001) THEN
879: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
880: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
881: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
882: FND_MESSAGE.SET_TOKEN('PARAMETERS',
883: 'Invoice Id = '|| to_char(p_invoice_id));
884: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
885:
886: END IF;
880: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
881: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
882: FND_MESSAGE.SET_TOKEN('PARAMETERS',
883: 'Invoice Id = '|| to_char(p_invoice_id));
884: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
885:
886: END IF;
887:
888: APP_EXCEPTION.RAISE_EXCEPTION;