AS SELECT pa.ProgramName, 
	Count(distinct Paragraphs.ParaID) AS NumberOfProcedures, Programs.ProgramID
from Paragraphs inner join Programs on Paragraphs.ProgramID = Programs.ProgramID 
INNER JOIN (SELECT AliasName AS ProgramName, ProgramId FROM ProgramAliases WHERE ProgramAliases.AliasType = 0)pa ON Programs.ProgramID = pa.ProgramId
WHERE (Programs.OccurID)<>0 AND (Programs.ProgramTypeID <> 9)
GROUP BY pa.ProgramName, Programs.ProgramID
ORDER BY pa.ProgramName