ISRecommendationOverrule.Reason

Example

Display the number of the overruled patient's recommendations and some information about them, including the reason why they were overruled.

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)