PACKAGE BODY: APPS.GL_RECURRING_VALID_PERIODS_PKG

Source

1 PACKAGE BODY gl_recurring_valid_periods_pkg AS
2 /* $Header: glirjvpb.pls 120.4 2005/05/05 01:20:38 kvora ship $ */
3 --
4 -- PUBLIC FUNCTIONS
5 --
6 
7 PROCEDURE get_next_period(
8         x_ledger_id             NUMBER,
9 	x_recurring_batch_id    NUMBER,
10         x_period                VARCHAR2,
11         x_next_period   IN OUT NOCOPY VARCHAR2 )  IS
12 
13   CURSOR c_period IS
14     SELECT vp1.period_name
15     FROM   gl_recurring_valid_periods_v vp1,
16            gl_recurring_valid_periods_v vp2
17     WHERE  vp1.ledger_id = x_ledger_id
18     AND    vp2.ledger_id = x_ledger_id
19     AND    vp1.recurring_batch_id = x_recurring_batch_id
20     AND    vp2.recurring_batch_id = x_recurring_batch_id
21     AND    vp2.period_name = x_period
22     AND    ( vp1.start_date =
23                ( SELECT MIN( vp3.start_date )
24                  FROM   gl_recurring_valid_periods_v vp3
25                  WHERE  vp3.ledger_id = x_ledger_id
26 		 AND    vp3.recurring_batch_id = x_recurring_batch_id
27                  AND    vp3.start_date > vp2.start_date ) );
28 
29   BEGIN
30     OPEN c_period;
31     FETCH c_period INTO x_next_period;
32     CLOSE c_period;
33 
34   EXCEPTION
35     WHEN NO_DATA_FOUND THEN
36       RETURN;
37     WHEN app_exceptions.application_exception THEN
38       RAISE;
39     WHEN OTHERS THEN
40       fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
41       fnd_message.set_token('PROCEDURE',
42                             'gl_recurring_valid_periods_pkg.get_next_period');
43       RAISE;
44 
45   END get_next_period;
46 
47 
48 END gl_recurring_valid_periods_pkg;