' Questions to pass to IVR
UsedEver "Have you ever used breath fresheners on a regular basis?"
categorical [1..1] {Yes, No};
UseNow "And are you using a breath freshener regularly now?"
categorical [1..1] {Yes, No};
WeeklyUsage "How many times a week do/did you use a breath freshener?"
long [1..99];
Type "Which type of breath freshener do you mainly use or have you mainly
used in the past" categorical [1..1]
{
Spray, Mouthwash, Tablets, Gum, Other
};
Ivrchk "The rest of the interview will be conducted as an automated
survey. A machine will ask the questions, and you can answer by typing
numbers on your telephone keypad.<br/>
Are you willing to be interviewed in this way?"
categorical [1..1]
{Yes, No};

Handoff "Thank you for your help. You are now being transferred to
the automated system." info;
ErrMsg "There is a technical problem and the interview cannot continue.
Thank you for your help.
INTERVIEWER: Failure due to : {ErrorDescription}" info;
NotSuitable "This survey requires people who have used or who now
use mouthwash so you are not suitable for this survey.
Thank you for your help." info;
Thanks "Thank you for your help." info;

UsedEver.Ask()
UseNow.Ask()
If UsedEver = {No} And UseNow = {No} Then
NotSuitable.Show()
IOM.Terminate(Signals.sigCompleted, , TerminateStatus.tsCompleted)
End If
WeeklyUsage.Ask()
Type.Ask()
Ivrchk.Ask()
If Ivrchk = {Yes} Then
Handoff.Show()
If TransferToIVR(IOM, QSampDialer, QSampExtension) Then
' Transfer succeeded so terminate the interview and flag as
' Complete.
IOM.Terminate(Signals.sigCompleted, , TerminateStatus.tsCompleted)
Else
' Unable to transfer the call so terminate interview and
' flag as Terminated
ErrMsg.Show()
IOM.Terminate(Signals.sigError)
End If
Else
Thanks.Show()
End If

Function TransferToIVR(IOM, QSampDialer, QSampExtension)
' Transfer the call to the IVR system

Const IVR_NO = "02071234567"

Dim DTMF, IVRCall

On Error Goto DialerError

' The DTMF to the IVR system consists of the respondent serial
' number and the answers to the questions in the metadata section.
DTMF = CText(IOM.Info.RespondentID) + "#" + _
PrepareQ(IOM.Questions["UsedEver"]) + _
PrepareQ(IOM.Questions["UseNow"]) + _
PrepareQ(IOM.Questions["WeeklyUsage"]) + "#" + _
PrepareQ(IOM.Questions["Type"]) + "#"

' Dial the IVR system with a 5 second time-out and send the
' DTMF tone when it connects
Set IVRCall = _
QsampDialer.Groups["ivr_xfer"].DialCall(IVR_NO, , , , 5, , , DTMF)

' Wait until the call is connected (2) or terminates (3)
While ((IVRCall.State <> 2) And (IVRCall.State <> 3))
Sleep(100)
End While

If (IVRCall.State = 2) Then
' The call connected to the IVR system. Transfer the call.
QsampExtension.Call.TransferToExtension(IVRCall.Extension.SlaveExtension)
Else
' The call terminated - something went wrong.
Err.Raise(-1, "", GetOutcomeDescription(IVRCall.Outcome))
End If

' Wait until the transfer of the original call is complete
' (and it terminates (3))
While (QsampExtension.Call.State <> 3)
Sleep(20)
End While

TransferToIVR = True
Exit

DialerError:
IOM.Questions["ErrMsg"].Label.Inserts["ErrorDescription"] = Err.Description
TransferToIVR = False
End Function

Function PrepareQ(Question)
If Question.QuestionDataType = DataTypeConstants.mtCategorical Then
PrepareQ = CText(Question.DefinedCategories().Find(Question))
Else
PrepareQ = CText(Question)
End If
End Function

Function GetOutcomeDescription(Outcome)
Select Case Outcome
Case 0
GetOutcomeDescription = "No outcome as the call is still in progress or connected."
Case 1
GetOutcomeDescription = "The number dialed was unobtainable. This is because the number is unallocated/unassigned."
Case 2
GetOutcomeDescription = "The number dialed was out of order."
Case 3
GetOutcomeDescription = "The call failed due to an internal dialer error."
Case 4
GetOutcomeDescription = "The call was rejected by the remote party."
Case 5
GetOutcomeDescription = "The number has changed, i.e., the remote party is now contactable using a different number."
Case 6
GetOutcomeDescription = "The number was incomplete (the call never rang)."
Case 7
GetOutcomeDescription = "No trunks were available to make the call."
Case 8
GetOutcomeDescription = "Network congestion prevented the call from being dialed."
Case 9
GetOutcomeDescription = "The number dialed was busy."
Case 10
GetOutcomeDescription = " A fast-busy tone was detected. This normally indicates network congestion but some
networks use this to indicate an unallocated number. "
Case 11
GetOutcomeDescription = "A tri-tone tone was detected. "
Case 12
GetOutcomeDescription = "A recorded announcement was detected."
Case 13
GetOutcomeDescription = "The call was not answered within the no-answer time-out period."
Case 14
GetOutcomeDescription = "A group call was dialed but no suitably qualified extension was available to accept the call."
Case 15
GetOutcomeDescription = "The extension was on-hook."
Case 16
GetOutcomeDescription = "The call was transferred to another extension or group."
Case 17
GetOutcomeDescription = "The call was hung up locally by the dialer"
Case 18
GetOutcomeDescription = "The call was hung up remotely"
Case 19
GetOutcomeDescription = "No DSPs were available on the dialer. This is a special case of coNoResources."
Case 20
GetOutcomeDescription = "The dialer has insufficient resources available to make the call."
Case 21
GetOutcomeDescription = "The call terminated and the dialer couldn't determine why."
Case 22
GetOutcomeDescription = "The number is a fax or modem."
End Select
End Function