Codeunit 9058 Plan Upgrade Tag in 27

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------

namespace System.Azure.Identity;

using System.Upgrade;

/// <summary>
/// Exposes functionality to retrieve the device upgrade tag.
/// </summary>
codeunit 9058 "Plan Upgrade Tag"
{
    Access = Public;
    InherentEntitlements = X;
    InherentPermissions = X;


    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Upgrade Tag", OnGetPerDatabaseUpgradeTags, '', false, false)]
    local procedure RegisterPerDatabaseTags(var PerDatabaseUpgradeTags: List of [Code[250]])
    begin
        PerDatabaseUpgradeTags.Add(GetAddDeviceISVEmbUpgradeTag());
        PerDatabaseUpgradeTags.Add(GetRenamePlansUpgradeTag());
        PerDatabaseUpgradeTags.Add(GetRenameTeamMemberPlanUpgradeTag());
        PerDatabaseUpgradeTags.Add(GetPlanfigurationsUpgradeTag());
        PerDatabaseUpgradeTags.Add(GetMicrosoft365UpgradeTag());
        PerDatabaseUpgradeTags.Add(GetEssentialAttachUpgradeTag());
        PerDatabaseUpgradeTags.Add(GetMD365AdminUpgradeTag());
        PerDatabaseUpgradeTags.Add(GetBCAdminUpgradeTag());
        PerDatabaseUpgradeTags.Add(GetDelegatedD365AdminUpgradeTag());
    end;

    /// <summary>
    /// Returns the device upgrade tag.
    /// </summary>
    /// <returns>The device upgrade tag.</returns>
    procedure GetAddDeviceISVEmbUpgradeTag(): Code[250]
    begin
        exit('MS-322095-AddDeviceISVEmbPlan-20190821');
    end;

    /// <summary>
    /// Returns the rename plans upgrade tag.
    /// </summary>
    /// <returns>The rename plans upgrade tag.</returns>
    internal procedure GetRenamePlansUpgradeTag(): Code[250]
    begin
        exit('MS-329421-RenamePlans-20211028');
    end;

    /// <summary>
    /// Returns the rename team member plan upgrade tag.
    /// </summary>
    /// <returns>The rename team member plan upgrade tag.</returns>
    internal procedure GetRenameTeamMemberPlanUpgradeTag(): Code[250]
    begin
        exit('MS-393309-RenameTeamMemberPlan-20210315');
    end;

    /// <summary>
    /// Returns the rename device plan upgrade tag.
    /// </summary>
    /// <returns>The rename device plan upgrade tag.</returns>
    internal procedure GetRenameDevicePlanUpgradeTag(): Code[250]
    begin
        exit('MS-394628-RenameDevicePlan-20210325');
    end;

    /// <summary>
    /// Returns the Premium Partner Sandbox upgrade tag.
    /// </summary>
    /// <returns>The Premium Partner Sandbox upgrade tag.</returns>
    internal procedure GetPremiumPartnerSandboxUpgradeTag(): Code[250]
    begin
        exit('MS-426983-AddPremiumPartnerSandbox-20220218');
    end;

    /// <summary>
    /// Returns the Microsoft 365 upgrade tag.
    /// </summary>
    /// <returns>The Microsoft365 upgrade tag.</returns>
    internal procedure GetMicrosoft365UpgradeTag(): Code[250]
    begin
        exit('MS-410756-AddMicrosoft365-20220825');
    end;

    /// <summary>
    /// Returns the Essential Attach upgrade tag.
    /// </summary>
    /// <returns>The Essential Attach upgrade tag.</returns>
    internal procedure GetEssentialAttachUpgradeTag(): Code[250]
    begin
        exit('MS-471088-AddAttachPlans-20230427');
    end;

    /// <summary>
    /// Returns the Dynamics 365 Administrator upgrade tag.
    /// </summary>
    /// <returns>The Dynamics 365 Administrator upgrade tag.</returns>
    internal procedure GetMD365AdminUpgradeTag(): Code[250]
    begin
        exit('MS-465490-AddD365Admin-20230103');
    end;

    /// <summary>
    /// Returns the Delegated Dynamics 365 Administrator upgrade tag.
    /// </summary>
    /// <returns>The Dynamics 365 Administrator upgrade tag.</returns>
    internal procedure GetDelegatedD365AdminUpgradeTag(): Code[250]
    begin
        exit('MS-548582-AddDelegatedD365Admin-20240912');
    end;

    /// <summary>
    /// Returns the BC Administrator upgrade tag.
    /// </summary>
    /// <returns>The BC Administrator upgrade tag.</returns>
    internal procedure GetBCAdminUpgradeTag(): Code[250]
    begin
        exit('MS-498639-AddBCAdmin-20240205');
    end;

    internal procedure GetPlanfigurationsUpgradeTag(): Code[250]
    begin
        exit('MS-430587-AddPlanConfigurations-20220321');
    end;
}