ISProfile.LoadPatientProblems

Description

This function returns the patient's problems loaded on the basis of the selected parameter.

Syntax

object.LoadPatientProblems(params)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`params`	In, Required	ISPatientProblemLoadParams	The object that defines conditions for filtering

Return Value

ISProblemList

Returns the patient's problems loaded on the basis of the selected parameter.

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 = "Problems Count = " & aProblems.Count
for i = 0 to aProblems.Count - 1
  set aProblem = aProblems.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aProblem.DxCode &_
    " (" & aProblem.DxDescription & ")" 
next      

Profile.MsgBox(aMessage)

Note:

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

Version information