423: -- Bug 7936518: Start
424: -- P_Token2 := l_error_code;
425:
426: If (substr(l_error_code,1,3) = 'GMS') then
427: P_Token2 := FND_MESSAGE.GET_STRING('GMS',l_error_code);
428: Else
429: P_Token2 := l_error_code;
430: End if;
431: -- Bug 7936518: End
576:
577:
578: EXCEPTION WHEN OTHERS THEN
579: IF ( SQLCODE = -54 ) THEN
580: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVOICE_UPDATED_REQUERY');
581: IF (G_INVOICE_LINES_CURSOR%ISOPEN ) THEN
582: CLOSE G_Invoice_Lines_Cursor ;
583: END IF;
584: ELSIF (SQLCODE <> -20001) THEN
581: IF (G_INVOICE_LINES_CURSOR%ISOPEN ) THEN
582: CLOSE G_Invoice_Lines_Cursor ;
583: END IF;
584: ELSIF (SQLCODE <> -20001) THEN
585: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
586: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
587: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
588: FND_MESSAGE.SET_TOKEN('PARAMETERS',
589: 'Invoice Id = '|| to_char(p_invoice_id));
582: CLOSE G_Invoice_Lines_Cursor ;
583: END IF;
584: ELSIF (SQLCODE <> -20001) THEN
585: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
586: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
587: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
588: FND_MESSAGE.SET_TOKEN('PARAMETERS',
589: 'Invoice Id = '|| to_char(p_invoice_id));
590: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
583: END IF;
584: ELSIF (SQLCODE <> -20001) THEN
585: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
586: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
587: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
588: FND_MESSAGE.SET_TOKEN('PARAMETERS',
589: 'Invoice Id = '|| to_char(p_invoice_id));
590: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
591:
584: ELSIF (SQLCODE <> -20001) THEN
585: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
586: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
587: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
588: FND_MESSAGE.SET_TOKEN('PARAMETERS',
589: 'Invoice Id = '|| to_char(p_invoice_id));
590: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
591:
592: IF (G_INVOICE_LINES_CURSOR%ISOPEN ) THEN
586: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
587: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
588: FND_MESSAGE.SET_TOKEN('PARAMETERS',
589: 'Invoice Id = '|| to_char(p_invoice_id));
590: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
591:
592: IF (G_INVOICE_LINES_CURSOR%ISOPEN ) THEN
593: CLOSE G_Invoice_Lines_Cursor ;
594: END IF;
801: -- Bug 7936518: Start
802: -- P_Token2 := l_error_code;
803:
804: If (substr(l_error_code,1,3) = 'GMS') then
805: P_Token2 := FND_MESSAGE.GET_STRING('GMS',l_error_code);
806: Else
807: P_Token2 := l_error_code;
808: End if;
809: -- Bug 7936518: End
880: RETURN(TRUE);
881:
882: EXCEPTION WHEN OTHERS THEN
883: IF ( SQLCODE = -54 ) THEN
884: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVOICE_UPDATED_REQUERY');
885: IF (G_INVOICE_LINES_CURSOR%ISOPEN ) THEN
886: CLOSE G_Invoice_Lines_Cursor ;
887: END IF;
888: ELSIF (SQLCODE <> -20001) THEN
885: IF (G_INVOICE_LINES_CURSOR%ISOPEN ) THEN
886: CLOSE G_Invoice_Lines_Cursor ;
887: END IF;
888: ELSIF (SQLCODE <> -20001) THEN
889: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
890: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
891: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
892: FND_MESSAGE.SET_TOKEN('PARAMETERS',
893: 'Invoice Id = '|| to_char(p_invoice_id)
886: CLOSE G_Invoice_Lines_Cursor ;
887: END IF;
888: ELSIF (SQLCODE <> -20001) THEN
889: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
890: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
891: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
892: FND_MESSAGE.SET_TOKEN('PARAMETERS',
893: 'Invoice Id = '|| to_char(p_invoice_id)
894: ||'Invoice Line Number = '||to_char(p_invoice_line_number));
887: END IF;
888: ELSIF (SQLCODE <> -20001) THEN
889: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
890: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
891: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
892: FND_MESSAGE.SET_TOKEN('PARAMETERS',
893: 'Invoice Id = '|| to_char(p_invoice_id)
894: ||'Invoice Line Number = '||to_char(p_invoice_line_number));
895: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
888: ELSIF (SQLCODE <> -20001) THEN
889: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
890: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
891: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
892: FND_MESSAGE.SET_TOKEN('PARAMETERS',
893: 'Invoice Id = '|| to_char(p_invoice_id)
894: ||'Invoice Line Number = '||to_char(p_invoice_line_number));
895: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
896: IF (G_Invoice_Lines_Cursor%ISOPEN ) THEN
891: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
892: FND_MESSAGE.SET_TOKEN('PARAMETERS',
893: 'Invoice Id = '|| to_char(p_invoice_id)
894: ||'Invoice Line Number = '||to_char(p_invoice_line_number));
895: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
896: IF (G_Invoice_Lines_Cursor%ISOPEN ) THEN
897: CLOSE G_Invoice_Lines_Cursor ;
898: END IF;
899: END IF;
960:
961:
962: EXCEPTION WHEN OTHERS THEN
963: IF (SQLCODE <> -20001) THEN
964: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
965: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
966: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
967: FND_MESSAGE.SET_TOKEN('PARAMETERS',
968: 'Invoice Id = '|| to_char(p_invoice_id));
961:
962: EXCEPTION WHEN OTHERS THEN
963: IF (SQLCODE <> -20001) THEN
964: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
965: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
966: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
967: FND_MESSAGE.SET_TOKEN('PARAMETERS',
968: 'Invoice Id = '|| to_char(p_invoice_id));
969: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
962: EXCEPTION WHEN OTHERS THEN
963: IF (SQLCODE <> -20001) THEN
964: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
965: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
966: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
967: FND_MESSAGE.SET_TOKEN('PARAMETERS',
968: 'Invoice Id = '|| to_char(p_invoice_id));
969: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
970:
963: IF (SQLCODE <> -20001) THEN
964: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
965: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
966: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
967: FND_MESSAGE.SET_TOKEN('PARAMETERS',
968: 'Invoice Id = '|| to_char(p_invoice_id));
969: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
970:
971: END IF;
965: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
966: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
967: FND_MESSAGE.SET_TOKEN('PARAMETERS',
968: 'Invoice Id = '|| to_char(p_invoice_id));
969: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
970:
971: END IF;
972:
973: APP_EXCEPTION.RAISE_EXCEPTION;