renalware-core 2.0.111 → 2.0.112

data/app/models/renalware/hd/session_forms/batch_item.rb

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+require "attr_extras"
+require_dependency "renalware/hd"
+
+module Renalware
+  module HD
+    module SessionForms
+      class BatchItem < ApplicationRecord
+        belongs_to :batch, counter_cache: true
+        enum status: { queued: 0, compiled: 10 }
+      end
+    end
+  end
+end

data/app/models/renalware/hd/session_forms/form.rb

@@ -0,0 +1,16 @@
+# frozen_string_literal: true
+
+require_dependency "renalware/hd"
+
+module Renalware
+  module HD
+    module SessionForms
+      class Form
+        include ActiveModel::Model
+        include Virtus::Model
+
+        attribute :patient_ids, String
+      end
+    end
+  end
+end

data/app/models/renalware/hd/session_forms/pdf_renderer.rb

@@ -0,0 +1,74 @@
+# frozen_string_literal: true
+
+module Renalware
+  module HD
+    module SessionForms
+      # Renders 1 or more HD Protocols (Session Forms) to PDF. If > 1 patient
+      class PdfRenderer
+        def initialize(patients:, output_html_for_debugging: false)
+          @patients = Array(patients)
+          @output_html_for_debugging = output_html_for_debugging
+        end
+
+        def call
+          return pdf_html if output_html_for_debugging?
+
+          WickedPdf.new.pdf_from_string(pdf_html, pdf_options)
+        end
+
+        private
+
+        attr_reader :patients, :output_html_for_debugging
+
+        def pdf_html
+          @pdf_html ||= begin
+            # Note we don't actually hit the ProtocolController#index action here.
+            controller.render_to_string(
+              template: "renalware/hd/protocols/index",
+              layout: "renalware/layouts/pdf",
+              locals: {
+                protocols: protocols_to_render,
+                host: "localhost"
+              }
+            )
+          end
+        end
+
+        def controller
+          @controller ||= MyController.new
+        end
+
+        def protocols_to_render
+          patients.map { |pat| ProtocolPresenter.new(pat, controller.view_context) }
+        end
+
+        def pdf_options
+          {
+            page_size: "A4",
+            orientation: "Landscape",
+            layout: "renalware/layouts/pdf",
+            print_media_type: true,
+            margin: { top: 10, bottom: 10, left: 10, right: 10 },
+            footer: {
+              font_size: 8
+            }
+          }
+        end
+
+        def output_html_for_debugging?
+          output_html_for_debugging == true
+        end
+
+        # Local ProtocolsController controller used for 'rendering anywhere'.
+        # Using ProtocolsController here m,ainly to benefit from the view paths associated with it.
+        class MyController < ProtocolsController
+          def url_options
+            {
+              host: ENV.fetch("HOST", "localhost")
+            }
+          end
+        end
+      end
+    end
+  end
+end

data/app/models/renalware/letters/batch.rb

@@ -6,6 +6,8 @@ module Renalware
   module Letters
     class Batch < ApplicationRecord
       include Accountable
