%
% acceptance vectors for Fire code
%
page@sel
<

|Sdust
%
% translate raw control names to Ops names
%
 wireop(
">Sdust" log)(
 "Image" empty replall *csysindd not { wireop( } if
">Sdust" log)(
 < 
 |Initial
  "Customer" *helpface
%
% initialize customer service operations
%
  "Donn" *allseter
  *dustinit
  1 !Cust.Xact
  "Saved_Fields" text*snap
  *dustsawu

  *dusvopnr

  |FindTime
   *dustflds
   *cusvsb1t

  |XtPageDown
   *dustflds
   *dusvpgdn

  |XtPageUp
   *dustflds
   *dusvpgup

  |XtOfPhone
   *dustflds
%%%   *cusvsbjs
   *cusvxall

  |XtOfPhoto
   *dustflds
%%%   *cusvsbjs
   *cusvxhis

  |Photos
   *dustflds
   *cusvsbjs

  |XtRange
   *cusvtmpk

  |XtXact
   *dustflds
%
% filter the tree selection to the subject of this xact
% select the xact that matches the last N digits
%
_Xact length) 2 lt
{
 empty
}
{
 _Xact
} ifelse
"xactsrch" log)(
%
% scan install phones for n-digit match at end of phone number
%
% stack: phone-search-digits
%
!Search.Term
"Sequenced" !Cust.NavType
 15 *cusvsorc

 false !Cust.Forward

 *dusvplst

  |XtPhone
   *dustflds
_Phone length) 2 lt
{
 empty
}
{
 _Phone
} ifelse
"phonesrch" log)(
%
% scan install phones for n-digit match at end of phone number
%
% stack: phone-search-digits
%
!Search.Term
"SeqPhone" !Cust.NavType
 15 *cusvsorc

 false !Cust.Forward

 *dusvplst

  |XtSms
   *dustflds
_Sms length) 2 lt
{
 empty
}
{
 _Sms
} ifelse
"smsrch" log)(
%
% scan cond sms for n-digit match at end of sms number
%
% stack: sms-search-digits
%
!Search.Term
"SeqSms" !Cust.NavType
 15 *cusvsorc

 false !Cust.Forward

 *dusvplst

  |XtSales
%
% show the sales xacts in reverse time
%
   *dustflds
   *dusvbytm
   *dusvseek

  |XtClear
   *dustflds
   empty !Stime
   empty !Etime
   1 !Xact
   0 !Subject
   *dustsvop
   *dustsawu

  |LowNav1
%
% exit Rcust operations
%
   *dustflds
   *dustsvop
   "Conn" *allseter
   *custends

  |LowNav2
%
% previous subject
%
   *dustflds

  |LowNav3
%
% next subject
%
   *dustflds

  |LowNav4
%
% insert a new subject at the selected area in the tree
%
   *dustflds

  |Sidebar1 % search

  *cusvopnr

  |Sidebar2 % editing
   *dustflds
   *cusvedxa

  |Sidebar3 % ecomm
%
% summarize ecomm reporting by venue, shooter, subjects
%
   *dustflds

  |Sidebar4 % print
%
% direct images to printed output
%
    *dustflds

  |Sidebar5 % Services
%
% control of base/vm operations and additional services
%

  |Sidebar6 % buy now
%
% open virtual cash register
%
   *dustflds

  |FindEmail
   *dustflds


  |Select
   *dustflds
   *dusvsals

  |SelPhone
   *dustflds
   *cusvslph

  |SelXact
   *dustflds
   *cusvslxa

  |UpdSubsc
   wired(
"subscxact" log)(
   !Xact
   wirex(
"subscrec" log)(
   
   dup
   _Xact &".vrp" ofsrvc write
   _Xact &".vrq" ofsrvc write

  |XtSubsc
   *dustflds
%
% show subscription coded info in NavImage
%
   16 *cusvsorc
  dup
 "___XactId___" _Xact
 replall
 "___Xact___" _Xact
 replall
 "___Alter___" "A" replall
dup logs
%
% stack:  xlist-pre xlist-post xlist-ctr xlist-ctr
%

 "___SubscInfo___" _Xact &".vrp" ofsrvc read
"cksubsc" log)(
 replall

 "___Phone___" _Phone replall
 "___Sms___" _Sms replall

dup logs

 4 -1 roll ^
 3 1 roll

%
% stack:  xlist-pre xlist-post xlist-ctr
%
pop &
"tackwtd" log)(
%
% stack:  xlist-html
%
"show.html" ofsnap
write

*cusvshow

%
% end of Op process
%

 > pop
%
% end of Scust process
%

>

*acceptun

%
% stack: found
%