%
% process the xact directory for post-thumb ops
%
  _Camera.Phase
"<<<>>>" log)(
  <

  |Analyzed
%
% if not a Builder, go on to making tack
%
   _Aamg.ContrB not
   {
%
% not a builder
%
    _Xact
    *xactmmtx
    _Shooter.Twi asc 0x60 lt
    {
%
% TRUE MMS IMAGE
%
% this is a true MMS, ask how to handle it
% jpeg analyzed properly, create or reuse the tack
%
% must get the type variation from user as wait
%
     "Please select how to process your photo, reply text to this number.
Example: reply with    e caption      for object droput, framed, with caption
Example: reply with    b caption      for a normal framed photo, with caption
" !Customer.Message
     "ThTypeof" *custvirz
     dup !Xact
     dup !Cust.Xact
%
% create the await flag for this phone number/subject
%
     empty
     "Cust.Xact" sval
     _Shooter.Subject &"_await" text!subj
     "Await" *shootern
    }
    {
%
% PSEUDO MMS IMAGE
%
% pseudo mms for text processing
% must get the variation from user as wait
%
     "Please select font and color, reply text to this number.
For the picture fonts, only need to send the letter.
Example: reply with h8 for the script font in light blue
Example: reply with c for the clown picture font
" !Customer.Message
     "ThChoose" *custvirz
     dup !Xact
     dup !Cust.Xact
%
% create the await flag for this phone number/subject
%
     empty
     "Cust.Xact" sval
     _Shooter.Subject &"_await" text!subj
     "Await" *shootern
    } ifelse
    !Xact
   }
   {
%
% BUILDER
%
   } ifelse
   false

  |Ready
%
% if not a Builder, combine all info for next step decision
%
% check for a subject, if none, see if we can assign a subject
% for this xact
%
   *custimon

   _Aamg.ContrB not
   {
%%%  *xactsess
    *xactsubj
    {
%
% have subject, set up for thumbing process
%
     "Subject" *shootern
    }
    {
%
% no subject yet, detect if MMS type of message,
% if the subject is known, inserted into the xact
%
     _Camera.Original "_MMS_" found?
     {
%
% implant the MMS subject
%
      dup term3
      dup !Shooter.Subject
"mmrdysubj" log)(
      !Subject
      *xactosub
      _Xact.Ref !Xact
%
% immediate reflection of receiving image
% stay at this stage for next route for image
%
      *custwlrg

     } if
     pop
    } ifelse
   } if
   false

  |Subject
%
% if not a Builder, this xact now has a subject
%
   _Aamg.ContrB not
   {
%
% now a subject has been attached to this xact
% create or re-create the galleries for this subject
%
    _Xact
    *xactlnup
"lnup" log)(
    !Xact
%
% route to commerce step or make thumbnails
%
    "G.jpg" ofxact exists
    {
%
% already thumbed or thanked for reg, move to commerce step
% to create the product commerce initial values
%
     *xactoutn
     "Prod" *shootern
    }
    {
     *custhnkq
     {
%
% thanks message of some type already sent
%
      "Staged" *shootern
     }
     {
      _Xact
%
% send intermediate text
%
      *xactmmtx
      _Shooter.Twi asc 0x60 lt
      {
%
% TRUE MMS IMAGE
%
% has image, true mms originally, tell user to wait
%
% this is a true MMS, ask how to handle it
% jpeg analyzed properly, create or reuse the tack
%
% must get the type variation from user as wait
%
     "Please select how to process your photo, reply text to this number.
Example: reply with    e caption      for object droput, framed, with caption
Example: reply with    b caption      for a normal framed photo, with caption
" !Customer.Message
     "ThTypeof" *custvirz
     dup !Xact
     dup !Cust.Xact
%
% create the await flag for this phone number/subject
%
     empty
     "Cust.Xact" sval
     _Shooter.Subject &"_await" text!subj
     "Await" *shootern
       dup !Xact
%%%       "Staged" *shootern
      }
      {
%
% PSEUDO MMS IMAGE
%
% pseudo mms for text processing
% must get the variation from user as wait
%
       "Please select font and color, reply to this number.
For the picture fonts, only need to send the letter.
Example: reply with h8 for the script font in light blue
Example: reply with c for the clown picture font
" !Customer.Message
       "ThChoose" *custvirz
       dup !Xact
       dup !Cust.Xact
%
% create the await flag for this phone number/subject
%
       empty
       "Cust.Xact" sval
       _Shooter.Subject &"_await" text!subj
       "Await" *shootern
      } ifelse
      !Xact
      *custthnk
%
% must create thumbnails
%
     } ifelse
    } ifelse
   } if
   true

  |Await
%
% tack is created or updated with xact, but must await choice response
%

   *xactmmtx
%%%   *xactsubj pop
   empty !Cust.Xact
   _Shooter.Subject &"_await" text*subj
   _Cust.Xact any)?
   {
%
% AWAITING RESPONSE
%
% still waiting for sms response, proceed anyway
%
    _Shooter.Caption any?
    {
     1 left
    }
    {
     "h"
    } ifelse
%
% establish awaited ack
%
    *custawat
   }
   {

%
% no await flag exists, can now go forward
%
    "Ready" *shootern

   } ifelse

   false
%
% stack: xact-exit
%

  |Staged
%
% tack is created or updated with xact
%
%%%   *xactmmtx
%
% check for photoshop busy with another xact
%
   _Xact.Process zero
"ckstaged" log)(
   {
%
% photoshop available, process thumbnails
%
    *camermak
%
% stack: xact-exit
%
   }
   {
%
% photoshop not available
%
    false
   } ifelse


  |Thumbed
%
% if not a Builder, perform post-thumbed steps
%
   _Aamg.ContrB not
"contrbck" log)(
   {
    _Xact
%
% there is a subject, we can check for reg
%
% does the xact have registration data
%
% this xact of course has a subject, check if incoming registration
% the _reg for the subject is used by the incoming monitor
% to update the Tack
%
    *custjreg
    dup !Xact
    *xactqreg
"wxrgthreg" log)(
    {

%
% go ahead and build the composites, will route to commerce step
%
     dup !Xact
     "Subject" *shootern
    }
    {
%
% wait for the response from customer
%
     dup !Xact
     "Response" *shootern
    } ifelse
    !Xact
   } if
   false

  |Response
%
% if not a Builder, wait for response
%
   _Aamg.ContrB not
   {
%
% monitor incoming session markers and web commands
% check the incoming web messages folder for actions
% that will be a registration
%
    *xactsubj
"resubj" log)(
    {
%
% there is a subject, we can check for reg
%
% does the xact have registration data
%
% this xact of course has a subject, check if incoming registration
% the _reg for the subject is used by the incoming monitor
% to update the Tack
%
     *custjreg
     _Xact.Ref !Xact
%
% check for registered
%
     *xactqreg
     "xqregresp" log)(
     {
%
% now registered
%
      _Xact.Ref !Xact
      "Subject" *shootern
     }
     {
%
% not registered yet, remain at this stage until there is
%
     } ifelse
    } if
   } if
   false

  > not
  {
%
% not an intercepted camera phase
%
   false
  } if
%
% stack: action-taken
%