FUNCTION {{p}}shelter_sample
  IMPORTING
    iv_species TYPE string
  EXPORTING
    ev_slots TYPE i.

  ev_slots = 0.
  IF iv_species IS NOT INITIAL.
    ev_slots = 1.
  ENDIF.

ENDFUNCTION.