B4X Requires Chilkat v11.0.0+

Belgium eHealth Platform - AddressBook - Search for Professionals

See more Belgian eHealth Platform Examples

Demonstrates how to search for professionals using the AddressBook API. B4X

Dim success As Boolean = False

'  This example assumes the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

'  --------------------------------------------------------------------------------
'  Also see Chilkat's Online WSDL Code Generator
'  to generate code and SOAP Request and Response XML for each operation in a WSDL.
'  --------------------------------------------------------------------------------

'  Provide a certificate + private key.
'  Note: If your certificate + private key is located on a hardware token or smartcard, you can call a different function to load from smartcard..
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadPfxFile("SSIN=12345678.acc.p12", "p12_password")
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


'  Let's get the SAML Security Token obtained from https://services-acpt.ehealth.fgov.be/IAM/SecurityTokenService/v1/RequestSecurityToken
'  a very short time ago..

'  See this example for how we got the SAML security token: eHealth Belgium Request Security Token
Dim bdSecToken As ChilkatBinData
bdSecToken.Initialize
success = bdSecToken.LoadFile("qa_data/tokens/ehealth-fgov-be-sectoken.xml")
If success = False Then
    Log("Failed to load SAML security token")
    Return
End If


'  The SAML security token is just the part from <Assertion ..> ... </Assertion>
'  So let's get just that part..
Dim startIdx As Int = bdSecToken.FindString("<Assertion", 0, "utf-8")
If startIdx < 0 Then
    Log("Did not find the start of the SAML assertion.")
    Return
End If

Dim endIdx As Int = bdSecToken.FindString("</Assertion>", 0, "utf-8")
If endIdx < 0 Then
    Log("Did not find the end of the SAML assertion.")
    Return
End If


'  Adjust the index to the 1st byte after "</Assertion>"
endIdx = endIdx + 12
Dim base64_saml_token As String = bdSecToken.GetEncodedChunk(startIdx, endIdx - startIdx, "base64")

Log(base64_saml_token)

'  Our SOAP request will look like this:

'  The SOAP request to search for professionals looks like this:

'  <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:add="urn:be:fgov:ehealth:addressbook:protocol:v1">
'      <soapenv:Header>
'  	      <wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
'  	         <wsse:BinarySecurityToken
'  	            ValueType="http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID"
'  	            EncodingType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary">BASE64_SAML_TOKEN</wsse:BinarySecurityToken>
'  	      </wsse:Security>
'      </soapenv:Header>
'      <soapenv:Body>
'          <add:SearchProfessionalsRequest Id="bdc38ae62-3e7f-4f80-80f7-c3e745500fa3" IssueInstant="2016-03-23T18:49:26.968+01:00" Offset="0" MaxElements="100">
'              <add:SSIN>74062423769</add:SSIN>
'          </add:SearchProfessionalsRequest>
'      </soapenv:Body>
'  </soapenv:Envelope>

Dim xml As ChilkatXml
xml.Initialize
xml.Tag = "soapenv:Envelope"
xml.UpdateAttrAt("soapenv:Header|wsse:Security", True, "xmlns:wsse", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
xml.UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken", True, "ValueType", "http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID")
xml.UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken", True, "EncodingType", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary")

xml.UpdateChildContent("soapenv:Header|wsse:Security|wsse:BinarySecurityToken", base64_saml_token)

xml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest", True, "Id", "bdc38ae62-3e7f-4f80-80f7-c3e745500fa3")

Dim dt As ChilkatDateTime
dt.Initialize
dt.SetFromCurrentSystemTime
xml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest", True, "IssueInstant", dt.GetAsTimestamp(True))

xml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest", True, "Offset", "0")
xml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest", True, "MaxElements", "100")
xml.UpdateChildContent("soapenv:Body|add:SearchProfessionalsRequest|urn:SSIN", "74062423769")

Log(xml.GetXml)

Dim http As ChilkatHttp
http.Initialize("http")

success = http.SetSslClientCert(cert)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


http.SetRequestHeader("Content-Type", "text/xml")
http.SetRequestHeader("SOAPAction", "urn:be:fgov:ehealth:addressbook:protocol:v1:searchProfessionals")

Dim xmlStr As String = xml.GetXml
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpStr("POST", "https://services.ehealth.fgov.be/AddressBook/v1", xmlStr, "utf-8", "application/xml", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Log(resp.BodyStr)
Log("response status code = " & resp.StatusCode)