ISEncounterTags.Item

Example

Display the number of the encounter tags loaded on the basis of the selected filter and some information about them.

Dim aPatient
Dim aFilter  
Dim PatientId
Dim aEncounters, aEncounter
Dim i, j, k
Dim aContact
Dim aMessage
Dim aEncounterTag, aEncounterTags

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 & "The encounter on " & aEncounter.date & ":"
  if aEncounter.Contacts.Count <> 0 then
    for j = 0 to aEncounter.Contacts.Count -1
      set aContact = aEncounter.Contacts.Item(j)
      aMessage = aMessage & vbNewLine & "    -Contact Subject: " & aContact.Subject

      if not aContact.EncounterTags is nothing then
        aMessage = aMessage & vbNewLine & " Encounter Tags Count = " &_
          aContact.EncounterTags.Count & vbNewLine
        for k = 0 to aContact.EncounterTags.Count -1
          set aEncounterTag = aContact.EncounterTags.Item(k)
          aMessage = aMessage & vbNewLine &_
            "Content Comment: " & aEncounterTag.ContentComment & vbNewLine &_
            "ContextComment: " & aEncounterTag.ContextComment & vbNewLine &_  
            "Description: " & aEncounterTag.Description & vbNewLine &_
            "ID: " & aEncounterTag.ID & vbNewLine  
            
          if not aEncounterTag.ClinicalTag is nothing then
            aMessage = aMessage & "Clinical Tag: " &_
              aEncounterTag.ClinicalTag.Description & vbNewLine
          end if
            
        next 'k 
      end if
    next 'j
  end if
next 'i

Profile.MsgBox(aMessage)