[Home] [Help]
PACKAGE BODY: APPS.RG_REPORT_DISPLAY_GROUPS_PKG
Source
1 PACKAGE BODY RG_REPORT_DISPLAY_GROUPS_PKG AS
2 /* $Header: rgirdpgb.pls 120.2 2002/11/14 03:00:51 djogg ship $ */
3 --
4 -- PUBLIC FUNCTIONS
5 --
6
7 PROCEDURE check_unique( X_rowid VARCHAR2,
8 X_name VARCHAR2 ) IS
9 dummy NUMBER;
10 BEGIN
11 select 1 into dummy from dual
12 where not exists
13 (select 1 from rg_report_display_groups
14 where name = X_name
15 and ((X_rowid IS NULL) OR (rowid <> X_rowid)));
16 EXCEPTION
17 WHEN NO_DATA_FOUND THEN
18 fnd_message.set_name('RG','RG_FORMS_OBJECT_EXISTS');
19 fnd_message.set_token('OBJECT','RG_DISPLAY_GROUP',TRUE);
20 app_exception.raise_exception;
21 END check_unique;
22
23 PROCEDURE check_references(X_report_display_group_id NUMBER) IS
24 dummy NUMBER;
25 BEGIN
26 select 1 into dummy from dual
27 where not exists
28 (select 1 from rg_report_displays
29 where row_group_id = X_report_display_group_id
30 or column_group_id = X_report_display_group_id);
31 EXCEPTION
32 WHEN NO_DATA_FOUND THEN
33 fnd_message.set_name('RG','RG_FORMS_REF_OBJECT');
34 fnd_message.set_token('OBJECT','RG_DISPLAY_GROUP',TRUE);
35 app_exception.raise_exception;
36 END check_references;
37
38 FUNCTION get_unique_id RETURN NUMBER IS
39 next_id NUMBER;
40 BEGIN
41 select rg_report_display_groups_s.nextval
42 into next_id
43 from dual;
44
45 RETURN (next_id);
46 END get_unique_id;
47
48
49 PROCEDURE insert_row(X_rowid IN OUT NOCOPY VARCHAR2,
50 X_report_display_group_id NUMBER,
51 X_name VARCHAR2,
52 X_description VARCHAR2,
53 X_row_set_id NUMBER,
54 X_column_set_id NUMBER,
55 X_from_sequence NUMBER,
56 X_to_sequence NUMBER,
57 X_creation_date DATE,
58 X_created_by NUMBER,
59 X_last_update_date DATE,
60 X_last_updated_by NUMBER,
61 X_last_update_login NUMBER,
62 X_context VARCHAR2,
63 X_attribute1 VARCHAR2,
64 X_attribute2 VARCHAR2,
65 X_attribute3 VARCHAR2,
66 X_attribute4 VARCHAR2,
67 X_attribute5 VARCHAR2,
68 X_attribute6 VARCHAR2,
69 X_attribute7 VARCHAR2,
70 X_attribute8 VARCHAR2,
71 X_attribute9 VARCHAR2,
72 X_attribute10 VARCHAR2,
73 X_attribute11 VARCHAR2,
74 X_attribute12 VARCHAR2,
75 X_attribute13 VARCHAR2,
76 X_attribute14 VARCHAR2,
77 X_attribute15 VARCHAR2) IS
78 CURSOR C IS SELECT rowid FROM rg_report_display_groups
79 WHERE report_display_group_id = X_report_display_group_id;
80 BEGIN
81 INSERT INTO rg_report_display_groups
82 (report_display_group_id ,
83 name ,
84 description ,
85 row_set_id ,
86 column_set_id ,
87 from_sequence ,
88 to_sequence ,
89 creation_date ,
90 created_by ,
91 last_update_date ,
92 last_updated_by ,
93 last_update_login ,
94 context ,
95 attribute1 ,
96 attribute2 ,
97 attribute3 ,
98 attribute4 ,
99 attribute5 ,
100 attribute6 ,
101 attribute7 ,
102 attribute8 ,
103 attribute9 ,
104 attribute10 ,
105 attribute11 ,
106 attribute12 ,
107 attribute13 ,
108 attribute14 ,
109 attribute15 )
110 VALUES
111 (X_report_display_group_id ,
112 X_name ,
113 X_description ,
114 X_row_set_id ,
115 X_column_set_id ,
116 X_from_sequence ,
117 X_to_sequence ,
118 X_creation_date ,
119 X_created_by ,
120 X_last_update_date ,
121 X_last_updated_by ,
122 X_last_update_login ,
123 X_context ,
124 X_attribute1 ,
125 X_attribute2 ,
126 X_attribute3 ,
127 X_attribute4 ,
128 X_attribute5 ,
129 X_attribute6 ,
130 X_attribute7 ,
131 X_attribute8 ,
132 X_attribute9 ,
133 X_attribute10 ,
134 X_attribute11 ,
135 X_attribute12 ,
136 X_attribute13 ,
137 X_attribute14 ,
138 X_attribute15 );
139
140 OPEN C;
141 FETCH C INTO X_rowid;
142 IF (C%NOTFOUND) THEN
143 CLOSE C;
144 RAISE NO_DATA_FOUND;
145 END IF;
146 CLOSE C;
147 END insert_row;
148
149 PROCEDURE lock_row(X_rowid IN OUT NOCOPY VARCHAR2,
150 X_report_display_group_id NUMBER,
151 X_name VARCHAR2,
152 X_description VARCHAR2,
153 X_row_set_id NUMBER,
154 X_column_set_id NUMBER,
155 X_from_sequence NUMBER,
156 X_to_sequence NUMBER,
157 X_context VARCHAR2,
158 X_attribute1 VARCHAR2,
159 X_attribute2 VARCHAR2,
160 X_attribute3 VARCHAR2,
161 X_attribute4 VARCHAR2,
162 X_attribute5 VARCHAR2,
163 X_attribute6 VARCHAR2,
164 X_attribute7 VARCHAR2,
165 X_attribute8 VARCHAR2,
166 X_attribute9 VARCHAR2,
167 X_attribute10 VARCHAR2,
168 X_attribute11 VARCHAR2,
169 X_attribute12 VARCHAR2,
170 X_attribute13 VARCHAR2,
171 X_attribute14 VARCHAR2,
172 X_attribute15 VARCHAR2) IS
173 CURSOR C IS
174 SELECT *
175 FROM rg_report_display_groups
176 WHERE rowid = X_rowid
177 FOR UPDATE OF name NOWAIT;
178 Recinfo C%ROWTYPE;
179 BEGIN
180 OPEN C;
181 FETCH C INTO Recinfo;
182 IF (C%NOTFOUND) THEN
183 CLOSE C;
184 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
185 APP_EXCEPTION.RAISE_EXCEPTION;
186 END IF;
187 CLOSE C;
188
189 IF (
190 ( (Recinfo.report_display_group_id = X_report_display_group_id)
191 OR ( (Recinfo.report_display_group_id IS NULL)
192 AND (X_report_display_group_id IS NULL)))
193 AND ( (Recinfo.name = X_name)
194 OR ( (Recinfo.name IS NULL)
195 AND (X_name IS NULL)))
196 AND ( (Recinfo.description = X_description)
197 OR ( (Recinfo.description IS NULL)
198 AND (X_description IS NULL)))
199 AND ( (Recinfo.row_set_id = X_row_set_id)
200 OR ( (Recinfo.row_set_id IS NULL)
201 AND (X_row_set_id IS NULL)))
202 AND ( (Recinfo.column_set_id = X_column_set_id)
203 OR ( (Recinfo.column_set_id IS NULL)
204 AND (X_column_set_id IS NULL)))
205 AND ( (Recinfo.from_sequence = X_from_sequence)
206 OR ( (Recinfo.from_sequence IS NULL)
207 AND (X_from_sequence IS NULL)))
208 AND ( (Recinfo.to_sequence = X_to_sequence)
209 OR ( (Recinfo.to_sequence IS NULL)
210 AND (X_to_sequence IS NULL)))
211 AND ( (Recinfo.context = X_context)
212 OR ( (Recinfo.context IS NULL)
213 AND (X_context IS NULL)))
214 AND ( (Recinfo.attribute1 = X_attribute1)
215 OR ( (Recinfo.attribute1 IS NULL)
216 AND (X_attribute1 IS NULL)))
217 AND ( (Recinfo.attribute2 = X_attribute2)
218 OR ( (Recinfo.attribute2 IS NULL)
219 AND (X_attribute2 IS NULL)))
220 AND ( (Recinfo.attribute3 = X_attribute3)
221 OR ( (Recinfo.attribute3 IS NULL)
222 AND (X_attribute3 IS NULL)))
223 AND ( (Recinfo.attribute4 = X_attribute4)
224 OR ( (Recinfo.attribute4 IS NULL)
225 AND (X_attribute4 IS NULL)))
226 AND ( (Recinfo.attribute5 = X_attribute5)
227 OR ( (Recinfo.attribute5 IS NULL)
228 AND (X_attribute5 IS NULL)))
229 AND ( (Recinfo.attribute6 = X_attribute6)
230 OR ( (Recinfo.attribute6 IS NULL)
231 AND (X_attribute6 IS NULL)))
232 AND ( (Recinfo.attribute7 = X_attribute7)
233 OR ( (Recinfo.attribute7 IS NULL)
234 AND (X_attribute7 IS NULL)))
235 AND ( (Recinfo.attribute8 = X_attribute8)
236 OR ( (Recinfo.attribute8 IS NULL)
237 AND (X_attribute8 IS NULL)))
238 AND ( (Recinfo.attribute9 = X_attribute9)
239 OR ( (Recinfo.attribute9 IS NULL)
240 AND (X_attribute9 IS NULL)))
241 AND ( (Recinfo.attribute10 = X_attribute10)
242 OR ( (Recinfo.attribute10 IS NULL)
243 AND (X_attribute10 IS NULL)))
244 AND ( (Recinfo.attribute11 = X_attribute11)
245 OR ( (Recinfo.attribute11 IS NULL)
246 AND (X_attribute11 IS NULL)))
247 AND ( (Recinfo.attribute12 = X_attribute12)
248 OR ( (Recinfo.attribute12 IS NULL)
249 AND (X_attribute12 IS NULL)))
250 AND ( (Recinfo.attribute13 = X_attribute13)
251 OR ( (Recinfo.attribute13 IS NULL)
252 AND (X_attribute13 IS NULL)))
253 AND ( (Recinfo.attribute14 = X_attribute14)
254 OR ( (Recinfo.attribute4 IS NULL)
255 AND (X_attribute14 IS NULL)))
256 AND ( (Recinfo.attribute15 = X_attribute15)
257 OR ( (Recinfo.attribute15 IS NULL)
258 AND (X_attribute15 IS NULL)))
259 ) THEN
260 RETURN;
261 ELSE
262 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
263 APP_EXCEPTION.RAISE_EXCEPTION;
264 END IF;
265 END lock_row;
266
267 PROCEDURE update_row(X_rowid IN OUT NOCOPY VARCHAR2,
268 X_report_display_group_id NUMBER,
269 X_name VARCHAR2,
270 X_description VARCHAR2,
271 X_row_set_id NUMBER,
272 X_column_set_id NUMBER,
273 X_from_sequence NUMBER,
274 X_to_sequence NUMBER,
275 X_last_update_date DATE,
276 X_last_updated_by NUMBER,
277 X_last_update_login NUMBER,
278 X_context VARCHAR2,
279 X_attribute1 VARCHAR2,
280 X_attribute2 VARCHAR2,
281 X_attribute3 VARCHAR2,
282 X_attribute4 VARCHAR2,
283 X_attribute5 VARCHAR2,
284 X_attribute6 VARCHAR2,
285 X_attribute7 VARCHAR2,
286 X_attribute8 VARCHAR2,
287 X_attribute9 VARCHAR2,
288 X_attribute10 VARCHAR2,
289 X_attribute11 VARCHAR2,
290 X_attribute12 VARCHAR2,
291 X_attribute13 VARCHAR2,
292 X_attribute14 VARCHAR2,
293 X_attribute15 VARCHAR2) IS
294 BEGIN
295 UPDATE rg_report_display_groups
296 SET report_display_group_id = X_report_display_group_id ,
297 name = X_name ,
298 description = X_description ,
299 row_set_id = X_row_set_id ,
300 column_set_id = X_column_set_id ,
301 from_sequence = X_from_sequence ,
302 to_sequence = X_to_sequence ,
303 last_update_date = X_last_update_date ,
304 last_updated_by = X_last_updated_by ,
305 last_update_login = X_last_update_login ,
306 context = X_context ,
307 attribute1 = X_attribute1 ,
308 attribute2 = X_attribute2 ,
309 attribute3 = X_attribute3 ,
310 attribute4 = X_attribute4 ,
311 attribute5 = X_attribute5 ,
312 attribute6 = X_attribute6 ,
313 attribute7 = X_attribute7 ,
314 attribute8 = X_attribute8 ,
315 attribute9 = X_attribute9 ,
316 attribute10 = X_attribute10 ,
317 attribute11 = X_attribute11 ,
318 attribute12 = X_attribute12 ,
319 attribute13 = X_attribute13 ,
320 attribute14 = X_attribute14 ,
321 attribute15 = X_attribute15
322 WHERE rowid = X_rowid;
323
324 IF (SQL%NOTFOUND) THEN
325 RAISE NO_DATA_FOUND;
326 END IF;
327 END update_row;
328
329 PROCEDURE delete_row(X_rowid VARCHAR2) IS
330 BEGIN
331 DELETE FROM rg_report_display_groups
332 WHERE rowid = X_rowid;
333
334 IF (SQL%NOTFOUND) THEN
335 RAISE NO_DATA_FOUND;
336 END IF;
337 END delete_row;
338
339 END RG_REPORT_DISPLAY_GROUPS_PKG;