reorganise publications folder

Public-Health-Scotland · Sep 19, 2024 · 30b58f5 · 30b58f5
1 parent fbd88bf
commit 30b58f5
Show file tree

Hide file tree

Showing 80 changed files with 232 additions and 232 deletions.
diff --git a/07_publication/update_2024_06/control_mmi.R → 01_control/control_mmi.R b/07_publication/update_2024_06/control_mmi.R → 01_control/control_mmi.R
diff --git a/...tion/update_2024_06/control_publication.R → 01_control/control_publication.R b/...tion/update_2024_06/control_publication.R → 01_control/control_publication.R
diff --git a/...update_2024_06/chapters/1_load_packages.R → ...cation/archive/chapters/1_load_packages.R b/...update_2024_06/chapters/1_load_packages.R → ...cation/archive/chapters/1_load_packages.R
diff --git a/07_publication/archive/chapters/2_load_functions.R b/07_publication/archive/chapters/2_load_functions.R
@@ -0,0 +1,24 @@
+
+######################.
+### Load functions ###
+######################.
+
+# Author: Charlie Smith
+# Date: 2023-11-14
+
+
+source('./02_setup/save_df_as_parquet.R')
+source("./07_publication/script/functions/retrieve_save_data.R")
+source('./07_publication/script/functions/get_referrals_quarterly.R')
+source('./07_publication/script/functions/get_referrals_monthly_sco.R')
+source('./07_publication/script/functions/get_referrals_sex_age.R')
+source('./07_publication/script/functions/get_referrals_simd.R')
+
+source('./07_publication/script/functions/create_table_refs_quarterly.R')
+source('./07_publication/script/functions/get_annual_summary_figures.R')
+
+source('./07_publication/script/functions/make_chart_referrals_sco.R')
+source('./07_publication/script/functions/make_chart_referrals_sex_age.R')
+source('./07_publication/script/functions/make_chart_referrals_rate_simd.R')
+
+source('./07_publication/script/functions/compile_excel_doc.R')
diff --git a/07_publication/archive/chapters/3_set_constants.R b/07_publication/archive/chapters/3_set_constants.R
@@ -0,0 +1,67 @@
+
+#####################.
+### Set constants ###
+#####################.
+
+# Author: Charlie Smith
+# Date: 2023-11-14
+
+
+
+
+# 1 - Establish data time frame -------------------------------------------
+
+month_end <- ymd(month_end)
+month_start <- ymd(month_end) - months(14)
+date_range <- seq.Date(from = month_start, to = month_end, by = "month")
+
+range_12_month <- seq.Date(from = month_end - months(11), to = month_end, by = "month")
+
+# 2 - Production data -----------------------------------------------------
+publication_month <- month_end + months(3)
+
+
+production_date <- Sys.Date()
+production_month <- format(as.Date(production_date), "%B %Y")
+
+# 3 - Set safe place to save working data ---------------------------------
+
+data_working_safe <- "../../../output/publication/data/"
+
+reference_files_dir <- paste0(data_working_safe, 'reference_files/')
+dir.create(paste0(data_working_safe, publication_month, '_release'))
+
+data_working_safe <- paste0(data_working_safe, publication_month, '_release/')
+
+
+
+
+# 4 - Reference -----------------------------------------------------------
+
+# create HB vector
+hb_vector <- c("NHS Scotland",
+               "NHS Ayrshire and Arran", 
+               "NHS Borders", 
+               "NHS Dumfries and Galloway",
+               "NHS Fife",
+               "NHS Forth Valley", 
+               "NHS Grampian",
+               "NHS Greater Glasgow and Clyde",
+               "NHS Highland",
+               "NHS Lanarkshire", 
+               "NHS Lothian", 
+               "NHS Orkney",
+               "NHS Shetland", 
+               "NHS Tayside", 
+               "NHS Western Isles",
+               "NHS 24")
+
+
+# chart dimensions
+chart_width <- 24
+chart_height <- 16
+
+
+# 6 - Get next pub date ---------------------------------------------------
+# (6 months after month_end, 1st Tuesday)
+# next_pub_date <- id_next_pub(data_last = month_end)
diff --git a/...on/script/chapters/4_retrieve_save_data.R → ...n/archive/chapters/4_retrieve_save_data.R b/...on/script/chapters/4_retrieve_save_data.R → ...n/archive/chapters/4_retrieve_save_data.R
diff --git a/...ript/chapters/5_get_referrals_quarterly.R → ...hive/chapters/5_get_referrals_quarterly.R b/...ript/chapters/5_get_referrals_quarterly.R → ...hive/chapters/5_get_referrals_quarterly.R
diff --git a/...script/chapters/6_get_referrals_monthly.R → ...rchive/chapters/6_get_referrals_monthly.R b/...script/chapters/6_get_referrals_monthly.R → ...rchive/chapters/6_get_referrals_monthly.R
diff --git a/...script/chapters/7_get_referrals_sex_age.R → ...rchive/chapters/7_get_referrals_sex_age.R b/...script/chapters/7_get_referrals_sex_age.R → ...rchive/chapters/7_get_referrals_sex_age.R
diff --git a/...on/script/chapters/8_get_referrals_simd.R → ...n/archive/chapters/8_get_referrals_simd.R b/...on/script/chapters/8_get_referrals_simd.R → ...n/archive/chapters/8_get_referrals_simd.R
diff --git a/07_publication/script/control_script_pub.R → 07_publication/archive/control_script_pub.R b/07_publication/script/control_script_pub.R → 07_publication/archive/control_script_pub.R
diff --git a/...tion/script/functions/compile_excel_doc.R → ...ion/archive/functions/compile_excel_doc.R b/...tion/script/functions/compile_excel_doc.R → ...ion/archive/functions/compile_excel_doc.R
diff --git a/...t/functions/create_table_refs_quarterly.R → ...e/functions/create_table_refs_quarterly.R b/...t/functions/create_table_refs_quarterly.R → ...e/functions/create_table_refs_quarterly.R
diff --git a/...pt/functions/get_annual_summary_figures.R → ...ve/functions/get_annual_summary_figures.R b/...pt/functions/get_annual_summary_figures.R → ...ve/functions/get_annual_summary_figures.R
diff --git a/...ipt/functions/get_referrals_monthly_sco.R → ...ive/functions/get_referrals_monthly_sco.R b/...ipt/functions/get_referrals_monthly_sco.R → ...ive/functions/get_referrals_monthly_sco.R
diff --git a/...cript/functions/get_referrals_quarterly.R → ...chive/functions/get_referrals_quarterly.R b/...cript/functions/get_referrals_quarterly.R → ...chive/functions/get_referrals_quarterly.R
diff --git a/.../script/functions/get_referrals_sex_age.R → ...archive/functions/get_referrals_sex_age.R b/.../script/functions/get_referrals_sex_age.R → ...archive/functions/get_referrals_sex_age.R
diff --git a/...ion/script/functions/get_referrals_simd.R → ...on/archive/functions/get_referrals_simd.R b/...ion/script/functions/get_referrals_simd.R → ...on/archive/functions/get_referrals_simd.R
diff --git a/...unctions/make_chart_referrals_rate_simd.R → ...unctions/make_chart_referrals_rate_simd.R b/...unctions/make_chart_referrals_rate_simd.R → ...unctions/make_chart_referrals_rate_simd.R
diff --git a/...ript/functions/make_chart_referrals_sco.R → ...hive/functions/make_chart_referrals_sco.R b/...ript/functions/make_chart_referrals_sco.R → ...hive/functions/make_chart_referrals_sco.R
diff --git a/.../functions/make_chart_referrals_sex_age.R → .../functions/make_chart_referrals_sex_age.R b/.../functions/make_chart_referrals_sex_age.R → .../functions/make_chart_referrals_sex_age.R
diff --git a/...ion/script/functions/retrieve_save_data.R → ...on/archive/functions/retrieve_save_data.R b/...ion/script/functions/retrieve_save_data.R → ...on/archive/functions/retrieve_save_data.R
diff --git a/07_publication/script/chapters/2_load_functions.R b/07_publication/script/chapters/2_load_functions.R
@@ -7,18 +7,60 @@
 # Date: 2023-11-14
 
 
