ConneXionInsertClaimant Method

public ConneXionResult InsertClaimant(
	ref Claimant Claimant
)

Public Function InsertClaimant ( 
	ByRef Claimant As Claimant
) As ConneXionResult

Dim oConneXionClaimant As New ConneXion.ConneXion
Dim oClaimant As New ConneXion.Claimant
Dim oResult As ConneXion.ConneXionResult

oClaimant.TAMUserName = "EXEC"
oClaimant.TAMPassword = "PSWD"
oClaimant.PolicyIndex = "ABBOJO1-1"
oClaimant.ClaimRec = "000030"
oClaimant.Name = "Knuckles Magoo"
oClaimant.Street = "101 Main"
oClaimant.City = "Gulf Shores"
oClaimant.State = "AL"
oClaimant.ZipCode = "36547"

oResult = oConneXionClaimant.InsertClaimant(oClaimant)
If oResult.Success Then
    MessageBox.Show("Insert Claimant is Successful")
    txtResult.Text = "Record Number: " & oClaimant.RecordNumber
Else
    txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " &
     oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
End If