ISCDOTransFilter.CaseServiceID

Description

This filter property is used to load the collection of CDO transactions with the specified ID of the case sub-referral.

Syntax

object.CaseServiceID

Part	Attribute	Type	Description
`object`	Required	ISCDOTransFilter	The `object` always implements the ISCDOTransFilter interface

Return Value

int

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, aCDOFilter
Dim aCaseServices, aCaseService  
Dim aCDOTransactions, aCDOTransaction
Dim i, j
Dim aMessage

Set aPatient = Profile.SelectPatient
Set aFilter = Profile.CreateCaseServiceFilter
set aCaseServices = Profile.LoadCaseServices(aFilter)

set aCDOFilter = Profile.CreateCDOTransFilter
aCDOFilter.TransactionTypes = 1  'tsotweEncounters  

aMessage = "Case Services Count = " & aCaseServices.Count & vbNewLine 
  
for j = 0 to aCaseServices.Count - 1
  set aCaseService = aCaseServices.Item(j)
  aCDOFilter.CaseServiceID = aCaseService.ID

  set aCDOTransactions = Profile.LoadCDOTransactions(aCDOFilter)

  aMessage = "CDO Transactions Count = " & aCDOTransactions.Count & vbNewLine

  for i = 0 to aCDOTransactions.Count - 1
    set aCDOTransaction = aCDOTransactions.Item(i)
    aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
      "Case Service ID: " & aCaseService.ID & vbNewLine &_  
      "    Created on: " & aCDOTransaction.CreatedOn & vbNewLine &_
      "    ID: " & aCDOTransaction.ID & vbNewLine &_
      "    CID: " & aCDOTransaction.CID & vbNewLine &_
      "    Pos Code: " & aCDOTransaction.PosCode & vbNewLine &_
      "    Provider ID: " & aCDOTransaction.ProviderId & vbNewLine &_ 
      "    Recorder: " & aCDOTransaction.Recorder & vbNewLine
  next  
next  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Case Service ID cannot be found.

Version information

Added in v7.8.0