1: PACKAGE BODY gl_movemerge_requests_pkg As
2: /* $Header: glimmrqb.pls 120.9 2005/08/18 06:54:43 adesu ship $ */
3: --
4: --
5: -- PRIVATE DATA DECLARATIONS
15: --
16: -- Function
17: -- get_unique_id
18: -- Purpose
19: -- returns nextval from gl_movemerge_requests_s
20: -- Parameters
21: -- None
22: -- Notes
23: --
22: -- Notes
23: --
24: FUNCTION get_unique_id RETURN NUMBER IS
25: CURSOR get_new_id IS
26: SELECT gl_movemerge_requests_s.NEXTVAL
27: FROM dual;
28: new_id number;
29: BEGIN
30: OPEN get_new_id;
34: return(new_id);
35: ELSE
36: CLOSE get_new_id;
37: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
38: fnd_message.set_token('SEQUENCE', 'GL_MOVEMERGE_REQUESTS_S');
39: app_exception.raise_exception;
40: END IF;
41: EXCEPTION
42: WHEN app_exceptions.application_exception THEN
44: WHEN OTHERS THEN
45: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
46: fnd_message.set_token(
47: 'PROCEDURE',
48: 'gl_movemerge_requests_pkg.get_unique_id');
49: RAISE;
50: END get_unique_id;
51:
52: --
90: WHEN OTHERS THEN
91: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
92: fnd_message.set_token(
93: 'PROCEDURE',
94: 'gl_movemerge_requests_pkg.delete_all_accounts');
95: RAISE;
96: END delete_all_accounts;
97:
98: --+replace ledger_id with chart_of_accounts_id in the SQL cursor
104: CURSOR name_count_new_row IS
105: SELECT 1
106: FROM DUAL
107: WHERE EXISTS (SELECT 1
108: FROM gl_movemerge_requests
109: WHERE name = X_name
110: AND chart_of_accounts_id = X_coaid);
111:
112: CURSOR name_count_old_row IS
112: CURSOR name_count_old_row IS
113: SELECT 1
114: FROM DUAL
115: WHERE EXISTS (SELECT 1
116: FROM gl_movemerge_requests r1, gl_movemerge_requests r2
117: WHERE r1.name = X_name
118: AND r1.chart_of_accounts_id = X_coaid
119: AND r1.rowid <> X_rowid
120: AND r2.rowid = X_rowid
149: WHEN OTHERS THEN
150: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
151: fnd_message.set_token(
152: 'PROCEDURE',
153: 'gl_movemerge_requests_pkg.check_unique_name');
154: RAISE;
155: END check_unique_name;
156:
157:
227: WHEN OTHERS THEN
228: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
229: fnd_message.set_token(
230: 'PROCEDURE',
231: 'gl_movemerge_requests_pkg.check_last_opened_period');
232: RAISE;
233: END ;
234:
235: PROCEDURE get_mm_ledger_id (ledgerid IN NUMBER,
272: WHEN OTHERS THEN
273: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
274: fnd_message.set_token(
275: 'PROCEDURE',
276: 'gl_movemerge_requests_pkg.get_mm_ledger_id');
277: RAISE;
278: END ;
279:
280: End gl_movemerge_requests_pkg;
276: 'gl_movemerge_requests_pkg.get_mm_ledger_id');
277: RAISE;
278: END ;
279:
280: End gl_movemerge_requests_pkg;