Source position: jwawinber.pas line 196
function ber_flatten(
pBerElement: PBerElement;
var pBerVal: PBERVAL
):Integer;