Patient records created each months

gistfile1.txt

{{velocity}}
##set ($format = $services.jodatime.getISODateFormatter())
#set ($format = $services.jodatime.getDateTimeFormatterForPattern('yyyy-MM'))
#set($q = $services.query.hql("select doc.creationDate from XWikiDocument doc, BaseObject as obj, DBStringListProperty phenotype, LongProperty iid where obj.name=doc.fullName and obj.className = ? and doc.fullName not in (?, ?) and obj.id=phenotype.id.id and phenotype.id.name = ? and (? in elements(phenotype.list)) and iid.id.id = obj.id and iid.id.name = 'identifier' and iid.value >= 0 order by doc.creationDate asc").bindValues(["PhenoTips.PatientClass", "PhenoTips.PatientClassTemplate", "PhenoTips.PatientTemplate", "extended_phenotype", "HP:0000118"]))
|=Month|=Patient records created
#foreach ($i in $q.execute())
  #set ($date = $format.print($i))
  #if ($prevDate != $date)
    #if($prevDate)
      |$prevDate|$count
    #end
    #set ($prevDate = $date)
    #set ($count = 0)
  #end
  #set ($count = $count + 1)
#end
|$prevDate|$count
|=Total|=$services.query.hql(", BaseObject as obj, DBStringListProperty phenotype, LongProperty iid where obj.name=doc.fullName and obj.className = ? and doc.fullName not in (?, ?) and obj.id=phenotype.id.id and phenotype.id.name = ? and (? in elements(phenotype.list)) and iid.id.id = obj.id and iid.id.name = 'identifier' and iid.value >= 0").bindValues(["PhenoTips.PatientClass", "PhenoTips.PatientClassTemplate", "PhenoTips.PatientTemplate", "extended_phenotype", "HP:0000118"]).count()
{{/velocity}}