Append order_refer info to opt_out

[andrewallenbruce]

library(provider)
library(tidyverse)

x <- opt_out(city = "Valdosta", state = "GA")

#> # A tibble: 3 × 12
#>   npi        first last  specialty order_refer optout_start_date optout_end_date
#>   <chr>      <chr> <chr> <chr>     <lgl>       <date>            <date>         
#> 1 1992848659 Jeff… Wood  Maxillof… TRUE        2016-01-11        2024-01-11     
#> 2 1073632659 Fern… Alva… Oral Sur… TRUE        2017-07-01        2025-07-01     
#> 3 1811005655 Sonya Merr… Plastic … TRUE        2022-01-01        2024-01-01     

y <- x |> 
  dplyr::filter(order_refer == TRUE) |> 
  dplyr::pull(npi) |> 
  purrr::map(\(x) order_refer(npi = x)) |> 
  purrr::list_rbind() |> 
  dplyr::select(npi, service) |> 
  dplyr::nest_by(npi, .key = 'eligibility')

#> # A tibble: 3 × 2
#> # Rowwise:  npi
#>   npi               eligibility
#>   <chr>      <list<tibble[,1]>>
#> 1 1073632659            [3 × 1]
#> 2 1811005655            [4 × 1]
#> 3 1992848659            [4 × 1]

z <- dplyr::left_join(x, y, by = dplyr::join_by(npi)) |> 
     dplyr::relocate(eligibility, .after = order_refer)

#> # A tibble: 3 × 13
#>   npi        first    last   specialty order_refer eligibility optout_start_date
#>   <chr>      <chr>    <chr>  <chr>     <lgl>       <list<tibb> <date>           
#> 1 1992848659 Jeffery  Wood   Maxillof… TRUE            [4 × 1] 2016-01-11       
#> 2 1073632659 Fernando Alvar… Oral Sur… TRUE            [3 × 1] 2017-07-01       
#> 3 1811005655 Sonya    Merri… Plastic … TRUE            [4 × 1] 2022-01-01       

tidyr::unnest(z, eligibility)
#> # A tibble: 11 × 13
#>    npi        first    last     specialty  order_refer service optout_start_date
#>    <chr>      <chr>    <chr>    <chr>      <lgl>       <chr>   <date>           
#>  1 1992848659 Jeffery  Wood     Maxillofa… TRUE        Medica… 2016-01-11       
#>  2 1992848659 Jeffery  Wood     Maxillofa… TRUE        Home H… 2016-01-11       
#>  3 1992848659 Jeffery  Wood     Maxillofa… TRUE        Durabl… 2016-01-11       
#>  4 1992848659 Jeffery  Wood     Maxillofa… TRUE        Power … 2016-01-11       
#>  5 1073632659 Fernando Alvarado Oral Surg… TRUE        Medica… 2017-07-01       
#>  6 1073632659 Fernando Alvarado Oral Surg… TRUE        Home H… 2017-07-01       
#>  7 1073632659 Fernando Alvarado Oral Surg… TRUE        Durabl… 2017-07-01       
#>  8 1811005655 Sonya    Merriman Plastic A… TRUE        Medica… 2022-01-01       
#>  9 1811005655 Sonya    Merriman Plastic A… TRUE        Home H… 2022-01-01       
#> 10 1811005655 Sonya    Merriman Plastic A… TRUE        Durabl… 2022-01-01       
#> 11 1811005655 Sonya    Merriman Plastic A… TRUE        Power … 2022-01-01       

^{Created on 2023-10-24 with reprex v2.0.2}