my $svcpart = shift or die &usage;
foreach my $cust_svc ( qsearch('cust_svc', { 'svcpart'=>$svcpart } ) ) {
my $svc_x = $cust_svc->svc_x;
my $svcpart = shift or die &usage;
foreach my $cust_svc ( qsearch('cust_svc', { 'svcpart'=>$svcpart } ) ) {
my $svc_x = $cust_svc->svc_x;