Calendar Month View - More Information?

When I look at my Appointments in the Calendar Month view, I see very little information compared to Week view.

I desperately need to see a similar block of data according to the Show as settings. Am I doing something wrong? 

Show as:

let t := this;
let c := 0;
let petList := "";
let selectedPetsArray := for petID in numbers('Scheduled Pets *') do
        record(Pets,petID)
    end;
let petCount := count(selectedPetsArray);
for pet in selectedPetsArray do
    c := c + 1;
    if c = petCount then
        petList := petList + pet.'Pet Name *' + " "
    else
        petList := petList + pet.'Pet Name *' + ", "
    end
end;
let apptDuration := format(endof('Date & Time *') - start('Date & Time *'), "h");
let calendarText := 'Date & Time *' + " " + petList + " (" + 'Client *'.'Full Name' + ")";
let styleColor := color('Status *');
let styleIcon := icon('Status *');
styled(calendarText, styleColor, "", styleIcon)

Week:

Month: