%
% unassign this to the driver in focus
% with pickup number, date. and slot currently set
%
 _Sked.Slot !Sked.HoldSlot
 *skedslod
_Sked.Smode
<
|Reserved
%
% driver has reserved this slot
%
 _Sked.HoldPhone *skedplod
 _Sked.Sphone !Sked.Driver
 _Sked.Sdocket !Sked.Docket
 _Sked.HoldSlot !Sked.Slot
 _Sked.Mode *skednumb
%
% pull this docket number from any driver files
%
 *skedpulp
 _Sked.HoldPhone *skedplod

"Your pickup number " &_Sked.Docket
&" was removed from the schedule on " &_Sked.Date
*skedymit

 _Sked.HoldPhone *skedplod

 empty !Sked.Sphone
 empty !Sked.Sdocket
 empty !Sked.Sname
 empty !Sked.Scompany
 _Sked.HoldSlot !Sked.Slot
 "Open" !Sked.Smode
_Sked.HoldSlot 2 prezero text ^_Sked.Dfold
"skedwrslot" log)(
empty
"Sked.Slot" sval
"Sked.Smode" sval
"Sked.Sname" sval
"Sked.Scompany" sval
"Sked.Sdocket" sval
"Sked.Sphone" sval
exch write

 _Sked.HoldPhone *skedplod

 *skedfocs
 catcr
 &"The driver was de-scheduled from that time slot."
> not
{
 "No driver assigned to slot " &_Sked.Slot
 _Sked.Phone *skedplod
} if