SELECT DISTINCT DirCatId, DirParId, DirCatName, DirParName FROM DirEntryCatSubCatView INNER JOIN DirEntry2BookRegion on DirEntryCatSubCatView.DirId = DirEntry2BookRegion.DirId WHERE DirCatActive = 1 AND CommunityService = 0 AND DirStartDate <= GETDATE() AND ( DirEndDate IS NULL OR DirEndDate >= GETDATE() ) AND (LEFT(DirEntryCatSubCatView.DirParName, 1) = 'R' OR LEFT(DirEntryCatSubCatView.DirCatName, 1) = 'R') ORDER BY DirEntryCatSubCatView.DirParName, DirEntryCatSubCatView.DirCatName