This parameter property is used to load the collection of patient problems by the specified problem description.
object.Description
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientProblemLoadParams interface |
string
Display the number of the patient problems loaded on the basis of the selected parameter, their codes, descriptions and the full names of the patients who have the loaded problems.
Dim aParams
Dim aProblems
Dim aProblem
Dim aMessage
Set aParams = Profile.MakePatientProblemLoadParams
aParams.Description = "Asthma"
set aProblems = Profile.LoadPatientProblems(aParams)
aMessage = "The number of the diagnoses with the description '" &_
aParams.Description & "' = " & aProblems.Count & vbNewLine
for i = 0 to aProblems.Count - 1
set aProblem = aProblems.Item(i)
aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
aProblem.Patient.SurnameFirstName & " suffers or suffered from " &_
aProblem.DxCode & " (Description: " & aProblem.DxDescription & ")"
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Description can be found in
, in or in .