11: x_ledger_id NUMBER ) RETURN BOOLEAN IS
12:
13: CURSOR c_no_fc IS
14: SELECT 'found'
15: FROM GL_BUDGET_ASSIGNMENT_RANGES bar
16: WHERE bar.ledger_id = x_ledger_id
17: AND EXISTS (SELECT 'found'
18: FROM GL_BUDORG_BC_OPTIONS bco
19: WHERE bar.range_id = bco.range_id);
50: PROCEDURE check_unique(org_id NUMBER, seq_num NUMBER,
51: row_id VARCHAR2) IS
52: CURSOR chk_duplicates is
53: SELECT 'Duplicate'
54: FROM GL_BUDGET_ASSIGNMENT_RANGES bar
55: WHERE bar.budget_entity_id = org_id
56: AND bar.sequence_number = seq_num
57: AND ( row_id is null
58: OR bar.rowid <> row_id);
82:
83: PROCEDURE lock_range(x_range_id NUMBER) IS
84: CURSOR lock_rng is
85: SELECT 'Range locked'
86: FROM GL_BUDGET_ASSIGNMENT_RANGES bar
87: WHERE bar.range_id = x_range_id
88: FOR UPDATE OF status;
89: dummy VARCHAR2(100);
90: BEGIN
202: X_Chart_Of_Accounts_Id NUMBER
203: ) IS
204:
205: CURSOR get_new_id IS
206: SELECT gl_budget_assignment_ranges_s.NEXTVAL
207: FROM dual;
208:
209:
210: CURSOR C IS SELECT rowid FROM GL_BUDGET_ASSIGNMENT_RANGES
206: SELECT gl_budget_assignment_ranges_s.NEXTVAL
207: FROM dual;
208:
209:
210: CURSOR C IS SELECT rowid FROM GL_BUDGET_ASSIGNMENT_RANGES
211:
212: WHERE range_id = X_Range_Id;
213:
214: CURSOR check_overlaps IS
215: SELECT 'Overlapping'
216: FROM DUAL
217: WHERE EXISTS
218: (SELECT 'X'
219: FROM GL_BUDGET_ASSIGNMENT_RANGES
220: WHERE LEDGER_ID = X_LEDGER_ID
221: AND CURRENCY_CODE = X_CURRENCY_CODE
222: AND (NVL(SEGMENT30_LOW,'X') <= NVL(X_SEGMENT30_HIGH,'X')
223: AND NVL(SEGMENT30_HIGH,'X') >= NVL(X_SEGMENT30_LOW,'X')
299: CLOSE get_new_id;
300: ELSE
301: CLOSE get_new_id;
302: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
303: fnd_message.set_token('SEQUENCE', 'GL_BUDGET_ASSIGNMENT_RANGES_S');
304: app_exception.raise_exception;
305: END IF;
306: L_Status := X_Status;
307: END IF;
324: ELSE
325: CLOSE check_overlaps;
326: END IF;
327:
328: INSERT INTO GL_BUDGET_ASSIGNMENT_RANGES(
329: budget_entity_id,
330: ledger_id,
331: currency_code,
332: entry_code,
601: X_Attribute15 VARCHAR2
602: ) IS
603: CURSOR C IS
604: SELECT *
605: FROM GL_BUDGET_ASSIGNMENT_RANGES
606: WHERE rowid = X_Rowid
607: FOR UPDATE of Range_Id NOWAIT;
608: Recinfo C%ROWTYPE;
609: BEGIN
965: X_Attribute14 VARCHAR2,
966: X_Attribute15 VARCHAR2
967: ) IS
968: BEGIN
969: UPDATE GL_BUDGET_ASSIGNMENT_RANGES
970: SET
971:
972: budget_entity_id = X_Budget_Entity_Id,
973: ledger_id = X_Ledger_Id,
1071:
1072: -- Delete any assignments made by this range
1073: gl_budget_assignment_pkg.delete_range_assignments(X_Range_Id);
1074:
1075: DELETE FROM GL_BUDGET_ASSIGNMENT_RANGES
1076: WHERE rowid = X_Rowid;
1077:
1078: if (SQL%NOTFOUND) then
1079: RAISE NO_DATA_FOUND;