Xbase++ 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. Xbase++

LOCAL nSuccess
LOCAL oCert
LOCAL oBdSecToken
LOCAL nStartIdx
LOCAL nEndIdx
LOCAL cBase64_saml_token
LOCAL oXml
LOCAL oDt
LOCAL oHttp
LOCAL cXmlStr
LOCAL oResp

nSuccess := 0

//  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..
oCert := CreateObject("Chilkat.Cert")
nSuccess := oCert:LoadPfxFile("SSIN=12345678.acc.p12", "p12_password")
IF (nSuccess == 0)
    ? oCert:LastErrorText
    oCert:destroy()
    RETURN
ENDIF

//  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
oBdSecToken := CreateObject("Chilkat.BinData")
nSuccess := oBdSecToken:LoadFile("qa_data/tokens/ehealth-fgov-be-sectoken.xml")
IF (nSuccess == 0)
    ? "Failed to load SAML security token"
    oCert:destroy()
    oBdSecToken:destroy()
    RETURN
ENDIF

//  The SAML security token is just the part from <Assertion ..> ... </Assertion>
//  So let's get just that part..
nStartIdx := oBdSecToken:FindString("<Assertion", 0, "utf-8")
IF (nStartIdx < 0)
    ? "Did not find the start of the SAML assertion."
    oCert:destroy()
    oBdSecToken:destroy()
    RETURN
ENDIF

nEndIdx := oBdSecToken:FindString("</Assertion>", 0, "utf-8")
IF (nEndIdx < 0)
    ? "Did not find the end of the SAML assertion."
    oCert:destroy()
    oBdSecToken:destroy()
    RETURN
ENDIF

//  Adjust the index to the 1st byte after "</Assertion>"
nEndIdx := nEndIdx + 12
cBase64_saml_token := oBdSecToken:GetEncodedChunk(nStartIdx, nEndIdx - nStartIdx, "base64")

? cBase64_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>

oXml := CreateObject("Chilkat.Xml")
oXml:Tag := "soapenv:Envelope"
oXml:UpdateAttrAt("soapenv:Header|wsse:Security", 1, "xmlns:wsse", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
oXml:UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken", 1, "ValueType", "http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID")
oXml:UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken", 1, "EncodingType", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary")

oXml:UpdateChildContent("soapenv:Header|wsse:Security|wsse:BinarySecurityToken", cBase64_saml_token)

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

oDt := CreateObject("Chilkat.CkDateTime")
oDt:SetFromCurrentSystemTime()
oXml:UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest", 1, "IssueInstant", oDt:GetAsTimestamp(1))

oXml:UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest", 1, "Offset", "0")
oXml:UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest", 1, "MaxElements", "100")
oXml:UpdateChildContent("soapenv:Body|add:SearchProfessionalsRequest|urn:SSIN", "74062423769")

? oXml:GetXml()

oHttp := CreateObject("Chilkat.Http")

nSuccess := oHttp:SetSslClientCert(oCert)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oCert:destroy()
    oBdSecToken:destroy()
    oXml:destroy()
    oDt:destroy()
    oHttp:destroy()
    RETURN
ENDIF

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

cXmlStr := oXml:GetXml()
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpStr("POST", "https://services.ehealth.fgov.be/AddressBook/v1", cXmlStr, "utf-8", "application/xml", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oCert:destroy()
    oBdSecToken:destroy()
    oXml:destroy()
    oDt:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

? oResp:BodyStr
? "response status code = " + Str(oResp:StatusCode)

oCert:destroy()
oBdSecToken:destroy()
oXml:destroy()
oDt:destroy()
oHttp:destroy()
oResp:destroy()