global ParamForDest;

    global DestPromptFlag;

    global NumDestPrompt;

    if {$NumDestPrompt < $retryCnt} {

switch $DestPromptFlag {

0 {media play leg_incoming _enter_dest.au; #Abortkey pressed}

1 {media play leg_incoming _no_dest_entered.au; #Timeout -no digits entered}

2 {media play leg_incoming _reenter_dest.au; #Not mutch to the dial plan}

default {

media play leg_incoming _no_aaa.au;

fst setstate CALLDISCONNECT;

return;

}

}

leg collectdigits leg_incoming ParamForDest;

} else {

media play leg_incoming _dest_collect_fail.au;

fsm setstate CALLDISCONNECT;

}

    return;

    }

Процедура act_GetDestination выполняет в некоторой степени вспомогательную функцию – она будет вызываться в случае какой-либо ошибки, например, при тайм-ауте ввода цифр, нажатии клиентом клавиши, определенной как aborKey, или при несоответствии с планом набора, определенным в маршрутизаторе.

proc act_GotDestination { } {

    global NumDestPrompt;

    global DestPromptFlag;

    global account;

    global pin;

    global destination;

    set status [infotag get evt_status];

    switch $status {

"cd_001" {

incr NumDestPrompt;

set DestPromptFlag 1;

act_GetDestination;