%
%%% |Prod
%
% establish product basis for Customer
%
%
% we have a subject, products have been built into sales
%
%
*xactsubj
"prsubj" 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

 *xactqreg 
"xqregprod" log)(
 {
%
% registered, check for the final product made it through
%
  _Xact.Ref
"%^%^xactref" log)(
  !Xact
  "Subject_Displayed.txt" ofxact exists
"%^%^subjdisp" log)(
  {
%
% product versions have been built
%
   "Post" *shootern
  }
  {

*droppers
"droppet" log)(
<
|Obj

"Psm.png" ofxact exists
{
 "Make" *shootern
}
{
 "Dropout" *shootern
} ifelse

|Mos

"Psm.png" ofxact exists
{
 "Make" *shootern
}
{
 "Dropout" *shootern
} ifelse

|Face  "Dropout" *shootern
|Fit  "Dropout" *shootern
> not
{
 "Incoming.png" ofxact exists
 {
 }
 {
  "Psm.png" ofxact del
 } ifelse
 "Make" *shootern
} if

%
% do not have composite or products yet, create them
%
  } ifelse
 }
 {
%
% not registered yet, remain at this stage until then
% would be broken process flow
%
  "Response" *shootern

 } ifelse
} if