+
 source('./02_setup/save_df_as_parquet.R')
-source("./07_publication/script/functions/retrieve_save_data.R")
-source('./07_publication/script/functions/get_referrals_quarterly.R')
-source('./07_publication/script/functions/get_referrals_monthly_sco.R')
-source('./07_publication/script/functions/get_referrals_sex_age.R')
-source('./07_publication/script/functions/get_referrals_simd.R')
 
-source('./07_publication/script/functions/create_table_refs_quarterly.R')
-source('./07_publication/script/functions/get_annual_summary_figures.R')
+source('./07_publication/update_2024_06/functions/add_sex_description.R')
+source('./07_publication/update_2024_06/functions/append_quarter_ending.R')
+source('./07_publication/update_2024_06/functions/summarise_by_quarter.R')
+source('./07_publication/update_2024_06/functions/add_proportion_ds_hb.R')
+source('./07_publication/update_2024_06/functions/add_hb_region.R')
+source("./07_publication/update_2024_06/functions/get_appointments_df.R")
+source("./07_publication/update_2024_06/functions/get_basic_data_referrals_df.R")
+source('./07_publication/update_2024_06/functions/tidy_age_group_order.R')
+
+source('./07_publication/update_2024_06/functions/summarise_referrals.R')
+#source('./07_publication/update_2024_06/functions/referrals_by_source.R')
+source('./07_publication/update_2024_06/functions/non_acceptance.R')
+source('./07_publication/update_2024_06/functions/non_acceptance_reason.R')
+source('./07_publication/update_2024_06/functions/non_acceptance_action.R')
+
+source('./07_publication/update_2024_06/functions/summarise_referrals_basic_opti.R')
+source('./07_publication/update_2024_06/functions/summarise_appointments_att.R')
+
+source('./07_publication/update_2024_06/functions/compile_referrals_excel_summary.R')
+source('./07_publication/update_2024_06/functions/compile_ref_source_excel_summary.R')
+source('./07_publication/update_2024_06/functions/compile_non_acceptance_summary.R')
+source('./07_publication/update_2024_06/functions/compile_non_acceptance_reason_summary.R')
+source('./07_publication/update_2024_06/functions/compile_non_acceptance_action_summary.R')
+source('./07_publication/update_2024_06/functions/compile_appointments_excel_summary.R')
+source('./07_publication/update_2024_06/functions/compile_basic_opti_excel_summary.R')
+
+
+source('./07_publication/update_2024_06/functions/create_table_referrals_quarterly.R')
+source('./07_publication/update_2024_06/functions/create_table_acc_rate.R')
+#source('./07_publication/update_2024_06/functions/create_table_acc_reason_action.R')
+source('./07_publication/update_2024_06/functions/create_table_app_att.R')
+source('./07_publication/update_2024_06/functions/create_table_basic_opti.R')
+
+source('./07_publication/update_2024_06/functions/create_bar_chart_rej_reason.R')
+source('./07_publication/update_2024_06/functions/create_bar_chart_rej_action.R')
+source('./07_publication/update_2024_06/functions/create_bar_chart_dna_simd.R')
+source('./07_publication/update_2024_06/functions/create_trend_plot_dna_rate.R')
+
+source('./07_publication/update_2024_06/functions/create_pub_function.R')
+source('./07_publication/update_2024_06/functions/identify_next_publication_date.R')
+
+# compile data tables functions
+source('./07_publication/update_2024_06/functions/compile_publication_data_tables.R')
+source('./07_publication/update_2024_06/functions/update_dt_wording.R')
+source('./07_publication/update_2024_06/functions/update_dt_values.R')
+source('./07_publication/update_2024_06/functions/protect_worksheets.R')
+
+source('./07_publication/update_2024_06/functions/summarise_referrals_sex_age.R')
+source('./07_publication/update_2024_06/functions/create_stemleaf_ref_sex_age.R')
+source('./07_publication/update_2024_06/functions/create_bar_chart_refs_simd.R')
+
+source('./07_publication/update_2024_06/functions/get_forpub_refs_agesex.R')
 
