19: FETCH chk_duplicates INTO dummy;
20:
21: IF chk_duplicates%FOUND THEN
22: CLOSE chk_duplicates;
23: fnd_message.set_name('SQLGL', 'GL_DUPLICATE_ALLOC_BATCH_NAME');
24: app_exception.raise_exception;
25: END IF;
26:
27: CLOSE chk_duplicates;
29: EXCEPTION
30: WHEN app_exceptions.application_exception THEN
31: RAISE;
32: WHEN OTHERS THEN
33: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
34: fnd_message.set_token('PROCEDURE', 'gl_alloc_batches_pkg.check_unique');
35: RAISE;
36: END check_unique;
37:
30: WHEN app_exceptions.application_exception THEN
31: RAISE;
32: WHEN OTHERS THEN
33: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
34: fnd_message.set_token('PROCEDURE', 'gl_alloc_batches_pkg.check_unique');
35: RAISE;
36: END check_unique;
37:
38: FUNCTION get_unique_id RETURN NUMBER IS
48: CLOSE get_new_id;
49: return(new_id);
50: ELSE
51: CLOSE get_new_id;
52: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
53: fnd_message.set_token('SEQUENCE', 'GL_ALLOC_BATCHES_S');
54: app_exception.raise_exception;
55: END IF;
56:
49: return(new_id);
50: ELSE
51: CLOSE get_new_id;
52: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
53: fnd_message.set_token('SEQUENCE', 'GL_ALLOC_BATCHES_S');
54: app_exception.raise_exception;
55: END IF;
56:
57: EXCEPTION
57: EXCEPTION
58: WHEN app_exceptions.application_exception THEN
59: RAISE;
60: WHEN OTHERS THEN
61: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
62: fnd_message.set_token('PROCEDURE', 'gl_alloc_batches_pkg.get_unique_id');
63: RAISE;
64: END get_unique_id;
65:
58: WHEN app_exceptions.application_exception THEN
59: RAISE;
60: WHEN OTHERS THEN
61: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
62: fnd_message.set_token('PROCEDURE', 'gl_alloc_batches_pkg.get_unique_id');
63: RAISE;
64: END get_unique_id;
65:
66: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
151: OPEN C;
152: FETCH C INTO Recinfo;
153: if (C%NOTFOUND) then
154: CLOSE C;
155: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
156: APP_EXCEPTION.Raise_Exception;
157: end if;
158: CLOSE C;
159: if (
172:
173: ) then
174: return;
175: else
176: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
177: APP_EXCEPTION.RAISE_EXCEPTION;
178: end if;
179: END Lock_Row;
180:
228: FETCH chk_autoalloc_set INTO dummy;
229:
230: IF chk_autoalloc_set%FOUND THEN
231: CLOSE chk_autoalloc_set;
232: fnd_message.set_name('SQLGL', 'GL_BATCH_USED_IN_ALLOC_SET');
233: app_exception.raise_exception;
234: END IF;
235:
236: CLOSE chk_autoalloc_set;
415: EXCEPTION
416: WHEN app_exceptions.application_exception THEN
417: RAISE;
418: WHEN OTHERS THEN
419: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
420: fnd_message.set_token('PROCEDURE',
421: 'GL_ALLOC_BATCHES_PKG.Autocopy');
422: RAISE;
423:
416: WHEN app_exceptions.application_exception THEN
417: RAISE;
418: WHEN OTHERS THEN
419: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
420: fnd_message.set_token('PROCEDURE',
421: 'GL_ALLOC_BATCHES_PKG.Autocopy');
422: RAISE;
423:
424: END Autocopy;
438: CLOSE chk_autoalloc_set;
439: ELSE
440: -- it is being used by some AutoAllocation sets, exit
441: CLOSE chk_autoalloc_set;
442: fnd_message.set_name('SQLGL', 'GL_BATCH_USED_IN_ALLOC_SET');
443: app_exception.raise_exception;
444: END IF;
445:
446: END check_batch;