25: FETCH c_dup INTO dummy;
26:
27: IF c_dup%FOUND THEN
28: CLOSE c_dup;
29: fnd_message.set_name( 'SQLGL', 'GL_DUPLICATE_HISTORICAL_RATE' );
30: app_exception.raise_exception;
31: END IF;
32:
33: CLOSE c_dup;
35: EXCEPTION
36: WHEN app_exceptions.application_exception THEN
37: RAISE;
38: WHEN OTHERS THEN
39: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
40: fnd_message.set_token('PROCEDURE',
41: 'GL_HISTORICAL_RATES_PKG.check_unique');
42: RAISE;
43:
36: WHEN app_exceptions.application_exception THEN
37: RAISE;
38: WHEN OTHERS THEN
39: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
40: fnd_message.set_token('PROCEDURE',
41: 'GL_HISTORICAL_RATES_PKG.check_unique');
42: RAISE;
43:
44: END check_unique;
257: AND (X_Usage_Code IS NULL)))
258: ) then
259: return;
260: else
261: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
262: APP_EXCEPTION.RAISE_EXCEPTION;
263: end if;
264: END Lock_Row;
265:
435: EXCEPTION
436: WHEN app_exceptions.application_exception THEN
437: RAISE;
438: WHEN OTHERS THEN
439: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
440: fnd_message.set_token('PROCEDURE',
441: 'GL_HISTORICAL_RATES_PKG.get_bal_seg');
442: RAISE;
443: END get_bal_seg;
436: WHEN app_exceptions.application_exception THEN
437: RAISE;
438: WHEN OTHERS THEN
439: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
440: fnd_message.set_token('PROCEDURE',
441: 'GL_HISTORICAL_RATES_PKG.get_bal_seg');
442: RAISE;
443: END get_bal_seg;
444: