SELECT
  ProductEvidenceTypeDefLink.productEvidenceTypeDefLinkID
INTO
  :productEvidenceTypeDefLinkID
FROM
  ProductEvidenceTypeDefLink,
  EvidenceTypeDef
WHERE ProductEvidenceTypeDefLink.shareableInd = :shareableInd
  AND EvidenceTypeDef.evidenceTypeDefID = ProductEvidenceTypeDefLink.evidenceTypeDefID
  AND EvidenceTypeDef.recordStatus = :recordStatus