1: PACKAGE BODY GL_RECURRING_LINES_PKG as
2: /* $Header: glireclb.pls 120.3 2005/05/05 01:20:10 kvora ship $ */
3:
4:
5: --
11: x_line_num NUMBER,
12: x_header_id NUMBER ) IS
13: CURSOR c_dup IS
14: SELECT 'Duplicate'
15: FROM gl_recurring_lines l
16: WHERE l.recurring_line_num = x_line_num
17: AND l.recurring_header_id = x_header_id
18: AND ( x_rowid is NULL
19: OR
38: RAISE;
39: WHEN OTHERS THEN
40: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
41: fnd_message.set_token('PROCEDURE',
42: 'GL_RECURRING_LINES_PKG.check_unique');
43: RAISE;
44:
45: END check_unique;
46:
51: SELECT 'Duplicate'
52: FROM dual
53: WHERE exists
54: ( SELECT 'x'
55: FROM gl_recurring_lines rl,
56: gl_recurring_headers rh,
57: gl_recurring_batches rb
58: WHERE
59: rb.recurring_batch_id = x_batch_id
83: RAISE;
84: WHEN OTHERS THEN
85: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
86: fnd_message.set_token('PROCEDURE',
87: 'GL_RECURRING_LINES_PKG.check_dup_budget_acct');
88: RAISE;
89:
90: END check_dup_budget_acct;
91:
99: FROM GL_RECURRING_LINE_CALC_RULES
100: WHERE RECURRING_HEADER_ID = x_header_id;
101:
102: DELETE
103: FROM GL_RECURRING_LINES
104: WHERE RECURRING_HEADER_ID = x_header_id;
105:
106: EXCEPTION
107: WHEN app_exceptions.application_exception THEN
108: RAISE;
109: WHEN OTHERS THEN
110: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
111: fnd_message.set_token('PROCEDURE',
112: 'GL_RECURRING_LINES_PKG.delete_rows');
113: RAISE;
114:
115: END delete_rows;
116:
143: X_Context VARCHAR2,
144: X_Budget_Flag VARCHAR2,
145: X_Batch_Id NUMBER
146: ) IS
147: CURSOR C IS SELECT rowid FROM GL_RECURRING_LINES
148: WHERE recurring_header_id = X_Recurring_Header_Id
149: and recurring_line_num = X_Recurring_Line_Num;
150:
151: BEGIN
156: IF (X_Budget_Flag = 'Y') THEN
157: check_dup_budget_acct( X_Rowid, X_Code_Combination_Id, X_Batch_Id);
158: END IF;
159:
160: INSERT INTO GL_RECURRING_LINES(
161: recurring_header_id,
162: recurring_line_num,
163: last_update_date,
164: last_updated_by,
240: X_Context VARCHAR2
241: ) IS
242: CURSOR C IS
243: SELECT *
244: FROM GL_RECURRING_LINES
245: WHERE rowid = X_Rowid
246: FOR UPDATE of Recurring_Header_Id NOWAIT;
247: Recinfo C%ROWTYPE;
248:
348: IF (X_Budget_Flag = 'Y') THEN
349: check_dup_budget_acct( X_Rowid, X_Code_Combination_Id, X_Batch_Id);
350: END IF;
351:
352: UPDATE GL_RECURRING_LINES
353: SET
354: recurring_header_id = X_Recurring_Header_Id,
355: recurring_line_num = X_Recurring_Line_Num,
356: last_update_date = X_Last_Update_Date,
379: end if;
380: END Update_Row;
381: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
382: BEGIN
383: DELETE FROM GL_RECURRING_LINES
384: WHERE rowid = X_Rowid;
385:
386: if (SQL%NOTFOUND) then
387: Raise NO_DATA_FOUND;
392:
393: -- **********************************************************************
394:
395:
396: END GL_RECURRING_LINES_PKG;