ISContactLink.LinkTypeID

Example

Display the number of the encounters loaded on the basis of the selected filter and some information about their contact links, including CIDs of the objects linked to the contacts.

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

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 &_ 
        "         Pos Code: " & aContactLink.PosCode & vbNewLine &_
        "         Provider Code: " & aContactLink.ProviderCode & vbNewLine &_
        "         ID: " & aContactLink.ID & vbNewLine &_        
        "         Link ID: " & aContactLink.LinkID & vbNewLine &_
        "         Link Type ID: "  & aContactLink.LinkTypeID & vbNewLine &_
        "         Self ID: " & aContactLink.SelfID & vbNewLine &_
        "         Self Type ID: " & aContactLink.SelfTypeID & vbNewLine &_
        "         Type ID: " & aContactLink.TypeID & vbNewLine
    next 'k   
  next 'j 
next 'i
  
Profile.MsgBox(aMessage)