anchor.diff:      S1 = list_to_binary(S),
       unicode:characters_to_list(S1).
   
  -parse_line(Line, LineNo, #state{recept=Recept, records=Records,
  -                                mode = Mode, template=ReceptTemplate} = State) ->
  +parse_line(Line, LineNo, #state{mode = Mode, filename = Filename} = State) ->
  +
       [RecordID|_] = Line,
  -
       Types = case Mode of
                   dpc -> ?DPC_RECORD_TYPES;
                   med -> ?MED_RECORD_TYPES
  
positive.code:         end,
  
      InitCtx = #state{template = #recept{file=BinFilename, checksum=BinChecksum},
                       mode = Mode},
      {ok, {Total, ResultCtx}} = ecsv:process_csv_string_with(lists:flatten(Lines), F, {0, InitCtx}),
  
      #state{records=Records1} = ResultCtx,
  
negative.code: -record(state, {recept       :: #recept{},
                  records = [] :: list(),
                  template     :: #recept{},
                  mode         :: med | dpc,
                  skipping = false :: boolean(),
                  filename     :: filename:filename()
                 }).
  
  -spec parse_file(filename:filename(), med | dpc) -> {ok, [term()]}.
  parse_file(Filename, Mode) ->
  