EDIT

    // TODO we may want to implement a derivedUnitFacade/{uuid}/annotations service and use that instead

    $cdm_entity_type = $cdm_entity->fieldUnitEntityReference->type;

    $cdm_entity_uuid = $cdm_entity->fieldUnitEntityReference->uuid;

  } else {

    if (isset($cdm_entity->uuid)) {

      $cdm_entity_uuid = $cdm_entity->uuid;

      }

    }

    $taxon_name_page->content = $content;

    RenderHints::popFromRenderStack();

  );

  // name

  if($registration_dto->nameRef){

    $name = cdm_ws_get(CDM_WS_PORTAL_NAME, $registration_dto->nameRef->uuid);

    cdm_load_tagged_full_title($name);

    $render_array['nomenclatural_act']['published_name'] = markup_to_render_array('<div class="published-name">' . render_taxon_or_name($name, url(path_to_name($name->uuid))) . '</div>', 0);

    $name_relations = cdm_ws_fetch_all(str_replace("$0", $registration_dto->nameRef->uuid, CDM_WS_PORTAL_NAME_NAME_RELATIONS));

  } else {

    // in this case the registration must have a

    $name = cdm_ws_get(CDM_WS_PORTAL_NAME, $registration_dto->typifiedNameRef->uuid);

    $render_array['typified_name'] = markup_to_render_array('<p class="typified-name">for ' . render_taxon_or_name($name, url(path_to_name($name->uuid))) . '</p>', 40);

  }

  // typedesignation in detail

  if(is_object($registration_dto->orderdTypeDesignationWorkingSets)) {

    $field_unit_uuids = array();

        drupal_set_message("Unimplemented type: " . $tokens[0], 'error');

      }

    }

    if (count($name_type_designation_refs) > 0) {

      $render_array['nomenclatural_act']['name_type_designations'] = compose_name_type_designations($name_type_designation_refs);

      $render_array['nomenclatural_act']['name_type_designations']['#prefix'] = '<p class="name_type_designations">';

    }

  }

  // citation

  if ($with_citation) {

    $render_array['citation'] = markup_to_render_array(

      $render_array['nomenclatural_act']['#weight'] + 10 );

  }

  );

  // registration date and office

        }

        $out .= ': ' . render_taxon_or_name($name_type_designation->typeName, $link_to_name_page, $referenceUri, TRUE, TRUE);

      }

    }

  } // END NameTypeDesignation

      }

      $out .= '<'. $element_tag .' class="' . html_class_attribute_ref($specimen_type_designation) . '">';

      $out .= type_designation_status_label_markup($specimen_type_designation) . $type_citation_markup;

        if($link_to_specimen_page && isset($derivedUnitFacadeInstance->specimenLabel) && $derivedUnitFacadeInstance->specimenLabel){

          $specimen_markup = str_replace($derivedUnitFacadeInstance->specimenLabel, l($derivedUnitFacadeInstance->specimenLabel, path_to_specimen($specimen_type_designation->typeSpecimen->uuid)), $specimen_markup);

        }

        $out .= ': <span class="' . html_class_attribute_ref($specimen_type_designation->typeSpecimen) . '">'

          . $specimen_markup

          . '</span>'; // . ': ' . theme('cdm_specimen', array('specimenTypeDesignation' => $derivedUnitFacadeInstance));

        if(!empty($derivedUnitFacadeInstance->preferredStableUri)){

          $out .= ' ' . l($derivedUnitFacadeInstance->preferredStableUri, $derivedUnitFacadeInstance->preferredStableUri, array('absolute' => true));

        }

      }

          'bibliography_aware' => false

        ),

        '',

      );

      $encasement =  $textual_type_designation->verbatim ? '"' : '';

      $out .= '<' . $element_tag . ' class="' . html_class_attribute_ref($textual_type_designation) . '">' . type_designation_status_label_markup(null)

    }

  }

  // footnotes should be rendered in the parent element so we

  // are relying on the FootnoteListKey set there

  $_fkey = FootnoteManager::addNewFootnote(

/**

 * Composes the TypedEntityReference to name type designations passed as associatve array.

 *

 *   an associative array of name type type => TypedEntityReference for name type designations as

 *   produced by the eu.etaxonomy.cdm.api.service.name.TypeDesignationSetManager

 *

 * @ingroup compose

 */

  $render_array = array();

  $preferredStableUri = '';

      if(isset($type_designation->typeSpecimen->preferredStableUri) && $type_designation->typeSpecimen->preferredStableUri){

        $preferredStableUri = $type_designation->typeSpecimen->preferredStableUri;

      }

        . ($preferredStableUri ? " ". l($preferredStableUri,  $preferredStableUri) : '')

        . '</div>');

      }

  }

  $render_array = array();

  $type_designation_list = array();

  uksort($type_entity_refs, "compare_type_designation_status_labels");

  foreach($type_entity_refs as $type_status => $type_designation_entity_refs){

      // annotations and sources for the $derived_unit_facade_dto

      $annotations_and_sources = handle_annotations_and_sources(

        $derived_unit_facade_dto,

        '',

      );

      $source_citations = $annotations_and_sources['source_references'];

      $foot_note_keys = $annotations_and_sources['foot_note_keys'];

  return $render_array;

}

/**

 * @param $name_rel

 * @param $current_name_uuid

  $render_array = compose_name_relationships($name_relations, $name_rel_type_filter, $current_name_uuid, $current_taxon_uuid, $list_prefix, $list_suffix, $item_prefix, $item_suffix);

  RenderHints::popFromRenderStack();

  if(RenderHints::getFootnoteListKey() == $key) {

    RenderHints::clearFootnoteListKey();

  }

  return $render_array;

  return $out;

}

/**

 * @todo Please document this function.

 * @see http://drupal.org/node/1354