ISCDOTransactionRawMessage.Message

Example

Display some information about each raw message linked to the CDO transaction, including its content.

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)