Update medical grouping system specification

CDCgov · Dec 15, 2023 · faea6ea · faea6ea
1 parent c6760b3
commit faea6ea
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/word_alerts/skeleton/skeleton.Rmd b/word_alerts/skeleton/skeleton.Rmd
@@ -469,9 +469,9 @@ if (nchar(params$complex_query) > 0) {
 
   if (params$age_groups == "All Ages") {
     if (params$site == "All") {
-      url <- paste0("https://essence.syndromicsurveillance.org/nssp_essence/api/dataDetails/csv?endDate=", end_date_api, "&percentParam=noPercent&datasource=va_hosp&startDate=", start_date_api, "&medicalGroupingSystem=", grouping_system, "&userId=2362&aqtTarget=DataDetails", definition_type, definition_string, "&geographySystem=hospitalregion&detector=nodetectordetector&timeResolution=daily", "&hasBeenE=", limit_ed, "&field=Date&field=WeekYear&field=ChiefComplaintOrig&field=ChiefComplaintParsed&field=DischargeDiagnosis&field=DDParsed&field=CCDD")
+      url <- paste0("https://essence.syndromicsurveillance.org/nssp_essence/api/dataDetails/csv?endDate=", end_date_api, "&percentParam=noPercent&datasource=va_hosp&startDate=", start_date_api, "&medicalGroupingSystem=", grouping_system, "&aqtTarget=DataDetails", definition_type, definition_string, "&geographySystem=hospitalregion&detector=nodetectordetector&timeResolution=daily", "&hasBeenE=", limit_ed, "&field=Date&field=WeekYear&field=ChiefComplaintOrig&field=ChiefComplaintParsed&field=DischargeDiagnosis&field=DDParsed&field=CCDD")
     } else {
-      url <- paste0("https://essence.syndromicsurveillance.org/nssp_essence/api/dataDetails/csv?endDate=", end_date_api, "&percentParam=noPercent&datasource=va_hosp&startDate=", start_date_api, "&medicalGroupingSystem=essencesyndromes&userId=2362&site=", site_id, "&aqtTarget=DataDetails", definition_type, definition_string, "&geographySystem=hospitalregion&detector=nodetectordetector&timeResolution=daily", "&hasBeenE=", limit_ed, "&field=Date&field=WeekYear&field=ChiefComplaintOrig&field=ChiefComplaintParsed&field=DischargeDiagnosis&field=DDParsed&field=CCDD")
+      url <- paste0("https://essence.syndromicsurveillance.org/nssp_essence/api/dataDetails/csv?endDate=", end_date_api, "&percentParam=noPercent&datasource=va_hosp&startDate=", start_date_api, "&medicalGroupingSystem=", grouping_system, "&site=", site_id, "&aqtTarget=DataDetails", definition_type, definition_string, "&geographySystem=hospitalregion&detector=nodetectordetector&timeResolution=daily", "&hasBeenE=", limit_ed, "&field=Date&field=WeekYear&field=ChiefComplaintOrig&field=ChiefComplaintParsed&field=DischargeDiagnosis&field=DDParsed&field=CCDD")
     }
   } else {
     age_group_string <- params$age_groups %>%
@@ -488,9 +488,9 @@ if (nchar(params$complex_query) > 0) {
     }
 
     if (params$site == "All") {
-      url <- paste0("https://essence.syndromicsurveillance.org/nssp_essence/api/dataDetails/csv?endDate=", end_date_api, "&percentParam=noPercent&datasource=va_hosp&startDate=", start_date_api, "&medicalGroupingSystem=essencesyndromes&userId=2362&aqtTarget=DataDetails", definition_type, definition_string, "&geographySystem=hospitalregion&detector=nodetectordetector&timeResolution=daily", "&hasBeenE=", limit_ed, "&", age_group_string, "&field=Date&field=WeekYear&field=ChiefComplaintOrig&field=ChiefComplaintParsed&field=DischargeDiagnosis&field=DDParsed&field=CCDD&field=Age")
+      url <- paste0("https://essence.syndromicsurveillance.org/nssp_essence/api/dataDetails/csv?endDate=", end_date_api, "&percentParam=noPercent&datasource=va_hosp&startDate=", start_date_api, "&medicalGroupingSystem=", grouping_system, "&aqtTarget=DataDetails", definition_type, definition_string, "&geographySystem=hospitalregion&detector=nodetectordetector&timeResolution=daily", "&hasBeenE=", limit_ed, "&", age_group_string, "&field=Date&field=WeekYear&field=ChiefComplaintOrig&field=ChiefComplaintParsed&field=DischargeDiagnosis&field=DDParsed&field=CCDD&field=Age")
     } else {
-      url <- paste0("https://essence.syndromicsurveillance.org/nssp_essence/api/dataDetails/csv?endDate=", end_date_api, "&percentParam=noPercent&datasource=va_hosp&startDate=", start_date_api, "&medicalGroupingSystem=essencesyndromes&userId=2362&site=", site_id, "&aqtTarget=DataDetails", definition_type, definition_string, "&geographySystem=hospitalregion&detector=nodetectordetector&timeResolution=daily", "&hasBeenE=", limit_ed, "&", age_group_string, "&field=Date&field=WeekYear&field=ChiefComplaintOrig&field=ChiefComplaintParsed&field=DischargeDiagnosis&field=DDParsed&field=CCDD&field=Age")
+      url <- paste0("https://essence.syndromicsurveillance.org/nssp_essence/api/dataDetails/csv?endDate=", end_date_api, "&percentParam=noPercent&datasource=va_hosp&startDate=", start_date_api, "&medicalGroupingSystem=", grouping_system, "&site=", site_id, "&aqtTarget=DataDetails", definition_type, definition_string, "&geographySystem=hospitalregion&detector=nodetectordetector&timeResolution=daily", "&hasBeenE=", limit_ed, "&", age_group_string, "&field=Date&field=WeekYear&field=ChiefComplaintOrig&field=ChiefComplaintParsed&field=DischargeDiagnosis&field=DDParsed&field=CCDD&field=Age")
     }
   }
 }
@@ -567,7 +567,7 @@ volume <- ccqv_data %>%
   arrange(date)
 
 ggplot(data = volume) +
-  geom_line(aes(x = date, y = n), size = 1.0, color = "#005EAA") +
+  geom_line(aes(x = date, y = n), linewidth = 1.0, color = "#005EAA") +
   scale_y_continuous(limits = c(0, NA), labels = scales::comma) +
   labs(
     x = "Date",

diff --git a/zip/word_alerts.zip b/zip/word_alerts.zip