SELECT ReferralCategory.ReferralCategory,
Count(PatReferralTo.ReferralCategoryID) AS CountOfReferralCategoryID
FROM ReferralType
INNER JOIN (ReferralCategory
INNER JOIN (Patient
INNER JOIN PatReferralTo ON Patient.ID = PatReferralTo.PatientID)
ON ReferralCategory.ID = PatReferralTo.ReferralCategoryID)
ON ReferralType.ID = ReferralCategory.ReferralTypeID
WHERE (((PatReferralTo.ReferralDt)>=[Enter Beginning Date]
Or (PatReferralTo.ReferralDt)<=[Enter Ending Date]))
GROUP BY ReferralCategory.ReferralCategory,
ReferralType.ID, Patient.ProgramID
HAVING (((ReferralType.ID)=2) AND ((Patient.ProgramID)=RetProgID()))
ORDER BY ReferralCategory.ReferralCategory;