ISExternalProvider.OrganisationID

Description

ID of the organisation the external provider is associated with.

Syntax

object.OrganisationID

Part	Attribute	Type	Description
`object`	Required	ISExternalProvider	The `object` always implements the ISExternalProvider interface

Return Value

int

Example

Display the organisation name for the external provider.

Dim aExtProvider 
Dim aCode
Dim aPatient
Dim aMessage

aCode = "1"
Set aExtProvider = Profile.LoadExternalProvider(aCode)

if aExtProvider.ID = 0  then 
  aMessage = "No external provider with the specified code" 
else
  set aPatient = Profile.PatientUtils.LoadPatientByID(aExtProvider.OrganisationID)

  aMessage = aMessage & vbNewLine &_
    "The organisation of the external provider " & aExtProvider.FullName &_
    " is " & aPatient.LastName & " " & aPatient.FirstName
end if                            
 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Organisation ID cannot be found.

Version information

Added in v7.8.0