sub generate {
    my ($record, $status, %data) = @_;
    return;
}