diff --git a/src/System Application/App/Upgrade Tags/src/UpgradeTag.Codeunit.al b/src/System Application/App/Upgrade Tags/src/UpgradeTag.Codeunit.al
index acfe92071b..7d4ba4331f 100644
--- a/src/System Application/App/Upgrade Tags/src/UpgradeTag.Codeunit.al	
+++ b/src/System Application/App/Upgrade Tags/src/UpgradeTag.Codeunit.al	
@@ -43,6 +43,16 @@ codeunit 9999 "Upgrade Tag"
         exit(UpgradeTagImpl.HasUpgradeTag(Tag, TagCompanyName));
     end;
 
+    /// <summary>
+    /// Verifies if the database upgrade tag exists.
+    /// </summary>
+    /// <param name="Tag">Tag code to check</param>
+    /// <returns>True if the Tag with the given code exists.</returns>
+    procedure HasDatabaseUpgradeTag(Tag: Code[250]): Boolean
+    begin
+        exit(UpgradeTagImpl.HasDatabaseUpgradeTag(Tag));
+    end;
+
     /// <summary>
     /// Sets the upgrade tag for database upgrades.
     /// </summary>
diff --git a/src/System Application/App/Upgrade Tags/src/UpgradeTagImpl.Codeunit.al b/src/System Application/App/Upgrade Tags/src/UpgradeTagImpl.Codeunit.al
index 2fc882c4c3..52899af675 100644
--- a/src/System Application/App/Upgrade Tags/src/UpgradeTagImpl.Codeunit.al	
+++ b/src/System Application/App/Upgrade Tags/src/UpgradeTagImpl.Codeunit.al	
@@ -25,6 +25,11 @@ codeunit 9996 "Upgrade Tag Impl."
         exit(HasUpgradeTag(Tag, CopyStr(CompanyName(), 1, MaxStrLen(ConstUpgradeTags.Company))));
     end;
 
+    procedure HasDatabaseUpgradeTag(Tag: Code[250]): Boolean
+    begin
+        exit(HasUpgradeTag(Tag, ''));
+    end;
+
     procedure HasUpgradeTag(Tag: Code[250]; TagCompanyName: Code[30]): Boolean
     var
         UpgradeTags: Record "Upgrade Tags";