- 'npanxx',
- sub {
- my $npanxx = shift->npanxx;
- my @dids = qsearch('phone_avail',
- { 'svcnum' => '',
- 'npa' => substr($npanxx,0,3),
- 'nxx' => substr($npanxx,3,3),
- }
- );
- return scalar(@dids);
+ 'latanum',
+ sub { # LATA Description
+ my $phone_avail = shift;
+ return '' unless $phone_avail->lata;
+ $phone_avail->lata->description;
+ },
+ sub { # Available
+ my $latanum = shift->latanum;
+ my $cnt = qsearchs({ 'table' => 'phone_avail',
+ 'hashref' =>
+ { 'svcnum' => '',
+ 'latanum' => $latanum,
+ },
+ 'select' => 'count(1) as cnt',
+ });
+ ($cnt) ? $cnt->cnt : '';