ISPatient.ExternalDr1Code

Description

This property is deprecated and maintained for compatibility only. This is the patient's first external provider code.

Syntax

object.ExternalDr1Code

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

Return Value

string

Example

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

1)
Dim aPatient  
Dim aExternalDr1Code

Set aPatient = Profile.SelectPatient

if aPatient.ExternalDr1 is nothing then
  Profile.MsgBox ("There is no External Provider 1 for this patient!")
else
  aExternalDr1Code = aPatient.ExternalDr1Code
  Profile.MsgBox (aExternalDr1Code)
end if

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

Profile.MsgBox (aMessage)

Note:

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

Version information

Added in v7.8.0