ISPatientVers.AltPracticeDr

Description

The secondary practice provider, associated with the patient in the selected patient version.

Syntax

object.AltPracticeDr

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

Restriction: This property is readonly.

Return Value

ISProvider

Example

Display full name of the patient's secondary practice provider in the selected patient version.

Dim aPatient  
Dim aPatientVers
Dim aMessage  

Set aPatient = Profile.SelectPatient
set aPatientVers = aPatient.VersionOnDate(#01/01/2019#)

if aPatientVers is nothing then
  aMessage = "There are no patient versions for this date!"
    
else 

  if aPatientVers.AltPracticeDr is nothing then
    aMessage = "On 01/01/2019 the patient had no secondary provider" 

  else
  
    if aPatient.AltPracticeDr is nothing then 
     aMessage = "On 01/01/2019 the patient's secondary provider was " &_ 
     aPatientVers.AltPracticeDr.FullName & ", now the patient has no " &_ 
     "secondary provider "
     
    else 
   
     aMessage = aMessage & vbNewLine &_  
      "On 01/01/2019 the patient's secondary provider was " &_ 
      aPatientVers.AltPracticeDr.FullName & ", now the patient's secondary " &_ 
      "provider is " & aPatient.AltPracticeDr.FullName
    
    end if
  end if  
end if

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Alt. Practice Dr. can be found in Patient > Alter Patient > General > Show Versions > Alt. Provider field.

Version information

Added in v7.8.0