for update nowait--log user update

BEGIN
SELECT CORDER_ID
INTO vn_corder_id2
FROM CORDER_HEAD
WHERE CORDER_ID = vn_corder_id1
FOR UPDATE NOWAIT;
EXCEPTION WHEN No_Data_Found THEN vn_corder_id2 := NULL;
WHEN Others THEN
IF sqlcode = -00054 THEN
is_locked := TRUE;
END IF;
IF is_locked THEN
show_stop_message('This record can''t be updated at this time because it is reserved for an update. If the record isn''t open for another user then this will clear automatically in 10-20 minutes. Please try again later.');
END IF;
END;