PACKAGE BODY: APPS.RG_REPORT_EXCEPTION_FLAGS_PKG

Source

1 PACKAGE BODY RG_REPORT_EXCEPTION_FLAGS_PKG AS
2 -- $Header: rgirxnfb.pls 120.1 2003/04/29 01:29:36 djogg ship $
3 -- Name
4 --   RG_REPORT_EXCEPTION_FLAGS_PKG
5 -- Purpose
6 --   to include all sever side procedures and packages for table
7 --   RG_REPORT_EXCEPTION_FLAGS
8 -- Notes
9 --
10 -- History
11 --   11/01/93	A Chen	Created
12 --
13 -- PRIVATE VARIABLES
14 --   None.
15 --
16 -- PRIVATE FUNCTIONS
17 --   None.
18 --
19 -- PUBLIC FUNCTIONS
20 --
21   FUNCTION get_nextval return number IS
22     next_group_id  NUMBER;
23   BEGIN
24     select RG_REPORT_EXCEPTION_FLAGS_s.nextval
25     into   next_group_id
26     from   dual;
27 
28     RETURN (next_group_id);
29   END get_nextval;
30 
31   PROCEDURE delete_rows(X_axis_set_id NUMBER,
32                         X_axis_seq NUMBER) IS
33   BEGIN
34     IF (X_axis_seq = -1) THEN
35       delete from rg_report_exceptions
36       where axis_set_id = X_axis_set_id;
37 
38       delete from rg_report_exception_flags
39        where axis_set_id = X_axis_set_id;
40     ELSE
41       delete from rg_report_exceptions
42        where axis_set_id = X_axis_set_id
43         and axis_seq = X_axis_seq;
44 
45       delete from rg_report_exception_flags
46        where axis_set_id = X_axis_set_id
47          and axis_seq = X_axis_seq;
48     END IF;
49 
50   END delete_rows;
51 
52 END RG_REPORT_EXCEPTION_FLAGS_PKG;