%
% aamg test platform timing step
%
% aamg timer activity allowed
% Event.Time, Event.Object, Event.Step are provided for analysis
% Event.Step has ident_step
%
 _Event.Step term1
 <
 |sms
  _Event.Step term2
"custsend" log)(
  <
  |taken
   *xactninf
   *xactsubj
   {
%
% send the composited message
%
    "remake.txt" ofxact
"preventmsg" log)(
    exists
    {
    }
    {
     "X2" !Customer.Mailer
     "Xact" *custvirz
    } ifelse
   }
   {
   } ifelse

/*
%
% start timer to send the next composited message
%
   empty
   "Xact" sval
   &"*aamgtest"
   "sms_composite" "aamg" _Arching.SmsVTime 1000 mul
   *timeract
   !Act.Timer
*/

   _Axu.Post
   <
   |Products

    *xactmmtx
%
% is this a lettering request
%
    _Shooter.Twi upper?
    {
     "Products" *shootern
    }
    {
%
% SMS lettering request
%
     _Arching.Atype
     <
     |FirstOf
      "Prebuilt" *shootern
     > not
     {
%
% normal lettering request
%
      "Products" *shootern
     } if
    } ifelse

   > pop

  |composite
%
% time to send the composited message to the customer
%
% final message timer
% Arching.SmsPTime
%
  |final
%
%
%
  > pop

 > pop