ISPatient.LoadCDOTransactions

Description

This function returns a list of the clinical transactions for the patient on the basis of the selected filter.

Syntax

object.LoadCDOTransactions( [aFilter])

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

Return Value

ISCDOTransactions

Returns CDO Transactions of the patient by the selected filter.

Example

Display the number of CDO Transactions and the date and time of their creation.

Dim aPatient 
Dim aFilter 
Dim aCDOTransactions
Dim aCDOTransaction

Set aPatient = Profile.SelectPatient
Set aFilter = Profile.CreateCDOTransactionFilter
aFilter.OnlySigned = False
set aCDOTransactions = aPatient.LoadCDOTransactions(aFilter)

aMessage = "Transactions Count = " & aCDOTransactions.Count

for i = 0 to aCDOTransactions.Count - 1
  set aCDOTransaction = aCDOTransactions.Item(i)
  aMessage = aMessage & vbNewLine & aCDOTransaction.CreatedOn
next

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface CDO Transactions can be found in Clinical > Medical Record > Encounters.

Version information