ISCDOTransFilter.SortMode

Example

Display the number of the CDO transactions loaded on the basis of the selected filter and some information about them.

Dim aPatient
Dim aFilter 
Dim aCDOTransactions, aCDOTransaction
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient

set aFilter = Profile.CreateCDOTransFilter
aFilter.PatientId = aPatient.Id
aFilter.SortMode = 3 'slsmDTDisplayDescAndID

set aCDOTransactions = Profile.LoadCDOTransactions(aFilter)

aMessage = "The number of CDO Transactions is " &_
  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 &_
    "     CID: " & aCDOTransaction.CID & vbNewLine &_
    "     Pos Code: " & aCDOTransaction.PosCode & vbNewLine &_
    "     Privacy: " & aCDOTransaction.Privacy & vbNewLine &_ 
    "     Recorder: " & aCDOTransaction.Recorder & vbNewLine     
next    
Profile.MsgBox(aMessage)