ISHRObservation.SourceProviderID

Example

Display the number of the observations loaded on the basis of the selected filter and some information about them, including the names of the providers who added their data into external systems.

Dim aPatient
Dim aFilter
Dim aHRObservations, aHRObservation
Dim aMessage
Dim i   

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateObservationFilter
aFilter.PatientId = aPatient.ID 
aFilter.DateFrom = #01/01/2019#
aFilter.DateTo = #01/01/2020#
set aHRObservations = aFilter.Load

aMessage = "HR Observations Count = " & aHRObservations.Count & vbNewLine

for i = 0 to aHRObservations.Count - 1
  set aHRObservation = aHRObservations.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Name: " & aHRObservation.Name & vbNewLine &_
    "   Parent Trans: " & aHRObservation.ParentTrans.CreatedOn & vbNewLine &_
    "   Code: " & aHRObservation.Code & vbNewLine &_
    "   Concept Code: " & aHRObservation.ConceptCode & vbNewLine &_
    "   Is Deleted: " & aHRObservation.IsDeleted & vbNewLine &_
    "   Termset Code: " & aHRObservation.TermsetCode & vbNewLine &_
    "   GUID: " & aHRObservation.GUID & vbNewLine &_
    "   ID: " & aHRObservation.ID & vbNewLine 
  if aHRObservation.SourceProviderID > 0 then  
    aMessage = aMessage & "   Source Provider: " &_
      Profile.LoadProviderById(aHRObservation.SourceProviderID).FullName & vbNewLine
  end if
next

Profile.MsgBox(aMessage)