1 PACKAGE BODY RG_REPORT_CONTENT_SETS_PKG AS
2 /* $Header: rgircnsb.pls 120.2 2002/11/14 03:00:34 djogg ship $ */
3 -- Name
4 -- rg_report_content_sets_pkg
5 -- Purpose
6 -- to include all sever side procedures and packages for table
7 -- rg_report_content_sets
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 PROCEDURE select_row(recinfo IN OUT NOCOPY rg_report_content_sets%ROWTYPE) IS
22 BEGIN
23 select * INTO recinfo
24 from rg_report_content_sets
25 where content_set_id = recinfo.content_set_id;
26 END select_row;
27
28 PROCEDURE select_columns(X_content_set_id NUMBER,
29 X_name IN OUT NOCOPY VARCHAR2) IS
30 recinfo rg_report_content_sets%ROWTYPE;
31 BEGIN
32 recinfo.content_set_id := X_content_set_id;
33 select_row(recinfo);
34 X_name := recinfo.name;
35 END select_columns;
36
37 PROCEDURE check_unique(X_rowid VARCHAR2,
38 X_name VARCHAR2,
39 X_application_id NUMBER) IS
40 dummy NUMBER;
41 BEGIN
42 select 1 into dummy from dual
43 where not exists
44 (select 1 from rg_report_content_sets
45 where name = X_name
46 and application_id = X_application_id
47 and ((X_rowid IS NULL) OR (rowid <> X_rowid)));
48 EXCEPTION
49 WHEN NO_DATA_FOUND THEN
50 fnd_message.set_name('RG','RG_FORMS_OBJECT_EXISTS');
51 fnd_message.set_token('OBJECT','RG_CONTENT_SET',TRUE);
52 app_exception.raise_exception;
53 END check_unique;
54
55 PROCEDURE check_references(X_content_set_id NUMBER) IS
56 object_name VARCHAR2(80);
57 dummy NUMBER;
58 BEGIN
59 select 1 into dummy from dual
60 where not exists
61 (select 1 from rg_reports
62 where content_set_id = X_content_set_id);
63 EXCEPTION
64 WHEN NO_DATA_FOUND THEN
65 fnd_message.set_name('RG','RG_FORMS_REF_OBJECT');
66 fnd_message.set_token('OBJECT','RG_CONTENT_SET',TRUE);
67 app_exception.raise_exception;
68 END check_references;
69
70 FUNCTION get_nextval return number IS
71 next_group_id NUMBER;
72 BEGIN
73 select rg_report_content_sets_s.nextval
74 into next_group_id
75 from dual;
76
77 RETURN (next_group_id);
78 END get_nextval;
79
80 END RG_REPORT_CONTENT_SETS_PKG;