ISPatientProblemLoadParams.MaxCount

Description

This parameter property is used to load the maximum number of the patient problems. The maximum number is determined by the user.

Syntax

object.MaxCount

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

Return Value

int

Example

Display the number of the patient problems loaded on the basis of the selected parameter and divided into the batches, their codes and descriptions.

Dim aParams
Dim aTotalCount
Dim aProblems, aProblem
Dim aLastId
Dim aMessage

Set aParams = Profile.MakePatientProblemLoadParams
aParams.StartFromId = 0
aParams.MaxCount = 3 'The size of batch

aTotalCount = 0
do
  set aProblems = Profile.LoadPatientProblems(aParams)

  aLastId = 0
  for i = 0 to aProblems.Count - 1
    set aProblem = aProblems.Item(i)
    aMessage = aMessage & vbNewLine & "- Code: " & aProblem.DxCode &_
      "; Description: " & aProblem.DxDescription & "; ID: " & aProblem.Id

    aTotalCount = aTotalCount + 1

    if aProblem.Id > aLastId then aLastId = aProblem.Id   
  next   
  aParams.StartFromId = aLastId + 1
  aMessage = aMessage & vbNewLine
loop until aProblems.Count = 0

aMessage = "The number of the loaded problems is "  & aTotalCount & vbNewLine & aMessage

Profile.MsgBox(aMessage)

Note: If no other problem types are specified, only problems of 'Diagnosis' type will be loaded on the basis of the selected parameter.

Version information

Added in v8.2.0