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

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

  *cusvopnr
 |Fields
%
% bring up customer service fields
%
  "OpBut(true)"
  Help.!

  |FindTime
   *custflds
   *cusvsb1t

  |XtPageDown
   *custflds
   *cusvpgdn

  |XtPageUp
   *custflds
   *cusvpgup

  |XtOfPhone
   *custflds
%%%   *cusvsbjs
   *cusvxall

  |XtOfPhoto
   *custflds
%%%   *cusvsbjs
   *cusvxhis

  |Photos
   *custflds
   *cusvsbjs

  |XtRange
   *cusvtmpk

  |XtXact
%
% filter the tree selection to the subject of this xact
% select the xact that matches the last N digits
%
   *custflds
   _Xact
"xactsrch" log)(
   *xactfind

  |XtPhone
   *custflds
   *cusvfphn

  |XtSales
%
% show the sales xacts in reverse time
%
   *custflds
   *cusvbytm
   *cusvseek

  |XtClear
   *custflds
   empty !Stime
   empty !Etime
   1 !Xact
   0 !Subject
   *custsvop
   *custsawu

  |Editmain12   %%% accept

"//+CuEdit
//*
"
&"TargetPath = "
empty ofxact tojsquo &
&";
CuEdit("
_Xact quoter & &",true);
"
*phocperf

   /*
   "EditBar(false);
"
Help.!
*phyfront(
*/

  |Editmain13   %%% cancel

"//+CuEdit
//*
"
&"TargetPath = "
empty ofxact tojsquo &
&";
CuEdit("
_Xact quoter & &",false);
"
*phocperf

/*
   "EditBar(false);
"
Help.!
*phyfront(
*/

|Server
%
% turn on or off photo server
%
_Aamg.Service
{
%
% Service is currently on, turn off service mode
%
 0 !Aamg.Tick
 0 !Gearing
 0 !tick
%
% turn off Service, show indicator steady
% the timing sequence is moved away from 8000s
%
 false !Aamg.Service
 "Ops:Server;On" indw)@(
}
{
%
% turn on Service, show indicator pulsing
%
 true !Aamg.Service
 "Ops:Server;Dim" indw)@(
%
% pick up again at 8010 in timing service
%
 *custiniu
} ifelse

 |Cloud
%
% start or stop cloud transfer
%
_Aamg.Cloud
{
%
% stop cloud transfer
%
 false !Aamg.Cloud
 "Ops:Cloud;On" indw)@(
}
{
 true !Aamg.Cloud
 "Ops:Cloud;Dim" indw)@(
} ifelse

 |Build
%
% Message indicator
%
% start or stop building
%
_Aamg.Build
{
%
% stop building
%
 false !Aamg.Build
 "Ops:Build;On" indw)@(
}
{
 true !Aamg.Build
 "Ops:Build;Dim" indw)@(
} ifelse

|ContrA
%
% aux control A
%
_Aamg.ContrA
{
 false !Aamg.ContrA
 "Ops:ContrA;On" indw)@(
}
{
 true !Aamg.ContrA
 "Ops:ContrA;Dim" indw)@(
} ifelse

|ContrB
%
% aux control B  (BUILDER)
%
_Aamg.ContrB
{
 false !Aamg.ContrB
 "Ops:ContrB;On" indw)@(
}
{
 true !Aamg.ContrB
 "Ops:ContrB;Dim" indw)@(
} ifelse

|ContrC
%
% aux control C   (COMM)
%
_Aamg.ContrC
{
 false !Aamg.ContrC
 "Ops:ContrC;On" indw)@(
}
{
 true !Aamg.ContrC
 "Ops:ContrC;Dim" indw)@(
} ifelse

 |Reset
%
% reset/clear all sms messages
% regenerate chuuters, cameras for updates to database
%
  _Aamg.FlushMsg
  {
/*
   "Ops:Reset;On" indw)@(
   false !Aamg.FlushMsg
*/
  }
  {
   "Ops:Reset;Quick" indw)@(
   true !Aamg.FlushMsg
  } ifelse

%
% second row
%

 |Testing
%
% enter or leave test mode
%
indw)
_Aamg.Testing
{
%
% turn off test mode
%
 false !Aamg.Testing
 "Ops:Testing;On" indw@
 "Ops:Inject;Off" indw@
}
{
 true !Aamg.Testing
 "Ops:Testing;Dim" indw@
 _Aamg.Inject
 {
  "Ops:Inject;Dim" indw@
 }
 {
  "Ops:Inject;On" indw@
 } ifelse
} ifelse
indw(

|Inject
%
% inject images during test
%
_Aamg.Inject
{
%
% stop test image inject
%
 false !Aamg.Inject
 "Ops:Inject;On" indw)@(
}
{
 true !Aamg.Inject
 "Ops:Inject;Dim" indw)@(
} ifelse

 |Error
%
% error indicator
%

 |Incoming
%
% incoming messages enable
%
 indw)
_Aamg.SmsIn
"smsin" log)(
{
 false !Aamg.SmsIn
 "Ops:Incoming;On" indw@
 "Ops:Reset;On" indw@
}
{
 true !Aamg.SmsIn
 "Ops:Incoming;Dim" indw@
 "Ops:Reset;Off" indw@
 false !Aamg.FlushMsg
} ifelse
 indw(

 |Outgoing
%
% outgoing messages enable
%
 indw)
_Aamg.SmsOut
{
 false !Aamg.SmsOut
 "Ops:Outgoing;On" indw@
}
{
 true !Aamg.SmsOut
 "Ops:Outgoing;Dim" indw@
} ifelse
 indw(

 |RegNotif
%
% registration notification enable
%
 indw)
_Aamg.Rnotif
{
 false !Aamg.Rnotif
 "Ops:RegNotif;On" indw@
}
{
 true !Aamg.Rnotif
 "Ops:RegNotif;Dim" indw@
} ifelse
 indw(

 |WaitNotif
%
% wait-for-image notification enable
%
 indw)
_Aamg.Wnotif
{
 false !Aamg.Wnotif
 "Ops:WaitNotif;On" indw@
}
{
 true !Aamg.Wnotif
 "Ops:WaitNotif;Dim" indw@
} ifelse
 indw(

 |CstmLand
%
% customized Landing enable
%
 indw)
_Aamg.Lcustom
{
 false !Aamg.Lcustom
 "Ops:CstmLand;On" indw@
}
{
 true !Aamg.Lcustom
 "Ops:CstmLand;Dim" indw@
} ifelse
 indw(

 |CstmMsg
%
% customized message enable
%
 indw)
_Aamg.Mcustom
{
 false !Aamg.Mcustom
 "Ops:CstmMsg;On" indw@
}
{
 true !Aamg.Mcustom
 "Ops:CstmMsg;Dim" indw@
} ifelse
 indw(


 |Scust
  wired(
"Cust" log)(
"," 0 11 1 parse
hex2asc zeronull !Xact
hex2asc !Venue
hex2asc !Shooter
hex2asc !Barcode
hex2asc !EndTime
hex2asc !StartTime
hex2asc !Email
hex2asc !First
hex2asc !Last
hex2asc !Subject
hex2asc !Op
/*
naver
Subject
Last
First
Email
Stime
Etime
Barcode
Shooter
Venue
Xact
*/
  _Op
"op" log)(
  <
  |LowNav1
%
% exit Rcust operations
%
   *custflds
   *custsvop
   "Conn" *allseter
   *custends

  |LowNav2
%
% previous subject
%
   *custflds

  |LowNav3
%
% next subject
%
   *custflds

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

  |Sidebar1 % search

  *cusvopnr

  |Sidebar2 % editing
   *custflds
   *cusvedxa

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

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

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

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

  |FindEmail
   *custflds


  |Select
   *custflds
   *cusvsals

  |SelPhone
   *custflds
   *cusvslph

  |SelXact
   *custflds
   *cusvslxa

  |FindPhone
%
% portal iframe is loaded with search of phone number
%
   *custsave

   _Barcode
   _Subject
   _Email
%
% stack: sms-channel dest-phone addtl-msg
%
   *custivit

  |FindBarcode
%
% filter the tree selection for all xacts of barcode
%
+Aamg.TwiCounter
"sms" _Arching.ServName lower & text*conn
not
{
 1 dup !Aamg.TwiCounter "sms" _Arching.ServName lower & text*conn pop
} if
"nxtwi" log)(
pop2nd !Barcode
   *custsave
*custsawu

  |FindShooter
%
% filter the tree selection for all xacts of shooter
%
   *custsave
   "Shooter" empty *custrtre

  |FindVenue
%
% filter the tree selection for all xacts of venue
%
   *custsave
   "Venue" empty *custrtre

  |FindFirst
%
% portal iframe is loaded with search of first name
%
   *custiviv
   %%% *custsave

  |FindLast
%
% portal iframe is loaded with search of last name
%
   *custiviu
   %%% *custsave

  |FindTime
%
% set the time filter to Stime back for Etime past that time
% format is D:H:M, zero or blank end time is to current time
%
   *custsave
   _Stime *timedecd !Time.Begin
   _Etime *timedecd !Time.End

  |FindXact
%
% filter the tree selection to the subject of this xact
% select the xact that matches the last N digits
%
   _Xact
"xactsrch" log)(
   *xactfind
   %%% *custsave

  |LoadInfo
%
% reload info previously saved
%
   "Saved_Scust" text*snap
%
% restore edit fields in Help
%
   *custsawu
   %%% *custsave
%
% set all remembered indicator settings
%
   *csysinit(

  |SaveInfo
%
% save first and last name, email to the subject selected
% must be on a subject entry of tree
%
   *custsave
   %%% *fcmpushr
  > pop
%
% end of Op process
%

 > pop
%
% end of Scust process
%

>

*acceptun

%
% stack: found
%