ISProfile.GetFlowChartDefsByFilter

Description

This function returns the flow sheets by the specified filter.

Syntax

object.GetFlowChartDefsByFilter(aPatient, aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aPatient`	In, Required	int
`aFilter`	In, Required	ISFlowChartFilter	The object that defines conditions for filtering

Return Value

ISCollection

Returns the flow sheets by the specified filter.

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 aFlowChartDefs, aFlowChartDef
Dim aMessage
Dim i, j
Dim aMeasures, aMeasure
Dim aLastDate, aLastValue 

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 aFlowChartDefs = Profile.GetFlowChartDefsByFilter(aPatientID, aFilter)

aMessage = "Flow Chart Defs Count = " & aFlowChartDefs.Count & vbNewLine 

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

  set aMeasures = aFlowChartDef.Measures 
  if not aMeasures is nothing then
    aMessage = aMessage & "    Measures Count = " &_
      aMeasures.Count & vbNewLine
    for j = 0 to aMeasures.Count - 1
      set aMeasure = aMeasures.Item(j) 'ISFlowChartDefItem
      aMeasure.CalcLastValue aPatientID, aLastDate, aLastValue 
      
      aMessage = aMessage & (i + 1) & "." & (j + 1) & ". Measure information: " & vbNewLine &_
        "    Caption: " & aMeasure.Caption & vbNewLine &_      
        "    Units: " & aMeasure.Units & vbNewLine &_  
        "    Last Date: " & aLastDate & vbNewLine &_
        "    Last Value: " & aLastValue & vbNewLine            
     next 'j
   end if 

next 'i    

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Flow Sheets can be found in Clinical > Medical Record > Flow Sheets.

Version information