ISContactLink.Amount

Example

Display the number of the encounters loaded on the basis of the selected filter and some information about their contact links, including the prices to be charged for the services linked to the contacts.

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
      if aContactLink.ServiceCode <> "" then  
        aMessage = aMessage &_
          "         Service Code: " & aContactLink.ServiceCode & vbNewLine &_
          "         Code: " & aContactLink.Code & vbNewLine &_
          "         Amount: " & aContactLink.Amount & vbNewLine
      end if 
    next 'k   
  next 'j 
next 'i
  
Profile.MsgBox(aMessage)