The name of the patient's recommendation.
object.Name
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISRecommendation interface |
string
Display the number of patient's recommendations and some information about them, including their names.
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)
In Profile Client v8 on User Interface Name can be found in
.