ISCDOTransactionInterestCopy.CopiedTo

Example

Display some information about the interest copies of the CDO transactions, including the full names of their recipients.

Dim aPatient
Dim aFilter 
Dim aCDOTransactions, aCDOTransaction
Dim aCDOTransIntCopies, aCDOTransIntCopy
Dim aIntCopyCopiedTo
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 & "- The CDO transaction was created on: " &_
    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
            
    set aIntCopyCopiedTo = aCDOTransIntCopy.CopiedTo    
    if not aIntCopyCopiedTo is nothing then 
      aMessage = aMessage &_
        "      Copied To: " & aIntCopyCopiedTo.FullName & vbNewLine      
     end if 
  next 'j
next 'i     

Profile.MsgBox(aMessage)