/* GiveConfer repeats the location, car type and color back to the caller in the
EZRentaCar demo*/

_declspec(dllexport) BOOL WINAPI GiveConfer(LONG nEvent, HANDLE hCA)
{
	TCHAR szState[1024];
	TCHAR szCity[1024];
	TCHAR szType[1024];
	TCHAR szColor[1024];

	TCHAR szBuffer[1024];
	LONG nSize = 1024;
	LONG nConf;

	switch(nEvent)
	{	
	case CAMSG_ENTERMODULE:
		LVCA_GetMultiLevelConcept(hCA, "Location", 0x1, szState, &nSize, &nConf); //retrieves concepts from each module
		nSize = 1024;
		LVCA_GetMultiLevelConcept(hCA, "Location", 0x2, szCity, &nSize, &nConf);
		nSize = 1024;
		LVCA_GetConcept(hCA, "Type of Car", szType, &nSize, &nConf);
		nSize = 1024;
		LVCA_GetConcept(hCA, "Color", szColor, &nSize, &nConf);
		nSize = 1024;
		
		LVCA_AddOneTimeLibraryAudioA(hCA, "EC:Confirmation (b car type)");  //Adds the concept into the audio and confirms
		sprintf(szBuffer, "EC:%s", szColor);								// color and type
		LVCA_AddOneTimeLibraryAudioA(hCA, szBuffer);
		sprintf(szBuffer, "EC:%s", szType);
		LVCA_AddOneTimeLibraryAudioA(hCA, szBuffer);

		if (stricmp("minivan", szType) && stricmp("pickup", szType))  //allows "minivan" & "pickup" to be their own type
			LVCA_AddOneTimeLibraryAudioA(hCA, "EC:Car");	

		LVCA_AddOneTimeLibraryAudioA(hCA, "EC:Confirmation (b CityState)"); //Adds concept into audio and confirms city & state  
		sprintf(szBuffer, "City:%s", szCity);
		LVCA_AddOneTimeLibraryAudioA(hCA, szBuffer);
		sprintf(szBuffer, "State:%s", szState);
		LVCA_AddOneTimeLibraryAudioA(hCA, szBuffer);


		LVCA_SetGoto( hCA, "Close" );
			break;
	case CAMSG_REC_BEFORE_CONFIRM:
		break;
	case CAMSG_REC_AFTER_CONFIRM:
		break;
	}
	return TRUE;
}
					

Private Sub Form_Load()

End Sub

Public Sub Module_ModuleAfterDecode(ByRef LVCA As LVCA_Link.CustomCallActions)
    LVCA.LogMsgToFile "TEST Module_ModuleBeforeConfirm"
    LVCA.DisplayMessage "Module_ModuleBeforeConfirm " & LVCA.GetModuleName
    
    If Not LVCA.GetInteractionCondition() = LVCAIC_Match Then
        LVCA.SetNextModule LVCA.GetModuleName
        Exit Sub
    End If
    
    Select Case LVCA.GetModuleName
        Case "Account Number"
            Dim AccountNumber As String
            Dim Conf As Long
            
            If LVCA.IsDTMFPresent Then
                AccountNumber = LVCA.GetRawConcept(0, Conf)
            Else
                AccountNumber = LVCA.GetSemanticInterpretationSTrin(0, INTSTR_CONTENT)
            End If
            LVCA.DisplayMessage "Module_ModuleBeforeConfirm " & AccontNumber
            LVCA.AddTTSPrompt "The account number you entered is " & AccountNumber & " You are now being transfered:"
            
            LVCA.SetStringValue "Account Number", AccountNumber
            LVCA.SetNextModule ("Main Menu")
    End Select
End Sub

Public Sub Module_ModuleEntry(ByRef LVCA As LVCA_Link.CustomCallActions)

    On Error GoTo ModuleEngryError 'is is recommended you catch and log any error that occur in the vb code
    
    LVCA.LogMsgToFile "TEST Module_ModuleEntry"
    LVCA.DisplayMessage "TEST Module_ModuleEntry " & LVCA.GetModuleName
1010:

1020:
    Select Case LVCA.GetModuleName 'This is the name of the Module found in the SDIS
        
        Case "Account Number"
1030:
            EnterAccountNumber LVCA
            
        Case "Main Menu"
1040:
End Sub