Patients with any of Several Diagnoses Seen This Year

SELECT
  /*columns to include in list */
  lastname,
  firstname,
  dob,
  socsec
FROM
  patients a JOIN ptcsudx b ON a.ptcsunum = b.ptcsunum
WHERE
  /* at least one charge in ledger during the current year */
  (SELECT count(*) FROM journal
   WHERE trantype = 'S' AND amount > 0
   AND ptnum = a.ptnum
   AND trandate BETWEEN '2008-01-01' AND '2008-12-31') > 0
  /* one of patient's dx's must be in the specified list of codes */
  AND
  (DXCODE1 IN ('309.0','309.21','309.24','309.28','309.3','309.4') OR
   DXCODE2 IN ('309.0','309.21','309.24','309.28','309.3','309.4') OR
   DXCODE3 IN ('309.0','309.21','309.24','309.28','309.3','309.4') OR
   DXCODE4 IN ('309.0','309.21','309.24','309.28','309.3','309.4')  )
ORDER BY
  lastname, firstname, dob