[Home] [Help]
1: PACKAGE BODY gl_budget_entities_pkg AS
2: /* $Header: glibdorb.pls 120.8 2005/05/05 01:01:46 kvora ship $ */
3:
4: --
5: -- PRIVATE FUNCTIONS
14: -- 21-MAR-93 D. J. Ogg Created
15: -- Arguments
16: -- recinfo Various information about the row
17: -- Example
18: -- gl_budget_entities_pkg.select_row(recinfo)
19: -- Notes
20: --
21: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_budget_entities%ROWTYPE) IS
22: BEGIN
63: RAISE;
64: WHEN OTHERS THEN
65: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
66: fnd_message.set_token('PROCEDURE',
67: 'gl_budget_entities_pkg.check_unique');
68: RAISE;
69: END check_unique;
70:
71: FUNCTION check_for_all(lgr_id NUMBER, row_id VARCHAR2) RETURN BOOLEAN IS
96: RAISE;
97: WHEN OTHERS THEN
98: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
99: fnd_message.set_token('PROCEDURE',
100: 'gl_budget_entities_pkg.check_for_all');
101: RAISE;
102: END check_for_all;
103:
104: FUNCTION has_ranges(org_id NUMBER) RETURN BOOLEAN IS
124: RAISE;
125: WHEN OTHERS THEN
126: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
127: fnd_message.set_token('PROCEDURE',
128: 'gl_budget_entities_pkg.has_ranges');
129: RAISE;
130: END has_ranges;
131:
132: FUNCTION get_unique_id RETURN NUMBER IS
153: RAISE;
154: WHEN OTHERS THEN
155: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
156: fnd_message.set_token('PROCEDURE',
157: 'gl_budget_entities_pkg.get_unique_id');
158: RAISE;
159: END get_unique_id;
160:
161: PROCEDURE lock_organization(org_id NUMBER) IS
182: RAISE;
183: WHEN OTHERS THEN
184: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
185: fnd_message.set_token('PROCEDURE',
186: 'gl_budget_entities_pkg.lock_organization');
187: RAISE;
188: END lock_organization;
189:
190: PROCEDURE select_columns( entity_id NUMBER,
226: RAISE;
227: WHEN OTHERS THEN
228: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
229: fnd_message.set_token('PROCEDURE',
230: 'gl_budget_entities_pkg.budget_and_acount_seg_info');
231: RAISE;
232: END budget_and_account_seg_info;
233:
234: --** Added Security_Flag for Definition Access Set enhancement
299:
300: BEGIN
301: -- Make sure only one ALL organization
302: IF (X_All_Name AND
303: gl_budget_entities_pkg.check_for_all(
304: X_Ledger_Id,
305: X_Rowid)) THEN
306: fnd_message.set_name('SQLGL', 'GL_BUDGET_ONLY_ONE_ALL');
307: app_exception.raise_exception;
464: RAISE;
465: WHEN OTHERS THEN
466: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
467: fnd_message.set_token('PROCEDURE',
468: 'gl_budget_entities_pkg.insert_row');
469: RAISE;
470: END Insert_Row;
471:
472: --** Added Security_Flag for Definition Access Set enhancement
532: BEGIN
533:
534: -- Make sure only one ALL organization
535: IF (X_All_Name AND
536: gl_budget_entities_pkg.check_for_all(
537: X_Ledger_Id,
538: X_Rowid)) THEN
539: fnd_message.set_name('SQLGL', 'GL_BUDGET_ONLY_ONE_ALL');
540: app_exception.raise_exception;
606: RAISE;
607: WHEN OTHERS THEN
608: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
609: fnd_message.set_token('PROCEDURE',
610: 'gl_budget_entities_pkg.update_row');
611: RAISE;
612: END Update_Row;
613:
614: --** Added for Definition Access Set enhancement
1010: ELSE
1011: L_All_Org := FALSE;
1012: END IF;
1013:
1014: GL_BUDGET_ENTITIES_PKG.Insert_Row(
1015: X_Rowid,
1016: X_Budget_Entity_Id,
1017: X_Name,
1018: X_Ledger_Id,
1076: RAISE;
1077: WHEN OTHERS THEN
1078: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1079: fnd_message.set_token('PROCEDURE',
1080: 'GL_BUDGET_ENTITIES_PKG.Insert_Org');
1081: RAISE;
1082: END Insert_Org;
1083:
1084:
1119: RAISE;
1120: WHEN OTHERS THEN
1121: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1122: fnd_message.set_token('PROCEDURE',
1123: 'GL_BUDGET_ENTITIES_PKG.Insert_Org');
1124: RAISE;
1125:
1126: END Submit_Assign_Ranges_Request;
1127:
1156: 'GL_BUDGET_ORG_PKG.Set_BC_Timestamp');
1157: RAISE;
1158: END Set_BC_Timestamp;
1159:
1160: END gl_budget_entities_pkg;