%
%%% |Response
%
% wait for response
%
% 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
%

  "Subject" *shootern
 }
 {
%
% not registered yet, remain at this stage until there is
%
 } ifelse
} if