pvdgm_services 0.1.0

data/app/roles/services/mds_notifications.rb

@@ -0,0 +1,44 @@
+module Services
+
+  module MdsNotifications
+
+    def handle_mds_notifications
+      logger.info "Fixing to notify the uploader: #{notify_the_uploader?}"
+      self.send_upload_confirmation if notify_the_uploader?
+
+      notification_type = self.account.mds_notification_type
+      return if notification_type == MdsNotification::NOTIFY_NONE
+
+      if notification_type == MdsNotification::NOTIFY_WHEN_UPLOADED
+        logger.info "Notifying for all uploads"
+        self.send_upload_confirmation(self.account.mds_notification_email)
+      else
+        # DS: Notice that an immediate account email will be sent out even if the notification
+        # type is set to NOTIFY_DAILY_DIGEST. THERE IS A REASON FOR THIS. Most accounts do not 
+        # want to wait for the digest to be sent out to learn that there was an MDS upload error.
+        # These things don't happen very often, so it shouldn't be a major imposition to recieve
+        # these error emails.
+        #
+        # SO. DON'T CHANGE THIS UNLESS YOU HAVE BEEN EXPLICITLY ASKED TO CHANGE IT. I may have
+        # made a mistake here, but it was an _intentional_ mistake.
+        #
+        # Enjoy the rest of your day.
+        logger.info "Notifying for error uploads"
+        self.send_upload_confirmation(self.account.mds_notification_email) if has_errors?
+      end
+
+    end
+
+    def notify_the_uploader?
+      self.notify_uploader? && 
+        self.upload_user.present? && 
+        self.upload_user.email.present?
+    end
+
+    def send_upload_confirmation(notification_email=nil)
+      MDS_NOTIFICATION_MAILER.notify_mds_uploaded(self, notification_email).deliver
+    end
+
+  end
+
+end

data/app/roles/services/monthly_service_table_cleaner.rb

@@ -0,0 +1,19 @@
+module Services
+
+  module MonthlyServiceTableCleaner
+
+    def clean_up_service_tables
+      Services::AssessmentRequest.destroy_all where_clause(Services::AssessmentRequest::STATUS_COMPLETED)
+      Services::AvailableFile.destroy_all where_clause(Services::AvailableFile::STATUS_CLEARED)
+      Services::MdsPullAccount.destroy_all where_clause(Services::MdsPullAccount::STATUS_REMOTE_CLEAN)
+    end
+
+    private
+
+    def where_clause(status)
+      "DATEDIFF(CURRENT_DATE, created_at) > 30 AND status = #{status}"
+    end
+
+  end
+
+end

data/app/roles/services/new_registration_notifier.rb

@@ -0,0 +1,11 @@
+module Services
+
+  module NewRegistrationNotifier
+
+    def notify
+      ServicesMailer.notify_sltc_client_registration(self).deliver
+    end
+
+  end
+
+end

data/app/roles/services/public_key_creator.rb

@@ -0,0 +1,14 @@
+module Services
+
+  module PublicKeyCreator
+
+    def create(params)
+      key = params[:key_file].read
+      PublicKey.new(params.slice(:name, :valid_until).merge(key: key)).tap do | pk |
+        pk.save if pk.valid?
+      end
+    end
+
+  end
+
+end

data/app/roles/services/public_key_updater.rb

@@ -0,0 +1,12 @@
+module Services
+
+  module PublicKeyUpdater
+
+    def update(params)
+      key = params[:key_file].read
+      self.tap { | pk | pk.update_attributes(params.slice(:name, :valid_until).merge(key: key)) }
+    end
+
+  end
+
+end

data/app/roles/services/service_creator.rb

@@ -0,0 +1,13 @@
+module Services
+
+  module ServiceCreator
+
+    def create(params)
+      Service.new(params).tap do | svc |
+        svc.save if svc.valid?
+      end
+    end
+
+  end
+
+end

data/app/roles/services/service_definition_creator.rb

@@ -0,0 +1,13 @@
+module Services
+
+  module ServiceDefinitionCreator
+
+    def create(params)
+      service_definitions.new(params).tap do | service_definition |
+        service_definition.save if service_definition.valid?
+      end
+    end
+
+  end
+
+end

