ISProfile.MakePatientProblemLoadParams

Description

This function creates the parameter for loading the patient's problems.

Syntax

object.MakePatientProblemLoadParams()

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

Return Value

ISPatientProblemLoadParams

Returns the created parameter for loading the patient's problems.

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

Added in v7.8.0