ISEncounter.AssignedToProviderID

Example

Display the number of the encounters and some information about them, including the full name of the providers the encounters are assigned to.

Dim aPatient        
Dim aFilter  
Dim aEncounters, aEncounter               
Dim i                                                                                                             
Dim aMessage       
Dim aProvider 
                                                         
Set aPatient = Profile.SelectPatient 
set aFilter = Profile.CreateEncounterFilter                     
aFilter.PatientId = aPatient.ID 
set aEncounters = aPatient.LoadEncounters(aFilter)

aMessage = "Encounters Count = " & aEncounters.Count

for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Auto Created: " & aEncounter.AutoCreated & vbNewLine &_                             
    "Block From Patient Access: " & aEncounter.BlockFromPatientAccess & vbNewLine &_ 
    "Child Protection: " & aEncounter.ChildProtection & vbNewLine &_
    "Date: " & aEncounter.Date & vbNewLine &_                            
    "Date Created: " & aEncounter.DateCreated & vbNewLine &_
    "Date Altered: " & aEncounter.DateAltered & vbNewLine &_
    "Date Ended: " & aEncounter.DateEnded & vbNewLine &_
    "Date Time: " & aEncounter.DateTime & vbNewLine &_
    "ID: " & aEncounter.ID & vbNewLine &_
    "Time: " & aEncounter.Time & vbNewLine &_
    "Duration: " & aEncounter.Duration & vbNewLine &_
    "Patient Id: " & aEncounter.PatientId & vbNewLine &_
    "Pos Code: " & aEncounter.PosCode & vbNewLine &_
    "Provider Code: " & aEncounter.ProviderCode & vbNewLine &_
    "Service Code: " & aEncounter.ServiceCode & vbNewLine &_
    "Type Code: " & aEncounter.TypeCode & vbNewLine &_                                          
    "Type Description: " & aEncounter.TypeDescription & vbNewLine &_
    "Type ID: " & aEncounter.TypeID & vbNewLine
    
  if aEncounter.AssignedToProviderID > 0 then
    set aProvider = Profile.LoadProviderById(aEncounter.AssignedToProviderID)  
    aMessage = aMessage &_  
      "Assigned To Provider: " & aProvider.FullName & vbNewLine
  end if    
next  
                                               
Profile.MsgBox(aMessage)