Source position: orl.inc line 2340
function OCIDateCheck(
err: POCIError;
date: POCIDate;
valid: Puword
):sword;