Here's a code snippet to calculate the length of a class or a package in lines of code:
ClassMethod ProjectLength(Mask As %String = "%Package%")
{
Set count = 0
Set sql = "SELECT Name "_
"FROM %Dictionary.ClassDefinition "_
"WHERE NOT Name %STARTSWITH '%sqlcq' AND Name LIKE ? AND GeneratedBy IS NULL"
Set rset = ##class(%SQL.Statement).%ExecDirect(, sql, Mask)
While rset.%Next() {
Set class = rset.%Get("Name")
Do ##class(%Compiler.UDL.TextServices).GetTextAsArray(, class, .



