renalware-core 2.0.149 → 2.0.156

data/app/assets/stylesheets/renalware/partials/_utilities.scss

@@ -31,3 +31,15 @@
   height: 1px; width: 1px;
   margin: -1px; padding: 0; border: 0;
 }
+
+a.reset {
+  &:hover,
+  &:visited,
+  &:focus,
+  &:active,
+  &:link
+  {
+    color: unset;
+    background-color: unset;
+  }
+}

data/app/assets/stylesheets/tailwind/tailwind.css

@@ -0,0 +1,3 @@
+@import "tailwindcss/base";
+@import "tailwindcss/components";
+@import "tailwindcss/utilities";

data/app/components/renalware/admissions/active_consult_alert_component.html.slim

@@ -0,0 +1,4 @@
+li.patient-alert.bg-pink-200.text-gray-700
+  i.fas.fa-exclamation-triangle
+  span.title
+    = link_to "Active Consult", renalware.edit_admissions_consult_path(id: consult_id)

data/app/components/renalware/admissions/active_consult_alert_component.rb

@@ -0,0 +1,25 @@
+# frozen_string_literal: true
+
+module Renalware
+  module Admissions
+    # rubocop:disable Rails/Pick
+    class ActiveConsultAlertComponent < ApplicationComponent
+      pattr_initialize [:current_user, :patient!]
+
+      def consult_id
+        @consult_id ||= begin
+          Consult
+            .where(patient_id: patient.id, ended_on: nil)
+            .order(started_on: :desc)
+            .pluck(:id)
+            .first
+        end
+      end
+
+      def render?
+        consult_id.present?
+      end
+    end
+    # rubocop:enable Rails/Pick
+  end
+end

data/app/components/renalware/application_component.rb

@@ -1,9 +1,10 @@
 # frozen_string_literal: true
 
 module Renalware
-  class ApplicationComponent < ActionView::Component::Base
+  class ApplicationComponent < ViewComponent::Base
     include Renalware::Engine.routes.url_helpers
     include Pundit::Helper
+    delegate :current_user, :policy, to: :helpers
 
     # Not sure why include Renalware::Engine.routes.url_helpers does not make the
     # engine urls visible in the views (seems to resolve alwatys to /assets?..)

data/app/components/renalware/article_component.html.slim

@@ -0,0 +1,5 @@
+article
+  header.flex.flex-row
+    h2.flex-grow== title || title_link
+    .flex-row= actions
+  = content

data/app/components/renalware/article_component.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+module Renalware
+  # Renders article markup with ttle and optional actions etc.
+  # We use <article> extensively so this is a useful component that lets us
+  # build more and more useful components. Other components can use this component
+  # in their markup.
+  class ArticleComponent < ApplicationComponent
+    pattr_initialize [:title]
+    with_content_areas :title_link, :actions
+  end
+end

data/app/components/renalware/events/{biopsies_component.html.slim → event_list_component.html.slim}

@@ -1,14 +1,15 @@
 article.events
   header
-    h2 Biopsies
+    h2= title
     .supplemental
-      span= "#{biopsies.length} of #{total_biopsies}"
+      span= "#{event_count} of #{total_event_count}"
       span.noprint
         = link_to "View All",
                   renalware.patient_events_path(patient),
                   class: "button secondary"
 
+  / NB: Perhaps this component should not lean on external partials?
   = render "renalware/events/events/table",
-           events: biopsies,
+           events: events,
            exclude_type_column: true,
-           toggle_prefix: "biopsy"
+           description_column_title: description_column_title

data/app/components/renalware/events/event_list_component.rb

