ISPatientProblemLoadParams.DescriptionLoadKind

Example

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" 
aParams.DescriptionLoadKind = 4 'sflkContains
set aProblems = Profile.LoadPatientProblems(aParams)

aMessage = "Problems Count = " & 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)