let

	PBI_Model = let
				CurrentUser = Table.FirstN(Table.Sort(Folder.Contents("C:\Users"), {{"Date accessed", Order.Descending}}), 1)[Name]{0},
				PortID = Lines.FromBinary(Table.SelectRows(Folder.Files("C:\Users\"&CurrentUser&"\AppData\Local\Microsoft\Power BI Desktop\AnalysisServicesWorkspaces"), 
						each ([Name] = "msmdsrv.port.txt"))[Content]{0},null,null,1200){0},
				Database = AnalysisServices.Database("localhost: "&PortID, "", [Query="select * from $SYSTEM.DISCOVER_PROPERTIES"]){0}[Value]
	in
				[Database = Database, PortID=PortID],

	fnDMV = (DMV) =>
			let
			Import_SSAS = AnalysisServices.Database("localhost: "&PBI_Model[PortID], PBI_Model[Database],[Query="select * from $SYSTEM."&DMV])
			in
			Import_SSAS,

	TMSCHEMA_RELATIONSHIPS = fnDMV("TMSCHEMA_RELATIONSHIPS"),
	TMSCHEMA_TABLES = fnDMV("TMSCHEMA_TABLES"),
	TMSCHEMA_COLUMNS = fnDMV("TMSCHEMA_COLUMNS"),
    MergeFromTable = Table.NestedJoin(TMSCHEMA_RELATIONSHIPS,{"FromTableID"},TMSCHEMA_TABLES,{"ID"},"NewColumn",JoinKind.LeftOuter),
    FromTable = Table.ExpandTableColumn(MergeFromTable, "NewColumn", {"Name"}, {"FromTable"}),
    MergeFromColumn = Table.NestedJoin(FromTable,{"FromTableID", "FromColumnID"},TMSCHEMA_COLUMNS,{"TableID", "ID"},"NewColumn",JoinKind.LeftOuter),
    FromColumn = Table.ExpandTableColumn(MergeFromColumn, "NewColumn", {"ExplicitName"}, {"FromName"}),
    MergeToTable = Table.NestedJoin(FromColumn,{"ToTableID"},TMSCHEMA_TABLES,{"ID"},"NewColumn",JoinKind.LeftOuter),
    ToTable = Table.ExpandTableColumn(MergeToTable, "NewColumn", {"Name"}, {"ToTable"}),
    MergeToColumn = Table.NestedJoin(ToTable,{"ToTableID", "ToColumnID"},TMSCHEMA_COLUMNS,{"TableID", "ID"},"NewColumn",JoinKind.LeftOuter),
    ToColumn = Table.ExpandTableColumn(MergeToColumn, "NewColumn", {"ExplicitName"}, {"ToColumn"}),
    Active = Table.AddColumn(ToColumn, "Active", each if [IsActive]=true then 1 else 0),
    ChgType = Table.TransformColumnTypes(Active,{{"Active", Int64.Type}}),
    FilterOutTempDate = Table.SelectRows(ChgType, each not Text.StartsWith([ToTable], "LocalDateTable")),
    Cleanup = Table.RemoveColumns(FilterOutTempDate,{"Name", "FromTableID", "FromColumnID", "ToTableID", "ToColumnID"}),
    Reorder = Table.ReorderColumns(Cleanup,{"FromTable", "FromName", "ToTable", "ToColumn", "ID", "ModelID", "IsActive", "Type", "CrossFilteringBehavior", "JoinOnDateBehavior", "RelyOnReferentialIntegrity", "FromCardinality", "ToCardinality", "State", "RelationshipStorageID", "RelationshipStorage2ID", "ModifiedTime", "RefreshedTime", "SecurityFilteringBehavior", "Active"}),
    Sort = Table.Sort(Reorder,{{"FromTable", Order.Ascending}})
in
    Sort