%
% insure format of docket number
%
% stack: dock-number
%
 dup !docket
 empty !reason
 "-" found?
 {
%
% hyphen found
%
  "-" slice
  exch length 7 eq
  {
   exch "." found?
   {
%
% proper docket number
%
    ^"-" & !Sked.Docket
    true
   }
   {
%
% no dot between trailing digits
%
    pop2
    "No period in Pickup number." !reason
    false
   } ifelse
  }
  {
%
% not 7 characters before hyphen
%
   pop2
   "Not 7 digits before period in Pickup number." !reason
   false
  } ifelse
 }
 {
%
% hyphen not found
%
  pop
  "No hyphen in Pickup number." !reason
  false
 } ifelse

/*
 dup
 {
%
% valid format pickup
%
  _docket
  "Pickups" ofconn folder( !Sked.Pfold
  &"Pickups.txt" read ^"< " &" >" execstr
  {
%
% found pickup number
%
  }
  {
%
% did not find pickup number
%
   pop
   "Do not have a record of that Pickup number." !reason
   false
  } ifelse
 }
 {
%
% not valid format pickup
%
 } ifelse
*/

%
% stack: valid-docket
%