28: location IN varchar2,
29: error_code IN number) IS
30: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
31: BEGIN
32: FND_MESSAGE.set_name('INV', 'INV_ALL_SQL_ERROR');
33: FND_MESSAGE.set_token('ROUTINE', routine);
34: FND_MESSAGE.set_token('ERR_NUMBER', location);
35: FND_MESSAGE.set_token('SQL_ERR', SQLERRM(error_code));
36: fnd_msg_pub.ADD;
29: error_code IN number) IS
30: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
31: BEGIN
32: FND_MESSAGE.set_name('INV', 'INV_ALL_SQL_ERROR');
33: FND_MESSAGE.set_token('ROUTINE', routine);
34: FND_MESSAGE.set_token('ERR_NUMBER', location);
35: FND_MESSAGE.set_token('SQL_ERR', SQLERRM(error_code));
36: fnd_msg_pub.ADD;
37: EXCEPTION
30: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
31: BEGIN
32: FND_MESSAGE.set_name('INV', 'INV_ALL_SQL_ERROR');
33: FND_MESSAGE.set_token('ROUTINE', routine);
34: FND_MESSAGE.set_token('ERR_NUMBER', location);
35: FND_MESSAGE.set_token('SQL_ERR', SQLERRM(error_code));
36: fnd_msg_pub.ADD;
37: EXCEPTION
38: WHEN OTHERS THEN
31: BEGIN
32: FND_MESSAGE.set_name('INV', 'INV_ALL_SQL_ERROR');
33: FND_MESSAGE.set_token('ROUTINE', routine);
34: FND_MESSAGE.set_token('ERR_NUMBER', location);
35: FND_MESSAGE.set_token('SQL_ERR', SQLERRM(error_code));
36: fnd_msg_pub.ADD;
37: EXCEPTION
38: WHEN OTHERS THEN
39: NULL;