separate (Tracker.Report_Generator.Milestone_Summary)




procedure Print_Summs_Totals is
    ----------------------------------------------------------------------
    --|  NAME:  PRINT_SUMMS_TOTALS
    --|
    --|  OVERVIEW:
    --|    This procedure prints out the milestone totals.  This data includes
    --|    the total number of man-hours needed for each person to complete the
    --|    project, the grand total man-hours left on the project, and the
    --|    grand total percent complete on the project.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   Bonnie Burkhardt   March 1985
    ----------------------------------------------------------------------

begin
    -- output totals
    Set_Col (Report_File, 13);
    Put_Line (Report_File, Header_Lines (13 .. 132));

    Set_Col (Report_File, 2);
    Put (Report_File, "TOTALS:");
    Set_Col (Report_File, 13);

    for Pr_Index in Start_Pr .. Stop_Pr loop
        Put (Report_File, Tot_Time_Done (Pr_Index), 6, 1, 0);
        Put (Report_File, " ");
    end loop;

    Set_Col (Report_File, 115);
    Put (Report_File, Tot_Ms_Time, 6, 1, 0);
    Set_Col (Report_File, 125);
    Put (Report_File, Current_Pct_Done.Contract, 3, 2, 0);
    Put (Report_File, '%');
    New_Line (Report_File);
end Print_Summs_Totals;