Display shift schedules in calendar

Hello,

I have the following table which are the individual shift schedules and i am trying to present this in a calendar visualization. But it is only working for some of the names. Sometimes, if there is an overlap in the dates for the same name, it does not give the correct values. The final result should be a table with 3 columns: Date, Name, Value. The Value is either 1 or 0. It should be 1 when the date falls within the range specified in the schedule, otherwise it should be 0.

In red below do not give the correct values and therefore do not show correctly or at all in the calendar visualization.

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("jZJdS8MwFIb/Suj1YEnarvV2itPNIah4M3ZxbEMbyIekitZfb7JCPdF18/LAc16e87HbJRuoerK2RnTJLKHZnKZzTjn3BedjsZ8FsBZkI4wRdR/QBUJZjF462b1JMOSptfq1sybwF4hP6f+j0wi9Ah2Ct5USSsG54L80y6bpY9qsxC5lxN92rYcfZPPS/07mcfJaai0FuQFXS9OckV46+CT3RkilQhIWoL7I8N7Q7Xh6IlKAI0tw7iBaYNEiFrWu8aIrUMp+QKA5w3Qe0dfgoCV3/XBgNroNXUj0EZT2q1pZW+vDGaKpWB7Bz9JUwnxZsn137uCAphlWm50yDs84ivg+mk9+GqMIZYvp5bISD1f8gPtv", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Name = _t, From = _t, Until = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Name", type text}, {"From", type date}, {"Until", type date}}),
        // create lists with dates 1 or 0 corresponding to each Name/From/Until
    allDates = List.Dates(Date.AddMonths(Date.StartOfMonth(Date.From(DateTime.FixedLocalNow())),-1), Number.From(Date.EndOfMonth(DateTime.FixedLocalNow()))- Number.From(Date.AddMonths(Date.StartOfMonth(DateTime.FixedLocalNow()),-1)) ,#duration(1,0,0,0)),
    textDates = List.Transform(allDates, each Text.From(_)),
    dateCols = List.Generate(
            ()=>[d=List.Transform(allDates, 
                        (L)=> if L >=#"Changed Type"[From]{0} and L <=#"Changed Type"[Until]{0} then 1 else 0),
                        idx=0],
            each [idx]<Table.RowCount(#"Changed Type"),
            each [d=List.Transform(allDates, (L)=>
                        if L >=#"Changed Type"[From]{[idx]+1} and L <= #"Changed Type"[Until]{[idx]+1} then 1 else 0),
                        idx=[idx]+1],
            each Table.ToRecords(#"Changed Type"){[idx]} & Record.FromList([d], textDates)),
    dateTable = Table.FromRecords(dateCols),
    #"Removed Columns1" = Table.RemoveColumns(dateTable,{"From", "Until"}),
    #"Grouped Rows" = Table.Group(#"Removed Columns1", {"Name"}, {
        {"total row", (t)=> let 
            colNames = Table.ColumnNames(t),
            sumDates = List.Generate(
                ()=>[s=t[Name]{0}, idx=0],
                each [idx] < List.Count(colNames),
                each [s = List.Product(Table.Column(t,colNames{[idx]+1})), idx=[idx]+1],
                each [s])
            in sumDates, type list}
        }),
    #"Removed Columns2" = Table.RemoveColumns(#"Grouped Rows",{"Name"}),
    colNames2 = List.Accumulate(#"Removed Columns2"[total row],{"Date"},(state,current)=>
        state & List.Range(current,0,1)),
    data = List.Accumulate(#"Removed Columns2"[total row],{},(state, current)=>state & {List.RemoveFirstN(current,1)}),
    results = Table.FromColumns({allDates} & data, colNames2),
    typeIt = Table.TransformColumnTypes(results, {{"Date", type date}} &
       List.Transform(List.RemoveFirstN(Table.ColumnNames(results),1), each {_, Int64.Type})
),
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(typeIt, {"Date"}, "Name", "Value")
in
    #"Unpivoted Other Columns"

I hope someone can help troubleshoot this problem or provide a better alternative solution. Any help is much appreciated! 

Here is the download link to my PBIX file (click the download icon at the top-right corner of the window): https://drive.google.com/file/d/15bEGr3tmVlRrSCb3LSnAn-KJgCi8J39c/view?usp=sharing