ISPatient.ExternalDr2Id

Description

This property is deprecated and maintained for compatibility only. This is the identifier of the patient's second external provider.

Syntax

object.ExternalDr2Id

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

Return Value

int

Example

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

1)
Dim aPatient  
Dim aExternalDr2Id

Set aPatient = Profile.SelectPatient

if aPatient.ExternalDr2 is nothing then
  Profile.MsgBox ("There is no External Provider 2 for this patient!")
else
  aExternalDr2Id = aPatient.ExternalDr2Id
  Profile.MsgBox (aExternalDr2Id)
end if

2)
Dim aRoleDescription 
Dim aProviderFullName
Dim aProviderID
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
  aProviderID = Profile.LoadProviderById(aCareTeam.PersonID).ID
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & "'" & aRoleDescription & "' is  " & aProviderFullName
  aMessage = aMessage & " (" & aProviderID & ") " 
next

Profile.MsgBox (aMessage)

Note:

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

Version information

Added in v7.8.0