Private Sub UpdateClaim(ByVal Status As String, ByVal Request As String)
'======================
' Import the cliam form
'======================
'
Dim xmlClaimForm As New Xml.XmlDocument
xmlClaimForm.Load(workflowProperties.Item.File.OpenBinaryStream)
'================================
' Preserve white space to
' stop schema validation errors!!
'================================
'
xmlClaimForm.PreserveWhitespace = True