diff --git a/NAMESPACE b/NAMESPACE
index 5d3f1f26..d208949d 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -16,6 +16,7 @@ export(create_table)
 export(db_create)
 export(db_get_query)
 export(db_update)
+export(db_upgrade)
 export(get_appdata)
 export(get_base_value)
 export(get_db_connection)
diff --git a/R/fct_SQLite.R b/R/fct_SQLite.R
index c3cd8715..99b9415d 100644
--- a/R/fct_SQLite.R
+++ b/R/fct_SQLite.R
@@ -158,7 +158,7 @@ db_add_primary_key <- function(con, name, value, keys = NULL) {
 
 #' Add Logging Table
 #'
-#' Both creates the logging table and the trigger to update it for
+#' Creates the logging table and the triggers on updates and deletions for
 #' all_review_data.
 #'
 #' @param con A DBI Connection to the SQLite DB
@@ -218,6 +218,78 @@ db_add_log <- function(con, key_cols = c("id", key_columns)) {
     "END"
   ))
   DBI::dbClearResult(rs)
+  create_delete_log_trigger(con)
+}
+
+#' Create Delete Logging Trigger
+#' 
+#' Logs record deletions on all_review_data into all_review_data_log.
+#' 
+#' @param con A DBI Connection to the SQLite DB
+#' 
+#' @keywords internal
+create_delete_log_trigger <- function(con) {
+  rs <- DBI::dbSendStatement(con, paste(
+    "CREATE TRIGGER all_review_data_delete_log_trigger",
+    "AFTER DELETE ON all_review_data FOR EACH ROW",
+    "BEGIN",
+      "INSERT INTO all_review_data_log (",
+        "review_id, edit_date_time, reviewed, comment, reviewer, timestamp, status, dml_type",
+      ")",
+      "VALUES(",
+        "OLD.id,",
+        "OLD.edit_date_time,",
+        "OLD.reviewed,",
+        "OLD.comment,",
+        "OLD.reviewer,",
+        "OLD.timestamp,",
+        "OLD.status,",
+        "'DELETE'",
+      ");",
+    "END"
+  ))
+  DBI::dbClearResult(rs)
+}
+
+#' Upgrade app database
+#' 
+#' Helper function to upgrade the database when migrating to a newer version of
+#' ClinSight that impacts the database.
+#' 
+#' @param db_path Character vector. Path to the database
+#' 
+#' @return A character vector indicating the version the DB was upgraded to. Run
+#'   for side effects on the database.
+#' 
+#' @export
+db_upgrade <- function(db_path){
+  stopifnot(file.exists(db_path))
+
+  current_db_version <- db_get_version(db_path)
+  if (identical(current_db_version, db_version))
+    return(paste("Upgraded to version", db_version))
+
+  switch(
+    current_db_version,
+    "1.1" = db_temp_connect(db_path, {
+      if (!identical(db_upgrade_menu("1.2"), 1L)) 
+        return(paste("Abandoning DB upgrading. DB version is", current_db_version))
+      create_delete_log_trigger(con)
+      DBI::dbWriteTable(con, "db_version", data.frame(version = "1.2"), overwrite = TRUE)
+    }),
+    stop("No upgrade available for version ", current_db_version)
+  )
+  db_upgrade(db_path)
+}
+
+db_upgrade_menu <- function(upgrade_version) {
+  utils::menu(
+    c("Yes", "No"),
+    title = sprintf(
+      "Attempting to update to v%s. Do you want to proceed?", 
+      upgrade_version
+    )
+  )
 }
 
 #' Update app database
