renalware-core 2.0.146 → 2.0.152

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

data/app/components/renalware/patients/side_menu_component.rb

@@ -2,17 +2,8 @@
 
 module Renalware
   module Patients
-    # Experimental ActionView component
-    class SideMenuComponent < ActionView::Component::Base
-      validates :patient, presence: true
-
-      def initialize(patient:)
-        @patient = patient
-      end
-
-      private
-
-      attr_reader :patient
+    class SideMenuComponent < ApplicationComponent
+      pattr_initialize [:patient!]
     end
   end
 end

data/app/components/renalware/pd/adequacy_results_component.html.slim

@@ -0,0 +1,9 @@
+- if results.any?
+
+  article
+    header
+      h2= title
+      = link_to "Add", renalware.new_patient_pd_adequacy_result_path(patient), class: :button
+      = link_to "Show all", renalware.patient_pd_adequacy_results_path(patient), remote: true, class: "float-none button flex-initial secondary"
+    #adequacy-results-table
+      = render "renalware/pd/adequacy_results/table", results: results, current_user: current_user

data/app/components/renalware/pd/adequacy_results_component.rb

@@ -0,0 +1,39 @@
+# frozen_string_literal: true
+
+require_dependency "renalware/surveys"
+
+module Renalware
+  module PD
+    class AdequacyResultsComponent < ApplicationComponent
+      include BooleanHelper
+      include Pagy::Backend
+      include Pagy::Frontend
+      include ToggleHelper
+      pattr_initialize [:patient!, :current_user!]
+      attr_reader :pagination
+
+      TITLE = "Adequacy Results"
+
+      def results
+        @results ||= begin
+          @pagination, @results = pagy(scope, items: 6) # , link_extra: "data-remote='true'")
+          @results
+        end
+      end
+
+      def title
+        if pagination.items < pagination.count
+          "#{TITLE} (#{pagination.items} of #{pagination.count})"
+        else
+          "#{TITLE} (#{pagination.items})"
+        end
+      end
+
+      private
+
+      def scope
+        AdequacyResult.for_patient(patient).ordered
+      end
+    end
+  end
+end

data/app/components/renalware/pd/pet_results_component.html.slim

@@ -0,0 +1,37 @@
+- if results.any?
+
+  article(data-controller="tabs" data-tabs-active-tab="opacity-100" data-tabs-index="0")
+    header
+      h2= title
+
+
+
+      /.flex.flex-row-reverse
+      .flex.justify-end
+
+        .inline-flex
+          a.reset.opacity-50.bg-white.m-05.pt-px.pb-0.px-1(href="#" data-target="tabs.tab"
+            data-action="click->tabs#change")
+            svg.h-6.w-6.fill-current.text-black xmlns="http://www.w3.org/2000/svg" viewBox="0 0 20 20"
+              path d="M1 4h2v2H1V4zm4 0h14v2H5V4zM1 9h2v2H1V9zm4 0h14v2H5V9zm-4 5h2v2H1v-2zm4 0h14v2H5v-2z"
+
+          a.reset.opacity-50.bg-white.m-0.pt-px.px-2(data-target="tabs.tab" href="#"
+            data-action="click->tabs#change")
+            svg.h-6.w-6.stroke-current.text-black viewBox="0 0 24 26"  stroke-width="3" stroke-linecap="round" stroke-linejoin="round"
+              path d="M12 20V10M18 20V4M6 20v-4"
+
+        = link_to "Show all", renalware.patient_pd_pet_results_path(patient), remote: true, class: "float-none button flex-initial secondary"
+        = link_to "Add", renalware.new_patient_pd_pet_result_path(patient), class: "float-none button flex-initial"
+    div#pet-results-table data-target="tabs.panel"
+
+      = render "renalware/pd/pet_results/table",
+               patient: patient,
+               results: results,
+               pagination: pagination,
+               current_user: current_user
+
+    .chart.hidden.mt-5 data-target="tabs.panel"
+      div(style="display:block; position:relative; height: 400px; width: 100%; text-align: center; margin-bottom: 20px")
+        #containerx(data-controller="pd-pet-chart"
+                    data-pd-pet-chart-url=renalware.patient_pd_pet_results_path(patient, format: :json)
+                    style="position: absolute; left: 0; top: 30px; max-width: 700px")

