separate (Tracker.Report_Generator.Milestone_Summary)


procedure Init_Summs_Headers is
    ----------------------------------------------------------------------
    --|  NAME:  INIT_SUMMS_HEADERS
    --|
    --|  OVERVIEW:
    --|    This procedure initializes all the headers of the MILESTONE summary
    --|    report.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   Bonnie Burkhardt   March 1985
    ----------------------------------------------------------------------

    Dashes : constant String (1 .. 15) := (others => '-');

begin
    Header1 := (others => ' ');
    Header2 := (others => ' ');
    Header_Lines := (others => ' ');

    -- initialize the headers
    Header1 (115 .. 121) := "MAN-HRS";
    Header1 (125 .. 131) := "PERCENT";

    Header2 (2 .. 10) := "MILESTONE";
    Header2 (115 .. 121) := "TO COMP";
    Header2 (125 .. 132) := "COMPLETE";

    Header_Lines (2 .. 10) := Dashes (1 .. 9);
    Header_Lines (115 .. 121) := Dashes (1 .. 7);
    Header_Lines (125 .. 132) := Dashes (1 .. 8);

    -- insert the person's initials into the headers
    for Pr in 0 .. Stop_Pr - Start_Pr loop
        Header2 (16 + Pr * 9 .. 17 + Pr * 9) := Pr_Initials (Pr + Start_Pr);
        Header_Lines (14 + Pr * 9 .. 20 + Pr * 9) := Dashes (1 .. 7);
    end loop;
end Init_Summs_Headers;