ISContactLink.Quantity

Example

Display the number of the encounters loaded on the basis of the selected filter and some information about their contact links, including the number of times the linked object was provided during the contact.

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 &_
        "         Quantity: " & aContactLink.Quantity & 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
    next 'k   
  next 'j 
next 'i
  
Profile.MsgBox(aMessage)