sub TableWrite {
    ...
        RowWrite( $table->{ $Id } );
    }
} ## end sub TableWrite