DBA Data[Home] [Help]

PACKAGE BODY: APPS.GME_BATCH_STEP_DEPEND_DBL

Source


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