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