Fix right join at

R/process_sc_all_alarms_telecare.R

@@ -24,24 +24,24 @@
   # Fix dates and create new variables
   data[
     ,
     service_end_date := fix_sc_missing_end_dates(
       service_end_date,
       period_end_date
     )
   ]
   data[
     ,
     service_start_date := fix_sc_start_dates(
       service_start_date,
       period_start_date
     )
   ]
   data[
     ,
     service_end_date := fix_sc_end_dates(
       service_start_date,
       service_end_date,
       period_end_date
     )
   ]
 
@@ -73,18 +73,19 @@
       convert_sc_sending_location_to_lca(sending_location)
     )
   ]
+
+  # RIGHT_JOIN with sc_demog_lookup
+  data <- data[sc_demog_lookup, on = .(sending_location, social_care_id)]
+
+  # Replace social_care_id with latest if needed (assuming replace_sc_id_with_latest is a custom function)
+  data <- replace_sc_id_with_latest(data)
+
   data$person_id <- paste0(
     data$sending_location,
     "-",
     data$social_care_id
   )
 
-  # Join with sc_demog_lookup
-  data <- sc_demog_lookup[data, on = .(sending_location, social_care_id)]
-
-  # Replace social_care_id with latest if needed (assuming replace_sc_id_with_latest is a custom function)
-  data <- replace_sc_id_with_latest(data)
-
   # Deal with episodes that have a package across quarters
   data[, pkg_count := seq_len(.N), by = .(
     sending_location,