R/encode_PrimaryWorkplace.R

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

encode_PrimaryWorkplace <- function(x) {
  uPrimaryWorkplace <- get_dhhs("uPrimaryWorkplace")
  fmatch(x, uPrimaryWorkplace)
}

decode_PrimaryWorkplace <- function(x) {
  uPrimaryWorkplace <- get_dhhs("uPrimaryWorkplace")
  uPrimaryWorkplace[x]
}