%
% get shooter associated with phone number
%
-1 !UserId
empty !Shooter.Number
empty !Role
@Mojo
%
% get the first user guid of shooter phone
% there should not be more than one
%
_Shooter.Phone _Rdr.Device @_MdeviceT=
@_Rdr++
{
%
% this is a shooter phone, get matching user id
% and shooter number from user role
%
 "UserGuid" @_Rdr@@
 _Rdr.User @_MuserG=
 @_Rdr++
 {
  "UserID" @_Rdr@@
  dup !UserId
  *shootrle
 } if
 _Rdr.User @^Rdr/
} if
_Rdr.Device @^Rdr/