+sub ServiceInfo {
+ my $self = shift;
+ $self->{fstable} eq 'cust_svc' or return;
+ my $rec = $self->_FreesideGetRecord() or return;
+ my $cust_svc = $rec->{'_object'};
+ my $svc_x = $cust_svc->svc_x;
+ my $part_svc = $cust_svc->part_svc;
+ return $self->{ServiceInfo} ||= {
+ $cust_svc->hash,
+ $svc_x->hash,
+ ServiceType => $part_svc->svc,
+ Label => $self->AsString,
+ }
+}
+