PACKAGE BODY: APPS.RG_REPORT_AXIS_CONTENTS_PKG

Source

1 PACKAGE BODY RG_REPORT_AXIS_CONTENTS_PKG AS
2 /* $Header: rgiracnb.pls 120.1 2002/11/14 03:34:32 djogg ship $ */
3 -- Name
4 --   RG_REPORT_AXIS_CONTENTS_PKG
5 -- Purpose
6 --   to include all sever side procedures and packages for table
7 --   RG_REPORT_AXIS_CONTENTS
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 check_existence(X_axis_set_id NUMBER,
22                            X_axis_seq NUMBER) RETURN BOOLEAN IS
23     dummy NUMBER;
24   BEGIN
25 
26     IF (X_axis_seq IS NOT NULL) THEN
27       select 1 into dummy
28       from rg_report_axis_contents
29       where axis_set_id = X_axis_set_id
30       and axis_seq = X_axis_seq
31       and rownum < 2;
32       RETURN (TRUE);
33     ELSE
34       select 1 into dummy
35       from rg_report_axis_contents
36       where axis_set_id = X_axis_set_id
37       and rownum < 2;
38       RETURN (TRUE);
39     END IF;
40     EXCEPTION
41       WHEN NO_DATA_FOUND THEN
42         RETURN (FALSE);
43   END check_existence;
44 
45   PROCEDURE delete_rows(X_axis_set_id NUMBER,
46                         X_axis_seq NUMBER) IS
47   BEGIN
48     IF (X_axis_seq = -1) THEN
49       delete from rg_report_axis_contents
50        where axis_set_id = X_axis_set_id;
51     ELSE
52       delete from rg_report_axis_contents
53       where axis_set_id = X_axis_set_id
54         and axis_seq = X_axis_seq;
55     END IF;
56   END delete_rows;
57 
58 END RG_REPORT_AXIS_CONTENTS_PKG;