ISRecallActionFilter.MaxCount

Description

This filter property is used to load the maximum number of the actions included in the batch.

Syntax

object.MaxCount

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

Return Value

int

Example

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

Dim aFilter
Dim aActions, aAction
Dim i
Dim aLastId
Dim aTotalCount
Dim aMessage
  
Set aFilter = Profile.CreateRecallActionFilter

aFilter.StartFromId = 0
aFilter.MaxCount = 5  'The size of batch

aLastId = 0
aTotalCount = 0  

do  
  set aActions = Profile.LoadRecallActions(aFilter)  
  
  for i = 0 to aActions.Count -1
    set aAction = aActions.Item (i)
    aMessage = aMessage & vbNewLine & "Action Info:" &_
      "Action ID: " & aAction.ID & vbNewLine &_
      "Action Code: " & aAction.Code & vbNewLine &_
      "Action Description: " & aAction.Description & vbNewLine &_
      "Date/Time Modified: " & aAction.DTModified & vbNewLine
    
    aTotalCount = aTotalCount + 1 
    
      if aAction.Id > aLastId then aLastId = aAction.Id 
  next 'i
  aFilter.StartFromId = aLastId + 1
  aMessage = aMessage & vbNewLine &_
    "----------------------------" & vbNewLine
loop until aActions.Count = 0

aMessage = "Actions Count: " & aTotalCount & vbNewLine & aMessage
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Actions can be found in Clinical > Care Plans > Open active intervention > Actions or Clinical > Care Plans > Complete Intervention > Actions.

Version information

Added in v8.5.0