anchor.diff:  %% @doc Decode the QAK (Query acknowledgment) segment
   decode(qak, Segment) ->
       #qak{
  -        query_tag = get_field(1, string, 32, Segment),
  -        query_response_status = get_field(2, string, 4, Segment),
  +        query_tag = get_field([1], string, 32, Segment),
  +        query_response_status = get_field([2], string, 4, Segment),
           query_id = get_component([3,1], string, 14, Segment),
           query_name = get_component([3,2], string, 30, Segment)
          };
  
positive.code:         referral_type_id = get_component([3,1], string, 5, Segment),
          referral_type_description = get_component([3,2], string, 15, Segment),
          originating_referral_id = get_component([6,1], string, 15, Segment),
          effective_date = get_field(7, date, 12, Segment),
          expiration_date = get_field(8, date, 12, Segment),
          process_date = get_field(9, date, 12, Segment),
          referral_reason_id = get_component([10,1], string, 21, Segment)
         };
  %% @doc Decode the ZAU (Procedure authorization information) segment
  
negative.code: %% @doc Decode the PR1 (Procedure information) segment
  decode(pr1, Segment) ->
      #pr1{
          set_id = get_field([1], integer, 4, Segment),
          procedure_id = get_component([3,1], string, 20, Segment),
          procedure_name = get_component([3,2], string, 30, Segment),
          coding_system = get_component([3,3], string, 4, Segment),
          date = get_field([5], date, 14, Segment)
         };
  %% @doc Decode the PRD (Provider data) segment
  decode(prd, Segment) ->
  