global PinLen;

    global CardLen;

    global WarnTime;

    set param(abortKey) *

    set param(interruptPrompt) true

    set param(ignoreInitialTermKey) true

    set LangPattern(1) {[1,2]}

    set AccountLen [string trim [infotag get cfg_avpair uid-len]];

    set PinLen [string trim [infotag get cfg_avpair pin-len]];

    set retryCnt [string trim [infotag get cfg_avpair retry-count]];

    set WarnTime [string trim [infotag get cfg_avpair warning-time]];

    set CardLen [expr $AccountLen + $PinLen];

    set ParamForCard(abortKey) *

    set ParamForCard(initialDigitTimeout) 10

    set ParamForCard(terminationKey) #

    set ParamForCard(maxDigits) $CardLen;

    set ParamForCard(interruptPrompt) true

    set ParamForDest(abortKey) *

    set ParamForDest(initialDigitTimeout) 10

    set ParamForDest(terminationKey) #

    set ParamForDest(interruptPrompt) true

    set ParamForDest(dialPlanTerm) true;

    set ParamForDest(ignoreInitialTermKey) true;

    return;

    }

Процедура init вызывается всего один раз при первом запуске скрипта, и в ней производится объявление и инициализация переменных, не меняющих свое значение для всех звонков, обслуживаемых IVR-скриптом.

Она вызывается в глобальной области TCL-приложения командой init, и все переменные, объявленные и установленные таким образом, будут сохранять свои значения на всем протяжении работы шлюза для всех поступающих звонков. В этой процедуре объявляются следующие переменные: param, ParamForDest, ParamForCard – ассоциативные массивы, содержащие параметры для сбора информации о набранных клиентом цифрах для выбора языка сообщений системы, номере карты и номере телефона назначения.

Массивы могут содержать следующие именованные индексы и значения:

n  param(abortKey) – определяет клавишу, которая будет использоваться как клавиша отмены набора (например, если клиент по ошибке нажал не ту клавишу и вовремя это заметил, то он будет иметь возможность нажать клавишу, определенную параметром param(abortKey), и IVR-скрипт получит событие ev_collectdigits_done, определяющее завершение процесса сбора информации о полученных от клиента цифрах со статусом «cd_002», который означает, что клиент нажал клавишу отмены. В нашем случае это клавиша с символом «*» (звездочка).