ISCDOTransactionRawMessage.Version

Example

Display some information about each raw message, including the number of the version of the CDO transaction the raw message was linked to.

Dim aPatient
Dim aFilter 
Dim aCDOTransactions, aCDOTransaction
Dim aRawMessages, aRawMessage 
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 & (i + 1) & ") " &_
    "Created on: " & aCDOTransaction.CreatedOn & vbNewLine &_
    "     ID: " & aCDOTransaction.ID & vbNewLine &_
    "     DisplayDate: " & aCDOTransaction.DisplayDate & vbNewLine &_
    "     Provider ID: " & aCDOTransaction.ProviderID & vbNewLine
  
  set aRawMessages = aCDOTransaction.LoadRawMessages(0)
  aMessage = aMessage & _
    "     The raw messages count is " & aRawMessages.Count & vbNewLine   
  for j = 0 to aRawMessages.Count - 1
    set aRawMessage = aRawMessages.Item(j) 
    aMessage = aMessage &_
      "          Raw Message Date: " & aRawMessage.Date & vbNewLine &_
      "          Raw Message Version: " & aRawMessage.Version & vbNewLine &_
      "          Raw Message : " & vbNewLine & aRawMessage.Message  
  next 'j
next 'i 

Profile.MsgBox(aMessage)