sub Rooter{
my $neid = 2923
my ($NB_TS,$NBvpi,$NBvci,$NBpcr,$pvc);