+
+ foreach my $entry (@$data) {
+ my $args = [];
+ my $fields = [];
+
+ $common_ref{$entry->{'common-ref'}} = $entry if $entry->{'common-ref'} ne '';
+
+ next if $entry->{type} ne 'Indication';
+ next if not defined $entry->{input} and not defined $entry->{output};
+
+ &$ind_sub($prefix.$entry->{name}." Indication", $entry->{output}, $entry);
+ }