R/encode_LostToFollowUpReason.R

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

encode_LostToFollowUpReason <- function(x) {
  uLostToFollowUpReason <- get_dhhs("uLostToFollowUpReason")
  fmatch(x, uLostToFollowUpReason)
}

decode_LostToFollowUpReason <- function(x) {
  uLostToFollowUpReason <- get_dhhs("uLostToFollowUpReason")
  uLostToFollowUpReason[x]
}