global ParamForDest;

    global param;

    set status [infotag get evt_status];

    set param(enableReporting) true;

    set param(interruptPrompt) false;

    if {$status == "ao_000"} {

if {[infotag get aaa_avpair_exists h323-credit-time]} {

set creditTime [infotag get aaa_avpair h323-credit-time];

} else {

media play leg_incoming _no_aaa.au;

fsm setstate CALLDISCONNECT;

return;

}

if {$creditTime <= $WarnTime} {set NoPlayWarn 1;}

if {$creditTime == "unlimited"} {set NoTimeLimit 1;}

media play leg_incoming _you_have.au %t$creditTime;

leg collectdigits leg_incoming param; #For Fast leg setup

fsm setstate PLACECALL;

return;

}

    incr NumDestPrompt; #Call authorize failed

    if {[infotag get aaa_avpair_exists h323-return-code]} {

set return_code [infotag get aaa_avpair h323-return-code];

} else {

media play leg_incoming no_aaa.au;

fsm setstate CALLDISCONNECT;

return;

}

    if {$NumDestPrompt < $retryCnt} {

act_PlayDestReturnCode $return_code;

leg collectdigits leg_incoming ParamForDest;

} else {

act_GetDestination;

}