ISPatient.LoadFinancialTransactions

Description

This function returns all financial transactions of the patient on the basis of the selected filter. On User Financial Transactions can be found in Patient/Alter Patient/Transactions.

Syntax

object.LoadFinancialTransactions( [oFilter])

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`oFilter`	In, Optional	ISFinancialTransactionFilter	The object that defines conditions for filtering

Return Value

ISFinancialTransactions

Returns financial transactions of the patient by the selected filter.

Example

Display the number, the date and the amount of the patient's financial transactions on the basis of the provider code.

Dim aPatient  
Dim aTransactions
Dim aTransaction
Dim aFilter
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateFinancialTransactionFilter
aFilter.ProviderCode = "MM"
set aTransactions = aPatient.LoadFinancialTransactions(aFilter) 
aMessage = "Financial Transactions Count = " & aTransactions.Count

for i = 0 to aTransactions.Count - 1
  set aTransaction = aTransactions.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & " The transaction was created on " & aTransaction.Date 
  aMessage = aMessage & ", with amount " & aTransaction.Amount & ". " 
next

Profile.MsgBox(aMessage)

Note:

Version information