@@ -0,0 +1,82 @@
+# frozen_string_literal: true
+
+module Renalware
+  module Events
+    # A generic view component for displaying a summarised list of events of a certain
+    # type - for example Biopsy events - to add to a dashboard or MDM.
+    # Once we have configurable dashboards and MDMs it should be possible to
+    # drop this component onto a dashboard and configure the event class and perhaps
+    # some other custom parameters, and at run time the dashboard is constructed
+    # and will include the requested component. In this way you could choose to
+    # add say list components which each display a different class of event.
+    # Obviously some more thought needs to go into this but as a direction of
+    # travel it has many advantages - for example a hospital can configure the default
+    # dashboards and MDMs, perhaps depending on the user's role, but an individual user
+    # could override and build their own.
+    # Some parameters to think about when configuring an event component
+    # - event class or description - where does the event_type fit in?
+    # - the AR scope to use and whether this affects sorting
+    # - the title displayed above the list of events - is this i18n, derived from the
+    #   event type/class, or configured when the dashboard is designed?
+    # - to what extent to the event partials affect display? We have these to help us
+    #   build form inputs and display content in table cell/toggled cells, but is this flexible
+    #   enough - e.g. is only have a Description HTML table column sufficient for displaying
+    #   multiple custom event properties (defined in the event's document) or do we need to allow
+    #   partials that control table structure?
+    #
+    # Perhaps a datavase-backed component configuration model could be passed into this component to
+    # drive the display - eg hide_if_no_data of not.
+    class EventListComponent < ApplicationComponent
+      pattr_initialize [
+        :patient!,
+        :event_class!,
+        limit: 6,
+        hide_if_no_data: false # if true and there are no events, nothing will be rendered
+      ]
+
+      # This assumes the event class has a scope called #ordered
+      def events
+        @events ||= begin
+          CollectionPresenter.new(
+            relation.includes(:created_by).ordered.limit(limit),
+            Events::EventPresenter
+          )
+        end
+      end
+
+      def event_count
+        @event_count ||= events.length
+      end
+
+      def total_event_count
+        @total_event_count ||= relation.count
+      end
+
+      def title
+        t(:title)
+      end
+
+      def description_column_title
+        t(:description_column_title)
+      end
+
+      # There is the option to prevent anything from displaying if we expose the
+      # render? method and return false
+      def render?
+        return true unless hide_if_no_data
+
+        event_count > 0
+      end
+
+      private
+
+      def relation
+        @relation ||= event_class.for_patient(patient)
+      end
+
+      def t(str)
+        I18n.t(str, scope: event_class.name.underscore, default: "Description")
+      end
+    end
+  end
+end

data/app/components/renalware/hd/administer_prescription_dropdown_component.rb

@@ -5,11 +5,7 @@ module Renalware
     class AdministerPrescriptionDropdownComponent < ApplicationComponent
       include DropdownButtonHelper
       include PresenterHelper
-      attr_reader :patient
-
-      def initialize(patient:)
-        @patient = patient
-      end
+      pattr_initialize [:patient!]
 
       def prescriptions_to_give_on_hd
         @prescriptions_to_give_on_hd ||= begin

data/app/components/renalware/hd/prescription_last_administration_component.html.slim

@@ -1,4 +1,3 @@
-- return unless last_administration
 .panel
   b= "Last given on #{l(last_administration.recorded_on, format: :long)} by #{last_administration.administered_by}"
   - if last_administration.notes.present?

data/app/components/renalware/hd/prescription_last_administration_component.rb

@@ -3,16 +3,17 @@
 module Renalware
   module HD
     class PrescriptionLastAdministrationComponent < ApplicationComponent
-      attr_reader :prescription
-      validates :prescription, presence: true
-
-      def initialize(prescription:)
-        @prescription = prescription
-      end
+      pattr_initialize [:prescription!]
 
       def last_administration
+        return if prescription.blank?
+
         @last_administration ||=
-          PrescriptionLastAdministrationQuery.new(prescription: prescription).call
+          PrescriptionLastAdministrationQuery.call(prescription: prescription)
+      end
+
+      def render?
+        last_administration.present?
       end
     end
   end

data/app/components/renalware/letters/unread_electronic_ccs_component.rb

@@ -3,6 +3,7 @@
 module Renalware
   module Letters
     class UnreadElectronicCCsComponent < ApplicationComponent
+      include Pundit::Helper
       attr_reader :current_user
 
       def initialize(current_user:)

data/app/components/renalware/medications/tabbed_prescriptions_list_component.html.slim

