package DXProt;
-@ISA = qw(DXProt DXChannel);
+@ISA = qw(DXChannel);
use DXUtil;
use DXM;
{
my $nref = shift;
my $s = "PC92^$main::mycall^" . gen_pc9x_t() . "^K";
- $s .= "^" . _encode_pc92_call($nref, 1);
+ $s .= "^" . _encode_pc92_call($nref, 1) . ":$main::me->{build}";
$s .= "^" . scalar $nref->nodes;
$s .= "^" . scalar $nref->users;
return $s . '^H99^';