ISProfile.CreateFlowChartFilter

Example

Display the number of the flow sheets loaded on the basis of the selected filter and some information about them.

Dim aPatient
Dim aPatientID
Dim aFilter
Dim aFlowsheets, aFlowsheet
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient
aPatientID = aPatient.ID 
set aFilter = Profile.CreateFlowChartFilter
aFilter.DateFrom = #03/04/2004#
aFilter.DateTo = #03/04/2008#
aFilter.Last = 2

set aFlowsheets = Profile.GetFlowChartDefsByFilter(aPatient.ID, aFilter)

aMessage = "Flow Sheets Count = " & aFlowsheets.Count &_
  vbNewLine & vbNewLine

for i = 0 to aFlowsheets.Count - 1
  set aFlowsheet = aFlowsheets.Item(i)  
  aMessage = aMessage & (i + 1) & ". " &_
    "Caption: " & aFlowsheet.Caption & vbNewLine &_
    "Display Time Mode: " & aFlowsheet.DisplayTimeMode & vbNewLine 

next   

Profile.MsgBox(aMessage)