To demonstrate the Programming Language Integration using Perl Script, Xtend IVR introduces a sample script for Automated Bank Balance Enquiry system.
Any person who has an account in a bank would like to know his/her account balance status at any time. The customers have got only three options - walk down to the bank to get these details or contact the bank staff through telephone or go for the Internet banking. The first option is not feasible in the present scenario. The second option is not possible all the time as it may increase the workload of the staff and for the third option using Internet Banking facility will require a system with Internet facility which may not be possessed by many of the customers. To simplify, Xtend IVR brings out a faster approach in dealing with the existing accounts in banks.
The automated attendant will work as given below:
MAIN: display "Waiting for call." answer play "WelcomeLotus.wav" play "silence.wav" play "PunchAccount.wav" $Acno = Input(4,4) if $Acno = "" play "invalidacno.wav" goto GOODBYE endif play "GetPin.wav" $Pin = Input(4,4) if $Pin = "" play "InvalidPin.wav" goto GOODBYE endif $Bal = BankDB.ReadBalance($Acno, $Pin) if $Bal == -1 play "InvalidAcno.wav" hangup goto MAIN endif play "AccBal.wav" $wave = Money2Wav($Bal,"SRE","ENGLISH","INDIA") play $wave play "silence.wav" GOODBYE: play "goodbye.wav" hangup goto MAIN ONHANGUP: hangup goto MAIN ONSYSTEMERROR: log $error display $error hangup goto MAIN