(Visual FoxPro) Belgium eHealth Platform - AddressBook - Search for Professionals

See more Belgian eHealth Platform Examples

Demonstrates how to search for professionals using the AddressBook API.

For more information, see https://www.ehealth.fgov.be/ehealthplatform/nl/data/file/view/6c419e5685327eed7200d1c543c38a55d5387d30?name=AddressBook%20Consultation%20WS%20v.1%20-%20Cookbook%20v.1.11%20dd%2031082023.pdf

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loCert
LOCAL loBdSecToken
LOCAL lnStartIdx
LOCAL lnEndIdx
LOCAL lcBase64_saml_token
LOCAL loXml
LOCAL loDt
LOCAL loHttp
LOCAL loResp

* 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.
* --------------------------------------------------------------------------------

lnSuccess = 1

* 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..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("SSIN=12345678.acc.p12","p12_password")
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
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
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBdSecToken = CreateObject('Chilkat.BinData')
lnSuccess = loBdSecToken.LoadFile("qa_data/tokens/ehealth-fgov-be-sectoken.xml")
IF (lnSuccess = 0) THEN
    ? "Failed to load SAML security token"
    RELEASE loCert
    RELEASE loBdSecToken
    CANCEL
ENDIF

* The SAML security token is just the part from <Assertion ..> ... </Assertion>
* So let's get just that part..
lnStartIdx = loBdSecToken.FindString("<Assertion",0,"utf-8")
IF (lnStartIdx < 0) THEN
    ? "Did not find the start of the SAML assertion."
    RELEASE loCert
    RELEASE loBdSecToken
    CANCEL
ENDIF

lnEndIdx = loBdSecToken.FindString("</Assertion>",0,"utf-8")
IF (lnEndIdx < 0) THEN
    ? "Did not find the end of the SAML assertion."
    RELEASE loCert
    RELEASE loBdSecToken
    CANCEL
ENDIF

* Adjust the index to the 1st byte after "</Assertion>"
lnEndIdx = lnEndIdx + 12
lcBase64_saml_token = loBdSecToken.GetEncodedChunk(lnStartIdx,lnEndIdx - lnStartIdx,"base64")

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "soapenv:Envelope"
loXml.UpdateAttrAt("soapenv:Header|wsse:Security",1,"xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
loXml.UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken",1,"ValueType","http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID")
loXml.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")

loXml.UpdateChildContent("soapenv:Header|wsse:Security|wsse:BinarySecurityToken",lcBase64_saml_token)

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt = CreateObject('Chilkat.CkDateTime')
loDt.SetFromCurrentSystemTime()
loXml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",1,"IssueInstant",loDt.GetAsTimestamp(1))

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

? loXml.GetXml()

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

lnSuccess = loHttp.SetSslClientCert(loCert)
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loCert
    RELEASE loBdSecToken
    RELEASE loXml
    RELEASE loDt
    RELEASE loHttp
    CANCEL
ENDIF

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

loResp = loHttp.PostXml("https://services.ehealth.fgov.be/AddressBook/v1",loXml.GetXml(),"utf-8")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loCert
    RELEASE loBdSecToken
    RELEASE loXml
    RELEASE loDt
    RELEASE loHttp
    CANCEL
ENDIF

? loResp.BodyStr
? "response status code = " + STR(loResp.StatusCode)

RELEASE loResp

RELEASE loCert
RELEASE loBdSecToken
RELEASE loXml
RELEASE loDt
RELEASE loHttp