1: PACKAGE BODY gl_budgets_pkg AS
2: /* $Header: glibddfb.pls 120.5 2005/05/05 01:01:17 kvora ship $ */
3:
4: --
5: -- PRIVATE FUNCTIONS
137: WHEN app_exceptions.application_exception THEN
138: RAISE;
139: WHEN OTHERS THEN
140: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
141: fnd_message.set_token('PROCEDURE', 'gl_budgets_pkg.check_unique');
142: RAISE;
143: END check_unique;
144:
145: FUNCTION get_unique_id RETURN NUMBER IS
165: WHEN app_exceptions.application_exception THEN
166: RAISE;
167: WHEN OTHERS THEN
168: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
169: fnd_message.set_token('PROCEDURE', 'gl_budgets_pkg.get_unique_id');
170: RAISE;
171: END get_unique_id;
172:
173:
319: END IF;
320:
321: -- Lock and check the master budget
322: IF (x_master_budget_version_id IS NOT NULL) THEN
323: gl_budgets_pkg.lock_master_budget(x_master_budget_version_id,
324: x_first_valid_period_name,
325: x_last_valid_period_name);
326: END IF;
327:
603: END IF;
604:
605: -- Lock and check the master budget
606: IF (x_master_budget_version_id IS NOT NULL) THEN
607: gl_budgets_pkg.lock_master_budget(x_master_budget_version_id,
608: x_first_valid_period_name,
609: x_last_valid_period_name);
610: END IF;
611:
610: END IF;
611:
612: -- Check any detail budgets that may have been changed by this same
613: -- commit
614: gl_budgets_pkg.check_detail_budgets( x_budget_version_id,
615: x_budget_name,
616: x_first_valid_period_name,
617: x_last_valid_period_name);
618:
661: RAISE;
662: WHEN OTHERS THEN
663: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
664: fnd_message.set_token('PROCEDURE',
665: 'gl_budgets_pkg.update_row');
666: RAISE;
667:
668: END Update_Row;
669:
676: RAISE NO_DATA_FOUND;
677: end if;
678: END Delete_Row;
679:
680: END gl_budgets_pkg;