my $cust_svc = qsearchs('cust_svc', { svcnum => $svcnum })
or die "svcnum #$svcnum not found";
my $phonenum = $cust_svc->svc_x->label;
warn "processing $phonenum\n" if $DEBUG;
my $cust_svc = qsearchs('cust_svc', { svcnum => $svcnum })
or die "svcnum #$svcnum not found";
my $phonenum = $cust_svc->svc_x->label;
warn "processing $phonenum\n" if $DEBUG;