separate (Tracker.Report_Generator)
procedure Reports_Printed_List is
    ----------------------------------------------------------------------
    --|  NAME:  REPORTS_PRINTED_LIST
    --|
    --|  OVERVIEW:
    --|    This procedure is not on the report menu, but is always the last
    --|    report printed whenever two or more reports are output.  The output
    --|    of this report is simply a listing of all the reports printed in
    --|    the current TRACKER run.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    ----------------------------------------------------------------------

    use Vt100;

    Dotted_Line : String (1 .. 132) := (others => '=');
    type Rep_Name is array (1 .. 12) of String (1 .. 50);
    Report_Name : Rep_Name;

begin
    -- initialize the array of report names
    Report_Name (1) := "  Parameter Data List                             ";
    Report_Name (2) := "  Tracker Comments                                ";
    Report_Name (3) := "  All Element Status Report                       ";
    Report_Name (4) := "  List By Subsystem                               ";
    Report_Name (5) := "  List By Milestone                               ";
    Report_Name (6) := "  List By Person                                  ";
    Report_Name (7) := "  Subsystem Summary                               ";
    Report_Name (8) := "  Milestone Summary                               ";
    Report_Name (9) := "  Work Units Per Subsystem                        ";
    Report_Name (10) := "  Percent Completion Of Work Within Subsystem     ";
    Report_Name (11) := "  Distribution Of Remaining Work Within Subsystems";
    Report_Name (12) := "  Completion Date For Milestones                  ";

    -- print out the names of the reports printed
    New_Page (Report_File);
    Set_Col (Report_File, 58); -- to center the title
    Put_Line (Report_File, "REPORTS  PRINTED");
    Put (Report_File, Dotted_Line);
    New_Line (Report_File, 4);

    for I in 1 .. 12 loop
        if Vt100.Print_Report (I) then
            Put (Report_File, Report_Name (I));
            New_Line (Report_File);
        end if;
    end loop;
end Reports_Printed_List;