data/app/roles/services/service_definition_updater.rb

@@ -0,0 +1,12 @@
+module Services
+
+  module ServiceDefinitionUpdater
+
+    def update(params)
+      update_attributes(params)
+      self
+    end
+
+  end
+
+end

data/app/roles/services/service_invoker.rb

@@ -0,0 +1,25 @@
+module Services
+
+  module ServiceInvoker
+
+    #
+    # The async configuration options
+    #
+    ASYNC_SEND_OPTS = {
+      :priority => 100, # Pretty high priority; higher than MDS for sure
+      :time_to_run => 3600 # GIve it an hour
+    }
+
+    def invoke
+      service_definitions.each do | service_definition |
+        
+        # Each service implementation is handled in a separate 
+        # worker
+        service_definition.ayl_send_opts(:invoke, ASYNC_SEND_OPTS)
+
+      end
+    end
+
+  end
+
+end

data/app/roles/services/service_updater.rb

@@ -0,0 +1,11 @@
+module Services
+
+  module ServiceUpdater
+
+    def update(params)
+      self.tap { | svc | svc.update_attributes(params) }
+    end
+
+  end
+
+end

data/app/roles/services/sltc_baseline_requestor.rb

@@ -0,0 +1,19 @@
+module Services
+
+  module SltcBaselineRequestor
+
+    def request_baseline(params)
+      provider_id = params[:provider_id]
+      uploaded_before = Time.parse(params[:uploaded_before])
+      uploaded_after = Time.parse(params[:uploaded_after])
+
+      sd = service_definition
+
+      si = sd.service_implementation
+
+      si.request_baseline(self, provider_id, uploaded_after, uploaded_before)
+    end
+
+  end
+
+end

data/app/roles/services/sltc_provider_change_notifier.rb

@@ -0,0 +1,25 @@
+module Services
+
+  module SltcProviderChangeNotifier
+
+    def notify
+      requiring_notification = ProviderChange.
+        where(status: ProviderChange::STATUS_NEW).
+        order("configured_account_id ASC, verb ASC")
+
+      return if requiring_notification.empty?
+
+      ServicesMailer.notify_sltc_provider_changes(requiring_notification).deliver 
+
+      ids = requiring_notification.pluck(:id)
+      
+      # Mark these guys as reported
+      ProviderChange.
+        connection.
+        execute("UPDATE services_provider_changes SET status = #{Services::ProviderChange::STATUS_REPORTED} WHERE id IN (#{ids.join(',')})")
+
+    end
+
+  end
+
+end

data/app/roles/services/sltc_provider_lister.rb

@@ -0,0 +1,13 @@
+module Services
+
+  module SltcProviderLister
+
+    def list_providers
+      si = service_definition.service_implementation
+      api = si.api_impl(self)
+      api.list_providers
+    end
+
+  end
+
+end

data/app/roles/services/sltc_registration_completer.rb

