/// Calculate age by passing date of birth in internal format  ( ex.: $ZDH("19/04/1993",4) )
ClassMethod currentAge(date As %Date = "") As %Integer [ CodeMode = expression ]
{
       $select(date="":"",1:($ZD($H,8)-$ZD(date,8)\10000))
}