ISProfilePatientGroup.DoPrecache

Example

Display the number of the patient groups loaded on the basis of the selected filter and some information about them.

sub main()
  Dim aFilter
  Dim aPatientGroups, aPatientGroup
  Dim aMessage
  Dim i

  Set aFilter = Profile.CreateProfilePatientGroupFilter
  aFilter.PatientGroupType = 3 'spgtAll
  set aPatientGroups = Profile.LoadProfilePatientGroupsByFilter(aFilter)

  aMessage = "BEFORE: " & vbNewLine & GetGroupsInformation(aPatientGroups)
  
  for i = 0 to aPatientGroups.Count - 1 
    set aPatientGroup = aPatientGroups.Item(i)
    if aPatientGroup.NeedPrecache then
      aPatientGroup.DoPrecache
    end if         
  next  

  aMessage = aMessage & vbNewLine &_
    "AFTER: " & vbNewLine & GetGroupsInformation(aPatientGroups)
    
  Profile.MsgBox(aMessage)
end sub

function GetGroupsInformation(aPatientGroups)
Dim aMessage
Dim aPatientGroup
Dim i

  aMessage = "Patient Groups Count: "  & aPatientGroups.Count
  for i = 0 to aPatientGroups.Count - 1 
    set aPatientGroup = aPatientGroups.Item(i)
    aMessage = aMessage & vbNewLine & (i + 1) & ") " &_ 
      aPatientGroup.Name &_
      "; Need Precache: " & aPatientGroup.NeedPrecache &_
      "; Precache Date: " & aPatientGroup.PrecacheDate &_
      "; Patient Count: " & aPatientGroup.PatientCount             
  next
  GetGroupsInformation = aMessage
end function