sub wzcode ($$) {
# -----------------------------------------------------------------------------
# sub          : wzcode
# -----------------------------------------------------------------------------
# Autor        : CD
# Aufgabe      : Vergabe des WZ-Codes
# Parameter    : 1) Begriff
#                2) Referenz auf wz-AoH
# Rückgabewert : gefundene Zahl oder 00000
# -----------------------------------------------------------------------------
# 0.0.1 - 12.03.2004 - CD - Erstellt
# -----------------------------------------------------------------------------

    my $begriff = shift;
    my $refwz   = shift;
    my $ret     = '00000';


    for (@$refwz) {
        if ($begriff =~ $_->{re}) {
            $ret = $_->{wzcode};
	    last;
        }
    }


    return $ret;

} # sub wzcode