separate (Tracker.Report_Generator.List_By_Person)

procedure Init_Pr_Headers is
    ----------------------------------------------------------------------
    --|
    --|  NAME:  INIT_PR_HEADERS
    --|
    --|  OVERVIEW:
    --|    This procedure initializes all the headers of this person report.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   Bonnie Burkhardt   March 1985
    --|
    ----------------------------------------------------------------------

    Dashes : constant String (1 .. 15) := (others => '-');
begin
    -- initialize the headers
    Header1 (65 .. 80) := "** ACTIVITIES **";
    Header1 (84 .. 87) := "ORIG";
    Header1 (90 .. 95) := "CURRNT";
    Header1 (97 .. 102) := "EQ NEW";
    Header1 (108 .. 114) := "MAN-HRS";
    Header1 (117 .. 122) := "FINISH";
    Header1 (127 .. 129) := "DUE";

    Header2 (2 .. 3) := "MS";
    Header2 (5 .. 6) := "PR";
    Header2 (8 .. 16) := "SUBSYSTEM";
    Header2 (19 .. 29) := "DESCRIPTION";
    Header2 (55 .. 59) := "ABREV";
    Header2 (84 .. 87) := "SIZE";
    Header2 (91 .. 94) := "SIZE";
    Header2 (98 .. 101) := "SIZE";
    Header2 (104 .. 106) := "CPX";
    Header2 (108 .. 114) := "TO COMP";
    Header2 (118 .. 121) := "DATE";
    Header2 (127 .. 130) := "DATE";
    Header_Lines (2 .. 3) := Dashes (1 .. 2);
    Header_Lines (5 .. 6) := Dashes (1 .. 2);
    Header_Lines (8 .. 16) := Dashes (1 .. 9);
    Header_Lines (19 .. 29) := Dashes (1 .. 11);
    Header_Lines (55 .. 59) := Dashes (1 .. 5);
    Header_Lines (83 .. 88) := Dashes (1 .. 6);
    Header_Lines (90 .. 95) := Dashes (1 .. 6);
    Header_Lines (97 .. 102) := Dashes (1 .. 6);
    Header_Lines (104 .. 106) := Dashes (1 .. 3);
    Header_Lines (108 .. 114) := Dashes (1 .. 7);
    Header_Lines (116 .. 123) := Dashes (1 .. 8);
    Header_Lines (125 .. 132) := Dashes (1 .. 8);

    -- initialize the header for the activity data
    Start_Walk (Ac_List);
    Ac_Index := 0;

    loop
        Walk (Ac_List, Ac_Ptr, End_List);
        exit when End_List;
        Header2 (63 + 2 * Ac_Index) := Ac_Ptr.Name (1);
        Header_Lines (63 + 2 * Ac_Index) := '-';
        Ac_Index := Ac_Index + 1;
    end loop;
end Init_Pr_Headers;