33: CLOSE 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
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
41: EXCEPTION
42: WHEN app_exceptions.application_exception THEN
43: RAISE;
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;
42: WHEN app_exceptions.application_exception THEN
43: RAISE;
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;
64: OPEN count_rows;
65: FETCH count_rows INTO dumdum;
66: IF count_rows%NOTFOUND THEN
67: CLOSE count_rows;
68: FND_MESSAGE.set_name('SQLGL', 'GL_MM_REQUEST_WITHOUT_ACCOUNTS');
69: APP_EXCEPTION.raise_exception;
70: ELSE
71: CLOSE count_rows;
72: END IF;
73: EXCEPTION
74: WHEN app_exceptions.application_exception THEN
75: RAISE;
76: WHEN OTHERS THEN
77: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
78: fnd_message.set_token('PROCEDURE', 'gl_mmwkb_pkg.must_have_accounts');
79: RAISE;
80: END must_have_accounts;
81:
74: WHEN app_exceptions.application_exception THEN
75: RAISE;
76: WHEN OTHERS THEN
77: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
78: fnd_message.set_token('PROCEDURE', 'gl_mmwkb_pkg.must_have_accounts');
79: RAISE;
80: END must_have_accounts;
81:
82:
87: EXCEPTION
88: WHEN app_exceptions.application_exception THEN
89: RAISE;
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;
88: WHEN app_exceptions.application_exception THEN
89: RAISE;
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;
126: OPEN name_count_new_row;
127: FETCH name_count_new_row INTO dumdum;
128: IF name_count_new_row%FOUND THEN
129: CLOSE name_count_new_row;
130: FND_MESSAGE.set_name('SQLGL', 'GL_DUPLICATE_NAME');
131: APP_EXCEPTION.raise_exception;
132: ELSE
133: CLOSE name_count_new_row;
134: END IF;
136: OPEN name_count_old_row;
137: FETCH name_count_old_row INTO dumdum;
138: IF name_count_old_row%FOUND THEN
139: CLOSE name_count_old_row;
140: FND_MESSAGE.set_name('SQLGL', 'GL_DUPLICATE_NAME');
141: APP_EXCEPTION.raise_exception;
142: ELSE
143: CLOSE name_count_old_row;
144: END IF;
146: EXCEPTION
147: WHEN app_exceptions.application_exception THEN
148: RAISE;
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;
147: WHEN app_exceptions.application_exception THEN
148: RAISE;
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;
213: OPEN ledger_id_cur;
214: LOOP
215: FETCH ledger_id_cur INTO target_ledger_name;
216: EXIT WHEN ledger_id_cur%NOTFOUND;
217: FND_MESSAGE.set_name('SQLGL', 'GLMM0115');
218: FND_MESSAGE.set_token('ALC_NAME', target_ledger_name);
219: APP_EXCEPTION.raise_exception;
220: EXIT;
221: END LOOP;
214: LOOP
215: FETCH ledger_id_cur INTO target_ledger_name;
216: EXIT WHEN ledger_id_cur%NOTFOUND;
217: FND_MESSAGE.set_name('SQLGL', 'GLMM0115');
218: FND_MESSAGE.set_token('ALC_NAME', target_ledger_name);
219: APP_EXCEPTION.raise_exception;
220: EXIT;
221: END LOOP;
222: CLOSE ledger_id_cur;
224: EXCEPTION
225: WHEN app_exceptions.application_exception THEN
226: RAISE;
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;
225: WHEN app_exceptions.application_exception THEN
226: RAISE;
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 ;
269: EXCEPTION
270: WHEN app_exceptions.application_exception THEN
271: RAISE;
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;
270: WHEN app_exceptions.application_exception THEN
271: RAISE;
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 ;