DataSubject.Page.al

namespace System.Privacy;

page 1754 "Data Subject"
{
    Extensible = false;
    DeleteAllowed = false;
    Editable = false;
    LinksAllowed = false;
    PageType = List;
    ShowFilter = false;
    SourceTable = "Data Privacy Entities";
    SourceTableTemporary = true;

    layout
    {
        area(content)
        {
            repeater(Group)
            {
                field("Table Caption"; Rec."Table Caption")
                {
                    ApplicationArea = All;
                    ShowCaption = false;
                    Style = StandardAccent;
                    StyleExpr = TRUE;

                    trigger OnDrillDown()
                    begin
                        PAGE.Run(Rec."Page No.");
                    end;
                }
            }
        }
    }

    actions
    {
        area(processing)
        {
            action("Data Privacy Setup")
            {
                ApplicationArea = All;
                Caption = 'Data Privacy Utility';
                Image = Setup;
                ToolTip = 'Open the Data Privacy Setup page.';

                trigger OnAction()
                var
                    DataPrivacyWizard: Page "Data Privacy Wizard";
                begin
                    if Rec."Table Caption" <> '' then begin
                        DataPrivacyWizard.SetEntitityType(Rec, Rec."Table Caption");
                        DataPrivacyWizard.RunModal();
                    end;
                end;
            }
        }
        area(Promoted)
        {
            group(Category_Process)
            {
                Caption = 'Process';

                actionref("Data Privacy Setup_Promoted"; "Data Privacy Setup")
                {
                }
            }
        }
    }

    trigger OnInit()
    var
        DataClassificationMgt: Codeunit "Data Classification Mgt.";
    begin
        DataClassificationMgt.RaiseOnGetDataPrivacyEntities(Rec);
    end;
}