%
% acceptance vectors for Fire code
%
page@sel
<
|OkFields
 wireop(
">OkFields" log)(
 < 
 |Initial
  "OkFields" *helpface
%
% restore edit fields in Scust OpFields
%
  "Saved_Fields" text*snap
  *custsawu

 > not
 {

 } if
%
% end of OpFields process
%
%%% *custsvop


|OpFields
%
% translate raw control names to Ops names
%
 wireop(
">OpFields" log)(
 < 
 |Initial
  "OpFields" *helpface
%
% initialize customer service operations
%
% end with current time, start with bias back from end
% for time-based selection in backend
% bias is normally 30, extended here to include all snaps
%
  30000 Time.Now *timebias
%
% restore edit fields in Scust OpFields
%
  "Saved_Fields" text*snap
  *custsawu

 > not
 {

 } if
%
% end of OpFields process
%
%%% *custsvop
>

*acceptun

%
% stack: found
%