[Home] [Help]
14: -- 21-MAR-93 D. J. Ogg Created
15: -- Arguments
16: -- recinfo Various information about the row
17: -- Example
18: -- gl_budget_assignments_pkg.select_row(recinfo)
19: -- Notes
20: --
21: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_budget_assignments%ROWTYPE) IS
22: BEGIN
17: -- Example
18: -- gl_budget_assignments_pkg.select_row(recinfo)
19: -- Notes
20: --
21: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_budget_assignments%ROWTYPE) IS
22: BEGIN
23: SELECT *
24: INTO recinfo
25: FROM gl_budget_assignments
21: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_budget_assignments%ROWTYPE) IS
22: BEGIN
23: SELECT *
24: INTO recinfo
25: FROM gl_budget_assignments
26: WHERE ledger_id = recinfo.ledger_id
27: AND code_combination_id = recinfo.code_combination_id
28: AND currency_code = recinfo.currency_code
29: AND rownum = 1;
37: PROCEDURE check_unique(lgr_id NUMBER, ccid NUMBER, curr_code VARCHAR2,
38: rng_id NUMBER, row_id VARCHAR2) IS
39: CURSOR chk_duplicates is
40: SELECT 'Duplicate'
41: FROM GL_BUDGET_ASSIGNMENTS ba
42: WHERE ba.ledger_id = lgr_id
43: AND ba.code_combination_id = ccid
44: AND ba.currency_code = curr_code
45: AND ba.range_id = rng_id
69: END check_unique;
70:
71: PROCEDURE delete_range_assignments(xrange_id NUMBER) IS
72: BEGIN
73: DELETE GL_BUDGET_ASSIGNMENTS ba
74: WHERE ba.range_id = xrange_id;
75:
76: EXCEPTION
77: WHEN no_data_found THEN
87:
88: PROCEDURE delete_assignment(lgr_id NUMBER, ccid NUMBER,
89: curr_code VARCHAR2, rng_id NUMBER) IS
90: BEGIN
91: DELETE GL_BUDGET_ASSIGNMENTS ba
92: WHERE ba.ledger_id = lgr_id
93: AND ba.code_combination_id = ccid
94: AND ba.currency_code = curr_code
95: AND ba.range_id = rng_id
113: xcurr_code VARCHAR2 ) RETURN BOOLEAN IS
114:
115: CURSOR c IS
116: SELECT 'Calculated'
117: FROM gl_budget_assignments ba
118: WHERE ba.ledger_id = xlgr_id
119: AND ba.code_combination_id = xccid
120: AND ba.currency_code = xcurr_code
121: AND ba.entry_code = 'C';
150: xccid NUMBER ) RETURN BOOLEAN IS
151:
152: CURSOR c IS
153: SELECT 'Stat Enterable'
154: FROM gl_budget_assignments ba
155: WHERE ba.ledger_id = xlgr_id
156: AND ba.code_combination_id = xccid
157: AND ba.currency_code = 'STAT'
158: AND ba.entry_code = 'E';
188: xcurr_code VARCHAR2,
189: xentity_id IN OUT NOCOPY NUMBER,
190: xentry_code IN OUT NOCOPY VARCHAR2) IS
191:
192: recinfo gl_budget_assignments%ROWTYPE;
193:
194: BEGIN
195: recinfo.ledger_id := xlgr_id;
196: recinfo.code_combination_id := xccid;
227: X_Attribute8 VARCHAR2,
228: X_Context VARCHAR2,
229: X_Range_Id NUMBER
230: ) IS
231: CURSOR C IS SELECT rowid FROM GL_BUDGET_ASSIGNMENTS
232:
233: WHERE ledger_id = X_Ledger_Id
234:
235: AND code_combination_id = X_Code_Combination_Id
242: -- Make sure the budget organization isn't deleted as the range
243: -- is being inserted
244: gl_budget_entities_pkg.lock_organization(X_BUDGET_ENTITY_ID);
245:
246: INSERT INTO GL_BUDGET_ASSIGNMENTS(
247: ledger_id,
248: budget_entity_id,
249: code_combination_id,
250: currency_code,
318: X_Range_Id NUMBER
319: ) IS
320: CURSOR C IS
321: SELECT *
322: FROM GL_BUDGET_ASSIGNMENTS
323: WHERE rowid = X_Rowid
324: FOR UPDATE of Ledger_Id NOWAIT;
325: Recinfo C%ROWTYPE;
326: BEGIN
409: X_Context VARCHAR2,
410: X_Range_Id NUMBER
411: ) IS
412: BEGIN
413: UPDATE GL_BUDGET_ASSIGNMENTS
414: SET
415:
416: ledger_id = X_Ledger_Id,
417: budget_entity_id = X_Budget_Entity_Id,
441: END Update_Row;
442:
443: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
444: BEGIN
445: DELETE FROM GL_BUDGET_ASSIGNMENTS
446: WHERE rowid = X_Rowid;
447:
448: if (SQL%NOTFOUND) then
449: RAISE NO_DATA_FOUND;