Multiple EMail Addresses

SELECT A. EMPLID, A .NAME, B.E_ADDR_TYPE , B. EMAIL_ADDR, B .PREF_EMAIL_FLAG

  FROM PS_PX_ACTV_WRKR_VW A , PS_EMAIL_ADDRESSES B

  WHERE ( A. EFFDT =

        (SELECT MAX(A_ED .EFFDT) FROM PS_PX_ACTV_WRKR_VW A_ED

        WHERE A. EMPLID = A_ED .EMPLID

          AND A. EMPL_RCD = A_ED .EMPL_RCD

          AND A_ED. EFFDT <= SUBSTRING(CONVERT (CHAR, GETDATE(),121 ), 1, 10))

    AND A .EFFSEQ =

        (SELECT MAX(A_ES .EFFSEQ) FROM PS_PX_ACTV_WRKR_VW A_ES

        WHERE A. EMPLID = A_ES .EMPLID

          AND A. EMPL_RCD = A_ES .EMPL_RCD

          AND A. EFFDT = A_ES .EFFDT)

     AND A. EMPLID = B .EMPLID

     AND A. EMPLID IN (SELECT C .EMPLID

                                           FROM PS_EMAIL_ADDRESSES C

                                            GROUP BY C.EMPLID

                                           HAVING COUNT (*) > 1) )

ORDER BY 2, 3 , 4