[Home] [Help]
PACKAGE BODY: APPS.GME_PROCESS_PARAMETERS_DBL
Source
1 PACKAGE BODY gme_process_parameters_dbl AS
2 /* $Header: GMEVGPPB.pls 120.3 2006/03/17 11:13:28 pxkumar noship $ */
3 g_table_name VARCHAR2 (80) DEFAULT 'GME_PROCESS_PARAMETERS';
4 g_package_name VARCHAR2 (32) DEFAULT 'GME_PROCESS_PARAMETERS_DBL';
5
6 FUNCTION insert_row (
7 p_process_parameters IN gme_process_parameters%ROWTYPE
8 ,x_process_parameters IN OUT NOCOPY gme_process_parameters%ROWTYPE)
9 RETURN BOOLEAN
10 IS
11 BEGIN
12 x_process_parameters := p_process_parameters;
13
14 INSERT INTO gme_process_parameters
15 (process_param_id
16 ,batch_id
17 ,batchstep_id
18 ,batchstep_activity_id
19 ,batchstep_resource_id
20 ,resources
21 ,parameter_id
22 ,target_value
23 ,actual_value
24 ,minimum_value
25 ,maximum_value
26 ,parameter_uom
27 ,device_id
28 ,attribute_category
29 ,attribute1
30 ,attribute2
31 ,attribute3
32 ,attribute4
33 ,attribute5
34 ,attribute6
35 ,attribute7
36 ,attribute8
37 ,attribute9
38 ,attribute10
39 ,attribute11
40 ,attribute12
41 ,attribute13
42 ,attribute14
43 ,attribute15
44 ,attribute16
45 ,attribute17
46 ,attribute18
47 ,attribute19
48 ,attribute20
49 ,attribute21
50 ,attribute22
51 ,attribute23
52 ,attribute24
53 ,attribute25
54 ,attribute26
55 ,attribute27
56 ,attribute28
57 ,attribute29
58 ,attribute30
59 ,creation_date, created_by
60 ,last_update_date, last_updated_by
61 ,last_update_login)
62 VALUES (gme_process_parameters_id_s.NEXTVAL
63 ,x_process_parameters.batch_id
64 ,x_process_parameters.batchstep_id
65 ,x_process_parameters.batchstep_activity_id
66 ,x_process_parameters.batchstep_resource_id
67 ,x_process_parameters.resources
68 ,x_process_parameters.parameter_id
69 ,x_process_parameters.target_value
70 ,x_process_parameters.actual_value
71 ,x_process_parameters.minimum_value
72 ,x_process_parameters.maximum_value
73 ,x_process_parameters.parameter_uom
74 ,x_process_parameters.device_id
75 ,x_process_parameters.attribute_category
76 ,x_process_parameters.attribute1
77 ,x_process_parameters.attribute2
78 ,x_process_parameters.attribute3
79 ,x_process_parameters.attribute4
80 ,x_process_parameters.attribute5
81 ,x_process_parameters.attribute6
82 ,x_process_parameters.attribute7
83 ,x_process_parameters.attribute8
84 ,x_process_parameters.attribute9
85 ,x_process_parameters.attribute10
86 ,x_process_parameters.attribute11
87 ,x_process_parameters.attribute12
88 ,x_process_parameters.attribute13
89 ,x_process_parameters.attribute14
90 ,x_process_parameters.attribute15
91 ,x_process_parameters.attribute16
92 ,x_process_parameters.attribute17
93 ,x_process_parameters.attribute18
94 ,x_process_parameters.attribute19
95 ,x_process_parameters.attribute20
96 ,x_process_parameters.attribute21
97 ,x_process_parameters.attribute22
98 ,x_process_parameters.attribute23
99 ,x_process_parameters.attribute24
100 ,x_process_parameters.attribute25
101 ,x_process_parameters.attribute26
102 ,x_process_parameters.attribute27
103 ,x_process_parameters.attribute28
104 ,x_process_parameters.attribute29
105 ,x_process_parameters.attribute30
106 ,gme_common_pvt.g_timestamp, gme_common_pvt.g_user_ident
107 ,gme_common_pvt.g_timestamp, gme_common_pvt.g_user_ident
108 ,gme_common_pvt.g_login_id)
109 RETURNING process_param_id
110 INTO x_process_parameters.process_param_id;
111
112 IF SQL%FOUND THEN
113 x_process_parameters.created_by := gme_common_pvt.g_user_ident;
114 x_process_parameters.creation_date := gme_common_pvt.g_timestamp;
115 x_process_parameters.last_updated_by := gme_common_pvt.g_user_ident;
116 x_process_parameters.last_update_date := gme_common_pvt.g_timestamp;
117 RETURN TRUE;
118 ELSE
119 RETURN FALSE;
120 END IF;
121 EXCEPTION
122 WHEN OTHERS THEN
123 fnd_msg_pub.add_exc_msg (g_package_name, 'insert_row');
124 RETURN FALSE;
125 END insert_row;
126
127 /* Api start of comments
128 +============================================================================
129 | FUNCTION NAME
130 | fetch_row
131 |
132 | TYPE
133 | Private
134 | USAGE
135 | Fetch_Row will fetch a row in gme_process_parameters
136 |
137 |
138 | DESCRIPTION
139 | Fetch_Row will fetch a row in gme_process_parameters
140 |
141 |
142 |
143 | PARAMETERS
144 | p_process_parameters IN gme_process_parameters%ROWTYPE
145 | x_process_parameters OUT gme_process_parameters%ROWTYPE
146 |
147 | RETURNS
148 | BOOLEAN
149 | HISTORY
150 | 23-AUG-02 Pawan Kumar Created
151 |
152 |
153 |
154 +=============================================================================
155 Api end of comments
156 */
157 FUNCTION fetch_row (
158 p_process_parameters IN gme_process_parameters%ROWTYPE
159 ,x_process_parameters IN OUT NOCOPY gme_process_parameters%ROWTYPE)
160 RETURN BOOLEAN
161 IS
162 BEGIN
163 IF p_process_parameters.process_param_id IS NOT NULL THEN
164 SELECT process_param_id
165 ,batch_id
166 ,batchstep_id
167 ,batchstep_activity_id
168 ,batchstep_resource_id
169 ,resources
170 ,parameter_id
171 ,target_value
172 ,actual_value
173 ,minimum_value
174 ,maximum_value
175 ,parameter_uom
176 ,device_id
177 ,attribute_category
178 ,attribute1
179 ,attribute2
180 ,attribute3
181 ,attribute4
182 ,attribute5
183 ,attribute6
184 ,attribute7
185 ,attribute8
186 ,attribute9
187 ,attribute10
188 ,attribute11
189 ,attribute12
190 ,attribute13
191 ,attribute14
192 ,attribute15
193 ,attribute16
194 ,attribute17
195 ,attribute18
196 ,attribute19
197 ,attribute20
198 ,attribute21
199 ,attribute22
200 ,attribute23
201 ,attribute24
202 ,attribute25
203 ,attribute26
204 ,attribute27
205 ,attribute28
206 ,attribute29
207 ,attribute30
208 ,created_by
209 ,creation_date
210 ,last_updated_by
211 ,last_update_date
212 ,last_update_login
213 INTO x_process_parameters.process_param_id
214 ,x_process_parameters.batch_id
215 ,x_process_parameters.batchstep_id
216 ,x_process_parameters.batchstep_activity_id
217 ,x_process_parameters.batchstep_resource_id
218 ,x_process_parameters.resources
219 ,x_process_parameters.parameter_id
220 ,x_process_parameters.target_value
221 ,x_process_parameters.actual_value
222 ,x_process_parameters.minimum_value
223 ,x_process_parameters.maximum_value
224 ,x_process_parameters.parameter_uom
225 ,x_process_parameters.device_id
226 ,x_process_parameters.attribute_category
227 ,x_process_parameters.attribute1
228 ,x_process_parameters.attribute2
229 ,x_process_parameters.attribute3
230 ,x_process_parameters.attribute4
231 ,x_process_parameters.attribute5
232 ,x_process_parameters.attribute6
233 ,x_process_parameters.attribute7
234 ,x_process_parameters.attribute8
235 ,x_process_parameters.attribute9
236 ,x_process_parameters.attribute10
237 ,x_process_parameters.attribute11
238 ,x_process_parameters.attribute12
239 ,x_process_parameters.attribute13
240 ,x_process_parameters.attribute14
241 ,x_process_parameters.attribute15
242 ,x_process_parameters.attribute16
243 ,x_process_parameters.attribute17
244 ,x_process_parameters.attribute18
245 ,x_process_parameters.attribute19
246 ,x_process_parameters.attribute20
247 ,x_process_parameters.attribute21
248 ,x_process_parameters.attribute22
249 ,x_process_parameters.attribute23
250 ,x_process_parameters.attribute24
251 ,x_process_parameters.attribute25
252 ,x_process_parameters.attribute26
253 ,x_process_parameters.attribute27
254 ,x_process_parameters.attribute28
255 ,x_process_parameters.attribute29
256 ,x_process_parameters.attribute30
257 ,x_process_parameters.created_by
258 ,x_process_parameters.creation_date
259 ,x_process_parameters.last_updated_by
260 ,x_process_parameters.last_update_date
261 ,x_process_parameters.last_update_login
262 FROM gme_process_parameters
263 WHERE process_param_id = p_process_parameters.process_param_id;
264 ELSIF p_process_parameters.batchstep_resource_id IS NOT NULL
265 AND p_process_parameters.parameter_id IS NOT NULL THEN
266 SELECT process_param_id
267 ,batch_id
268 ,batchstep_id
269 ,batchstep_activity_id
270 ,batchstep_resource_id
271 ,resources
272 ,parameter_id
273 ,target_value
274 ,actual_value
275 ,minimum_value
276 ,maximum_value
277 ,parameter_uom
278 ,device_id
279 ,attribute_category
280 ,attribute1
281 ,attribute2
282 ,attribute3
283 ,attribute4
284 ,attribute5
285 ,attribute6
286 ,attribute7
287 ,attribute8
288 ,attribute9
289 ,attribute10
290 ,attribute11
291 ,attribute12
292 ,attribute13
293 ,attribute14
294 ,attribute15
295 ,attribute16
296 ,attribute17
297 ,attribute18
298 ,attribute19
299 ,attribute20
300 ,attribute21
301 ,attribute22
302 ,attribute23
303 ,attribute24
304 ,attribute25
305 ,attribute26
306 ,attribute27
307 ,attribute28
308 ,attribute29
309 ,attribute30
310 ,created_by
311 ,creation_date
312 ,last_updated_by
313 ,last_update_date
314 ,last_update_login
315 INTO x_process_parameters.process_param_id
316 ,x_process_parameters.batch_id
317 ,x_process_parameters.batchstep_id
318 ,x_process_parameters.batchstep_activity_id
319 ,x_process_parameters.batchstep_resource_id
320 ,x_process_parameters.resources
321 ,x_process_parameters.parameter_id
322 ,x_process_parameters.target_value
323 ,x_process_parameters.actual_value
324 ,x_process_parameters.minimum_value
325 ,x_process_parameters.maximum_value
326 ,x_process_parameters.parameter_uom
327 ,x_process_parameters.device_id
328 ,x_process_parameters.attribute_category
329 ,x_process_parameters.attribute1
330 ,x_process_parameters.attribute2
331 ,x_process_parameters.attribute3
332 ,x_process_parameters.attribute4
333 ,x_process_parameters.attribute5
334 ,x_process_parameters.attribute6
335 ,x_process_parameters.attribute7
336 ,x_process_parameters.attribute8
337 ,x_process_parameters.attribute9
338 ,x_process_parameters.attribute10
339 ,x_process_parameters.attribute11
340 ,x_process_parameters.attribute12
341 ,x_process_parameters.attribute13
342 ,x_process_parameters.attribute14
343 ,x_process_parameters.attribute15
344 ,x_process_parameters.attribute16
345 ,x_process_parameters.attribute17
346 ,x_process_parameters.attribute18
347 ,x_process_parameters.attribute19
348 ,x_process_parameters.attribute20
349 ,x_process_parameters.attribute21
350 ,x_process_parameters.attribute22
351 ,x_process_parameters.attribute23
352 ,x_process_parameters.attribute24
353 ,x_process_parameters.attribute25
354 ,x_process_parameters.attribute26
355 ,x_process_parameters.attribute27
356 ,x_process_parameters.attribute28
357 ,x_process_parameters.attribute29
358 ,x_process_parameters.attribute30
359 ,x_process_parameters.created_by
360 ,x_process_parameters.creation_date
361 ,x_process_parameters.last_updated_by
362 ,x_process_parameters.last_update_date
363 ,x_process_parameters.last_update_login
364 FROM gme_process_parameters
365 WHERE batchstep_resource_id =
366 p_process_parameters.batchstep_resource_id
367 AND parameter_id = p_process_parameters.parameter_id;
368 ELSE
369 gme_common_pvt.log_message ('GME_NO_KEYS'
370 ,'TABLE_NAME'
371 ,g_table_name);
372 RETURN FALSE;
373 END IF;
374
375 RETURN TRUE;
376 EXCEPTION
377 WHEN NO_DATA_FOUND THEN
378 gme_common_pvt.log_message ('GME_NO_KEYS'
379 ,'TABLE_NAME'
380 ,g_table_name);
381 RETURN FALSE;
382 WHEN OTHERS THEN
383 fnd_msg_pub.add_exc_msg (g_package_name, 'fetch_row');
384 RETURN FALSE;
385 END fetch_row;
386
387 /* Api start of comments
388 +============================================================================
389 | FUNCTION NAME
390 | delete_row
391 |
392 | TYPE
393 | Private
394 | USAGE
395 | Delete_Row will delete a row in gme_process_parameters
396 |
397 |
398 | DESCRIPTION
399 | Delete_Row will delete a row in gme_process_parameters
400 |
401 |
402 |
403 | PARAMETERS
404 | p_process_parameters IN gme_process_parameters%ROWTYPE
405 |
406 | RETURNS
407 | BOOLEAN
408 | HISTORY
409 | 23-AUG-02 Pawan Kumar Created
410 |
411 |
412 |
413 +=============================================================================
414 Api end of comments
415 */
416 FUNCTION delete_row (
417 p_process_parameters IN gme_process_parameters%ROWTYPE)
418 RETURN BOOLEAN
419 IS
420 l_dummy NUMBER;
421 locked_by_other_user EXCEPTION;
422 PRAGMA EXCEPTION_INIT (locked_by_other_user, -54);
423 BEGIN
424 IF p_process_parameters.process_param_id IS NOT NULL THEN
425 SELECT 1
426 INTO l_dummy
427 FROM gme_process_parameters
428 WHERE process_param_id = p_process_parameters.process_param_id
429 FOR UPDATE NOWAIT;
430
431 DELETE FROM gme_process_parameters
432 WHERE process_param_id = p_process_parameters.process_param_id;
433 ELSIF p_process_parameters.batchstep_resource_id IS NOT NULL
434 AND p_process_parameters.parameter_id IS NOT NULL THEN
435 SELECT 1
436 INTO l_dummy
437 FROM gme_process_parameters
438 WHERE batchstep_resource_id =
439 p_process_parameters.batchstep_resource_id
440 AND parameter_id = p_process_parameters.parameter_id
441 FOR UPDATE NOWAIT;
442
443 DELETE FROM gme_process_parameters
444 WHERE batchstep_resource_id =
445 p_process_parameters.batchstep_resource_id
446 AND parameter_id = p_process_parameters.parameter_id;
447 ELSE
448 gme_common_pvt.log_message ('GME_NO_KEYS'
449 ,'TABLE_NAME'
450 ,g_table_name);
451 RETURN FALSE;
452 END IF;
453
454 IF SQL%FOUND THEN
455 RETURN TRUE;
456 ELSE
457 gme_common_pvt.log_message ('GME_NO_KEYS'
458 ,'TABLE_NAME'
459 ,g_table_name);
460 RETURN FALSE;
461 END IF;
462 EXCEPTION
463 WHEN app_exception.record_lock_exception THEN
464 gme_common_pvt.log_message ('GME_RECORD_LOCKED'
465 ,'TABLE_NAME'
466 ,g_table_name
467 ,'RECORD'
468 ,'PROCESS PARAMETERS'
469 ,'KEY'
470 ,p_process_parameters.process_param_id);
471 RETURN FALSE;
472 WHEN OTHERS THEN
473 fnd_msg_pub.add_exc_msg (g_package_name, 'delete_row');
474 RETURN FALSE;
475 END delete_row;
476
477 /* Api start of comments
478 +============================================================================
479 | FUNCTION NAME
480 | update_row
481 |
482 | TYPE
483 | Private
484 | USAGE
485 | Update_Row will update a row in gme_process_parameters
486 |
487 |
488 | DESCRIPTION
489 | Update_Row will update a row in gme_process_parameters
490 |
491 |
492 |
493 | PARAMETERS
494 | p_process_parameters IN gme_process_parameters%ROWTYPE
495 |
496 | RETURNS
497 | BOOLEAN
498 | HISTORY
499 | 23-AUG-02 Pawan Kumar Created
500 |
501 |
502 |
503 +=============================================================================
504 Api end of comments
505 */
506 FUNCTION update_row (
507 p_process_parameters IN gme_process_parameters%ROWTYPE)
508 RETURN BOOLEAN
509 IS
510 l_dummy NUMBER := 0;
511 locked_by_other_user EXCEPTION;
512 PRAGMA EXCEPTION_INIT (locked_by_other_user, -54);
513 BEGIN
514 IF p_process_parameters.process_param_id IS NOT NULL THEN
515 SELECT 1
516 INTO l_dummy
517 FROM gme_process_parameters
518 WHERE process_param_id = p_process_parameters.process_param_id
519 FOR UPDATE NOWAIT;
520
521 UPDATE gme_process_parameters
522 SET batch_id = p_process_parameters.batch_id
523 ,batchstep_id = p_process_parameters.batchstep_id
524 ,batchstep_activity_id =
525 p_process_parameters.batchstep_activity_id
526 ,batchstep_resource_id =
527 p_process_parameters.batchstep_resource_id
528 ,resources = p_process_parameters.resources
529 ,parameter_id = p_process_parameters.parameter_id
530 ,target_value = p_process_parameters.target_value
531 ,actual_value = p_process_parameters.actual_value
532 ,minimum_value = p_process_parameters.minimum_value
533 ,maximum_value = p_process_parameters.maximum_value
534 ,parameter_uom = p_process_parameters.parameter_uom
535 ,device_id = p_process_parameters.device_id
536 ,attribute_category = p_process_parameters.attribute_category
537 ,attribute1 = p_process_parameters.attribute1
538 ,attribute2 = p_process_parameters.attribute2
539 ,attribute3 = p_process_parameters.attribute3
540 ,attribute4 = p_process_parameters.attribute4
541 ,attribute5 = p_process_parameters.attribute5
542 ,attribute6 = p_process_parameters.attribute6
543 ,attribute7 = p_process_parameters.attribute7
544 ,attribute8 = p_process_parameters.attribute8
545 ,attribute9 = p_process_parameters.attribute9
546 ,attribute10 = p_process_parameters.attribute10
547 ,attribute11 = p_process_parameters.attribute11
548 ,attribute12 = p_process_parameters.attribute12
549 ,attribute13 = p_process_parameters.attribute13
550 ,attribute14 = p_process_parameters.attribute14
551 ,attribute15 = p_process_parameters.attribute15
552 ,attribute16 = p_process_parameters.attribute16
553 ,attribute17 = p_process_parameters.attribute17
554 ,attribute18 = p_process_parameters.attribute18
555 ,attribute19 = p_process_parameters.attribute19
556 ,attribute20 = p_process_parameters.attribute20
557 ,attribute21 = p_process_parameters.attribute21
558 ,attribute22 = p_process_parameters.attribute22
559 ,attribute23 = p_process_parameters.attribute23
560 ,attribute24 = p_process_parameters.attribute24
561 ,attribute25 = p_process_parameters.attribute25
562 ,attribute26 = p_process_parameters.attribute26
563 ,attribute27 = p_process_parameters.attribute27
564 ,attribute28 = p_process_parameters.attribute28
565 ,attribute29 = p_process_parameters.attribute29
566 ,attribute30 = p_process_parameters.attribute30
567 ,last_updated_by = gme_common_pvt.g_user_ident
568 ,last_update_date = gme_common_pvt.g_timestamp
569 ,last_update_login = gme_common_pvt.g_login_id
570 WHERE process_param_id = p_process_parameters.process_param_id
571 AND last_update_date = p_process_parameters.last_update_date;
572 ELSE
573 gme_common_pvt.log_message ('GME_NO_KEYS'
574 ,'TABLE_NAME'
575 ,g_table_name);
576 RETURN FALSE;
577 END IF;
578
579 IF SQL%FOUND THEN
580 RETURN TRUE;
581 ELSE
582 IF l_dummy = 0 THEN
583 gme_common_pvt.log_message ('GME_NO_DATA_FOUND'
584 ,'TABLE_NAME'
585 ,g_table_name);
586 ELSE
587 gme_common_pvt.log_message ('GME_RECORD_CHANGED'
588 ,'TABLE_NAME'
589 ,g_table_name);
590 END IF;
591
592 RETURN FALSE;
593 END IF;
594 EXCEPTION
595 WHEN NO_DATA_FOUND THEN
596 IF l_dummy = 0 THEN
597 gme_common_pvt.log_message ('GME_NO_DATA_FOUND'
598 ,'TABLE_NAME'
599 ,g_table_name);
600 ELSE
601 gme_common_pvt.log_message ('GME_RECORD_CHANGED'
602 ,'TABLE_NAME'
603 ,g_table_name);
604 END IF;
605
606 RETURN FALSE;
607 WHEN app_exception.record_lock_exception THEN
608 gme_common_pvt.log_message ('GME_RECORD_LOCKED'
609 ,'TABLE_NAME'
610 ,g_table_name
611 ,'RECORD'
612 ,'PROCESS PARAMETERS'
613 ,'KEY'
614 ,p_process_parameters.process_param_id);
615 RETURN FALSE;
616 WHEN OTHERS THEN
617 fnd_msg_pub.add_exc_msg (g_package_name, 'update_row');
618 RETURN FALSE;
619 END update_row;
620
621 /* Api start of comments
622 +============================================================================
623 | FUNCTION NAME
624 | lock_row
625 |
626 | TYPE
627 | Private
628 | USAGE
629 | Lock_Row will lock a row in gme_process_parameters
630 |
631 |
632 | DESCRIPTION
633 | Lock_Row will lock a row in gme_process_parameters
634 |
635 |
636 |
637 | PARAMETERS
638 | p_process_parameters IN gme_process_parameters%ROWTYPE
639 |
640 | RETURNS
641 | BOOLEAN
642 | HISTORY
643 | 23-AUG-02 Pawan Kumar Created
644 |
645 |
646 |
647 +=============================================================================
648 Api end of comments
649 */
650 FUNCTION lock_row (p_process_parameters IN gme_process_parameters%ROWTYPE)
651 RETURN BOOLEAN
652 IS
653 l_dummy NUMBER;
654 BEGIN
655 IF p_process_parameters.process_param_id IS NOT NULL THEN
656 SELECT 1
657 INTO l_dummy
658 FROM gme_process_parameters
659 WHERE process_param_id = p_process_parameters.process_param_id
660 FOR UPDATE NOWAIT;
661 /*ELSE p_process_parameters.batchstep_resource_id IS NOT NULL
662 AND p_process_parameters.parameter_id IS NOT NULL
663 THEN
664 SELECT 1 INTO l_dummy FROM gme_process_parameters
665 WHERE batchstep_resource_id = p_process_parameters.batchstep_resource_id
666 AND parameter_id = p_process_parameters.parameter_id
667 FOR UPDATE NOWAIT; */
668 END IF;
669
670 RETURN TRUE;
671 EXCEPTION
672 WHEN app_exception.record_lock_exception THEN
673 gme_common_pvt.log_message ('GME_RECORD_LOCKED'
674 ,'TABLE_NAME'
675 ,g_table_name
676 ,'RECORD'
677 ,'PROCESS PARAMETERS'
678 ,'KEY'
679 ,p_process_parameters.process_param_id);
680 RETURN FALSE;
681 WHEN OTHERS THEN
682 fnd_msg_pub.add_exc_msg (g_package_name, 'lock_row');
683 RETURN FALSE;
684 END lock_row;
685
686 /* Api start of comments
687 +============================================================================
688 | FUNCTION NAME
689 | delete_all
690 |
691 | TYPE
692 | Private
693 | USAGE
694 | Delete_all will delete all process parameters for a resource
695 |
696 |
697 | DESCRIPTION
698 | Delete_Row will delete a row in gme_process_parameters
699 |
700 |
701 |
702 | PARAMETERS
703 | p_process_parameters IN gme_process_parameters%ROWTYPE
704 |
705 | RETURNS
706 | BOOLEAN
707 | HISTORY
708 | 23-AUG-02 Pawan Kumar Created
709 |
710 |
711 |
712 +=============================================================================
713 Api end of comments
714 */
715 FUNCTION delete_all (
716 p_process_parameters IN gme_process_parameters%ROWTYPE)
717 RETURN BOOLEAN
718 IS
719 l_process_param_ids gme_common_pvt.number_tab;
720 locked_by_other_user EXCEPTION;
721 PRAGMA EXCEPTION_INIT (locked_by_other_user, -54);
722 BEGIN
723 IF p_process_parameters.batchstep_resource_id IS NOT NULL THEN
724 SELECT process_param_id
725 BULK COLLECT INTO l_process_param_ids
726 FROM gme_process_parameters
727 WHERE process_param_id = p_process_parameters.process_param_id
728 FOR UPDATE NOWAIT;
729
730 DELETE FROM gme_process_parameters
731 WHERE batchstep_resource_id =
732 p_process_parameters.batchstep_resource_id;
733 END IF;
734
735 IF SQL%FOUND THEN
736 RETURN TRUE;
737 ELSE
738 RETURN TRUE;
739 END IF;
740 EXCEPTION
741 WHEN app_exception.record_lock_exception THEN
742 gme_common_pvt.log_message ('GME_RECORD_LOCKED'
743 ,'TABLE_NAME'
744 ,g_table_name
745 ,'RECORD'
746 ,'PROCESS PARAMETERS'
747 ,'KEY'
748 ,p_process_parameters.process_param_id);
749 RETURN FALSE;
750 WHEN OTHERS THEN
751 fnd_msg_pub.add_exc_msg (g_package_name, 'delete_all');
752 RETURN FALSE;
753 END delete_all;
754 END gme_process_parameters_dbl;