ISPatientProblemLoadParams.AddProblemType

Description

This method is used to load the collection of patient problems of the selected types.

Syntax

object.AddProblemType aProblemType

Part	Attribute	Type	Description
`object`	Required	ISPatientProblemLoadParams	The `object` always implements the ISPatientProblemLoadParams interface
`aProblemType`	In, Required	TSProblemType	The integer value that indicates the type of problems that should be loaded

Example

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

Dim aParams
Dim aProblems, aProblem
Dim aMessage

Set aParams = Profile.MakePatientProblemLoadParams
aParams.AddProblemType(3) 'ptProcedures
set aProblems = Profile.LoadPatientProblems(aParams)

aMessage = "Problems Count = " & aProblems.Count

for i = 0 to aProblems.Count - 1
  set aProblem = aProblems.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & "Code: " &_ 
    aProblem.DxCode & " (Description: " & aProblem.DxDescription & ")" &_ 
    "; problem type = " & aProblem.ProblemType
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Problem Type can be found in Clinical > Medical Record > Problems, in Clinical > Clinical Details > Problems or in Patient > Cases > Clinical > Problems.

Version information

Added in v8.5.0