diff --git a/R/tm_g_ae_oview.R b/R/tm_g_ae_oview.R
index 5adab9ce..3762d440 100644
--- a/R/tm_g_ae_oview.R
+++ b/R/tm_g_ae_oview.R
@@ -279,9 +279,8 @@ srv_g_ae_oview <- function(id,
         obj <- data()
         teal.reporter::teal_card(obj) <-
           c(
-            teal.reporter::teal_card("# AE Overview"),
             teal.reporter::teal_card(obj),
-            teal.reporter::teal_card("## Module's code")
+            teal.reporter::teal_card("## Module's output(s)")
           )
         obj <- teal.code::eval_code(obj, "library(dplyr)")
 
@@ -308,7 +307,7 @@ srv_g_ae_oview <- function(id,
             ))
           )
 
-        teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot")
+        teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot")
 
         teal.code::eval_code(
           q1,
diff --git a/R/tm_g_ae_sub.R b/R/tm_g_ae_sub.R
index 5658db71..79939506 100644
--- a/R/tm_g_ae_sub.R
+++ b/R/tm_g_ae_sub.R
@@ -310,9 +310,8 @@ srv_g_ae_sub <- function(id,
         obj <- data()
         teal.reporter::teal_card(obj) <-
           c(
-            teal.reporter::teal_card("# AE by Subgroups"),
             teal.reporter::teal_card(obj),
-            teal.reporter::teal_card("## Module's code")
+            teal.reporter::teal_card("## Module's output(s)")
           )
 
         ANL <- obj[[dataname]]
@@ -348,7 +347,7 @@ srv_g_ae_sub <- function(id,
         q1 <- teal.code::eval_code(obj, code = group_labels_call) %>%
           teal.code::eval_code(code = "")
 
-        teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot")
+        teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot")
 
         teal.code::eval_code(
           q1,
diff --git a/R/tm_g_butterfly.R b/R/tm_g_butterfly.R
index 5b22f2d5..344da9e0 100644
--- a/R/tm_g_butterfly.R
+++ b/R/tm_g_butterfly.R
@@ -381,9 +381,8 @@ srv_g_butterfly <- function(id, data, dataname, label, plot_height, plot_width)
         obj <- data()
         teal.reporter::teal_card(obj) <-
           c(
-            teal.reporter::teal_card("# Butterfly Plot"),
             teal.reporter::teal_card(obj),
-            teal.reporter::teal_card("## Module's code")
+            teal.reporter::teal_card("## Module's output(s)")
           )
         obj <- teal.code::eval_code(obj, "library(dplyr)")
 
@@ -462,7 +461,7 @@ srv_g_butterfly <- function(id, data, dataname, label, plot_height, plot_width)
           )
         }
 
-        teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot")
+        teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot")
 
         if (!is.null(input$filter_var) || !is.null(input$facet_var) || !is.null(input$sort_by_var)) {
           teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Selected Options")
diff --git a/R/tm_g_events_term_id.R b/R/tm_g_events_term_id.R
index e1dff5fb..3c78fc35 100644
--- a/R/tm_g_events_term_id.R
+++ b/R/tm_g_events_term_id.R
@@ -296,9 +296,8 @@ srv_g_events_term_id <- function(id,
       obj <- data()
       teal.reporter::teal_card(obj) <-
         c(
-          teal.reporter::teal_card("# Events by Term"),
           teal.reporter::teal_card(obj),
-          teal.reporter::teal_card("## Module's code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
 
       ANL <- obj[[dataname]]
@@ -334,7 +333,7 @@ srv_g_events_term_id <- function(id,
         msg = "Analysis data set must have at least 10 data points"
       )
 
-      teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot")
+      teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot")
 
       q2 <- teal.code::eval_code(
         q1,
diff --git a/R/tm_g_heat_bygrade.R b/R/tm_g_heat_bygrade.R
index f06bc30c..2e05421d 100644
--- a/R/tm_g_heat_bygrade.R
+++ b/R/tm_g_heat_bygrade.R
@@ -390,9 +390,8 @@ srv_g_heatmap_bygrade <- function(id,
         obj <- data()
         teal.reporter::teal_card(obj) <-
           c(
-            teal.reporter::teal_card("# Heatmap by Grade"),
             teal.reporter::teal_card(obj),
-            teal.reporter::teal_card("## Module's code")
+            teal.reporter::teal_card("## Module's output(s)")
           )
         obj <- teal.code::eval_code(obj, "library(dplyr)")
 
@@ -432,7 +431,7 @@ srv_g_heatmap_bygrade <- function(id,
           )
         }
 
-        teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Plot")
+        teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Plot")
 
         teal.code::eval_code(
           qenv,
diff --git a/R/tm_g_patient_profile.R b/R/tm_g_patient_profile.R
index 9f2f6809..be1837f4 100644
--- a/R/tm_g_patient_profile.R
+++ b/R/tm_g_patient_profile.R
@@ -454,9 +454,8 @@ srv_g_patient_profile <- function(id,
         obj <- data()
         teal.reporter::teal_card(obj) <-
           c(
-            teal.reporter::teal_card("# Patient Profile"),
             teal.reporter::teal_card(obj),
-            teal.reporter::teal_card("## Module's code")
+            teal.reporter::teal_card("## Module's output(s)")
           )
         obj <- teal.code::eval_code(obj, "library(dplyr)")
 
@@ -873,7 +872,7 @@ srv_g_patient_profile <- function(id,
           x_limit <- q1[["x_limit"]]
         }
 
-        teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot")
+        teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot")
 
         q1 <- teal.code::eval_code(
           q1,
diff --git a/R/tm_g_spiderplot.R b/R/tm_g_spiderplot.R
index 2944d061..3f5f32a5 100644
--- a/R/tm_g_spiderplot.R
+++ b/R/tm_g_spiderplot.R
@@ -301,9 +301,8 @@ srv_g_spider <- function(id, data, dataname, paramcd, label, plot_height, plot_w
       obj <- data()
       teal.reporter::teal_card(obj) <-
         c(
-          teal.reporter::teal_card("# Spider Plot"),
           teal.reporter::teal_card(obj),
-          teal.reporter::teal_card("## Module's code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
       obj <- teal.code::eval_code(obj, "library(dplyr)")
 
@@ -384,7 +383,7 @@ srv_g_spider <- function(id, data, dataname, paramcd, label, plot_height, plot_w
 
       # plot code to qenv ---
 
-      teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot")
+      teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot")
       if (!is.null(input$paramcd) || !is.null(input$xfacet_var) || !is.null(input$yfacet_var)) {
         teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Selected Options")
       }
diff --git a/R/tm_g_swimlane.R b/R/tm_g_swimlane.R
index bb138665..b33d910a 100644
--- a/R/tm_g_swimlane.R
+++ b/R/tm_g_swimlane.R
@@ -317,9 +317,8 @@ srv_g_swimlane <- function(id,
       obj <- data()
       teal.reporter::teal_card(obj) <-
         c(
-          teal.reporter::teal_card("# Swimlane Plot"),
           teal.reporter::teal_card(obj),
-          teal.reporter::teal_card("## Module's code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
 
       teal::validate_inputs(iv())
@@ -502,7 +501,7 @@ srv_g_swimlane <- function(id,
         )
       }
 
-      teal.reporter::teal_card(q3) <- c(teal.reporter::teal_card(q3), "## Plot")
+      teal.reporter::teal_card(q3) <- c(teal.reporter::teal_card(q3), "### Plot")
 
       if (!is.null(input$sort_var)) {
         teal.reporter::teal_card(q3) <- c(teal.reporter::teal_card(q3), "### Selected Options")
diff --git a/R/tm_g_waterfall.R b/R/tm_g_waterfall.R
index cd14ac2a..2d3b5707 100644
--- a/R/tm_g_waterfall.R
+++ b/R/tm_g_waterfall.R
@@ -359,9 +359,8 @@ srv_g_waterfall <- function(id,
       obj <- data()
       teal.reporter::teal_card(obj) <-
         c(
-          teal.reporter::teal_card("# Waterfall Plot"),
           teal.reporter::teal_card(obj),
-          teal.reporter::teal_card("## Module's code")
+          teal.reporter::teal_card("## Module's output(s)")
         )
       obj <- teal.code::eval_code(obj, "library(dplyr)")
 
@@ -520,7 +519,7 @@ srv_g_waterfall <- function(id,
         )
       }
 
-      teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "## Plot")
+      teal.reporter::teal_card(q1) <- c(teal.reporter::teal_card(q1), "### Plot")
 
       q1 <- teal.code::eval_code(
         q1,