renalware-core 2.0.0.pre.beta9 → 2.0.0.pre.beta10

data/app/models/renalware/renal/registry/preflight_checks/patients_query.rb

@@ -0,0 +1,65 @@
+require_dependency "renalware/renal"
+
+module Renalware
+  module Renal
+    module Registry
+      module PreflightChecks
+        class PatientsQuery
+          include ModalityScopes
+          MODALITY_NAMES = %w(HD PD Transplant).freeze
+          attr_reader :relation
+
+          def initialize(relation = default_relation)
+            @relation = relation
+          end
+
+          def default_relation
+            Renalware::Patient
+              .preload(current_modality: [:description])
+              .all
+          end
+
+          def call
+            relation
+              .extending(ModalityScopes)
+              .with_current_modality_matching(MODALITY_NAMES)
+              .joins("LEFT OUTER JOIN hd_profiles ON hd_profiles.patient_id = patients.id")
+              .joins("LEFT OUTER JOIN renal_profiles ON renal_profiles.patient_id = patients.id")
+              .where(where_conditions)
+              .order("modality_descriptions.name asc")
+          end
+
+          def where_conditions
+            <<-SQL.squish
+              (patients.ethnicity_id is NULL)
+              OR
+              (renal_profiles.id IS NULL)
+              OR
+              (renal_profiles.prd_description_id IS NULL)
+              OR
+              (renal_profiles.first_seen_on IS NULL)
+              OR
+              (renal_profiles.document #>> '{comorbidities,ischaemic_heart_dis,status}' is null)
+            SQL
+          end
+
+          # Putting this here for now so all incomplete data criteria is all in one place.
+          # Build an array of symbols for all missing data identified by the above query
+          # rubocop:disable Metrics/AbcSize
+          def self.missing_data_for(patient)
+            renal_profile = Renal.cast_patient(patient).profile
+            missing = []
+            missing << :ethnicity if patient.ethnicity_id.blank?
+            missing << :prd if renal_profile&.prd_description_id.blank?
+            missing << :first_seen_on if renal_profile&.first_seen_on.blank?
+            if renal_profile&.document&.comorbidities&.ischaemic_heart_dis&.status.blank?
+              missing << :comorbidities_at_esrf
+            end
+            missing
+          end
+          # rubocop:enable Metrics/AbcSize
+        end
+      end
+    end
+  end
+end

data/app/models/renalware/reporting/{generate_audit_json.rb → fetch_audit_json.rb}

@@ -2,17 +2,18 @@ require_dependency "renalware/reporting"
 
 module Renalware
   module Reporting
-    class GenerateAuditJson
-      def self.call(view_name)
-        conn = ActiveRecord::Base.connection
-        result = conn.execute("select * from #{conn.quote_column_name(view_name)};")
+    class FetchAuditJson
 
-        # Build a JS DataTables-compatible columnDefs hash
-        columns = result.fields.each_with_index.inject([]) do |array, data|
-          column_name, index = data
-          array << { title: column_name, target: index }
+      class << self
+        def call(view_name)
+          convert_rows_from_audit_view_into_datatables_compatible_json(view_name)
+        end
+
+        def convert_rows_from_audit_view_into_datatables_compatible_json(view_name)
+          conn = ActiveRecord::Base.connection
+          result = conn.execute("select audit_view_as_json(#{conn.quote(view_name)});")
+          result.values[0][0]
         end
-        [columns.to_json, result.values]
       end
 
       # A WIP to translate audit column names into human friendly ones.

data/app/models/renalware/research.rb

@@ -0,0 +1,7 @@
+module Renalware
+  module Research
+    def self.table_name_prefix
+      "research_"
+    end
+  end
+end

data/app/models/renalware/research/study.rb

@@ -0,0 +1,19 @@
+require_dependency "renalware/research"
+
+module Renalware
+  module Research
+    class Study < ApplicationRecord
+      include Accountable
+      acts_as_paranoid
+
+      validates :code, presence: true, uniqueness: { scope: :deleted_at }
+      validates :description, presence: true
+      validates :started_on, timeliness: { type: :date, allow_blank: true }
+      validates :terminated_on, timeliness: { type: :date, allow_blank: true, after: :started_on }
+
+      scope :ordered, -> { order(created_at: :asc) }
+
+      has_many :participants, class_name: "StudyParticipant", dependent: :destroy
+    end
+  end
+end

data/app/models/renalware/research/study_participant.rb

@@ -0,0 +1,30 @@
+require_dependency "renalware/research"
+
+module Renalware
+  module Research
+    class StudyParticipant < ApplicationRecord
+      include Accountable
+      acts_as_paranoid
+      validates :participant_id, presence: true, uniqueness: { scope: :study }
+      validates :study, presence: true
+      belongs_to :study
+      belongs_to :patient, class_name: "Renalware::Patient", foreign_key: :participant_id
+
+      def to_s
+        patient&.to_s
+      end
+    end
+  end
+end
+#       include Accountable
+#       acts_as_paranoid
+
+#       validates :code, presence: true
+#       validates :description, presence: true
+#       validates :started_on, timeliness: { type: :date, allow_blank: true }
+#       validates :terminated_on, timeliness: { type: :date, allow_blank: true, after: :started_on }
+
+#       scope :ordered, -> { order(created_at: :asc) }
+#     end
+#   end
+# end

data/app/policies/renalware/admissions/consult_policy.rb

@@ -0,0 +1,8 @@
+require_dependency "renalware/admissions"
+
+module Renalware
+  module Admissions
+    class ConsultPolicy < BasePolicy
+    end
+  end
+end

data/app/policies/renalware/hd/diary_policy.rb

@@ -0,0 +1,6 @@
+module Renalware
+  module HD
+    class DiaryPolicy < BasePolicy
+    end
+  end
+end

data/app/policies/renalware/renal/registry_preflight_check_policy.rb

@@ -0,0 +1,15 @@
+require_dependency "renalware/renal"
+
+module Renalware
+  module Renal
+    class RegistryPreflightCheckPolicy < BasePolicy
+      def deaths?
+        index?
+      end
+
+      def patients?
+        index?
+      end
+    end
+  end
+end

data/app/policies/renalware/research/study_participant_policy.rb

@@ -0,0 +1,8 @@
+require_dependency "renalware/research"
+
+module Renalware
+  module Research
+    class StudyParticipantPolicy < BasePolicy
+    end
+  end
+end

data/app/policies/renalware/research/study_policy.rb

@@ -0,0 +1,8 @@
+require_dependency "renalware/research"
+
+module Renalware
+  module Research
+    class StudyPolicy < BasePolicy
+    end
+  end
+end

data/app/presenters/false_class_presenter.rb

@@ -1,5 +1,7 @@
 class FalseClassPresenter < SimpleDelegator
   def to_s
+    # rubocop:disable Lint/BooleanSymbol
     I18n.t :false
+    # rubocop:enable Lint/BooleanSymbol
   end
 end

data/app/presenters/renalware/admissions/consult_presenter.rb

@@ -0,0 +1,28 @@
+require_dependency "renalware/admissions"
+
+module Renalware
+  module Admissions
+    class ConsultPresenter < SimpleDelegator
+      delegate :nhs_number,
+               :hospital_identifiers,
+               :age,
+               :sex,
+               :current_modality,
+               to: :patient,
+               prefix: true,
+               allow_nil: true
+
+      def patient
+        @patient ||= Renalware::PatientPresenter.new(__getobj__.patient)
+      end
+
+      def unit_and_ward
+        [hospital_unit&.unit_code, hospital_ward&.name].compact.join("/")
+      end
+
+      def patient_name
+        __getobj__.patient&.to_s
+      end
+    end
+  end
+end

data/app/presenters/renalware/hd/diary_presenter.rb

@@ -0,0 +1,77 @@
+require_dependency "collection_presenter"
+
+# TODO: mixing query and presenter here..
+module Renalware
+  module HD
+    class DiaryPresenter
+      attr_reader :user, :weekly_diary, :master_diary, :null_diary
+      delegate :id, :hospital_unit_id, :to_s, :week, to: :weekly_diary
+
+      # https://github.com/avdi/naught
+      NullDiary = Naught.build do |config|
+        config.black_hole
+        config.define_explicit_conversions
+        config.predicates_return false
+
+        def master?
+          false
+        end
+
+        def slot_for(diary_id, diurnal_period_code_id, station_id, day_of_week)
+          NullSlot.new(diary_id, diurnal_period_code_id, station_id, day_of_week)
+        end
+      end
+
+      def initialize(user, weekly_diary)
+        @user = user
+        @weekly_diary = weekly_diary
+        @master_diary = weekly_diary.master_diary
+        @null_diary = NullDiary.new
+      end
+
+      def each_diurnal_period
+        DiurnalPeriodCode.all.each do |diurnal_period_code|
+          yield(diurnal_period_code) if block_given?
+        end
+      end
+
+      def each_station
+        stations.each_with_index{ |station, index| yield(station, index + 1) if block_given? }
+      end
+
+      def each_day(diurnal_period, station)
+        (1..last_day_of_week).each do |day_of_week|
+          diurnal_period_id = diurnal_period.id
+          station_id = station.id
+          slot = weekly_diary.slot_for(diurnal_period_id, station_id, day_of_week) ||
+                 master_diary.slot_for(diurnal_period_id, station_id, day_of_week) ||
+                 null_diary.slot_for(weekly_diary.id, diurnal_period_id, station_id, day_of_week)
+          yield(slot) if block_given?
+        end
+      end
+
+      def day_names
+        all_day_names = Time::DAYS_INTO_WEEK.keys
+        all_day_names.take(last_day_of_week)
+      end
+
+      def stations
+        @stations ||= begin
+          Station.includes(:location).for_unit(hospital_unit_id).ordered.map do |station|
+            StationPresenter.new(station)
+          end
+        end
+      end
+
+      def station_locations
+        StationLocation.all
+      end
+
+      private
+
+      def last_day_of_week
+        Renalware.config.include_sunday_on_hd_diaries ? 7 : 6
+      end
+    end
+  end
+end

data/app/presenters/renalware/hd/diary_slot_presenter.rb

@@ -0,0 +1,69 @@
+require_dependency "renalware/hd"
+require_dependency "collection_presenter"
+
+# TODO: mixing query and presenter here..
+module Renalware
+  module HD
+    class DiarySlotPresenter < SimpleDelegator
+      delegate :master?, to: :diary, allow_nil: true
+
+      # Patients who prefer to dialyse on this day e.g. Mon and in this period e.g. AM.
+      # Flag those already assigned so they cannot be chosen.
+      def patients_preferring_to_dialyse_today_in_this_period
+        patients = Renalware::HD::PatientsDialysingByDayAndPeriodQuery
+          .new(
+            diary.hospital_unit_id,
+            day_of_week,
+            diurnal_period_code.code
+          ).call.all
+        simplify(patients)
+      end
+
+      # Patients who prefer to dialyse on this day e.g. Mon
+      # Flag those already assigned so they cannot be chosen.
+      def patients_preferring_to_dialyse_today
+        patients = Renalware::HD::PatientsDialysingByDayQuery
+        .new(
+          diary.hospital_unit_id,
+          day_of_week
+        ).call.all
+        simplify(patients)
+      end
+
+      # rubocop:disable Metrics/MethodLength
+      def patient_search_options
+        hospital_unit = Renalware::Hospitals::Unit.find(diary.hospital_unit_id)
+        [
+          OpenStruct.new(
+            id: :dialysing_on_day_and_period,
+            name: "Dialysing #{day_of_week_name} #{diurnal_period_code.to_s.upcase}"
+          ),
+          OpenStruct.new(
+            id: :dialysing_on_day,
+            name: "Dialysing on #{day_of_week_name}"
+          ),
+          OpenStruct.new(
+            id: :dialysing_at_unit,
+            name: "All #{hospital_unit.unit_code} HD patients"
+          ),
+          OpenStruct.new(
+            id: :dialysing_at_hospital,
+            name: "All HD patients"
+          )
+        ]
+      end
+
+      private
+
+      def simplify(patients)
+        patients.map do |patient|
+          hd_profile = patient.hd_profile
+          text = "#{patient.to_s(:long)} - "\
+                 "#{hd_profile&.schedule_definition} "\
+                 "#{hd_profile&.hospital_unit&.unit_code}".strip.truncate(65)
+          OpenStruct.new(id: patient.id, text: text)
+        end
+      end
+    end
+  end
+end

data/app/presenters/renalware/hd/null_slot.rb

@@ -0,0 +1,38 @@
+require "renalware/hd"
+
+module Renalware
+  module HD
+    NullSlot = Naught.build do |config|
+      config.black_hole
+      config.define_explicit_conversions
+      config.predicates_return false
+
+      attr_reader :diary_id, :diurnal_period_code_id, :station_id, :day_of_week
+
+      def initialize(diary_id, diurnal_period_code_id, station_id, day_of_week)
+        @diary_id = diary_id
+        @diurnal_period_code_id = diurnal_period_code_id
+        @station_id = station_id
+        @day_of_week = day_of_week
+      end
+
+      def master?
+        false
+      end
+
+      def cell_id
+        "#{diurnal_period_code_id}-#{station_id}-#{day_of_week}"
+      end
+
+      def cache_key
+        [
+          self.class.name,
+          diary_id,
+          diurnal_period_code_id,
+          station_id,
+          day_of_week
+        ].join("-")
+      end
+    end
+  end
+end

data/app/presenters/renalware/hd/patient_presenter.rb

@@ -5,10 +5,9 @@ module Renalware
     class PatientPresenter < SimpleDelegator
       # delegate_missing_to :patient # TODO: when rails 5.1, try instead of SimpleDelegator
       delegate :document, to: :hd_profile
-      delegate :hospital_unit, to: :hd_profile, allow_nil: true
+      delegate :hospital_unit, :transport_summary, to: :hd_profile, allow_nil: true
       delegate :unit_code, to: :hospital_unit, allow_nil: true, prefix: true
       delegate :transport, to: :document
-      delegate :has_transport, to: :transport, prefix: false
       delegate :type, to: :transport, prefix: true
       alias_method :dialysing_at_unit, :hospital_unit_unit_code
 
@@ -24,7 +23,7 @@ module Renalware
       private
 
       def hd_profile
-        @hd_profile ||= __getobj__.hd_profile || NullObject.instance
+        @hd_profile ||= HD::ProfilePresenter.new(__getobj__.hd_profile) || NullObject.instance
       end
     end
   end