PACKAGE BODY: APPS.RG_CONTENT_OVERRIDES_PKG

Source

1 PACKAGE BODY RG_CONTENT_OVERRIDES_PKG AS
2 /* $Header: rgircnob.pls 120.1 2003/04/29 01:29:15 djogg ship $ */
3 -- Name
4 --   rg_content_overrides_pkg
5 -- Purpose
6 --   to include all sever side procedures and packages for table
7 --   rg_report_content_overrides
8 -- Notes
9 --
10 -- History
11 --   03/23/93	A Chen	Created
12 --
13 -- PRIVATE VARIABLES
14 --   None.
15 --
16 -- PRIVATE FUNCTIONS
17 --   None.
18 --
19 -- PUBLIC FUNCTIONS
20 --
21 
22   PROCEDURE check_unique(X_rowid VARCHAR2,
23                          X_override_seq NUMBER,
24                          X_content_set_id NUMBER) IS
25      dummy   NUMBER;
26   BEGIN
27      select 1 into dummy from dual
28      where not exists
29        (select 1 from rg_report_content_overrides
30         where override_seq = X_override_seq
31           and content_set_id = X_content_set_id
32           and ((x_rowid IS NULL) OR (rowid <> x_rowid)));
33      EXCEPTION
34        WHEN NO_DATA_FOUND THEN
35          fnd_message.set_name('RG','RG_FORMS_DUP_OBJECT_SEQUENCES');
36          fnd_message.set_token('OBJECT','RG_CONTENT_SET',TRUE);
37          app_exception.raise_exception;
38   END check_unique;
39 
40 END RG_CONTENT_OVERRIDES_PKG;