ISRecommendationOverrules.Item

Description

Each of the overruled patient's recommendations within the collection.

Syntax

object.Item(Index)

Part	Attribute	Type	Description
`object`	Required	ISRecommendationOverrules	The `object` always implements the ISRecommendationOverrules interface
`Index`	In, Required	int	The index of the overruled recommendation

Restriction: This property is readonly.

Return Value

ISRecommendationOverrule

Example

Display the number of overruled patient's recommendations and some information about each of them.

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)

Note:

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

Version information

Added in v7.8.0