SELECT 
  CR.CONCERNROLEID 
INTO 
  :concernRoleID 
FROM 
  CONCERNROLE CR, 
  CASEHEADER CH 
WHERE 
  CR.CONCERNROLEID = CH.CONCERNROLEID AND 
  CH.CASETYPECODE='CT2001' AND 
  CH.STATUSCODE ='CS4' AND 
  CR.CONCERNROLEID IN 
  ( SELECT CONCERNROLEID FROM CONCERNROLEADDRESS CRA, ADDRESS A WHERE CRA.ADDRESSID=A.ADDRESSID AND A.LASTWRITTEN >= :lastWritten
    UNION 
    SELECT CONCERNROLEID FROM CONCERNROLEADDRESS WHERE LASTWRITTEN >= :lastWritten
    UNION
    SELECT CONCERNROLEID FROM CONCERNROLEALTERNATEID WHERE LASTWRITTEN >= :lastWritten
    UNION
    SELECT CONCERNROLEID FROM CONCERNROLEBANKACCOUNT CRBA, BANKACCOUNT BA WHERE CRBA.BANKACCOUNTID=BA.BANKACCOUNTID AND BA.LASTWRITTEN >= :lastWritten
    UNION
    SELECT CONCERNROLEID FROM CONCERNROLE WHERE LASTWRITTEN >= :lastWritten
    UNION 
    SELECT CONCERNROLEID FROM ALTERNATENAME WHERE LASTWRITTEN >= :lastWritten
    UNION
    SELECT CONCERNROLEID FROM CONCERNROLEEMAILADDRESS CREA, EMAILADDRESS EA WHERE CREA.EMAILADDRESSID=EA.EMAILADDRESSID AND EA.LASTWRITTEN >= :lastWritten
    UNION 
    SELECT CONCERNROLEID FROM CONCERNROLEEMAILADDRESS WHERE LASTWRITTEN >= :lastWritten
    UNION
    SELECT CONCERNROLEID FROM CONCERNROLEPHONENUMBER CRPN, PHONENUMBER PN WHERE CRPN.PHONENUMBERID=PN.PHONENUMBERID AND PN.LASTWRITTEN >= :lastWritten
    UNION 
    SELECT CONCERNROLEID FROM CONCERNROLEPHONENUMBER WHERE LASTWRITTEN >= :lastWritten
    UNION 
    SELECT CONCERNROLEID FROM PERSON WHERE LASTWRITTEN >= :lastWritten
    UNION 
    SELECT CONCERNROLEID FROM PROSPECTPERSON WHERE LASTWRITTEN >= :lastWritten
    UNION 
    SELECT CONCERNROLEID FROM CONCERNROLERELATIONSHIP WHERE LASTWRITTEN >= :lastWritten)