{ Stored procedure for setting boolean 'columns' in views for flags values }
    create procedure bitval ( bitset int, bitmask int) returning int;
        if (bitset <  0 ) then
            if (bitmask <  0 ) then
                return  1 ;
            end if;
            let bitset = bitset +  2147483648 ;
        end if;
        if (bitset >  1073741824 ) then
            if (bitmask =  1073741824 ) then
                return  1 ;
            end if;
        end if
        if (mod(bitset, 2 *bitmask) >= bitmask) then
            return  1 ;
        end if
        return  0 ;
    end procedure;