ISPatient.ExternalDr4

Description

This property is deprecated and maintained for compatibility only. This is the fourth external provider for the patient.

Syntax

object.ExternalDr4

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

Restriction: This property is readonly.

Return Value

ISExternalProvider

Example

Display the full name of the patient's fourth external provider, if any. When using the second example a list of all providers, associated with the patient, is displayed.

1)
Dim aPatient  
Dim aExternalDr4

Set aPatient = Profile.SelectPatient

if aPatient.ExternalDr4 is nothing then
  Profile.MsgBox ("There is no External Provider 4 for this patient!")
else
  aExternalDr4 = aPatient.ExternalDr4.FullName
  Profile.MsgBox (aExternalDr4)
end if 

2)
Dim aRoleDescription 
Dim aProviderFullName
Dim aPatient
Dim aCareTeam
Dim aMessage

Set aPatient = Profile.SelectPatient

set aCareTeamFilter = Profile.CreateCareTeamFilter
aCareTeamFilter.Patient = aPatient.ID
set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)
for i = 0 to aCareTeams.Count - 1
  set aCareTeam = aCareTeams.Item(i)
  aRoleDescription = Profile.LoadShortCode(aCareTeam.RoleID).Description
  aProviderFullName = Profile.LoadProviderById(aCareTeam.PersonID).FullName
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & "'" & aRoleDescription & "' is  " & aProviderFullName
next

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface External Dr. 4 can be found in Patient > Alter Patient > Care Team or in Clinical > Medical Record > Care Team.

Version information

Added in v7.8.0