data/app/components/renalware/pd/pet_results_component.rb

@@ -0,0 +1,84 @@
+# frozen_string_literal: true
+
+require_dependency "renalware/surveys"
+
+module Renalware
+  module PD
+    class PETResultsComponent < ApplicationComponent
+      include Pagy::Backend
+      include Pagy::Frontend
+      include ToggleHelper
+      include DropdownButtonHelper
+      attr_reader :patient, :pagination, :current_user
+
+      TITLE = "PET Results"
+
+      def initialize(patient:, current_user:)
+        @patient = PD.cast_patient(patient)
+        @current_user = current_user
+      end
+
+      def results
+        @results ||= begin
+          @pagination, @results = pagy(scope, items: 6)
+          @results
+        end
+      end
+
+      def title
+        if pagination.items < pagination.count
+          "#{TITLE} (#{pagination.items} of #{pagination.count})"
+        else
+          "#{TITLE} (#{pagination.items})"
+        end
+      end
+
+      def graph_data
+        patient
+          .pet_results
+          .where("d_pcr is not null and net_uf is not null")
+          .order(performed_on: :asc)
+          .pluck(:d_pcr, :net_uf)
+      end
+
+      # TODO: Finish adding plot bands and fix xaxis. Need to build this graph
+      # in codepen outside of the app so we can experiment - at the moment
+      # the x axis is built from the data series (pcr), which is not linear.
+      # So we need to specify the x axis and the series data separately.
+      # Best to use highcharts natively perhaps and skip the chartkick wrapper.
+      # rubocop:disable Metrics/MethodLength
+      def graph_options
+        {
+          xtitle: "D/Pcr",
+          ytitle: "net UF",
+          curve: false,
+          discrete: true, # required to allow points to double back on themselves
+          library: {
+            xAxis: {
+              plotBands: [
+                {
+                  from: 0.0,
+                  to: 0.5,
+                  color: "rgba(68, 170, 213, 0.1)",
+                  label: {
+                    text: "Low",
+                    style: {
+                      color: "#606060"
+                    }
+                  }
+                }
+              ]
+            }
+          }
+        }
+      end
+      # rubocop:enable Metrics/MethodLength
+
+      private
+
+      def scope
+        patient.pet_results.ordered
+      end
+    end
+  end
+end

data/app/{views/renalware/surveys/_eq5d_summary_part.html.slim → components/renalware/surveys/eq5d_component.html.slim}

@@ -4,23 +4,23 @@
       h2 EQ5D
 
     / b Example WIP for charting one question over time
-    / = line_chart(eq5d_summary_part.data_for_question_code(1), curve: false)
+    / = line_chart(data_for_question_code(1), curve: false)
     / br
     / br
     / br
 
-    - return if eq5d_summary_part.rows.blank?
+    - return if rows.blank?
 
     .xsss
       table
         thead
           tr
             th.col-width-date Date
-            - eq5d_summary_part.question_labels.each do |code, label|
+            - question_labels.each do |code, label|
               th= label
         tbody
-          - eq5d_summary_part.rows.each do |row|
+          - rows.each do |row|
             tr
               td= row.answered_on
-              - eq5d_summary_part.question_labels.each do |code, label|
+              - question_labels.each do |code, label|
                 td= row.send(code.to_sym)

data/app/{models/renalware/surveys/eq5d_summary_part.rb → components/renalware/surveys/eq5d_component.rb}

@@ -4,7 +4,13 @@ require_dependency "renalware/surveys"
 
 module Renalware
   module Surveys
