ISRecommendation.Guideline

Example

Display the number of patient's recommendations and some information about them, including the guidelines the recommendations were added to.

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)