separate (Tracker.Activity_Pkg.Ac_Modify)


procedure Modify_Ac_Key is
    ---------------------------------------------------------------------------
    --|
    --|  NAME:  MODIFY_AC_KEY
    --|
    --|  OVERVIEW:
    --|    This procedure is called if the activity name is modified.
    --|    The name must be changed in the list search key by calling
    --|    the List_pkg procedure CHANGE_LIST_KEY, as well as in the
    --|    record data.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ---------------------------------------------------------------------------
    New_Name : Ac_Name_Type;
begin
    New_Name := Prompt_Pkg.New_Activ_Name;
    -- change the search key in the activity list
    Change_List_Key (Ac_List, Ac_Record.Name, New_Name);
    -- change the name in the record
    Ac_Record.Name := New_Name;
end Modify_Ac_Key;