%
% detect chase outgoing contacts
%
"chase_*.txt" conn(
{
 nextfile ?
%
% next command new files
%
 ".nnn" refiling?
 {
%
% don't send if the matching .nnn file exists
%
 }
 {
  filing dup !Sim.File read
%
% stack: path seed seed-content
%
  dup !Sim.Data
  execstr
  dup "chase_" empty replall noext !Sim.Sid
%
% shelve chase text
%
  _Sim.Sid ^3 folder
  &2 *finsures ^"_" text reextend _Sim.File exch overwrite

  "<Type value=""Outgoing""/>"
  _C.Cust &", "
  &_C.Phone &", (" &_C.License
  &") "
  _Arching.TrakChase
  "{1}" _C.Lat escape replall
  "{2}" _C.Lon escape replall
  "{3}" 17 replall
  &
%
% twilio outgoing message
%
  _C.Number *twilouts

 } ifelse

} loop
filing)