let
Source = Json.Document(Web.Contents("https://desktopservices.sharepoint.com/sites/pl-dts-reusablecomponents/_api/web/lists('ce612891-ace3-421c-8d3a-3044840d5880')/fields",[Headers=[Accept = "application/json;odata=nometadata"]])),
value = Source[value],
#"Converted to Table" = Table.FromList(value, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
#"All columns REF" = Table.ExpandRecordColumn(#"Converted to Table", "Column1", {"AutofillInfo", "AutoIndexed", "CanBeDeleted", "ClientSideComponentId", "ClientSideComponentProperties", "ClientValidationFormula", "ClientValidationMessage", "CustomFormatter", "DefaultFormula", "DefaultValue", "Description", "Direction", "EnforceUniqueValues", "EntityPropertyName", "Filterable", "FromBaseType", "Group", "Hidden", "Id", "Indexed", "IndexStatus", "InternalName", "IsModern", "JSLink", "PinnedToFiltersPane", "ReadOnlyField", "Required", "SchemaXml", "Scope", "Sealed", "ShowInFiltersPane", "Sortable", "StaticName", "Title", "FieldTypeKind", "TypeAsString", "TypeDisplayName", "TypeShortDescription", "ValidationFormula", "ValidationMessage", "MaxLength"}, {"AutofillInfo", "AutoIndexed", "CanBeDeleted", "ClientSideComponentId", "ClientSideComponentProperties", "ClientValidationFormula", "ClientValidationMessage", "CustomFormatter", "DefaultFormula", "DefaultValue", "Description", "Direction", "EnforceUniqueValues", "EntityPropertyName", "Filterable", "FromBaseType", "Group", "Hidden", "Id", "Indexed", "IndexStatus", "InternalName", "IsModern", "JSLink", "PinnedToFiltersPane", "ReadOnlyField", "Required", "SchemaXml", "Scope", "Sealed", "ShowInFiltersPane", "Sortable", "StaticName", "Title", "FieldTypeKind", "TypeAsString", "TypeDisplayName", "TypeShortDescription", "ValidationFormula", "ValidationMessage", "MaxLength"}),
#"Relevant Columns" = Table.ExpandRecordColumn(#"Converted to Table", "Column1", {"Description", "FromBaseType", "InternalName", "Required", "SchemaXml", "Title", "TypeAsString"}, {"Description", "FromBaseType", "InternalName", "Required", "SchemaXml", "Title", "TypeAsString"}),
#"Filtered Rows" = Table.SelectRows(#"Relevant Columns", each [FromBaseType] = false or [InternalName] = "Title" or [InternalName] = "ID" or [InternalName] = "Created"),
#"Parse SchemaXML" = Table.AddColumn(#"Filtered Rows", "SchemaXML2", each Xml.Tables([SchemaXml])),
Choices = Table.ExpandTableColumn(#"Parse SchemaXML", "SchemaXML2", {"CHOICES"}, {"CHOICES"}),
#"Expanded CHOICES" = Table.ExpandTableColumn(Choices, "CHOICES", {"CHOICE"}, {"CHOICE"}),
#"Added Custom" = Table.AddColumn(#"Expanded CHOICES", "List", each if [CHOICE] is null then null else Text.Combine([CHOICE][#"Element:Text"], "; ")),
#"Renamed Columns" = Table.RenameColumns(#"Added Custom",{{"TypeAsString", "Type"}, {"InternalName", "Name"}, {"Title", "Displayname"}}),
#"Removed Other Columns" = Table.SelectColumns(#"Renamed Columns",{"Type", "Name", "Displayname", "Required", "Description", "List"})
in
#"Removed Other Columns"