DBA Data[Home] [Help]

APPS.FND_DCP dependencies on DBMS_LOCK

Line 128: | for the call to DBMS_LOCK.Request. This procedure accepts a |

124: | Request_Session_Lock |
125: |------------------------------------------------------------------|
126: | Bug 2093806: The purpose of this overload for Request_Lock is |
127: | request a lock by a known handle and to offer more flexibility |
128: | for the call to DBMS_LOCK.Request. This procedure accepts a |
129: | timeout value, and lock mode value. Instead of interpreting the |
130: | return code from DBMS_LOCK.Request as the parameter "e_code" set|
131: | to NTRUE (1) or NFALSE (0), the parameter "result" is set to the |
132: | return code for interpretation by the calling function. If |

Line 130: | return code from DBMS_LOCK.Request as the parameter "e_code" set|

126: | Bug 2093806: The purpose of this overload for Request_Lock is |
127: | request a lock by a known handle and to offer more flexibility |
128: | for the call to DBMS_LOCK.Request. This procedure accepts a |
129: | timeout value, and lock mode value. Instead of interpreting the |
130: | return code from DBMS_LOCK.Request as the parameter "e_code" set|
131: | to NTRUE (1) or NFALSE (0), the parameter "result" is set to the |
132: | return code for interpretation by the calling function. If |
133: | result = NULL, indicates when others exception was raised. |
134: |------------------------------------------------------------------*/

Line 145: | When caller does not specify, use dbms_lock defaults, |

141: result := NULL;
142:
143: if ((timeout IS NULL) and (lmode IS NULL )) then
144: /*-------------------------------------------------------+
145: | When caller does not specify, use dbms_lock defaults, |
146: | currently MAXWAIT (32767 secs) X_MODE (6-Exclusive) |
147: +-------------------------------------------------------*/
148: result := dbms_lock.request ( lockhandle => hndl );
149: elsif (timeout IS NULL) then

Line 148: result := dbms_lock.request ( lockhandle => hndl );

144: /*-------------------------------------------------------+
145: | When caller does not specify, use dbms_lock defaults, |
146: | currently MAXWAIT (32767 secs) X_MODE (6-Exclusive) |
147: +-------------------------------------------------------*/
148: result := dbms_lock.request ( lockhandle => hndl );
149: elsif (timeout IS NULL) then
150: result := dbms_lock.request ( lockhandle => hndl,
151: lockmode => lmode ); -- MAXWAIT
152: elsif (lmode IS NULL) then

