%
% accept today answer and request slot choice or date selection
%
% sent a request for an arrival today answer
%
_Sms.Body trim any?
{
 "ReqDate" *skednumb
 1 left upper "Y" eq$
 {
%
% will be picking up today, use today date
%
  Time.Now " " left$ !Sked.Date
%
% request slot choice, above settings are for no slots possibly
%
  *skedtmsl
 }
 {
%
% any other response will require a date entry
%
  "Please text a date for scheduled visit."
  &" Text us a six digit date (example 011423)."

 } ifelse
}
{
%
% any non-yes response will prompt a date entry
%
 "Please text a date for scheduled visit."
 &" Text us a six digit date (example 011423)."
} ifelse

*skedxmit