PACKAGE BODY: APPS.RG_REPORT_SETS_PKG

Source

1 PACKAGE BODY rg_report_sets_pkg AS
2 /* $Header: rgirsetb.pls 120.1 2003/04/29 01:29:29 djogg ship $ */
3   --
4   -- PUBLIC FUNCTION
5   --
6 
7   FUNCTION new_report_set_id
8                   RETURN        NUMBER
9   IS
10 	new_sequence_number     NUMBER;
11   BEGIN
12         SELECT rg_report_sets_s.nextval
13         INTO   new_sequence_number
14         FROM   dual;
15 
16         RETURN(new_sequence_number);
17   END new_report_set_id;
18 
19 
20   FUNCTION check_dup_report_set_name(   cur_application_id IN   NUMBER,
21 				        cur_report_set_id  IN	NUMBER,
22 					new_name           IN   VARCHAR2)
23                   RETURN        BOOLEAN
24   IS
25 	rec_returned	NUMBER;
26   BEGIN
27      SELECT count(*)
28      INTO   rec_returned
29      FROM   rg_report_sets
30      WHERE  report_set_id <> cur_report_set_id
31      AND    name = new_name
32      AND    application_id = cur_application_id;
33 
34      IF rec_returned > 0 THEN
35             RETURN(TRUE);
36      ELSE
37             RETURN(FALSE);
38      END IF;
39   END check_dup_report_set_name;
40 
41 END rg_report_sets_pkg;