[Home] [Help]
1: PACKAGE BODY GL_SUSPENSE_ACCOUNTS_PKG as
2: /* $Header: gliacsab.pls 120.5 2005/05/05 00:58:41 kvora ship $ */
3:
4:
5: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
18: X_Attribute4 VARCHAR2,
19: X_Attribute5 VARCHAR2,
20: X_Context VARCHAR2
21: ) IS
22: CURSOR C IS SELECT rowid FROM GL_SUSPENSE_ACCOUNTS
23:
24: WHERE ledger_id = X_Ledger_Id
25:
26: AND je_source_name = X_Je_Source_Name
31:
32:
33: BEGIN
34:
35: INSERT INTO GL_SUSPENSE_ACCOUNTS(
36: ledger_id,
37: je_source_name,
38: je_category_name,
39: code_combination_id,
89: X_Context VARCHAR2
90: ) IS
91: CURSOR C IS
92: SELECT *
93: FROM GL_SUSPENSE_ACCOUNTS
94: WHERE rowid = X_Rowid
95: FOR UPDATE of Ledger_Id NOWAIT;
96: Recinfo C%ROWTYPE;
97: BEGIN
156: X_Attribute5 VARCHAR2,
157: X_Context VARCHAR2
158: ) IS
159: BEGIN
160: UPDATE GL_SUSPENSE_ACCOUNTS
161: SET
162:
163: ledger_id = X_Ledger_Id,
164: je_source_name = X_Je_Source_Name,
182: END Update_Row;
183:
184: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
185: BEGIN
186: DELETE FROM GL_SUSPENSE_ACCOUNTS
187: WHERE rowid = X_Rowid;
188:
189: if (SQL%NOTFOUND) then
190: RAISE NO_DATA_FOUND;
197: X_Rowid VARCHAR2
198: ) IS
199: CURSOR check_dups IS
200: SELECT 1
201: FROM GL_SUSPENSE_ACCOUNTS sa
202: WHERE sa.je_source_name = X_Je_Source_Name
203: AND sa.je_category_name = X_Je_Category_Name
204: AND sa.ledger_id = X_Ledger_Id
205: AND ( X_Rowid is NULL
224: RAISE;
225: WHEN OTHERS THEN
226: fnd_message.set_name('SQLGL', 'Unhandled Exception');
227: fnd_message.set_token('PROCEDURE',
228: 'GL_SUSPENSE_ACCOUNTS.Check_Unique');
229: RAISE;
230: END Check_Unique;
231:
232: -- **********************************************************************
234: FUNCTION is_ledger_suspense_exist( x_ledger_id NUMBER ) RETURN BOOLEAN IS
235:
236: CURSOR c_other IS
237: SELECT 'found'
238: FROM GL_SUSPENSE_ACCOUNTS sa
239: WHERE sa.LEDGER_ID = x_ledger_id
240: AND sa.JE_SOURCE_NAME = 'Other'
241: AND sa.JE_CATEGORY_NAME = 'Other';
242:
260: RAISE;
261: WHEN OTHERS THEN
262: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
263: fnd_message.set_token('PROCEDURE',
264: 'GL_SUSPENSE_ACCOUNTS_PKG.is_ledger_suspense_exist');
265: RAISE;
266:
267: END is_ledger_suspense_exist;
268:
273: x_last_update_date DATE,
274: x_last_updated_by NUMBER ) IS
275: BEGIN
276:
277: LOCK TABLE GL_SUSPENSE_ACCOUNTS IN SHARE UPDATE MODE;
278:
279: INSERT INTO gl_suspense_accounts
280: ( ledger_id,
281: je_source_name,
275: BEGIN
276:
277: LOCK TABLE GL_SUSPENSE_ACCOUNTS IN SHARE UPDATE MODE;
278:
279: INSERT INTO gl_suspense_accounts
280: ( ledger_id,
281: je_source_name,
282: je_category_name,
283: code_combination_id,
296: RAISE;
297: WHEN OTHERS THEN
298: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
299: fnd_message.set_token('PROCEDURE',
300: 'GL_SUSPENSE_ACCOUNTS_PKG.insert_ledger_suspense');
301: RAISE;
302:
303: END insert_ledger_suspense;
304:
309: x_last_update_date DATE,
310: x_last_updated_by NUMBER ) IS
311: BEGIN
312:
313: LOCK TABLE GL_SUSPENSE_ACCOUNTS IN SHARE UPDATE MODE;
314:
315: IF (x_code_combination_id IS NULL) THEN
316: DELETE FROM gl_suspense_accounts
317: WHERE ledger_id = x_ledger_id
312:
313: LOCK TABLE GL_SUSPENSE_ACCOUNTS IN SHARE UPDATE MODE;
314:
315: IF (x_code_combination_id IS NULL) THEN
316: DELETE FROM gl_suspense_accounts
317: WHERE ledger_id = x_ledger_id
318: AND je_source_name = 'Other'
319: AND je_category_name = 'Other';
320: ELSE
317: WHERE ledger_id = x_ledger_id
318: AND je_source_name = 'Other'
319: AND je_category_name = 'Other';
320: ELSE
321: UPDATE gl_suspense_accounts
322: SET code_combination_id = x_code_combination_id,
323: last_update_date = x_last_update_date,
324: last_updated_by = x_last_updated_by
325: WHERE ledger_id = x_ledger_id
334: RAISE;
335: WHEN OTHERS THEN
336: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
337: fnd_message.set_token('PROCEDURE',
338: 'GL_SUSPENSE_ACCOUNTS_PKG.update_ledger_suspense');
339: RAISE;
340:
341: END update_ledger_suspense;
342:
341: END update_ledger_suspense;
342:
343:
344:
345: END GL_SUSPENSE_ACCOUNTS_PKG;