29: FETCH C INTO Recinfo;
30: IF (C%NOTFOUND) then
31: CLOSE C;
32: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
33: APP_EXCEPTION.Raise_Exception;
34: END IF;
35: CLOSE C;
36:
37: EXCEPTION
34: END IF;
35: CLOSE C;
36:
37: EXCEPTION
38: WHEN app_exception.record_lock_exception THEN
39: po_message_s.app_error ('PO_ALL_CANNOT_RESERVE_RECORD');
40:
41: WHEN OTHERS THEN
42: --dbms_output.put_line('In Exception');