%
%%% |Kiosk
%
% perform non-thumbed lettering steps
%
_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
%
*custimon
dup !Xact

*xactmmtx
empty !Customer.Addtl
%
% each check uses _Shooter.Caption " " left$ trim for the name to check
%
% check for the name existing among each font type
%

"First" *shootern

*chekfnam
%%% true

%
% stack: name-exists
%

{
%
% the name exists in all font types
% see if the name exists for all product categories of product
%
*chekfprd
%%% true
%
% stack: prod-exists
%
 {
%
% all products exist for this name, can use standard message
%

  "First" *shootern

  "L3" !Customer.Mailer
  "First" *custvirz

 }
 {
%
% some product categories do not have the name fulfilled
%
  "MoreProd" *shootern

  "L4" !Customer.Mailer
  "First" *custvirz
/*
"We are creating more items to match your unique name.
This is one of the fine products available for you,
and we will create more with your special name!
%2"
*/
 } ifelse
}
{
%
% the name doesn't exist in all font categories
% start the lettering process for the name
%
 "MakeName" *shootern
 "L5" !Customer.Mailer
 "First" *custvirz
/*
"We are adding your unique name to our image font names.
This is one of the fine products available for you,
and we will create more with your special name!
%2"
*/
} ifelse

"msgtx" log)(
%
% stack: message-template
%
/*

 "%2" empty chained *custsrvr ^

*/
/*
 &"?stamp="
 jsnow &
*/
/*
 replall
 !Customer.Message
*/

%%% "First" *custvirz
!Xact