Line 150: result := dbms_lock.request ( lockhandle => hndl,

146: | currently MAXWAIT (32767 secs) X_MODE (6-Exclusive) |
147: +-------------------------------------------------------*/
148: result := dbms_lock.request ( lockhandle => hndl );
149: elsif (timeout IS NULL) then
150: result := dbms_lock.request ( lockhandle => hndl,
151: lockmode => lmode ); -- MAXWAIT
152: elsif (lmode IS NULL) then
153: result := dbms_lock.request ( lockhandle => hndl,
154: timeout => timeout ); -- ULX lock

Line 153: result := dbms_lock.request ( lockhandle => hndl,

149: elsif (timeout IS NULL) then
150: result := dbms_lock.request ( lockhandle => hndl,
151: lockmode => lmode ); -- MAXWAIT
152: elsif (lmode IS NULL) then
153: result := dbms_lock.request ( lockhandle => hndl,
154: timeout => timeout ); -- ULX lock
155: else
156: result := dbms_lock.request ( lockhandle => hndl,
157: lockmode => lmode,

Line 156: result := dbms_lock.request ( lockhandle => hndl,

152: elsif (lmode IS NULL) then
153: result := dbms_lock.request ( lockhandle => hndl,
154: timeout => timeout ); -- ULX lock
155: else
156: result := dbms_lock.request ( lockhandle => hndl,
157: lockmode => lmode,
158: timeout => timeout);
159: end if;
160:

Line 162: | DBMS_LOCK.Request Result codes: |

158: timeout => timeout);
159: end if;
160:
161: /*-------------------------------------------------------+
162: | DBMS_LOCK.Request Result codes: |
163: | 0 - Success |
164: | 1 - Timeout |
165: | 2 - Deadlock |
166: | 3 - Parameter error |

Line 203: dbms_lock.allocate_unique (lk, hndl, exp_sec);

199: else
200: lk := FNDCPLK || apid || '_' || qid || '_' || pid;
201: end if;
202:
203: dbms_lock.allocate_unique (lk, hndl, exp_sec);
204:
205: exception
206: when others then
207: e_code := NFALSE;

Line 277: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');

273:
274: if (result in (0, 4)) then
275: return;
276: else
277: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');
278: fnd_message.set_token ('ROUTINE',
279: 'FND_DCP.REQUEST_SESSION_LOCK', FALSE);
280: fnd_message.set_token ('RESULT',
281: nvl(to_char(result),'NULL'), FALSE);

Line 338: | result = (3 or 5 from DBMS_LOCK.Request or |

334: return;
335: else
336: /*-------------------------------------------------------+
337: | Lock for handle not granted: |
338: | result = (3 or 5 from DBMS_LOCK.Request or |
339: | still NULL from Request_Lock |
340: +-------------------------------------------------------*/
341: alive := NTRUE; -- assume manager alive
342: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');

Line 342: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');

338: | result = (3 or 5 from DBMS_LOCK.Request or |
339: | still NULL from Request_Lock |
340: +-------------------------------------------------------*/
341: alive := NTRUE; -- assume manager alive
342: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');
343: fnd_message.set_token ('ROUTINE',
344: 'FND_DCP.CHECK_PROCESS_STATUS_BY_HANDLE',
345: FALSE);
346: fnd_message.set_token ('RESULT',

Line 419: dbms_lock.allocate_unique (lk, hndl, EON);

415: else
416: lk := FNDCPLK || apid || '_' || qid || '_' || pid;
417: end if;
418:
419: dbms_lock.allocate_unique (lk, hndl, EON);
420: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
421:
422: if (result in (0, 4)) then -- Success or own lock
423: return;

Line 420: result := dbms_lock.request (hndl, 6, 0); -- ULX lock

416: lk := FNDCPLK || apid || '_' || qid || '_' || pid;
417: end if;
418:
419: dbms_lock.allocate_unique (lk, hndl, EON);
420: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
421:
422: if (result in (0, 4)) then -- Success or own lock
423: return;
424: elsif (result in (1, 2)) then -- Timeout or deadlock

Line 437: result := dbms_lock.request (hndl, 6, 5);

433: /* can be done with lock management procedures, functions. */
434: /* ------------------------------------------------------- */
435:
436: for count in 1..2 loop
437: result := dbms_lock.request (hndl, 6, 5);
438: exit when result in (0, 4);
439: end loop;
440:
441: if (result in (0, 4)) then -- Success or own lock

Line 480: result := dbms_lock.request (hndl, 6, 0); -- ULX lock

476:
477: begin
478: e_code := NTRUE;
479:
480: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
481:
482: if (result in (0, 4)) then -- Success or own lock
483: status := NTRUE;
484: elsif (result in (1, 2)) then -- Timeout or deadlock

Line 505: result := dbms_lock.release (hndl);

501:
502: result number;
503:
504: begin
505: result := dbms_lock.release (hndl);
506:
507: if ((result = 0) or (result = 4)) then
508: e_code := NTRUE;
509: else

Line 563: result := dbms_lock.request (hndl, 6, 0); -- ULX lock

559: else -- PMON method = DBLOCK
560: cpid := get_icm_info (logf, node, inst);
561:
562: if (hndl is not null) then
563: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
564:
565: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
566: fnd_log.string(FND_LOG.LEVEL_EVENT,
567: 'fnd.plsql.FND_DCP.MONITOR_ICM',

Line 599: dbms_lock.allocate_unique (lk, hndl, EON);

595: 'get_icm_info returned cpid='||to_char(cpid));
596: end if;
597:
598: lk := FNDCPLK || '0_1_' || cpid;
599: dbms_lock.allocate_unique (lk, hndl, EON);
600: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
601:
602: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
603: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',

Line 600: result := dbms_lock.request (hndl, 6, 0); -- ULX lock

596: end if;
597:
598: lk := FNDCPLK || '0_1_' || cpid;
599: dbms_lock.allocate_unique (lk, hndl, EON);
600: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
601:
602: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
603: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
604: 'new lock name = '||lk);

Line 713: dbms_lock.allocate_unique (FNDCPLK ||

709: loop
710: fetch c1 into apid, qid, pid, rid;
711: exit when c1%notfound;
712:
713: dbms_lock.allocate_unique (FNDCPLK ||
714: apid || '_' || qid || '_' || pid,
715: hndl, EON);
716:
717: update fnd_concurrent_processes