Quality Payment Program

MIPS, APMS, & QPP

Andrew Bruce

2024-07-21

library(provider)
library(future)
library(furrr)
library(dplyr)
library(tidyr)

Quality Payment Reporting

plan(multisession, workers = 4)
q <- quality_payment_(npi = 1144544834)

#> Error:
#> ℹ In index: 2.
#> Caused by error in `dplyr::mutate()`:
#> ℹ In argument: `participation_type = fct_part(participation_type)`.
#> Caused by error:
#> ! object 'participation_type' not found

plan(sequential)
q

#> function (save = "default", status = 0, runLast = TRUE) 
#> .Internal(quit(save, status, runLast))
#> <bytecode: 0x56500b761da8>
#> <environment: namespace:base>

Grouping

q |> 
  select(year, 
         participation_type,
         org_name,
         org_size,
         beneficiaries,
         services,
         charges,
         final_score,
         pay_adjust,
         ind_lvt_status_desc)

#> Error in UseMethod("select"): no applicable method for 'select' applied to an object of class "function"

Special Statuses

select(q, year, participation_type, org_name, org_size, qpp_status) |> 
  unnest(qpp_status)

#> Error in UseMethod("select"): no applicable method for 'select' applied to an object of class "function"

select(q, year, participation_type, org_name, org_size, qpp_status) |> 
  unnest(qpp_status) |> 
  count(org_name, qualified, sort = TRUE)

#> Error in UseMethod("select"): no applicable method for 'select' applied to an object of class "function"

Individual Category Measures

select(q, year, participation_type, org_name, org_size, qpp_measures) |>
  unnest(qpp_measures)

#> Error in UseMethod("select"): no applicable method for 'select' applied to an object of class "function"

select(q, year, participation_type, org_name, org_size, qpp_measures) |>
  unnest(qpp_measures) |> 
  count(year, org_name, category, sort = TRUE)

#> Error in UseMethod("select"): no applicable method for 'select' applied to an object of class "function"

plan(multisession, workers = 4)
qq <- quality_payment_(npi = 1043477615)

#> Error:
#> ℹ In index: 2.
#> Caused by error in `dplyr::mutate()`:
#> ℹ In argument: `participation_type = fct_part(participation_type)`.
#> Caused by error:
#> ! object 'participation_type' not found

plan(sequential)
qq

#> Error in eval(expr, envir, enclos): object 'qq' not found