@@ -0,0 +1,41 @@
+div(data-controller="tabs" data-tabs-active-tab="active")
+  .tabs-container
+    ul.list-reset.sub-nav
+      - groups.each do |group|
+        li(data-target="tabs.tab" data-action="click->tabs#change")
+          a(class="" href="#" data-trigger-masonry-refresh="true")= group.title
+
+  - groups.each do |group|
+    .hidden(data-target="tabs.panel")
+      table.prescriptions-list
+        thead
+          tr
+            th.at-least.col-width-mediumish= t(".drug_name")
+            - if group.show_drug_types
+              th.col-width-small= t(".drug_type")
+            th.col-width-small= t(".dose")
+            th.col-width-tiny= t(".frequency")
+            th.col-width-tiny= t(".route")
+            - if group.show_administer_on_hd
+              th.col-width-small= t(".administer_on_hd")
+            th.col-width-tiny=t(".provider")
+            th.col-width-date= t(".started_on")
+            - if group.show_terminated_on
+              th.col-width-date= t(".terminated_on")
+        tbody
+          - group.prescriptions.each do |prescription|
+            tr class="drug-#{drug_types_colour_tag(prescription.drug_types)}"
+              td= prescription.drug.name
+              - if group.show_drug_types
+                td= prescription.drug_type_names
+              td= prescription.dose
+              td= prescription.frequency
+              td= prescription.route_code
+              - if group.show_administer_on_hd
+                td= prescription.administer_on_hd?
+              td
+                /- byebug
+                = prescription.provider
+              td= I18n.l prescription.prescribed_on
+              - if group.show_terminated_on
+                td= l(prescription.terminated_on)

data/app/components/renalware/medications/tabbed_prescriptions_list_component.rb

@@ -0,0 +1,47 @@
+# frozen_string_literal: true
+
+module Renalware
+  module Medications
+    # Accepts a group of prescriptions -  see example usage - and renders a tabs for each of the
+    # group names with their corresponding tablular content.
+    # Various options - see PrescriptionGroup - drive what columns are shown.
+    #
+    # Example usage:
+    #
+    # = render Renalware::Medications::TabbedPrescriptionsListComponent.new(
+    #   [
+    #      { title: "Current", prescriptions: list1, show_administer_on_hd: true },
+    #      { title: "EPO", prescriptions: list2, show_terminated_on: true }
+    #   ]
+    class TabbedPrescriptionsListComponent < ApplicationComponent
+      include DrugsHelper
+      attr_reader :groups
+
+      class PrescriptionGroup
+        attr_reader_initialize [
+          :title,
+          :prescriptions,
+          show_terminated_on: true,
+          show_administer_on_hd: true,
+          show_drug_types: false
+        ]
+
+        # The markup expects each prescription to have been decorated with a PresriptionPresenter.
+        # However there may be cases where they might have been, so we check by
+        # (looking for a method which is defined by the presenter) and decorate them if necessary.
+        def prescriptions
+          @prescriptions.map do |presc|
+            presc.respond_to?(:drug_type_names) ? presc : PrescriptionPresenter.new(presc)
+          end
+        end
+      end
+
+      # Map the incoming array of hashes to an array of PrescriptionGroup objects to make
+      # interrogation easier in the html.
+      def initialize(prescription_groups)
+        @groups = Array(prescription_groups).map { |options| PrescriptionGroup.new(options) }
+        super
+      end
+    end
+  end
+end

data/app/components/renalware/pathology/chart_component.html.slim

@@ -0,0 +1,5 @@
+- cache(self, expires_in: 1.day) do
+  - if chart_data.any?
+    = area_chart chart_data, options.merge(id: dom_id,  width: 350)
+  - else
+    h4 No data

data/app/components/renalware/pathology/chart_component.rb

@@ -0,0 +1,40 @@
+# frozen_string_literal: true
+
+module Renalware
+  module Pathology
+    class ChartComponent < ApplicationComponent
+      pattr_initialize [:current_user!, :patient!, :observation_description!]
+
+      def chart_data
+        @chart_data ||= begin
+          Pathology.cast_patient(patient)
+            .observations
+            .where(description_id: observation_description.id)
+            .order(:observed_at)
+            .pluck([:observed_at, :result])
+        end
+      end
+
+      # TODO: cache key should expire when a new observation arrives of this type
+      def cache_key
+        "#{patient.cache_key}/chart/#{observation_description.id}"
+      end
+
+      # Because we cache the component html inside the view sidecar, we want to
+      # avoid implementing this method properly - ie checking if there anything
+      # to render - as that would involve querying the database, thus negating
+      # the befit of any caching.
+      def render?
+        true
+      end
+
+      def options
+        {}
+      end
+
+      def dom_id
+        @dom_id ||= ActionView::RecordIdentifier.dom_id(observation_description)
+      end
+    end
+  end
+end

