%
% accept company name and request docket number
%
% sent a request for a company name
%
_Sms.Body trim any?
{
 !Sked.Company
 _Sked.Docket any)?
"skedhasdock" log)(
 {
%
% already sent a docket number
% valid docket number, request today question
%
/*
  "ReqToday" *skednumb
  "Will you be picking up today? Please respond with a letter, y or n"
*/
 "ReqDate" *skednumb
  "Please text a date for scheduled visit."
  &" Text us a six digit date (example 011423)." catcr
  &"Text the letter x to end scheduling of this Pickup number."

 }
 {
%
% no docket number yet
%
  _Sked.Admin _Sked.Phone found)?
  {
%
% new administrator setup, send this to status mode
%
   "ReqStatus" *skednumb
   "You are an administrator, changing to status mode."
   &" Control commands begin with a comma, please read instructions."
   &" before commanding the system."
  }
  {
%
% request the docket number
%
   "ReqDock" *skednumb
   "Please text the Pickup number (xxxxxxx-x.x)." catcr
   &"Text the letter x to end scheduling at this time."
  } ifelse
 } ifelse
}
{
 "Must supply a company name."
} ifelse
*skedxmit