ISCDOTransactionInterestCopy.ModifiedBy

Example

Display some information about the interest copies of the CDO transactions, including the full names of the providers they were signed by.

Dim aPatient
Dim aFilter 
Dim aCDOTransactions, aCDOTransaction
Dim aCDOTransIntCopies, aCDOTransIntCopy
Dim aIntCopyModifiedBy
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 aIntCopyModifiedBy = aCDOTransIntCopy.ModifiedBy    
    if not aIntCopyModifiedBy is nothing then 
      aMessage = aMessage &_
        "      Modified By: " & aIntCopyModifiedBy.FullName & vbNewLine      
     end if 
  next 'j
next 'i     

Profile.MsgBox(aMessage)