29: --
30: EXCEPTION
31: WHEN OTHERS THEN
32: IF (SQLCODE <> -20001 ) THEN
33: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
34: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
35: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
36: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
37: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_invoice_id: '
30: EXCEPTION
31: WHEN OTHERS THEN
32: IF (SQLCODE <> -20001 ) THEN
33: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
34: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
35: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
36: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
37: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_invoice_id: '
38: ||TO_CHAR(P_invoice_id)
31: WHEN OTHERS THEN
32: IF (SQLCODE <> -20001 ) THEN
33: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
34: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
35: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
36: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
37: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_invoice_id: '
38: ||TO_CHAR(P_invoice_id)
39: );
32: IF (SQLCODE <> -20001 ) THEN
33: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
34: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
35: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
36: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
37: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_invoice_id: '
38: ||TO_CHAR(P_invoice_id)
39: );
40: END IF;
33: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
34: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
35: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
36: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
37: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_invoice_id: '
38: ||TO_CHAR(P_invoice_id)
39: );
40: END IF;
41: APP_EXCEPTION.RAISE_EXCEPTION;
217: EXCEPTION
218: --
219: WHEN OTHERS THEN
220: IF (SQLCODE <> -20001 ) THEN
221: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
222: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
225: END IF;
218: --
219: WHEN OTHERS THEN
220: IF (SQLCODE <> -20001 ) THEN
221: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
222: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
225: END IF;
226: --
219: WHEN OTHERS THEN
220: IF (SQLCODE <> -20001 ) THEN
221: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
222: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
225: END IF;
226: --
227: errbuf := FND_MESSAGE.GET;
220: IF (SQLCODE <> -20001 ) THEN
221: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
222: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
225: END IF;
226: --
227: errbuf := FND_MESSAGE.GET;
228: retcode := 2;
223: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
225: END IF;
226: --
227: errbuf := FND_MESSAGE.GET;
228: retcode := 2;
229: --
230: END Upgrade;
231: --