ISRecommendationOverrules.Count

Description

The number of overruled patient's recommendations within the collection.

Syntax

object.Count

Part	Attribute	Type	Description
`object`	Required	ISRecommendationOverrules	The `object` always implements the ISRecommendationOverrules interface

Restriction: This property is readonly.

Return Value

int

Example

Display the number of overruled patient's recommendations and some information about 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