ISProfile.LoadRecommendations

Description

This function returns the recommendations by the patient's ID.

Syntax

object.LoadRecommendations(aPatientID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aPatientID`	In, Required	int	ID of the patient

Return Value

ISRecommendations

Returns the recommendations by the patient's ID.

Example

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

Dim aPatient
Dim aPatientID
Dim aRecommendations, 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