@@ -0,0 +1,81 @@
+module Services
+
+  module SltcRegistrationCompleter
+
+    def complete(params)
+      configure_only = params[:configure_only].present? && params[:configure_only] == 'true'
+
+      am = find_or_create_account_mapping(params[:third_party_id], params[:account_id])
+
+      ca = find_or_create_configured_account(params[:service_definition_id], params[:account_id], configure_only)
+
+      # The requestor only wants the account configured for operations. Does NOT
+      # want to process the registration any further at this time. The 'complete' method
+      # is re-entrant in that it will continue even if the account stuff has already been
+      # configured.
+      return if configure_only
+
+      si = ca.service_definition.service_implementation
+
+      # Take care of configuring all the facilities for the new account
+      si.identify_providers(ca)
+
+      # Now, request baselines for all the configured facilities
+      uploaded_before = Time.now
+      uploaded_after = uploaded_before - (params[:baseline_days].present? ? params[:baseline_days].to_i : 90).days
+
+      abaqis_facility_ids = ApplicationApi.api_impl.enabled_facilities_for_account_id(params[:account_id]).pluck(:id)
+
+      ca.service_definition.third_party.facility_mappings.where(facility_id: abaqis_facility_ids).each do | facility_mapping |
+        si.request_baseline(ca, facility_mapping.facility_code, uploaded_after, uploaded_before)
+      end
+
+      update_attributes(status: Services::SltcRegistration::STATUS_REGISTERED)
+
+    end
+
+    private 
+
+    def find_or_create_account_mapping(third_party_id, account_id)
+      am = AccountMapping.where(third_party_id: third_party_id, 
+                                account_id: account_id, 
+                                account_code: account_code).first
+      unless am.present?
+        am = AccountMapping.create!(third_party_id: third_party_id,
+                                    account_id: account_id,
+                                    account_code: account_code)
+                                    
+      end
+      am
+    end
+
+    def find_or_create_configured_account(service_definition_id, account_id, configure_only=false)
+      ca = ConfiguredAccount.where(service_definition_id: service_definition_id,
+                                   account_id: account_id).first
+
+      account_enabled = configure_only ? false : true
+
+      if ca.present?
+
+        # Force the enabled flag to the correct value
+        ca.update_attribute(:enabled, account_enabled)
+
+        cred = ca.credentials.first
+        if cred.present?
+          cred.update_attributes(password: auth_password)
+        else
+          ca.credentials << Credential.new(password: auth_password)
+        end
+      else
+        ca = ConfiguredAccount.create!(service_definition_id: service_definition_id,
+                                       account_id: account_id,
+                                       enabled: account_enabled,
+                                       username: username)
+        ca.credentials << Credential.new(password: auth_password)
+      end
+      ca
+    end
+
+  end
+
+end

data/app/roles/services/sltc_registration_saver.rb

@@ -0,0 +1,13 @@
+module Services
+
+  module SltcRegistrationSaver
+
+    def save_registration(params)
+      Services::SltcRegistration.new(params).tap do | registration |
+        registration.save if registration.valid?
+      end
+    end
+
+  end
+
+end

data/app/roles/services/submit_mds_file_for_processing.rb

@@ -0,0 +1,28 @@
+module Services
+
+  module SubmitMdsFileForProcessing
+    TIME_TO_RUN = 36000
+    PRIORITY = 500
+    ASYNC_SEND_OPTIONS = { :priority => PRIORITY, :time_to_run => TIME_TO_RUN }
+
+    def submit_uploaded_file
+      errors = []
+      mds_upload = MdsUpload.new(:account => account,
+                                 :mds_file => uploaded_file, 
+                                 :status => MdsUpload::NEW, 
+                                 :upload_user => upload_user,
+                                 :file_errors => {},
+                                 :notify_uploader => notify_uploader)
+
+      if mds_upload.valid?
+        mds_upload.save!
+        MdsFileProcessingContext.ayl_send_opts(:call, ASYNC_SEND_OPTIONS, mds_upload)
+      else
+        errors.concat(mds_upload.errors[:mds_file])
+      end
+      errors
+    end
+
+  end
+
+end

data/app/roles/services/third_party_creator.rb

@@ -0,0 +1,13 @@
+module Services
+
+  module ThirdPartyCreator
+
+    def create(params)
+      ThirdParty.new(params).tap do | tp |
+        tp.save if tp.valid?
+      end
+    end
+
+  end
+
+end

data/app/roles/services/third_party_updater.rb

@@ -0,0 +1,12 @@
+module Services
+
+  module ThirdPartyUpdater
+
+    def update(params)
+      update_attributes(params)
+      self
+    end
+
+  end
+
+end

data/app/utils/services/file_upload_handler.rb

@@ -0,0 +1,33 @@
+#
+# A mixin for controllers that want to clean out temporary files created
+# for file uploads.
+#
+# Typically used as follows:
+#
+# class MyController < ApplicationController
+#   include FileUploadHandler
+#
+#   after_filter :clear_temporary_files
+#
+#   ...
+#
+# end
+#
+module Services
+
+  module FileUploadHandler
+
+    def clear_temporary_files(hash=params)
+      return if hash.nil?
+      hash.values.each do |v|
+        if v.is_a?(Hash)
+          clear_temporary_files(v)
+        elsif v.respond_to?(:path)
+          File.unlink(v.path) if File.exists?(v.path)
+        end
+      end
+    end
+
+  end
+
+end

