separate (Tracker.Milestone_Pkg.Ms_Modify)
procedure Modify_Milestone_Key is
    --|
    --|  NAME:  MODIFY_MILESTONE_KEY
    --|
    --|  OVERVIEW:
    --|    This procedure is called when the milestone number is modified.
    --|    The user is prompted for a new unique key by calling the Prompt_Pkg
    --|    function.  The milestone number must be changed in the milestone
    --|    record, the search key for the milestone list, and the field of the
    --|    element record for each element in the milestone's element list.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ---------------------------------------------------------------------------
    Blank_Key : Ms_Num_Type;         -- to blank out the key
    New_Number : Ms_Num_Type;         -- replacement ms

begin
    -- Change the key in the milestone list...

    -- get the new ms number
    New_Number := Prompt_Pkg.New_Milstone_Number;

    -- change milestone num in each element record of the ms_el_list
    Change_Ms_In_El (Ms_Record, New_Number);

    -- change the search key in the milestone list
    Change_List_Key (Ms_List, Ms_Record.Number, New_Number);

    -- change number in the milestone record
    Ms_Record.Number := New_Number;

end Modify_Milestone_Key;