ISCDOTransactionFilter.OnlySigned

Description

This filter property is used to load only signed CDO transactions.

Syntax

object.OnlySigned

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

Return Value

bool

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:

In Profile Client v8 on User Interface Signed can be found in Clinical > Medical Record > Results > Information > Signed by.

Version information

Added in v7.8.0