ID of the provider of medical services who is external to the organisation.
object.ID
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISExternalProvider interface |
int
Display the full name and ID of the external provider.
Dim aExtProvider
Dim aCode
Dim aMessage
aCode = "1"
Set aExtProvider = Profile.LoadExternalProvider(aCode)
if aExtProvider.ID = 0 then
Profile.MsgBox("No external provider with the specified code")
exit sub
end if
aMessage = aMessage & vbNewLine &_
"Full Name:" & vbTab & "ID:" & vbNewLine & vbNewLine &_
aExtProvider.FullName & vbTab & aExtProvider.ID
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface ID cannot be found.