371:
372: --
373: -- Set expiration to 30 minutes
374: --
375: dbms_lock.allocate_unique
376: ( lockname => l_lock_name
377: , lockhandle => l_lock_handle
378: , expiration_secs => 1800
379: );
440: END IF;
441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
442: END IF;
443:
444: l_lock_req_stat := dbms_lock.request
445: ( lockhandle => l_lock_handle
446: , lockmode => dbms_lock.x_mode
447: , timeout => 1
448: , release_on_commit => TRUE
442: END IF;
443:
444: l_lock_req_stat := dbms_lock.request
445: ( lockhandle => l_lock_handle
446: , lockmode => dbms_lock.x_mode
447: , timeout => 1
448: , release_on_commit => TRUE
449: );
450:
452: x_return_status := 'L';
453: ELSIF l_lock_req_stat NOT IN (0,4) THEN
454: IF l_debug = 1 THEN
455: print_debug
456: ( 'Error status from dbms_lock.request: ' ||
457: to_char(l_lock_req_stat)
458: , l_api_name
459: );
460: END IF;