data/app/utils/services/mds_upload_filters.rb

@@ -0,0 +1,26 @@
+module Services
+
+  module MdsUploadFilters
+
+    def must_have_uploaded_file
+      @uploaded_file = params[:composite_file]
+      if @uploaded_file.blank?
+        @errors = [ "Please select an MDS file for upload." ]
+        render action: :create
+      end
+    end
+
+    def must_be_valid_mds_file
+      uv = UnzipmeValidator.new(@uploaded_file.path)
+
+      if ! uv.valid_zip?
+        @errors = [ "You have uploaded an invalid MDS 3.0 or MDS 3.0 Composite file." ]
+        error_stickie(@errors.first)
+        redirect_to stagei_mds_uploads_path
+      end
+
+    end
+
+  end
+
+end

data/app/utils/services/mds_xml_file_parser.rb

@@ -0,0 +1,104 @@
+require 'libxml'
+
+module Services
+
+  class MdsXmlFileParser
+    include LibXML
+
+    attr_reader :assessment_file, :file_errors
+
+    ROOT_NODE = "ASSESSMENT"
+
+    def initialize(assessment_file)
+      @assessment_file = assessment_file
+      @base_name = File.basename(assessment_file)
+      @file_errors = { @base_name => [] }
+    end
+
+    def parse
+
+      begin
+        sax_handler = MdsSaxHandler.new
+        File.open(assessment_file, "r") do | f |
+          parser = LibXML::XML::SaxParser.io(f)
+          parser.callbacks = sax_handler
+          parser.parse
+        end
+
+      rescue LibXML::XML::Error
+        add_error "XML root element ASSESSMENT not found."
+        return
+      rescue
+        add_error "There was a problem parsing this file. Please ensure that it has the correct MDS 3.0 XML format."
+        return
+      end
+
+      add_error(sax_handler.errors) if sax_handler.errors.present?
+      return if has_errors?
+
+      add_error("XML data elements were not found.") if sax_handler.assessment_hash.empty?
+      return if has_errors?
+
+      sax_handler.assessment_hash
+    end
+
+    private
+
+    def add_error(error)
+      if error.is_a?(Array)
+        @file_errors[@base_name].concat(error)
+      else
+        @file_errors[@base_name] << error
+      end
+    end
+
+    def has_errors?
+      @file_errors[@base_name].present?
+    end
+
+  end
+
+    # ----------------------------------------------------------------------------#
+    # Using LibXML with SAX API for performance reasons.                          #
+    # ----------------------------------------------------------------------------#
+
+  class MdsSaxHandler
+    include LibXML::XML::SaxParser::Callbacks
+
+    attr_reader :assessment_hash, :errors
+
+    ROOT_NESTING_LEVEL = 0
+    ATTRIBUTE_NESTING_LEVEL = 1
+    TEXT_NESTING_LEVEL = 2
+
+    def initialize
+      @assessment_hash = {}
+      @file_errors = []
+      @xml_nesting_level = ROOT_NESTING_LEVEL
+      @element_text = nil
+    end
+
+    def on_start_element(element_name, attributes)
+      if @xml_nesting_level == ROOT_NESTING_LEVEL
+        @file_errors << "XML root element ASSESSMENT not found." unless element_name == "ASSESSMENT"
+      end
+      @xml_nesting_level += 1
+      @element_text = ''
+    end
+
+    def on_characters(text)
+      @element_text << text if @xml_nesting_level == TEXT_NESTING_LEVEL
+    end
+
+    def on_end_element(element_name)
+      @assessment_hash[element_name.downcase] = @element_text.strip if !@element_text.nil? && @xml_nesting_level == TEXT_NESTING_LEVEL 
+      @xml_nesting_level -= 1
+    end
+
+    def on_error(error)
+      @file_errors << error.message
+    end
+
+  end
+
+end

data/app/utils/services/upload_file.rb

