%
% process the tracker profile record
%
dup !passon
execstr
_Sim.Track
<

|All

/*
!Sim.Data
"Sim" *trakdata pop
*/

*trajfact

*trajinst

%%% _Sim.Status "Active" eq$
_DeviceStatus "Enabled" eq$
_Sim.UniqueName length) 6 eq
and
{
 +Sim.Next ^"|" &" "
 "Sim.Next" Str.CatValue
 "Sim.Sid" Str.CatValue
 "Sim.UniqueName" Str.CatValue
 catcr

 _Sim.UniqueName ^"|" &" "
 "Sim.Next" Str.CatValue
 "Sim.Sid" Str.CatValue
 "Sim.UniqueName" Str.CatValue
 catcr
 &
 ^_trkbuld !trkbuld

} if


%
% get the specific database record of sid of the sim
%
|Status
 _Sim.Sid _DeviceMode eq$
 {
%
% this is the sid we are seeking
% transfer the database info to the current Sim framework
%
  *trakdnrm
 } if

|Trackers
%
% add to the tracker summary
%
%%%% *trajtrak

%
% make a copy of the vars string for easy reference
% for individual tracker lookup
%
 _DeviceStatus "Disabled" eq$
 {
 }
 {
  _passon
  empty !TrackName
  dup execstr
  _TrackName any?
  {
   quoter
   "|" +Trak.Count & &" " ^ &" !Sim.UniqueName" catcr
   second quoter &" !Sim.Data" catcr &
   ^:Trak.Actives
  } if
  "trak_" &_TrackName text ofconn write
 } ifelse

|Imei
%
% get the tracker internal device id
%
 _Sim.PartImei _IMEI 11 right eq$
 {
%
% this is the sid we are seeking
% transfer the database info to the current Sim framework
%
  *trakdnrm
 } if

|Sid
%
% get the tracker internal device sid
%
 _Sim.PartImei _DeviceMode eq$
 {
%
% this is the sid we are seeking
% transfer the database info to the current Sim framework
%
  *trakdnrm
 } if

> pop