[Home] [Help]
PACKAGE BODY: APPS.PER_KR_GRADE_AMOUNT_PKG
Source
1 PACKAGE BODY per_kr_grade_amount_pkg AS
2 /* $Header: pekrsg02.pkb 115.1 2002/12/03 09:36:23 viagarwa noship $ */
3 -------------------------------------------------------------------------------------
4 PROCEDURE insert_row
5 (p_row_id IN OUT NOCOPY VARCHAR2
6 ,p_grade_amount_id IN OUT NOCOPY NUMBER
7 ,p_effective_start_date DATE
8 ,p_effective_end_date DATE
9 ,p_grade_id NUMBER
10 ,p_grade_amount NUMBER
11 ,p_object_version_number NUMBER
12 ,p_last_update_date DATE
13 ,p_last_updated_by NUMBER
14 ,p_last_update_login NUMBER
15 ,p_created_by NUMBER
16 ,p_creation_date DATE
17 ,p_attribute_category VARCHAR2
18 ,p_attribute1 VARCHAR2
19 ,p_attribute2 VARCHAR2
20 ,p_attribute3 VARCHAR2
21 ,p_attribute4 VARCHAR2
22 ,p_attribute5 VARCHAR2
23 ,p_attribute6 VARCHAR2
24 ,p_attribute7 VARCHAR2
25 ,p_attribute8 VARCHAR2
26 ,p_attribute9 VARCHAR2
27 ,p_attribute10 VARCHAR2
28 ,p_attribute11 VARCHAR2
29 ,p_attribute12 VARCHAR2
30 ,p_attribute13 VARCHAR2
31 ,p_attribute14 VARCHAR2
32 ,p_attribute15 VARCHAR2
33 ,p_attribute16 VARCHAR2
34 ,p_attribute17 VARCHAR2
35 ,p_attribute18 VARCHAR2
36 ,p_attribute19 VARCHAR2
37 ,p_attribute20 VARCHAR2
38 ,p_attribute21 VARCHAR2
39 ,p_attribute22 VARCHAR2
40 ,p_attribute23 VARCHAR2
41 ,p_attribute24 VARCHAR2
42 ,p_attribute25 VARCHAR2
43 ,p_attribute26 VARCHAR2
44 ,p_attribute27 VARCHAR2
45 ,p_attribute28 VARCHAR2
46 ,p_attribute29 VARCHAR2
47 ,p_attribute30 VARCHAR2
48 ) IS
49 --
50 CURSOR c_s1 IS
51 SELECT per_kr_grade_amount_s.NEXTVAL
52 FROM dual;
53 --
54 BEGIN
55 --
56 OPEN c_s1;
57 FETCH c_s1 INTO p_grade_amount_id;
58 IF (c_s1%NOTFOUND) THEN
59 CLOSE c_s1;
60 RAISE NO_DATA_FOUND;
61 END IF;
62 --
63 CLOSE c_s1;
64 --
65 INSERT INTO per_kr_grade_amount_f
66 (grade_amount_id
67 ,effective_start_date
68 ,effective_end_date
69 ,grade_id
70 ,grade_amount
71 ,object_version_number
72 ,last_update_date
73 ,last_updated_by
74 ,last_update_login
75 ,created_by
76 ,creation_date
77 ,attribute_category
78 ,attribute1
79 ,attribute2
80 ,attribute3
81 ,attribute4
82 ,attribute5
83 ,attribute6
84 ,attribute7
85 ,attribute8
86 ,attribute9
87 ,attribute10
88 ,attribute11
89 ,attribute12
90 ,attribute13
91 ,attribute14
92 ,attribute15
93 ,attribute16
94 ,attribute17
95 ,attribute18
96 ,attribute19
97 ,attribute20
98 ,attribute21
99 ,attribute22
100 ,attribute23
101 ,attribute24
102 ,attribute25
103 ,attribute26
104 ,attribute27
105 ,attribute28
106 ,attribute29
107 ,attribute30
108 ) VALUES (
109 p_grade_amount_id
110 ,p_effective_start_date
111 ,p_effective_end_date
112 ,p_grade_id
113 ,p_grade_amount
114 ,p_object_version_number
115 ,p_last_update_date
116 ,p_last_updated_by
117 ,p_last_update_login
118 ,p_created_by
119 ,p_creation_date
120 ,p_attribute_category
121 ,p_attribute1
122 ,p_attribute2
123 ,p_attribute3
124 ,p_attribute4
125 ,p_attribute5
126 ,p_attribute6
127 ,p_attribute7
128 ,p_attribute8
129 ,p_attribute9
130 ,p_attribute10
131 ,p_attribute11
132 ,p_attribute12
133 ,p_attribute13
134 ,p_attribute14
135 ,p_attribute15
136 ,p_attribute16
137 ,p_attribute17
138 ,p_attribute18
139 ,p_attribute19
140 ,p_attribute20
141 ,p_attribute21
142 ,p_attribute22
143 ,p_attribute23
144 ,p_attribute24
145 ,p_attribute25
146 ,p_attribute26
147 ,p_attribute27
148 ,p_attribute28
149 ,p_attribute29
150 ,p_attribute30
151 )
152 returning rowidtochar(rowid) into p_row_id;
153 --
154 END insert_row;
155 -------------------------------------------------------------------------------------
156 PROCEDURE lock_row
157 (p_row_id VARCHAR2
158 ,p_grade_amount_id NUMBER
159 ,p_effective_start_date DATE
160 ,p_effective_end_date DATE
161 ,p_grade_id NUMBER
162 ,p_grade_amount NUMBER
163 ,p_object_version_number NUMBER
164 ,p_last_update_date DATE
165 ,p_last_updated_by NUMBER
166 ,p_last_update_login NUMBER
167 ,p_created_by NUMBER
168 ,p_creation_date DATE
169 ,p_attribute_category VARCHAR2
170 ,p_attribute1 VARCHAR2
171 ,p_attribute2 VARCHAR2
172 ,p_attribute3 VARCHAR2
173 ,p_attribute4 VARCHAR2
174 ,p_attribute5 VARCHAR2
175 ,p_attribute6 VARCHAR2
176 ,p_attribute7 VARCHAR2
177 ,p_attribute8 VARCHAR2
178 ,p_attribute9 VARCHAR2
179 ,p_attribute10 VARCHAR2
180 ,p_attribute11 VARCHAR2
181 ,p_attribute12 VARCHAR2
182 ,p_attribute13 VARCHAR2
183 ,p_attribute14 VARCHAR2
184 ,p_attribute15 VARCHAR2
185 ,p_attribute16 VARCHAR2
186 ,p_attribute17 VARCHAR2
187 ,p_attribute18 VARCHAR2
188 ,p_attribute19 VARCHAR2
189 ,p_attribute20 VARCHAR2
190 ,p_attribute21 VARCHAR2
191 ,p_attribute22 VARCHAR2
192 ,p_attribute23 VARCHAR2
193 ,p_attribute24 VARCHAR2
194 ,p_attribute25 VARCHAR2
195 ,p_attribute26 VARCHAR2
196 ,p_attribute27 VARCHAR2
197 ,p_attribute28 VARCHAR2
198 ,p_attribute29 VARCHAR2
199 ,p_attribute30 VARCHAR2
200 ) IS
201 --
202 CURSOR c1 IS
203 SELECT grade_amount_id
204 ,effective_start_date
205 ,effective_end_date
206 ,grade_id
207 ,grade_amount
208 ,object_version_number
209 ,last_update_date
210 ,last_updated_by
211 ,last_update_login
212 ,created_by
213 ,creation_date
214 ,attribute_category
215 ,attribute1
216 ,attribute2
217 ,attribute3
218 ,attribute4
219 ,attribute5
220 ,attribute6
221 ,attribute7
222 ,attribute8
223 ,attribute9
224 ,attribute10
225 ,attribute11
226 ,attribute12
227 ,attribute13
228 ,attribute14
229 ,attribute15
230 ,attribute16
231 ,attribute17
232 ,attribute18
233 ,attribute19
234 ,attribute20
235 ,attribute21
236 ,attribute22
237 ,attribute23
238 ,attribute24
239 ,attribute25
240 ,attribute26
241 ,attribute27
242 ,attribute28
243 ,attribute29
244 ,attribute30
245 FROM per_kr_grade_amount
246 WHERE rowid = chartorowid(p_row_id)
247 FOR UPDATE OF grade_amount_id NOWAIT;
248 --
249 recinfo c1%ROWTYPE;
250 --
251 BEGIN
252 --
253 OPEN c1;
254 FETCH c1 INTO recinfo;
255 --
256 IF (c1%NOTFOUND) THEN
257 CLOSE c1;
258 fnd_message.set_name('FND','FORM_RECORD_DELETED');
259 app_exception.raise_exception;
260 END IF;
261 --
262 CLOSE c1;
263 --
264 IF ( (recinfo.grade_amount_id = p_grade_amount_id)
265 AND (recinfo.effective_start_date = p_effective_start_date)
266 AND (recinfo.effective_end_date = p_effective_end_date)
267 AND (recinfo.grade_id = p_grade_id)
268 AND ( (recinfo.grade_amount = p_grade_amount)
269 OR ( (recinfo.grade_amount IS NULL)
270 AND (p_grade_amount IS NULL)))
271 AND ( (recinfo.object_version_number = p_object_version_number)
272 OR ( (recinfo.object_version_number IS NULL)
273 AND (p_object_version_number IS NULL)))
274 AND ( (recinfo.last_update_date = p_last_update_date)
275 OR ( (recinfo.last_update_date IS NULL)
276 AND (p_last_update_date IS NULL)))
277 AND ( (recinfo.last_updated_by = p_last_updated_by)
278 OR ( (recinfo.last_updated_by IS NULL)
279 AND (p_last_updated_by IS NULL)))
280 AND ( (recinfo.last_update_login = p_last_update_login)
281 OR ( (recinfo.last_update_login IS NULL)
282 AND (p_last_update_login IS NULL)))
283 AND ( (recinfo.created_by = p_created_by)
284 OR ( (recinfo.created_by IS NULL)
285 AND (p_created_by IS NULL)))
286 AND ( (recinfo.creation_date = p_creation_date)
287 OR ( (recinfo.creation_date IS NULL)
288 AND (p_creation_date IS NULL)))
289 AND ( (recinfo.attribute_category = p_attribute_category)
290 OR ( (recinfo.attribute_category IS NULL)
291 AND (p_attribute_category IS NULL)))
292 AND ( (recinfo.attribute1 = p_attribute1)
293 OR ( (recinfo.attribute1 IS NULL)
294 AND (p_attribute1 IS NULL)))
295 AND ( (recinfo.attribute2 = p_attribute2)
296 OR ( (recinfo.attribute2 IS NULL)
297 AND (p_attribute2 IS NULL)))
298 AND ( (recinfo.attribute3 = p_attribute3)
299 OR ( (recinfo.attribute3 IS NULL)
300 AND (p_attribute3 IS NULL)))
301 AND ( (recinfo.attribute4 = p_attribute4)
302 OR ( (recinfo.attribute4 IS NULL)
303 AND (p_attribute4 IS NULL)))
304 AND ( (recinfo.attribute5 = p_attribute5)
305 OR ( (recinfo.attribute5 IS NULL)
306 AND (p_attribute5 IS NULL)))
307 AND ( (recinfo.attribute6 = p_attribute6)
308 OR ( (recinfo.attribute6 IS NULL)
309 AND (p_attribute6 IS NULL)))
310 AND ( (recinfo.attribute7 = p_attribute7)
311 OR ( (recinfo.attribute7 IS NULL)
312 AND (p_attribute7 IS NULL)))
313 AND ( (recinfo.attribute8 = p_attribute8)
314 OR ( (recinfo.attribute8 IS NULL)
315 AND (p_attribute8 IS NULL)))
316 AND ( (recinfo.attribute9 = p_attribute9)
317 OR ( (recinfo.attribute9 IS NULL)
318 AND (p_attribute9 IS NULL)))
319 AND ( (recinfo.attribute10 = p_attribute10)
320 OR ( (recinfo.attribute10 IS NULL)
321 AND (p_attribute10 IS NULL)))
322 AND ( (recinfo.attribute11 = p_attribute11)
323 OR ( (recinfo.attribute11 IS NULL)
324 AND (p_attribute11 IS NULL)))
325 AND ( (recinfo.attribute12 = p_attribute12)
326 OR ( (recinfo.attribute12 IS NULL)
327 AND (p_attribute12 IS NULL)))
328 AND ( (recinfo.attribute13 = p_attribute13)
329 OR ( (recinfo.attribute13 IS NULL)
330 AND (p_attribute13 IS NULL)))
331 AND ( (recinfo.attribute14 = p_attribute14)
332 OR ( (recinfo.attribute14 IS NULL)
333 AND (p_attribute14 IS NULL)))
334 AND ( (recinfo.attribute15 = p_attribute15)
335 OR ( (recinfo.attribute15 IS NULL)
336 AND (p_attribute15 IS NULL)))
337 AND ( (recinfo.attribute16 = p_attribute16)
338 OR ( (recinfo.attribute16 IS NULL)
339 AND (p_attribute16 IS NULL)))
340 AND ( (recinfo.attribute17 = p_attribute17)
341 OR ( (recinfo.attribute17 IS NULL)
342 AND (p_attribute17 IS NULL)))
343 AND ( (recinfo.attribute18 = p_attribute18)
344 OR ( (recinfo.attribute18 IS NULL)
345 AND (p_attribute18 IS NULL)))
346 AND ( (recinfo.attribute19 = p_attribute19)
347 OR ( (recinfo.attribute19 IS NULL)
348 AND (p_attribute19 IS NULL)))
349 AND ( (recinfo.attribute20 = p_attribute20)
350 OR ( (recinfo.attribute20 IS NULL)
351 AND (p_attribute20 IS NULL)))
352 AND ( (recinfo.attribute21 = p_attribute21)
353 OR ( (recinfo.attribute21 IS NULL)
354 AND (p_attribute21 IS NULL)))
355 AND ( (recinfo.attribute22 = p_attribute22)
356 OR ( (recinfo.attribute22 IS NULL)
357 AND (p_attribute22 IS NULL)))
358 AND ( (recinfo.attribute23 = p_attribute23)
359 OR ( (recinfo.attribute23 IS NULL)
360 AND (p_attribute23 IS NULL)))
361 AND ( (recinfo.attribute24 = p_attribute24)
362 OR ( (recinfo.attribute24 IS NULL)
363 AND (p_attribute24 IS NULL)))
364 AND ( (recinfo.attribute25 = p_attribute25)
365 OR ( (recinfo.attribute25 IS NULL)
366 AND (p_attribute25 IS NULL)))
367 AND ( (recinfo.attribute26 = p_attribute26)
368 OR ( (recinfo.attribute26 IS NULL)
369 AND (p_attribute26 IS NULL)))
370 AND ( (recinfo.attribute27 = p_attribute27)
371 OR ( (recinfo.attribute27 IS NULL)
372 AND (p_attribute27 IS NULL)))
373 AND ( (recinfo.attribute28 = p_attribute28)
374 OR ( (recinfo.attribute28 IS NULL)
375 AND (p_attribute28 IS NULL)))
376 AND ( (recinfo.attribute29 = p_attribute29)
377 OR ( (recinfo.attribute29 IS NULL)
378 AND (p_attribute29 IS NULL)))
379 AND ( (recinfo.attribute30 = p_attribute30)
380 OR ( (recinfo.attribute30 IS NULL)
381 AND (p_attribute30 IS NULL)))
382 ) THEN
383 RETURN;
384 ELSE
385 fnd_message.set_name('FND','FORM_RECORD_CHANGED');
386 app_exception.raise_exception;
387 END IF;
388 --
389 END lock_row;
390 -------------------------------------------------------------------------------------
391 PROCEDURE update_row
392 (p_row_id VARCHAR2
393 ,p_grade_amount_id NUMBER
394 ,p_effective_start_date DATE
395 ,p_effective_end_date DATE
396 ,p_grade_id NUMBER
397 ,p_grade_amount NUMBER
398 ,p_object_version_number NUMBER
399 ,p_last_update_date DATE
400 ,p_last_updated_by NUMBER
401 ,p_last_update_login NUMBER
402 ,p_created_by NUMBER
403 ,p_creation_date DATE
404 ,p_attribute_category VARCHAR2
405 ,p_attribute1 VARCHAR2
406 ,p_attribute2 VARCHAR2
407 ,p_attribute3 VARCHAR2
408 ,p_attribute4 VARCHAR2
409 ,p_attribute5 VARCHAR2
410 ,p_attribute6 VARCHAR2
411 ,p_attribute7 VARCHAR2
412 ,p_attribute8 VARCHAR2
413 ,p_attribute9 VARCHAR2
414 ,p_attribute10 VARCHAR2
415 ,p_attribute11 VARCHAR2
416 ,p_attribute12 VARCHAR2
417 ,p_attribute13 VARCHAR2
418 ,p_attribute14 VARCHAR2
419 ,p_attribute15 VARCHAR2
420 ,p_attribute16 VARCHAR2
421 ,p_attribute17 VARCHAR2
422 ,p_attribute18 VARCHAR2
423 ,p_attribute19 VARCHAR2
427 ,p_attribute23 VARCHAR2
424 ,p_attribute20 VARCHAR2
425 ,p_attribute21 VARCHAR2
426 ,p_attribute22 VARCHAR2
428 ,p_attribute24 VARCHAR2
429 ,p_attribute25 VARCHAR2
430 ,p_attribute26 VARCHAR2
431 ,p_attribute27 VARCHAR2
432 ,p_attribute28 VARCHAR2
433 ,p_attribute29 VARCHAR2
434 ,p_attribute30 VARCHAR2
435 ) IS
436 BEGIN
437 UPDATE per_kr_grade_amount
438 SET effective_start_date = p_effective_start_date
439 ,effective_end_date = p_effective_end_date
440 ,grade_amount = p_grade_amount
441 ,object_version_number = p_object_version_number
442 ,last_update_date = p_last_update_date
443 ,last_updated_by = p_last_updated_by
444 ,last_update_login = p_last_update_login
445 ,created_by = p_created_by
446 ,creation_date = p_creation_date
447 ,attribute_category = p_attribute_category
448 ,attribute1 = p_attribute1
449 ,attribute2 = p_attribute2
450 ,attribute3 = p_attribute3
451 ,attribute4 = p_attribute4
452 ,attribute5 = p_attribute5
453 ,attribute6 = p_attribute6
454 ,attribute7 = p_attribute7
455 ,attribute8 = p_attribute8
456 ,attribute9 = p_attribute9
457 ,attribute10 = p_attribute10
458 ,attribute11 = p_attribute11
459 ,attribute12 = p_attribute12
460 ,attribute13 = p_attribute13
461 ,attribute14 = p_attribute14
462 ,attribute15 = p_attribute15
463 ,attribute16 = p_attribute16
464 ,attribute17 = p_attribute17
465 ,attribute18 = p_attribute18
466 ,attribute19 = p_attribute19
467 ,attribute20 = p_attribute20
468 ,attribute21 = p_attribute21
469 ,attribute22 = p_attribute22
470 ,attribute23 = p_attribute23
471 ,attribute24 = p_attribute24
472 ,attribute25 = p_attribute25
473 ,attribute26 = p_attribute26
474 ,attribute27 = p_attribute27
475 ,attribute28 = p_attribute28
476 ,attribute29 = p_attribute29
477 ,attribute30 = p_attribute30
478 WHERE rowid = chartorowid(p_row_id);
479 --
480 IF (SQL%NOTFOUND) THEN
481 RAISE NO_DATA_FOUND;
482 END IF;
483 --
484 END update_row;
485 -------------------------------------------------------------------------------------
486 PROCEDURE delete_row
487 (p_row_id VARCHAR2
488 ) IS
489 BEGIN
490 --
491 DELETE FROM per_kr_grade_amount_f
492 WHERE rowid = chartorowid(p_row_id);
493 --
494 IF (SQL%NOTFOUND) THEN
495 RAISE NO_DATA_FOUND;
496 END IF;
497 --
498 END delete_row;
499 -------------------------------------------------------------------------------------
500 END per_kr_grade_amount_pkg;