SELECT
  EvidenceTypeDef.evidenceTypeDefID,
  EvidenceTypeDef.evidenceTypeCode
INTO
  :evidenceTypeDefID,
  :evidenceTypeCode
FROM
  EvidenceTypeDef
WHERE EvidenceTypeDef.recordStatus = :recordStatus 
  AND :typeCode NOT IN 
  ( 
  SELECT
    PDCTypeLink.typeCode 
  FROM
    PDCTypeLink,
    PDCEvidenceTypeDefLink 
  WHERE PDCTypeLink.pdcTypeID = PDCEvidenceTypeDefLink.pdcTypeID
    AND PDCEvidenceTypeDefLink.evidenceTypeDefID = EvidenceTypeDef.evidenceTypeDefID 
  )