%
% accept docket number and request date
%
% sent a request for a docket number
%
_Sms.Body trim any?
{
%
% check for an x to end the scheduling attempt
%
 dup 1 left upper "X" eq$
 {
%
% the driver wishes to end the current scheduling attempt
%
  pop
  "We will stop trying to schedule this Pickup number,"
  &" send the Pickup number when you are ready to schedule it."
  "ReqRsv" *skednumb
 }
 {
%
% is there a correct docket number
%
  *skedhdkt
  {
%
% valid docket number, check for duplicates
%
   _Sked.Mode *skednumb
   _Sked.Docket *skedhasd
   _Sked.Phone *skedplod
   {
%
% duplicate docket
%
    "The Pickup number " &_Sked.Docket &" has already been scheduled on "
    &_Sked.Already &"." catcr
    &"Please text us a different Pickup number (xxxxxxx-x.x)." catcr
    &"Text the letter x to end scheduling at this time."
   }
   {
%
% no duplicate
%
/*
 "ReqToday" *skednumb
 "Will you be picking up today? Please text 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 at this time."
   } ifelse
  }
  {
%
% not valid docket number
%
   _reason catcr
   &"Please text us a proper format Pickup number (xxxxxxx-x.x)." catcr
   &"Text the letter x to end scheduling at this time."
  } ifelse
 } ifelse
}
{

%
% not valid docket number
%
 "Please text us a proper format Pickup number (xxxxxxx-x.x)." catcr
 &"Text the letter x to end scheduling at this time."
} ifelse

*skedxmit