data/app/components/renalware/pathology/sparkline_component.html.slim

@@ -0,0 +1,15 @@
+- cache(self, expires_in: 1.day) do
+  - if chart_data.any?
+    - use_stimulus = false
+
+    - if use_stimulus
+      / This is the stimulusjs version. See sparklines_controller.js
+      div(data-controller="pathology-sparklines"
+          data-pathology-sparklines-chart-data='[["2010-06-03T16:37:00.000+01:00","106"], ["2011-06-03T16:37:00.000+01:00","110"]]')
+        div(data-target="pathology-sparklines.chart")
+    - else
+      / This implementation uses ChartKick to insert the chart javascript into the
+      / page. It works fine, but when there are 50 path results on screen, we are
+      / inserting 50 copies of the chart defition and options. Hence a stimulusjs
+      / approach might be better.
+      = area_chart chart_data, options.merge(height: 15, width: 80, id: dom_id)

data/app/components/renalware/pathology/sparkline_component.rb

@@ -0,0 +1,135 @@
+# frozen_string_literal: true
+
+# rubocop:disable Metrics/ClassLength
+module Renalware
+  module Pathology
+    # Renders a pathology sparkline - a small graph of patient results for a particular
+    # OBX (observation_description) over time.
+    # TODO: Move the graph config into JS. Possibly use a stimulus controller
+    class SparklineComponent < ApplicationComponent
+      pattr_initialize [:current_user!, :patient!, :observation_description!]
+
+      CHART_OPTIONS = {
+        library: {
+          chart: {
+            type: "area",
+            margin: [0, 0, 0, 0],
+            height: 20,
+            width: 80,
+            skipClone: true,
+            style: {
+              overflow: "visible"
+            }
+          },
+          credits: {
+            enabled: false
+          },
+          title: "",
+          xAxis: {
+            type: "datetime",
+            tickPositions: [],
+            labels: {
+              enabled: false
+            },
+            startOnTick: false,
+            endOnTick: false,
+            title: {
+              text: nil
+            }
+          },
+          legend: {
+            enabled: false
+          },
+          yAxis: {
+            tickPositions: [0],
+            endOnTick: false,
+            startOnTick: false,
+            title: {
+              text: nil
+            },
+            min: 0,
+            labels: {
+              enabled: false
+            }
+          },
+          tooltip: {
+            hideDelay: 0,
+            outside: true,
+            shared: true,
+            xDateFormat: "%d-%b-%Y"
+          },
+          plotOptions: {
+            area: {
+              fillColor: {
+                linearGradient: {
+                  x1: 0,
+                  y1: 0,
+                  x2: 0,
+                  y2: 1
+                },
+                stops: [
+                  [0, "#eee"],
+                  [0.5, "#fff"]
+                ]
+              }
+            },
+            series: {
+              animation: false,
+              lineWidth: 1,
+              shadow: false,
+              states: {
+                hover: {
+                  lineWidth: 1
+                }
+              },
+              marker: {
+                radius: 1,
+                states: {
+                  hover: {
+                    radius: 2
+                  }
+                }
+              },
+              fillOpacity: 0.25
+            },
+            column: {
+              negativeColor: "#910000",
+              borderColor: "silver"
+            }
+          }
+        }
+      }.freeze
+
+      def chart_data
+        @chart_data ||= begin
+          patient
+            .observations
+            .where(description_id: observation_description.id)
+            .order(:observed_at)
+            .pluck([:observed_at, :result])
+        end
+      end
+
+      def cache_key
+        "#{patient.cache_key}/sparkline/#{observation_description.id}"
+      end
+
+      # Because we cache the component html inside the view sidecar, we want to
+      # avoid implementing this method properly - ie checking if there anything
+      # to render - as that would involve querying the database, thus negating
+      # the befit of any caching.
+      def render?
+        true
+      end
+
+      def options
+        CHART_OPTIONS
+      end
+
+      def dom_id
+        @dom_id ||= ActionView::RecordIdentifier.dom_id(observation_description)
+      end
+    end
+  end
+end
+# rubocop:enable Metrics/ClassLength