@@ -242,6 +314,7 @@ db_update <- function(
     edit_time_var = "edit_date_time"
 ){
   stopifnot(file.exists(db_path))
+  stopifnot(identical(db_version, db_get_version(db_path)))
   con <- get_db_connection(db_path)
   data_synch_time <- attr(data, "synch_time") %||% ""
   
@@ -260,6 +333,14 @@ db_update <- function(
   # Continue in the case data_synch_time is missing and if data_synch_time is 
   # more recent than db_synch_time
   review_data <- DBI::dbGetQuery(con, "SELECT * FROM all_review_data")
+  cat("Check for deleted rows\n")
+  deleted_review_data <- delete_review_data(
+    review_df = review_data,
+    latest_review_data = data,
+    key_cols = key_cols
+  )
+  cat("logging deleted review data to database...\n")
+  db_delete(con, deleted_review_data)
   cat("Start adding new rows to database\n")
   updated_review_data <- update_review_data(
     review_df = review_data,
@@ -279,6 +360,34 @@ db_update <- function(
   cat("Finished updating review data\n")
 }
 
+#' DELETE FROM all_review_data
+#' 
+#' Performs a DELETE FROM on all_review_data based on a data set containing the
+#' records to delete.
+#' 
+#' @param con A DBI Connection to the SQLite DB
+#' @param data A data frame containing the records to DELETE FROM
+#'   all_review_data
+#' @param key_cols A character vectory specifying which columns define a unique
+#'   index for a row. Defaults to "id"
+#' 
+#' @return invisible returns TRUE. Is run for its side effects on the DB.
+#' 
+#' @keywords internal
+db_delete <- function(con, data, key_cols = "id") {
+  dplyr::copy_to(con, data, "row_deletes")
+  rs <- DBI::dbSendStatement(con, paste(
+    "DELETE FROM",
+    "all_review_data",
+    "WHERE EXISTS (",
+    "SELECT 1",
+    "FROM row_deletes",
+    "WHERE", paste(sprintf("row_deletes.%1$s = all_review_data.%1$s", key_cols), collapse = " AND "),
+    ")"
+  ))
+  DBI::dbClearResult(rs)
+}
+
 #' UPSERT to all_review_data
 #'
 #' Performs an UPSERT on all_review_data. New records will be appended to the
@@ -290,7 +399,7 @@ db_update <- function(
 #' @param key_cols A character vector specifying which columns define a unique
 #'   index for a row. Defaults to `ClinSight` [key_columns()].
 #'
-#' @return invisibly returns TRUE. Is run for it's side effects on the DB.
+#' @return invisibly returns TRUE. Is run for its side effects on the DB.
 #'
 #' @keywords internal
 db_upsert <- function(con, data, key_cols = key_columns) {
diff --git a/R/mod_review_data_fct_helpers.R b/R/mod_review_data_fct_helpers.R
index 2ded1835..a90345d4 100644
--- a/R/mod_review_data_fct_helpers.R
+++ b/R/mod_review_data_fct_helpers.R
@@ -39,6 +39,40 @@ get_review_data <- function(
   all_review_data
 }
 
+#' Delete review data
+#' 
+#' Identifies the records no longer in the dataset to be removed from
+#' all_review_data.
+#' 
+#' @param review_df Data frame containing old review data that need to be
+#'   updated.
+#' @param latest_review_data Data frame containing latest review data.
+#' @param key_cols A character vector containing the common key variables.
+#'   Defaults to `ClinSight` [key_columns()].
+#'
+#' @return A data frame containing only the rows to remove from the review data.
+#' 
+#' @keywords internal
+delete_review_data <- function(
+    review_df,
+    latest_review_data,
+    key_cols = key_columns
+){
+  stopifnot(is.data.frame(latest_review_data), nrow(latest_review_data) > 0 )
+  stopifnot(is.data.frame(review_df), nrow(review_df) > 0 )
+  stopifnot(is.character(key_cols))
+
+  deleted_data <- dplyr::anti_join(review_df, latest_review_data, by = key_cols)
+  n_deleted <- nrow(deleted_data)
+  if(n_deleted != 0){
+    warning(n_deleted, " items were not found in the updated dataset")
+    cat("Missing items in the dataset:\n")
+    print(deleted_data)
+  }
+
+  deleted_data
+}
+
 #' Update review data
 #'
 #'
@@ -67,20 +101,6 @@ update_review_data <- function(
   stopifnot(is.character(key_cols))
   stopifnot(is.character(edit_time_var))
   
-  deleted_data <- dplyr::anti_join(review_df, latest_review_data, by = key_cols)
-  n_deleted <- nrow(deleted_data)
-  if(n_deleted != 0){
-    warning(n_deleted, " items were not found in the updated dataset")
-    cat("Missing items in the dataset:\n")
-    print(deleted_data)
-  }
-  
-  # If data is reviewed and later in an update deleted, then it is okay if the 
-  # deletion does not show up in the updated data set, and the deleted data point shows 
-  # up as reviewed. One reason why this is okay is because missing data is checked 
-  # by the data managers. 
-  # a more practical reason is that missing data does not show up in the application.
-  
   # when do we have the same edit_date_time but different timestamps? 
   # For example:
   # - we have a new data point. It is not yet reviewed (status new or updated).
diff --git a/R/sysdata.rda b/R/sysdata.rda
index 2fab1dcf..40696f6a 100644
Binary files a/R/sysdata.rda and b/R/sysdata.rda differ
diff --git a/data-raw/internal_data.R b/data-raw/internal_data.R
index 4e650643..611bc724 100644
--- a/data-raw/internal_data.R
+++ b/data-raw/internal_data.R
@@ -58,7 +58,7 @@ required_meta_cols <- c(
   "item_type"
   )
 
-db_version <- "1.1"
+db_version <- "1.2"
 
 # Used in get_form_level_data(). Set a default if ClinSight needs the columns 
 # to function properly. 
diff --git a/inst/_pkgdown.yml b/inst/_pkgdown.yml
index 48811d67..45a60f21 100644
--- a/inst/_pkgdown.yml
+++ b/inst/_pkgdown.yml
@@ -76,6 +76,7 @@ reference:
 - contents:
   - get_db_connection
   - db_create
+  - db_upgrade
   - db_update
   - db_get_review
   - db_get_query
diff --git a/man/create_delete_log_trigger.Rd b/man/create_delete_log_trigger.Rd
new file mode 100644
index 00000000..19b4f6c5
--- /dev/null
+++ b/man/create_delete_log_trigger.Rd
@@ -0,0 +1,15 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/fct_SQLite.R
+\name{create_delete_log_trigger}
+\alias{create_delete_log_trigger}
+\title{Create Delete Logging Trigger}
+\usage{
+create_delete_log_trigger(con)
+}
+\arguments{
+\item{con}{A DBI Connection to the SQLite DB}
+}
+\description{
+Logs record deletions on all_review_data into all_review_data_log.
+}
+\keyword{internal}
diff --git a/man/db_add_log.Rd b/man/db_add_log.Rd
index 9f0d2c0d..e63541c4 100644
--- a/man/db_add_log.Rd
+++ b/man/db_add_log.Rd
@@ -14,7 +14,7 @@ not be updated in a table. If unset, defaults to 'id' and the
 package-defined \code{\link[=key_columns]{key_columns()}}.}
 }
 \description{
-Both creates the logging table and the trigger to update it for
+Creates the logging table and the triggers on updates and deletions for
 all_review_data.
 }
 \keyword{internal}
diff --git a/man/db_delete.Rd b/man/db_delete.Rd
new file mode 100644
index 00000000..24138c43
--- /dev/null
+++ b/man/db_delete.Rd
@@ -0,0 +1,25 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/fct_SQLite.R
+\name{db_delete}
+\alias{db_delete}
+\title{DELETE FROM all_review_data}
+\usage{
+db_delete(con, data, key_cols = "id")
+}
+\arguments{
+\item{con}{A DBI Connection to the SQLite DB}
+
+\item{data}{A data frame containing the records to DELETE FROM
+all_review_data}
+
+\item{key_cols}{A character vectory specifying which columns define a unique
+index for a row. Defaults to "id"}
+}
+\value{
+invisible returns TRUE. Is run for its side effects on the DB.
+}
+\description{
+Performs a DELETE FROM on all_review_data based on a data set containing the
+records to delete.
+}
+\keyword{internal}
diff --git a/man/db_upgrade.Rd b/man/db_upgrade.Rd
new file mode 100644
index 00000000..5dbe6dbe
--- /dev/null
+++ b/man/db_upgrade.Rd
@@ -0,0 +1,19 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/fct_SQLite.R
+\name{db_upgrade}
+\alias{db_upgrade}
+\title{Upgrade app database}
+\usage{
+db_upgrade(db_path)
+}
+\arguments{
+\item{db_path}{Character vector. Path to the database}
+}
+\value{
+A character vector indicating the version the DB was upgraded to. Run
+for side effects on the database.
+}
+\description{
+Helper function to upgrade the database when migrating to a newer version of
+ClinSight that impacts the database.
+}
diff --git a/man/db_upsert.Rd b/man/db_upsert.Rd
index fd5699a1..be99b1fd 100644
--- a/man/db_upsert.Rd
+++ b/man/db_upsert.Rd
@@ -15,7 +15,7 @@ db_upsert(con, data, key_cols = key_columns)
 index for a row. Defaults to \code{ClinSight} \code{\link[=key_columns]{key_columns()}}.}
 }
 \value{
-invisibly returns TRUE. Is run for it's side effects on the DB.
+invisibly returns TRUE. Is run for its side effects on the DB.
 }
 \description{
 Performs an UPSERT on all_review_data. New records will be appended to the
diff --git a/man/delete_review_data.Rd b/man/delete_review_data.Rd
new file mode 100644
index 00000000..663590f2
--- /dev/null
+++ b/man/delete_review_data.Rd
@@ -0,0 +1,25 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/mod_review_data_fct_helpers.R
+\name{delete_review_data}
+\alias{delete_review_data}
+\title{Delete review data}
+\usage{
+delete_review_data(review_df, latest_review_data, key_cols = key_columns)
+}
+\arguments{
+\item{review_df}{Data frame containing old review data that need to be
+updated.}
+
+\item{latest_review_data}{Data frame containing latest review data.}
+
+\item{key_cols}{A character vector containing the common key variables.
+Defaults to \code{ClinSight} \code{\link[=key_columns]{key_columns()}}.}
+}
+\value{
+A data frame containing only the rows to remove from the review data.
+}
+\description{
+Identifies the records no longer in the dataset to be removed from
+all_review_data.
+}
+\keyword{internal}
diff --git a/tests/testthat/fixtures/testdb.sqlite b/tests/testthat/fixtures/testdb.sqlite
index 0e06c721..a0bd7975 100644
Binary files a/tests/testthat/fixtures/testdb.sqlite and b/tests/testthat/fixtures/testdb.sqlite differ
diff --git a/tests/testthat/test-fct_SQLite.R b/tests/testthat/test-fct_SQLite.R
index cf2fbb34..3a462469 100644
--- a/tests/testthat/test-fct_SQLite.R
+++ b/tests/testthat/test-fct_SQLite.R
@@ -53,7 +53,7 @@ describe(
       )
       expect_equal(
         dplyr::collect(dplyr::tbl(con, "db_version")), 
-        dplyr::tibble(version = "1.1")
+        dplyr::tibble(version = "1.2")
       )
       expect_equal(
         dplyr::collect(dplyr::tbl(con, "query_data")), 
@@ -128,6 +128,7 @@ describe(
       db_add_primary_key(con, "all_review_data", cbind(old_data, review_cols), comvars)
       db_add_log(con, c("id", comvars))
       DBI::dbWriteTable(con, "db_synch_time", data.frame("synch_time" = "2024-01-01 01:01:01 UTC"))
+      DBI::dbWriteTable(con, "db_version", data.frame(version = db_version))
       
       df_old <- cbind(id = 1, old_data, review_cols)
       log_old <- DBI::dbGetQuery(con, "SELECT * FROM all_review_data_log")
@@ -155,6 +156,7 @@ describe(
       db_add_primary_key(con, "all_review_data", cbind(old_data, review_cols), comvars)
       db_add_log(con, c("id", comvars))
       DBI::dbWriteTable(con, "db_synch_time", data.frame("synch_time" = "2024-01-01 01:01:01 UTC"))
+      DBI::dbWriteTable(con, "db_version", data.frame(version = db_version))
       
       log_old <- DBI::dbGetQuery(con, "SELECT * FROM all_review_data_log")
       
@@ -175,6 +177,7 @@ describe(
       temp_path <- withr::local_tempfile(fileext = ".sqlite") 
       con <- get_db_connection(temp_path)
       db_add_primary_key(con, "all_review_data", cbind(old_data, review_cols), comvars)
+      DBI::dbWriteTable(con, "db_version", data.frame(version = db_version))
       
       rev_data <- rbind(old_data, new_data) # no synch_time attribute added
       db_update(rev_data, db_path = temp_path, key_cols = comvars)
@@ -193,6 +196,7 @@ describe(
       db_add_primary_key(con, "all_review_data", cbind(old_data, review_cols), comvars)
       db_add_log(con, c("id", comvars))
       DBI::dbWriteTable(con, "db_synch_time", data.frame("synch_time" = "2024-01-01 01:01:01 UTC"))
+      DBI::dbWriteTable(con, "db_version", data.frame(version = db_version))
       
       rev_data <- old_data |> 
         dplyr::mutate(edit_date_time = "2023-11-13 01:01:01")
@@ -214,6 +218,7 @@ describe(
       db_add_primary_key(con, "all_review_data", rev_data, comvars)
       db_add_log(con, c("id", comvars))
       DBI::dbWriteTable(con, "db_synch_time", data.frame("synch_time" = synch_time))
+      DBI::dbWriteTable(con, "db_version", data.frame(version = db_version))
       
       log_old <- DBI::dbGetQuery(con, "SELECT * FROM all_review_data_log")
       
@@ -241,6 +246,7 @@ describe(
       db_add_primary_key(con, "all_review_data", rev_data, comvars)
       db_add_log(con, c("id", comvars))
       DBI::dbWriteTable(con, "db_synch_time", data.frame("synch_time" = synch_time))
+      DBI::dbWriteTable(con, "db_version", data.frame(version = db_version))
       expect_warning(
         db_update(rev_data, db_path = temp_path, key_cols = comvars),
         "DB synch time is more recent than data synch time. Aborting synchronization"
diff --git a/tests/testthat/test-update_review_data.R b/tests/testthat/test-update_review_data.R
index f2725381..644c5169 100644
--- a/tests/testthat/test-update_review_data.R
+++ b/tests/testthat/test-update_review_data.R
@@ -60,15 +60,5 @@ describe(
                              key_cols = c("key_col1", "item_group")))) == 0
         )
     })
-    it("warns if rows are not found in the updated dataset but still returns a 
-    valid data frame; might happen if entries are deleted from the source", {
-         missing_row_data <- updated_review_data |> dplyr::filter(key_col1 != 9999) 
-         expect_warning(update_review_data(old_review_data, missing_row_data, 
-                                           key_cols = c("key_col1", "item_group")))
-         expect_true(is.data.frame(suppressWarnings(
-           update_review_data(old_review_data, missing_row_data, 
-                              key_cols = c("key_col1", "item_group"))
-           )))
-       })
   }
 )