The termset item associated with the disease state that the guideline applies to.
object.Concept
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISGuideline interface |
Display the number of patient's recommendations and some information about them, including the concept linked to the guideline.
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)
In Profile Client v8 on User Interface Concept can be found in
.