@sess_funcs = ("F1E","F1W","F1N","F1S");
@v_funcs = ("$oev_code","$oevc_code");
@eprep_funcs = ("$oe_e","$e_e");
@ev_funcs = (@sess_funcs,@v_funcs,@eprep_funcs);

##</code><code>##

if (! $date_to_use) {
    $msg =  "Enter or confirm the date to schedule. \n";
    while (! $date_to_use) {
        $msg .= "  (mmmdd, mmmd, or mmm dd)\.\n";
        $intext = $excel->InputBox("$msg","Enter date","$assumed_date");
        go_away(16,"Quitting as requested\.") if ($intext eq "0");
        $date_to_use = check_date($intext);
        $msg = "Date error.  Re-enter.\n" if (! $date_to_use);
    }
}