ISGuideline.Name

Example

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

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

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

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

for i = 0 to aRecommendations.Count - 1
  set aRecommendation = aRecommendations.Item(i)
  
  set aGuideline = aRecommendation.Guideline
   
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "-Name: " & aRecommendation.Name & vbNewLine &_
    "-Guideline: " & aGuideline.Name & vbNewLine &_
    "-Apply To Descendants: " & aGuideline.ApplyToDescendants & vbNewLine &_
    "-Concept: " & aGuideline.Concept.Name & vbNewLine   
next      

Profile.MsgBox(aMessage)