separate (Tracker.Report_Generator.Completion_Date_For_Ms)



procedure Init_Date_Headers is
    ----------------------------------------------------------------------
    --|  NAME:  INIT_DATE_HEADERS
    --|
    --|  OVERVIEW:
    --|    This procedure initializes all the headers of the completion
    --|    dates by milestone 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 => ' ');

    Header1 (2 .. 6) := "MILE-";
    Header1 (102 .. 109) := "PREVIOUS";
    Header1 (114 .. 120) := "CURRENT";
    Header1 (127 .. 129) := "DUE";

    Header2 (2 .. 6) := "STONE";
    Header2 (101 .. 110) := "COMPL DATE";
    Header2 (113 .. 122) := "COMPL DATE";
    Header2 (127 .. 130) := "DATE";

    Header_Lines (2 .. 6) := Dashes (1 .. 5);
    Header_Lines (101 .. 110) := Dashes (1 .. 10);
    Header_Lines (113 .. 122) := Dashes (1 .. 10);
    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 (12 + Pr * 9 .. 13 + Pr * 9) := Pr_Initials (Pr + Start_Pr);
        Header_Lines (9 + Pr * 9 .. 16 + Pr * 9) := Dashes (1 .. 8);
    end loop;
end Init_Date_Headers;