1: PACKAGE BODY gl_elimination_journals_pkg As
2: /* $Header: gliejoub.pls 120.3 2005/05/05 01:06:58 kvora ship $ */
3:
4: ---
5: --- PRIVATE VARIABLES
11:
12: -- Function
13: -- get_unique_id
14: -- Purpose
15: -- Returns nextval from gl_elimination_journals_s
16: -- Parameters
17: -- None
18: -- Notes
19: --
19: --
20: FUNCTION get_unique_id RETURN NUMBER IS
21:
22: CURSOR get_new_id IS
23: SELECT gl_elimination_journals_s.NEXTVAL
24: FROM dual;
25: new_id number;
26:
27: BEGIN
33: return(new_id);
34: ELSE
35: CLOSE get_new_id;
36: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
37: fnd_message.set_token('SEQUENCE', 'GL_ELIMINATION_JOURNALS_S');
38: app_exception.raise_exception;
39: END IF;
40:
41: EXCEPTION
46: WHEN OTHERS THEN
47: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
48: fnd_message.set_token(
49: 'PROCEDURE',
50: 'gl_elimination_journals_pkg.get_unique_id');
51: RAISE;
52: END get_unique_id;
53:
54:
106: CURSOR name_count IS
107: SELECT 1
108: FROM DUAL
109: WHERE EXISTS (SELECT 1
110: FROM gl_elimination_journals
111: WHERE journal_name = X_name
112: AND elimination_set_id = X_setid
113: AND ((X_rowid IS NULL) OR (rowid <> X_rowid)));
114: BEGIN
135: 'gl_elimination_sets_pkg.check_unique_name');
136: RAISE;
137: END check_unique_name;
138:
139: End gl_elimination_journals_pkg;