Erro ao executar Trigger

CREATE TRIGGER InserePedidoQtdProgAlterada
ON Trimbox.dbo.Ofs
AFTER INSERT,UPDATE
AS 

DECLARE
@IPEDIDO INTEGER,
@IITEM INTEGER,
@IQTDPROG INTEGER,
@VOP VARCHAR(45),
@VCODPED INTEGER

BEGIN
	SELECT @VOP = OP FROM INSERTED;
	SELECT @IPEDIDO =  CAST(LEFT(OP,(CHARINDEX('-',OP,1)-1))AS INTEGER) FROM INSERTED
	WHERE OP LIKE '%[0-9][0-9][0-9][0-9][0-9]-[0-9][0-9]/%' 
       AND OP LIKE '%[0-9][0-9][0-9][0-9]-[0-9]%'
       AND OP LIKE '%[0-9][0-9]-[0-9]%' 
       AND OP LIKE '%[0-9][0-9][0-9]-[0-9]%';
	 

	SELECT @IITEM =  CAST(SUBSTRING(OP,7,2)AS INTEGER) FROM INSERTED
	WHERE OP LIKE '%[0-9][0-9][0-9][0-9][0-9]-[0-9][0-9]/%' 
       AND OP LIKE '%[0-9][0-9][0-9][0-9]-[0-9]%'
       AND OP LIKE '%[0-9][0-9]-[0-9]%' 
       AND OP LIKE '%[0-9][0-9][0-9]-[0-9]%';
	 

	SELECT @IQTDPROG = QuantidadeProgramada FROM INSERTED;

	IF (@IQTDPROG > 0 ) 
	BEGIN
		SELECT @VCODPED = USU_NUMPED FROM INTERFTRIMERP..COSAPIENS.USU_TPEDPROG WHERE USU_NUMPED = @IPEDIDO ;

		IF (@VCODPED IS NULL) 
			INSERT INTO INTERFTRIMERP..COSAPIENS.USU_TPEDPROG VALUES(@IPEDIDO,@IITEM,@IQTDPROG);
		ELSE
			UPDATE INTERFTRIMERP..COSAPIENS.USU_TPEDPROG SET USU_QTDPRG = @IQTDPROG WHERE USU_NUMPED = @IPEDIDO AND USU_SEQIPD = @IITEM;
	END
END