R/encode_ClearedReason.R

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

encode_ClearedReason <- function(x) {
  uClearedReason <- get_dhhs("uClearedReason")
  fmatch(x, uClearedReason)
}

decode_ClearedReason <- function(x) {
  uClearedReason <- get_dhhs("uClearedReason")
  uClearedReason[x]
}