%
% completed checking for this user
%
_Fen.Seed text_conn
any?
{
%
% proper read of violations
%
 execstr _Fen.Vios
 _Fen.Vion any?
 {
%
% original violations proper
%
  execstr _Fen.Vios
  2 copy eq$
  {
   pop2
  }
  {
   !Fen.PreVio !Fen.PostVio
   Time.Now !Fen.VioTime
   empty
   "Fen.PreVio" sval
   "Fen.PostVio" sval
   "Fen.VioTime" sval
   _Fen.Seed -3 left noext ^"Trak\" ofconn folder
   _Fen.VioTime text &
   write
  } ifelse
 }
 {
%
% original violations improper
%
  pop
 } ifelse

}
{
%
% improper violations
%
} ifelse
_Fen.Seed oflocal
"+++++++++++overext" log)(
".xtx" overext

empty !Fen.Vios
_Fen.Seed text*conn

_Fen.Vios any)?
{
 _Fen.Seed -3 left noext !Sim.PartImei
 "Sid" !Sim.Track
 *trakstan
 _Sim.Sid
"Sid is" log)(
 any)?
 {

%
% vehicles/tracker js for lists
%
% matching vehicles and trackers
%
  _Sim.UniqueName
"tracker" log)(
  pop
  empty !Sim.License
  "Vehicle" !Sim.Track
  "Vehicles" text*conn

  _Sim.License any)?
"License" log)(
  {
%
% now have info for tracker and vehicle
%
   _Sim.Imei 10 right
   ^"user&subject="
"reqportal" log)(
   "Local" *webportn
   *tellresx
"portal resp" log)(
   any?
   {
    empty !User
    execstr
    _User any)?
"hasuser" log)(
    {
     _First
"first is" log)(
     pop

     _Fen.Seed ".nnn" reextend ofconn exists
     {
     }
     {
      "No Repeat"
      _Fen.Seed ".nnn" reextend ofconn
      write
      @Comm
 
      '<Type value="Outgoing"/>'
      _First &" " &_Last &", "
      _Sim.Imei 10 right & &", (" &_Sim.License &")"
      &" for fences " &_Fen.Vios
%%%  _Arching.Supervisor -2 left
      "6785493123"
      ^"+1"
%%%_Arching.TwiNumberA
      "+16786479500"
      _Arching.TwiAcctAuth
%
% stack: msg-xml-ins msg-body outgo-number dial-number auth-code
%
      @Comm
      _Arching.TwiAcctSid @!AcctSid
      @^MsgOut
      !MsgOut
      @@
     } ifelse

    } if

   } if

  } if

 } if

} if