feat: Dr. Rai Reports (#5621)

**Story card:**
[sc-15494](https://app.shortcut.com/simpledotorg/story/15494/create-targets)

## Because

Dr. Rai Reports

## This addresses

Building out the critical paths of Dr. Rai. This is not the full
feature.

## Test instructions

suite-test

---------

Co-authored-by: Jamie Carter <[email protected]>

Author: igbanam

app/assets/stylesheets/application.scss

@@ -1,33 +1,41 @@
 # Root component for Dr. Rai Reports
 class Dashboard::DrRaiReport < ApplicationComponent
-  # FIXME(:selected_period): Write out JS for this component's interactivity.
-  # The whole current period thing only works onMount — sticking to frontend
-  # terms here — after then, it's useless. This is because a view-component in
-  # Rails, which this is, is technically a server-side render scoped to its own
-  # local variables, and exposing methods as callable from the view. It doesn't
-  # handle state.  This means interactivity cannot be handled at the view
-  # component layer. In lay man's terms, when someone selects another quarter
-  # to view, we need to do a full page refresh if we are depending on the view
-  # component; a full page refresh passing in the selected quarter. We need JS
-
-  attr_reader :quarterlies
+  attr_reader :quarterlies, :indicators, :region, :action_plans
   attr_accessor :selected_period
 
-  def initialize(quarterlies, region, selected_quarter = nil)
+  def initialize(quarterlies, region_slug, selected_quarter = nil)
     @quarterlies = quarterlies
-    @region = region
+    @region = Region.find_by(slug: region_slug)
     @selected_period = if selected_quarter.nil?
-      current_period
+      Period.new(type: :quarter, value: current_period.value.to_s)
     else
       Period.new(type: :quarter, value: selected_quarter)
     end
-    @goals = {}
+    @action_plans = DrRai::ActionPlan
+      .includes(:dr_rai_target)
+      .where(
+        region: @region,
+        dr_rai_target: {period: @selected_period.value.to_s}
+      )
+    @indicators = DrRai::Indicator.all
+  end
+
+  def indicator_previous_numerator(indicator)
+    indicator.numerator(region, selected_period.previous)
+  end
+
+  def indicator_denominator(indicator)
+    indicator.denominator(region, selected_period)
   end
 
   def current_period
     Period.current.to_quarter_period
   end
 
+  def current_period?
+    current_period == selected_period
+  end
+
   def start_of period
     period.begin.strftime("%b-%-d")
   end
@@ -38,15 +46,11 @@ def end_of period
 
   def classes_for_period period
     raise "#{period} is not a Period" unless period.is_a? Period
-    candidates = ["actions-header-button"]
-    candidates << "action-header-selected" if period == selected_period
+    candidates = ["period-button"]
+    candidates << "selected" if period == selected_period
     candidates.join(" ")
   end
 
-  def period_goals
-    @goals[selected_period]
-  end
-
   def human_readable thing
     case thing
     when Period

app/components/dashboard/dr_rai_report.html.erb

@@ -0,0 +1,70 @@
+class DrRai::ActionPlansController < AdminController
+  before_action :authorize_user
+  before_action :hydrate_plan, only: [:create]
+  before_action :set_dr_rai_action_plan, only: %i[destroy]
+
+  # POST /dr_rai/action_plans or /dr_rai/action_plans.json
+  def create
+    @dr_rai_action_plan = DrRai::ActionPlan.new(
+      statement: dr_rai_action_plan_params[:statement],
+      actions: dr_rai_action_plan_params[:actions],
+      dr_rai_indicator: @indicator,
+      dr_rai_target: @target,
+      region: @region
+    )
+
+    respond_to do |format|
+      if @dr_rai_action_plan.save
+        format.html { redirect_to reports_region_path(report_scope: "facility", id: dr_rai_action_plan_params[:region_slug]) }
+      else
+        format.html { render json: @dr_rai_action_plan.errors, status: :unprocessable_entity }
+      end
+    end
+  end
+
+  # DELETE /dr_rai/action_plans/1 or /dr_rai/action_plans/1.json
+  def destroy
+    @dr_rai_action_plan.discard
+
+    respond_to do |format|
+      format.html { redirect_to reports_region_path(report_scope: "facility", id: @dr_rai_action_plan.region.slug) }
+      format.json { head :no_content }
+    end
+  end
+
+  private
+
+  # Use callbacks to share common setup or constraints between actions.
+  def set_dr_rai_action_plan
+    @dr_rai_action_plan = DrRai::ActionPlan.find(params[:id])
+  end
+
+  # Only allow a list of trusted parameters through.
+  def dr_rai_action_plan_params
+    params.require(:dr_rai_action_plan).permit(
+      :actions,
+      :indicator_id,
+      :period,
+      :region_slug,
+      :statement,
+      :target_type,
+      :target_value
+    )
+  end
+
+  def authorize_user
+    authorize { current_admin.accessible_facilities(:view_reports).any? }
+  end
+
+  def hydrate_plan
+    @region = Region.find_by slug: dr_rai_action_plan_params[:region_slug]
+    @indicator = DrRai::Indicator.find(dr_rai_action_plan_params[:indicator_id])
+    period = Period.new(type: :quarter, value: dr_rai_action_plan_params[:period])
+    @target = DrRai::Target.create!(
+      type: dr_rai_action_plan_params[:target_type],
+      period: period,
+      indicator: @indicator,
+      numeric_value: dr_rai_action_plan_params[:target_value]
+    )
+  end
+end

app/components/dashboard/dr_rai_report.rb

@@ -473,6 +473,7 @@ def percentage(numerator, denominator)
   def quarterly_region_summary(repository, region)
     data = repository.schema.send(:region_summaries)
     quarterlies = Reports::RegionSummary.group_by(grouping: :quarter, data: data)
-    quarterlies[region]
+    cut_off = Period.new(type: :quarter, value: 1.year.ago.to_period.to_quarter_period.value.to_s)
+    quarterlies[region].select { |k, _| k > cut_off }
   end
 end

app/controllers/dr_rai/action_plans_controller.rb

@@ -0,0 +1,12 @@
+# Calculatable gets the data for different Dr. Rai Indicators
+module DrRai
+  module Calculatable
+    def numerator
+      raise "Unimplemented"
+    end
+
+    def denominator
+      raise "Unimplemented"
+    end
+  end
+end

app/controllers/reports/regions_controller.rb

@@ -0,0 +1,5 @@
+module DrRai
+  def self.table_name_prefix
+    "dr_rai_"
+  end
+end

app/models/concerns/dr_rai/calculatable.rb

@@ -0,0 +1,32 @@
+class DrRai::ActionPlan < ApplicationRecord
+  include DrRai::Calculatable
+
+  belongs_to :dr_rai_indicator, class_name: "DrRai::Indicator"
+  belongs_to :dr_rai_target, class_name: "DrRai::Target"
+  belongs_to :region
+
+  validates :statement, presence: true
+
+  def indicator
+    dr_rai_indicator
+  end
+
+  def target
+    dr_rai_target
+  end
+
+  def numerator
+    indicator.numerator(region)
+  end
+
+  def denominator
+    target.numeric_value
+  end
+
+  def progress
+    return 0 unless denominator.positive?
+    return 100 unless numerator < denominator
+
+    (numerator.to_f / denominator * 100).round
+  end
+end

app/models/dr_rai.rb

@@ -0,0 +1,7 @@
+module DrRai
+  class BooleanTarget < Target
+    def achieved_for?(indicator)
+      completed
+    end
+  end
+end

app/models/dr_rai/action_plan.rb

@@ -0,0 +1,47 @@
+module DrRai
+  class ContactOverduePatientsIndicator < Indicator
+    def display_name
+      "Contact overdue patients"
+    end
+
+    def numerator(region, the_period = period)
+      numerators(region)[the_period]
+    end
+
+    def denominator(region, the_period = period)
+      denominators(region)[the_period]
+    end
+
+    def numerators(region)
+      quarterlies(region).map do |t, data|
+        [t, data[numerator_key]]
+      end.to_h
+    end
+
+    def denominators(region)
+      quarterlies(region).map do |t, data|
+        [t, data[denominator_key]]
+      end.to_h
+    end
+
+    def target_type
+      "DrRai::PercentageTarget"
+    end
+
+    def target_type_frontend
+      "percent"
+    end
+
+    def numerator_key
+      "contactable_patients_called"
+    end
+
+    def denominator_key
+      "overdue_patients"
+    end
+
+    def action
+      "overdue patients called"
+    end
+  end
+end