ISContactLink.ContactMasterService

Example

Display ContactMasterService for the contact link.

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 &_ 
        "         ID: " & aContactLink.ID & vbNewLine &_
        "         Pos Code: " & aContactLink.PosCode & vbNewLine &_
        "         Provider Code: " & aContactLink.ProviderCode & vbNewLine &_
        "         Action Status: " & aContactLink.ActionStatus & vbNewLine &_ 
        "         Bill This Service: " & aContactLink.BillThisService & vbNewLine &_
        "         Contact Master Service: "  & aContactLink.ContactMasterService & vbNewLine &_
        "         Force Onto Next Invoice: " & aContactLink.ForceOntoNextInvoice & vbNewLine
      if aContactLink.RateId <> 0 then
        aMessage = aMessage &  "         Rate: " &_
          Profile.LoadShortCode(aContactLink.RateId).Description & vbNewLine
      end if 
    next 'k   
  next 'j 
next 'i