Você pode aninhar funções:
SUBSTRING(REPLACE(name, '*Deleted*', '' ) FROM 1 FOR POSITION(',' IN REPLACE(name, '*Deleted*', '' ))-1) FROM OBJ_R
SUBSTRING(REPLACE(name, '*Deleted*', '' ) FROM 1 FOR POSITION(',' IN REPLACE(name, '*Deleted*', '' ))-1) FROM OBJ_R