-##REPLACED BY part_svc_column
-# my $svcdb;
-# foreach $svcdb ( qw(
-# svc_acct svc_acct_sm svc_domain
-# ) ) {
-# my @rows = map { /^${svcdb}__(.*)$/; $1 }
-# grep ! /_flag$/,
-# grep /^${svcdb}__/,
-# fields('part_svc');
-# foreach my $row (@rows) {
-# unless ( $svcdb eq $recref->{svcdb} ) {
-# $recref->{$svcdb.'__'.$row}='';
-# $recref->{$svcdb.'__'.$row.'_flag'}='';
-# next;
-# }
-# $recref->{$svcdb.'__'.$row.'_flag'} =~ /^([DF]?)$/
-# or return "Illegal flag for $svcdb $row";
-# $recref->{$svcdb.'__'.$row.'_flag'} = $1;
-#
-# my $error = $self->ut_anything($svcdb.'__'.$row);
-# return $error if $error;
-#
-# }
-# }
-
- $self->disabled =~ /^(Y?)$/ or return "Illegal disabled: ". $self->disabled;
- $self->disabled($1);
-