ISCDOTransactionInterestCopy.CreatedOn

Example

Display some information about the interest copies of the CDO transactions, including the dates and time they were created.

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)