--предположим у Вас 4 числовых параметра  X1<1024(10бит),X2<1024(10бит),X3<64(6 бит),X4<64(6 бит)
--Вам надо их упаковать в одно число transID, которое 32 бита.

function set_to_transID(x1,x2,x3,x4) return (((((x2<<10)+x1)<<10)+x3)<<6)+x4; end  --упаковываем

function get_from_transID(Y)  -- распаковываем
local m1=(1<<6)-1; local z=Y>>6; local z1=z>>10;  return  z1&((1<<10)-1), z1>>10, z&m1,Y&m1;
end  

--тест:
local transID=set_to_transID(1023,1021,63,62);
print(transID)
x1,x2,x3,x4=get_from_transID(transID);
print(x1,x2,x3,x4)

>D:/lua53/lua53.exe -e "io.stdout:setvbuf 'no'" "пример.lua" 
68585197566
1023   1021   63   62
>Exit code: 0

function TransID() -- Уникальное в течении дня увеличивающиеся число от 1 до 2147483647 (макс. полож. 32 битное число)
  trans_id_count=(trans_id_count and (trans_id_count+1)%100 or 0) -- Счетчик транзакций, от 0 до 99 и по кругу
  return string.format("%02d%02d%02d%01d%02d",dt.hour,dt.min,dt.sec,robot_id,trans_id_count)%2147483647 -- Уникальный идентификатор транзакций
end