APPS.WSH_DELIVERY_AUTOCREATE dependencies on DBMS_LOCK

Line 2372: DBMS_LOCK.Allocate_Unique(lockname => l_delivery_info.hash_value||'-'||l_delivery_info.batch_id,

2368: AND WSH_PICK_LIST.G_PICK_REL_PARALLEL THEN --{
2369: IF l_debug_on THEN
2370: WSH_DEBUG_SV.logmsg(l_module_name,'Acquiring lock on :'||l_delivery_info.hash_value||'-'||l_delivery_info.batch_id);
2371: END IF;
2372: DBMS_LOCK.Allocate_Unique(lockname => l_delivery_info.hash_value||'-'||l_delivery_info.batch_id,
2373: lockhandle => l_lock_handle);
2374: l_lock_status := DBMS_LOCK.Request(lockhandle => l_lock_handle,
2375: lockmode => 6);
2376: IF l_lock_status = 0 THEN --{

Line 2374: l_lock_status := DBMS_LOCK.Request(lockhandle => l_lock_handle,

2370: WSH_DEBUG_SV.logmsg(l_module_name,'Acquiring lock on :'||l_delivery_info.hash_value||'-'||l_delivery_info.batch_id);
2371: END IF;
2372: DBMS_LOCK.Allocate_Unique(lockname => l_delivery_info.hash_value||'-'||l_delivery_info.batch_id,
2373: lockhandle => l_lock_handle);
2374: l_lock_status := DBMS_LOCK.Request(lockhandle => l_lock_handle,
2375: lockmode => 6);
2376: IF l_lock_status = 0 THEN --{
2377: -- Successfully locked, so check if a delivery
2378: -- has been created in between acquiring the lock

Line 2408: l_lock_status := DBMS_LOCK.Release(l_lock_handle);

2404: l_delivery_id, l_delivery_name, x_return_status);
2405: IF l_debug_on THEN
2406: WSH_DEBUG_SV.log(l_module_name,'Return from Autonomous_Create_Delivery, Return status', x_return_status);
2407: END IF;
2408: l_lock_status := DBMS_LOCK.Release(l_lock_handle);
2409: l_lock_handle := NULL;
2410:
2411: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2412: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN

Line 2425: l_lock_status := DBMS_LOCK.Release(l_lock_handle);

2421: l_group_info(l_group_index).delivery_id := l_delivery_id;
2422: END IF;
2423: --}
2424: ELSE --{
2425: l_lock_status := DBMS_LOCK.Release(l_lock_handle);
2426: l_lock_handle := NULL;
2427: IF l_debug_on THEN
2428: WSH_DEBUG_SV.logmsg(l_module_name,'Matching delivery '||l_delivery_name||' already exists , so skip creating a new delivery ');
2429: END IF;

Line 2881: l_lock_status := DBMS_LOCK.Release(l_lock_handle);

2877: IF c_matching_delivery%ISOPEN THEN
2878: CLOSE c_matching_delivery;
2879: END IF;
2880: IF l_lock_handle IS NOT NULL THEN
2881: l_lock_status := DBMS_LOCK.Release(l_lock_handle);
2882: END IF;
2883:
2884: WHEN cannot_autocreate_del THEN
2885: FND_MESSAGE.SET_NAME('WSH','WSH_AUTOCREATE_DEL_ERROR');

Line 2929: l_lock_status := DBMS_LOCK.Release(l_lock_handle);

2925: IF c_matching_delivery%ISOPEN THEN
2926: CLOSE c_matching_delivery;
2927: END IF;
2928: IF l_lock_handle IS NOT NULL THEN
2929: l_lock_status := DBMS_LOCK.Release(l_lock_handle);
2930: END IF;
2931:
2932: WHEN Others THEN
2933:

Line 2941: l_lock_status := DBMS_LOCK.Release(l_lock_handle);

2937: IF c_matching_delivery%ISOPEN THEN
2938: CLOSE c_matching_delivery;
2939: END IF;
2940: IF l_lock_handle IS NOT NULL THEN
2941: l_lock_status := DBMS_LOCK.Release(l_lock_handle);
2942: END IF;
2943:
2944: l_error_code := SQLCODE;
2945: l_error_text := SQLERRM;