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 299: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');

295:
296: if (result in (0, 4)) then
297: return;
298: else
299: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');
300: fnd_message.set_token ('ROUTINE',
301: 'FND_DCP.REQUEST_SESSION_LOCK', FALSE);
302: fnd_message.set_token ('RESULT',
303: nvl(to_char(result),'NULL'), FALSE);

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

366: return;
367: else
368: /*-------------------------------------------------------+
369: | Lock for handle not granted: |
370: | result = (3 or 5 from DBMS_LOCK.Request or |
371: | still NULL from Request_Lock |
372: +-------------------------------------------------------*/
373: alive := NTRUE; -- assume manager alive
374: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');

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

370: | result = (3 or 5 from DBMS_LOCK.Request or |
371: | still NULL from Request_Lock |
372: +-------------------------------------------------------*/
373: alive := NTRUE; -- assume manager alive
374: fnd_message.set_name ('FND', 'CONC-DBMS_LOCK.Request result');
375: fnd_message.set_token ('ROUTINE',
376: 'FND_DCP.CHECK_PROCESS_STATUS_BY_HANDLE',
377: FALSE);
378: fnd_message.set_token ('RESULT',

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

447: else
448: lk := FNDCPLK || apid || '_' || qid || '_' || pid;
449: end if;
450:
451: dbms_lock.allocate_unique (lk, hndl, EON);
452: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
453:
454: if (result in (0, 4)) then -- Success or own lock
455: return;

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

448: lk := FNDCPLK || apid || '_' || qid || '_' || pid;
449: end if;
450:
451: dbms_lock.allocate_unique (lk, hndl, EON);
452: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
453:
454: if (result in (0, 4)) then -- Success or own lock
455: return;
456: elsif (result in (1, 2)) then -- Timeout or deadlock

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

465: /* can be done with lock management procedures, functions. */
466: /* ------------------------------------------------------- */
467:
468: for count in 1..2 loop
469: result := dbms_lock.request (hndl, 6, 5);
470: exit when result in (0, 4);
471: end loop;
472:
473: if (result in (0, 4)) then -- Success or own lock

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

508:
509: begin
510: e_code := NTRUE;
511:
512: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
513:
514: if (result in (0, 4)) then -- Success or own lock
515: status := NTRUE;
516: elsif (result in (1, 2)) then -- Timeout or deadlock

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

538: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
539: 'fnd.plsql.FND_DCP.RELEASE_LOCK',
540: 'release_lock called for hndl='||hndl);
541: end if;
542: result := dbms_lock.release (hndl);
543:
544: if ((result = 0) or (result = 4)) then
545: e_code := NTRUE;
546: else

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

600: else -- PMON method = DBLOCK
601: cpid := get_icm_info (logf, node, inst);
602:
603: if (hndl is not null) then
604: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
605:
606: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
607: fnd_log.string(FND_LOG.LEVEL_EVENT,
608: 'fnd.plsql.FND_DCP.MONITOR_ICM',

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

636: 'get_icm_info returned cpid='||to_char(cpid));
637: end if;
638:
639: lk := FNDCPLK || '0_1_' || cpid;
640: dbms_lock.allocate_unique (lk, hndl, EON);
641: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
642:
643: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
644: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',

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

637: end if;
638:
639: lk := FNDCPLK || '0_1_' || cpid;
640: dbms_lock.allocate_unique (lk, hndl, EON);
641: result := dbms_lock.request (hndl, 6, 0); -- ULX lock
642:
643: if( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
644: fnd_log.string(FND_LOG.LEVEL_EVENT, 'fnd.plsql.FND_DCP.MONITOR_ICM',
645: 'new lock name = '||lk);

Line 754: dbms_lock.allocate_unique (FNDCPLK ||

750: loop
751: fetch c1 into apid, qid, pid, rid;
752: exit when c1%notfound;
753:
754: dbms_lock.allocate_unique (FNDCPLK ||
755: apid || '_' || qid || '_' || pid,
756: hndl, EON);
757:
758: update fnd_concurrent_processes