SELECT
  PDCEvidenceTypeDefLink.pdcEvidenceTypeDefLinkID,
  PDCEvidenceTypeDefLink.evidenceTypeDefID
INTO
  :pdcEvidenceTypeDefLinkID,
  :evidenceTypeDefID
FROM
  PDCTypeLink,
  PDCEvidenceTypeDefLink,
  EvidenceTypeDef
WHERE PDCTypeLink.typeCode = :typeCode
  AND PDCEvidenceTypeDefLink.pdcTypeID = PDCTypeLink.pdcTypeID
  AND EvidenceTypeDef.evidenceTypeDefID = PDCEvidenceTypeDefLink.evidenceTypeDefID
  AND EvidenceTypeDef.recordStatus = :recordStatus