Use parameters in get_hipaa_disclosure_log_from_ehr_fhir_logs.R

[pbchase]

@saipavan10-git, please add better test data and tests

[pbchase]

Consider reading the FHIR logs like this:

redcap_ehr_fhir_logs <- dplyr::tbl(conn, "redcap_ehr_fhir_logs") |>
  dplyr::filter(.data$resource_type == "Patient" &
                  .data$mrn != "") |>
  head(n = 30) |>
  dplyr::collect()

Then mutate ehr_id and created_at to the mix of values you need for testing the parameters