ISPatientProblemLoadParams.ProblemType

Description

This parameter property is used to load the collection of patient problems by the problem types.

Syntax

object.ProblemType

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

Return Value

int

Example

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

Dim aPatient
Dim aParams
Dim aProblems
Dim aProblem
Dim aMessage

Set aPatient = Profile.SelectPatient
set aParams = Profile.MakePatientProblemLoadParams
aParams.PatientID = aPatient.ID
aParams.ProblemType = 1 'ptDiagnosis
set aProblems = Profile.LoadPatientProblems(aParams)

aMessage = "The patient's diagnoses 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 & ")" 
next      

Profile.MsgBox(aMessage)

Note: The possible values of this property can be found in TSProblemType.

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 v7.8.0