595: IF (l_debug = 1) THEN
596: mydebug('for MMTT');
597: END IF;
598: BEGIN
599: dbms_lock.allocate_unique
600: (lockname => MMTT_lock_name,
601: lockhandle => l_lock_id);
602:
603: l_return_value := dbms_lock.request --EXCLUSIVE LOCK
599: dbms_lock.allocate_unique
600: (lockname => MMTT_lock_name,
601: lockhandle => l_lock_id);
602:
603: l_return_value := dbms_lock.request --EXCLUSIVE LOCK
604: (lockhandle => l_lock_id,
605: lockmode => 6,
606: timeout => 1,
607: release_on_commit => TRUE);
606: timeout => 1,
607: release_on_commit => TRUE);
608:
609: IF (l_debug = 1) THEN
610: mydebug('dbms_lock:l_return_value:'||l_return_value);
611: END IF;
612:
613: IF l_return_value IN (1,2) THEN
614: fnd_message.set_name('WMS', 'WMS_RECORD_BEING_UPDATED');