The name of the overruled patient's recommendation.
object.RecommendationName
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISRecommendationOverrule interface |
string
Display the number of the overruled patient's recommendations and some information about them, including their names.
Dim aPatient
Dim aPatientID
Dim aRecommendationOverrule, aRecommendationOverrules
Dim aMessage
Dim i
Dim aProvider
Dim aGuideline
Set aPatient = Profile.SelectPatient
aPatientID = aPatient.ID
set aRecommendationOverrules = Profile.LoadRecommendationOverrules(aPatientID)
aMessage = "Recommendation Overrules Count = " & aRecommendationOverrules.Count &_
vbNewLine & vbNewLine
for i = 0 to aRecommendationOverrules.Count - 1
set aRecommendationOverrule = aRecommendationOverrules.Item(i)
set aProvider = aRecommendationOverrule.ResponsibleProvider
set aGuideline = aRecommendationOverrule.Recommendation.Guideline
aMessage = aMessage & (i + 1) & ". " &_
"Recommendation Name: " & aRecommendationOverrule.RecommendationName & vbNewLine &_
"Guideline: " & aGuideline.Name & vbNewLine &_
"Date: " & aRecommendationOverrule.Date & vbNewLine &_
"Reason: " & aRecommendationOverrule.Reason & vbNewLine &_
"Patient: " & aPatient.SurnameFirstName & vbNewLine &_
"Responsible Provider: " & aProvider.Fullname & vbNewLine & vbNewLine
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Recommendation Name cannot be found, but Overruled Recommendations can be found in
.