create procedure test1 (
    id int,
    a int,
    b boolean)
as
begin
    update test_table t set
        b = :a > 0 and :b
    where
        id = id;
end

CREATE TABLE TEST_TABLE (
    ID  INTEGER,
    B   BOOLEAN
);

create procedure test2 (
    id int,
    a int,
    b boolean)
as
begin
    insert into test_table (id, a, b)
    values (:id, :a, :a = 1);
end