APPS.WSH_DELIVERY_AUTOCREATE dependencies on DBMS_LOCK

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

2118: AND WSH_PICK_LIST.G_PICK_REL_PARALLEL THEN --{
2119: IF l_debug_on THEN
2120: WSH_DEBUG_SV.logmsg(l_module_name,'Acquiring lock on :'||l_delivery_info.hash_value||'-'||l_delivery_info.batch_id);
2121: END IF;
2122: DBMS_LOCK.Allocate_Unique(lockname => l_delivery_info.hash_value||'-'||l_delivery_info.batch_id,
2123: lockhandle => l_lock_handle);
2124: l_lock_status := DBMS_LOCK.Request(lockhandle => l_lock_handle,
2125: lockmode => 6);
2126: IF l_lock_status = 0 THEN --{

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

2120: WSH_DEBUG_SV.logmsg(l_module_name,'Acquiring lock on :'||l_delivery_info.hash_value||'-'||l_delivery_info.batch_id);
2121: END IF;
2122: DBMS_LOCK.Allocate_Unique(lockname => l_delivery_info.hash_value||'-'||l_delivery_info.batch_id,
2123: lockhandle => l_lock_handle);
2124: l_lock_status := DBMS_LOCK.Request(lockhandle => l_lock_handle,
2125: lockmode => 6);
2126: IF l_lock_status = 0 THEN --{
2127: -- Successfully locked, so check if a delivery
2128: -- has been created in between acquiring the lock

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

2154: l_delivery_id, l_delivery_name, x_return_status);
2155: IF l_debug_on THEN
2156: WSH_DEBUG_SV.log(l_module_name,'Return from Autonomous_Create_Delivery, Return status', x_return_status);
2157: END IF;
2158: l_lock_status := DBMS_LOCK.Release(l_lock_handle);
2159: l_lock_handle := NULL;
2160:
2161: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2162: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN

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

2171: l_group_info(l_group_index).delivery_id := l_delivery_id;
2172: END IF;
2173: --}
2174: ELSE --{
2175: l_lock_status := DBMS_LOCK.Release(l_lock_handle);
2176: l_lock_handle := NULL;
2177: IF l_debug_on THEN
2178: WSH_DEBUG_SV.logmsg(l_module_name,'Matching delivery '||l_delivery_name||' already exists , so skip creating a new delivery ');
2179: END IF;

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

2627: IF c_matching_delivery%ISOPEN THEN
2628: CLOSE c_matching_delivery;
2629: END IF;
2630: IF l_lock_handle IS NOT NULL THEN
2631: l_lock_status := DBMS_LOCK.Release(l_lock_handle);
2632: END IF;
2633:
2634: WHEN cannot_autocreate_del THEN
2635: FND_MESSAGE.SET_NAME('WSH','WSH_AUTOCREATE_DEL_ERROR');

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

2675: IF c_matching_delivery%ISOPEN THEN
2676: CLOSE c_matching_delivery;
2677: END IF;
2678: IF l_lock_handle IS NOT NULL THEN
2679: l_lock_status := DBMS_LOCK.Release(l_lock_handle);
2680: END IF;
2681:
2682: WHEN Others THEN
2683:

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

2687: IF c_matching_delivery%ISOPEN THEN
2688: CLOSE c_matching_delivery;
2689: END IF;
2690: IF l_lock_handle IS NOT NULL THEN
2691: l_lock_status := DBMS_LOCK.Release(l_lock_handle);
2692: END IF;
2693:
2694: l_error_code := SQLCODE;
2695: l_error_text := SQLERRM;