ISRecommendation.Actions

Description

The actions linked to the patient's recommendation.

Syntax

object.Actions

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

Restriction: This property is readonly.

Return Value

ISStrings

Example

Display the number of patient's recommendations and some information about them, including the recommended actions.

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 Actions can be found in Maintain > Treatment Guidelines > Create a new guideline > Create a new recommendation > Actions.

Version information

Added in v7.8.0