walk-ins.R

# Add WalkIn to the headers
headers  <- c("AccountNumber", "FirstName", "LastName", "PhoneNumber","MobileNumber", "Email", "DOB", "StreetAddress", 
              "City", "State", "Zip", "InsuranceCompany", "Insurance", "ProductCode", "ItemID", 
              "ItemName", "ServiceDate", "EligibilityDate", "SleepCoach", "DelayedActivationDate","Branch","Qty", "Allowable", "WalkIn")

# Add this block somewhere in for processor before rm(patients) Bright Tree
output$WalkIn <- sapply(patients$Sales.Order.Detail.Proc.Code, function(code){
    walk.in.codes <- c('A7027', 'A7028', 'A7029', 'A7030', 'A7031', 'A7032', 'A7033', 'A7034')
    if (code %in% walk.in.codes) T else F
})