DBA Data[Home] [Help]

APPS.GL_BUDGETS_PKG dependencies on GL_BUDGETS

Line 1: PACKAGE BODY gl_budgets_pkg AS

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

Line 35: FROM gl_budget_versions bv, gl_budgets b

31: x_first_valid_period_name VARCHAR2,
32: x_last_valid_period_name VARCHAR2) IS
33: CURSOR chk_details IS
34: SELECT 'Master budget'
35: FROM gl_budget_versions bv, gl_budgets b
36: WHERE bv.control_budget_version_id =
37: x_budget_version_id
38: AND b.budget_name = bv.budget_name
39: AND b.budget_type = bv.budget_type

Line 82: FROM gl_budgets b

78: x_first_valid_period_name VARCHAR2,
79: x_last_valid_period_name VARCHAR2) IS
80: CURSOR lock_master IS
81: SELECT 'Master budget'
82: FROM gl_budgets b
83: WHERE b.budget_name =
84: (SELECT bv.budget_name
85: FROM gl_budget_versions bv
86: WHERE bv.budget_version_id =

Line 118: FROM GL_BUDGETS bud

114: PROCEDURE check_unique(name VARCHAR2,
115: row_id VARCHAR2) IS
116: CURSOR chk_duplicates IS
117: SELECT 'Duplicate'
118: FROM GL_BUDGETS bud
119: WHERE bud.budget_name = name
120: AND bud.budget_type = 'standard'
121: AND ( row_id is null
122: OR bud.rowid <> row_id);

Line 141: fnd_message.set_token('PROCEDURE', 'gl_budgets_pkg.check_unique');

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

Line 169: fnd_message.set_token('PROCEDURE', 'gl_budgets_pkg.get_unique_id');

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:

Line 179: FROM GL_BUDGETS b

175: x_ledger_id NUMBER ) RETURN BOOLEAN IS
176:
177: CURSOR c_no_journal IS
178: SELECT 'found'
179: FROM GL_BUDGETS b
180: WHERE b.ledger_id = x_ledger_id
181: AND b.require_budget_journals_flag = 'N';
182:
183: dummy VARCHAR2(100);

Line 210: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_budgets%ROWTYPE ) IS

206:
207: END is_budget_journals_not_req;
208:
209:
210: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_budgets%ROWTYPE ) IS
211: BEGIN
212: SELECT *
213: INTO recinfo
214: FROM gl_budgets

Line 214: FROM gl_budgets

210: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_budgets%ROWTYPE ) IS
211: BEGIN
212: SELECT *
213: INTO recinfo
214: FROM gl_budgets
215: WHERE ledger_id = recinfo.ledger_id
216: AND budget_name = recinfo.budget_name ;
217: EXCEPTION
218: WHEN NO_DATA_FOUND THEN

Line 225: 'gl_budgets.select_row');

221: RAISE;
222: WHEN OTHERS THEN
223: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
224: fnd_message.set_token('PROCEDURE',
225: 'gl_budgets.select_row');
226: RAISE;
227: END select_row;
228:
229:

Line 240: recinfo gl_budgets%ROWTYPE;

236: x_latest_opened_year IN OUT NOCOPY NUMBER,
237: x_first_valid_period_name IN OUT NOCOPY VARCHAR2,
238: x_last_valid_period_name IN OUT NOCOPY VARCHAR2 ) IS
239:
240: recinfo gl_budgets%ROWTYPE;
241:
242: BEGIN
243: recinfo.ledger_id := x_ledger_id;
244: recinfo.budget_name := x_budget_name;

Line 261: 'gl_budgets.select_columns');

257: RAISE;
258: WHEN OTHERS THEN
259: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
260: fnd_message.set_token('PROCEDURE',
261: 'gl_budgets.select_columns');
262: RAISE;
263: END select_columns;
264:
265:

Line 294: CURSOR C IS SELECT rowid FROM GL_BUDGETS

290: X_Date DATE,
291: X_Budget_Version_Id NUMBER,
292: X_Master_Budget_Version_Id NUMBER DEFAULT NULL
293: ) IS
294: CURSOR C IS SELECT rowid FROM GL_BUDGETS
295: WHERE budget_name = X_Budget_Name;
296: BEGIN
297:
298: -- If the budget is the current budget, then make sure there are no

Line 323: gl_budgets_pkg.lock_master_budget(x_master_budget_version_id,

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:

Line 330: INSERT INTO GL_BUDGETS(

326: END IF;
327:
328:
329: -- Do the insert
330: INSERT INTO GL_BUDGETS(
331: creation_date,
332: created_by,
333: last_update_date,
334: last_updated_by,

Line 449: FROM GL_BUDGETS

445:
446: ) IS
447: CURSOR C IS
448: SELECT *
449: FROM GL_BUDGETS
450: WHERE rowid = X_Rowid
451: FOR UPDATE of Budget_Name NOWAIT;
452: Recinfo C%ROWTYPE;
453: BEGIN

Line 607: gl_budgets_pkg.lock_master_budget(x_master_budget_version_id,

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:

Line 614: gl_budgets_pkg.check_detail_budgets( x_budget_version_id,

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:

Line 619: UPDATE GL_BUDGETS

615: x_budget_name,
616: x_first_valid_period_name,
617: x_last_valid_period_name);
618:
619: UPDATE GL_BUDGETS
620: SET
621: last_updated_by = X_User_Id,
622: last_update_login = X_Login_Id,
623: last_update_date = X_Date,

Line 665: 'gl_budgets_pkg.update_row');

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:

Line 672: DELETE FROM GL_BUDGETS

668: END Update_Row;
669:
670: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
671: BEGIN
672: DELETE FROM GL_BUDGETS
673: WHERE rowid = X_Rowid;
674:
675: if (SQL%NOTFOUND) then
676: RAISE NO_DATA_FOUND;

Line 680: END gl_budgets_pkg;

676: RAISE NO_DATA_FOUND;
677: end if;
678: END Delete_Row;
679:
680: END gl_budgets_pkg;