R/Lookup.R

In connerpike/cptr: An R reference for CPT Procedure Codes

##### Getters #####

get_hcpcs_description <- function(codes_to_find,year=2018){
  year = as.character(year)
  ret <- hcpcs[[year]][match(codes_to_find,hcpcs[[year]]$code),]
  return(ret)
}


get_cpt_description <- function(codes,year=2018){
	return(get_hcpcs_description(codes,year))
}