SELECT
  AdminICEvidenceTypeDefLink.adminICEvidenceTypeDefLinkID
INTO
  :adminICEvidenceTypeDefLinkID
FROM
  AdminICEvidenceTypeDefLink,
  EvidenceTypeDef
WHERE AdminICEvidenceTypeDefLink.shareableInd = :shareableInd
  AND EvidenceTypeDef.evidenceTypeDefID = AdminICEvidenceTypeDefLink.evidenceTypeDefID
  AND EvidenceTypeDef.recordStatus = :recordStatus