ISRecommendations.Count

Description

The number of patient's recommendations within the collection.

Syntax

object.Count

Part	Attribute	Type	Description
`object`	Required	ISRecommendations	The `object` always implements the ISRecommendations interface

Restriction: This property is readonly.

Return Value

int

Example

Display the number of patient's recommendations and some information about them.

Dim aPatient
Dim aPatientID
Dim aRecommendations
Dim aRecommendation
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient
aPatientID = aPatient.ID 
set aRecommendations = Profile.LoadRecommendations(aPatientID)

aMessage = "Recommendations Count = " & aRecommendations.Count & vbNewLine &_
  vbNewLine 

for i = 0 to aRecommendations.Count - 1
  set aRecommendation = aRecommendations.Item(i)
  aMessage = aMessage & (i + 1) & ". " & "Name: " & aRecommendation.Name &_
    vbNewLine & "-Guideline: " & aRecommendation.Guideline.Name & vbNewLine 

  if not aRecommendation.Actions is nothing then
    aMessage = aMessage & "-Recommended actions: " & vbNewLine &_
      aRecommendation.Actions.Text & vbNewLine
  end if  
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Recommendations can be found in Maintain > Treatment Guidelines > Create a new guideline > Recommendations.

Version information

Added in v7.8.0