Source position: orl.inc line 1421
function OCINumberPrec(
err: POCIError;
number: POCINumber;
nDigs: eword;
result: POCINumber
):sword;