incr NumLangPrompt;

media play leg_incoming _no_digits_entered.au;                     

return;

}

"cd_002" {

SelectLanguageMenu;

fsm setstate CALLCOMES;

return;

}

"cd_005" {                                                                                  

infotag set med_language $collect_digits;

fsm setstate CARDSELECTION;

act_GetCard;

return;

}

"cd_006" {                                                                     

incr NumLangPrompt;

media play leg_incoming _wrong_lang_sel.au;

return;

}

default {

media play leg_incoming _no_aaa.au;

fsm setstate CALLDISCONNECT;

}

}

    return;

    }

В процедуре CheckLangSelection мы получаем статус события ev_collectdigits_done командой infotag get evt_status; и набранные цифры(у) командой infotag get evt_dcdigits, затем для удобства присваиваем их временным переменным collect_status и collect_digits. При получении интересующего нас статуса «cd_005» мы командой fsm setstate «вручную» переводим звонок в состояние CARDSELECTION и вызываем процедуру act_GetCard для запроса информации о пин-коде карты клиента и последующей его авторизации.

proc act_GetCard { } {

    global ParamForCard;                                                            

    global NumCardPrompt;                                                    

    global PromptFlag;                                                                

    global retryCnt;                                                                

    if {$NumCardPrompt < $retryCnt} {

switch $PromptFlag {