ISFamilyProblem.RelationshipObj

Example

Display some information about the family problems loaded on the basis of the selected filter including the relationship between the patient and his/her family member that is linked to the family problem.

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 &_
  "RelationshipObj.Description" 

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.RelationshipObj.Description &_
    vbTab
    
next 

Profile.MsgBox(aMessage)