Я нашел это.
Ответ лежит в AVPairs и создании пользовательских avpairs. Я должен указать avpair для каждой группы, возвращаемой сервером радиуса, и прочитать их в коде TCL следующим образом:
if { [infotag get aaa_avpair_exists h323-ivr-in] } {
set CustomerStatus [infotag get aaa_avpair h323-ivr-in]
foreach pairs [split $CustomerStatus] {
set value_list [split $pairs :]
set key [lindex $value_list 0]
set value [lindex $value_list 1]
if { $key == "contractType" } {
set contractType $value
}
}