separate (Tracker.Report_Generator.All_Elmnt_Status_Rep)

procedure Init_El_Headers is
    ----------------------------------------------------------------------
    --|  NAME:  INIT_EL_HEADERS
    --|
    --|  OVERVIEW:
    --|    This report initializes the headers for the All Element Status
    --|    report.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   Bonnie Burkhardt   March 1985
    ----------------------------------------------------------------------

begin
    -- initialize the headers
    Header1 (68 .. 83) := "** ACTIVITIES **";
    Header1 (90 .. 96) := "ORIGINL";
    Header1 (99 .. 105) := "CURRENT";
    Header1 (108 .. 114) := "EQ. NEW";
    Header1 (117 .. 124) := "SIZE LST";

    Header2 (2 .. 3) := "MS";
    Header2 (5 .. 6) := "PR";
    Header2 (8 .. 16) := "SUBSYSTEM";
    Header2 (20 .. 30) := "DESCRIPTION";
    Header2 (56 .. 60) := "ABREV";
    Header2 (63 .. 64) := "RP";
    Header2 (90 .. 93) := "SIZE";
    Header2 (99 .. 102) := "SIZE";
    Header2 (108 .. 111) := "SIZE";
    Header2 (117 .. 124) := "VERIFIED";
    Header2 (127 .. 132) := "COMPXY";

    Header_Lines (2 .. 3) := Dashes (1 .. 2);
    Header_Lines (5 .. 6) := Dashes (1 .. 2);
    Header_Lines (8 .. 16) := Dashes (1 .. 9);
    Header_Lines (20 .. 30) := Dashes (1 .. 11);
    Header_Lines (56 .. 61) := Dashes (1 .. 6);
    Header_Lines (63 .. 64) := Dashes (1 .. 2);
    Header_Lines (90 .. 96) := Dashes (1 .. 7);
    Header_Lines (99 .. 105) := Dashes (1 .. 7);
    Header_Lines (108 .. 114) := Dashes (1 .. 7);
    Header_Lines (117 .. 124) := Dashes (1 .. 8);
    Header_Lines (127 .. 132) := Dashes (1 .. 6);

    -- 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 (67 + 2 * Ac_Index) := Ac_Ptr.Name (1);
        Header_Lines (67 + 2 * Ac_Index) := '-';
        Ac_Index := Ac_Index + 1;
    end loop;
end Init_El_Headers;