ISCDOTransactionFilter.Group

Description

This filter property is used to load the CDO transactions of the specified group.

Syntax

object.Group

Part	Attribute	Type	Description
`object`	Required	ISCDOTransactionFilter	The `object` always implements the ISCDOTransactionFilter interface

Return Value

int

Example

Display the number of the CDO transactions loaded on the basis of the selected filter and the dates when they were created.

Dim aPatient 
Dim aFilter 
Dim aCDOTransactions, aCDOTransaction
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient
Set aFilter = Profile.CreateCDOTransactionFilter
aFilter.OnlySigned = False
aFilter.Group = 1023  'ftAll  

set aCDOTransactions = aPatient.LoadCDOTransactions(aFilter)

aMessage = "CDO Transactions Count = " & aCDOTransactions.Count & vbNewLine

for i = 0 to aCDOTransactions.Count - 1
  set aCDOTransaction = aCDOTransactions.Item(i)  'ISCDOTransaction
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Created on: " & aCDOTransaction.CreatedOn & vbNewLine &_
    "      Is Signed: " & aCDOTransaction.IsSigned & vbNewLine &_
    "      Filing Category: " & aCDOTransaction.FilingCategory
next

Profile.MsgBox (aMessage)

Note: The possible values of this property can be found in the enumeration TSTransactionGroup.

In Profile Client v8 on User Interface Group cannot be found, but CDO Transactions can be found in Clinical > Medical Record > Results.

Version information

Added in v7.8.0