Insertar bodegas internas y externas

CREATE PROCEDURE insBodegasExternas(@codigoBodega VARCHAR(10), @direccion VARCHAR(100), @idAsada INT, @telefono tipo_telefono, @capacidadMaxima INT)
AS
    DECLARE @error        SMALLINT
    SET @error = 0
    BEGIN TRANSACTION

    INSERT INTO bodegas(codigoBodega,idAsada,capacidadMaxima) VALUES (@codigoBodega, @idAsada, @capacidadMaxima)
    IF @@ERROR > 0
        SET @error = 1

    INSERT INTO bodegas_externas(codigoBodega, direccion, idAsada, telefono) VALUES (@codigoBodega, @direccion, @idAsada, @telefono)
    IF @@ERROR > 0
        SET @error = 1


    IF @error = 1
        BEGIN
            ROLLBACK tran
            print ('Error en la inserción de la Bodega Externa')
        END
    ELSE
        commit tran

GO
--drop procedure insBodegasInternas
CREATE PROCEDURE insBodegasInternas(@codigoBodega VARCHAR(10), @encargado VARCHAR(60), @idAsada INT, @telefono tipo_telefono, @capacidadMaxima INT)
AS
    DECLARE @error SMALLINT
    SET @error = 0
    BEGIN TRANSACTION

    INSERT INTO bodegas(codigoBodega,idAsada,capacidadMaxima) VALUES (@codigoBodega, @idAsada, @capacidadMaxima)
    IF @@ERROR > 0
        SET @error = 1

    INSERT INTO bodegas_internas(codigoBodega, encargado, idAsada, nombreBodega) VALUES (@codigoBodega, @encargado, @idAsada, @telefono)
    IF @@ERROR > 0
        SET @error = 1

    IF @error = 1
        BEGIN
            ROLLBACK tran
            print ('Error en la inserción de la Bodega Interna')
        END
    ELSE
        commit tran