if ($event->{eventType} eq 'ADD_BAG') { if ($event->{site} && $event->{site}->{location}) { my $site_option = first { $_->{id} == $event->{site}->{location} } @$site_options; $event->{site}->{locationName} = $site_option->{name}; } if ($event->{infusionRate} && $event->{infusionRate}->{unitId}) { my $fdb_unit_of_measure = BusCall::FDB::GetUnitOfMeasure($dbh, { ID => $event->{infusionRate}->{unitId}, }); $event->{infusionRate}->{unitName} = $fdb_unit_of_measure->{Abbreviation}; } if ($event->{ivDiluentDetails} && $event->{ivDiluentDetails}->{diluentClinicalOrderTypeId}) { my $diluent_option = first { $_->{id} == $event->{ivDiluentDetails}->{diluentClinicalOrderTypeId} } @$clinical_order_types; $event->{ivDiluentDetails}->{diluentName} = $diluent_option->{name}; } push @{$event_data{$event->{eventType}}}, { %$event, completedProviderName => $administering_provider_names->{$event->{completedUsername}}, }; } This condition