18: CLOSE get_new_id;
19: RETURN (new_id);
20: ELSE
21: CLOSE get_new_id;
22: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
23: fnd_message.set_token('SEQUENCE', 'GL_REVALUATIONS_S');
24: app_exception.raise_exception;
25: END IF;
26:
19: RETURN (new_id);
20: ELSE
21: CLOSE get_new_id;
22: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
23: fnd_message.set_token('SEQUENCE', 'GL_REVALUATIONS_S');
24: app_exception.raise_exception;
25: END IF;
26:
27: EXCEPTION
27: EXCEPTION
28: WHEN app_exceptions.application_exception THEN
29: RAISE;
30: WHEN OTHERS THEN
31: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
32: fnd_message.set_token('PROCEDURE', 'GLXRVSUB_PKG.get_unique_id');
33: RAISE;
34: END get_unique_id;
35:
28: WHEN app_exceptions.application_exception THEN
29: RAISE;
30: WHEN OTHERS THEN
31: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
32: fnd_message.set_token('PROCEDURE', 'GLXRVSUB_PKG.get_unique_id');
33: RAISE;
34: END get_unique_id;
35:
36: /* ------------------------------------------------------------------------- */
354: RETURN FALSE;
355:
356: EXCEPTION
357: WHEN OTHERS THEN
358: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
359: fnd_message.set_token('PROCEDURE', 'GLXRVSUB_PKG.check_overlapping');
360: RAISE;
361: END has_overlapping;
362:
355:
356: EXCEPTION
357: WHEN OTHERS THEN
358: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
359: fnd_message.set_token('PROCEDURE', 'GLXRVSUB_PKG.check_overlapping');
360: RAISE;
361: END has_overlapping;
362:
363: /* ------------------------------------------------------------------------- */
371: l_err_type := err_type;
372: l_token := segment_name;
373:
374: IF (l_err_type = 1) THEN
375: fnd_message.set_name('SQLGL', 'GL_REVAL_SEGMENT_NULL_VALUE');
376: fnd_message.set_token('SEG', l_token);
377: app_exception.raise_exception;
378: ELSIF (l_err_type = 2) THEN
379: fnd_message.set_name('SQLGL', 'GL_REVAL_WRONG_RATE');
372: l_token := segment_name;
373:
374: IF (l_err_type = 1) THEN
375: fnd_message.set_name('SQLGL', 'GL_REVAL_SEGMENT_NULL_VALUE');
376: fnd_message.set_token('SEG', l_token);
377: app_exception.raise_exception;
378: ELSIF (l_err_type = 2) THEN
379: fnd_message.set_name('SQLGL', 'GL_REVAL_WRONG_RATE');
380: app_exception.raise_exception;
375: fnd_message.set_name('SQLGL', 'GL_REVAL_SEGMENT_NULL_VALUE');
376: fnd_message.set_token('SEG', l_token);
377: app_exception.raise_exception;
378: ELSIF (l_err_type = 2) THEN
379: fnd_message.set_name('SQLGL', 'GL_REVAL_WRONG_RATE');
380: app_exception.raise_exception;
381: ELSIF (l_err_type = 3) THEN
382: fnd_message.set_name('SQLGL', 'GL_REVAL_NO_REVAL_OPTIONS');
383: app_exception.raise_exception;
378: ELSIF (l_err_type = 2) THEN
379: fnd_message.set_name('SQLGL', 'GL_REVAL_WRONG_RATE');
380: app_exception.raise_exception;
381: ELSIF (l_err_type = 3) THEN
382: fnd_message.set_name('SQLGL', 'GL_REVAL_NO_REVAL_OPTIONS');
383: app_exception.raise_exception;
384: ELSIF (l_err_type = 4) THEN
385: fnd_message.set_name('SQLGL', 'GL_REVAL_DUPLICATE_NAME');
386: app_exception.raise_exception;
381: ELSIF (l_err_type = 3) THEN
382: fnd_message.set_name('SQLGL', 'GL_REVAL_NO_REVAL_OPTIONS');
383: app_exception.raise_exception;
384: ELSIF (l_err_type = 4) THEN
385: fnd_message.set_name('SQLGL', 'GL_REVAL_DUPLICATE_NAME');
386: app_exception.raise_exception;
387: ELSIF (l_err_type = 5) THEN
388: fnd_message.set_name('SQLGL', 'GL_REVALUE_OVERLAP_RANGE');
389: app_exception.raise_exception;
384: ELSIF (l_err_type = 4) THEN
385: fnd_message.set_name('SQLGL', 'GL_REVAL_DUPLICATE_NAME');
386: app_exception.raise_exception;
387: ELSIF (l_err_type = 5) THEN
388: fnd_message.set_name('SQLGL', 'GL_REVALUE_OVERLAP_RANGE');
389: app_exception.raise_exception;
390: ELSE
391: app_exception.raise_exception;
392: END IF;
420: RETURN FALSE;
421:
422: EXCEPTION
423: WHEN OTHERS THEN
424: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
425: fnd_message.set_token('PROCEDURE', 'GLXRVSUB_PKG.name_existed');
426: RAISE;
427: END name_existed;
428:
421:
422: EXCEPTION
423: WHEN OTHERS THEN
424: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
425: fnd_message.set_token('PROCEDURE', 'GLXRVSUB_PKG.name_existed');
426: RAISE;
427: END name_existed;
428:
429: /* ------------------------------------------------------------------------- */
452: END IF;
453:
454: EXCEPTION
455: WHEN OTHERS THEN
456: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
457: fnd_message.set_token('PROCEDURE', 'GLXRVSUB_PKG.no_range_found');
458: RAISE;
459: END range_found;
460:
453:
454: EXCEPTION
455: WHEN OTHERS THEN
456: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
457: fnd_message.set_token('PROCEDURE', 'GLXRVSUB_PKG.no_range_found');
458: RAISE;
459: END range_found;
460:
461: END glxrvsub_pkg;