[Home] [Help]
PACKAGE BODY: APPS.IBE_MSITE_INFORMATION_PKG
Source
1 PACKAGE BODY Ibe_Msite_Information_Pkg AS
2 /* $Header: IBETMINB.pls 115.2 2002/12/13 13:01:51 schak ship $ */
3
4 -- HISTORY
5 -- 12/13/02 SCHAK Modified for NOCOPY (Bug # 2691704) Changes.
6 -- *********************************************************************************
7
8 G_PKG_NAME CONSTANT VARCHAR2(30):= 'IBE_MSITE_INFORMATION_PKG';
9 G_FILE_NAME CONSTANT VARCHAR2(12):= 'IBETMINB.pls';
10
11 PROCEDURE insert_row
12 (
13 p_msite_information_id IN NUMBER,
14 p_object_version_number IN NUMBER,
15 p_msite_id IN NUMBER,
16 p_msite_information_context IN VARCHAR2,
17 p_msite_information1 IN VARCHAR2,
18 p_msite_information2 IN VARCHAR2,
19 p_msite_information3 IN VARCHAR2,
20 p_msite_information4 IN VARCHAR2,
21 p_msite_information5 IN VARCHAR2,
22 p_msite_information6 IN VARCHAR2,
23 p_msite_information7 IN VARCHAR2,
24 p_msite_information8 IN VARCHAR2,
25 p_msite_information9 IN VARCHAR2,
26 p_msite_information10 IN VARCHAR2,
27 p_msite_information11 IN VARCHAR2,
28 p_msite_information12 IN VARCHAR2,
29 p_msite_information13 IN VARCHAR2,
30 p_msite_information14 IN VARCHAR2,
31 p_msite_information15 IN VARCHAR2,
32 p_msite_information16 IN VARCHAR2,
33 p_msite_information17 IN VARCHAR2,
34 p_msite_information18 IN VARCHAR2,
35 p_msite_information19 IN VARCHAR2,
36 p_msite_information20 IN VARCHAR2,
37 p_attribute_category IN VARCHAR2,
38 p_attribute1 IN VARCHAR2,
39 p_attribute2 IN VARCHAR2,
40 p_attribute3 IN VARCHAR2,
41 p_attribute4 IN VARCHAR2,
42 p_attribute5 IN VARCHAR2,
43 p_attribute6 IN VARCHAR2,
44 p_attribute7 IN VARCHAR2,
45 p_attribute8 IN VARCHAR2,
46 p_attribute9 IN VARCHAR2,
47 p_attribute10 IN VARCHAR2,
48 p_attribute11 IN VARCHAR2,
49 p_attribute12 IN VARCHAR2,
50 p_attribute13 IN VARCHAR2,
51 p_attribute14 IN VARCHAR2,
52 p_attribute15 IN VARCHAR2,
53 p_creation_date IN DATE,
54 p_created_by IN NUMBER,
55 p_last_update_date IN DATE,
56 p_last_updated_by IN NUMBER,
57 p_last_update_login IN NUMBER,
58 x_rowid OUT NOCOPY VARCHAR2,
59 x_msite_information_id OUT NOCOPY NUMBER
60 )
61 IS
62 CURSOR c IS SELECT rowid FROM ibe_msite_information
63 WHERE msite_information_id = x_msite_information_id;
64 CURSOR c2 IS SELECT ibe_msite_information_s1.nextval FROM dual;
65
66 BEGIN
67
68 -- Primary key validation check
69 x_msite_information_id := p_msite_information_id;
70 IF ((x_msite_information_id IS NULL) OR
71 (x_msite_information_id = FND_API.G_MISS_NUM))
72 THEN
73 OPEN c2;
74 FETCH c2 INTO x_msite_information_id;
75 CLOSE c2;
76 END IF;
77
78 -- insert base
79 INSERT INTO ibe_msite_information
80 (
81 msite_information_id,
82 object_version_number,
83 msite_id,
84 msite_information_context,
85 msite_information1,
86 msite_information2,
87 msite_information3,
88 msite_information4,
89 msite_information5,
90 msite_information6,
91 msite_information7,
92 msite_information8,
93 msite_information9,
94 msite_information10,
95 msite_information11,
96 msite_information12,
97 msite_information13,
98 msite_information14,
99 msite_information15,
100 msite_information16,
101 msite_information17,
102 msite_information18,
103 msite_information19,
104 msite_information20,
105 attribute_category,
106 attribute1,
107 attribute2,
108 attribute3,
109 attribute4,
110 attribute5,
111 attribute6,
112 attribute7,
113 attribute8,
114 attribute9,
115 attribute10,
116 attribute11,
117 attribute12,
118 attribute13,
119 attribute14,
120 attribute15,
121 creation_date,
122 created_by,
123 last_update_date,
124 last_updated_by,
125 last_update_login
126 )
127 VALUES
128 (
129 x_msite_information_id,
130 p_object_version_number,
131 p_msite_id,
132 p_msite_information_context,
133 decode(p_msite_information1,FND_API.G_MISS_CHAR,NULL,p_msite_information1),
134 decode(p_msite_information2,FND_API.G_MISS_CHAR,NULL,p_msite_information2),
135 decode(p_msite_information3,FND_API.G_MISS_CHAR,NULL,p_msite_information3),
136 decode(p_msite_information4,FND_API.G_MISS_CHAR,NULL,p_msite_information4),
137 decode(p_msite_information5,FND_API.G_MISS_CHAR,NULL,p_msite_information5),
138 decode(p_msite_information6,FND_API.G_MISS_CHAR,NULL,p_msite_information6),
139 decode(p_msite_information7,FND_API.G_MISS_CHAR,NULL,p_msite_information7),
140 decode(p_msite_information8,FND_API.G_MISS_CHAR,NULL,p_msite_information8),
141 decode(p_msite_information9,FND_API.G_MISS_CHAR,NULL,p_msite_information9),
142 decode(p_msite_information10,FND_API.G_MISS_CHAR,NULL,
143 p_msite_information10),
144 decode(p_msite_information11,FND_API.G_MISS_CHAR,NULL,
145 p_msite_information11),
146 decode(p_msite_information12,FND_API.G_MISS_CHAR,NULL,
147 p_msite_information12),
148 decode(p_msite_information13,FND_API.G_MISS_CHAR,NULL,
149 p_msite_information13),
150 decode(p_msite_information14,FND_API.G_MISS_CHAR,NULL,
151 p_msite_information14),
152 decode(p_msite_information15,FND_API.G_MISS_CHAR,NULL,
153 p_msite_information15),
154 decode(p_msite_information16,FND_API.G_MISS_CHAR,NULL,
155 p_msite_information16),
156 decode(p_msite_information17,FND_API.G_MISS_CHAR,NULL,
157 p_msite_information17),
158 decode(p_msite_information18,FND_API.G_MISS_CHAR,NULL,
159 p_msite_information18),
160 decode(p_msite_information19,FND_API.G_MISS_CHAR,NULL,
161 p_msite_information19),
162 decode(p_msite_information20,FND_API.G_MISS_CHAR,NULL,
163 p_msite_information20),
164 decode(p_attribute_category,FND_API.G_MISS_CHAR,NULL,p_attribute_category),
165 decode(p_attribute1, FND_API.G_MISS_CHAR, NULL, p_attribute1),
166 decode(p_attribute2, FND_API.G_MISS_CHAR, NULL, p_attribute2),
167 decode(p_attribute3, FND_API.G_MISS_CHAR, NULL, p_attribute3),
168 decode(p_attribute4, FND_API.G_MISS_CHAR, NULL, p_attribute4),
169 decode(p_attribute5, FND_API.G_MISS_CHAR, NULL, p_attribute5),
170 decode(p_attribute6, FND_API.G_MISS_CHAR, NULL, p_attribute6),
171 decode(p_attribute7, FND_API.G_MISS_CHAR, NULL, p_attribute7),
172 decode(p_attribute8, FND_API.G_MISS_CHAR, NULL, p_attribute8),
173 decode(p_attribute9, FND_API.G_MISS_CHAR, NULL, p_attribute9),
174 decode(p_attribute10, FND_API.G_MISS_CHAR, NULL, p_attribute10),
175 decode(p_attribute11, FND_API.G_MISS_CHAR, NULL, p_attribute11),
176 decode(p_attribute12, FND_API.G_MISS_CHAR, NULL, p_attribute12),
177 decode(p_attribute13, FND_API.G_MISS_CHAR, NULL, p_attribute13),
178 decode(p_attribute14, FND_API.G_MISS_CHAR, NULL, p_attribute14),
179 decode(p_attribute15, FND_API.G_MISS_CHAR, NULL, p_attribute15),
180 decode(p_creation_date, FND_API.G_MISS_DATE, sysdate, NULL, sysdate,
181 p_creation_date),
182 decode(p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.user_id,
183 NULL, FND_GLOBAL.user_id, p_created_by),
184 decode(p_last_update_date, FND_API.G_MISS_DATE, sysdate, NULL, sysdate,
185 p_last_update_date),
186 decode(p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.user_id,
187 NULL, FND_GLOBAL.user_id, p_last_updated_by),
188 decode(p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.login_id,
189 NULL, FND_GLOBAL.login_id, p_last_update_login)
190 );
191
192 OPEN c;
193 FETCH c INTO x_rowid;
194 IF (c%NOTFOUND)
195 THEN
196 CLOSE c;
197 RAISE NO_DATA_FOUND;
198 END IF;
199 CLOSE c;
200
201 END insert_row;
202
203 PROCEDURE update_row
204 (
205 p_msite_information_id IN NUMBER,
206 p_object_version_number IN NUMBER := FND_API.G_MISS_NUM,
207 p_msite_information1 IN VARCHAR2,
208 p_msite_information2 IN VARCHAR2,
209 p_msite_information3 IN VARCHAR2,
210 p_msite_information4 IN VARCHAR2,
211 p_msite_information5 IN VARCHAR2,
212 p_msite_information6 IN VARCHAR2,
213 p_msite_information7 IN VARCHAR2,
214 p_msite_information8 IN VARCHAR2,
215 p_msite_information9 IN VARCHAR2,
216 p_msite_information10 IN VARCHAR2,
217 p_msite_information11 IN VARCHAR2,
218 p_msite_information12 IN VARCHAR2,
219 p_msite_information13 IN VARCHAR2,
220 p_msite_information14 IN VARCHAR2,
221 p_msite_information15 IN VARCHAR2,
222 p_msite_information16 IN VARCHAR2,
223 p_msite_information17 IN VARCHAR2,
224 p_msite_information18 IN VARCHAR2,
225 p_msite_information19 IN VARCHAR2,
226 p_msite_information20 IN VARCHAR2,
227 p_attribute_category IN VARCHAR2,
228 p_attribute1 IN VARCHAR2,
229 p_attribute2 IN VARCHAR2,
230 p_attribute3 IN VARCHAR2,
231 p_attribute4 IN VARCHAR2,
232 p_attribute5 IN VARCHAR2,
233 p_attribute6 IN VARCHAR2,
234 p_attribute7 IN VARCHAR2,
235 p_attribute8 IN VARCHAR2,
236 p_attribute9 IN VARCHAR2,
237 p_attribute10 IN VARCHAR2,
238 p_attribute11 IN VARCHAR2,
239 p_attribute12 IN VARCHAR2,
240 p_attribute13 IN VARCHAR2,
241 p_attribute14 IN VARCHAR2,
242 p_attribute15 IN VARCHAR2,
243 p_last_update_date IN DATE,
244 p_last_updated_by IN NUMBER,
245 p_last_update_login IN NUMBER
246 )
247 IS
248 BEGIN
249
250 -- update base
251 UPDATE ibe_msite_information SET
252 object_version_number = object_version_number + 1,
253 msite_information1 = decode(p_msite_information1, FND_API.G_MISS_CHAR,
254 msite_information1, p_msite_information1),
255 msite_information2 = decode(p_msite_information2, FND_API.G_MISS_CHAR,
256 msite_information2, p_msite_information2),
257 msite_information3 = decode(p_msite_information3, FND_API.G_MISS_CHAR,
258 msite_information3, p_msite_information3),
259 msite_information4 = decode(p_msite_information4, FND_API.G_MISS_CHAR,
260 msite_information4, p_msite_information4),
261 msite_information5 = decode(p_msite_information5, FND_API.G_MISS_CHAR,
262 msite_information5, p_msite_information5),
263 msite_information6 = decode(p_msite_information6, FND_API.G_MISS_CHAR,
264 msite_information6, p_msite_information6),
265 msite_information7 = decode(p_msite_information7, FND_API.G_MISS_CHAR,
266 msite_information7, p_msite_information7),
267 msite_information8 = decode(p_msite_information8, FND_API.G_MISS_CHAR,
268 msite_information8, p_msite_information8),
269 msite_information9 = decode(p_msite_information9, FND_API.G_MISS_CHAR,
270 msite_information9, p_msite_information9),
271 msite_information10 = decode(p_msite_information10, FND_API.G_MISS_CHAR,
272 msite_information10, p_msite_information10),
273 msite_information11 = decode(p_msite_information11, FND_API.G_MISS_CHAR,
274 msite_information11, p_msite_information11),
275 msite_information12 = decode(p_msite_information12, FND_API.G_MISS_CHAR,
276 msite_information12, p_msite_information12),
277 msite_information13 = decode(p_msite_information13, FND_API.G_MISS_CHAR,
278 msite_information13, p_msite_information13),
279 msite_information14 = decode(p_msite_information14, FND_API.G_MISS_CHAR,
280 msite_information14, p_msite_information14),
281 msite_information15 = decode(p_msite_information15, FND_API.G_MISS_CHAR,
282 msite_information15, p_msite_information15),
283 msite_information16 = decode(p_msite_information16, FND_API.G_MISS_CHAR,
284 msite_information16, p_msite_information16),
285 msite_information17 = decode(p_msite_information17, FND_API.G_MISS_CHAR,
286 msite_information17, p_msite_information17),
287 msite_information18 = decode(p_msite_information18, FND_API.G_MISS_CHAR,
288 msite_information18, p_msite_information18),
289 msite_information19 = decode(p_msite_information19, FND_API.G_MISS_CHAR,
290 msite_information19, p_msite_information19),
291 msite_information20 = decode(p_msite_information20, FND_API.G_MISS_CHAR,
292 msite_information20, p_msite_information20),
293 attribute_category = decode(p_attribute_category, FND_API.G_MISS_CHAR,
294 attribute_category, p_attribute_category),
295 attribute1 = decode(p_attribute1, FND_API.G_MISS_CHAR,
296 attribute1, p_attribute1),
297 attribute2 = decode(p_attribute2, FND_API.G_MISS_CHAR,
298 attribute2, p_attribute2),
299 attribute3 = decode(p_attribute3, FND_API.G_MISS_CHAR,
300 attribute3, p_attribute3),
301 attribute4 = decode(p_attribute4, FND_API.G_MISS_CHAR,
302 attribute4, p_attribute4),
303 attribute5 = decode(p_attribute5, FND_API.G_MISS_CHAR,
304 attribute5, p_attribute5),
305 attribute6 = decode(p_attribute6, FND_API.G_MISS_CHAR,
306 attribute6, p_attribute6),
307 attribute7 = decode(p_attribute7, FND_API.G_MISS_CHAR,
308 attribute7, p_attribute7),
309 attribute8 = decode(p_attribute8, FND_API.G_MISS_CHAR,
310 attribute8, p_attribute8),
311 attribute9 = decode(p_attribute9, FND_API.G_MISS_CHAR,
312 attribute9, p_attribute9),
313 attribute10 = decode(p_attribute10, FND_API.G_MISS_CHAR,
314 attribute10, p_attribute10),
315 attribute11 = decode(p_attribute11, FND_API.G_MISS_CHAR,
316 attribute11, p_attribute11),
317 attribute12 = decode(p_attribute12, FND_API.G_MISS_CHAR,
318 attribute12, p_attribute12),
319 attribute13 = decode(p_attribute13, FND_API.G_MISS_CHAR,
320 attribute13, p_attribute13),
321 attribute14 = decode(p_attribute14, FND_API.G_MISS_CHAR,
322 attribute14, p_attribute14),
323 attribute15 = decode(p_attribute15, FND_API.G_MISS_CHAR,
324 attribute15, p_attribute15),
325 last_update_date = decode(p_last_update_date, FND_API.G_MISS_DATE, sysdate,
326 NULL, sysdate, p_last_update_date),
327 last_updated_by = decode(p_last_updated_by, FND_API.G_MISS_NUM,
328 FND_GLOBAL.user_id, NULL, FND_GLOBAL.user_id,
329 p_last_updated_by),
330 last_update_login = decode(p_last_update_login, FND_API.G_MISS_NUM,
331 FND_GLOBAL.login_id, NULL, FND_GLOBAL.login_id,
332 p_last_update_login)
333 WHERE msite_information_id = p_msite_information_id
334 AND object_version_number = decode(p_object_version_number,
335 FND_API.G_MISS_NUM,
336 object_version_number,
337 p_object_version_number);
338 IF (sql%NOTFOUND) THEN
339 RAISE NO_DATA_FOUND;
340 END IF;
341
342 END update_row;
343
344 -- ****************************************************************************
345 -- delete row
346 -- ****************************************************************************
347 PROCEDURE delete_row
348 (
349 p_msite_information_id IN NUMBER
350 )
351 IS
352 BEGIN
353
354 DELETE FROM ibe_msite_information
355 WHERE msite_information_id = p_msite_information_id;
356
357 IF (sql%NOTFOUND) THEN
358 RAISE NO_DATA_FOUND;
359 END IF;
360
361 END delete_row;
362
363 END Ibe_Msite_Information_Pkg;