Providing easy access to healthcare provider data through publicly available APIs.
You can install provider
from GitHub with:
# install.packages("pak")
pak::pak("andrewallenbruce/provider")
library(provider)
library(dplyr)
library(tidyr)
affiliations(npi = 1023630738,
facility_ccn = "37Z324") |> glimpse()
#> Rows: 1
#> Columns: 7
#> $ npi <chr> "1023630738"
#> $ pac <chr> "9032521372"
#> $ first <chr> "ALYSIA"
#> $ last <chr> "SMITH"
#> $ facility_type <fct> Nursing home
#> $ facility_ccn <chr> "37Z324"
#> $ parent_ccn <chr> "371324"
beneficiaries(year = 2022,
period = "Year",
level = "County",
state = "GA",
county = "Lowndes") |> glimpse()
#> Rows: 1
#> Columns: 26
#> $ year <int> 2022
#> $ period <ord> Year
#> $ level <ord> County
#> $ state <ord> GA
#> $ state_name <ord> Georgia
#> $ county <chr> "Lowndes"
#> $ fips <chr> "13185"
#> $ bene_total <int> 19782
#> $ bene_orig <int> 11731
#> $ bene_ma_oth <int> 8051
#> $ bene_total_aged <int> 16289
#> $ bene_aged_esrd <int> 129
#> $ bene_aged_no_esrd <int> 16160
#> $ bene_total_dsb <int> 3493
#> $ bene_dsb_esrd <int> 144
#> $ bene_dsb_no_esrd <int> 3349
#> $ bene_total_ab <int> 18315
#> $ bene_ab_orig <int> 10271
#> $ bene_ab_ma_oth <int> 8044
#> $ bene_total_rx <int> 14027
#> $ bene_rx_pdp <int> 6430
#> $ bene_rx_mapd <int> 7596
#> $ bene_rx_lis_elig <int> 5145
#> $ bene_rx_lis_full <int> 464
#> $ bene_rx_lis_part <int> 143
#> $ bene_rx_lis_no <int> 8274
clinicians(npi = 1932365699) |> glimpse()
#> Rows: 1
#> Columns: 18
#> $ npi <chr> "1932365699"
#> $ pac <chr> "0042370496"
#> $ enid <chr> "I20171107000894"
#> $ first <chr> "STEFAN"
#> $ middle <chr> "MICHAEL"
#> $ last <chr> "SMITH"
#> $ gender <fct> Male
#> $ school <chr> "ILLINOIS COLLEGE OF OPTOMETRY AT CHICAGO"
#> $ grad_year <int> 2008
#> $ specialty <chr> "OPTOMETRY"
#> $ facility_name <chr> "LEE ANN HOVEN OD PC"
#> $ pac_org <chr> "5193882009"
#> $ members_org <int> 2
#> $ address_org <chr> "1165 S CAMINO DEL RIO SUITE 100"
#> $ city_org <chr> "DURANGO"
#> $ state_org <ord> CO
#> $ zip_org <chr> "813036824"
#> $ phone_org <chr> "9702478762"
conditions(year = 2018,
set = "multiple",
level = "national",
age = "all",
demo = "all",
mcc = "6+") |> glimpse()
#> Rows: 1
#> Columns: 12
#> $ year <int> 2018
#> $ level <ord> National
#> $ sublevel <ord> National
#> $ age <fct> All
#> $ demographic <fct> All
#> $ subdemo <fct> All
#> $ mcc <ord> 6+
#> $ prevalence <dbl> 0.177
#> $ tot_pymt_percap <dbl> 32475.26
#> $ tot_std_pymt_percap <dbl> 30118.69
#> $ hosp_readmit_rate <dbl> 0.227
#> $ er_visits_per_1k <dbl> 1922.216
conditions(year = 2018,
set = "specific",
level = "national",
age = "all",
demo = "all",
condition = "Arthritis") |> glimpse()
#> Rows: 1
#> Columns: 12
#> $ year <int> 2018
#> $ level <ord> National
#> $ sublevel <ord> National
#> $ age <fct> All
#> $ demographic <fct> All
#> $ subdemo <fct> All
#> $ condition <chr> "Arthritis"
#> $ prevalence <dbl> 0.3347
#> $ tot_pymt_percap <dbl> 16890.05
#> $ tot_std_pymt_percap <dbl> 16006.14
#> $ hosp_readmit_rate <dbl> 0.1843
#> $ er_visits_per_1k <dbl> 1013.535
hospitals(npi = 1720098791) |> glimpse()
#> Rows: 1
#> Columns: 22
#> $ npi_org <chr> "1720098791"
#> $ pac_org <chr> "7618950643"
#> $ enid_org <chr> "O20230310002325"
#> $ enid_state <ord> GA
#> $ facility_ccn <chr> "110779"
#> $ organization <chr> "IRWIN COUNTY HOSPITAL"
#> $ doing_business_as <chr> "PROGRESSIVE MEDICAL ENTERPRISE"
#> $ specialty_code <chr> "00-24"
#> $ specialty <chr> "PART A PROVIDER - RURAL EMERGENCY HOSPITAL (REH)"
#> $ incorp_state <ord> GA
#> $ structure <chr> "OTHER: HOSPITAL AUTHORITY"
#> $ address <chr> "710 N IRWIN AVE"
#> $ city <chr> "OCILLA"
#> $ state <ord> GA
#> $ zip <chr> "317745011"
#> $ location_type <chr> "OTHER HOSPITAL PRACTICE LOCATION: REH"
#> $ registration <fct> Non-Profit
#> $ multi_npi <lgl> FALSE
#> $ reh_date <date> 2023-03-23
#> $ reh_ccns <chr> "110130"
#> $ reh_conversion <lgl> TRUE
#> $ subgroup <fct> None
laboratories(clia = "11D0265516") |> glimpse()
#> Rows: 1
#> Columns: 25
#> $ clia_number <chr> "11D0265516"
#> $ provider_name <chr> "DANIEL FELDMAN MD"
#> $ certificate <ord> Compliance
#> $ clia_medicare <chr> "00205114A3"
#> $ effective_date <date> 1996-08-29
#> $ expiration_date <date> 1998-08-04
#> $ expired <lgl> TRUE
#> $ termination_reason <ord> "Mail Returned No Forward Address Cert Ended (CL…
#> $ status <ord> In Compliance
#> $ poc_ind <lgl> TRUE
#> $ type_of_action <ord> Recertification
#> $ ownership_type <fct> Proprietary
#> $ facility_type <ord> Physician Office
#> $ director_affiliations <int> 0
#> $ address <chr> "205 WOODROW WILSON DR"
#> $ city <chr> "VALDOSTA"
#> $ state <ord> GA
#> $ zip <chr> "31602"
#> $ phone <chr> "8032619888"
#> $ orig_part_date <date> 1992-09-01
#> $ application_date <date> 1993-01-20
#> $ certification_date <date> 1996-03-21
#> $ mailed_date <date> 1996-09-25
#> $ region <fct> Atlanta
#> $ clia_class_current <fct> CLIA Lab
nppes(npi = 1720098791) |> glimpse()
#> Rows: 1
#> Columns: 31
#> $ npi <chr> "1720098791"
#> $ entity_type <fct> Organization
#> $ enum_date <date> 2006-08-09
#> $ last_update <date> 2011-10-06
#> $ status <fct> Active
#> $ gender <fct> Unknown
#> $ organization <chr> "IRWIN COUNTY HOSPITAL"
#> $ org_part <lgl> FALSE
#> $ purpose <fct> Practice
#> $ address <chr> "710 N IRWIN AVE"
#> $ city <chr> "OCILLA"
#> $ state <ord> GA
#> $ zip <chr> "317745011"
#> $ country <chr> "US"
#> $ phone <chr> "229-468-3800"
#> $ fax <chr> "229-468-9991"
#> $ ao_prefix <chr> "Mrs."
#> $ ao_first <chr> "SHARON"
#> $ ao_middle <chr> "P"
#> $ ao_last <chr> "GRIFFIN"
#> $ ao_title <chr> "CFO"
#> $ ao_phone <chr> "2294683862"
#> $ tx_code <chr> "282N00000X"
#> $ tx_primary <lgl> TRUE
#> $ tx_desc <chr> "General Acute Care Hospital"
#> $ tx_license <chr> "86112S"
#> $ tx_state <ord> GA
#> $ id_code <chr> "05"
#> $ id_desc <chr> "MEDICAID"
#> $ id_state <ord> GA
#> $ id_identifier <chr> "000000987A"
open_payments(year = 2021, npi = 1023630738, na.rm = TRUE) |>
mutate(info = ndc_lookup(ndc), ndc = NULL) |>
unnest(info) |> glimpse()
#> ✖ No results for NDC = 78206-145-01
#> Rows: 1
#> Columns: 46
#> $ program_year <int> 2021
#> $ npi <chr> "1023630738"
#> $ covered_recipient <fct> Non-Physician Practitioner
#> $ first <chr> "ALYSIA"
#> $ middle <chr> "MOTA"
#> $ last <chr> "SMITH"
#> $ address <chr> "610 N HOY ST"
#> $ city <chr> "BUFFALO"
#> $ state <ord> OK
#> $ zip <chr> "73834"
#> $ country <chr> "United States"
#> $ primary <chr> "Physician Assistant"
#> $ specialty <chr> "Physician Assistants & Advanced Practice Nursing …
#> $ license_state <ord> OK
#> $ payer_id <chr> "100000866821"
#> $ payer_sub <chr> "Organon LLC"
#> $ payer_name <chr> "Organon LLC"
#> $ payer_state <ord> NJ
#> $ payer_country <chr> "United States"
#> $ pay_total <dbl> 17.43
#> $ pay_date <date> 2021-08-25
#> $ pay_count <int> 1
#> $ pay_form <chr> "In-kind items and services"
#> $ pay_nature <chr> "Food and Beverage"
#> $ physician_ownership <lgl> FALSE
#> $ third_party_payment <chr> "No Third Party Payment"
#> $ publish_date <date> 2023-06-30
#> $ publish_delay <lgl> FALSE
#> $ publish_dispute <lgl> FALSE
#> $ related_product <lgl> TRUE
#> $ row_id <int> 1
#> $ group_id <int> 1
#> $ name <chr> "NEXPLANON"
#> $ covered <lgl> TRUE
#> $ type <chr> "Drug"
#> $ category <chr> "CONTRACEPTIVES"
#> $ ndc <chr> "78206-145-01"
#> $ rxcui <chr> "1111011"
#> $ atc <chr> "G03AC"
#> $ status <chr> "ACTIVE"
#> $ brand_name <chr> "NEXPLANON"
#> $ drug_name <chr> "etonogestrel 68 MG Drug Implant [Nexplanon]"
#> $ atc_first <chr> "genito urinary system and sex hormones"
#> $ atc_second <chr> "sex hormones and modulators of the genital system"
#> $ atc_third <chr> "hormonal contraceptives for systemic use"
#> $ atc_fourth <chr> "progestogens"
opt_out(npi = 1043522824) |> glimpse()
#> Rows: 1
#> Columns: 12
#> $ npi <chr> "1043522824"
#> $ first <chr> "James"
#> $ last <chr> "Smith"
#> $ specialty <chr> "Nurse Practitioner"
#> $ order_refer <lgl> TRUE
#> $ optout_start_date <date> 2019-07-01
#> $ optout_end_date <date> 2025-07-01
#> $ last_updated <date> 2023-09-15
#> $ address <chr> "8585 E HARTFORD DR STE 111"
#> $ city <chr> "SCOTTSDALE"
#> $ state <ord> AZ
#> $ zip <chr> "852555472"
order_refer(npi = 1043522824)
#> # A tibble: 4 × 4
#> npi first last service
#> <chr> <chr> <chr> <fct>
#> 1 1043522824 JAMES SMITH Medicare Part B
#> 2 1043522824 JAMES SMITH Home Health Agency
#> 3 1043522824 JAMES SMITH Durable Medical Equipment
#> 4 1043522824 JAMES SMITH Power Mobility Devices
outpatient(year = 2021,
state = "GA",
city = "Valdosta",
apc = "5072") |> glimpse()
#> Rows: 1
#> Columns: 18
#> $ year <int> 2021
#> $ ccn <chr> "110122"
#> $ organization <chr> "South Georgia Medical Center"
#> $ street <chr> "2501 North Patterson Street, Po Box 1727"
#> $ city <chr> "Valdosta"
#> $ state <chr> "GA"
#> $ fips <chr> "13"
#> $ zip <chr> "31602"
#> $ ruca <chr> "1"
#> $ apc <chr> "5072"
#> $ apc_desc <chr> "Level 2 Excision/ Biopsy/ Incision and Drainage"
#> $ tot_benes <int> 210
#> $ comp_apc_srvcs <int> 222
#> $ avg_charges <dbl> 6454.778
#> $ avg_allowed <dbl> 1233.753
#> $ avg_payment <dbl> 981.9733
#> $ tot_outlier_srvcs <int> 0
#> $ avg_outlier_payment <dbl> 0
providers(npi = 1720098791,
enid = "O20040610001257") |> glimpse()
#> Rows: 1
#> Columns: 7
#> $ npi <chr> "1720098791"
#> $ pac <chr> "7618950643"
#> $ enid <chr> "O20040610001257"
#> $ specialty_code <chr> "12-70"
#> $ specialty_description <chr> "PART B SUPPLIER - CLINIC/GROUP PRACTICE"
#> $ state <ord> GA
#> $ organization <chr> "IRWIN COUNTY HOSPITAL"
quality_payment(year = 2021,
npi = 1932365699) |> glimpse()
#> Rows: 1
#> Columns: 20
#> $ year <int> 2021
#> $ npi <chr> "1932365699"
#> $ state <ord> CO
#> $ size <int> 3
#> $ specialty <chr> "Optometry"
#> $ med_years <int> 14
#> $ type <fct> Group
#> $ beneficiaries <int> 555
#> $ services <int> 1157
#> $ allowed_charges <dbl> 112449
#> $ final_score <dbl> 60
#> $ pay_adjust <dbl> 0
#> $ quality_score <dbl> 45
#> $ pi_score <dbl> 0
#> $ ia_score <dbl> 0
#> $ cost_score <dbl> 0
#> $ complex_bonus <dbl> 2.54
#> $ qi_bonus <dbl> 0
#> $ statuses <list> [<tbl_df[9 x 1]>]
#> $ measures <list> [<tbl_df[6 x 3]>]
q <- quality_payment(year = 2021, npi = 1932365699)
select(q, year, statuses) |> unnest(statuses)
#> # A tibble: 9 × 2
#> year category
#> <int> <fct>
#> 1 2021 Engaged
#> 2 2021 Small Practitioner
#> 3 2021 Rural Clinician
#> 4 2021 HPSA Clinician
#> 5 2021 Extreme Hardship
#> 6 2021 Extreme Hardship (Quality)
#> 7 2021 Extreme Hardship (PI)
#> 8 2021 Extreme Hardship (IA)
#> 9 2021 Extreme Hardship (Cost)
select(q, year, measures) |> unnest(measures)
#> # A tibble: 6 × 4
#> year measure id score
#> <int> <fct> <chr> <dbl>
#> 1 2021 Quality 141 3
#> 2 2021 Quality 014 3
#> 3 2021 Quality 110 3
#> 4 2021 Quality 47 3
#> 5 2021 Quality 1 0
#> 6 2021 Quality 117 0
reassignments(npi = 1932365699,
pac_org = 7719037548) |> glimpse()
#> Rows: 1
#> Columns: 12
#> $ npi <chr> "1932365699"
#> $ pac <chr> "42370496"
#> $ enid <chr> "I20171107000894"
#> $ first <chr> "STEFAN"
#> $ last <chr> "SMITH"
#> $ associations <int> 2
#> $ organization <chr> "EYE CENTER OF THE ROCKIES PC"
#> $ pac_org <chr> "7719037548"
#> $ enid_org <chr> "O20090616000599"
#> $ state_org <ord> CO
#> $ reassignments <int> 5
#> $ entry <fct> Reassignment
utilization(year = 2021,
npi = 1932365699,
type = "provider") |> glimpse()
#> Rows: 1
#> Columns: 20
#> $ year <int> 2021
#> $ npi <chr> "1932365699"
#> $ entity_type <fct> Individual
#> $ first <chr> "Stefan"
#> $ middle <chr> "M"
#> $ last <chr> "Smith"
#> $ gender <fct> Male
#> $ credential <chr> "OD"
#> $ specialty <chr> "Optometry"
#> $ address <chr> "724 St. Louis Road"
#> $ city <chr> "Collinsville"
#> $ state <ord> IL
#> $ zip <chr> "62234"
#> $ fips <chr> "17"
#> $ ruca <chr> "1"
#> $ country <chr> "US"
#> $ par <lgl> TRUE
#> $ performance <list> [<tbl_df[1 x 11]>]
#> $ demographics <list> [<tbl_df[1 x 15]>]
#> $ conditions <list> [<tbl_df[1 x 17]>]
p <- utilization(year = 2021, npi = 1932365699, type = "provider")
select(p, year, performance) |> unnest(performance) |> glimpse()
#> Rows: 1
#> Columns: 12
#> $ year <int> 2021
#> $ tot_hcpcs <int> 19
#> $ tot_benes <int> 279
#> $ tot_srvcs <int> 475
#> $ tot_charges <dbl> 57098.8
#> $ tot_allowed <dbl> 48345.19
#> $ tot_payment <dbl> 31966.13
#> $ tot_std_pymt <dbl> 31316.51
#> $ .copay_deduct <dbl> 16379.06
#> $ .srvcs_per_bene <dbl> 1.702509
#> $ .pymt_per_bene <dbl> 114.5739
#> $ .pymt_per_srvc <dbl> 67.29712
select(p, year, demographics) |>
unnest(demographics) |>
glimpse()
#> Rows: 1
#> Columns: 16
#> $ year <int> 2021
#> $ bene_age_avg <int> 72
#> $ bene_age_lt65 <int> 16
#> $ bene_age_65_74 <int> 181
#> $ bene_age_75_84 <int> 63
#> $ bene_age_gt84 <int> 19
#> $ bene_gen_female <int> 157
#> $ bene_gen_male <int> 122
#> $ bene_race_wht <int> 245
#> $ bene_race_blk <int> 0
#> $ bene_race_api <int> 0
#> $ bene_race_hisp <int> NA
#> $ bene_race_nat <int> NA
#> $ bene_race_oth <int> 15
#> $ bene_dual <int> 40
#> $ bene_ndual <int> 239
select(p, year, conditions) |>
unnest(conditions) |>
glimpse()
#> Rows: 1
#> Columns: 18
#> $ year <int> 2021
#> $ hcc_risk_avg <dbl> 0.7719
#> $ cc_af <dbl> 0.08
#> $ cc_alz <dbl> 0.07
#> $ cc_asth <dbl> 0.06
#> $ cc_canc <dbl> 0.09
#> $ cc_chf <dbl> 0.06
#> $ cc_ckd <dbl> 0.15
#> $ cc_copd <dbl> 0.06
#> $ cc_dep <dbl> 0.19
#> $ cc_diab <dbl> 0.16
#> $ cc_hplip <dbl> 0.32
#> $ cc_hpten <dbl> 0.33
#> $ cc_ihd <dbl> 0.18
#> $ cc_opo <dbl> 0.13
#> $ cc_raoa <dbl> 0.3
#> $ cc_sz <dbl> NA
#> $ cc_strk <dbl> NA
utilization(year = 2021,
npi = 1932365699,
hcpcs = "99214",
type = "service") |> glimpse()
#> Rows: 1
#> Columns: 32
#> $ year <int> 2021
#> $ npi <chr> "1932365699"
#> $ level <ord> Provider
#> $ first <chr> "Stefan"
#> $ middle <chr> "M"
#> $ last <chr> "Smith"
#> $ gender <fct> Male
#> $ credential <chr> "O.D."
#> $ specialty <chr> "Optometry"
#> $ address <chr> "724 St. Louis Road"
#> $ city <chr> "Collinsville"
#> $ state <ord> IL
#> $ zip <chr> "62234"
#> $ fips <chr> "17"
#> $ ruca <chr> "1"
#> $ country <chr> "US"
#> $ par <lgl> TRUE
#> $ hcpcs <chr> "99214"
#> $ hcpcs_desc <chr> "Established patient outpatient visit, total time 30-39 m…
#> $ category <chr> "E&M"
#> $ subcategory <chr> "Office/Outpatient Services"
#> $ family <chr> "Office E&M - Established"
#> $ procedure <fct> Non-procedure
#> $ drug <lgl> FALSE
#> $ pos <fct> Non-facility
#> $ tot_benes <int> 24
#> $ tot_srvcs <int> 27
#> $ tot_day <int> 27
#> $ avg_charge <dbl> 134.7407
#> $ avg_allowed <dbl> 132.7281
#> $ avg_payment <dbl> 102.7159
#> $ avg_std_pymt <dbl> 99.46074
utilization(year = 2021,
hcpcs = "99205",
level = "National",
pos = "F",
type = "geography") |> glimpse()
#> Rows: 1
#> Columns: 18
#> $ year <int> 2021
#> $ level <ord> National
#> $ hcpcs <chr> "99205"
#> $ hcpcs_desc <chr> "New patient outpatient visit, total time 60-74 minutes"
#> $ category <chr> "E&M"
#> $ subcategory <chr> "Office/Outpatient Services"
#> $ family <chr> "Office E&M - New"
#> $ procedure <fct> Non-procedure
#> $ drug <lgl> FALSE
#> $ pos <fct> Facility
#> $ tot_provs <int> 65502
#> $ tot_benes <int> 574426
#> $ tot_srvcs <int> 653339
#> $ tot_day <int> 653311
#> $ avg_charge <dbl> 493.5003
#> $ avg_allowed <dbl> 186.2096
#> $ avg_payment <dbl> 143.4408
#> $ avg_std_pymt <dbl> 139.6115
Please note that the provider
project is released with a Contributor
Code of
Conduct.
By contributing to this project, you agree to abide by its terms.