separate (Tracker.Activity_Pkg.Ac_Set_Up)

procedure Ac_Read is
    --|
    --|  NAME:  AC_READ
    --|
    --|  OVERVIEW:
    --|    This procedure reads a record from the file.  One line of data is
    --|    read at a time and broken down into the fields of the
    --|    activity record, which is made visible to the calling routine
    --|    AC_SET_UP.  The data is read in the format specified by the AC_WRITE
    --|    procedure.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    --|  NOTES:
    --|    Any exceptions raised here are handled by AC_SET_UP.
begin
    Get (Tracker_File, Ac_Record.Name);
    Get (Tracker_File, Ac_Record.Percent_Tot_Proj, 5);   -- real type
    Get (Tracker_File, Ac_Record.Priority, 2);           -- integer type
    Get (Tracker_File, Ac_Record.Percent_At_Start, 5);   -- real type
    Get (Tracker_File, Ac_Record.Consider_In_Calc);      -- boolean
    Skip_Line (Tracker_File);
end Ac_Read;