INTERFACE {{p}}if_vet_fee PUBLIC.
  TYPES:
    ty_species TYPE c LENGTH 8,
    ty_weight  TYPE p LENGTH 7 DECIMALS 3,
    ty_amount  TYPE p LENGTH 9 DECIMALS 2,
    ty_reason  TYPE c LENGTH 10.

  TYPES:
    BEGIN OF ty_result,
      fee    TYPE ty_amount,
      reason TYPE ty_reason,
    END OF ty_result.

  CONSTANTS:
    BEGIN OF c_reason,
      ok      TYPE ty_reason VALUE 'OK',
      species TYPE ty_reason VALUE 'SPECIES',
      weight  TYPE ty_reason VALUE 'WEIGHT',
    END OF c_reason.

  METHODS calculate
    IMPORTING iv_species    TYPE ty_species
              iv_weight     TYPE ty_weight
              iv_emergency  TYPE abap_bool
              iv_registered TYPE abap_bool
    RETURNING VALUE(rs_result) TYPE ty_result.
ENDINTERFACE.