separate (Database_Interface.Get_Record)

function N_Decode (Line : Line_Type; Size : Natural) return Name_Type is
    Temp : Name_Type;
begin
    if Size > 12 then
        Temp := Line (6 .. 11);
        return Temp;
    else
        Put ("*** Error in Name: ");
        Put_Line (Line);
        raise Consistency_Error;
    end if;
end N_Decode;
--**********************************************************************
-- List Functions
--**********************************************************************