1: PACKAGE BODY gl_budget_utils_pkg AS
2: /* $Header: glubdmsb.pls 120.11.12010000.2 2009/03/20 06:05:14 skotakar ship $ */
3:
4: --
5: -- PUBLIC FUNCTIONS
397: encrypted_password,
398: status_code);*/
399:
400: -- Verify that the budget organization is not frozen
401: IF (gl_budget_utils_pkg.frozen_budget_entity(budget_version_id,
402: budget_entity_id)) THEN
403: return_code := 'O';
404: return;
405: END IF;
406:
407: -- Verify that the account is not frozen
408: /* Bug Fix 3866812 */
409: /* Added two parameters lgr_id and currency_code */
410: IF (gl_budget_utils_pkg.frozen_account(coa_id,
411: budget_version_id,
412: budget_entity_id,
413: code_combination_id,
414: lgr_id,
448: RAISE;
449: WHEN OTHERS THEN
450: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
451: fnd_message.set_token('PROCEDURE',
452: 'gl_budget_utils_pkg.get_unique_id');
453: RAISE;
454: END get_unique_id;
455:
456: FUNCTION get_opyr_per_range ( x_budget_version_id IN NUMBER,
577: fnd_message.set_token('LEDGER_NAME', v_ledger_name);
578: app_exception.raise_exception;
579: END IF;
580:
581: IF (gl_budget_utils_pkg.is_funding_budget(
582: X_Ledger_Id,
583: v_func_curr_code,
584: X_Budget_Version_Id)) THEN
585: fnd_message.set_name('SQLGL', 'GL_API_BUDGET_FUNDING_JOURNALS');
627:
628: END validate_budget;
629:
630:
631: END gl_budget_utils_pkg;