ISFamilyProblem.Treatment

Example

Display some information about the family problems loaded on the basis of the selected filter including including treatment.

Dim aPatient
Dim aFilter
Dim aFamilyProblems, aFamilyProblem
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateFamilyProblemFilter
aFilter.PatientID = aPatient.ID
set aFamilyProblems = aFilter.Load

aMessage = "Family Problems Count: "  & aFamilyProblems.Count & vbNewLine &_
  "#" & vbTab & "Age" & vbTab & "Date" & vbTab & vbTab & "Dx Description" &_
  vbTab & "Treatment" 

for i = 0 to aFamilyProblems.Count - 1 
  set aFamilyProblem = aFamilyProblems.Items(i)
  aMessage = aMessage & vbNewLine & (i + 1) & vbTab &_
    aFamilyProblem.Age & vbTab &_
    aFamilyProblem.Date & vbTab & aFamilyProblem.DxDescription & vbTab &_
    vbTab & aFamilyProblem.Treatment 
next 

Profile.MsgBox(aMessage)