-source('./07_publication/script/functions/make_chart_referrals_sco.R')
-source('./07_publication/script/functions/make_chart_referrals_sex_age.R')
-source('./07_publication/script/functions/make_chart_referrals_rate_simd.R')
 
-source('./07_publication/script/functions/compile_excel_doc.R')
diff --git a/07_publication/script/chapters/3_set_constants.R b/07_publication/script/chapters/3_set_constants.R
@@ -26,21 +26,20 @@ production_month <- format(as.Date(production_date), "%B %Y")
 
 # 3 - Set safe place to save working data ---------------------------------
 
-data_working_safe <- "../../../output/publication/data/"
-
-reference_files_dir <- paste0(data_working_safe, 'reference_files/')
-dir.create(paste0(data_working_safe, publication_month, '_release'))
-
-data_working_safe <- paste0(data_working_safe, publication_month, '_release/')
-
-
+ref_dir <- paste0(shorewise_pub_data_dir, "/referrals/")
+ref_source_dir <- paste0(shorewise_pub_data_dir, "/referrals_by_ref_source/")
+non_acc_dir <- paste0(shorewise_pub_data_dir, "/non_acceptance/")
+non_acc_reason_dir <- paste0(shorewise_pub_data_dir, "/non_acceptance_reason/")
+non_acc_action_dir <- paste0(shorewise_pub_data_dir, "/non_acceptance_action/")
+apps_att_dir <- paste0(shorewise_pub_data_dir, "/appointments_att/")
+basic_opti_dir <- paste0(shorewise_pub_data_dir, "/basic_v_opti/")
+markdown_dir <- paste0(root_dir, "/markdown/")
 
 
 # 4 - Reference -----------------------------------------------------------
 
 # create HB vector
