%
% next incoming snap, update latest image mark
%
% stack: new-incoming-file
%
"new" log)(
 dup !Camera.Latest

%
% assign the new xact, recording as the most recent xact
%
 *finsures
%
% attach the //twilio channel// product number
% to the front of the xact 
%
/*
 second "_"

%%% 6
8 1 1 parse asc 0x30 sub
*/
_Arching.Vtype
"twiasgn" log)(
 ^
 dup _Xact.Last max !Xact.Last
 dup !Xact
%
% create the xact directory under results
% record the data involved with the incoming file
%
 *xactfold
 dup term1 !Camera.Msec
 filed !Camera.Modified
 made !Camera.Created
%
% tag this image as waiting to go through process
%
%%% "Detected"
"Ready" *shootern

%
% copy with original file naming into xact folder
%
/*
 filing
 second ofxact
 copyfile
*/
%
% also copy incoming image as standard 'incoming' named
%
 filing

 empty !Shooter.Pactions
 dup text exec$

 dup extension
 ^"incoming" ofxact
 copyfile
%
% mark reception time
%
 Time.Now !Camera.Received
%
% remove any prior text of jpeg analysis
%
 _Camera.Latest
 dup xactext del
 !Camera.Original
%
% create the informing exec data
%
 *camerinf
%
% stack: image-incom-data
%
 "Shooter.Pactions" sval