@@ -0,0 +1,13 @@
+module Services
+
+  class UploadFile < File
+    attr_reader :original_filename, :content_type
+
+    def initialize(filename)
+      super(filename, "rb")
+      @original_filename = File.basename(filename)
+      @content_type = "application/zip"
+    end
+  end
+
+end

data/app/validators/isc_code_validator.rb

@@ -0,0 +1,42 @@
+
+class IscCodeValidator < ActiveModel::EachValidator
+
+  def validate_each(object, attribute, value)
+    isc_lookup = Services::IscCodeLookup.new(object)
+    object.errors[attribute] << "The ISC Code provided: #{isc_lookup.isc_provided_value} is incorrect for this assessment." unless isc_lookup.valid_isc_value?
+  end
+
+
+
+  #-----------------------------------------------------------------#
+  # Removing the custom message below for performance reasons       #
+  #-----------------------------------------------------------------#
+  def build_error_message(object, isc_lookup)
+    message = "The ISC value in this file (#{isc_lookup.isc_provided_value}), "
+    message += cms_table_message(isc_lookup)
+    message += "Please ensure these values are correct: "
+    message += attribute_message(isc_lookup, object)
+    message
+  end
+
+
+  def cms_table_message(isc_lookup)
+    if isc_lookup.isc_lookup_value.nil?
+      message = "does not match any value provided in the CMS lookup table. "
+    else
+      message = "does not match the value provided in the CMS lookup table (#{isc_lookup.isc_lookup_value}). "
+    end
+    message
+  end
+
+  def attribute_message(isc_lookup, object)
+    if isc_lookup.isc_lookup_value == IscCode.inactivation_code
+      message = "x0100 => #{object.x0100} "
+    else
+      message = "a0200 => #{object.a0200}, a0310a => #{object.a0310a}, a0310b => #{object.a0310b}, a0310c => #{object.a0310c}, a0310d => #{object.a0310d}, a0310f => #{object.a0310f}."
+    end
+    message
+  end
+
+
+end

data/app/validators/mds_birthdate_validator.rb

@@ -0,0 +1,37 @@
+class MdsBirthdateValidator < ActiveModel::EachValidator
+
+  def validate_each(record, attribute, value)
+    return true if record.send("clean_#{attribute}").blank?
+    # return true if value.blank? || Resident.missing_attribute_values.include?(value)
+    record.errors[attribute] << "Invalid birth date entered in #{attribute}. Birth date may contain only numbers." and return if value =~ /\D/
+    record.errors[attribute] << "Invalid birth date entered in #{attribute}. Birth date must be formatted as YYYYMMDD, YYYYMM or YYYY." and return unless birthdate_correct_length?(value)
+    record.errors[attribute] << "Invalid birth date entered in #{attribute}. Birth date is not valid." unless birthdate_ymd_valid?(value)
+  end
+
+
+  private
+
+  def birthdate_correct_length?(birthdate)
+    return true if birthdate.blank?
+    return true if [4, 6, 8].include?(birthdate.length)
+    false
+  end
+
+  #----------------------------------------------------#
+  # If it gets here, then it is of correct length      #
+  #----------------------------------------------------#
+  def birthdate_ymd_valid?(birthdate)
+    return true if birthdate.blank?
+    year, month, day = birthdate.slice(0,4), birthdate.slice(4,2), birthdate.slice(6,2)
+    year_valid?(year) && month_valid?(month) && day_valid?(day)
+  end
+
+  def year_valid?(year) year =~ /\A(18|19|20)\d\d/; end
+
+  def month_valid?(month) return true if month.blank?; month =~ /\A(0[1-9]|1[012])/; end
+
+  def day_valid?(day) return true if day.blank?; day =~ /\A(0[1-9]|[12][0-9]|3[01])/; end
+
+
+end
+

data/app/validators/mds_date_validator.rb

@@ -0,0 +1,8 @@
+class MdsDateValidator < ActiveModel::EachValidator
+
+  def validate_each(record, attribute, value)
+    return if value.is_a?(Date) # We store dates as Date's; don't validate if it is already a date.
+    record.errors[attribute] << "A valid date in item #{attribute} is required for this assessment type." if Date.safe_parse(value).blank?
+  end
+
+end