+
+      # TODO: I think these attributes are dead
       attr_accessor(
         :url,
         :enclosures_present,

data/app/models/renalware/letters/printing/batch_compile_pdfs.rb

@@ -10,9 +10,6 @@ module Renalware
       # - compiles each letter along with its recipient cover sheets
       # - adds blank pages to make sure the letter always starts on an odd page
       # - appends all PDF letters
-      #   2-page documents (from the contents of the /2 folder)
-      # - moves these compiled PDFs to a network share.
-      # - removes the temp folder structure - auto
       class BatchCompilePdfs
         include PdfCombining
         PAGE_COUNTS = %w(2 3 4 5 6 7 8 9 10).freeze

data/app/models/renalware/medications/patient_listener.rb

@@ -5,7 +5,7 @@ require_dependency "renalware/medications"
 module Renalware
   module Medications
     class PatientListener
-      def patient_modality_changed_to_death(patient:, modality:, actor:)
+      def patient_modality_changed_to_death(patient:, actor:, **)
         TerminateAllPatientPrescriptions.call(patient: patient, by: actor)
       end
     end

data/app/models/renalware/pathology/ordered_patient_query.rb

@@ -19,7 +19,7 @@ module Renalware
       private
 
       def ids_index
-        ::SQL::IndexedCaseStmt.new(:id, @patient_ids).generate
+        ::SQL::IndexedCaseStmt.new("patients.id", @patient_ids).generate
       end
     end
   end

data/app/models/renalware/pathology/request_for_patient_request_description_query.rb

@@ -13,7 +13,7 @@ module Renalware
       def call
         @patient
           .requests
-          .joins(:request_descriptions)
+          .eager_load(:request_descriptions)
           .where(
             pathology_request_descriptions_requests_requests: {
               request_description_id: @request_description.id

data/app/models/renalware/pd/apd/non_tidal_regime_calculations.rb

@@ -15,7 +15,7 @@ module Renalware
         private
 
         def volume_calculable?
-          fill_volume.to_i > 0 && cycles.to_i > 0
+          fill_volume.to_i.positive? && cycles.to_i.positive?
         end
       end
     end

data/app/models/renalware/pd/apd/tidal_regime_calculations.rb

@@ -26,7 +26,7 @@ module Renalware
         def volume_calculable?
           raise ArgumentError, "Tidal indicator not set" unless tidal?
 
-          fill_volume.to_i > 0 && cycles.to_i > 0 && tidal_percentage.to_i > 0
+          fill_volume.to_i.positive? && cycles.to_i.positive? && tidal_percentage.to_i.positive?
         end
 
         def volume_when_1st_and_then_every_3rd_exchange_is_full_and_the_remainder_are_tidal

data/app/models/renalware/snippets/snippet_query.rb

@@ -6,7 +6,7 @@ module Renalware
       attr_reader :author, :relation
 
       def initialize(relation: nil, author:)
-        @relation ||= Snippet.includes(:author).all
+        @relation = relation || Snippet.includes(:author).all
         @author = author
       end
 

data/app/models/renalware/surveys.rb

@@ -0,0 +1,9 @@
+# frozen_string_literal: true
+
+module Renalware
+  module Surveys
+    def self.table_name_prefix
+      "survey_"
+    end
+  end
+end

data/app/models/renalware/surveys/eq5d_pivoted_response.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+
+require_dependency "renalware/surveys"
+
+module Renalware
+  module Surveys
+    class EQ5DPivotedResponse < ApplicationRecord
+      scope :ordered, -> { order(answered_on: :desc) }
+    end
+  end
+end

data/app/models/renalware/surveys/eq5d_summary_part.rb

@@ -0,0 +1,51 @@
+# frozen_string_literal: true
+
+require_dependency "renalware/surveys"
+
+module Renalware
+  module Surveys
+    class EQ5DSummaryPart < Renalware::SummaryPart
+      def rows
+        @rows ||= EQ5DPivotedResponse.where(patient_id: patient.id)
+      end
+
+      def question_labels
+        survey
+          .questions
+          .order(:position)
+          .select(:code, :label)
+          .each_with_object({}) { |q, hash| hash[q.code] = q.label }
+      end
+
+      def data_for_question_code(_code)
+        Renalware::Surveys::Response
+          .where(patient_id: patient.id, question_id: 1)
+          .pluck(:answered_on, :value)
+          .to_h
+      end
+
+      def column_headings
+        @column_headings ||= begin
+          headings = ["Date"]
+
+          headings.concat(
+            Renalware::Survey
+            .find_by!(code: "eq5d")
+            .questions
+            .order(:position)
+            .pluck(:label)
+          )
+          headings
+        end
+      end
+
+      def to_partial_path
+        "renalware/surveys/eq5d_summary_part"
+      end
+
+      def survey
+        @survey ||= Renalware::Surveys::Survey.find_by!(code: "eq5d")
+      end
+    end
+  end
+end

data/app/models/renalware/surveys/pos_s_pivoted_response.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+
+require_dependency "renalware/surveys"
+
+module Renalware
+  module Surveys
+    class POSSPivotedResponse < ApplicationRecord
+      scope :ordered, -> { order(answered_on: :desc) }
+    end
+  end
+end

data/app/models/renalware/surveys/pos_s_summary_part.rb

@@ -0,0 +1,51 @@
+# frozen_string_literal: true
+
+require_dependency "renalware/surveys"
+
+module Renalware
+  module Surveys
+    class POSSSummaryPart < Renalware::SummaryPart
+      def rows
+        @rows ||= POSSPivotedResponse.where(patient_id: patient.id)
+      end
+
+      def question_labels
+        survey
+          .questions
+          .order(:position)
+          .select(:code, :label)
+          .each_with_object({}) { |q, hash| hash[q.code] = q.label }
+      end
+
+      def data_for_question_code(_code)
+        Renalware::Surveys::Response
+          .where(patient_id: patient.id, question_id: 1)
+          .pluck(:answered_on, :value)
+          .to_h
+      end
+
+      def column_headings
+        @column_headings ||= begin
+          headings = ["Date"]
+
+          headings.concat(
+            Renalware::Survey
+            .find_by!(code: "prom")
+            .questions
+            .order(:position)
+            .pluck(:label)
+          )
+          headings
+        end
+      end
+
+      def to_partial_path
+        "renalware/surveys/pos_s_summary_part"
+      end
+
+      def survey
+        @survey ||= Renalware::Surveys::Survey.find_by!(code: "prom")
+      end
+    end
+  end
+end

data/app/models/renalware/surveys/question.rb

@@ -0,0 +1,22 @@
+# frozen_string_literal: true
+
+require_dependency "renalware/surveys"
+
+module Renalware
+  module Surveys
+    class Question < ApplicationRecord
+      include PatientScope
+      acts_as_paranoid
+      belongs_to :survey
+      has_many(
+        :responses,
+        class_name: "Response",
+        dependent: :nullify,
+        foreign_key: :question_id
+      )
+      validates :code, presence: true, uniqueness: { scope: :survey_id }
+      validates :label, presence: true
+      validates :position, presence: true
+    end
+  end
+end

data/app/models/renalware/surveys/response.rb

@@ -0,0 +1,28 @@
+# frozen_string_literal: true
+
+require_dependency "renalware/surveys"
+
+module Renalware
+  module Surveys
+    class Response < ApplicationRecord
+      belongs_to :question, class_name: "Question"
+      validates :patient_id, presence: true
+      validates :answered_on, presence: true
+      validates :question, presence: true
+      validate :value_is_in_range
+
+      private
+
+      def value_is_in_range
+        return if question&.validation_regex.blank?
+
+        unless value =~ /#{question.validation_regex}/
+          errors.add(
+            :value,
+            "(#{value}) must comply to regular expression /#{question.validation_regex}/"
+          )
+        end
+      end
+    end
+  end
+end

data/app/models/renalware/surveys/survey.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+
+require_dependency "renalware/surveys"
+
+module Renalware
+  module Surveys
+    class Survey < ApplicationRecord
+      acts_as_paranoid
+      has_many :questions, dependent: :destroy
+      validates :name, presence: true, uniqueness: true
+
+      def to_s
+        name
+      end
+    end
+  end
+end

data/app/models/renalware/ukrdc.rb

@@ -4,6 +4,9 @@ require_dependency "renalware"
 
 module Renalware
   module UKRDC
+    class SurveyNotFoundError < StandardError; end
+    class QuestionNotFoundError < StandardError; end
+
     def self.table_name_prefix
       "ukrdc_"
     end

data/app/models/renalware/ukrdc/incoming/file_list.rb

@@ -0,0 +1,21 @@
+# frozen_string_literal: true
+
+require "attr_extras"
+
+module Renalware
+  module UKRDC
+    module Incoming
+      class FileList
+        pattr_initialize [pattern: "*.xml", paths: Paths.new]
+
+        # Helper which yields each file in the incoming folder.
+        def each_file
+          Dir.glob(paths.incoming.join(pattern)).sort.each do |filepath|
+            filename = File.basename(filepath)
+            yield(Pathname(filepath), filename) if block_given?
+          end
+        end
+      end
+    end
+  end
+end

data/app/models/renalware/ukrdc/incoming/import_survey.rb

@@ -0,0 +1,57 @@
+# frozen_string_literal: true
+
+require_dependency "renalware/ukrdc"
+require "attr_extras"
+
+module Renalware
+  module UKRDC
+    module Incoming
+      class ImportSurvey
+        pattr_initialize [:patient, :survey_hash]
+
+        def call
+          responses.each do |question_code, answer|
+            question = question_having_code(question_code)
+
+            Surveys::Response.create!(
+              patient_id: patient.id,
+              question: question,
+              value: answer,
+              answered_on: answered_on
+            )
+          end
+        end
+
+        private
+
+        def responses
+          survey_hash[:responses]
+        end
+
+        def survey
+          @survey ||= begin
+            survey_code = survey_hash[:code].downcase
+            Surveys::Survey.includes(:questions).find_by!(code: survey_code)
+          end
+        rescue ActiveRecord::RecordNotFound
+          raise UKRDC::SurveyNotFoundError, "Survey with name #{survey_hash[:code]} not found"
+        end
+
+        def question_having_code(code)
+          survey.questions.detect { |q| q.code == code }.tap do |question|
+            if question.nil?
+              raise(
+                UKRDC::QuestionNotFoundError,
+                "Question with code #{code} not found in survey #{survey.name}"
+              )
+            end
+          end
+        end
+
+        def answered_on
+          survey_hash[:time]
+        end
+      end
+    end
+  end
+end