-hb_vector <- c("NHS Scotland",
-               "NHS Ayrshire and Arran", 
+hb_vector <- c("NHS Ayrshire and Arran", 
                "NHS Borders", 
                "NHS Dumfries and Galloway",
                "NHS Fife",
@@ -54,14 +53,86 @@ hb_vector <- c("NHS Scotland",
                "NHS Shetland", 
                "NHS Tayside", 
                "NHS Western Isles",
-               "NHS 24")
+               "NHS 24",
+               "NHS Scotland")
 
 
-# chart dimensions
-chart_width <- 24
-chart_height <- 16
+vec_dataset_type <- c("CAMHS", "PT")
+
+# create complete ds 
+df_ds_hb_name <- cross_join(as.data.frame(vec_dataset_type), 
+                            as.data.frame(hb_vector)) |> 
+  rename(dataset_type = vec_dataset_type,
+         hb_name = hb_vector) |> 
+  filter(!(#dataset_type == "CAMHS" & 
+             hb_name == "NHS 24")) # remove invalid combo
 
 
-# 6 - Get next pub date ---------------------------------------------------
-# (6 months after month_end, 1st Tuesday)
-# next_pub_date <- id_next_pub(data_last = month_end)
+# 5. Plotting constants -------------------------------------------------------
+
+# chart dimensions
+chart_width = 18 # changed to scale better on a4 page # 24
+chart_height = 12 # changed to scale better on a4 page # 16
+bar_width = 0.5
+
+# custom plotting theme (does not set legend formatting, 
+# requires panel.grid.major.x/y to be manually defined depending on orientation of plot)
+
+theme_captnd <- function(){
+  font <- "Arial"
+  theme_minimal() %+replace%
+    theme(
+      panel.grid.major = element_blank(),
+      panel.grid.minor = element_blank(),
+      panel.background = element_rect(fill = "white"),
+      panel.border = element_rect(colour = "grey95", fill = NA, linewidth = 0.75),
+      plot.caption = element_text(size = 10, hjust = 1, margin = margin(t = 10)),
+      axis.title.x = element_text(size = 12, face = "bold",
+                                  margin = margin(t = 15)),
+      axis.title.y = element_text(size = 12, face = "bold",
+                                  margin = margin(r = 15), angle = 90),
+      axis.text.x = element_text(size = 11, color = "black"),
+      axis.text.y = element_text(size = 11, color = "black", hjust = 1),
+      axis.ticks = element_line(colour = "grey90")
+    )
+}
+
+
+
+# 6 - Get date labels for publication doc ----------------------------
+
+# date labels
+date_label <- format(as.Date(month_end), "%B %Y")
+date_label_qt <- format((as.Date(month_end) %m-% months(3)), "%B %Y")
+date_label_yr <- format((as.Date(month_end) %m-% months(12)), "%B %Y")
+date_label_5qt <- format((as.Date(month_end) %m-% months(14)), "%B %Y")
+
+# set pub_date as 3 months after month_end
+pub_month <- as.Date(month_end %m+% months(3))
+## Get next pub date and prev pub date
+# (6 months after pub_date, 1st Tuesday)
+next_pub_date <- id_next_pub(pub_month)
+# (6 months after 1yr before pub_date, 1st Tuesday)
+prev_pub_date <- id_next_pub(pub_month - months(12))
+
+#pub_date for this publication itself
+pub_date <- id_next_pub(pub_month -months(6))
+
+
+
+
+# 7 - Constants for data tables -------------------------------------------
+
+
+# # password for locking worksheets (doesn't seem to work...)
+# str_password <- "13_DunDee_$dollar$"
+# 
+# dq_template_1 = "dq_info_only_template.xlsx" # DQ Report template
+# dq_template_1_update = "dq_report_template_DO_NOT_EDIT.xlsx"
+# dq_template_2 = "record_trend_only_template.xlsx" # Record Counts Report template
+# 
+# # set text font and size for added text
+style_text <- createStyle(fontName = 'Arial', fontSize = 11)
+style_date <- createStyle(numFmt = "mmm-yy", fontName = 'Arial', fontSize = 11, halign = "left")
+style_count <- createStyle(numFmt = "#,##0", fontName = 'Arial', fontSize = 11, halign = "right")
+style_percent <- createStyle(numFmt = "PERCENT", fontName = 'Arial', fontSize = 11, halign = "right")
diff --git a/...te_2024_06/create_reference_populations.R → ...ion/script/create_reference_populations.R b/...te_2024_06/create_reference_populations.R → ...ion/script/create_reference_populations.R
diff --git a/.../update_2024_06/functions/add_hb_region.R → ...lication/script/functions/add_hb_region.R b/.../update_2024_06/functions/add_hb_region.R → ...lication/script/functions/add_hb_region.R
diff --git a/..._2024_06/functions/add_proportion_ds_hb.R → ...n/script/functions/add_proportion_ds_hb.R b/..._2024_06/functions/add_proportion_ds_hb.R → ...n/script/functions/add_proportion_ds_hb.R
diff --git a/...e_2024_06/functions/add_sex_description.R → ...on/script/functions/add_sex_description.R b/...e_2024_06/functions/add_sex_description.R → ...on/script/functions/add_sex_description.R
diff --git a/...ctions/append_population_adjusted_rates.R → ...ctions/append_population_adjusted_rates.R b/...ctions/append_population_adjusted_rates.R → ...ctions/append_population_adjusted_rates.R
diff --git a/...2024_06/functions/append_quarter_ending.R → .../script/functions/append_quarter_ending.R b/...2024_06/functions/append_quarter_ending.R → .../script/functions/append_quarter_ending.R
diff --git a/...ctions/archive/create_mmi_table_app_att.R → ...ctions/archive/create_mmi_table_app_att.R b/...ctions/archive/create_mmi_table_app_att.R → ...ctions/archive/create_mmi_table_app_att.R
diff --git a/.../archive/create_table_acc_reason_action.R → .../archive/create_table_acc_reason_action.R b/.../archive/create_table_acc_reason_action.R → .../archive/create_table_acc_reason_action.R
diff --git a/...24_06/functions/archive/get_apps_totals.R → ...cript/functions/archive/get_apps_totals.R b/...24_06/functions/archive/get_apps_totals.R → ...cript/functions/archive/get_apps_totals.R
diff --git a/...unctions/archive/non_acceptance_outcome.R → ...unctions/archive/non_acceptance_outcome.R b/...unctions/archive/non_acceptance_outcome.R → ...unctions/archive/non_acceptance_outcome.R
diff --git a/...archive/referrals_by_presenting_problem.R → ...archive/referrals_by_presenting_problem.R b/...archive/referrals_by_presenting_problem.R → ...archive/referrals_by_presenting_problem.R
diff --git a/...6/functions/archive/referrals_by_source.R → ...t/functions/archive/referrals_by_source.R b/...6/functions/archive/referrals_by_source.R → ...t/functions/archive/referrals_by_source.R
diff --git a/...chive/summarise_appointments_att_broken.R → ...chive/summarise_appointments_att_broken.R b/...chive/summarise_appointments_att_broken.R → ...chive/summarise_appointments_att_broken.R
diff --git a/...e_2024_06/functions/check_ig_compliance.R → ...on/script/functions/check_ig_compliance.R b/...e_2024_06/functions/check_ig_compliance.R → ...on/script/functions/check_ig_compliance.R
diff --git a/...ions/compile_appointments_excel_summary.R → ...ions/compile_appointments_excel_summary.R b/...ions/compile_appointments_excel_summary.R → ...ions/compile_appointments_excel_summary.R
diff --git a/...ctions/compile_basic_opti_excel_summary.R → ...ctions/compile_basic_opti_excel_summary.R b/...ctions/compile_basic_opti_excel_summary.R → ...ctions/compile_basic_opti_excel_summary.R
diff --git a/...s/compile_non_acceptance_action_summary.R → ...s/compile_non_acceptance_action_summary.R b/...s/compile_non_acceptance_action_summary.R → ...s/compile_non_acceptance_action_summary.R
diff --git a/...s/compile_non_acceptance_reason_summary.R → ...s/compile_non_acceptance_reason_summary.R b/...s/compile_non_acceptance_reason_summary.R → ...s/compile_non_acceptance_reason_summary.R
diff --git a/...unctions/compile_non_acceptance_summary.R → ...unctions/compile_non_acceptance_summary.R b/...unctions/compile_non_acceptance_summary.R → ...unctions/compile_non_acceptance_summary.R
diff --git a/...nctions/compile_publication_data_tables.R → ...nctions/compile_publication_data_tables.R b/...nctions/compile_publication_data_tables.R → ...nctions/compile_publication_data_tables.R
diff --git a/...ctions/compile_ref_source_excel_summary.R → ...ctions/compile_ref_source_excel_summary.R b/...ctions/compile_ref_source_excel_summary.R → ...ctions/compile_ref_source_excel_summary.R
diff --git a/...nctions/compile_referrals_excel_summary.R → ...nctions/compile_referrals_excel_summary.R b/...nctions/compile_referrals_excel_summary.R → ...nctions/compile_referrals_excel_summary.R
diff --git a/..._06/functions/create_bar_chart_dna_simd.R → ...ipt/functions/create_bar_chart_dna_simd.R b/..._06/functions/create_bar_chart_dna_simd.R → ...ipt/functions/create_bar_chart_dna_simd.R
diff --git a/...06/functions/create_bar_chart_refs_simd.R → ...pt/functions/create_bar_chart_refs_simd.R b/...06/functions/create_bar_chart_refs_simd.R → ...pt/functions/create_bar_chart_refs_simd.R
diff --git a/...6/functions/create_bar_chart_rej_action.R → ...t/functions/create_bar_chart_rej_action.R b/...6/functions/create_bar_chart_rej_action.R → ...t/functions/create_bar_chart_rej_action.R
diff --git a/...6/functions/create_bar_chart_rej_reason.R → ...t/functions/create_bar_chart_rej_reason.R b/...6/functions/create_bar_chart_rej_reason.R → ...t/functions/create_bar_chart_rej_reason.R
diff --git a/...e_2024_06/functions/create_pub_function.R → ...on/script/functions/create_pub_function.R b/...e_2024_06/functions/create_pub_function.R → ...on/script/functions/create_pub_function.R
diff --git a/...6/functions/create_stemleaf_ref_sex_age.R → ...t/functions/create_stemleaf_ref_sex_age.R b/...6/functions/create_stemleaf_ref_sex_age.R → ...t/functions/create_stemleaf_ref_sex_age.R
diff --git a/...2024_06/functions/create_table_acc_rate.R → .../script/functions/create_table_acc_rate.R b/...2024_06/functions/create_table_acc_rate.R → .../script/functions/create_table_acc_rate.R
diff --git a/..._2024_06/functions/create_table_app_att.R → ...n/script/functions/create_table_app_att.R b/..._2024_06/functions/create_table_app_att.R → ...n/script/functions/create_table_app_att.R
diff --git a/...24_06/functions/create_table_basic_opti.R → ...cript/functions/create_table_basic_opti.R b/...24_06/functions/create_table_basic_opti.R → ...cript/functions/create_table_basic_opti.R
diff --git a/...ctions/create_table_referrals_quarterly.R → ...ctions/create_table_referrals_quarterly.R b/...ctions/create_table_referrals_quarterly.R → ...ctions/create_table_referrals_quarterly.R
diff --git a/...06/functions/create_trend_plot_dna_rate.R → ...pt/functions/create_trend_plot_dna_rate.R b/...06/functions/create_trend_plot_dna_rate.R → ...pt/functions/create_trend_plot_dna_rate.R
diff --git a/...e_2024_06/functions/get_appointments_df.R → ...on/script/functions/get_appointments_df.R b/...e_2024_06/functions/get_appointments_df.R → ...on/script/functions/get_appointments_df.R
diff --git a/...6/functions/get_basic_data_referrals_df.R → ...t/functions/get_basic_data_referrals_df.R b/...6/functions/get_basic_data_referrals_df.R → ...t/functions/get_basic_data_referrals_df.R
diff --git a/...024_06/functions/get_forpub_refs_agesex.R → ...script/functions/get_forpub_refs_agesex.R b/...024_06/functions/get_forpub_refs_agesex.R → ...script/functions/get_forpub_refs_agesex.R
diff --git a/...unctions/identify_next_publication_date.R → ...unctions/identify_next_publication_date.R b/...unctions/identify_next_publication_date.R → ...unctions/identify_next_publication_date.R
diff --git a/...update_2024_06/functions/non_acceptance.R → ...ication/script/functions/non_acceptance.R b/...update_2024_06/functions/non_acceptance.R → ...ication/script/functions/non_acceptance.R
diff --git a/...2024_06/functions/non_acceptance_action.R → .../script/functions/non_acceptance_action.R b/...2024_06/functions/non_acceptance_action.R → .../script/functions/non_acceptance_action.R
diff --git a/...2024_06/functions/non_acceptance_reason.R → .../script/functions/non_acceptance_reason.R b/...2024_06/functions/non_acceptance_reason.R → .../script/functions/non_acceptance_reason.R
diff --git a/...te_2024_06/functions/protect_worksheets.R → ...ion/script/functions/protect_worksheets.R b/...te_2024_06/functions/protect_worksheets.R → ...ion/script/functions/protect_worksheets.R
diff --git a/...06/functions/summarise_appointments_att.R → ...pt/functions/summarise_appointments_att.R b/...06/functions/summarise_appointments_att.R → ...pt/functions/summarise_appointments_att.R
diff --git a/..._2024_06/functions/summarise_by_quarter.R → ...n/script/functions/summarise_by_quarter.R b/..._2024_06/functions/summarise_by_quarter.R → ...n/script/functions/summarise_by_quarter.R
diff --git a/...e_2024_06/functions/summarise_referrals.R → ...on/script/functions/summarise_referrals.R b/...e_2024_06/functions/summarise_referrals.R → ...on/script/functions/summarise_referrals.R
diff --git a/...unctions/summarise_referrals_basic_opti.R → ...unctions/summarise_referrals_basic_opti.R b/...unctions/summarise_referrals_basic_opti.R → ...unctions/summarise_referrals_basic_opti.R
diff --git a/...6/functions/summarise_referrals_sex_age.R → ...t/functions/summarise_referrals_sex_age.R b/...6/functions/summarise_referrals_sex_age.R → ...t/functions/summarise_referrals_sex_age.R
diff --git a/..._2024_06/functions/tidy_age_group_order.R → ...n/script/functions/tidy_age_group_order.R b/..._2024_06/functions/tidy_age_group_order.R → ...n/script/functions/tidy_age_group_order.R
diff --git a/...date_2024_06/functions/update_dt_values.R → ...ation/script/functions/update_dt_values.R b/...date_2024_06/functions/update_dt_values.R → ...ation/script/functions/update_dt_values.R
diff --git a/...ate_2024_06/functions/update_dt_wording.R → ...tion/script/functions/update_dt_wording.R b/...ate_2024_06/functions/update_dt_wording.R → ...tion/script/functions/update_dt_wording.R
diff --git a/...2024_06/markdown/CAPTND_shorewise_pub.Rmd → .../script/markdown/CAPTND_shorewise_pub.Rmd b/...2024_06/markdown/CAPTND_shorewise_pub.Rmd → .../script/markdown/CAPTND_shorewise_pub.Rmd
diff --git a/...markdown/CAPTND_shorewise_pub_summary.Rmd → ...markdown/CAPTND_shorewise_pub_summary.Rmd b/...markdown/CAPTND_shorewise_pub_summary.Rmd → ...markdown/CAPTND_shorewise_pub_summary.Rmd
diff --git a/...te_2024_06/markdown/phs-offdev-cover.docx → ...ion/script/markdown/phs-offdev-cover.docx b/...te_2024_06/markdown/phs-offdev-cover.docx → ...ion/script/markdown/phs-offdev-cover.docx
diff --git a/...e_2024_06/markdown/phs-offdev-report.docx → ...on/script/markdown/phs-offdev-report.docx b/...e_2024_06/markdown/phs-offdev-report.docx → ...on/script/markdown/phs-offdev-report.docx
diff --git a/..._2024_06/markdown/phs-offdev-summary.docx → ...n/script/markdown/phs-offdev-summary.docx b/..._2024_06/markdown/phs-offdev-summary.docx → ...n/script/markdown/phs-offdev-summary.docx
diff --git a/07_publication/update_2024_06/chapters/2_load_functions.R b/07_publication/update_2024_06/chapters/2_load_functions.R