-
Notifications
You must be signed in to change notification settings - Fork 2
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
4443827
commit 3ed6fa0
Showing
10 changed files
with
615 additions
and
399 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,135 @@ | ||
| #' Restructured BETOS Classification System | ||
| #' | ||
| #' @description | ||
| #' | ||
| #' `betos_classification()` allows the user to group HCPCS codes into clinically | ||
| #' meaningful categories based on the original Berenson-Eggers Type of Service | ||
| #' (BETOS) classification. Users may use the RBCS to analyze trends and perform | ||
| #' other types of health services analytic work. | ||
| #' | ||
| #' ## BETOS | ||
| #' The Restructured BETOS Classification System (RBCS) is a taxonomy that allows | ||
| #' researchers to group healthcare service codes for Medicare Part B services | ||
| #' into clinically meaningful categories and subcategories. It is based on the | ||
| #' original Berenson-Eggers Type of Service (BETOS) classification created in | ||
| #' the 1980s, and includes notable updates such as Part B non-physician services. | ||
| #' The RBCS will undergo annual updates by a technical expert panel of | ||
| #' researchers and clinicians. | ||
| #' | ||
| #' The general framework for grouping service codes into the new RBCS taxonomy | ||
| #' largely follows the same structure of BETOS. Like BETOS, the RBCS groups | ||
| #' HCPCS codes into categories, subcategories, and families – with categories | ||
| #' as the most aggregate level and families as the more granular level. | ||
| #' | ||
| #' All Medicare Part B service codes, including non-physician services, are | ||
| #' assigned to a 6-character RBCS taxonomy code. | ||
| #' | ||
| #' Links: | ||
| #' | ||
| #' - [Restructured BETOS Classification System](https://data.cms.gov/provider-summary-by-type-of-service/provider-service-classifications/restructured-betos-classification-system) | ||
| #' - [Restructured BETOS Classification System Data Dictionary](https://data.cms.gov/resources/restructured-betos-classification-system-data-dictionary) | ||
| #' | ||
| #' *Update Frequency:* **Annually** | ||
| #' | ||
| #' @param hcpcs_code < *character* > HCPCS or CPT code | ||
| #' @param category < *character* > RBCS Category Description | ||
| #' @param subcategory < *character* > RBCS Subcategory Description | ||
| #' @param family < *character* > RBCS Family Description | ||
| #' @param procedure < *character* > Whether the HCPCS code is a Major (`"M"`), | ||
| #' Other (`"O"`), or Non-Procedure code (`"N"`). | ||
| #' @param tidy < *boolean* > Tidy output; default is `TRUE` | ||
| #' | ||
| #' @return A [tibble][tibble::tibble-package] with the columns: | ||
| #' | ||
| #' |**Field** |**Description** | | ||
| #' |:------------------|:--------------------------------------------| | ||
| #' |`hcpcs_code` |HCPCS or CPT code | | ||
| #' |`rbcs_id` |RBCS Identifier | | ||
| #' |`category` |RBCS Category | | ||
| #' |`subcategory` |RBCS Subcategory | | ||
| #' |`family` |RBCS Family | | ||
| #' |`procedure` |RBCS Major Procedure Indicator | | ||
| #' |`hcpcs_start_date` |Date HCPCS Code was added | | ||
| #' |`hcpcs_end_date` |Date HCPCS Code was no longer effective | | ||
| #' |`rbcs_start_date` |Earliest Date that the RBCS ID was effective | | ||
| #' |`rbcs_end_date` |Latest Date that the RBCS ID can be applied | | ||
| #' | ||
| #' @examplesIf interactive() | ||
| #' betos(hcpcs_code = "0001U") | ||
| #' betos(category = "Test") | ||
| #' betos(subcategory = "General Laboratory") | ||
| #' betos(family = "Immunoassay") | ||
| #' betos(procedure = "M") | ||
| #' @autoglobal | ||
| #' @export | ||
| betos <- function(hcpcs_code = NULL, | ||
| category = NULL, | ||
| subcategory = NULL, | ||
| family = NULL, | ||
| procedure = NULL, | ||
| tidy = TRUE) { | ||
|
|
||
| args <- dplyr::tribble( | ||
| ~param, ~arg, | ||
| "HCPCS_Cd", hcpcs_code, | ||
| "RBCS_Cat_Desc", category, | ||
| "RBCS_Subcat_Desc", subcategory, | ||
| "RBCS_Family_Desc", family, | ||
| "RBCS_Major_Ind", procedure) | ||
|
|
||
| response <- httr2::request(build_url("bet", args)) |> httr2::req_perform() | ||
|
|
||
| if (isTRUE(vctrs::vec_is_empty(response$body))) { | ||
|
|
||
| cli_args <- dplyr::tribble( | ||
| ~x, ~y, | ||
| "hcpcs_code", hcpcs_code, | ||
| "category", category, | ||
| "subcategory", subcategory, | ||
| "family", family, | ||
| "procedure", procedure) |> | ||
| tidyr::unnest(cols = c(y)) | ||
|
|
||
| format_cli(cli_args) | ||
|
|
||
| return(invisible(NULL)) | ||
|
|
||
| } | ||
|
|
||
| results <- httr2::resp_body_json(response, simplifyVector = TRUE) | ||
|
|
||
| if (tidy) { | ||
| results <- tidyup(results) |> | ||
| dplyr::mutate(dplyr::across(dplyr::everything(), stringr::str_squish), | ||
| dplyr::across(dplyr::contains("dt"), anytime::anydate), | ||
| rbcs_major_ind = dplyr::case_match(rbcs_major_ind, | ||
| "N" ~ "Non-procedure", | ||
| "M" ~ "Major", | ||
| "O" ~ "Other")) |> | ||
| betos_cols() | ||
| } | ||
| return(results) | ||
| } | ||
|
|
||
| #' @param df data frame | ||
| #' @autoglobal | ||
| #' @noRd | ||
| betos_cols <- function(df) { | ||
|
|
||
| cols <- c('hcpcs_code' = 'hcpcs_cd', | ||
| 'rbcs_id', | ||
| # 'rbcs_cat', | ||
| 'category' = 'rbcs_cat_desc', | ||
| # 'rbcs_cat_subcat', | ||
| 'subcategory' = 'rbcs_subcat_desc', | ||
| # 'rbcs_fam_numb', | ||
| 'family' = 'rbcs_family_desc', | ||
| 'procedure' = 'rbcs_major_ind', | ||
| 'hcpcs_start_date' = 'hcpcs_cd_add_dt', | ||
| 'hcpcs_end_date' = 'hcpcs_cd_end_dt', | ||
| 'rbcs_start_date' = 'rbcs_assignment_eff_dt', | ||
| 'rbcs_end_date' = 'rbcs_assignment_end_dt') | ||
|
|
||
| df |> dplyr::select(dplyr::all_of(cols)) | ||
|
|
||
| } |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.