+=item part_event
+
+Return the associated part_event row
+
+=cut
+
+sub part_event {
+ qsearchs( part_event => { eventpart => shift->eventpart })
+}
+
+=item option_fields
+
+Return the option_fields from the associated part_event::action::$action
+
+=cut
+
+sub option_fields {
+ my $part_event = shift->part_event
+ or return;
+ my $action = $part_event->action
+ or return;
+
+ # For utility scripts, doesn't seem to be necessary
+ # eval "require FS::part_event::Action::$action;";
+
+ return "FS::part_event::Action::$action"->option_fields;
+}
+