FUNCTION {{p}}glaz_fee
  IMPORTING
    iv_width_mm  TYPE i
    iv_height_mm TYPE i
    iv_glass     TYPE string
    iv_urgent    TYPE abap_bool
  EXPORTING
    ev_fee       TYPE decfloat34
  EXCEPTIONS
    invalid_input.

  DATA lo_calc TYPE REF TO {{p}}glaz_calc.
  lo_calc = NEW #( ).

  TRY.
      ev_fee = lo_calc->calculate(
        iv_width_mm  = iv_width_mm
        iv_height_mm = iv_height_mm
        iv_glass     = iv_glass
        iv_urgent    = iv_urgent ).
    CATCH cx_abap_invalid_value.
      RAISE invalid_input.
  ENDTRY.

ENDFUNCTION.