ISProfile.FindTransactions

Description

This function returns the financial transactions loaded on the basis of the selected filter.

Syntax

object.FindTransactions(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISFindTransactionsFilter	The object that defines conditions for filtering

Return Value

ISFinancialTransactions

Returns the financial transactions loaded on the basis of the selected filter.

Example

Display the number of financial transactions loaded on the basis of the selected filter and the information about them.

Dim aFilter 
Dim aTransactions
Dim aTransaction
Dim aMessage 
    
Set aFilter = Profile.CreateFindTransactionsFilter
aFilter.FromDate = #11/11/2018#
set aTransactions = Profile.FindTransactions(aFilter)

aMessage = "Transactions Count = " & aTransactions.Count
for i = 0 to aTransactions.Count - 1
  set aTransaction = aTransactions.Item(i) 
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ")  " & aTransaction.WhoEntered & " " &_
      "entered the transaction with the amount '" & aTransaction.Amount &_
      "' on " & aTransaction.WhenEntered
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Transactions can be found in Patient > Alter Patient > Transactions.

Version information