[Home] [Help]
1: PACKAGE BODY GL_RECURRING_BATCHES_PKG as
2: /* $Header: glirecbb.pls 120.5.12020000.2 2012/08/28 21:00:27 phmullap ship $ */
3:
4:
5: --
13: x_accounted_period_type VARCHAR2) IS
14:
15: CURSOR c_dup IS
16: SELECT 'Duplicate'
17: FROM gl_recurring_batches b
18: WHERE upper( b.name) = upper( x_name )
19: AND b.chart_of_accounts_id = x_coaid
20: AND b.period_set_name = x_period_set_name
21: AND b.accounted_period_type = x_accounted_period_type
42: RAISE;
43: WHEN OTHERS THEN
44: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
45: fnd_message.set_token('PROCEDURE',
46: 'GL_RECURRING_BATCHES_PKG.check_unique');
47: RAISE;
48:
49: END check_unique;
50:
52:
53: FUNCTION get_unique_id RETURN NUMBER IS
54:
55: CURSOR c_getid IS
56: SELECT GL_RECURRING_BATCHES_S.NEXTVAL
57: FROM dual;
58:
59: id number;
60:
67: RETURN( id );
68: ELSE
69: CLOSE c_getid;
70: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
71: fnd_message.set_token('SEQUENCE', 'GL_RECURRING_BATCHES_S');
72: app_exception.raise_exception;
73: END IF;
74:
75: EXCEPTION
77: RAISE;
78: WHEN OTHERS THEN
79: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
80: fnd_message.set_token('PROCEDURE',
81: 'GL_RECURRING_BATCHES_PKG.get_unique_id');
82: RAISE;
83:
84: END get_unique_id;
85:
362: RAISE;
363: WHEN OTHERS THEN
364: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
365: fnd_message.set_token('PROCEDURE',
366: 'GL_RECURRING_BATCHES_PKG.copy_recurring');
367: RAISE;
368:
369: END copy_recurring;
370:
402: X_Attribute9 VARCHAR2,
403: X_Attribute10 VARCHAR2,
404: X_Context VARCHAR2
405: ) IS
406: CURSOR C IS SELECT rowid FROM gl_recurring_batches
407: WHERE recurring_batch_id = X_Recurring_Batch_Id;
408: CURSOR C2 IS SELECT gl_recurring_batches_s.nextval FROM sys.dual;
409:
410:
404: X_Context VARCHAR2
405: ) IS
406: CURSOR C IS SELECT rowid FROM gl_recurring_batches
407: WHERE recurring_batch_id = X_Recurring_Batch_Id;
408: CURSOR C2 IS SELECT gl_recurring_batches_s.nextval FROM sys.dual;
409:
410:
411:
412: BEGIN
420: FETCH C2 INTO X_Recurring_Batch_Id;
421: CLOSE C2;
422: end if;
423:
424: INSERT INTO gl_recurring_batches(
425:
426: recurring_batch_id,
427: last_update_date,
428: last_updated_by,
534: X_Context VARCHAR2
535: ) IS
536: CURSOR C IS
537: SELECT *
538: FROM gl_recurring_batches
539: WHERE rowid = X_Rowid
540: FOR UPDATE of Recurring_Batch_Id NOWAIT;
541: Recinfo C%ROWTYPE;
542:
661: -- check_unique(X_rowid, X_name, X_Set_Of_Books_Id);
662: check_unique(X_rowid, X_name, X_Chart_Of_Accounts_Id, X_Period_Set_Name, X_Accounted_Period_Type);
663:
664:
665: UPDATE gl_recurring_batches
666: SET
667: recurring_batch_id = X_Recurring_Batch_Id,
668: last_update_date = X_Last_Update_Date,
669: last_updated_by = X_Last_Updated_By,
702:
703: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
704: CURSOR chk_autoalloc_set is
705: SELECT 'Batch used in AutoAlloc set'
706: FROM GL_RECURRING_BATCHES rb, GL_AUTO_ALLOC_BATCHES aab
707: WHERE rb.rowid = X_Rowid
708: AND aab.batch_id = rb.recurring_batch_id
709: AND aab.batch_type_code = 'R';--added this condition for bug13324816
710: dummy VARCHAR2(100);
719: END IF;
720:
721: CLOSE chk_autoalloc_set;
722:
723: DELETE FROM gl_recurring_batches
724: WHERE rowid = X_Rowid;
725:
726: if (SQL%NOTFOUND) then
727: Raise NO_DATA_FOUND;
756:
757: -- **********************************************************************
758:
759:
760: END GL_RECURRING_BATCHES_PKG;