DBA Data[Home] [Help]

APPS.FND_OAM_DSCRAM_UTILS_PKG dependencies on DBMS_LOCK

Line 366: --wrapped dbms_lock procedure in this procedure to use an autonomous txn to keep it from committing the parent txn.

362: BEGIN
363: RETURN 'DSCRAM.RUN.'||p_run_id;
364: END;
365:
366: --wrapped dbms_lock procedure in this procedure to use an autonomous txn to keep it from committing the parent txn.
367: PROCEDURE ALLOCATE_LOCK(p_lock_name IN VARCHAR2,
368: x_lock_handle OUT NOCOPY VARCHAR2)
369: IS
370: PRAGMA AUTONOMOUS_TRANSACTION;

Line 372: DBMS_LOCK.ALLOCATE_UNIQUE(p_lock_name,

368: x_lock_handle OUT NOCOPY VARCHAR2)
369: IS
370: PRAGMA AUTONOMOUS_TRANSACTION;
371: BEGIN
372: DBMS_LOCK.ALLOCATE_UNIQUE(p_lock_name,
373: x_lock_handle);
374: COMMIT;
375: END;
376:

Line 394: l_retval := DBMS_LOCK.REQUEST(l_lock_handle,

390:
391: --fnd_oam_debug.log(1, l_ctxt, 'Allocated lock handle: '||l_lock_handle);
392: ALLOCATE_LOCK(l_lock_name,
393: l_lock_handle);
394: l_retval := DBMS_LOCK.REQUEST(l_lock_handle,
395: dbms_lock.x_mode,
396: dbms_lock.maxwait,
397: TRUE);
398: --fnd_oam_debug.log(1, l_ctxt, 'Retval: '||l_retval);

Line 395: dbms_lock.x_mode,

391: --fnd_oam_debug.log(1, l_ctxt, 'Allocated lock handle: '||l_lock_handle);
392: ALLOCATE_LOCK(l_lock_name,
393: l_lock_handle);
394: l_retval := DBMS_LOCK.REQUEST(l_lock_handle,
395: dbms_lock.x_mode,
396: dbms_lock.maxwait,
397: TRUE);
398: --fnd_oam_debug.log(1, l_ctxt, 'Retval: '||l_retval);
399: IF (l_retval <> 0) THEN

Line 396: dbms_lock.maxwait,

392: ALLOCATE_LOCK(l_lock_name,
393: l_lock_handle);
394: l_retval := DBMS_LOCK.REQUEST(l_lock_handle,
395: dbms_lock.x_mode,
396: dbms_lock.maxwait,
397: TRUE);
398: --fnd_oam_debug.log(1, l_ctxt, 'Retval: '||l_retval);
399: IF (l_retval <> 0) THEN
400: fnd_oam_debug.log(6, l_ctxt, 'Run ID ('||p_run_id||'), lock request failed: '||l_retval);

Line 412: l_retval := DBMS_LOCK.RELEASE(l_lock_handle);

408: EXCEPTION
409: WHEN OTHERS THEN
410: fnd_oam_debug.log(6, l_ctxt, 'Unexpected Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))');
411: IF l_lock_handle IS NOT NULL THEN
412: l_retval := DBMS_LOCK.RELEASE(l_lock_handle);
413: IF l_retval <> 0 THEN
414: fnd_oam_debug.log(6, l_ctxt, 'Failed to release run lock: '||l_retval);
415: END IF;
416: END IF;

Line 449: l_retval := DBMS_LOCK.REQUEST(l_lock_handle,

445: --fnd_oam_debug.log(1, l_ctxt, 'Allocated lock handle: '||l_lock_handle);
446:
447: --Allow lock releases on commit/rollback so we can keep write_once args locked when first set until the
448: --batch is comitted or rolled back.
449: l_retval := DBMS_LOCK.REQUEST(l_lock_handle,
450: dbms_lock.x_mode,
451: dbms_lock.maxwait,
452: TRUE);
453: --fnd_oam_debug.log(1, l_ctxt, 'Retval: '||l_retval);

Line 450: dbms_lock.x_mode,

446:
447: --Allow lock releases on commit/rollback so we can keep write_once args locked when first set until the
448: --batch is comitted or rolled back.
449: l_retval := DBMS_LOCK.REQUEST(l_lock_handle,
450: dbms_lock.x_mode,
451: dbms_lock.maxwait,
452: TRUE);
453: --fnd_oam_debug.log(1, l_ctxt, 'Retval: '||l_retval);
454: IF (l_retval <> 0) THEN

Line 451: dbms_lock.maxwait,

447: --Allow lock releases on commit/rollback so we can keep write_once args locked when first set until the
448: --batch is comitted or rolled back.
449: l_retval := DBMS_LOCK.REQUEST(l_lock_handle,
450: dbms_lock.x_mode,
451: dbms_lock.maxwait,
452: TRUE);
453: --fnd_oam_debug.log(1, l_ctxt, 'Retval: '||l_retval);
454: IF (l_retval <> 0) THEN
455: fnd_oam_debug.log(6, l_ctxt, 'Arg ID ('||p_arg_id||'), lock request failed: '||l_retval);

Line 467: l_retval := DBMS_LOCK.RELEASE(l_lock_handle);

463: EXCEPTION
464: WHEN OTHERS THEN
465: fnd_oam_debug.log(6, l_ctxt, 'Unexpected Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))');
466: IF l_lock_handle IS NOT NULL THEN
467: l_retval := DBMS_LOCK.RELEASE(l_lock_handle);
468: IF l_retval <> 0 THEN
469: fnd_oam_debug.log(6, l_ctxt, 'Failed to release arg lock: '||l_retval);
470: END IF;
471: END IF;

Line 907: l_retval := DBMS_LOCK.RELEASE(l_lock_handle);

903: DELETE FROM fnd_oam_dscram_runs_tl
904: WHERE run_id = p_run_id;
905:
906: --release the lock on the run
907: l_retval := DBMS_LOCK.RELEASE(l_lock_handle);
908: IF l_retval <> 0 THEN
909: fnd_oam_debug.log(6, l_ctxt, 'Failed to release run lock: '||l_retval);
910: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
911: RETURN FALSE;

Line 929: l_retval := DBMS_LOCK.RELEASE(l_lock_handle);

925: EXCEPTION
926: WHEN OTHERS THEN
927: fnd_oam_debug.log(6, l_ctxt, 'Unexpected Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))');
928: IF l_lock_handle IS NOT NULL THEN
929: l_retval := DBMS_LOCK.RELEASE(l_lock_handle);
930: END IF;
931: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
932: RETURN FALSE;
933: END;

Line 1670: l_retval := DBMS_LOCK.RELEASE(l_lock_handle);

1666: SET run_status = G_STATUS_RESTARTABLE
1667: WHERE run_id = p_run_id;
1668:
1669: --release the lock on the run
1670: l_retval := DBMS_LOCK.RELEASE(l_lock_handle);
1671: IF l_retval <> 0 THEN
1672: RAISE_APPLICATION_ERROR(-20000, 'Failed to release run lock: '||l_retval);
1673: END IF;
1674:

Line 1681: l_retval := DBMS_LOCK.RELEASE(l_lock_handle);

1677: WHEN OTHERS THEN
1678: l_msg := 'Unexpected Error preparing run_id ('||p_run_id||') for retry.';
1679: fnd_oam_debug.log(6, l_ctxt, l_msg);
1680: IF l_lock_handle IS NOT NULL THEN
1681: l_retval := DBMS_LOCK.RELEASE(l_lock_handle);
1682: END IF;
1683: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
1684: RAISE_APPLICATION_ERROR(-20000, l_msg, TRUE);
1685: END;