%
% administrator report
%
% provides status for a particular day of scheduling
%
_Sked.Mode *skednumb
_Sked.Phone !Sked.PhoneHold
_Sked.Date any)?
{
}
{
 Time.Now " " left$ !Sked.Date
} ifelse
%%% _Sked.Date Time.Datels pop exch "/" catpref "/" catpref !Sked.Desired
_Sked.Date " " left$ Time.DateOrder *skedfold
empty
0 *skedspan _Sked.Slots countup
{
"skedrow" log)(
 dup !Sked.Index *skedspan
 empty !Sked.Smode *skedsclr
 _Sked.Index dup !Sked.Slot
 
 2 prezero text ^_Sked.Dfold
"skedslotf" log)(
 exec$
 _Sked.Smode any?
"skedmode" log)(
 {
  _Sked.Index &") "
  &_Sked.Stime &") " ^
  _Sked.Sphone any)?
  {
   &" " &_Sked.Sphone &" " &_Sked.Sdocket
   &" " &_Sked.Sname &" of " &_Sked.Scompany
  } if
  catcr

  &

 }
 {
%
% no entry
%
 } ifelse
} for
&"For date " _Sked.Date " " left$ & catcr
_Sked.PhoneHold !Sked.Phone
_Sked.Phone *skedplod