ISFamilyProblem.Status

Example

Display some information about the family problems loaded on the basis of the selected filter including the patient's statuses.

sub main()

  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 & "Status" & vbTab & "Status As String" 

  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.Status & vbTab & aFamilyProblem.StatusAsString  
  next 

  Profile.MsgBox(aMessage)
end sub