-    class EQ5DSummaryPart < Renalware::SummaryPart
+    class EQ5DComponent < ApplicationComponent
+      attr_reader :patient
+
+      def initialize(patient:)
+        @patient = patient
+      end
+
       def rows
         @rows ||= EQ5DPivotedResponse.where(patient_id: patient.id)
       end
@@ -39,10 +45,6 @@ module Renalware
         end
       end
 
-      def to_partial_path
-        "renalware/surveys/eq5d_summary_part"
-      end
-
       def survey
         @survey ||= Renalware::Surveys::Survey.find_by!(code: "eq5d")
       end

data/app/{views/renalware/surveys/_pos_s_summary_part.html.slim → components/renalware/surveys/pos_s_component.html.slim}

@@ -1,6 +1,3 @@
-/
-/ TODO: this could do with refactoring to move the formatting code into a helper or presenter.
-/
 .summary-part--pos_s
   article
     header
@@ -12,7 +9,7 @@
     / br
     / br
 
-    - return if pos_s_summary_part.rows.blank?
+    - return if rows.blank?
 
     br
     br
@@ -25,19 +22,19 @@
             th.togglers= rows_toggler
             th.col-width-date.valign-bottom Date
             th.col-width-tiny.valign-bottom Total
-            - pos_s_summary_part.question_labels.each do |code, label|
+            - question_labels.each do |code, label|
               th.rotate
                 div
                   span= label
 
         - superscript_char = 97
-        - pos_s_summary_part.rows.each do |row|
+        - rows.each do |row|
           tbody
             tr
               td= row_toggler
               td= row.answered_on
               td= row.total_score
-              - pos_s_summary_part.question_labels.each do |code, label|
+              - question_labels.each do |code, label|
                 - value = row.send(code.to_sym)
                 - patient_question_text = row.try(:"#{code}_patient_question_text")
                 td(class="pos-s--#{value}")
@@ -52,9 +49,9 @@
                 |  
               td
               td
-              td(class="summary-part--pos_s-patient-question-text" colspan=(pos_s_summary_part.question_labels.count ))
+              td(class="summary-part--pos_s-patient-question-text" colspan=(question_labels.count ))
                 - superscript_char = 97
-                - pos_s_summary_part.question_labels.each do |code, label|
+                - question_labels.each do |code, label|
                   - patient_question_text = row.try(:"#{code}_patient_question_text")
                   - if patient_question_text
                     sup= superscript_char.chr
@@ -75,3 +72,5 @@
         dd Severely
         dt.pos-s--4 4
         dd Overwhelmingly
+        dt= image_tag(asset_path("renalware/icons/chevron-down.svg"), width: "15px")
+        dd Toggle rows to see any textual answers

data/app/{models/renalware/surveys/pos_s_summary_part.rb → components/renalware/surveys/pos_s_component.rb}

@@ -4,7 +4,15 @@ require_dependency "renalware/surveys"
 
 module Renalware
   module Surveys
-    class POSSSummaryPart < Renalware::SummaryPart
+    class POSSComponent < ApplicationComponent
+      include ToggleHelper
+
+      attr_reader :patient
+
+      def initialize(patient:)
+        @patient = patient
+      end
+
       # Backed by a SQL view
       def rows
         @rows ||= POSSPivotedResponse.where(patient_id: patient.id)
@@ -15,8 +23,8 @@ module Renalware
           survey
             .questions
             .order(:position)
-            .select(:code, :label)
-            .each_with_object({}) { |q, hash| hash[q.code] = q.label }
+            .select(:code, :label, :label_abbrv)
+            .each_with_object({}) { |q, hash| hash[q.code] = q.admin_label }
         end
       end
 
@@ -43,10 +51,6 @@ module Renalware
         end
       end
 
-      def to_partial_path
-        "renalware/surveys/pos_s_summary_part"
-      end
-
       def survey
         @survey ||= Renalware::Surveys::Survey.find_by!(code: "prom")
       end