ISProfilePatientGroupFilter.PatientGroupStatuses

Example

Display the number of the patient groups loaded on the basis of the selected filter, their names and statuses.

sub main()
  Dim aFilter
  Dim aPatientGroups  
  Dim aMessage

  Set aFilter = Profile.CreateProfilePatientGroupFilter
  aFilter.PatientGroupStatuses = 1 + 2 'Active + Preferred
  set aPatientGroups = Profile.LoadProfilePatientGroupsByFilter(aFilter)

  aMessage = GetGroupsInformation(aPatientGroups)
    
  Profile.MsgBox(aMessage)
end sub

function GetGroupsInformation(aPatientGroups)
  Dim aPatientGroup
  Dim aGroupStatusDesc
  Dim aMessage
  Dim i

  aMessage = "Patient Groups Count: "  & aPatientGroups.Count
  for i = 0 to aPatientGroups.Count - 1 
    set aPatientGroup = aPatientGroups.Item(i)
    
    select case aPatientGroup.Status
      case 1 'spgsActive 
        aGroupStatusDesc = "Active"
      case 2 'spgsPreferred
        aGroupStatusDesc = "Preferred"
      case 4 'spgsInactive  
        aGroupStatusDesc = "Inactive" 
      case 8 'spgsUnusual
        aGroupStatusDesc = "Unusual"
      case 16 'spgsObsolete  
        aGroupStatusDesc = "Obsolete"
      case 32 'spgsObscure 
        aGroupStatusDesc = "Obscure"
      case 64 'spgsArchive  
        aGroupStatusDesc = "Archive"                       
      case else
        aGroupStatusDesc = "?"     
    end select
    
    aMessage = aMessage & vbNewLine & (i + 1) & ") " & aPatientGroup.Name &_
      "; Group Status: " & aGroupStatusDesc
  next
  GetGroupsInformation = aMessage
end function