ISProfile.LoadRecommendationOverrules

Description

This function returns the overruled recommendations.

Syntax

object.LoadRecommendationOverrules(aPatientID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aPatientID`	In, Required	int	ID of the patient

Return Value

ISRecommendationOverrules

Returns the overruled recommendations.

Example

Display the number of the overruled recommendations and some information about them.

Dim aPatient
Dim aPatientID
Dim aRecommendationOverrules
Dim aRecommendationOverrule
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   
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Overruled Recommendations can be found in Clinical > Medical Record > Encounters > New Encounter > Guidelines > Overrules.

Version information

Added in v7.8.0