%
% this xact already has a subject, check if incoming registration
% the _reg for the subject is used by the incoming monitor
% to update any xact with that subject assigned
%
_Xact
*custireg
"jreg" log)(
{
 "Profile.txt" oftack exists not
 second !Xact
 {
%
% this subject and xact are just now properly registered
%
  _Shooter.Subject &"_reg" dup text*subj
%
% put the profile information into the Tack for this subject
%
  text_subj "Profile" text!tack
  dup !Xact
%
% has image, true mms originally, tell user thanks
%
  empty !Customer.Addtl
  "T1" !Customer.Mailer
  "Thank" *custvirz
  dup !Xact

%
% mark the xact so that a wait message is not sent downstream
%
  *custthnk

 } if
}
{
%
% no reg file in subject dir
%
} ifelse
!Xact