ISCDOTransaction.InterestCopies

Description

The copies of the CDO transaction for the information of other providers.

Syntax

object.InterestCopies

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

Restriction: This property is readonly.

Return Value

ISCDOTransactionInterestCopies

Example

Display some information about the CDO transactions, including their interest copies.

Dim aPatient
Dim aFilter 
Dim aCDOTransactions, aCDOTransaction
Dim aCDOTransIntCopies, aCDOTransIntCopy
Dim aMessage
Dim i, j

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCDOTransFilter
aFilter.PatientId = aPatient.Id
set aCDOTransactions = Profile.LoadCDOTransactions(aFilter)

aMessage = "CDO Transactions Count = " & aCDOTransactions.Count & vbNewLine
for i = 0 to aCDOTransactions.Count - 1
  set aCDOTransaction = aCDOTransactions.Item(i)
  aMessage = aMessage & vbNewLine & "CreatedOn: " & aCDOTransaction.CreatedOn & vbNewLine 
  
  set aCDOTransIntCopies = aCDOTransaction.InterestCopies
  aMessage = aMessage & vbNewLine &_  
    "Interest Copies Count = " & aCDOTransIntCopies.Count  & vbNewLine 
  for j = 0 to aCDOTransIntCopies.Count - 1
    set aCDOTransIntCopy = aCDOTransIntCopies.Item(j)
    aMessage = aMessage & vbNewLine &_
      "    Interest Copy Information: " & vbNewLine &_
      "      GUID: " & aCDOTransIntCopy.GUID & vbNewLine &_
      "      ID: " & aCDOTransIntCopy.ID & vbNewLine &_
      "      Created On: " & aCDOTransIntCopy.CreatedOn & vbNewLine &_
      "      Modified On: " & aCDOTransIntCopy.ModifiedOn & vbNewLine &_
      "      Comment: " & aCDOTransIntCopy.Comment & vbNewLine &_
      "      Is Signed: " & aCDOTransIntCopy.IsSigned & vbNewLine & vbNewLine
    
  next 'j
next 'i     

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Interest Copies can be found in Clinical > Medical Record > Results > Open the CDO transaction > Transaction > Copies To.

Version information

Added in v8.4.20