R/encode_CountryOfBirthCALD.R

In HughParsonage/dhhs: Handle Common Tasks at the Department of Health and Human Services ('DHHS'), Victoria, Australia

encode_CountryOfBirthCALD <- function(x) {
  uCountryOfBirthCALD <- get_dhhs("uCountryOfBirthCALD")
  fmatch(x, uCountryOfBirthCALD)
}

decode_CountryOfBirthCALD <- function(x) {
  uCountryOfBirthCALD <- get_dhhs("uCountryOfBirthCALD")
  uCountryOfBirthCALD[x]
}