ISContactLinks.Item

Example

Display the number of the encounters loaded on the basis of the selected filter and some information about their contact links.

Dim aPatient  
Dim aEncounters, aEncounter
Dim aFilter
Dim aContacts, aContact
Dim aContactLinks, aContactLink   
Dim aMessage
Dim i, j, k

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateEncounterFilter
aFilter.ProviderCode = "ADMIN"
aFilter.CreatedDateFrom = #01/01/2019#
aFilter.CreatedDateTo = #01/01/2020#
set aEncounters = aPatient.LoadEncounters(aFilter) 
aMessage = "Encounters Count = " & aEncounters.Count & vbNewLine 

for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
  set aContacts = aEncounter.Contacts
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & "Encounter Date: " &_
  aEncounter.Date & "; Contacts (Count = " & aContacts.Count & "):"  
  
  for j = 0 to aContacts.Count - 1
    set aContact = aContacts.Item(j)
    set aContactLinks = aContact.Actions 
    aMessage = aMessage & vbNewLine & (i + 1) & "." & (j + 1) & " Contact Date: " &_
      aContact.Date & "; Contact Links (Count = " & aContactLinks.Count & "):" & vbNewLine  
    
    for k = 0 to aContactLinks.Count - 1
      set aContactLink = aContactLinks.Item(k)
      aMessage = aMessage & (i + 1) & "." & (j + 1) & "." & (k + 1) &_
        " Description: " & aContactLink.Description & vbNewLine &_
        "         Date: " & aContactLink.Date & vbNewLine &_ 
        "         ID: " & aContactLink.ID & vbNewLine &_
        "         Pos Code: " & aContactLink.PosCode & vbNewLine &_
        "         Provider Code: " & aContactLink.ProviderCode & vbNewLine &_
        "         Action Status: " & aContactLink.ActionStatus & vbNewLine &_ 
        "         URL: " & aContactLink.URL & vbNewLine   
    next 'k   
  next 'j 
next 'i 
  
Profile.MsgBox(aMessage)