PACKAGE BODY: APPS.AR_NUM_RAN_PKG

Source

1 PACKAGE BODY ar_num_ran_pkg AS
2 /* $Header: ARPEXTUB.pls 120.0 2005/03/15 00:44:53 hyu noship $ */
3 
4   FUNCTION     num_random RETURN NUMBER
5   IS
6     CURSOR c IS
7     SELECT MAX(line_id)
8       FROM ar_distributions_all;
9   BEGIN
10     IF g_num_max = -1 THEN
11       OPEN c;
12       FETCH c INTO g_num_max;
13       IF c%NOTFOUND THEN
14         g_num_max := 0;
15       END IF;
16       CLOSE c;
17     END IF;
18     RETURN abs(dbms_random.random) + g_num_max;
19   END;
20 END;