ISCDOTransactionRawMessages.Item

Description

Each of the raw messages within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISCDOTransactionRawMessages	The `object` always implements the ISCDOTransactionRawMessages interface
`aIndex`	In, Required	int	The index of the raw message

Restriction: This property is readonly.

Return Value

ISCDOTransactionRawMessage

Example

Display each of the raw messages within the collection and some information about them.

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)

Note:

In Profile Client v8 on User Interface Raw Messages can be found in Clinical > Medical Record > Results > Right-click on the transaction > See Raw Message.

Version information

Added in v8.3.0