1 package FS::cdr::ani_networks;
2 use base qw( FS::cdr );
9 'name' => 'ANI NETWORKS',
11 'type' => 'fixedlength',
12 'fixedlength_format' => [qw(
13 call_date_time:14:1:14
14 bill_to_number:15:15:29
15 translate_number:10:30:39
16 originating_number:10:40:49
17 originating_lata:3:50:52
18 originating_city:30:53:82
19 originating_state:2:83:84
20 originating_country:4:85:88
21 terminating_number:15:89:103
22 terminating_lata:3:104:106
23 terminating_city:30:107:136
24 terminating_state:2:137:138
25 terminating_citycode:3:139:141
26 terminating_country:4:142:145
28 call_transport:1:148:148
29 account_code:12:149:160
32 wholesale_amount:9:171:179
34 originating_lrn:10:184:193
35 terminating_lrn:10:194:203
36 originating_ocn:4:204:207
37 terminating_ocn:4:208:211
41 sub { #call_date and time
42 my($cdr, $data, $conf, $param) = @_;
43 $data =~ /^(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/ or die "unparsable record_date: $data";
44 $cdr->set('calldate', "$2/$3/$1 $4:$5:$6");
47 'charged_party', #bill to number
50 'src', #originating number
54 '', #originating state
55 '', #originating country
57 'dst', #terminating number
61 '', #terminating state
62 '', #terminating city code
63 '', #terminating country
67 'accountcode', #account code
72 'src_lrn', #originating lrn
73 'dst_lrn', #terminating lrn